S_0:; do{ if(!qbevent)break;evnt(13,1,"version.bas");}while(r); do{ if(!qbevent)break;evnt(13,2,"version.bas");}while(r); do{ if(!qbevent)break;evnt(13,3,"version.bas");}while(r); do{ qbs_set(__STRING_VERSION,qbs_new_txt_len("1.5",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,5,"version.bas");}while(r); do{ qbs_set(__STRING_BUILDNUM,qbs_new_txt_len("(development build)",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,6,"version.bas");}while(r); S_6:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("internal/version.txt",20))))||new_error){ if(qbevent){evnt(13,7,"version.bas");if(r)goto S_6;} do{ *__LONG_VERSIONFILE=func_freefile(); if(!qbevent)break;evnt(13,8,"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(13,9,"version.bas");}while(r); do{ tmp_fileno=*__LONG_VERSIONFILE; if (new_error) goto skip1; sub_file_line_input_string(tmp_fileno,__STRING_AUTOBUILDMSG); if (new_error) goto skip1; skip1: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,10,"version.bas");}while(r); do{ qbs_set(__STRING_AUTOBUILDMSG,qbs__trim(__STRING_AUTOBUILDMSG)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,11,"version.bas");}while(r); S_11:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_AUTOBUILDMSG, 9 ),qbs_new_txt_len("From git ",9))))||new_error){ if(qbevent){evnt(13,12,"version.bas");if(r)goto S_11;} do{ qbs_set(__STRING_AUTOBUILDMSG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,12,"version.bas");}while(r); } do{ sub_close(*__LONG_VERSIONFILE,1); if(!qbevent)break;evnt(13,13,"version.bas");}while(r); } do{ if(!qbevent)break;evnt(15,5,"constants.bas");}while(r); do{ qbs_set(__STRING1_SP,func_chr( 13 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,6,"constants.bas");}while(r); do{ qbs_set(__STRING1_SP2,func_chr( 10 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,6,"constants.bas");}while(r); do{ qbs_set(__STRING1_SP3,func_chr( 26 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,6,"constants.bas");}while(r); do{ if(!qbevent)break;evnt(15,7,"constants.bas");}while(r); do{ *__LONG_SP_ASC=qbs_asc(__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,8,"constants.bas");}while(r); do{ *__LONG_SP2_ASC=qbs_asc(__STRING1_SP2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,8,"constants.bas");}while(r); do{ *__LONG_SP3_ASC=qbs_asc(__STRING1_SP3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,8,"constants.bas");}while(r); S_24:; if (( 0 )||new_error){ if(qbevent){evnt(15,9,"constants.bas");if(r)goto S_24;} do{ qbs_set(__STRING1_SP,func_chr( 250 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,9,"constants.bas");}while(r); do{ qbs_set(__STRING1_SP2,func_chr( 249 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,9,"constants.bas");}while(r); do{ qbs_set(__STRING1_SP3,func_chr( 179 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,9,"constants.bas");}while(r); } do{ if(!qbevent)break;evnt(15,59,"constants.bas");}while(r); do{ qbs_set(__STRING_CHR_QUOTE,func_chr( 34 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,59,"constants.bas");}while(r); do{ if(!qbevent)break;evnt(15,60,"constants.bas");}while(r); do{ qbs_set(__STRING_CHR_TAB,func_chr( 9 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,60,"constants.bas");}while(r); do{ if(!qbevent)break;evnt(15,61,"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(15,61,"constants.bas");}while(r); do{ if (__ARRAY_UDT_GL_COMMANDS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_GL_COMMANDS)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_GL_COMMANDS[2]&1){ if (__ARRAY_UDT_GL_COMMANDS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_GL_COMMANDS[0])); }else{ free((void*)(__ARRAY_UDT_GL_COMMANDS[0])); } } __ARRAY_UDT_GL_COMMANDS[4]= 0 ; __ARRAY_UDT_GL_COMMANDS[5]=( 2000 )-__ARRAY_UDT_GL_COMMANDS[4]+1; __ARRAY_UDT_GL_COMMANDS[6]=1; if (__ARRAY_UDT_GL_COMMANDS[2]&4){ __ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_GL_COMMANDS[5]*1728/8+1); memset((void*)(__ARRAY_UDT_GL_COMMANDS[0]),0,__ARRAY_UDT_GL_COMMANDS[5]*1728/8+1); }else{ __ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)calloc(__ARRAY_UDT_GL_COMMANDS[5]*1728/8+1,1); if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257); } __ARRAY_UDT_GL_COMMANDS[2]|=1; } if(!qbevent)break;evnt(16,9,"opengl_global.bas");}while(r); do{ if(!qbevent)break;evnt(16,10,"opengl_global.bas");}while(r); do{ if(!qbevent)break;evnt(16,11,"opengl_global.bas");}while(r); do{ if (__ARRAY_STRING_GL_DEFINES[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_GL_DEFINES)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_GL_DEFINES[2]&1){ tmp_long=__ARRAY_STRING_GL_DEFINES[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]); free((void*)(__ARRAY_STRING_GL_DEFINES[0])); } __ARRAY_STRING_GL_DEFINES[4]= 0 ; __ARRAY_STRING_GL_DEFINES[5]=( 2000 )-__ARRAY_STRING_GL_DEFINES[4]+1; __ARRAY_STRING_GL_DEFINES[6]=1; __ARRAY_STRING_GL_DEFINES[0]=(ptrszint)malloc(__ARRAY_STRING_GL_DEFINES[5]*8); if (!__ARRAY_STRING_GL_DEFINES[0]) error(257); __ARRAY_STRING_GL_DEFINES[2]|=1; tmp_long=__ARRAY_STRING_GL_DEFINES[5]; if (__ARRAY_STRING_GL_DEFINES[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(16,12,"opengl_global.bas");}while(r); do{ if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_GL_DEFINES_VALUE)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&1){ if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0])); }else{ free((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0])); } } __ARRAY_INTEGER64_GL_DEFINES_VALUE[4]= 0 ; __ARRAY_INTEGER64_GL_DEFINES_VALUE[5]=( 2000 )-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4]+1; __ARRAY_INTEGER64_GL_DEFINES_VALUE[6]=1; if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&4){ __ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8); memset((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]),0,__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8); }else{ __ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)calloc(__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]*8,1); if (!__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]) error(257); } __ARRAY_INTEGER64_GL_DEFINES_VALUE[2]|=1; } if(!qbevent)break;evnt(16,13,"opengl_global.bas");}while(r); do{ if(!qbevent)break;evnt(16,14,"opengl_global.bas");}while(r); do{ if(!qbevent)break;evnt(16,15,"opengl_global.bas");}while(r); do{ *__LONG_GL_KIT= 0 ; if(!qbevent)break;evnt(16,15,"opengl_global.bas");}while(r); do{ sub__controlchr( 2 ); if(!qbevent)break;evnt(21,4,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,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(21,2,"wiki_global.bas");}while(r); S_46:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ if(qbevent){evnt(21,3,"wiki_global.bas");if(r)goto S_46;} do{ goto LABEL_NOINTERNALFOLDER; if(!qbevent)break;evnt(21,3,"wiki_global.bas");}while(r); } S_49:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||new_error){ if(qbevent){evnt(21,4,"wiki_global.bas");if(r)goto S_49;} do{ sub_mkdir(__STRING_CACHE_FOLDER); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21,4,"wiki_global.bas");}while(r); } do{ if(!qbevent)break;evnt(21,5,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,6,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,7,"wiki_global.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(21,8,"wiki_global.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; if(!qbevent)break;evnt(21,8,"wiki_global.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(21,8,"wiki_global.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(21,8,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,9,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,10,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,11,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,12,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,13,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,14,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,15,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,16,"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(21,16,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,17,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,18,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,19,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,22,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,23,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,24,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_NORMAL= 7 ; if(!qbevent)break;evnt(21,24,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,25,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_LINK= 9 ; if(!qbevent)break;evnt(21,25,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,26,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_BOLD= 15 ; if(!qbevent)break;evnt(21,26,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,27,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_ITALIC= 15 ; if(!qbevent)break;evnt(21,27,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,28,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_SECTION= 8 ; if(!qbevent)break;evnt(21,28,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,29,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,30,"wiki_global.bas");}while(r); do{ if (__ARRAY_LONG_HELP_LINELEN[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HELP_LINELEN)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HELP_LINELEN[2]&1){ if (__ARRAY_LONG_HELP_LINELEN[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HELP_LINELEN[0])); }else{ free((void*)(__ARRAY_LONG_HELP_LINELEN[0])); } } __ARRAY_LONG_HELP_LINELEN[4]= 0 ; __ARRAY_LONG_HELP_LINELEN[5]=( 1 )-__ARRAY_LONG_HELP_LINELEN[4]+1; __ARRAY_LONG_HELP_LINELEN[6]=1; if (__ARRAY_LONG_HELP_LINELEN[2]&4){ __ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HELP_LINELEN[5]*4); memset((void*)(__ARRAY_LONG_HELP_LINELEN[0]),0,__ARRAY_LONG_HELP_LINELEN[5]*4); }else{ __ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)calloc(__ARRAY_LONG_HELP_LINELEN[5]*4,1); if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257); } __ARRAY_LONG_HELP_LINELEN[2]|=1; } if(!qbevent)break;evnt(21,31,"wiki_global.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_BACK[2]&1){ tmp_long=__ARRAY_STRING_BACK[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]); free((void*)(__ARRAY_STRING_BACK[0])); } __ARRAY_STRING_BACK[4]= 0 ; __ARRAY_STRING_BACK[5]=( 1 )-__ARRAY_STRING_BACK[4]+1; __ARRAY_STRING_BACK[6]=1; __ARRAY_STRING_BACK[0]=(ptrszint)malloc(__ARRAY_STRING_BACK[5]*8); if (!__ARRAY_STRING_BACK[0]) error(257); __ARRAY_STRING_BACK[2]|=1; tmp_long=__ARRAY_STRING_BACK[5]; if (__ARRAY_STRING_BACK[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(21,32,"wiki_global.bas");}while(r); do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK_NAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_BACK_NAME[2]&1){ tmp_long=__ARRAY_STRING_BACK_NAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_BACK_NAME[0])); } __ARRAY_STRING_BACK_NAME[4]= 0 ; __ARRAY_STRING_BACK_NAME[5]=( 1 )-__ARRAY_STRING_BACK_NAME[4]+1; __ARRAY_STRING_BACK_NAME[6]=1; __ARRAY_STRING_BACK_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_BACK_NAME[5]*8); if (!__ARRAY_STRING_BACK_NAME[0]) error(257); __ARRAY_STRING_BACK_NAME[2]|=1; tmp_long=__ARRAY_STRING_BACK_NAME[5]; if (__ARRAY_STRING_BACK_NAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(21,33,"wiki_global.bas");}while(r); do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_HELP_BACK)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_HELP_BACK[2]&1){ if (__ARRAY_UDT_HELP_BACK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_HELP_BACK[0])); }else{ free((void*)(__ARRAY_UDT_HELP_BACK[0])); } } __ARRAY_UDT_HELP_BACK[4]= 0 ; __ARRAY_UDT_HELP_BACK[5]=( 1 )-__ARRAY_UDT_HELP_BACK[4]+1; __ARRAY_UDT_HELP_BACK[6]=1; if (__ARRAY_UDT_HELP_BACK[2]&4){ __ARRAY_UDT_HELP_BACK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_HELP_BACK[5]*128/8+1); memset((void*)(__ARRAY_UDT_HELP_BACK[0]),0,__ARRAY_UDT_HELP_BACK[5]*128/8+1); }else{ __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(21,40,"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(21,41,"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(21,42,"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(21,43,"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(21,43,"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(21,43,"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(21,43,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,44,"wiki_global.bas");}while(r); do{ *__LONG_HELP_BACK_POS= 1 ; if(!qbevent)break;evnt(21,45,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,46,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,47,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,48,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,49,"wiki_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,8,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,10,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,11,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,12,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,15,"ide_global.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(21,19,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDERECENTLINK[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDERECENTLINK[2]&1){ error(10); }else{ __ARRAY_STRING_IDERECENTLINK[8]= 1 ; __ARRAY_STRING_IDERECENTLINK[9]=( 4 )-__ARRAY_STRING_IDERECENTLINK[8]+1; __ARRAY_STRING_IDERECENTLINK[10]=1; __ARRAY_STRING_IDERECENTLINK[4]= 1 ; __ARRAY_STRING_IDERECENTLINK[5]=( 2 )-__ARRAY_STRING_IDERECENTLINK[4]+1; __ARRAY_STRING_IDERECENTLINK[6]=__ARRAY_STRING_IDERECENTLINK[10]*__ARRAY_STRING_IDERECENTLINK[9]; __ARRAY_STRING_IDERECENTLINK[0]=(ptrszint)malloc(__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9]*8); if (!__ARRAY_STRING_IDERECENTLINK[0]) error(257); __ARRAY_STRING_IDERECENTLINK[2]|=1; tmp_long=__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9]; if (__ARRAY_STRING_IDERECENTLINK[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,21,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,22,"ide_global.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); }else{ free((void*)(__ARRAY_UDT_IDEBMK[0])); } } __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=( 1 )-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDEBMK[5]*128/8+1); memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*128/8+1); }else{ __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(21,30,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,31,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,34,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,35,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,36,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,37,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,38,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,39,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,40,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,41,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,42,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,43,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,44,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,45,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,46,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,47,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,48,"ide_global.bas");}while(r); do{ if (__ARRAY_INTEGER_BLOCK_CHR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_BLOCK_CHR[2]&1){ error(10); }else{ __ARRAY_INTEGER_BLOCK_CHR[4]= 0 ; __ARRAY_INTEGER_BLOCK_CHR[5]=( 255 )-__ARRAY_INTEGER_BLOCK_CHR[4]+1; __ARRAY_INTEGER_BLOCK_CHR[6]=1; if (__ARRAY_INTEGER_BLOCK_CHR[2]&4){ __ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_BLOCK_CHR[5]*2); memset((void*)(__ARRAY_INTEGER_BLOCK_CHR[0]),0,__ARRAY_INTEGER_BLOCK_CHR[5]*2); }else{ __ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)calloc(__ARRAY_INTEGER_BLOCK_CHR[5]*2,1); if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257); } __ARRAY_INTEGER_BLOCK_CHR[2]|=1; } } if(!qbevent)break;evnt(21,50,"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(21,51,"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(21,52,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,55,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDECPNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDECPNAME[2]&1){ error(10); }else{ __ARRAY_STRING_IDECPNAME[4]= 1 ; __ARRAY_STRING_IDECPNAME[5]=( 27 )-__ARRAY_STRING_IDECPNAME[4]+1; __ARRAY_STRING_IDECPNAME[6]=1; __ARRAY_STRING_IDECPNAME[0]=(ptrszint)malloc(__ARRAY_STRING_IDECPNAME[5]*8); if (!__ARRAY_STRING_IDECPNAME[0]) error(257); __ARRAY_STRING_IDECPNAME[2]|=1; tmp_long=__ARRAY_STRING_IDECPNAME[5]; if (__ARRAY_STRING_IDECPNAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,57,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDECP[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDECP[2]&1){ error(10); }else{ __ARRAY_STRING_IDECP[4]= 1 ; __ARRAY_STRING_IDECP[5]=( 27 )-__ARRAY_STRING_IDECP[4]+1; __ARRAY_STRING_IDECP[6]=1; __ARRAY_STRING_IDECP[0]=(ptrszint)malloc(__ARRAY_STRING_IDECP[5]*8); if (!__ARRAY_STRING_IDECP[0]) error(257); __ARRAY_STRING_IDECP[2]|=1; tmp_long=__ARRAY_STRING_IDECP[5]; if (__ARRAY_STRING_IDECP[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,58,"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(21,60,"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(21,61,"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(21,62,"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(21,63,"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(21,64,"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(21,65,"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(21,66,"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(21,67,"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(21,68,"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(21,69,"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(21,70,"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(21,71,"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(21,72,"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(21,73,"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(21,74,"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(21,75,"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(21,76,"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(21,77,"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(21,78,"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(21,79,"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(21,80,"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(21,81,"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(21,82,"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(21,83,"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(21,84,"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(21,85,"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(21,86,"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(21,87,"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(21,88,"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(21,89,"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(21,90,"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(21,91,"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(21,92,"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(21,93,"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(21,94,"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(21,95,"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(21,96,"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(21,97,"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(21,98,"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(21,99,"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(21,100,"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(21,101,"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(21,102,"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(21,103,"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(21,104,"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(21,105,"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(21,106,"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(21,107,"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(21,108,"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(21,109,"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(21,110,"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(21,111,"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(21,112,"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(21,113,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,115,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,116,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,117,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,1,"syntax_highlighter_list.bas");}while(r); do{ qbs_set(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("@?@$CHECKING@$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@_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@",2037)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21,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(21,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(21,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(21,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@",162))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21,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@",179))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21,7,"syntax_highlighter_list.bas");}while(r); do{ if(!qbevent)break;evnt(21,123,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,124,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,125,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,126,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,127,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,128,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,129,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,130,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,131,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,132,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,133,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,134,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDETXT[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDETXT[2]&1){ error(10); }else{ __ARRAY_STRING_IDETXT[4]= 0 ; __ARRAY_STRING_IDETXT[5]=( 1000 )-__ARRAY_STRING_IDETXT[4]+1; __ARRAY_STRING_IDETXT[6]=1; __ARRAY_STRING_IDETXT[0]=(ptrszint)malloc(__ARRAY_STRING_IDETXT[5]*8); if (!__ARRAY_STRING_IDETXT[0]) error(257); __ARRAY_STRING_IDETXT[2]|=1; tmp_long=__ARRAY_STRING_IDETXT[5]; if (__ARRAY_STRING_IDETXT[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,135,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,136,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,137,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,138,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,139,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,140,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,141,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,142,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,143,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,144,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,145,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,146,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,147,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,148,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,149,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,150,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); }else{ if (__ARRAY_STRING_SUBFUNCLIST[2]&1){ error(10); }else{ __ARRAY_STRING_SUBFUNCLIST[4]= 0 ; __ARRAY_STRING_SUBFUNCLIST[5]=( 0 )-__ARRAY_STRING_SUBFUNCLIST[4]+1; __ARRAY_STRING_SUBFUNCLIST[6]=1; __ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)malloc(__ARRAY_STRING_SUBFUNCLIST[5]*8); if (!__ARRAY_STRING_SUBFUNCLIST[0]) error(257); __ARRAY_STRING_SUBFUNCLIST[2]|=1; tmp_long=__ARRAY_STRING_SUBFUNCLIST[5]; if (__ARRAY_STRING_SUBFUNCLIST[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,151,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,152,"ide_global.bas");}while(r); do{ if (__ARRAY_LONG_QUICKNAVHISTORY[2]&2){ error(10); }else{ if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ error(10); }else{ __ARRAY_LONG_QUICKNAVHISTORY[4]= 0 ; __ARRAY_LONG_QUICKNAVHISTORY[5]=( 0 )-__ARRAY_LONG_QUICKNAVHISTORY[4]+1; __ARRAY_LONG_QUICKNAVHISTORY[6]=1; if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ __ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_QUICKNAVHISTORY[5]*4); memset((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),0,__ARRAY_LONG_QUICKNAVHISTORY[5]*4); }else{ __ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)calloc(__ARRAY_LONG_QUICKNAVHISTORY[5]*4,1); if (!__ARRAY_LONG_QUICKNAVHISTORY[0]) error(257); } __ARRAY_LONG_QUICKNAVHISTORY[2]|=1; } } if(!qbevent)break;evnt(21,153,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,154,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,155,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,156,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,157,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,158,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,159,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,160,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,161,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,193,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,194,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_MENU[2]&2){ error(10); }else{ if (__ARRAY_STRING_MENU[2]&1){ error(10); }else{ __ARRAY_STRING_MENU[8]= 1 ; __ARRAY_STRING_MENU[9]=( 10 )-__ARRAY_STRING_MENU[8]+1; __ARRAY_STRING_MENU[10]=1; __ARRAY_STRING_MENU[4]= 0 ; __ARRAY_STRING_MENU[5]=( 20 )-__ARRAY_STRING_MENU[4]+1; __ARRAY_STRING_MENU[6]=__ARRAY_STRING_MENU[10]*__ARRAY_STRING_MENU[9]; __ARRAY_STRING_MENU[0]=(ptrszint)malloc(__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9]*8); if (!__ARRAY_STRING_MENU[0]) error(257); __ARRAY_STRING_MENU[2]|=1; tmp_long=__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9]; if (__ARRAY_STRING_MENU[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,195,"ide_global.bas");}while(r); do{ if (__ARRAY_LONG_MENUSIZE[2]&2){ error(10); }else{ if (__ARRAY_LONG_MENUSIZE[2]&1){ error(10); }else{ __ARRAY_LONG_MENUSIZE[4]= 1 ; __ARRAY_LONG_MENUSIZE[5]=( 10 )-__ARRAY_LONG_MENUSIZE[4]+1; __ARRAY_LONG_MENUSIZE[6]=1; if (__ARRAY_LONG_MENUSIZE[2]&4){ __ARRAY_LONG_MENUSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_MENUSIZE[5]*4); memset((void*)(__ARRAY_LONG_MENUSIZE[0]),0,__ARRAY_LONG_MENUSIZE[5]*4); }else{ __ARRAY_LONG_MENUSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_MENUSIZE[5]*4,1); if (!__ARRAY_LONG_MENUSIZE[0]) error(257); } __ARRAY_LONG_MENUSIZE[2]|=1; } } if(!qbevent)break;evnt(21,196,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,197,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,198,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,199,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,200,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,201,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,202,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,203,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,204,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,205,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,206,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); }else{ if (__ARRAY_STRING_COLORSCHEMES[2]&1){ error(10); }else{ __ARRAY_STRING_COLORSCHEMES[4]= 0 ; __ARRAY_STRING_COLORSCHEMES[5]=( 0 )-__ARRAY_STRING_COLORSCHEMES[4]+1; __ARRAY_STRING_COLORSCHEMES[6]=1; __ARRAY_STRING_COLORSCHEMES[0]=(ptrszint)malloc(__ARRAY_STRING_COLORSCHEMES[5]*8); if (!__ARRAY_STRING_COLORSCHEMES[0]) error(257); __ARRAY_STRING_COLORSCHEMES[2]|=1; tmp_long=__ARRAY_STRING_COLORSCHEMES[5]; if (__ARRAY_STRING_COLORSCHEMES[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(21,207,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,208,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,209,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,210,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,211,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,212,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,213,"ide_global.bas");}while(r); do{ if(!qbevent)break;evnt(21,214,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_ONAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_ONAME[2]&1){ tmp_long=__ARRAY_STRING_ONAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_ONAME[0])); } __ARRAY_STRING_ONAME[4]= 0 ; __ARRAY_STRING_ONAME[5]=( 1000 )-__ARRAY_STRING_ONAME[4]+1; __ARRAY_STRING_ONAME[6]=1; __ARRAY_STRING_ONAME[0]=(ptrszint)malloc(__ARRAY_STRING_ONAME[5]*8); if (!__ARRAY_STRING_ONAME[0]) error(257); __ARRAY_STRING_ONAME[2]|=1; tmp_long=__ARRAY_STRING_ONAME[5]; if (__ARRAY_STRING_ONAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(23);}while(r); do{ if (__ARRAY_INTEGER_PL[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_PL[2]&1){ if (__ARRAY_INTEGER_PL[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); }else{ free((void*)(__ARRAY_INTEGER_PL[0])); } } __ARRAY_INTEGER_PL[4]= 0 ; __ARRAY_INTEGER_PL[5]=( 1000 )-__ARRAY_INTEGER_PL[4]+1; __ARRAY_INTEGER_PL[6]=1; if (__ARRAY_INTEGER_PL[2]&4){ __ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_PL[5]*2); memset((void*)(__ARRAY_INTEGER_PL[0]),0,__ARRAY_INTEGER_PL[5]*2); }else{ __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(24);}while(r); do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]); free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); } __ARRAY_STRING_PP_TYPEMOD[4]= 0 ; __ARRAY_STRING_PP_TYPEMOD[5]=( 0 )-__ARRAY_STRING_PP_TYPEMOD[4]+1; __ARRAY_STRING_PP_TYPEMOD[6]=1; __ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_TYPEMOD[5]*8); if (!__ARRAY_STRING_PP_TYPEMOD[0]) error(257); __ARRAY_STRING_PP_TYPEMOD[2]|=1; tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; if (__ARRAY_STRING_PP_TYPEMOD[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }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); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]); free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); } __ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; __ARRAY_STRING_PP_CONVERTEDMOD[5]=( 0 )-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; __ARRAY_STRING_PP_CONVERTEDMOD[6]=1; __ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_CONVERTEDMOD[5]*8); if (!__ARRAY_STRING_PP_CONVERTEDMOD[0]) error(257); __ARRAY_STRING_PP_CONVERTEDMOD[2]|=1; tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25);}while(r); do{ SUB_SET_ORDEROFOPERATIONS(); if(!qbevent)break;evnt(26);}while(r); do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_EVERYCASESET[2]&1){ if (__ARRAY_LONG_EVERYCASESET[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_EVERYCASESET[0])); }else{ free((void*)(__ARRAY_LONG_EVERYCASESET[0])); } } __ARRAY_LONG_EVERYCASESET[4]= 0 ; __ARRAY_LONG_EVERYCASESET[5]=( 100 )-__ARRAY_LONG_EVERYCASESET[4]+1; __ARRAY_LONG_EVERYCASESET[6]=1; if (__ARRAY_LONG_EVERYCASESET[2]&4){ __ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_EVERYCASESET[5]*4); memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,__ARRAY_LONG_EVERYCASESET[5]*4); }else{ __ARRAY_LONG_EVERYCASESET[0]=(ptrszint)calloc(__ARRAY_LONG_EVERYCASESET[5]*4,1); if (!__ARRAY_LONG_EVERYCASESET[0]) error(257); } __ARRAY_LONG_EVERYCASESET[2]|=1; } if(!qbevent)break;evnt(28);}while(r); do{ if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); }else{ free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); } } __ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=( 100 )-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1; if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ __ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4); memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4); }else{ __ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4,1); if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257); } __ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1; } if(!qbevent)break;evnt(29);}while(r); do{ if (__ARRAY_LONG_EXECLEVEL[2]&2){ error(10); }else{ if (__ARRAY_LONG_EXECLEVEL[2]&1){ error(10); }else{ __ARRAY_LONG_EXECLEVEL[4]= 0 ; __ARRAY_LONG_EXECLEVEL[5]=( 255 )-__ARRAY_LONG_EXECLEVEL[4]+1; __ARRAY_LONG_EXECLEVEL[6]=1; if (__ARRAY_LONG_EXECLEVEL[2]&4){ __ARRAY_LONG_EXECLEVEL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_EXECLEVEL[5]*4); memset((void*)(__ARRAY_LONG_EXECLEVEL[0]),0,__ARRAY_LONG_EXECLEVEL[5]*4); }else{ __ARRAY_LONG_EXECLEVEL[0]=(ptrszint)calloc(__ARRAY_LONG_EXECLEVEL[5]*4,1); if (!__ARRAY_LONG_EXECLEVEL[0]) error(257); } __ARRAY_LONG_EXECLEVEL[2]|=1; } } if(!qbevent)break;evnt(30);}while(r); do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12])->id=(++mem_lock_id); if (__ARRAY_STRING_USERDEFINE[2]&1){ tmp_long=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]); free((void*)(__ARRAY_STRING_USERDEFINE[0])); } __ARRAY_STRING_USERDEFINE[8]= 0 ; __ARRAY_STRING_USERDEFINE[9]=( 1 )-__ARRAY_STRING_USERDEFINE[8]+1; __ARRAY_STRING_USERDEFINE[10]=1; __ARRAY_STRING_USERDEFINE[4]= 0 ; __ARRAY_STRING_USERDEFINE[5]=( 100 )-__ARRAY_STRING_USERDEFINE[4]+1; __ARRAY_STRING_USERDEFINE[6]=__ARRAY_STRING_USERDEFINE[10]*__ARRAY_STRING_USERDEFINE[9]; __ARRAY_STRING_USERDEFINE[0]=(ptrszint)malloc(__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]*8); if (!__ARRAY_STRING_USERDEFINE[0]) error(257); __ARRAY_STRING_USERDEFINE[2]|=1; tmp_long=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; if (__ARRAY_STRING_USERDEFINE[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(31);}while(r); do{ if (__ARRAY_BYTE_INVALIDLINE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id); if (__ARRAY_BYTE_INVALIDLINE[2]&1){ if (__ARRAY_BYTE_INVALIDLINE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); }else{ free((void*)(__ARRAY_BYTE_INVALIDLINE[0])); } } __ARRAY_BYTE_INVALIDLINE[4]= 0 ; __ARRAY_BYTE_INVALIDLINE[5]=( 10000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; __ARRAY_BYTE_INVALIDLINE[6]=1; if (__ARRAY_BYTE_INVALIDLINE[2]&4){ __ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_INVALIDLINE[5]*1); memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1); }else{ __ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BYTE_INVALIDLINE[5]*1,1); if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257); } __ARRAY_BYTE_INVALIDLINE[2]|=1; } if(!qbevent)break;evnt(32);}while(r); do{ if (__ARRAY_BYTE_DEFINEELSE[2]&2){ error(10); }else{ if (__ARRAY_BYTE_DEFINEELSE[2]&1){ error(10); }else{ __ARRAY_BYTE_DEFINEELSE[4]= 0 ; __ARRAY_BYTE_DEFINEELSE[5]=( 255 )-__ARRAY_BYTE_DEFINEELSE[4]+1; __ARRAY_BYTE_DEFINEELSE[6]=1; if (__ARRAY_BYTE_DEFINEELSE[2]&4){ __ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_DEFINEELSE[5]*1); memset((void*)(__ARRAY_BYTE_DEFINEELSE[0]),0,__ARRAY_BYTE_DEFINEELSE[5]*1); }else{ __ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)calloc(__ARRAY_BYTE_DEFINEELSE[5]*1,1); if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257); } __ARRAY_BYTE_DEFINEELSE[2]|=1; } } if(!qbevent)break;evnt(33);}while(r); do{ if(!qbevent)break;evnt(34);}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(35);}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(35);}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(36);}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(37);}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(37);}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(38);}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(38);}while(r); S_275:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(39);if(r)goto S_275;} 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(39);}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(39);}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(39);}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(39);}while(r); } S_282:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ if(qbevent){evnt(40);if(r)goto S_282;} 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(40);}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(40);}while(r); } S_287:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ if(qbevent){evnt(41);if(r)goto S_287;} 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(41);}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(41);}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(41);}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(41);}while(r); } S_294:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||new_error){ if(qbevent){evnt(42);if(r)goto S_294;} 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(42);}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(42);}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(42);}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(42);}while(r); } do{ if(!qbevent)break;evnt(44);}while(r); do{ *__SINGLE_QB64_UPTIME=func_timer(NULL,0); if(!qbevent)break;evnt(46);}while(r); LABEL_NOINTERNALFOLDER:; if(qbevent){evnt(48);r=0;} S_303:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ if(qbevent){evnt(49);if(r)goto S_303;} do{ sub__screenshow(); if(!qbevent)break;evnt(50);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("QB64 cannot locate the 'internal' folder",40)); 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(51);}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(52);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Check that QB64 has been extracted properly.",44)); 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(53);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64_start.command' or enter './qb64' in Terminal.",70)); 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(54);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64'.",41)); 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(55);}while(r); S_310:; do{ if(qbevent){evnt(56);if(r)goto S_310;} do{ sub__limit( 1 ); if(!qbevent)break;evnt(57);}while(r); S_312:; 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(58);if(r)goto S_312;} do{ if(qbevent){evnt(59);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(59);}while(r); } do{ if(!qbevent)break;evnt(62);}while(r); do{ if(!qbevent)break;evnt(64);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(65);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(66);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(67);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(68);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(69);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(70);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(71);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(72);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(73);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(74);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(75);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(76);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(77);}while(r); do{ if (__ARRAY_LONG_DEPENDENCY[2]&2){ error(10); }else{ if (__ARRAY_LONG_DEPENDENCY[2]&1){ error(10); }else{ __ARRAY_LONG_DEPENDENCY[4]= 1 ; __ARRAY_LONG_DEPENDENCY[5]=(*__LONG_DEPENDENCY_LAST)-__ARRAY_LONG_DEPENDENCY[4]+1; __ARRAY_LONG_DEPENDENCY[6]=1; if (__ARRAY_LONG_DEPENDENCY[2]&4){ __ARRAY_LONG_DEPENDENCY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_DEPENDENCY[5]*4); memset((void*)(__ARRAY_LONG_DEPENDENCY[0]),0,__ARRAY_LONG_DEPENDENCY[5]*4); }else{ __ARRAY_LONG_DEPENDENCY[0]=(ptrszint)calloc(__ARRAY_LONG_DEPENDENCY[5]*4,1); if (!__ARRAY_LONG_DEPENDENCY[0]) error(257); } __ARRAY_LONG_DEPENDENCY[2]|=1; } } if(!qbevent)break;evnt(81);}while(r); do{ if(!qbevent)break;evnt(83);}while(r); do{ if(!qbevent)break;evnt(86);}while(r); do{ *__LONG_OS_BITS= 64 ; if(!qbevent)break;evnt(87);}while(r); S_334:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ if(qbevent){evnt(87);if(r)goto S_334;} do{ *__LONG_OS_BITS= 32 ; if(!qbevent)break;evnt(87);}while(r); } S_337:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ if(qbevent){evnt(89);if(r)goto S_337;} do{ qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 x32",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(89);}while(r); }else{ do{ qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 x64",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(89);}while(r); } do{ sub__title(__STRING_WINDOWTITLE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(90);}while(r); do{ if(!qbevent)break;evnt(92);}while(r); do{ if(!qbevent)break;evnt(93);}while(r); do{ if(!qbevent)break;evnt(94);}while(r); do{ if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5]; while(tmp_long--) { qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 13)); qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 21)); qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 29));} if (__ARRAY_UDT_USEDVARIABLELIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0])); }else{ free((void*)(__ARRAY_UDT_USEDVARIABLELIST[0])); } } __ARRAY_UDT_USEDVARIABLELIST[4]= 0 ; __ARRAY_UDT_USEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_USEDVARIABLELIST[4]+1; __ARRAY_UDT_USEDVARIABLELIST[6]=1; __ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_USEDVARIABLELIST[5]*296/8+1); if (!__ARRAY_UDT_USEDVARIABLELIST[0]) error(257); __ARRAY_UDT_USEDVARIABLELIST[2]|=1; tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5]; while(tmp_long--){ *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 13)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 21)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(296/8+1-1)*tmp_long+ 29)=qbs_new(0,0);} } if(!qbevent)break;evnt(106);}while(r); do{ if(!qbevent)break;evnt(107);}while(r); do{ if(!qbevent)break;evnt(108);}while(r); do{ if(!qbevent)break;evnt(109);}while(r); do{ if(!qbevent)break;evnt(110);}while(r); do{ if(!qbevent)break;evnt(111);}while(r); do{ if(!qbevent)break;evnt(112);}while(r); do{ if(!qbevent)break;evnt(115);}while(r); do{ if(!qbevent)break;evnt(116);}while(r); do{ if(!qbevent)break;evnt(117);}while(r); do{ if(!qbevent)break;evnt(118);}while(r); do{ if(!qbevent)break;evnt(120);}while(r); do{ if(!qbevent)break;evnt(122);}while(r); do{ if(!qbevent)break;evnt(123);}while(r); do{ if(!qbevent)break;evnt(124);}while(r); do{ if(!qbevent)break;evnt(125);}while(r); do{ *__LONG_OPTMAX= 256 ; if(!qbevent)break;evnt(126);}while(r); do{ if (__ARRAY_STRING256_OPT[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING256_OPT)[12])->id=(++mem_lock_id); if (__ARRAY_STRING256_OPT[2]&1){ if (__ARRAY_STRING256_OPT[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_STRING256_OPT[0])); }else{ free((void*)(__ARRAY_STRING256_OPT[0])); } } __ARRAY_STRING256_OPT[8]= 1 ; __ARRAY_STRING256_OPT[9]=(*__LONG_OPTMAX)-__ARRAY_STRING256_OPT[8]+1; __ARRAY_STRING256_OPT[10]=1; __ARRAY_STRING256_OPT[4]= 1 ; __ARRAY_STRING256_OPT[5]=( 10 )-__ARRAY_STRING256_OPT[4]+1; __ARRAY_STRING256_OPT[6]=__ARRAY_STRING256_OPT[10]*__ARRAY_STRING256_OPT[9]; if (__ARRAY_STRING256_OPT[2]&4){ __ARRAY_STRING256_OPT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256); memset((void*)(__ARRAY_STRING256_OPT[0]),0,__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256); }else{ __ARRAY_STRING256_OPT[0]=(ptrszint)calloc(__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9]*256,1); if (!__ARRAY_STRING256_OPT[0]) error(257); } __ARRAY_STRING256_OPT[2]|=1; } if(!qbevent)break;evnt(127);}while(r); do{ if (__ARRAY_INTEGER_OPTWORDS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_OPTWORDS)[12])->id=(++mem_lock_id); if (__ARRAY_INTEGER_OPTWORDS[2]&1){ if (__ARRAY_INTEGER_OPTWORDS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_OPTWORDS[0])); }else{ free((void*)(__ARRAY_INTEGER_OPTWORDS[0])); } } __ARRAY_INTEGER_OPTWORDS[8]= 1 ; __ARRAY_INTEGER_OPTWORDS[9]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_OPTWORDS[8]+1; __ARRAY_INTEGER_OPTWORDS[10]=1; __ARRAY_INTEGER_OPTWORDS[4]= 1 ; __ARRAY_INTEGER_OPTWORDS[5]=( 10 )-__ARRAY_INTEGER_OPTWORDS[4]+1; __ARRAY_INTEGER_OPTWORDS[6]=__ARRAY_INTEGER_OPTWORDS[10]*__ARRAY_INTEGER_OPTWORDS[9]; if (__ARRAY_INTEGER_OPTWORDS[2]&4){ __ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2); memset((void*)(__ARRAY_INTEGER_OPTWORDS[0]),0,__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2); }else{ __ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)calloc(__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9]*2,1); if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257); } __ARRAY_INTEGER_OPTWORDS[2]|=1; } if(!qbevent)break;evnt(131);}while(r); do{ if (__ARRAY_INTEGER_T[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_T)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_T[2]&1){ if (__ARRAY_INTEGER_T[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_T[0])); }else{ free((void*)(__ARRAY_INTEGER_T[0])); } } __ARRAY_INTEGER_T[4]= 1 ; __ARRAY_INTEGER_T[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_T[4]+1; __ARRAY_INTEGER_T[6]=1; if (__ARRAY_INTEGER_T[2]&4){ __ARRAY_INTEGER_T[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_T[5]*2); memset((void*)(__ARRAY_INTEGER_T[0]),0,__ARRAY_INTEGER_T[5]*2); }else{ __ARRAY_INTEGER_T[0]=(ptrszint)calloc(__ARRAY_INTEGER_T[5]*2,1); if (!__ARRAY_INTEGER_T[0]) error(257); } __ARRAY_INTEGER_T[2]|=1; } if(!qbevent)break;evnt(135);}while(r); do{ if (__ARRAY_INTEGER_LEV[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_LEV)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_LEV[2]&1){ if (__ARRAY_INTEGER_LEV[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_LEV[0])); }else{ free((void*)(__ARRAY_INTEGER_LEV[0])); } } __ARRAY_INTEGER_LEV[4]= 1 ; __ARRAY_INTEGER_LEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_LEV[4]+1; __ARRAY_INTEGER_LEV[6]=1; if (__ARRAY_INTEGER_LEV[2]&4){ __ARRAY_INTEGER_LEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_LEV[5]*2); memset((void*)(__ARRAY_INTEGER_LEV[0]),0,__ARRAY_INTEGER_LEV[5]*2); }else{ __ARRAY_INTEGER_LEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_LEV[5]*2,1); if (!__ARRAY_INTEGER_LEV[0]) error(257); } __ARRAY_INTEGER_LEV[2]|=1; } if(!qbevent)break;evnt(140);}while(r); do{ if (__ARRAY_INTEGER_ENTRYLEV[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ENTRYLEV)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_ENTRYLEV[2]&1){ if (__ARRAY_INTEGER_ENTRYLEV[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ENTRYLEV[0])); }else{ free((void*)(__ARRAY_INTEGER_ENTRYLEV[0])); } } __ARRAY_INTEGER_ENTRYLEV[4]= 1 ; __ARRAY_INTEGER_ENTRYLEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_ENTRYLEV[4]+1; __ARRAY_INTEGER_ENTRYLEV[6]=1; if (__ARRAY_INTEGER_ENTRYLEV[2]&4){ __ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_ENTRYLEV[5]*2); memset((void*)(__ARRAY_INTEGER_ENTRYLEV[0]),0,__ARRAY_INTEGER_ENTRYLEV[5]*2); }else{ __ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_ENTRYLEV[5]*2,1); if (!__ARRAY_INTEGER_ENTRYLEV[0]) error(257); } __ARRAY_INTEGER_ENTRYLEV[2]|=1; } if(!qbevent)break;evnt(141);}while(r); do{ if (__ARRAY_INTEGER_DITCHLEV[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DITCHLEV)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_DITCHLEV[2]&1){ if (__ARRAY_INTEGER_DITCHLEV[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_DITCHLEV[0])); }else{ free((void*)(__ARRAY_INTEGER_DITCHLEV[0])); } } __ARRAY_INTEGER_DITCHLEV[4]= 1 ; __ARRAY_INTEGER_DITCHLEV[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_DITCHLEV[4]+1; __ARRAY_INTEGER_DITCHLEV[6]=1; if (__ARRAY_INTEGER_DITCHLEV[2]&4){ __ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_DITCHLEV[5]*2); memset((void*)(__ARRAY_INTEGER_DITCHLEV[0]),0,__ARRAY_INTEGER_DITCHLEV[5]*2); }else{ __ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)calloc(__ARRAY_INTEGER_DITCHLEV[5]*2,1); if (!__ARRAY_INTEGER_DITCHLEV[0]) error(257); } __ARRAY_INTEGER_DITCHLEV[2]|=1; } if(!qbevent)break;evnt(142);}while(r); do{ if (__ARRAY_INTEGER_DONTPASS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DONTPASS)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_DONTPASS[2]&1){ if (__ARRAY_INTEGER_DONTPASS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_DONTPASS[0])); }else{ free((void*)(__ARRAY_INTEGER_DONTPASS[0])); } } __ARRAY_INTEGER_DONTPASS[4]= 1 ; __ARRAY_INTEGER_DONTPASS[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_DONTPASS[4]+1; __ARRAY_INTEGER_DONTPASS[6]=1; if (__ARRAY_INTEGER_DONTPASS[2]&4){ __ARRAY_INTEGER_DONTPASS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_DONTPASS[5]*2); memset((void*)(__ARRAY_INTEGER_DONTPASS[0]),0,__ARRAY_INTEGER_DONTPASS[5]*2); }else{ __ARRAY_INTEGER_DONTPASS[0]=(ptrszint)calloc(__ARRAY_INTEGER_DONTPASS[5]*2,1); if (!__ARRAY_INTEGER_DONTPASS[0]) error(257); } __ARRAY_INTEGER_DONTPASS[2]|=1; } if(!qbevent)break;evnt(143);}while(r); do{ if (__ARRAY_INTEGER_TEMPLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_TEMPLIST)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_TEMPLIST[2]&1){ if (__ARRAY_INTEGER_TEMPLIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_TEMPLIST[0])); }else{ free((void*)(__ARRAY_INTEGER_TEMPLIST[0])); } } __ARRAY_INTEGER_TEMPLIST[4]= 1 ; __ARRAY_INTEGER_TEMPLIST[5]=(*__LONG_OPTMAX)-__ARRAY_INTEGER_TEMPLIST[4]+1; __ARRAY_INTEGER_TEMPLIST[6]=1; if (__ARRAY_INTEGER_TEMPLIST[2]&4){ __ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_TEMPLIST[5]*2); memset((void*)(__ARRAY_INTEGER_TEMPLIST[0]),0,__ARRAY_INTEGER_TEMPLIST[5]*2); }else{ __ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_TEMPLIST[5]*2,1); if (!__ARRAY_INTEGER_TEMPLIST[0]) error(257); } __ARRAY_INTEGER_TEMPLIST[2]|=1; } if(!qbevent)break;evnt(145);}while(r); do{ if (__ARRAY_LONG_PASSRULE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_PASSRULE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_PASSRULE[2]&1){ if (__ARRAY_LONG_PASSRULE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_PASSRULE[0])); }else{ free((void*)(__ARRAY_LONG_PASSRULE[0])); } } __ARRAY_LONG_PASSRULE[4]= 1 ; __ARRAY_LONG_PASSRULE[5]=(*__LONG_OPTMAX)-__ARRAY_LONG_PASSRULE[4]+1; __ARRAY_LONG_PASSRULE[6]=1; if (__ARRAY_LONG_PASSRULE[2]&4){ __ARRAY_LONG_PASSRULE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_PASSRULE[5]*4); memset((void*)(__ARRAY_LONG_PASSRULE[0]),0,__ARRAY_LONG_PASSRULE[5]*4); }else{ __ARRAY_LONG_PASSRULE[0]=(ptrszint)calloc(__ARRAY_LONG_PASSRULE[5]*4,1); if (!__ARRAY_LONG_PASSRULE[0]) error(257); } __ARRAY_LONG_PASSRULE[2]|=1; } if(!qbevent)break;evnt(146);}while(r); do{ if (__ARRAY_LONG_LEVELENTERED[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_LEVELENTERED)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_LEVELENTERED[2]&1){ if (__ARRAY_LONG_LEVELENTERED[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_LEVELENTERED[0])); }else{ free((void*)(__ARRAY_LONG_LEVELENTERED[0])); } } __ARRAY_LONG_LEVELENTERED[4]= 0 ; __ARRAY_LONG_LEVELENTERED[5]=(*__LONG_OPTMAX)-__ARRAY_LONG_LEVELENTERED[4]+1; __ARRAY_LONG_LEVELENTERED[6]=1; if (__ARRAY_LONG_LEVELENTERED[2]&4){ __ARRAY_LONG_LEVELENTERED[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_LEVELENTERED[5]*4); memset((void*)(__ARRAY_LONG_LEVELENTERED[0]),0,__ARRAY_LONG_LEVELENTERED[5]*4); }else{ __ARRAY_LONG_LEVELENTERED[0]=(ptrszint)calloc(__ARRAY_LONG_LEVELENTERED[5]*4,1); if (!__ARRAY_LONG_LEVELENTERED[0]) error(257); } __ARRAY_LONG_LEVELENTERED[2]|=1; } if(!qbevent)break;evnt(150);}while(r); do{ if (__ARRAY_STRING_SEPARGS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_SEPARGS[2]&1){ tmp_long=__ARRAY_STRING_SEPARGS[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]); free((void*)(__ARRAY_STRING_SEPARGS[0])); } __ARRAY_STRING_SEPARGS[4]= 0 ; __ARRAY_STRING_SEPARGS[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGS[4]+1; __ARRAY_STRING_SEPARGS[6]=1; __ARRAY_STRING_SEPARGS[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGS[5]*8); if (!__ARRAY_STRING_SEPARGS[0]) error(257); __ARRAY_STRING_SEPARGS[2]|=1; tmp_long=__ARRAY_STRING_SEPARGS[5]; if (__ARRAY_STRING_SEPARGS[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(151);}while(r); do{ if (__ARRAY_STRING_SEPARGSLAYOUT[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_SEPARGSLAYOUT[2]&1){ tmp_long=__ARRAY_STRING_SEPARGSLAYOUT[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]); free((void*)(__ARRAY_STRING_SEPARGSLAYOUT[0])); } __ARRAY_STRING_SEPARGSLAYOUT[4]= 0 ; __ARRAY_STRING_SEPARGSLAYOUT[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4]+1; __ARRAY_STRING_SEPARGSLAYOUT[6]=1; __ARRAY_STRING_SEPARGSLAYOUT[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGSLAYOUT[5]*8); if (!__ARRAY_STRING_SEPARGSLAYOUT[0]) error(257); __ARRAY_STRING_SEPARGSLAYOUT[2]|=1; tmp_long=__ARRAY_STRING_SEPARGSLAYOUT[5]; if (__ARRAY_STRING_SEPARGSLAYOUT[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(152);}while(r); do{ if (__ARRAY_STRING_SEPARGS2[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS2)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_SEPARGS2[2]&1){ tmp_long=__ARRAY_STRING_SEPARGS2[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]); free((void*)(__ARRAY_STRING_SEPARGS2[0])); } __ARRAY_STRING_SEPARGS2[4]= 0 ; __ARRAY_STRING_SEPARGS2[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGS2[4]+1; __ARRAY_STRING_SEPARGS2[6]=1; __ARRAY_STRING_SEPARGS2[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGS2[5]*8); if (!__ARRAY_STRING_SEPARGS2[0]) error(257); __ARRAY_STRING_SEPARGS2[2]|=1; tmp_long=__ARRAY_STRING_SEPARGS2[5]; if (__ARRAY_STRING_SEPARGS2[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(153);}while(r); do{ if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT2)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&1){ tmp_long=__ARRAY_STRING_SEPARGSLAYOUT2[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]); free((void*)(__ARRAY_STRING_SEPARGSLAYOUT2[0])); } __ARRAY_STRING_SEPARGSLAYOUT2[4]= 0 ; __ARRAY_STRING_SEPARGSLAYOUT2[5]=(*__LONG_OPTMAX+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT2[4]+1; __ARRAY_STRING_SEPARGSLAYOUT2[6]=1; __ARRAY_STRING_SEPARGSLAYOUT2[0]=(ptrszint)malloc(__ARRAY_STRING_SEPARGSLAYOUT2[5]*8); if (!__ARRAY_STRING_SEPARGSLAYOUT2[0]) error(257); __ARRAY_STRING_SEPARGSLAYOUT2[2]|=1; tmp_long=__ARRAY_STRING_SEPARGSLAYOUT2[5]; if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(154);}while(r); do{ if(!qbevent)break;evnt(160);}while(r); do{ if(!qbevent)break;evnt(171);}while(r); do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){ tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]); free((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0])); } __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=( 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]*8); if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257); __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1; tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(172);}while(r); do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){ tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0])); } __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=( 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]*8); if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257); __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1; tmp_long=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(173);}while(r); do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); }else{ free((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); } } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=( 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1; if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4); memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4); }else{ __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]*4,1); if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; } if(!qbevent)break;evnt(174);}while(r); do{ if(!qbevent)break;evnt(180);}while(r); do{ if(!qbevent)break;evnt(181);}while(r); do{ if(!qbevent)break;evnt(183);}while(r); do{ qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(184);}while(r); S_386:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||new_error){ if(qbevent){evnt(185);if(r)goto S_386;} do{ qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(185);}while(r); } do{ if(!qbevent)break;evnt(187);}while(r); S_390:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(188);if(r)goto S_390;} do{ *__LONG_MACOSX= 1 ; if(!qbevent)break;evnt(188);}while(r); } do{ if(!qbevent)break;evnt(190);}while(r); S_394:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(191);if(r)goto S_394;} do{ *__LONG_INLINE_DATA= 1 ; if(!qbevent)break;evnt(191);}while(r); } do{ if(!qbevent)break;evnt(193);}while(r); do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(194);}while(r); S_399:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(195);if(r)goto S_399;} do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(195);}while(r); } S_402:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(196);if(r)goto S_402;} do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(196);}while(r); } do{ if (__ARRAY_STRING_INLINEDATASTR[2]&2){ error(10); }else{ if (__ARRAY_STRING_INLINEDATASTR[2]&1){ error(10); }else{ __ARRAY_STRING_INLINEDATASTR[4]= 0 ; __ARRAY_STRING_INLINEDATASTR[5]=( 255 )-__ARRAY_STRING_INLINEDATASTR[4]+1; __ARRAY_STRING_INLINEDATASTR[6]=1; __ARRAY_STRING_INLINEDATASTR[0]=(ptrszint)malloc(__ARRAY_STRING_INLINEDATASTR[5]*8); if (!__ARRAY_STRING_INLINEDATASTR[0]) error(257); __ARRAY_STRING_INLINEDATASTR[2]|=1; tmp_long=__ARRAY_STRING_INLINEDATASTR[5]; if (__ARRAY_STRING_INLINEDATASTR[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(199);}while(r); S_406:; 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(200);if(r)goto S_406;} 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(201);}while(r); fornext_continue_8:; } fornext_exit_8:; do{ if(!qbevent)break;evnt(205);}while(r); do{ if(!qbevent)break;evnt(206);}while(r); do{ qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(207);}while(r); S_412:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(208);if(r)goto S_412;} do{ qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(208);}while(r); } do{ if(!qbevent)break;evnt(210);}while(r); do{ qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(211);}while(r); S_417:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(212);if(r)goto S_417;} do{ qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(212);}while(r); } do{ error_goto_line=1; if(!qbevent)break;evnt(215);}while(r); do{ if(!qbevent)break;evnt(217);}while(r); S_422:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(218);if(r)goto S_422;} do{ qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(218);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(218);}while(r); } S_426:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(219);if(r)goto S_426;} do{ qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(219);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(219);}while(r); } S_430:; if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||new_error){ if(qbevent){evnt(221);if(r)goto S_430;} do{ sub_mkdir(__STRING_TMPDIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(221);}while(r); } do{ *__LONG_THISINSTANCEPID=( int32 )getpid(); if(!qbevent)break;evnt(227);}while(r); do{ if(!qbevent)break;evnt(228);}while(r); S_435:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ if(qbevent){evnt(230);if(r)goto S_435;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(231);}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(232);}while(r); do{ *__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4))); if(!qbevent)break;evnt(233);}while(r); do{ *__LONG_I= 1 ; if(!qbevent)break;evnt(234);}while(r); S_440:; if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||new_error){ if(qbevent){evnt(235);if(r)goto S_440;} do{ sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1); if(!qbevent)break;evnt(237);}while(r); }else{ S_443:; 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(239);if(r)goto S_443;} do{ sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1); if(!qbevent)break;evnt(241);}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(243);}while(r); do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(244);}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(245);}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(246);}while(r); do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(247);}while(r); S_450:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_CHECKPID)== 1 )))||new_error){ if(qbevent){evnt(248);if(r)goto S_450;} do{ sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1); if(!qbevent)break;evnt(251);}while(r); do{ goto fornext_exit_13; if(!qbevent)break;evnt(252);}while(r); } fornext_continue_13:; } fornext_exit_13:; S_455:; if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||new_error){ if(qbevent){evnt(255);if(r)goto S_455;} do{ sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1); if(!qbevent)break;evnt(257);}while(r); } } do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(260);}while(r); S_460:; if ((-(*__LONG_I> 1 ))||new_error){ if(qbevent){evnt(261);if(r)goto S_460;} 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(262);}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(262);}while(r); S_463:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||new_error){ if(qbevent){evnt(263);if(r)goto S_463;} do{ sub_mkdir(__STRING_TMPDIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(264);}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(267);}while(r); }else{ do{ error_goto_line=2; if(!qbevent)break;evnt(269);}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(270);}while(r); do{ *__LONG_I= 1 ; if(!qbevent)break;evnt(271);}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(272);}while(r); S_473:; while((*__LONG_E)||new_error){ if(qbevent){evnt(273);if(r)goto S_473;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(274);}while(r); S_475:; if ((-(*__LONG_I== 1000 ))||new_error){ if(qbevent){evnt(275);if(r)goto S_475;} 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(275);}while(r); do{ if(qbevent){evnt(275);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(275);}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(276);}while(r); S_480:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(277);if(r)goto S_480;} 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(277);}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(277);}while(r); } S_484:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(278);if(r)goto S_484;} 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(278);}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(278);}while(r); } do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(279);}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(280);}while(r); dl_continue_19:; } dl_exit_19:; } do{ *__LONG_TEMPFOLDERINDEX=*__LONG_I; if(!qbevent)break;evnt(286);}while(r); S_493:; if ((-(*__LONG_I> 1 ))||new_error){ if(qbevent){evnt(287);if(r)goto S_493;} 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(289);}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(290);}while(r); S_496:; while((!(func_eof( 1 )))||new_error){ if(qbevent){evnt(291);if(r)goto S_496;} 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(292);}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(293);}while(r); S_499:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(293);if(r)goto S_499;} 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(293);}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(294);}while(r); S_503:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(294);if(r)goto S_503;} 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(294);}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(295);}while(r); dl_continue_21:; } dl_exit_21:; do{ sub_close( 1 ,1); sub_close( 2 ,1); if(!qbevent)break;evnt(297);}while(r); } S_510:; if (( 0 )||new_error){ if(qbevent){evnt(300);if(r)goto S_510;} 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(300);}while(r); } do{ error_goto_line=3; if(!qbevent)break;evnt(302);}while(r); do{ if(!qbevent)break;evnt(306);}while(r); do{ if(!qbevent)break;evnt(307);}while(r); S_516:; if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||new_error){ if(qbevent){evnt(308);if(r)goto S_516;} 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(308);}while(r); do{ qbs_set(__STRING_TEMPFOLDERINDEXSTR2,FUNC_STR2(__LONG_TEMPFOLDERINDEX)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(308);}while(r); } do{ if(!qbevent)break;evnt(311);}while(r); do{ if(!qbevent)break;evnt(312);}while(r); do{ if(!qbevent)break;evnt(313);}while(r); do{ if(!qbevent)break;evnt(315);}while(r); do{ if(!qbevent)break;evnt(317);}while(r); do{ if(!qbevent)break;evnt(318);}while(r); do{ if(!qbevent)break;evnt(321);}while(r); do{ *__LONG_SYMBOLTYPE_SIZE= 0 ; if(!qbevent)break;evnt(322);}while(r); do{ if(!qbevent)break;evnt(324);}while(r); do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(325);}while(r); do{ if(!qbevent)break;evnt(329);}while(r); do{ if(!qbevent)break;evnt(330);}while(r); do{ if(!qbevent)break;evnt(331);}while(r); do{ if(!qbevent)break;evnt(332);}while(r); do{ if(!qbevent)break;evnt(333);}while(r); do{ if(!qbevent)break;evnt(334);}while(r); do{ if(!qbevent)break;evnt(336);}while(r); do{ if(!qbevent)break;evnt(339);}while(r); do{ if(!qbevent)break;evnt(340);}while(r); do{ if(!qbevent)break;evnt(341);}while(r); do{ if(!qbevent)break;evnt(342);}while(r); do{ if(!qbevent)break;evnt(343);}while(r); do{ if(!qbevent)break;evnt(344);}while(r); do{ if(!qbevent)break;evnt(345);}while(r); do{ if(!qbevent)break;evnt(347,1,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,2,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,3,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,4,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,5,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,6,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,7,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,8,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,9,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,10,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,11,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,12,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,13,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,14,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,15,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,16,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,17,"IDEsettings.bas");}while(r); do{ if(!qbevent)break;evnt(347,18,"IDEsettings.bas");}while(r); S_562:; if ((-(*__INTEGER_LOADEDIDESETTINGS== 0 ))||new_error){ if(qbevent){evnt(347,20,"IDEsettings.bas");if(r)goto S_562;} do{ *__INTEGER_LOADEDIDESETTINGS= -1 ; if(!qbevent)break;evnt(347,25,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.txt",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,27,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_CONFIGBAK,qbs_new_txt_len("internal/config.bak",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,28,"IDEsettings.bas");}while(r); do{ return_point[next_return_point++]=1; if (next_return_point>=return_points) more_return_points(); goto LABEL_CHECKCONFIGFILEEXISTS; RETURN_1:; if(!qbevent)break;evnt(347,30,"IDEsettings.bas");}while(r); do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("AllowIndependentSettings",24),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,32,"IDEsettings.bas");}while(r); S_568:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,33,"IDEsettings.bas");if(r)goto S_568;} S_569:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ if(qbevent){evnt(347,34,"IDEsettings.bas");if(r)goto S_569;} do{ qbs_set(__STRING_IDE_INDEX,qbs_add(qbs_add(qbs_new_txt_len("(",1),qbs_ltrim(qbs_rtrim(qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,35,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_CONFIGFILE,qbs_add(qbs_add(qbs_new_txt_len("internal/config",15),__STRING_IDE_INDEX),qbs_new_txt_len(".txt",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,36,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_CONFIGBAK,qbs_add(qbs_add(qbs_new_txt_len("internal/config",15),__STRING_IDE_INDEX),qbs_new_txt_len(".bak",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,37,"IDEsettings.bas");}while(r); do{ return_point[next_return_point++]=2; if (next_return_point>=return_points) more_return_points(); goto LABEL_CHECKCONFIGFILEEXISTS; RETURN_2:; if(!qbevent)break;evnt(347,38,"IDEsettings.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,40,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_IDE_INDEX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,41,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,44,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_IDE_INDEX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,45,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ConfigVersion",13),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,48,"IDEsettings.bas");}while(r); do{ *__LONG_CONFIGFILEVERSION=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,49,"IDEsettings.bas");}while(r); do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("CommentColor",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,51,"IDEsettings.bas");}while(r); S_585:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,52,"IDEsettings.bas");if(r)goto S_585;} do{ *__ULONG_IDECOMMENTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass26=func__rgb32( 98 , 98 , 98 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,53,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDECOMMENTCOLOR=func__rgb32( 98 , 98 , 98 ); if(!qbevent)break;evnt(347,55,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("CommentColor",12),qbs_new_txt_len("_RGB32(98,98,98)",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,56,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("CustomKeywords$",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,59,"IDEsettings.bas");}while(r); S_592:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,60,"IDEsettings.bas");if(r)goto S_592;} do{ qbs_set(__STRING_TEMPLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,61,"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(347,62,"IDEsettings.bas");}while(r); S_595:; fornext_value28= 1 ; fornext_finalvalue28=__STRING_LISTOFCUSTOMKEYWORDS->len; fornext_step28= 1 ; if (fornext_step28<0) fornext_step_negative28=1; else fornext_step_negative28=0; if (new_error) goto fornext_error28; goto fornext_entrylabel28; while(1){ fornext_value28=fornext_step28+(*__LONG_I); fornext_entrylabel28: *__LONG_I=fornext_value28; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative28){ if (fornext_value28fornext_finalvalue28) break; } fornext_error28:; if(qbevent){evnt(347,63,"IDEsettings.bas");if(r)goto S_595;} do{ *__LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,64,"IDEsettings.bas");}while(r); S_597:; if ((-(*__LONG_CHECKCHAR== 64 ))||new_error){ if(qbevent){evnt(347,65,"IDEsettings.bas");if(r)goto S_597;} S_598:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ if(qbevent){evnt(347,66,"IDEsettings.bas");if(r)goto S_598;} do{ qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,qbs_new_txt_len("@",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,66,"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(347,68,"IDEsettings.bas");}while(r); } fornext_continue_27:; } fornext_exit_27:; do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_TEMPLIST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,71,"IDEsettings.bas");}while(r); do{ *__LONG_CUSTOMKEYWORDSLENGTH=__STRING_LISTOFCUSTOMKEYWORDS->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,72,"IDEsettings.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CUSTOM DICTIONARIES]",22),qbs_new_txt_len("CustomKeywordsSyntax$",21),qbs_new_txt_len("@custom@keywords@separated@by@the@at@sign@",42)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,74,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CUSTOM DICTIONARIES]",22),qbs_new_txt_len("CustomKeywords$",15),qbs_new_txt_len("@",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,75,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("MetaCommandColor",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,78,"IDEsettings.bas");}while(r); S_612:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,79,"IDEsettings.bas");if(r)goto S_612;} do{ *__ULONG_IDEMETACOMMANDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass31=func__rgb32( 85 , 206 , 85 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,80,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 206 , 85 ); if(!qbevent)break;evnt(347,82,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("MetaCommandColor",16),qbs_new_txt_len("_RGB32(85,206,85)",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,83,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("KeywordColor",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,86,"IDEsettings.bas");}while(r); S_619:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,87,"IDEsettings.bas");if(r)goto S_619;} do{ *__ULONG_IDEKEYWORDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass32=func__rgb32( 69 , 118 , 147 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,88,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEKEYWORDCOLOR=func__rgb32( 69 , 118 , 147 ); if(!qbevent)break;evnt(347,90,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("KeywordColor",12),qbs_new_txt_len("_RGB32(69,118,147)",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,91,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("HighlightColor",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,94,"IDEsettings.bas");}while(r); S_626:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,95,"IDEsettings.bas");if(r)goto S_626;} do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass33=func__rgb32( 0 , 88 , 108 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,96,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 88 , 108 ); if(!qbevent)break;evnt(347,98,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("HighlightColor",14),qbs_new_txt_len("_RGB32(0,88,108)",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,99,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("NumbersColor",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,102,"IDEsettings.bas");}while(r); S_633:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,103,"IDEsettings.bas");if(r)goto S_633;} do{ *__ULONG_IDENUMBERSCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass34=func__rgb32( 216 , 98 , 78 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,104,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDENUMBERSCOLOR=func__rgb32( 216 , 98 , 78 ); if(!qbevent)break;evnt(347,106,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("NumbersColor",12),qbs_new_txt_len("_RGB32(216,98,78)",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,107,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("QuoteColor",10),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,110,"IDEsettings.bas");}while(r); S_640:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,111,"IDEsettings.bas");if(r)goto S_640;} do{ *__ULONG_IDEQUOTECOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass35=func__rgb32( 255 , 167 , 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,112,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 167 , 0 ); if(!qbevent)break;evnt(347,114,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("QuoteColor",10),qbs_new_txt_len("_RGB32(255,167,0)",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,115,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("TextColor",9),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,118,"IDEsettings.bas");}while(r); S_647:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,119,"IDEsettings.bas");if(r)goto S_647;} do{ *__ULONG_IDETEXTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass36=func__rgb32( 216 , 216 , 216 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,120,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDETEXTCOLOR=func__rgb32( 216 , 216 , 216 ); if(!qbevent)break;evnt(347,122,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("TextColor",9),qbs_new_txt_len("_RGB32(216,216,216)",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,123,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackgroundColor",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,126,"IDEsettings.bas");}while(r); S_654:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,127,"IDEsettings.bas");if(r)goto S_654;} do{ *__ULONG_IDEBACKGROUNDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass37=func__rgb32( 0 , 0 , 39 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,128,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 39 ); if(!qbevent)break;evnt(347,130,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("BackgroundColor",15),qbs_new_txt_len("_RGB32(0,0,39)",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,131,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackgroundColor2",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,134,"IDEsettings.bas");}while(r); S_661:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,135,"IDEsettings.bas");if(r)goto S_661;} do{ *__ULONG_IDEBACKGROUNDCOLOR2=FUNC_VRGBS(__STRING_VALUE,&(pass38=func__rgb32( 0 , 49 , 78 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,136,"IDEsettings.bas");}while(r); }else{ do{ *__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 49 , 78 ); if(!qbevent)break;evnt(347,138,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("BackgroundColor2",16),qbs_new_txt_len("_RGB32(0,49,78)",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,139,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SwapMouseButton",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,142,"IDEsettings.bas");}while(r); S_668:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,143,"IDEsettings.bas");if(r)goto S_668;} do{ *__BYTE_MOUSEBUTTONSWAPPED= -1 ; if(!qbevent)break;evnt(347,144,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,145,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_MOUSEBUTTONSWAPPED= 0 ; if(!qbevent)break;evnt(347,147,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,148,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("DisableSyntaxHighlighter",24),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,151,"IDEsettings.bas");}while(r); S_676:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,152,"IDEsettings.bas");if(r)goto S_676;} do{ *__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; if(!qbevent)break;evnt(347,153,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,154,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; if(!qbevent)break;evnt(347,156,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,157,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("PasteCursorAtEnd",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,160,"IDEsettings.bas");}while(r); S_684:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,161,"IDEsettings.bas");if(r)goto S_684;} S_685:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,162,"IDEsettings.bas");if(r)goto S_685;} do{ *__BYTE_PASTECURSORATEND= -1 ; if(!qbevent)break;evnt(347,163,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_PASTECURSORATEND= 0 ; if(!qbevent)break;evnt(347,165,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,166,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,169,"IDEsettings.bas");}while(r); do{ *__BYTE_PASTECURSORATEND= -1 ; if(!qbevent)break;evnt(347,170,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,173,"IDEsettings.bas");}while(r); S_696:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,174,"IDEsettings.bas");if(r)goto S_696;} S_697:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,175,"IDEsettings.bas");if(r)goto S_697;} do{ *__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; if(!qbevent)break;evnt(347,176,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; if(!qbevent)break;evnt(347,178,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,179,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,182,"IDEsettings.bas");}while(r); do{ *__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; if(!qbevent)break;evnt(347,183,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,186,"IDEsettings.bas");}while(r); S_708:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,187,"IDEsettings.bas");if(r)goto S_708;} S_709:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,188,"IDEsettings.bas");if(r)goto S_709;} do{ *__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; if(!qbevent)break;evnt(347,189,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; if(!qbevent)break;evnt(347,191,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,192,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,195,"IDEsettings.bas");}while(r); do{ *__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; if(!qbevent)break;evnt(347,196,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SaveExeWithSource",17),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,199,"IDEsettings.bas");}while(r); S_720:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,200,"IDEsettings.bas");if(r)goto S_720;} S_721:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,201,"IDEsettings.bas");if(r)goto S_721;} do{ *__BYTE_SAVEEXEWITHSOURCE= -1 ; if(!qbevent)break;evnt(347,202,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_SAVEEXEWITHSOURCE= 0 ; if(!qbevent)break;evnt(347,204,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,205,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,208,"IDEsettings.bas");}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE= 0 ; if(!qbevent)break;evnt(347,209,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("EnableQuickNav",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,212,"IDEsettings.bas");}while(r); S_732:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,213,"IDEsettings.bas");if(r)goto S_732;} S_733:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,214,"IDEsettings.bas");if(r)goto S_733;} do{ *__BYTE_ENABLEQUICKNAV= -1 ; if(!qbevent)break;evnt(347,215,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_ENABLEQUICKNAV= 0 ; if(!qbevent)break;evnt(347,217,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,218,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,221,"IDEsettings.bas");}while(r); do{ *__BYTE_ENABLEQUICKNAV= -1 ; if(!qbevent)break;evnt(347,222,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_SortSUBs",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,225,"IDEsettings.bas");}while(r); S_744:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,226,"IDEsettings.bas");if(r)goto S_744;} S_745:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,227,"IDEsettings.bas");if(r)goto S_745;} do{ *__BYTE_IDESORTSUBS= -1 ; if(!qbevent)break;evnt(347,228,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDESORTSUBS= 0 ; if(!qbevent)break;evnt(347,230,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,231,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,234,"IDEsettings.bas");}while(r); do{ *__BYTE_IDESORTSUBS= 0 ; if(!qbevent)break;evnt(347,235,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_SUBsLength",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,238,"IDEsettings.bas");}while(r); S_756:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,239,"IDEsettings.bas");if(r)goto S_756;} S_757:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,240,"IDEsettings.bas");if(r)goto S_757;} do{ *__BYTE_IDESUBSLENGTH= -1 ; if(!qbevent)break;evnt(347,241,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDESUBSLENGTH= 0 ; if(!qbevent)break;evnt(347,243,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,244,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,247,"IDEsettings.bas");}while(r); do{ *__BYTE_IDESUBSLENGTH= -1 ; if(!qbevent)break;evnt(347,248,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowErrorsImmediately",21),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,251,"IDEsettings.bas");}while(r); S_768:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,252,"IDEsettings.bas");if(r)goto S_768;} S_769:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,253,"IDEsettings.bas");if(r)goto S_769;} do{ *__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; if(!qbevent)break;evnt(347,254,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDESHOWERRORSIMMEDIATELY= 0 ; if(!qbevent)break;evnt(347,256,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,257,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,260,"IDEsettings.bas");}while(r); do{ *__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; if(!qbevent)break;evnt(347,261,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbers",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,264,"IDEsettings.bas");}while(r); S_780:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,265,"IDEsettings.bas");if(r)goto S_780;} S_781:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,266,"IDEsettings.bas");if(r)goto S_781;} do{ *__BYTE_SHOWLINENUMBERS= -1 ; if(!qbevent)break;evnt(347,267,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_SHOWLINENUMBERS= 0 ; if(!qbevent)break;evnt(347,269,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,270,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,273,"IDEsettings.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERS= -1 ; if(!qbevent)break;evnt(347,274,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbersSeparator",24),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,277,"IDEsettings.bas");}while(r); S_792:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,278,"IDEsettings.bas");if(r)goto S_792;} S_793:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,279,"IDEsettings.bas");if(r)goto S_793;} do{ *__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; if(!qbevent)break;evnt(347,280,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_SHOWLINENUMBERSSEPARATOR= 0 ; if(!qbevent)break;evnt(347,282,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,283,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,286,"IDEsettings.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; if(!qbevent)break;evnt(347,287,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbersUseBG",20),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,290,"IDEsettings.bas");}while(r); S_804:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,291,"IDEsettings.bas");if(r)goto S_804;} S_805:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,292,"IDEsettings.bas");if(r)goto S_805;} do{ *__BYTE_SHOWLINENUMBERSUSEBG= -1 ; if(!qbevent)break;evnt(347,293,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_SHOWLINENUMBERSUSEBG= 0 ; if(!qbevent)break;evnt(347,295,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,296,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,299,"IDEsettings.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSUSEBG= -1 ; if(!qbevent)break;evnt(347,300,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BracketHighlight",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,303,"IDEsettings.bas");}while(r); S_816:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,304,"IDEsettings.bas");if(r)goto S_816;} S_817:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,305,"IDEsettings.bas");if(r)goto S_817;} do{ *__INTEGER_BRACKETHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,306,"IDEsettings.bas");}while(r); }else{ do{ *__INTEGER_BRACKETHIGHLIGHT= 0 ; if(!qbevent)break;evnt(347,308,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,309,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,312,"IDEsettings.bas");}while(r); do{ *__INTEGER_BRACKETHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,313,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("KeywordHighlight",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,316,"IDEsettings.bas");}while(r); S_828:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,317,"IDEsettings.bas");if(r)goto S_828;} S_829:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,318,"IDEsettings.bas");if(r)goto S_829;} do{ *__INTEGER_KEYWORDHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,319,"IDEsettings.bas");}while(r); }else{ do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; if(!qbevent)break;evnt(347,321,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,322,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,325,"IDEsettings.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,326,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("MultiHighlight",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,329,"IDEsettings.bas");}while(r); S_840:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,330,"IDEsettings.bas");if(r)goto S_840;} S_841:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ if(qbevent){evnt(347,331,"IDEsettings.bas");if(r)goto S_841;} do{ *__INTEGER_MULTIHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,332,"IDEsettings.bas");}while(r); }else{ do{ *__INTEGER_MULTIHIGHLIGHT= 0 ; if(!qbevent)break;evnt(347,334,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,335,"IDEsettings.bas");}while(r); } }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,338,"IDEsettings.bas");}while(r); do{ *__INTEGER_MULTIHIGHLIGHT= -1 ; if(!qbevent)break;evnt(347,339,"IDEsettings.bas");}while(r); } S_851:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(347,342,"IDEsettings.bas");if(r)goto S_851;} do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoPosition",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,343,"IDEsettings.bas");}while(r); S_853:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,344,"IDEsettings.bas");if(r)goto S_853;} S_854:; 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(347,345,"IDEsettings.bas");if(r)goto S_854;} do{ *__BYTE_IDE_AUTOPOSITION= -1 ; if(!qbevent)break;evnt(347,346,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDE_AUTOPOSITION= 0 ; if(!qbevent)break;evnt(347,348,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,349,"IDEsettings.bas");}while(r); } }else{ do{ *__BYTE_IDE_AUTOPOSITION= -1 ; if(!qbevent)break;evnt(347,352,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,353,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_TopPosition",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,356,"IDEsettings.bas");}while(r); S_865:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,357,"IDEsettings.bas");if(r)goto S_865;} do{ *__INTEGER_IDE_TOPPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,358,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; if(!qbevent)break;evnt(347,360,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_TOPPOSITION= 0 ; if(!qbevent)break;evnt(347,361,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_LeftPosition",16),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,364,"IDEsettings.bas");}while(r); S_872:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,365,"IDEsettings.bas");if(r)goto S_872;} do{ *__INTEGER_IDE_LEFTPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,366,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; if(!qbevent)break;evnt(347,368,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_LEFTPOSITION= 0 ; if(!qbevent)break;evnt(347,369,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IgnoreWarnings",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,372,"IDEsettings.bas");}while(r); S_879:; if ((*__LONG_RESULT)||new_error){ if(qbevent){evnt(347,373,"IDEsettings.bas");if(r)goto S_879;} S_880:; 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(347,374,"IDEsettings.bas");if(r)goto S_880;} do{ *__BYTE_IGNOREWARNINGS= -1 ; if(!qbevent)break;evnt(347,375,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IGNOREWARNINGS= 0 ; if(!qbevent)break;evnt(347,377,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,378,"IDEsettings.bas");}while(r); } } }else{ do{ *__BYTE_IDE_AUTOPOSITION= 0 ; if(!qbevent)break;evnt(347,391,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_TOPPOSITION= 0 ; if(!qbevent)break;evnt(347,392,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_LEFTPOSITION= 0 ; if(!qbevent)break;evnt(347,393,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_NormalCursorStart",21),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,396,"IDEsettings.bas");}while(r); do{ *__LONG_IDENORMALCURSORSTART=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,397,"IDEsettings.bas");}while(r); S_894:; if (((-(*__LONG_IDENORMALCURSORSTART< 0 ))|(-(*__LONG_IDENORMALCURSORSTART> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ if(qbevent){evnt(347,398,"IDEsettings.bas");if(r)goto S_894;} do{ *__LONG_IDENORMALCURSORSTART= 8 ; if(!qbevent)break;evnt(347,398,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_NormalCursorStart",21),qbs_new_txt_len("8",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,398,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_NormalCursorEnd",19),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,400,"IDEsettings.bas");}while(r); do{ *__LONG_IDENORMALCURSOREND=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,401,"IDEsettings.bas");}while(r); S_900:; if (((-(*__LONG_IDENORMALCURSOREND< 0 ))|(-(*__LONG_IDENORMALCURSOREND> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ if(qbevent){evnt(347,402,"IDEsettings.bas");if(r)goto S_900;} do{ *__LONG_IDENORMALCURSOREND= 8 ; if(!qbevent)break;evnt(347,402,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_NormalCursorEnd",19),qbs_new_txt_len("8",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,402,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_Width",9),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,404,"IDEsettings.bas");}while(r); do{ *__LONG_IDEWX=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,405,"IDEsettings.bas");}while(r); S_906:; if (((-(*__LONG_IDEWX< 80 ))|(-(*__LONG_IDEWX> 1000 )))||new_error){ if(qbevent){evnt(347,406,"IDEsettings.bas");if(r)goto S_906;} do{ *__LONG_IDEWX= 80 ; if(!qbevent)break;evnt(347,406,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,406,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_Height",10),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,408,"IDEsettings.bas");}while(r); do{ *__LONG_IDEWY=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,409,"IDEsettings.bas");}while(r); S_912:; if (((-(*__LONG_IDEWY< 25 ))|(-(*__LONG_IDEWY> 1000 )))||new_error){ if(qbevent){evnt(347,410,"IDEsettings.bas");if(r)goto S_912;} do{ *__LONG_IDEWY= 25 ; if(!qbevent)break;evnt(347,410,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,410,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoFormat",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,412,"IDEsettings.bas");}while(r); do{ *__LONG_IDEAUTOLAYOUT=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,413,"IDEsettings.bas");}while(r); S_918:; 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(347,414,"IDEsettings.bas");if(r)goto S_918;} do{ *__LONG_IDEAUTOLAYOUT= 1 ; if(!qbevent)break;evnt(347,415,"IDEsettings.bas");}while(r); }else{ S_921:; 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(347,417,"IDEsettings.bas");if(r)goto S_921;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,418,"IDEsettings.bas");}while(r); do{ *__LONG_IDEAUTOLAYOUT= 1 ; if(!qbevent)break;evnt(347,419,"IDEsettings.bas");}while(r); }else{ do{ *__LONG_IDEAUTOLAYOUT= 0 ; if(!qbevent)break;evnt(347,421,"IDEsettings.bas");}while(r); } } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoIndent",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,425,"IDEsettings.bas");}while(r); do{ *__LONG_IDEAUTOINDENT=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,426,"IDEsettings.bas");}while(r); S_930:; 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(347,427,"IDEsettings.bas");if(r)goto S_930;} do{ *__LONG_IDEAUTOINDENT= 1 ; if(!qbevent)break;evnt(347,428,"IDEsettings.bas");}while(r); }else{ S_933:; 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(347,430,"IDEsettings.bas");if(r)goto S_933;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,431,"IDEsettings.bas");}while(r); do{ *__LONG_IDEAUTOINDENT= 1 ; if(!qbevent)break;evnt(347,432,"IDEsettings.bas");}while(r); }else{ do{ *__LONG_IDEAUTOINDENT= 0 ; if(!qbevent)break;evnt(347,434,"IDEsettings.bas");}while(r); } } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_IndentSUBs",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,438,"IDEsettings.bas");}while(r); do{ *__LONG_IDEINDENTSUBS=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,439,"IDEsettings.bas");}while(r); S_942:; 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(347,440,"IDEsettings.bas");if(r)goto S_942;} do{ *__LONG_IDEINDENTSUBS= 1 ; if(!qbevent)break;evnt(347,441,"IDEsettings.bas");}while(r); }else{ S_945:; 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(347,443,"IDEsettings.bas");if(r)goto S_945;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,444,"IDEsettings.bas");}while(r); do{ *__LONG_IDEINDENTSUBS= 1 ; if(!qbevent)break;evnt(347,445,"IDEsettings.bas");}while(r); }else{ do{ *__LONG_IDEINDENTSUBS= 0 ; if(!qbevent)break;evnt(347,447,"IDEsettings.bas");}while(r); } } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_IndentSize",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,451,"IDEsettings.bas");}while(r); do{ *__LONG_IDEAUTOINDENTSIZE=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,452,"IDEsettings.bas");}while(r); S_954:; if (((-(*__LONG_IDEAUTOINDENTSIZE< 1 ))|(-(*__LONG_IDEAUTOINDENTSIZE> 64 )))||new_error){ if(qbevent){evnt(347,453,"IDEsettings.bas");if(r)goto S_954;} do{ *__LONG_IDEAUTOINDENTSIZE= 4 ; if(!qbevent)break;evnt(347,454,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,455,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFont",14),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,458,"IDEsettings.bas");}while(r); do{ *__LONG_IDECUSTOMFONT=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,459,"IDEsettings.bas");}while(r); S_960:; 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(347,460,"IDEsettings.bas");if(r)goto S_960;} do{ *__LONG_IDECUSTOMFONT= 1 ; if(!qbevent)break;evnt(347,461,"IDEsettings.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,463,"IDEsettings.bas");}while(r); do{ *__LONG_IDECUSTOMFONT= 0 ; if(!qbevent)break;evnt(347,464,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_UseFont8",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,467,"IDEsettings.bas");}while(r); S_967:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4))))||new_error){ if(qbevent){evnt(347,468,"IDEsettings.bas");if(r)goto S_967;} do{ *__BYTE_IDE_USEFONT8= 1 ; if(!qbevent)break;evnt(347,469,"IDEsettings.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,471,"IDEsettings.bas");}while(r); do{ *__BYTE_IDE_USEFONT8= 0 ; if(!qbevent)break;evnt(347,472,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFont$",15),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,475,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_IDECUSTOMFONTFILE,__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,476,"IDEsettings.bas");}while(r); S_975:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_RESULT== 0 ))|(qbs_equal(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(347,477,"IDEsettings.bas");if(r)goto S_975;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,478,"IDEsettings.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(347,479,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFontSize",18),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,482,"IDEsettings.bas");}while(r); do{ *__LONG_IDECUSTOMFONTHEIGHT=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,483,"IDEsettings.bas");}while(r); S_981:; if (((-(*__LONG_IDECUSTOMFONTHEIGHT< 8 ))|(-(*__LONG_IDECUSTOMFONTHEIGHT> 100 )))||new_error){ if(qbevent){evnt(347,484,"IDEsettings.bas");if(r)goto S_981;} do{ *__LONG_IDECUSTOMFONTHEIGHT= 21 ; if(!qbevent)break;evnt(347,484,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,484,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CodePage",12),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,486,"IDEsettings.bas");}while(r); do{ *__LONG_IDECPINDEX=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,487,"IDEsettings.bas");}while(r); S_987:; if (((-(*__LONG_IDECPINDEX< 0 ))|(-(*__LONG_IDECPINDEX> 27 )))||new_error){ if(qbevent){evnt(347,488,"IDEsettings.bas");if(r)goto S_987;} do{ *__LONG_IDECPINDEX= 0 ; if(!qbevent)break;evnt(347,488,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,488,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackupSize",10),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,490,"IDEsettings.bas");}while(r); do{ *__LONG_IDEBACKUPSIZE=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,491,"IDEsettings.bas");}while(r); S_993:; if (((-(*__LONG_IDEBACKUPSIZE< 10 ))|(-(*__LONG_IDEBACKUPSIZE> 2000 )))||new_error){ if(qbevent){evnt(347,492,"IDEsettings.bas");if(r)goto S_993;} do{ *__LONG_IDEBACKUPSIZE= 100 ; if(!qbevent)break;evnt(347,492,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,492,"IDEsettings.bas");}while(r); } do{ *__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("DebugInfo",9),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,494,"IDEsettings.bas");}while(r); do{ *__LONG_IDEDEBUGINFO=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,495,"IDEsettings.bas");}while(r); S_999:; 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(347,496,"IDEsettings.bas");if(r)goto S_999;} do{ *__LONG_IDEDEBUGINFO= 1 ; if(!qbevent)break;evnt(347,496,"IDEsettings.bas");}while(r); } S_1002:; if (((-(*__LONG_RESULT== 0 ))|(-(*__LONG_IDEDEBUGINFO!= 1 )))||new_error){ if(qbevent){evnt(347,497,"IDEsettings.bas");if(r)goto S_1002;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,498,"IDEsettings.bas");}while(r); do{ *__LONG_IDEDEBUGINFO= 0 ; if(!qbevent)break;evnt(347,499,"IDEsettings.bas");}while(r); } do{ *__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; if(!qbevent)break;evnt(347,501,"IDEsettings.bas");}while(r); do{ goto LABEL_SKIPCHECKCONFIGFILEEXISTS; if(!qbevent)break;evnt(347,503,"IDEsettings.bas");}while(r); LABEL_CHECKCONFIGFILEEXISTS:; if(qbevent){evnt(347,504,"IDEsettings.bas");r=0;} S_1008:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_CONFIGFILE)== 0 )))||new_error){ if(qbevent){evnt(347,505,"IDEsettings.bas");if(r)goto S_1008;} S_1009:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.txt",19))))||new_error){ if(qbevent){evnt(347,507,"IDEsettings.bas");if(r)goto S_1009;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CONFIG VERSION]",17),qbs_new_txt_len("ConfigVersion",13),qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,508,"IDEsettings.bas");}while(r); S_1011:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(347,509,"IDEsettings.bas");if(r)goto S_1011;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,509,"IDEsettings.bas");}while(r); } do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,510,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,511,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("SchemeID",8),qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,512,"IDEsettings.bas");}while(r); S_1017:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(347,513,"IDEsettings.bas");if(r)goto S_1017;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,514,"IDEsettings.bas");}while(r); } do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,516,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,517,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,518,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,519,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,520,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,521,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,522,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,523,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,524,"IDEsettings.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,525,"IDEsettings.bas");}while(r); }else{ do{ *__LONG_F=func_freefile(); if(!qbevent)break;evnt(347,528,"IDEsettings.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal/config.txt",19), 2 ,NULL,NULL,*__LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,529,"IDEsettings.bas");}while(r); do{ *__LONG_L=func_lof(*__LONG_F); if(!qbevent)break;evnt(347,530,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_TEMP,func_space(*__LONG_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,530,"IDEsettings.bas");}while(r); do{ sub_get2(*__LONG_F, 1 ,__STRING_TEMP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,531,"IDEsettings.bas");}while(r); do{ sub_close(*__LONG_F,1); if(!qbevent)break;evnt(347,532,"IDEsettings.bas");}while(r); do{ sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*__LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,533,"IDEsettings.bas");}while(r); do{ sub_put2(*__LONG_F, 1 ,byte_element((uint64)__STRING_TEMP->chr,__STRING_TEMP->len,byte_element_39),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(347,534,"IDEsettings.bas");}while(r); do{ sub_close(*__LONG_F,1); if(!qbevent)break;evnt(347,535,"IDEsettings.bas");}while(r); } } do{ #include "ret0.txt" if(!qbevent)break;evnt(347,538,"IDEsettings.bas");}while(r); LABEL_SKIPCHECKCONFIGFILEEXISTS:; if(qbevent){evnt(347,539,"IDEsettings.bas");r=0;} } do{ qbs_set(__STRING_CMDLINEFILE,FUNC_PARSECMDLINEARGS()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(349);}while(r); S_1045:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(351);if(r)goto S_1045;} do{ sub__dest(func__console()); if(!qbevent)break;evnt(352);}while(r); }else{ do{ sub__console( 2 ); if(!qbevent)break;evnt(354);}while(r); do{ sub__screenshow(); if(!qbevent)break;evnt(355);}while(r); do{ sub__icon(NULL,NULL,0); if(!qbevent)break;evnt(356);}while(r); } do{ if(!qbevent)break;evnt(413);}while(r); do{ if(!qbevent)break;evnt(414);}while(r); do{ if(!qbevent)break;evnt(415);}while(r); do{ if(!qbevent)break;evnt(416);}while(r); do{ if(!qbevent)break;evnt(417);}while(r); do{ if(!qbevent)break;evnt(418);}while(r); do{ if(!qbevent)break;evnt(419);}while(r); do{ if(!qbevent)break;evnt(420);}while(r); do{ if(!qbevent)break;evnt(421);}while(r); do{ if (__ARRAY_INTEGER_HASH1CHAR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_HASH1CHAR[2]&1){ error(10); }else{ __ARRAY_INTEGER_HASH1CHAR[4]= 0 ; __ARRAY_INTEGER_HASH1CHAR[5]=( 255 )-__ARRAY_INTEGER_HASH1CHAR[4]+1; __ARRAY_INTEGER_HASH1CHAR[6]=1; if (__ARRAY_INTEGER_HASH1CHAR[2]&4){ __ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_HASH1CHAR[5]*2); memset((void*)(__ARRAY_INTEGER_HASH1CHAR[0]),0,__ARRAY_INTEGER_HASH1CHAR[5]*2); }else{ __ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)calloc(__ARRAY_INTEGER_HASH1CHAR[5]*2,1); if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257); } __ARRAY_INTEGER_HASH1CHAR[2]|=1; } } if(!qbevent)break;evnt(423);}while(r); do{ if (__ARRAY_INTEGER_HASH2CHAR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_HASH2CHAR[2]&1){ error(10); }else{ __ARRAY_INTEGER_HASH2CHAR[4]= 0 ; __ARRAY_INTEGER_HASH2CHAR[5]=( 65535 )-__ARRAY_INTEGER_HASH2CHAR[4]+1; __ARRAY_INTEGER_HASH2CHAR[6]=1; if (__ARRAY_INTEGER_HASH2CHAR[2]&4){ __ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_HASH2CHAR[5]*2); memset((void*)(__ARRAY_INTEGER_HASH2CHAR[0]),0,__ARRAY_INTEGER_HASH2CHAR[5]*2); }else{ __ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)calloc(__ARRAY_INTEGER_HASH2CHAR[5]*2,1); if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257); } __ARRAY_INTEGER_HASH2CHAR[2]|=1; } } if(!qbevent)break;evnt(424);}while(r); S_1063:; fornext_value41= 1 ; fornext_finalvalue41= 26 ; fornext_step41= 1 ; if (fornext_step41<0) fornext_step_negative41=1; else fornext_step_negative41=0; if (new_error) goto fornext_error41; goto fornext_entrylabel41; while(1){ fornext_value41=fornext_step41+(*__LONG_X); fornext_entrylabel41: *__LONG_X=fornext_value41; if (fornext_step_negative41){ if (fornext_value41fornext_finalvalue41) break; } fornext_error41:; if(qbevent){evnt(425);if(r)goto S_1063;} 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(426);}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(427);}while(r); fornext_continue_40:; } fornext_exit_40:; 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(429);}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(430);}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(431);}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(432);}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(433);}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(434);}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(435);}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(436);}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(437);}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(438);}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(439);}while(r); S_1078:; fornext_value43= 0 ; fornext_finalvalue43= 255 ; fornext_step43= 1 ; if (fornext_step43<0) fornext_step_negative43=1; else fornext_step_negative43=0; if (new_error) goto fornext_error43; goto fornext_entrylabel43; while(1){ fornext_value43=fornext_step43+(*__LONG_C1); fornext_entrylabel43: *__LONG_C1=fornext_value43; if (fornext_step_negative43){ if (fornext_value43fornext_finalvalue43) break; } fornext_error43:; if(qbevent){evnt(440);if(r)goto S_1078;} S_1079:; fornext_value45= 0 ; fornext_finalvalue45= 255 ; 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_C2); fornext_entrylabel45: *__LONG_C2=fornext_value45; if (fornext_step_negative45){ if (fornext_value45fornext_finalvalue45) break; } fornext_error45:; if(qbevent){evnt(441);if(r)goto S_1079;} 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(442);}while(r); fornext_continue_44:; } fornext_exit_44:; fornext_continue_42:; } fornext_exit_42:; do{ *__LONG_HASHLISTSIZE= 65536 ; if(!qbevent)break;evnt(446);}while(r); do{ *__LONG_HASHLISTNEXT= 1 ; if(!qbevent)break;evnt(447);}while(r); do{ *__LONG_HASHLISTFREESIZE= 1024 ; if(!qbevent)break;evnt(448);}while(r); do{ *__LONG_HASHLISTFREELAST= 0 ; if(!qbevent)break;evnt(449);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_HASHLIST)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_HASHLIST[2]&1){ if (__ARRAY_UDT_HASHLIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_HASHLIST[0])); }else{ free((void*)(__ARRAY_UDT_HASHLIST[0])); } } __ARRAY_UDT_HASHLIST[4]= 1 ; __ARRAY_UDT_HASHLIST[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_UDT_HASHLIST[4]+1; __ARRAY_UDT_HASHLIST[6]=1; if (__ARRAY_UDT_HASHLIST[2]&4){ __ARRAY_UDT_HASHLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_HASHLIST[5]*160/8+1); memset((void*)(__ARRAY_UDT_HASHLIST[0]),0,__ARRAY_UDT_HASHLIST[5]*160/8+1); }else{ __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(450);}while(r); do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING256_HASHLISTNAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING256_HASHLISTNAME[2]&1){ if (__ARRAY_STRING256_HASHLISTNAME[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0])); }else{ free((void*)(__ARRAY_STRING256_HASHLISTNAME[0])); } } __ARRAY_STRING256_HASHLISTNAME[4]= 1 ; __ARRAY_STRING256_HASHLISTNAME[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_STRING256_HASHLISTNAME[4]+1; __ARRAY_STRING256_HASHLISTNAME[6]=1; if (__ARRAY_STRING256_HASHLISTNAME[2]&4){ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_HASHLISTNAME[5]*256); memset((void*)(__ARRAY_STRING256_HASHLISTNAME[0]),0,__ARRAY_STRING256_HASHLISTNAME[5]*256); }else{ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_HASHLISTNAME[5]*256,1); if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; } if(!qbevent)break;evnt(451);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHLISTFREE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HASHLISTFREE[2]&1){ if (__ARRAY_LONG_HASHLISTFREE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHLISTFREE[0])); }else{ free((void*)(__ARRAY_LONG_HASHLISTFREE[0])); } } __ARRAY_LONG_HASHLISTFREE[4]= 1 ; __ARRAY_LONG_HASHLISTFREE[5]=(*__LONG_HASHLISTFREESIZE)-__ARRAY_LONG_HASHLISTFREE[4]+1; __ARRAY_LONG_HASHLISTFREE[6]=1; if (__ARRAY_LONG_HASHLISTFREE[2]&4){ __ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHLISTFREE[5]*4); memset((void*)(__ARRAY_LONG_HASHLISTFREE[0]),0,__ARRAY_LONG_HASHLISTFREE[5]*4); }else{ __ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHLISTFREE[5]*4,1); if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } __ARRAY_LONG_HASHLISTFREE[2]|=1; } if(!qbevent)break;evnt(452);}while(r); do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHTABLE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HASHTABLE[2]&1){ if (__ARRAY_LONG_HASHTABLE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHTABLE[0])); }else{ free((void*)(__ARRAY_LONG_HASHTABLE[0])); } } __ARRAY_LONG_HASHTABLE[4]= 0 ; __ARRAY_LONG_HASHTABLE[5]=( 16777215 )-__ARRAY_LONG_HASHTABLE[4]+1; __ARRAY_LONG_HASHTABLE[6]=1; if (__ARRAY_LONG_HASHTABLE[2]&4){ __ARRAY_LONG_HASHTABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHTABLE[5]*4); memset((void*)(__ARRAY_LONG_HASHTABLE[0]),0,__ARRAY_LONG_HASHTABLE[5]*4); }else{ __ARRAY_LONG_HASHTABLE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHTABLE[5]*4,1); if (!__ARRAY_LONG_HASHTABLE[0]) error(257); } __ARRAY_LONG_HASHTABLE[2]|=1; } if(!qbevent)break;evnt(453);}while(r); do{ if(!qbevent)break;evnt(480);}while(r); do{ *__LONG_LABELS_UBOUND= 100 ; if(!qbevent)break;evnt(481);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_LABELS[2]&1){ if (__ARRAY_UDT_LABELS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); }else{ free((void*)(__ARRAY_UDT_LABELS[0])); } } __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_LABELS[5]*2256/8+1); memset((void*)(__ARRAY_UDT_LABELS[0]),0,__ARRAY_UDT_LABELS[5]*2256/8+1); }else{ __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(482);}while(r); do{ if(!qbevent)break;evnt(483);}while(r); do{ if(!qbevent)break;evnt(485);}while(r); do{ if(!qbevent)break;evnt(486);}while(r); do{ if(!qbevent)break;evnt(487);}while(r); do{ if(!qbevent)break;evnt(489);}while(r); do{ if(!qbevent)break;evnt(491);}while(r); do{ if(!qbevent)break;evnt(493);}while(r); do{ if(!qbevent)break;evnt(496);}while(r); do{ if(!qbevent)break;evnt(498);}while(r); do{ if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&2){ error(10); }else{ if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&1){ error(10); }else{ __ARRAY_LONG_REVERTMAYMUSTHAVE[4]= 1 ; __ARRAY_LONG_REVERTMAYMUSTHAVE[5]=( 10000 )-__ARRAY_LONG_REVERTMAYMUSTHAVE[4]+1; __ARRAY_LONG_REVERTMAYMUSTHAVE[6]=1; if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&4){ __ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4); memset((void*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]),0,__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4); }else{ __ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)calloc(__ARRAY_LONG_REVERTMAYMUSTHAVE[5]*4,1); if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257); } __ARRAY_LONG_REVERTMAYMUSTHAVE[2]|=1; } } if(!qbevent)break;evnt(500);}while(r); do{ if(!qbevent)break;evnt(501);}while(r); do{ if(!qbevent)break;evnt(503);}while(r); do{ if(!qbevent)break;evnt(505);}while(r); do{ if(!qbevent)break;evnt(508);}while(r); do{ if (__ARRAY_STRING_INCNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING_INCNAME[2]&1){ error(10); }else{ __ARRAY_STRING_INCNAME[4]= 0 ; __ARRAY_STRING_INCNAME[5]=( 100 )-__ARRAY_STRING_INCNAME[4]+1; __ARRAY_STRING_INCNAME[6]=1; __ARRAY_STRING_INCNAME[0]=(ptrszint)malloc(__ARRAY_STRING_INCNAME[5]*8); if (!__ARRAY_STRING_INCNAME[0]) error(257); __ARRAY_STRING_INCNAME[2]|=1; tmp_long=__ARRAY_STRING_INCNAME[5]; if (__ARRAY_STRING_INCNAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(509);}while(r); do{ if (__ARRAY_LONG_INCLINENUMBER[2]&2){ error(10); }else{ if (__ARRAY_LONG_INCLINENUMBER[2]&1){ error(10); }else{ __ARRAY_LONG_INCLINENUMBER[4]= 0 ; __ARRAY_LONG_INCLINENUMBER[5]=( 100 )-__ARRAY_LONG_INCLINENUMBER[4]+1; __ARRAY_LONG_INCLINENUMBER[6]=1; if (__ARRAY_LONG_INCLINENUMBER[2]&4){ __ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_INCLINENUMBER[5]*4); memset((void*)(__ARRAY_LONG_INCLINENUMBER[0]),0,__ARRAY_LONG_INCLINENUMBER[5]*4); }else{ __ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)calloc(__ARRAY_LONG_INCLINENUMBER[5]*4,1); if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257); } __ARRAY_LONG_INCLINENUMBER[2]|=1; } } if(!qbevent)break;evnt(510);}while(r); do{ if(!qbevent)break;evnt(511);}while(r); do{ if(!qbevent)break;evnt(514);}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(515);}while(r); do{ if(!qbevent)break;evnt(517);}while(r); do{ if(!qbevent)break;evnt(518);}while(r); do{ if(!qbevent)break;evnt(520);}while(r); do{ if(!qbevent)break;evnt(522);}while(r); do{ if(!qbevent)break;evnt(523);}while(r); do{ if(!qbevent)break;evnt(526);}while(r); do{ if (__ARRAY_LONG_ALPHANUMERIC[2]&2){ error(10); }else{ if (__ARRAY_LONG_ALPHANUMERIC[2]&1){ error(10); }else{ __ARRAY_LONG_ALPHANUMERIC[4]= 0 ; __ARRAY_LONG_ALPHANUMERIC[5]=( 255 )-__ARRAY_LONG_ALPHANUMERIC[4]+1; __ARRAY_LONG_ALPHANUMERIC[6]=1; if (__ARRAY_LONG_ALPHANUMERIC[2]&4){ __ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ALPHANUMERIC[5]*4); memset((void*)(__ARRAY_LONG_ALPHANUMERIC[0]),0,__ARRAY_LONG_ALPHANUMERIC[5]*4); }else{ __ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)calloc(__ARRAY_LONG_ALPHANUMERIC[5]*4,1); if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257); } __ARRAY_LONG_ALPHANUMERIC[2]|=1; } } if(!qbevent)break;evnt(528);}while(r); S_1120:; fornext_value47= 48 ; fornext_finalvalue47= 57 ; 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_I); fornext_entrylabel47: *__LONG_I=fornext_value47; if (fornext_step_negative47){ if (fornext_value47fornext_finalvalue47) break; } fornext_error47:; if(qbevent){evnt(529);if(r)goto S_1120;} 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(530);}while(r); fornext_continue_46:; } fornext_exit_46:; S_1123:; fornext_value49= 65 ; fornext_finalvalue49= 90 ; 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_I); fornext_entrylabel49: *__LONG_I=fornext_value49; if (fornext_step_negative49){ if (fornext_value49fornext_finalvalue49) break; } fornext_error49:; if(qbevent){evnt(532);if(r)goto S_1123;} 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(533);}while(r); fornext_continue_48:; } fornext_exit_48:; S_1126:; fornext_value51= 97 ; fornext_finalvalue51= 122 ; 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(535);if(r)goto S_1126;} 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(536);}while(r); fornext_continue_50:; } fornext_exit_50:; 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(539);}while(r); do{ if (__ARRAY_LONG_ISALPHA[2]&2){ error(10); }else{ if (__ARRAY_LONG_ISALPHA[2]&1){ error(10); }else{ __ARRAY_LONG_ISALPHA[4]= 0 ; __ARRAY_LONG_ISALPHA[5]=( 255 )-__ARRAY_LONG_ISALPHA[4]+1; __ARRAY_LONG_ISALPHA[6]=1; if (__ARRAY_LONG_ISALPHA[2]&4){ __ARRAY_LONG_ISALPHA[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISALPHA[5]*4); memset((void*)(__ARRAY_LONG_ISALPHA[0]),0,__ARRAY_LONG_ISALPHA[5]*4); }else{ __ARRAY_LONG_ISALPHA[0]=(ptrszint)calloc(__ARRAY_LONG_ISALPHA[5]*4,1); if (!__ARRAY_LONG_ISALPHA[0]) error(257); } __ARRAY_LONG_ISALPHA[2]|=1; } } if(!qbevent)break;evnt(541);}while(r); S_1131:; 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(542);if(r)goto S_1131;} 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(543);}while(r); fornext_continue_52:; } fornext_exit_52:; S_1134:; 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(545);if(r)goto S_1134;} 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(546);}while(r); fornext_continue_54:; } fornext_exit_54:; 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(549);}while(r); do{ if (__ARRAY_LONG_ISNUMERIC[2]&2){ error(10); }else{ if (__ARRAY_LONG_ISNUMERIC[2]&1){ error(10); }else{ __ARRAY_LONG_ISNUMERIC[4]= 0 ; __ARRAY_LONG_ISNUMERIC[5]=( 255 )-__ARRAY_LONG_ISNUMERIC[4]+1; __ARRAY_LONG_ISNUMERIC[6]=1; if (__ARRAY_LONG_ISNUMERIC[2]&4){ __ARRAY_LONG_ISNUMERIC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISNUMERIC[5]*4); memset((void*)(__ARRAY_LONG_ISNUMERIC[0]),0,__ARRAY_LONG_ISNUMERIC[5]*4); }else{ __ARRAY_LONG_ISNUMERIC[0]=(ptrszint)calloc(__ARRAY_LONG_ISNUMERIC[5]*4,1); if (!__ARRAY_LONG_ISNUMERIC[0]) error(257); } __ARRAY_LONG_ISNUMERIC[2]|=1; } } if(!qbevent)break;evnt(551);}while(r); S_1139:; fornext_value57= 48 ; fornext_finalvalue57= 57 ; 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(552);if(r)goto S_1139;} 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(553);}while(r); fornext_continue_56:; } fornext_exit_56:; do{ if (__ARRAY_LONG_LFSINGLECHAR[2]&2){ error(10); }else{ if (__ARRAY_LONG_LFSINGLECHAR[2]&1){ error(10); }else{ __ARRAY_LONG_LFSINGLECHAR[4]= 0 ; __ARRAY_LONG_LFSINGLECHAR[5]=( 255 )-__ARRAY_LONG_LFSINGLECHAR[4]+1; __ARRAY_LONG_LFSINGLECHAR[6]=1; if (__ARRAY_LONG_LFSINGLECHAR[2]&4){ __ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_LFSINGLECHAR[5]*4); memset((void*)(__ARRAY_LONG_LFSINGLECHAR[0]),0,__ARRAY_LONG_LFSINGLECHAR[5]*4); }else{ __ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)calloc(__ARRAY_LONG_LFSINGLECHAR[5]*4,1); if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257); } __ARRAY_LONG_LFSINGLECHAR[2]|=1; } } if(!qbevent)break;evnt(557);}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(558);}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(559);}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(560);}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(561);}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(562);}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(563);}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(564);}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(565);}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(566);}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(567);}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(568);}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(570);}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(571);}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(572);}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(573);}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(575);}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(576);}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(577);}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(578);}while(r); do{ if(!qbevent)break;evnt(589);}while(r); do{ if(!qbevent)break;evnt(591);}while(r); do{ if(!qbevent)break;evnt(592);}while(r); do{ if(!qbevent)break;evnt(594);}while(r); do{ if(!qbevent)break;evnt(596);}while(r); do{ if(!qbevent)break;evnt(597);}while(r); do{ if(!qbevent)break;evnt(598);}while(r); do{ if(!qbevent)break;evnt(599);}while(r); do{ if(!qbevent)break;evnt(602);}while(r); do{ *__LONG_CONSTMAX= 100 ; if(!qbevent)break;evnt(603);}while(r); do{ if(!qbevent)break;evnt(604);}while(r); do{ *__LONG_CONSTLAST= -1 ; if(!qbevent)break;evnt(605);}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_CONSTNAME[2]&1){ tmp_long=__ARRAY_STRING_CONSTNAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_CONSTNAME[0])); } __ARRAY_STRING_CONSTNAME[4]= 0 ; __ARRAY_STRING_CONSTNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAME[4]+1; __ARRAY_STRING_CONSTNAME[6]=1; __ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAME[5]*8); if (!__ARRAY_STRING_CONSTNAME[0]) error(257); __ARRAY_STRING_CONSTNAME[2]|=1; tmp_long=__ARRAY_STRING_CONSTNAME[5]; if (__ARRAY_STRING_CONSTNAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(606);}while(r); do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_CONSTCNAME[2]&1){ tmp_long=__ARRAY_STRING_CONSTCNAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_CONSTCNAME[0])); } __ARRAY_STRING_CONSTCNAME[4]= 0 ; __ARRAY_STRING_CONSTCNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTCNAME[4]+1; __ARRAY_STRING_CONSTCNAME[6]=1; __ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTCNAME[5]*8); if (!__ARRAY_STRING_CONSTCNAME[0]) error(257); __ARRAY_STRING_CONSTCNAME[2]|=1; tmp_long=__ARRAY_STRING_CONSTCNAME[5]; if (__ARRAY_STRING_CONSTCNAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(607);}while(r); do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){ tmp_long=__ARRAY_STRING_CONSTNAMESYMBOL[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]); free((void*)(__ARRAY_STRING_CONSTNAMESYMBOL[0])); } __ARRAY_STRING_CONSTNAMESYMBOL[4]= 0 ; __ARRAY_STRING_CONSTNAMESYMBOL[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAMESYMBOL[4]+1; __ARRAY_STRING_CONSTNAMESYMBOL[6]=1; __ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTNAMESYMBOL[5]*8); if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257); __ARRAY_STRING_CONSTNAMESYMBOL[2]|=1; tmp_long=__ARRAY_STRING_CONSTNAMESYMBOL[5]; if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(608);}while(r); do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_CONSTTYPE[2]&1){ if (__ARRAY_LONG_CONSTTYPE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTTYPE[0])); }else{ free((void*)(__ARRAY_LONG_CONSTTYPE[0])); } } __ARRAY_LONG_CONSTTYPE[4]= 0 ; __ARRAY_LONG_CONSTTYPE[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTTYPE[4]+1; __ARRAY_LONG_CONSTTYPE[6]=1; if (__ARRAY_LONG_CONSTTYPE[2]&4){ __ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTTYPE[5]*4); memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,__ARRAY_LONG_CONSTTYPE[5]*4); }else{ __ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTTYPE[5]*4,1); if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } __ARRAY_LONG_CONSTTYPE[2]|=1; } if(!qbevent)break;evnt(612);}while(r); do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0])); }else{ free((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0])); } } __ARRAY_INTEGER64_CONSTINTEGER[4]= 0 ; __ARRAY_INTEGER64_CONSTINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_INTEGER64_CONSTINTEGER[4]+1; __ARRAY_INTEGER64_CONSTINTEGER[6]=1; if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){ __ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8); memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,__ARRAY_INTEGER64_CONSTINTEGER[5]*8); }else{ __ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc(__ARRAY_INTEGER64_CONSTINTEGER[5]*8,1); if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; } if(!qbevent)break;evnt(614);}while(r); do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id); if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0])); }else{ free((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0])); } } __ARRAY_UINTEGER64_CONSTUINTEGER[4]= 0 ; __ARRAY_UINTEGER64_CONSTUINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_UINTEGER64_CONSTUINTEGER[4]+1; __ARRAY_UINTEGER64_CONSTUINTEGER[6]=1; if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){ __ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8); memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8); }else{ __ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc(__ARRAY_UINTEGER64_CONSTUINTEGER[5]*8,1); if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; } if(!qbevent)break;evnt(615);}while(r); do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id); if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){ if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0])); }else{ free((void*)(__ARRAY_FLOAT_CONSTFLOAT[0])); } } __ARRAY_FLOAT_CONSTFLOAT[4]= 0 ; __ARRAY_FLOAT_CONSTFLOAT[5]=(*__LONG_CONSTMAX)-__ARRAY_FLOAT_CONSTFLOAT[4]+1; __ARRAY_FLOAT_CONSTFLOAT[6]=1; if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){ __ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32); memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,__ARRAY_FLOAT_CONSTFLOAT[5]*32); }else{ __ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc(__ARRAY_FLOAT_CONSTFLOAT[5]*32,1); if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; } if(!qbevent)break;evnt(616);}while(r); do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_CONSTSTRING[2]&1){ tmp_long=__ARRAY_STRING_CONSTSTRING[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]); free((void*)(__ARRAY_STRING_CONSTSTRING[0])); } __ARRAY_STRING_CONSTSTRING[4]= 0 ; __ARRAY_STRING_CONSTSTRING[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTSTRING[4]+1; __ARRAY_STRING_CONSTSTRING[6]=1; __ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc(__ARRAY_STRING_CONSTSTRING[5]*8); if (!__ARRAY_STRING_CONSTSTRING[0]) error(257); __ARRAY_STRING_CONSTSTRING[2]|=1; tmp_long=__ARRAY_STRING_CONSTSTRING[5]; if (__ARRAY_STRING_CONSTSTRING[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(617);}while(r); do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){ if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0])); }else{ free((void*)(__ARRAY_LONG_CONSTSUBFUNC[0])); } } __ARRAY_LONG_CONSTSUBFUNC[4]= 0 ; __ARRAY_LONG_CONSTSUBFUNC[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTSUBFUNC[4]+1; __ARRAY_LONG_CONSTSUBFUNC[6]=1; if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){ __ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4); memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,__ARRAY_LONG_CONSTSUBFUNC[5]*4); }else{ __ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTSUBFUNC[5]*4,1); if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; } if(!qbevent)break;evnt(618);}while(r); do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_CONSTDEFINED[2]&1){ if (__ARRAY_LONG_CONSTDEFINED[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTDEFINED[0])); }else{ free((void*)(__ARRAY_LONG_CONSTDEFINED[0])); } } __ARRAY_LONG_CONSTDEFINED[4]= 0 ; __ARRAY_LONG_CONSTDEFINED[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTDEFINED[4]+1; __ARRAY_LONG_CONSTDEFINED[6]=1; if (__ARRAY_LONG_CONSTDEFINED[2]&4){ __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONSTDEFINED[5]*4); memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,__ARRAY_LONG_CONSTDEFINED[5]*4); }else{ __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc(__ARRAY_LONG_CONSTDEFINED[5]*4,1); if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } __ARRAY_LONG_CONSTDEFINED[2]|=1; } if(!qbevent)break;evnt(619);}while(r); do{ if(!qbevent)break;evnt(623);}while(r); do{ if (__ARRAY_STRING256_UDTXNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING256_UDTXNAME[2]&1){ error(10); }else{ __ARRAY_STRING256_UDTXNAME[4]= 0 ; __ARRAY_STRING256_UDTXNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1; __ARRAY_STRING256_UDTXNAME[6]=1; if (__ARRAY_STRING256_UDTXNAME[2]&4){ __ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXNAME[5]*256); memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256); }else{ __ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256,1); if (!__ARRAY_STRING256_UDTXNAME[0]) error(257); } __ARRAY_STRING256_UDTXNAME[2]|=1; } } if(!qbevent)break;evnt(624);}while(r); do{ if (__ARRAY_STRING256_UDTXCNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING256_UDTXCNAME[2]&1){ error(10); }else{ __ARRAY_STRING256_UDTXCNAME[4]= 0 ; __ARRAY_STRING256_UDTXCNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1; __ARRAY_STRING256_UDTXCNAME[6]=1; if (__ARRAY_STRING256_UDTXCNAME[2]&4){ __ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXCNAME[5]*256); memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256); }else{ __ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*256,1); if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257); } __ARRAY_STRING256_UDTXCNAME[2]|=1; } } if(!qbevent)break;evnt(625);}while(r); do{ if (__ARRAY_LONG_UDTXSIZE[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTXSIZE[2]&1){ error(10); }else{ __ARRAY_LONG_UDTXSIZE[4]= 0 ; __ARRAY_LONG_UDTXSIZE[5]=( 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1; __ARRAY_LONG_UDTXSIZE[6]=1; if (__ARRAY_LONG_UDTXSIZE[2]&4){ __ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXSIZE[5]*4); memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4); }else{ __ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXSIZE[5]*4,1); if (!__ARRAY_LONG_UDTXSIZE[0]) error(257); } __ARRAY_LONG_UDTXSIZE[2]|=1; } } if(!qbevent)break;evnt(626);}while(r); do{ if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){ error(10); }else{ __ARRAY_INTEGER_UDTXBYTEALIGN[4]= 0 ; __ARRAY_INTEGER_UDTXBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTXBYTEALIGN[4]+1; __ARRAY_INTEGER_UDTXBYTEALIGN[6]=1; if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){ __ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); memset((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); }else{ __ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2,1); if (!__ARRAY_INTEGER_UDTXBYTEALIGN[0]) error(257); } __ARRAY_INTEGER_UDTXBYTEALIGN[2]|=1; } } if(!qbevent)break;evnt(627);}while(r); do{ if (__ARRAY_LONG_UDTXNEXT[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTXNEXT[2]&1){ error(10); }else{ __ARRAY_LONG_UDTXNEXT[4]= 0 ; __ARRAY_LONG_UDTXNEXT[5]=( 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1; __ARRAY_LONG_UDTXNEXT[6]=1; if (__ARRAY_LONG_UDTXNEXT[2]&4){ __ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXNEXT[5]*4); memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4); }else{ __ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXNEXT[5]*4,1); if (!__ARRAY_LONG_UDTXNEXT[0]) error(257); } __ARRAY_LONG_UDTXNEXT[2]|=1; } } if(!qbevent)break;evnt(628);}while(r); do{ if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){ error(10); }else{ __ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ; __ARRAY_INTEGER_UDTXVARIABLE[5]=( 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1; __ARRAY_INTEGER_UDTXVARIABLE[6]=1; if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){ __ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2); memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2); }else{ __ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2,1); if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257); } __ARRAY_INTEGER_UDTXVARIABLE[2]|=1; } } if(!qbevent)break;evnt(629);}while(r); do{ if(!qbevent)break;evnt(631);}while(r); do{ if (__ARRAY_STRING256_UDTENAME[2]&2){ error(10); }else{ if (__ARRAY_STRING256_UDTENAME[2]&1){ error(10); }else{ __ARRAY_STRING256_UDTENAME[4]= 0 ; __ARRAY_STRING256_UDTENAME[5]=( 1000 )-__ARRAY_STRING256_UDTENAME[4]+1; __ARRAY_STRING256_UDTENAME[6]=1; if (__ARRAY_STRING256_UDTENAME[2]&4){ __ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTENAME[5]*256); memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256); }else{ __ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256,1); if (!__ARRAY_STRING256_UDTENAME[0]) error(257); } __ARRAY_STRING256_UDTENAME[2]|=1; } } if(!qbevent)break;evnt(632);}while(r); do{ if (__ARRAY_STRING256_UDTECNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING256_UDTECNAME[2]&1){ error(10); }else{ __ARRAY_STRING256_UDTECNAME[4]= 0 ; __ARRAY_STRING256_UDTECNAME[5]=( 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1; __ARRAY_STRING256_UDTECNAME[6]=1; if (__ARRAY_STRING256_UDTECNAME[2]&4){ __ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTECNAME[5]*256); memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256); }else{ __ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*256,1); if (!__ARRAY_STRING256_UDTECNAME[0]) error(257); } __ARRAY_STRING256_UDTECNAME[2]|=1; } } if(!qbevent)break;evnt(633);}while(r); do{ if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){ error(10); }else{ __ARRAY_INTEGER_UDTEBYTEALIGN[4]= 0 ; __ARRAY_INTEGER_UDTEBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTEBYTEALIGN[4]+1; __ARRAY_INTEGER_UDTEBYTEALIGN[6]=1; if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){ __ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); memset((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); }else{ __ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2,1); if (!__ARRAY_INTEGER_UDTEBYTEALIGN[0]) error(257); } __ARRAY_INTEGER_UDTEBYTEALIGN[2]|=1; } } if(!qbevent)break;evnt(634);}while(r); do{ if (__ARRAY_LONG_UDTESIZE[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTESIZE[2]&1){ error(10); }else{ __ARRAY_LONG_UDTESIZE[4]= 0 ; __ARRAY_LONG_UDTESIZE[5]=( 1000 )-__ARRAY_LONG_UDTESIZE[4]+1; __ARRAY_LONG_UDTESIZE[6]=1; if (__ARRAY_LONG_UDTESIZE[2]&4){ __ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTESIZE[5]*4); memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4); }else{ __ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTESIZE[5]*4,1); if (!__ARRAY_LONG_UDTESIZE[0]) error(257); } __ARRAY_LONG_UDTESIZE[2]|=1; } } if(!qbevent)break;evnt(635);}while(r); do{ if (__ARRAY_LONG_UDTETYPE[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTETYPE[2]&1){ error(10); }else{ __ARRAY_LONG_UDTETYPE[4]= 0 ; __ARRAY_LONG_UDTETYPE[5]=( 1000 )-__ARRAY_LONG_UDTETYPE[4]+1; __ARRAY_LONG_UDTETYPE[6]=1; if (__ARRAY_LONG_UDTETYPE[2]&4){ __ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPE[5]*4); memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4); }else{ __ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPE[5]*4,1); if (!__ARRAY_LONG_UDTETYPE[0]) error(257); } __ARRAY_LONG_UDTETYPE[2]|=1; } } if(!qbevent)break;evnt(636);}while(r); do{ if (__ARRAY_LONG_UDTETYPESIZE[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTETYPESIZE[2]&1){ error(10); }else{ __ARRAY_LONG_UDTETYPESIZE[4]= 0 ; __ARRAY_LONG_UDTETYPESIZE[5]=( 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1; __ARRAY_LONG_UDTETYPESIZE[6]=1; if (__ARRAY_LONG_UDTETYPESIZE[2]&4){ __ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPESIZE[5]*4); memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4); }else{ __ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPESIZE[5]*4,1); if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257); } __ARRAY_LONG_UDTETYPESIZE[2]|=1; } } if(!qbevent)break;evnt(637);}while(r); do{ if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){ error(10); }else{ __ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ; __ARRAY_LONG_UDTEARRAYELEMENTS[5]=( 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1; __ARRAY_LONG_UDTEARRAYELEMENTS[6]=1; if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){ __ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); }else{ __ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4,1); if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257); } __ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1; } } if(!qbevent)break;evnt(638);}while(r); do{ if (__ARRAY_LONG_UDTENEXT[2]&2){ error(10); }else{ if (__ARRAY_LONG_UDTENEXT[2]&1){ error(10); }else{ __ARRAY_LONG_UDTENEXT[4]= 0 ; __ARRAY_LONG_UDTENEXT[5]=( 1000 )-__ARRAY_LONG_UDTENEXT[4]+1; __ARRAY_LONG_UDTENEXT[6]=1; if (__ARRAY_LONG_UDTENEXT[2]&4){ __ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTENEXT[5]*4); memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4); }else{ __ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTENEXT[5]*4,1); if (!__ARRAY_LONG_UDTENEXT[0]) error(257); } __ARRAY_LONG_UDTENEXT[2]|=1; } } if(!qbevent)break;evnt(639);}while(r); do{ if(!qbevent)break;evnt(687);}while(r); do{ if(!qbevent)break;evnt(689);}while(r); do{ if(!qbevent)break;evnt(690);}while(r); do{ *__LONG_IDS_MAX= 1024 ; if(!qbevent)break;evnt(691);}while(r); do{ if (__ARRAY_UDT_IDS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDS[2]&1){ if (__ARRAY_UDT_IDS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); }else{ free((void*)(__ARRAY_UDT_IDS[0])); } } __ARRAY_UDT_IDS[4]= 1 ; __ARRAY_UDT_IDS[5]=(*__LONG_IDS_MAX)-__ARRAY_UDT_IDS[4]+1; __ARRAY_UDT_IDS[6]=1; if (__ARRAY_UDT_IDS[2]&4){ __ARRAY_UDT_IDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDS[5]*22888/8+1); memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*22888/8+1); }else{ __ARRAY_UDT_IDS[0]=(ptrszint)calloc(__ARRAY_UDT_IDS[5]*22888/8+1,1); if (!__ARRAY_UDT_IDS[0]) error(257); } __ARRAY_UDT_IDS[2]|=1; } if(!qbevent)break;evnt(692);}while(r); do{ if (__ARRAY_INTEGER_CMEMLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_CMEMLIST)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_CMEMLIST[2]&1){ if (__ARRAY_INTEGER_CMEMLIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); }else{ free((void*)(__ARRAY_INTEGER_CMEMLIST[0])); } } __ARRAY_INTEGER_CMEMLIST[4]= 1 ; __ARRAY_INTEGER_CMEMLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_CMEMLIST[4]+1; __ARRAY_INTEGER_CMEMLIST[6]=1; if (__ARRAY_INTEGER_CMEMLIST[2]&4){ __ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CMEMLIST[5]*2); memset((void*)(__ARRAY_INTEGER_CMEMLIST[0]),0,__ARRAY_INTEGER_CMEMLIST[5]*2); }else{ __ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_CMEMLIST[5]*2,1); if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257); } __ARRAY_INTEGER_CMEMLIST[2]|=1; } if(!qbevent)break;evnt(693);}while(r); do{ if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING100_SFCMEMARGS)[8])->id=(++mem_lock_id); if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); }else{ free((void*)(__ARRAY_STRING100_SFCMEMARGS[0])); } } __ARRAY_STRING100_SFCMEMARGS[4]= 1 ; __ARRAY_STRING100_SFCMEMARGS[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_STRING100_SFCMEMARGS[4]+1; __ARRAY_STRING100_SFCMEMARGS[6]=1; if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ __ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING100_SFCMEMARGS[5]*100); memset((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),0,__ARRAY_STRING100_SFCMEMARGS[5]*100); }else{ __ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)calloc(__ARRAY_STRING100_SFCMEMARGS[5]*100,1); if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257); } __ARRAY_STRING100_SFCMEMARGS[2]|=1; } if(!qbevent)break;evnt(694);}while(r); do{ if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); }else{ free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); } } __ARRAY_INTEGER_ARRAYELEMENTSLIST[4]= 1 ; __ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]+1; __ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=1; if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2); memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),0,__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2); }else{ __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2,1); if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257); } __ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1; } if(!qbevent)break;evnt(695);}while(r); do{ if(!qbevent)break;evnt(699);}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(700);}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(701);}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(702);}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(703);}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(704);}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(705);}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(706);}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(707);}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(708);}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(709);}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(710);}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(711);}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(712);}while(r); do{ if(!qbevent)break;evnt(714);}while(r); do{ if(!qbevent)break;evnt(715);}while(r); do{ if(!qbevent)break;evnt(716);}while(r); do{ if(!qbevent)break;evnt(717);}while(r); do{ if(!qbevent)break;evnt(718);}while(r); do{ if(!qbevent)break;evnt(719);}while(r); do{ if(!qbevent)break;evnt(720);}while(r); do{ if(!qbevent)break;evnt(721);}while(r); do{ if(!qbevent)break;evnt(722);}while(r); do{ if(!qbevent)break;evnt(723);}while(r); do{ if(!qbevent)break;evnt(724);}while(r); do{ if(!qbevent)break;evnt(726);}while(r); do{ if(!qbevent)break;evnt(727);}while(r); do{ if(!qbevent)break;evnt(728);}while(r); do{ if(!qbevent)break;evnt(729);}while(r); do{ if(!qbevent)break;evnt(730);}while(r); do{ if(!qbevent)break;evnt(731);}while(r); do{ if(!qbevent)break;evnt(732);}while(r); do{ if(!qbevent)break;evnt(733);}while(r); do{ if(!qbevent)break;evnt(734);}while(r); do{ if(!qbevent)break;evnt(735);}while(r); do{ if(!qbevent)break;evnt(736);}while(r); do{ if(!qbevent)break;evnt(737);}while(r); do{ if(!qbevent)break;evnt(738);}while(r); do{ if(!qbevent)break;evnt(739);}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(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(754);}while(r); do{ if(!qbevent)break;evnt(755);}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(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(776);}while(r); do{ if(!qbevent)break;evnt(778);}while(r); do{ if(!qbevent)break;evnt(779);}while(r); do{ if(!qbevent)break;evnt(780);}while(r); do{ if(!qbevent)break;evnt(782);}while(r); do{ if(!qbevent)break;evnt(783);}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(789);}while(r); do{ if(!qbevent)break;evnt(790);}while(r); do{ if(!qbevent)break;evnt(791);}while(r); do{ if(!qbevent)break;evnt(794);}while(r); do{ if(!qbevent)break;evnt(798);}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 (__ARRAY_INTEGER64_BITMASK[2]&2){ error(10); }else{ if (__ARRAY_INTEGER64_BITMASK[2]&1){ error(10); }else{ __ARRAY_INTEGER64_BITMASK[4]= 1 ; __ARRAY_INTEGER64_BITMASK[5]=( 56 )-__ARRAY_INTEGER64_BITMASK[4]+1; __ARRAY_INTEGER64_BITMASK[6]=1; if (__ARRAY_INTEGER64_BITMASK[2]&4){ __ARRAY_INTEGER64_BITMASK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASK[5]*8); memset((void*)(__ARRAY_INTEGER64_BITMASK[0]),0,__ARRAY_INTEGER64_BITMASK[5]*8); }else{ __ARRAY_INTEGER64_BITMASK[0]=(ptrszint)calloc(__ARRAY_INTEGER64_BITMASK[5]*8,1); if (!__ARRAY_INTEGER64_BITMASK[0]) error(257); } __ARRAY_INTEGER64_BITMASK[2]|=1; } } if(!qbevent)break;evnt(806);}while(r); do{ if (__ARRAY_INTEGER64_BITMASKINV[2]&2){ error(10); }else{ if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ error(10); }else{ __ARRAY_INTEGER64_BITMASKINV[4]= 1 ; __ARRAY_INTEGER64_BITMASKINV[5]=( 56 )-__ARRAY_INTEGER64_BITMASKINV[4]+1; __ARRAY_INTEGER64_BITMASKINV[6]=1; if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ __ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASKINV[5]*8); memset((void*)(__ARRAY_INTEGER64_BITMASKINV[0]),0,__ARRAY_INTEGER64_BITMASKINV[5]*8); }else{ __ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)calloc(__ARRAY_INTEGER64_BITMASKINV[5]*8,1); if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257); } __ARRAY_INTEGER64_BITMASKINV[2]|=1; } } if(!qbevent)break;evnt(807);}while(r); do{ if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){ error(10); }else{ if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ error(10); }else{ __ARRAY_STRING_DEFINEEXTAZ[4]= 1 ; __ARRAY_STRING_DEFINEEXTAZ[5]=( 27 )-__ARRAY_STRING_DEFINEEXTAZ[4]+1; __ARRAY_STRING_DEFINEEXTAZ[6]=1; __ARRAY_STRING_DEFINEEXTAZ[0]=(ptrszint)malloc(__ARRAY_STRING_DEFINEEXTAZ[5]*8); if (!__ARRAY_STRING_DEFINEEXTAZ[0]) error(257); __ARRAY_STRING_DEFINEEXTAZ[2]|=1; tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; if (__ARRAY_STRING_DEFINEEXTAZ[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(809);}while(r); do{ if (__ARRAY_STRING_DEFINEAZ[2]&2){ error(10); }else{ if (__ARRAY_STRING_DEFINEAZ[2]&1){ error(10); }else{ __ARRAY_STRING_DEFINEAZ[4]= 1 ; __ARRAY_STRING_DEFINEAZ[5]=( 27 )-__ARRAY_STRING_DEFINEAZ[4]+1; __ARRAY_STRING_DEFINEAZ[6]=1; __ARRAY_STRING_DEFINEAZ[0]=(ptrszint)malloc(__ARRAY_STRING_DEFINEAZ[5]*8); if (!__ARRAY_STRING_DEFINEAZ[0]) error(257); __ARRAY_STRING_DEFINEAZ[2]|=1; tmp_long=__ARRAY_STRING_DEFINEAZ[5]; if (__ARRAY_STRING_DEFINEAZ[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(810);}while(r); do{ *__LONG_ISSTRING= 1073741824 ; if(!qbevent)break;evnt(812);}while(r); do{ *__LONG_ISFLOAT= 536870912 ; if(!qbevent)break;evnt(813);}while(r); do{ *__LONG_ISUNSIGNED= 268435456 ; if(!qbevent)break;evnt(814);}while(r); do{ *__LONG_ISPOINTER= 134217728 ; if(!qbevent)break;evnt(815);}while(r); do{ *__LONG_ISFIXEDLENGTH= 67108864 ; if(!qbevent)break;evnt(816);}while(r); do{ *__LONG_ISINCONVENTIONALMEMORY= 33554432 ; if(!qbevent)break;evnt(817);}while(r); do{ *__LONG_ISOFFSETINBITS= 16777216 ; if(!qbevent)break;evnt(818);}while(r); do{ *__LONG_ISARRAY= 8388608 ; if(!qbevent)break;evnt(819);}while(r); do{ *__LONG_ISREFERENCE= 4194304 ; if(!qbevent)break;evnt(820);}while(r); do{ *__LONG_ISUDT= 2097152 ; if(!qbevent)break;evnt(821);}while(r); do{ *__LONG_ISOFFSET= 1048576 ; if(!qbevent)break;evnt(822);}while(r); do{ *__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER; if(!qbevent)break;evnt(824);}while(r); do{ *__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(825);}while(r); do{ *__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(826);}while(r); do{ *__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(827);}while(r); do{ *__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(828);}while(r); do{ *__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(829);}while(r); do{ *__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(830);}while(r); do{ *__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(831);}while(r); do{ *__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(832);}while(r); do{ *__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(833);}while(r); do{ *__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(834);}while(r); do{ *__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; if(!qbevent)break;evnt(835);}while(r); do{ *__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; if(!qbevent)break;evnt(836);}while(r); do{ *__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; if(!qbevent)break;evnt(837);}while(r); do{ *__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; if(!qbevent)break;evnt(838);}while(r); S_1319:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ if(qbevent){evnt(838);if(r)goto S_1319;} do{ *__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; if(!qbevent)break;evnt(838);}while(r); } do{ *__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; if(!qbevent)break;evnt(839);}while(r); S_1323:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ if(qbevent){evnt(839);if(r)goto S_1323;} do{ *__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; if(!qbevent)break;evnt(839);}while(r); } do{ *__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER; if(!qbevent)break;evnt(840);}while(r); do{ if(!qbevent)break;evnt(847);}while(r); do{ if(!qbevent)break;evnt(848);}while(r); do{ if(!qbevent)break;evnt(853);}while(r); do{ if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ error(10); }else{ __ARRAY_INTEGER_CONTROLTYPE[4]= 0 ; __ARRAY_INTEGER_CONTROLTYPE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLTYPE[4]+1; __ARRAY_INTEGER_CONTROLTYPE[6]=1; if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){ __ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CONTROLTYPE[5]*2); memset((void*)(__ARRAY_INTEGER_CONTROLTYPE[0]),0,__ARRAY_INTEGER_CONTROLTYPE[5]*2); }else{ __ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)calloc(__ARRAY_INTEGER_CONTROLTYPE[5]*2,1); if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257); } __ARRAY_INTEGER_CONTROLTYPE[2]|=1; } } if(!qbevent)break;evnt(854);}while(r); do{ if (__ARRAY_LONG_CONTROLID[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLID[2]&1){ error(10); }else{ __ARRAY_LONG_CONTROLID[4]= 0 ; __ARRAY_LONG_CONTROLID[5]=( 1000 )-__ARRAY_LONG_CONTROLID[4]+1; __ARRAY_LONG_CONTROLID[6]=1; if (__ARRAY_LONG_CONTROLID[2]&4){ __ARRAY_LONG_CONTROLID[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLID[5]*4); memset((void*)(__ARRAY_LONG_CONTROLID[0]),0,__ARRAY_LONG_CONTROLID[5]*4); }else{ __ARRAY_LONG_CONTROLID[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLID[5]*4,1); if (!__ARRAY_LONG_CONTROLID[0]) error(257); } __ARRAY_LONG_CONTROLID[2]|=1; } } if(!qbevent)break;evnt(872);}while(r); do{ if (__ARRAY_LONG_CONTROLVALUE[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLVALUE[2]&1){ error(10); }else{ __ARRAY_LONG_CONTROLVALUE[4]= 0 ; __ARRAY_LONG_CONTROLVALUE[5]=( 1000 )-__ARRAY_LONG_CONTROLVALUE[4]+1; __ARRAY_LONG_CONTROLVALUE[6]=1; if (__ARRAY_LONG_CONTROLVALUE[2]&4){ __ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLVALUE[5]*4); memset((void*)(__ARRAY_LONG_CONTROLVALUE[0]),0,__ARRAY_LONG_CONTROLVALUE[5]*4); }else{ __ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLVALUE[5]*4,1); if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257); } __ARRAY_LONG_CONTROLVALUE[2]|=1; } } if(!qbevent)break;evnt(873);}while(r); do{ if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ error(10); }else{ __ARRAY_INTEGER_CONTROLSTATE[4]= 0 ; __ARRAY_INTEGER_CONTROLSTATE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLSTATE[4]+1; __ARRAY_INTEGER_CONTROLSTATE[6]=1; if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){ __ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_CONTROLSTATE[5]*2); memset((void*)(__ARRAY_INTEGER_CONTROLSTATE[0]),0,__ARRAY_INTEGER_CONTROLSTATE[5]*2); }else{ __ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)calloc(__ARRAY_INTEGER_CONTROLSTATE[5]*2,1); if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257); } __ARRAY_INTEGER_CONTROLSTATE[2]|=1; } } if(!qbevent)break;evnt(874);}while(r); do{ if (__ARRAY_LONG_CONTROLREF[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLREF[2]&1){ error(10); }else{ __ARRAY_LONG_CONTROLREF[4]= 0 ; __ARRAY_LONG_CONTROLREF[5]=( 1000 )-__ARRAY_LONG_CONTROLREF[4]+1; __ARRAY_LONG_CONTROLREF[6]=1; if (__ARRAY_LONG_CONTROLREF[2]&4){ __ARRAY_LONG_CONTROLREF[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_CONTROLREF[5]*4); memset((void*)(__ARRAY_LONG_CONTROLREF[0]),0,__ARRAY_LONG_CONTROLREF[5]*4); }else{ __ARRAY_LONG_CONTROLREF[0]=(ptrszint)calloc(__ARRAY_LONG_CONTROLREF[5]*4,1); if (!__ARRAY_LONG_CONTROLREF[0]) error(257); } __ARRAY_LONG_CONTROLREF[2]|=1; } } if(!qbevent)break;evnt(875);}while(r); do{ error_goto_line=4; if(!qbevent)break;evnt(881);}while(r); do{ *__INTEGER64_I2= 1 ; if(!qbevent)break;evnt(883);}while(r); S_1337:; fornext_value59= 1 ; fornext_finalvalue59= 56 ; 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+(*__INTEGER64_I); fornext_entrylabel59: *__INTEGER64_I=fornext_value59; if (fornext_step_negative59){ if (fornext_value59fornext_finalvalue59) break; } fornext_error59:; if(qbevent){evnt(884);if(r)goto S_1337;} 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(885);}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(886);}while(r); do{ *__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I))); if(!qbevent)break;evnt(887);}while(r); fornext_continue_58:; } fornext_exit_58:; do{ if(!qbevent)break;evnt(890);}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(892);}while(r); do{ if (__ARRAY_LONG_SFIDLIST[2]&2){ error(10); }else{ if (__ARRAY_LONG_SFIDLIST[2]&1){ error(10); }else{ __ARRAY_LONG_SFIDLIST[4]= 0 ; __ARRAY_LONG_SFIDLIST[5]=( 1000 )-__ARRAY_LONG_SFIDLIST[4]+1; __ARRAY_LONG_SFIDLIST[6]=1; if (__ARRAY_LONG_SFIDLIST[2]&4){ __ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SFIDLIST[5]*4); memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4); }else{ __ARRAY_LONG_SFIDLIST[0]=(ptrszint)calloc(__ARRAY_LONG_SFIDLIST[5]*4,1); if (!__ARRAY_LONG_SFIDLIST[0]) error(257); } __ARRAY_LONG_SFIDLIST[2]|=1; } } if(!qbevent)break;evnt(894);}while(r); do{ if (__ARRAY_INTEGER_SFARGLIST[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_SFARGLIST[2]&1){ error(10); }else{ __ARRAY_INTEGER_SFARGLIST[4]= 0 ; __ARRAY_INTEGER_SFARGLIST[5]=( 1000 )-__ARRAY_INTEGER_SFARGLIST[4]+1; __ARRAY_INTEGER_SFARGLIST[6]=1; if (__ARRAY_INTEGER_SFARGLIST[2]&4){ __ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFARGLIST[5]*2); memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,__ARRAY_INTEGER_SFARGLIST[5]*2); }else{ __ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFARGLIST[5]*2,1); if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257); } __ARRAY_INTEGER_SFARGLIST[2]|=1; } } if(!qbevent)break;evnt(895);}while(r); do{ if (__ARRAY_INTEGER_SFELELIST[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_SFELELIST[2]&1){ error(10); }else{ __ARRAY_INTEGER_SFELELIST[4]= 0 ; __ARRAY_INTEGER_SFELELIST[5]=( 1000 )-__ARRAY_INTEGER_SFELELIST[4]+1; __ARRAY_INTEGER_SFELELIST[6]=1; if (__ARRAY_INTEGER_SFELELIST[2]&4){ __ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_SFELELIST[5]*2); memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,__ARRAY_INTEGER_SFELELIST[5]*2); }else{ __ARRAY_INTEGER_SFELELIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_SFELELIST[5]*2,1); if (!__ARRAY_INTEGER_SFELELIST[0]) error(257); } __ARRAY_INTEGER_SFELELIST[2]|=1; } } if(!qbevent)break;evnt(896);}while(r); do{ SUB_GL_SCAN_HEADER(); if(!qbevent)break;evnt(913);}while(r); S_1348:; if ((*__LONG_NOIDEMODE)||new_error){ if(qbevent){evnt(924);if(r)goto S_1348;} do{ *__BYTE_IDE_AUTOPOSITION= 0 ; if(!qbevent)break;evnt(924);}while(r); do{ goto LABEL_NOIDE; if(!qbevent)break;evnt(924);}while(r); } do{ if(!qbevent)break;evnt(925);}while(r); S_1353:; if ((-(*__BYTE_FILEDROPENABLED== 0 ))||new_error){ if(qbevent){evnt(926);if(r)goto S_1353;} do{ *__BYTE_FILEDROPENABLED= -1 ; if(!qbevent)break;evnt(926);}while(r); do{ sub__filedrop(NULL); if(!qbevent)break;evnt(926);}while(r); } S_1357:; if ((*__BYTE_IDE_AUTOPOSITION&(~(*__BYTE_IDE_BYPASSAUTOPOSITION)))||new_error){ if(qbevent){evnt(928);if(r)goto S_1357;} do{ sub__screenmove(*__INTEGER_IDE_LEFTPOSITION,*__INTEGER_IDE_TOPPOSITION,2); if(!qbevent)break;evnt(928);}while(r); } do{ *__LONG_IDEMODE= 1 ; if(!qbevent)break;evnt(929);}while(r); do{ qbs_set(__STRING_SENDC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(930);}while(r); S_1362:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(931);if(r)goto S_1362;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINEFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(931);}while(r); } LABEL_SENDCOMMAND:; if(qbevent){evnt(932);r=0;} do{ qbs_set(__STRING_IDECOMMAND,__STRING_SENDC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(933);}while(r); do{ *__LONG_C=FUNC_IDE(&(pass60= 0 )); if(!qbevent)break;evnt(934);}while(r); do{ *__LONG_IDEERROR= 0 ; if(!qbevent)break;evnt(935);}while(r); S_1368:; if ((-(*__LONG_C== 0 ))||new_error){ if(qbevent){evnt(936);if(r)goto S_1368;} do{ *__LONG_IDEMODE= 0 ; if(!qbevent)break;evnt(936);}while(r); do{ goto LABEL_NOIDE; if(!qbevent)break;evnt(936);}while(r); } do{ qbs_set(__STRING_C,__STRING_IDERETURN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(937);}while(r); S_1373:; if ((-(*__LONG_C== 2 ))||new_error){ if(qbevent){evnt(939);if(r)goto S_1373;} do{ *__LONG_IDEERRORLINE= 0 ; if(!qbevent)break;evnt(940);}while(r); do{ *__LONG_IDEPASS= 1 ; if(!qbevent)break;evnt(941);}while(r); do{ goto LABEL_FULLRECOMPILE; if(!qbevent)break;evnt(942);}while(r); LABEL_IDERET1:; if(qbevent){evnt(943);r=0;} do{ qbs_set(__STRING_WHOLELINE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(944);}while(r); do{ goto LABEL_IDEPREPASS; if(!qbevent)break;evnt(945);}while(r); LABEL_IDERET2:; if(qbevent){evnt(946);r=0;} S_1379:; if ((*__LONG_LASTLINERETURN)||new_error){ if(qbevent){evnt(947);if(r)goto S_1379;} do{ goto LABEL_LASTLINERETURN; if(!qbevent)break;evnt(947);}while(r); } do{ qbs_set(__STRING_SENDC,func_chr( 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(948);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(949);}while(r); } S_1385:; if ((-(*__LONG_C== 4 ))||new_error){ if(qbevent){evnt(952);if(r)goto S_1385;} S_1386:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ if(qbevent){evnt(953);if(r)goto S_1386;} do{ qbs_set(__STRING_WHOLELINE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(954);}while(r); do{ goto LABEL_IDEPREPASS; if(!qbevent)break;evnt(955);}while(r); } do{ qbs_set(__STRING_A3,__STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(959);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(960);}while(r); do{ goto LABEL_IDE4; if(!qbevent)break;evnt(961);}while(r); LABEL_IDERET4:; if(qbevent){evnt(962);r=0;} S_1393:; if ((*__LONG_LASTLINERETURN)||new_error){ if(qbevent){evnt(963);if(r)goto S_1393;} do{ goto LABEL_LASTLINERETURN; if(!qbevent)break;evnt(963);}while(r); } do{ qbs_set(__STRING_SENDC,func_chr( 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(964);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(965);}while(r); } S_1399:; if ((-(*__LONG_C== 5 ))||new_error){ if(qbevent){evnt(968);if(r)goto S_1399;} do{ *__LONG_LASTLINE= 1 ; if(!qbevent)break;evnt(970);}while(r); do{ *__LONG_LASTLINERETURN= 1 ; if(!qbevent)break;evnt(971);}while(r); S_1402:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ if(qbevent){evnt(972);if(r)goto S_1402;} do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(973);}while(r); do{ goto LABEL_IDEPREPASS; if(!qbevent)break;evnt(974);}while(r); } do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(978);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(979);}while(r); do{ goto LABEL_IDE4; if(!qbevent)break;evnt(980);}while(r); LABEL_LASTLINERETURN:; if(qbevent){evnt(981);r=0;} do{ *__LONG_LASTLINERETURN= 0 ; if(!qbevent)break;evnt(982);}while(r); do{ *__LONG_LASTLINE= 0 ; if(!qbevent)break;evnt(983);}while(r); S_1411:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ if(qbevent){evnt(985);if(r)goto S_1411;} do{ *__LONG_IDEPASS= 2 ; if(!qbevent)break;evnt(987);}while(r); do{ goto LABEL_IDE3; if(!qbevent)break;evnt(988);}while(r); LABEL_IDERET3:; if(qbevent){evnt(989);r=0;} do{ qbs_set(__STRING_SENDC,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(990);}while(r); do{ *__LONG_FIRSTLINE= 1 ; if(!qbevent)break;evnt(991);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(992);}while(r); } do{ goto LABEL_IDE5; if(!qbevent)break;evnt(996);}while(r); LABEL_IDERET5:; if(qbevent){evnt(997);r=0;} do{ qbs_set(__STRING_SENDC,func_chr( 6 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(998);}while(r); do{ *__LONG_IDECOMPILED= 0 ; if(!qbevent)break;evnt(999);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1000);}while(r); } S_1423:; if ((-(*__LONG_C== 9 ))||new_error){ if(qbevent){evnt(1003);if(r)goto S_1423;} S_1424:; if ((-(*__LONG_IDECOMPILED== 0 ))||new_error){ if(qbevent){evnt(1005);if(r)goto S_1424;} do{ qbs_set(__STRING_FILE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1006);}while(r); do{ qbs_set(__STRING_F,__STRING_FILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1009);}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(1011);}while(r); S_1428:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(1012);if(r)goto S_1428;} S_1429:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ if(qbevent){evnt(1013);if(r)goto S_1429;} 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(1013);}while(r); } } do{ *__LONG_I= 1 ; if(!qbevent)break;evnt(1016);}while(r); LABEL_NEXTEXEINDEX:; if(qbevent){evnt(1017);r=0;} S_1434:; 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(1018);if(r)goto S_1434;} do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(1019);}while(r); do{ error_goto_line=5; if(!qbevent)break;evnt(1020);}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(1021);}while(r); do{ error_goto_line=6; if(!qbevent)break;evnt(1022);}while(r); S_1439:; if ((-(*__LONG_E== 1 ))||new_error){ if(qbevent){evnt(1023);if(r)goto S_1439;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(1024);}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(1025);}while(r); do{ goto LABEL_NEXTEXEINDEX; if(!qbevent)break;evnt(1026);}while(r); } } S_1445:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1030);if(r)goto S_1445;} S_1446:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(1031);if(r)goto S_1446;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1031);}while(r); }else{ do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1031);}while(r); } } S_1452:; if ((-(*__LONG_I!= 1 ))||new_error){ if(qbevent){evnt(1035);if(r)goto S_1452;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1036);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1037);}while(r); } do{ *__LONG_IDEERRORLINE= 0 ; if(!qbevent)break;evnt(1040);}while(r); do{ goto LABEL_IDE6; if(!qbevent)break;evnt(1041);}while(r); LABEL_IDERET6:; if(qbevent){evnt(1042);r=0;} do{ *__LONG_IDECOMPILED= 1 ; if(!qbevent)break;evnt(1043);}while(r); } S_1460:; if ((-(*__LONG_IDERUNMODE== 2 ))||new_error){ if(qbevent){evnt(1046);if(r)goto S_1460;} do{ qbs_set(__STRING_SENDC,func_chr( 11 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1047);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1048);}while(r); } S_1464:; if ((-(*__LONG_IDERUNMODE== 1 ))||new_error){ if(qbevent){evnt(1053);if(r)goto S_1464;} S_1465:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(1054);if(r)goto S_1465;} 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(1054);}while(r); } S_1468:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1055);if(r)goto S_1468;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1055);}while(r); } S_1471:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(1056);if(r)goto S_1471;} S_1472:; 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(1057);if(r)goto S_1472;} do{ sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1058);}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(1060);}while(r); } } S_1478:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ if(qbevent){evnt(1063);if(r)goto S_1478;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1063);}while(r); } }else{ S_1482:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(1065);if(r)goto S_1482;} 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(1065);}while(r); } S_1485:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1066);if(r)goto S_1485;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1066);}while(r); } S_1488:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(1067);if(r)goto S_1488;} S_1489:; 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(1068);if(r)goto S_1489;} do{ sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1069);}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(1071);}while(r); } } S_1495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ if(qbevent){evnt(1074);if(r)goto S_1495;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1074);}while(r); } S_1498:; do{ if(qbevent){evnt(1075);if(r)goto S_1498;} S_1499:; dl_continue_64:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); dl_exit_64:; if(qbevent){evnt(1075);if(r)goto S_1499;} S_1500:; do{ if(qbevent){evnt(1076);if(r)goto S_1500;} S_1501:; dl_continue_65:; }while((!(-(func__keyhit()== 0 )))&&(!new_error)); dl_exit_65:; if(qbevent){evnt(1076);if(r)goto S_1501;} } S_1503:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(1079);if(r)goto S_1503;} do{ *__LONG_DUMMY=FUNC_DARKENFGBG(&(pass66= 0 )); if(!qbevent)break;evnt(1081);}while(r); } do{ qbs_set(__STRING_SENDC,func_chr( 6 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1084);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1085);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19)); if (new_error) goto skip67; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip67: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1088);}while(r); do{ sub_end(); if(!qbevent)break;evnt(1088);}while(r); LABEL_IDEERROR:; if(qbevent){evnt(1090);r=0;} S_1511:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||new_error){ if(qbevent){evnt(1091);if(r)goto S_1511;} 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(1094);}while(r); S_1513:; if ((get_error_err())||new_error){ if(qbevent){evnt(1095);if(r)goto S_1513;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass68=get_error_err()))),qbs_new_txt_len("-",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1095);}while(r); } S_1516:; if ((func__errorline())||new_error){ if(qbevent){evnt(1096);if(r)goto S_1516;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass69=func__errorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1096);}while(r); } S_1519:; if ((func__inclerrorline())||new_error){ if(qbevent){evnt(1097);if(r)goto S_1519;} 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(&(pass70=func__inclerrorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1097);}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(1098);}while(r); S_1523:; if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ if(qbevent){evnt(1099);if(r)goto S_1523;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1099);}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(1102);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1103);}while(r); LABEL_NOIDE:; if(qbevent){evnt(1106);r=0;} S_1529:; if (((((-(*__BYTE_QB64VERSIONPRINTED== 0 ))|(-(*__LONG_CONSOLEMODE== 0 ))))&(~(*__BYTE_QUIETMODE)))||new_error){ if(qbevent){evnt(1107);if(r)goto S_1529;} do{ *__BYTE_QB64VERSIONPRINTED= -1 ; if(!qbevent)break;evnt(1108);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); if (new_error) goto skip71; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip71: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1109);}while(r); } S_1533:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1112);if(r)goto S_1533;} 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(1113);}while(r); }else{ do{ qbs_set(__STRING_F,__STRING_CMDLINEFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1115);}while(r); } do{ qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1118);}while(r); S_1539:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||new_error){ if(qbevent){evnt(1120);if(r)goto S_1539;} 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(1120);}while(r); } do{ qbs_set(__STRING_SOURCEFILE,__STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1122);}while(r); do{ qbs_set(__STRING_CMDLINEFILE,__STRING_SOURCEFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1123);}while(r); do{ qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1125);}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(1127);}while(r); do{ qbs_set(__STRING_CURRENTDIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1128);}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(1129);}while(r); S_1548:; if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||new_error){ if(qbevent){evnt(1130);if(r)goto S_1548;} S_1549:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||new_error){ if(qbevent){evnt(1131);if(r)goto S_1549;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip73: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1132);}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 skip74; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip74: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1133);}while(r); S_1552:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(1134);if(r)goto S_1552;} do{ if(qbevent){evnt(1134);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(1134);}while(r); } do{ if(qbevent){evnt(1135);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(1135);}while(r); } do{ sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1137);}while(r); do{ qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1138);}while(r); S_1559:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||new_error){ if(qbevent){evnt(1139);if(r)goto S_1559;} 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(1139);}while(r); } do{ sub_chdir(__STRING_CURRENTDIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1140);}while(r); } S_1564:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(1142);if(r)goto S_1564;} 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(1142);}while(r); } S_1567:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1143);if(r)goto S_1567;} S_1568:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(1144);if(r)goto S_1568;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1144);}while(r); }else{ do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1144);}while(r); } } S_1574:; fornext_value76=__STRING_F->len; fornext_finalvalue76= 1 ; fornext_step76= -1 ; if (fornext_step76<0) fornext_step_negative76=1; else fornext_step_negative76=0; if (new_error) goto fornext_error76; goto fornext_entrylabel76; while(1){ fornext_value76=fornext_step76+(*__LONG_X); fornext_entrylabel76: *__LONG_X=fornext_value76; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative76){ if (fornext_value76fornext_finalvalue76) break; } fornext_error76:; if(qbevent){evnt(1147);if(r)goto S_1574;} do{ qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1148);}while(r); S_1576:; 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(1149);if(r)goto S_1576;} do{ qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1150);}while(r); do{ goto fornext_exit_75; if(!qbevent)break;evnt(1151);}while(r); } fornext_continue_75:; } fornext_exit_75:; do{ qbs_set(__STRING_FILE,__STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1154);}while(r); LABEL_FULLRECOMPILE:; if(qbevent){evnt(1159);r=0;} 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(1161);}while(r); S_1583:; fornext_value80= 1 ; fornext_finalvalue80=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1); fornext_step80= 1 ; if (fornext_step80<0) fornext_step_negative80=1; else fornext_step_negative80=0; if (new_error) goto fornext_error80; goto fornext_entrylabel80; while(1){ fornext_value80=fornext_step80+(*__LONG_I); fornext_entrylabel80: *__LONG_I=fornext_value80; if (fornext_step_negative80){ if (fornext_value80fornext_finalvalue80) break; } fornext_error80:; if(qbevent){evnt(1162);if(r)goto S_1583;} 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(1162);}while(r); fornext_continue_79:; } fornext_exit_79:; 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(1163);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; if(!qbevent)break;evnt(1165);}while(r); S_1588:; fornext_value82= 1 ; fornext_finalvalue82= 255 ; fornext_step82= 1 ; if (fornext_step82<0) fornext_step_negative82=1; else fornext_step_negative82=0; if (new_error) goto fornext_error82; goto fornext_entrylabel82; while(1){ fornext_value82=fornext_step82+(*__LONG_CLOSEALL); fornext_entrylabel82: *__LONG_CLOSEALL=fornext_value82; if (fornext_step_negative82){ if (fornext_value82fornext_finalvalue82) break; } fornext_error82:; if(qbevent){evnt(1167);if(r)goto S_1588;} do{ sub_close(*__LONG_CLOSEALL,1); if(!qbevent)break;evnt(1167);}while(r); fornext_continue_81:; } fornext_exit_81:; 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(1169);}while(r); do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(1171);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1171);}while(r); do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(1171);}while(r); S_1595:; if (( 0 )||new_error){ if(qbevent){evnt(1173);if(r)goto S_1595;} do{ sub_close( 9 ,1); if(!qbevent)break;evnt(1173);}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(1173);}while(r); } S_1599:; fornext_value84= 1 ; fornext_finalvalue84=*__LONG_IDS_MAX+ 1 ; fornext_step84= 1 ; if (fornext_step84<0) fornext_step_negative84=1; else fornext_step_negative84=0; if (new_error) goto fornext_error84; goto fornext_entrylabel84; while(1){ fornext_value84=fornext_step84+(*__LONG_I); fornext_entrylabel84: *__LONG_I=fornext_value84; if (fornext_step_negative84){ if (fornext_value84fornext_finalvalue84) break; } fornext_error84:; if(qbevent){evnt(1175);if(r)goto S_1599;} 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(1176);}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(1177);}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(1178);}while(r); fornext_continue_83:; } fornext_exit_83:; do{ *__LONG_LASTUNRESOLVED= -1 ; if(!qbevent)break;evnt(1184);}while(r); do{ *__INTEGER_SFLISTN= -1 ; if(!qbevent)break;evnt(1185);}while(r); do{ qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1187);}while(r); LABEL_RECOMPILE:; if(qbevent){evnt(1189);r=0;} do{ *__LONG_LASTLINERETURN= 0 ; if(!qbevent)break;evnt(1191);}while(r); do{ *__LONG_LASTLINE= 0 ; if(!qbevent)break;evnt(1192);}while(r); do{ *__LONG_FIRSTLINE= 1 ; if(!qbevent)break;evnt(1193);}while(r); do{ *__LONG_RESIZE= 0 ; if(!qbevent)break;evnt(1195);}while(r); do{ *__LONG_RESIZE_SCALE= 0 ; if(!qbevent)break;evnt(1196);}while(r); do{ *__LONG_USEGL= 0 ; if(!qbevent)break;evnt(1198);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; if(!qbevent)break;evnt(1200);}while(r); do{ SUB_HASHCLEAR(); if(!qbevent)break;evnt(1202);}while(r); do{ *__LONG_F= 4 + 8 ; if(!qbevent)break;evnt(1206);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass85= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1207);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass86= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1208);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass87= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1209);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass88= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1210);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass89= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1211);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass90= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1212);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass91= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1213);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass92= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1214);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass93= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1215);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass94= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1216);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass95= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1217);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass96= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1218);}while(r); do{ *__LONG_F= 16 + 8 ; if(!qbevent)break;evnt(1220);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass97= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1221);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass98= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1222);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass99= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1223);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass100= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1224);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass101= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1225);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass102= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1226);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass103= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1227);}while(r); do{ *__LONG_F= 8 + 32 ; if(!qbevent)break;evnt(1229);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass104= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1230);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass105= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1231);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass106= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1232);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass107= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1233);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass108= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1234);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass109= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1235);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass110= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1236);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass111= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1237);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass112= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1238);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass113= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1239);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass114= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1241);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass115= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1242);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass116= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1244);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass117= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1245);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass118= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1246);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass119= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1247);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass120= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1248);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass121= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1249);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass122= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1250);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass123= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1251);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass124= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1252);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass125= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1253);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass126= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1255);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass127= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1257);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass128= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1259);}while(r); do{ *__LONG_F= 8 + 8192 + 16384 ; if(!qbevent)break;evnt(1261);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass129= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1265);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass130= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1266);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass131=*__LONG_F- 8192 ),&(pass132= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1267);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass133= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1268);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass134= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1269);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass135= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1271);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass136= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1272);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass137= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1273);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass138= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1274);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass139= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1275);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass140= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1276);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass141= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1277);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass142= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1278);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass143= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1279);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass144=*__LONG_F- 8192 ),&(pass145= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1280);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass146=*__LONG_F- 8192 ),&(pass147= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1282);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass148= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1283);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass149= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1284);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass150= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1285);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass151=*__LONG_F- 8192 ),&(pass152= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1286);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass153=*__LONG_F- 8192 ),&(pass154= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1288);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass155= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1289);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass156= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1291);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass157= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1292);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass158=*__LONG_F- 8192 - 16384 ),&(pass159= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1295);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass160= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1296);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass161=*__LONG_F- 8192 - 16384 ),&(pass162= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1298);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass163=*__LONG_F- 8192 ),&(pass164= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1300);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass165=*__LONG_F- 8192 ),&(pass166= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1301);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass167=*__LONG_F- 8192 ),&(pass168= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1302);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass169=*__LONG_F- 8192 ),&(pass170= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1305);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass171=*__LONG_F- 8192 - 16384 ),&(pass172= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1308);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass173=*__LONG_F- 8192 - 16384 ),&(pass174= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1309);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass175= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1312);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass176= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1313);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass177=*__LONG_F- 8192 ),&(pass178= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1314);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass179=*__LONG_F- 8192 ),&(pass180= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1315);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass181=*__LONG_F- 8192 ),&(pass182= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1316);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass183=*__LONG_F- 8192 ),&(pass184= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1317);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass185= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1319);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass186= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1320);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass187= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1321);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass188=*__LONG_F- 8192 - 16384 ),&(pass189= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1322);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass190= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1323);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass191=*__LONG_F- 8192 - 16384 ),&(pass192= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1324);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass193= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1326);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass194=*__LONG_F- 8192 - 16384 ),&(pass195= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1327);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass196=*__LONG_F- 8192 ),&(pass197= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1328);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass198= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1330);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass199= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1331);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass200= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1334);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass201= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1335);}while(r); do{ *__LONG_CONSOLE= 0 ; if(!qbevent)break;evnt(1347);}while(r); do{ *__LONG_SCREENHIDE= 0 ; if(!qbevent)break;evnt(1348);}while(r); do{ *__LONG_ASSERTS= 0 ; if(!qbevent)break;evnt(1349);}while(r); do{ *__LONG_RESOLVESTATICFUNCTIONS= 0 ; if(!qbevent)break;evnt(1350);}while(r); do{ *__LONG_DYNAMICLIBRARY= 0 ; if(!qbevent)break;evnt(1351);}while(r); do{ *__INTEGER_DIMSFARRAY= 0 ; if(!qbevent)break;evnt(1352);}while(r); do{ *__LONG_DIMSTATIC= 0 ; if(!qbevent)break;evnt(1353);}while(r); do{ *__LONG_ALLOWLOCALNAME= 0 ; if(!qbevent)break;evnt(1354);}while(r); do{ qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1355);}while(r); do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(1356);}while(r); do{ *__INTEGER_DIMSHARED= 0 ; if(!qbevent)break;evnt(1357);}while(r); do{ *__LONG_DIMMETHOD= 0 ; if(!qbevent)break;evnt(1357);}while(r); do{ *__INTEGER_DIMOPTION= 0 ; if(!qbevent)break;evnt(1357);}while(r); do{ *__INTEGER_REDIMOPTION= 0 ; if(!qbevent)break;evnt(1357);}while(r); do{ *__LONG_COMMONOPTION= 0 ; if(!qbevent)break;evnt(1357);}while(r); do{ qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1358);}while(r); do{ qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1358);}while(r); do{ *__LONG_DECLARINGLIBRARY= 0 ; if(!qbevent)break;evnt(1359);}while(r); do{ *__LONG_NLABELS= 0 ; if(!qbevent)break;evnt(1360);}while(r); do{ *__LONG_DYNSCOPE= 0 ; if(!qbevent)break;evnt(1361);}while(r); do{ *__LONG_ELSEFOLLOWUP= 0 ; if(!qbevent)break;evnt(1362);}while(r); do{ *__LONG_ONTIMERID= 0 ; if(!qbevent)break;evnt(1363);}while(r); do{ *__LONG_ONKEYID= 0 ; if(!qbevent)break;evnt(1363);}while(r); do{ *__LONG_ONSTRIGID= 0 ; if(!qbevent)break;evnt(1363);}while(r); do{ qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1364);}while(r); do{ *__LONG_COMMONARRAYLISTN= 0 ; if(!qbevent)break;evnt(1364);}while(r); do{ qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1365);}while(r); do{ *__LONG_STATICARRAYLISTN= 0 ; if(!qbevent)break;evnt(1365);}while(r); do{ *__LONG_FOOINDWEL= 0 ; if(!qbevent)break;evnt(1366);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1367);}while(r); do{ *__LONG_LAYOUTOK= 0 ; if(!qbevent)break;evnt(1368);}while(r); do{ *__LONG_NOCHECKS= 0 ; if(!qbevent)break;evnt(1369);}while(r); do{ *__LONG_INCLEVEL= 0 ; if(!qbevent)break;evnt(1370);}while(r); do{ *__LONG_ERRORLINEININCLUDE= 0 ; if(!qbevent)break;evnt(1371);}while(r); do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1372);}while(r); do{ *__LONG_NEXTRUNLINEINDEX= 1 ; if(!qbevent)break;evnt(1373);}while(r); do{ *__LONG_LASTTYPE= 0 ; if(!qbevent)break;evnt(1374);}while(r); do{ *__LONG_LASTTYPEELEMENT= 0 ; if(!qbevent)break;evnt(1375);}while(r); do{ *__LONG_DEFININGTYPE= 0 ; if(!qbevent)break;evnt(1376);}while(r); do{ *__LONG_CONSTLAST= -1 ; if(!qbevent)break;evnt(1377);}while(r); do{ *__INTEGER_DEFDATAHANDLE= 18 ; if(!qbevent)break;evnt(1379);}while(r); do{ *__INTEGER_CLOSEDMAIN= 0 ; if(!qbevent)break;evnt(1380);}while(r); do{ *__INTEGER_ADDMETASTATIC= 0 ; if(!qbevent)break;evnt(1381);}while(r); do{ *__INTEGER_ADDMETADYNAMIC= 0 ; if(!qbevent)break;evnt(1382);}while(r); do{ *__INTEGER_DYNAMICMODE= 0 ; if(!qbevent)break;evnt(1383);}while(r); do{ *__INTEGER_OPTIONBASE= 0 ; if(!qbevent)break;evnt(1384);}while(r); do{ *__BYTE_OPTIONEXPLICIT= 0 ; if(!qbevent)break;evnt(1385);}while(r); S_1762:; if (((-(*__BYTE_OPTIONEXPLICIT_CMD== -1 ))&(-(*__LONG_NOIDEMODE== 1 )))||new_error){ if(qbevent){evnt(1385);if(r)goto S_1762;} do{ *__BYTE_OPTIONEXPLICIT= -1 ; if(!qbevent)break;evnt(1385);}while(r); } do{ *__BYTE_OPTIONEXPLICITARRAY= 0 ; if(!qbevent)break;evnt(1386);}while(r); do{ *__LONG_EXEICONSET= 0 ; if(!qbevent)break;evnt(1387);}while(r); do{ *__BYTE_VERSIONINFOSET= 0 ; if(!qbevent)break;evnt(1388);}while(r); do{ qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1389);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1389);}while(r); do{ qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1389);}while(r); do{ qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1390);}while(r); do{ qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1390);}while(r); do{ qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1390);}while(r); do{ qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1391);}while(r); do{ qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1391);}while(r); do{ qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1391);}while(r); do{ qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1392);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1392);}while(r); do{ qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1392);}while(r); do{ qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1392);}while(r); do{ *__LONG_DATAOFFSET= 0 ; if(!qbevent)break;evnt(1393);}while(r); do{ *__LONG_STATEMENTN= 0 ; if(!qbevent)break;evnt(1394);}while(r); do{ *__LONG_EVERYCASENEWCASE= 0 ; if(!qbevent)break;evnt(1395);}while(r); do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(1396);}while(r); do{ *__INTEGER_QBERRORCODE= 0 ; if(!qbevent)break;evnt(1396);}while(r); do{ *__INTEGER_QBERRORLINE= 0 ; if(!qbevent)break;evnt(1396);}while(r); S_1787:; fornext_value203= 1 ; fornext_finalvalue203= 27 ; fornext_step203= 1 ; if (fornext_step203<0) fornext_step_negative203=1; else fornext_step_negative203=0; if (new_error) goto fornext_error203; goto fornext_entrylabel203; while(1){ fornext_value203=fornext_step203+(*__LONG_I); fornext_entrylabel203: *__LONG_I=fornext_value203; if (fornext_step_negative203){ if (fornext_value203fornext_finalvalue203) break; } fornext_error203:; if(qbevent){evnt(1397);if(r)goto S_1787;} 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(1397);}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(1397);}while(r); fornext_continue_202:; } fornext_exit_202:; do{ *__INTEGER_CONTROLLEVEL= 0 ; if(!qbevent)break;evnt(1398);}while(r); do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1399);}while(r); do{ *__INTEGER_FINDANOTHERID= 0 ; if(!qbevent)break;evnt(1399);}while(r); do{ *__LONG_FINDIDINTERNAL= 0 ; if(!qbevent)break;evnt(1399);}while(r); do{ *__LONG_CURRENTID= 0 ; if(!qbevent)break;evnt(1399);}while(r); do{ *__LONG_LINENUMBER= 0 ; if(!qbevent)break;evnt(1400);}while(r); do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1401);}while(r); do{ qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1402);}while(r); do{ *__LONG_IDN= 0 ; if(!qbevent)break;evnt(1403);}while(r); do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(1404);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(1405);}while(r); do{ *__LONG_SUBFUNCN= 0 ; if(!qbevent)break;evnt(1406);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1407);}while(r); do{ *__ULONG_SELECTCASECOUNTER= 0 ; if(!qbevent)break;evnt(1408);}while(r); do{ *__INTEGER_EXECCOUNTER= 0 ; if(!qbevent)break;evnt(1409);}while(r); do{ *__INTEGER_USERDEFINECOUNT= 6 ; if(!qbevent)break;evnt(1410);}while(r); do{ *__LONG_TOTALVARIABLESCREATED= 0 ; if(!qbevent)break;evnt(1411);}while(r); do{ *__LONG_TOTALWARNINGS= 0 ; if(!qbevent)break;evnt(1412);}while(r); do{ *__BYTE_DUPLICATECONSTWARNING= 0 ; if(!qbevent)break;evnt(1413);}while(r); do{ *__BYTE_EMPTYSCWARNING= 0 ; if(!qbevent)break;evnt(1414);}while(r); do{ *__LONG_WARNINGLISTITEMS= 0 ; if(!qbevent)break;evnt(1415);}while(r); do{ qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1416);}while(r); do{ if (__ARRAY_STRING_WARNING[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_WARNING[2]&1){ tmp_long=__ARRAY_STRING_WARNING[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]); free((void*)(__ARRAY_STRING_WARNING[0])); } __ARRAY_STRING_WARNING[4]= 0 ; __ARRAY_STRING_WARNING[5]=( 1000 )-__ARRAY_STRING_WARNING[4]+1; __ARRAY_STRING_WARNING[6]=1; __ARRAY_STRING_WARNING[0]=(ptrszint)malloc(__ARRAY_STRING_WARNING[5]*8); if (!__ARRAY_STRING_WARNING[0]) error(257); __ARRAY_STRING_WARNING[2]|=1; tmp_long=__ARRAY_STRING_WARNING[5]; if (__ARRAY_STRING_WARNING[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(1417);}while(r); do{ *__LONG_UNIQUENUMBERN= 0 ; if(!qbevent)break;evnt(1418);}while(r); do{ *__LONG_QB64PREFIX_SET= 0 ; if(!qbevent)break;evnt(1419);}while(r); do{ qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1420);}while(r); do{ *__LONG_PTRSZ=*__LONG_OS_BITS/ 8 ; if(!qbevent)break;evnt(1443);}while(r); do{ *__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; if(!qbevent)break;evnt(1445);}while(r); do{ *__LONG_I=*__LONG_LASTTYPE; if(!qbevent)break;evnt(1445);}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(1446);}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(1447);}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(1448);}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(1449);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1450);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1450);}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(1451);}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(1452);}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(1453);}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(1454);}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(1454);}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(1455);}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(1456);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1457);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1458);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1458);}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(1459);}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(1460);}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(1461);}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(1462);}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(1462);}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(1463);}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(1464);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1465);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1466);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1466);}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(1467);}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(1468);}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(1469);}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(1470);}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(1470);}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(1471);}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(1472);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1473);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1474);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1474);}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(1475);}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(1476);}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(1477);}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(1478);}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(1478);}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(1479);}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(1480);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1481);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1482);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1482);}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(1483);}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(1484);}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(1485);}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(1486);}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(1486);}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(1487);}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(1488);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1489);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1490);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1490);}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(1491);}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(1492);}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(1493);}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(1494);}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(1494);}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(1495);}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(1496);}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(1497);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1498);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1499);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1499);}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(1500);}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(1501);}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(1502);}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(1503);}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(1503);}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(1504);}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(1505);}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(1506);}while(r); do{ *__LONG_I3=*__LONG_I2; if(!qbevent)break;evnt(1507);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1508);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1508);}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(1509);}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(1510);}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(1511);}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(1512);}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(1512);}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(1513);}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(1514);}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(1515);}while(r); S_1906:; fornext_value205= 1 ; fornext_finalvalue205= 255 ; fornext_step205= 1 ; if (fornext_step205<0) fornext_step_negative205=1; else fornext_step_negative205=0; if (new_error) goto fornext_error205; goto fornext_entrylabel205; while(1){ fornext_value205=fornext_step205+(*__LONG_CLOSEALL); fornext_entrylabel205: *__LONG_CLOSEALL=fornext_value205; if (fornext_step_negative205){ if (fornext_value205fornext_finalvalue205) break; } fornext_error205:; if(qbevent){evnt(1527);if(r)goto S_1906;} do{ sub_close(*__LONG_CLOSEALL,1); if(!qbevent)break;evnt(1527);}while(r); fornext_continue_204:; } fornext_exit_204:; 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(1528);}while(r); do{ *__LONG_FF=func_freefile(); if(!qbevent)break;evnt(1530);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 4 ,NULL,NULL,*__LONG_FF,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1530);}while(r); do{ sub_close(*__LONG_FF,1); if(!qbevent)break;evnt(1530);}while(r); S_1913:; if (( 0 )||new_error){ if(qbevent){evnt(1532);if(r)goto S_1913;} do{ sub_close( 9 ,1); if(!qbevent)break;evnt(1532);}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(1532);}while(r); } S_1917:; if ((-(*__LONG_IDEMODE== 0 ))||new_error){ if(qbevent){evnt(1534);if(r)goto S_1917;} do{ *__INTEGER_QBERRORHAPPENED= -1 ; if(!qbevent)break;evnt(1535);}while(r); do{ sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1536);}while(r); LABEL_QBERRORHAPPENED1:; if(qbevent){evnt(1537);r=0;} S_1920:; if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||new_error){ if(qbevent){evnt(1538);if(r)goto S_1920;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip206: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1539);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file:",26),__STRING_SOURCEFILE)); if (new_error) goto skip207; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip207: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1540);}while(r); S_1923:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(1541);if(r)goto S_1923;} do{ if(qbevent){evnt(1541);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(1541);}while(r); } do{ if(qbevent){evnt(1542);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(1542);}while(r); }else{ do{ sub_close( 1 ,1); if(!qbevent)break;evnt(1544);}while(r); } do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(1546);}while(r); } do{ SUB_REGINTERNAL(); if(!qbevent)break;evnt(1549);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 4 ,NULL,NULL, 18 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1551);}while(r); S_1934:; if ((*__LONG_IDERECOMPILE)||new_error){ if(qbevent){evnt(1553);if(r)goto S_1934;} do{ *__LONG_IDERECOMPILE= 0 ; if(!qbevent)break;evnt(1554);}while(r); do{ *__LONG_IDEPASS= 1 ; if(!qbevent)break;evnt(1555);}while(r); do{ qbs_set(__STRING_SENDC,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1556);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1557);}while(r); } S_1940:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(1560);if(r)goto S_1940;} do{ goto LABEL_IDERET1; if(!qbevent)break;evnt(1560);}while(r); } S_1943:; if ((~(*__BYTE_QUIETMODE))||new_error){ if(qbevent){evnt(1562);if(r)goto S_1943;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip208: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1563);}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 skip209; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip209: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1564);}while(r); } do{ SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1567);}while(r); S_1948:; do{ if(qbevent){evnt(1569);if(r)goto S_1948;} do{ qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1573);}while(r); S_1950:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||new_error){ if(qbevent){evnt(1574);if(r)goto S_1950;} do{ goto dl_exit_210; if(!qbevent)break;evnt(1574);}while(r); } LABEL_IDEPREPASS:; if(qbevent){evnt(1576);r=0;} LABEL_PREPASSLASTLINE:; if(qbevent){evnt(1577);r=0;} do{ qbs_set(__STRING_WHOLESTV,__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1579);}while(r); do{ *__LONG_PREPASS= 1 ; if(!qbevent)break;evnt(1583);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1584);}while(r); do{ *__LONG_LAYOUTOK= 0 ; if(!qbevent)break;evnt(1585);}while(r); do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; if(!qbevent)break;evnt(1587);}while(r); do{ *__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; if(!qbevent)break;evnt(1588);}while(r); S_1959:; while((!(-(*__LONG_LINENUMBERid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_BYTE_INVALIDLINE[2]&1){ preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; } else preserved_elements=0; __ARRAY_BYTE_INVALIDLINE[4]= 0 ; __ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; __ARRAY_BYTE_INVALIDLINE[6]=1; if (__ARRAY_BYTE_INVALIDLINE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1); cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); tmp_long=__ARRAY_BYTE_INVALIDLINE[5]; __ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(1597);if(r)goto S_1963;} S_1964:; 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(1599);if(r)goto S_1964;} S_1965:; if ((-(*__LONG_FIRSTLINE== 0 ))||new_error){ if(qbevent){evnt(1600);if(r)goto S_1965;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX must come before any other statements",47)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1600);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1600);}while(r); } do{ qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1602);}while(r); do{ *__LONG_QB64PREFIX_SET= 1 ; if(!qbevent)break;evnt(1603);}while(r); do{ SUB_REGINTERNAL(); if(!qbevent)break;evnt(1606);}while(r); do{ *__LONG_F= 4 + 8 ; if(!qbevent)break;evnt(1608);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("UNSIGNED",8),__LONG_F,&(pass213= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1609);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("BIT",3),__LONG_F,&(pass214= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1610);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("BYTE",4),__LONG_F,&(pass215= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1611);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("INTEGER64",9),__LONG_F,&(pass216= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1612);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("OFFSET",6),__LONG_F,&(pass217= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1613);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("FLOAT",5),__LONG_F,&(pass218= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1614);}while(r); do{ *__LONG_F= 8 + 32 ; if(!qbevent)break;evnt(1616);}while(r); do{ SUB_HASHADD(qbs_new_txt_len("EXPLICIT",8),__LONG_F,&(pass219= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1617);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1619);}while(r); } do{ qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1622);}while(r); S_1984:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(1623);if(r)goto S_1984;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1623);}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(1626);}while(r); S_1988:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||new_error){ if(qbevent){evnt(1628);if(r)goto S_1988;} do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("source",6)),__STRING1_PATHSEP),qbs_new_txt_len("utilities",9)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1629);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1630);}while(r); } S_1992:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||new_error){ if(qbevent){evnt(1633);if(r)goto S_1992;} do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("source",6)),__STRING1_PATHSEP),qbs_new_txt_len("utilities",9)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1634);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1635);}while(r); } S_1996:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ if(qbevent){evnt(1638);if(r)goto S_1996;} S_1997:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ if(qbevent){evnt(1639);if(r)goto S_1997;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1639);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1639);}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(1640);}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(1641);}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(1642);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; if(!qbevent)break;evnt(1643);}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(1644);}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(1645);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1646);}while(r); S_2008:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1647);if(r)goto S_2008;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1647);}while(r); } S_2011:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ if(qbevent){evnt(1648);if(r)goto S_2011;} 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(1649);}while(r); S_2013:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ if(qbevent){evnt(1650);if(r)goto S_2013;} 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(1650);}while(r); } } do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1652);}while(r); } S_2019:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||new_error){ if(qbevent){evnt(1655);if(r)goto S_2019;} S_2020:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(1656);if(r)goto S_2020;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1656);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1656);}while(r); } S_2024:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ if(qbevent){evnt(1657);if(r)goto S_2024;} 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(1657);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1657);}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(1658);}while(r); S_2029:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ if(qbevent){evnt(1659);if(r)goto S_2029;} 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(1660);}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(1662);}while(r); } do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1664);}while(r); } S_2036:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ if(qbevent){evnt(1667);if(r)goto S_2036;} do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1668);}while(r); S_2038:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ if(qbevent){evnt(1669);if(r)goto S_2038;} S_2039:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(1670);if(r)goto S_2039;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1670);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1670);}while(r); } S_2043:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ if(qbevent){evnt(1671);if(r)goto S_2043;} 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(1671);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1671);}while(r); } S_2047:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ if(qbevent){evnt(1672);if(r)goto S_2047;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1672);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1672);}while(r); } S_2051:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ if(qbevent){evnt(1673);if(r)goto S_2051;} 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(1674);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1675);}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(1677);}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(1678);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1679);}while(r); S_2058:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(1680);if(r)goto S_2058;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1680);}while(r); } S_2061:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ if(qbevent){evnt(1681);if(r)goto S_2061;} 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(1682);}while(r); S_2063:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ if(qbevent){evnt(1683);if(r)goto S_2063;} 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(1683);}while(r); } } do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1685);}while(r); } } S_2070:; 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(1689);if(r)goto S_2070;} S_2071:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(1690);if(r)goto S_2071;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1690);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1690);}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(1691);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; if(!qbevent)break;evnt(1692);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1693);}while(r); } S_2079:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ if(qbevent){evnt(1696);if(r)goto S_2079;} S_2080:; while((!(-(*__LONG_LINENUMBERid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_BYTE_INVALIDLINE[2]&1){ preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; } else preserved_elements=0; __ARRAY_BYTE_INVALIDLINE[4]= 0 ; __ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; __ARRAY_BYTE_INVALIDLINE[6]=1; if (__ARRAY_BYTE_INVALIDLINE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1); cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); tmp_long=__ARRAY_BYTE_INVALIDLINE[5]; __ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1); if (preserved_elements = ",38)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1709);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1709);}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(1710);}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(1710);}while(r); do{ qbs_set(__STRING_L1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1712);}while(r); S_2096:; fornext_value224= 1 ; fornext_finalvalue224=__STRING_L->len; fornext_step224= 1 ; if (fornext_step224<0) fornext_step_negative224=1; else fornext_step_negative224=0; if (new_error) goto fornext_error224; goto fornext_entrylabel224; while(1){ fornext_value224=fornext_step224+(*__LONG_I); fornext_entrylabel224: *__LONG_I=fornext_value224; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative224){ if (fornext_value224fornext_finalvalue224) break; } fornext_error224:; if(qbevent){evnt(1713);if(r)goto S_2096;} do{ *__LONG_A=qbs_asc(__STRING_L,*__LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1714);}while(r); S_2098:; if(qbevent){evnt(1715);if(r)goto S_2098;} S_2099:; if (((*__LONG_A==( 32 )))||new_error){ if(qbevent){evnt(1716);if(r)goto S_2099;} sc_ec_1_end:; goto sc_226_end; } S_2100:; if (((*__LONG_A==( 46 )))||new_error){ if(qbevent){evnt(1717);if(r)goto S_2100;} do{ qbs_set(__STRING_L1,qbs_add(__STRING_L1,func_chr(*__LONG_A))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1717);}while(r); sc_ec_2_end:; goto sc_226_end; } S_2102:; if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ if(qbevent){evnt(1718);if(r)goto S_2102;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Invalid symbol left of equal sign (",35),func_chr(*__LONG_A)),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1718);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1718);}while(r); sc_ec_3_end:; goto sc_226_end; } do{ qbs_set(__STRING_L1,qbs_add(__STRING_L1,func_chr(*__LONG_A))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1719);}while(r); sc_226_end:; fornext_continue_223:; } fornext_exit_223:; do{ qbs_set(__STRING_L,__STRING_L1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1722);}while(r); S_2110:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(1723);if(r)goto S_2110;} do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1723);}while(r); } S_2113:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(1724);if(r)goto S_2113;} 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(1724);}while(r); } S_2116:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(1725);if(r)goto S_2116;} do{ qbs_set(__STRING_R1,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1726);}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(1727);}while(r); }else{ do{ qbs_set(__STRING_R1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1729);}while(r); } S_2122:; fornext_value229= 1 ; fornext_finalvalue229=__STRING_R->len; fornext_step229= 1 ; if (fornext_step229<0) fornext_step_negative229=1; else fornext_step_negative229=0; if (new_error) goto fornext_error229; goto fornext_entrylabel229; while(1){ fornext_value229=fornext_step229+(*__LONG_I); fornext_entrylabel229: *__LONG_I=fornext_value229; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative229){ if (fornext_value229fornext_finalvalue229) break; } fornext_error229:; if(qbevent){evnt(1732);if(r)goto S_2122;} do{ *__LONG_A=qbs_asc(__STRING_R,*__LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1733);}while(r); S_2124:; if(qbevent){evnt(1734);if(r)goto S_2124;} S_2125:; if (((*__LONG_A==( 32 )))||new_error){ if(qbevent){evnt(1735);if(r)goto S_2125;} sc_ec_4_end:; goto sc_231_end; } S_2126:; if (((*__LONG_A==( 46 )))||new_error){ if(qbevent){evnt(1736);if(r)goto S_2126;} do{ qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1737);}while(r); sc_ec_5_end:; goto sc_231_end; } S_2128:; if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ if(qbevent){evnt(1738);if(r)goto S_2128;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Invalid symbol right of equal sign (",36),func_chr(*__LONG_A)),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1739);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1739);}while(r); sc_ec_6_end:; goto sc_231_end; } do{ qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1741);}while(r); sc_231_end:; fornext_continue_228:; } fornext_exit_228:; do{ qbs_set(__STRING_R,__STRING_R1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1744);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(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(1745);}while(r); S_2137:; fornext_value233= 7 ; fornext_finalvalue233=*__INTEGER_USERDEFINECOUNT; fornext_step233= 1 ; if (fornext_step233<0) fornext_step_negative233=1; else fornext_step_negative233=0; if (new_error) goto fornext_error233; goto fornext_entrylabel233; while(1){ fornext_value233=fornext_step233+(*__LONG_I); fornext_entrylabel233: *__LONG_I=fornext_value233; if (fornext_step_negative233){ if (fornext_value233fornext_finalvalue233) break; } fornext_error233:; if(qbevent){evnt(1747);if(r)goto S_2137;} S_2138:; 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(1748);if(r)goto S_2138;} 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(1748);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1748);}while(r); } fornext_continue_232:; } fornext_exit_232:; do{ *__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; if(!qbevent)break;evnt(1751);}while(r); S_2144:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ if(qbevent){evnt(1752);if(r)goto S_2144;} do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_USERDEFINE[2]&1){ preserved_elements=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; } else preserved_elements=0; __ARRAY_STRING_USERDEFINE[8]= 0 ; __ARRAY_STRING_USERDEFINE[9]=( 1 )-__ARRAY_STRING_USERDEFINE[8]+1; __ARRAY_STRING_USERDEFINE[10]=1; __ARRAY_STRING_USERDEFINE[4]= 0 ; __ARRAY_STRING_USERDEFINE[5]=(func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2)+ 10 )-__ARRAY_STRING_USERDEFINE[4]+1; __ARRAY_STRING_USERDEFINE[6]=__ARRAY_STRING_USERDEFINE[10]*__ARRAY_STRING_USERDEFINE[9]; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; if (tmp_long2= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||new_error){ if(qbevent){evnt(1774);if(r)goto S_2159;} do{ *__LONG_WHOLELINEI= 2 ; if(!qbevent)break;evnt(1774);}while(r); do{ goto LABEL_PPSKPL; if(!qbevent)break;evnt(1774);}while(r); } S_2163:; if ((-(*__LONG_WHOLELINEN>= 2 ))||new_error){ if(qbevent){evnt(1777);if(r)goto S_2163;} 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(1778);}while(r); do{ *__LONG_X3=*__LONG_X2+ 2 ; if(!qbevent)break;evnt(1778);}while(r); S_2166:; if ((-(*__LONG_X2== 0 ))||new_error){ if(qbevent){evnt(1779);if(r)goto S_2166;} S_2167:; 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(1780);if(r)goto S_2167;} do{ *__LONG_X2=__STRING_WHOLELINE->len- 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1780);}while(r); do{ *__LONG_X3=*__LONG_X2+ 1 ; if(!qbevent)break;evnt(1780);}while(r); } } S_2172:; if ((*__LONG_X2)||new_error){ if(qbevent){evnt(1783);if(r)goto S_2172;} do{ qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1784);}while(r); S_2174:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||new_error){ if(qbevent){evnt(1785);if(r)goto S_2174;} do{ qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1786);}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(1787);}while(r); do{ *__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1788);}while(r); do{ goto LABEL_PPSKPL; if(!qbevent)break;evnt(1789);}while(r); } } } LABEL_PPSKPL:; if(qbevent){evnt(1794);r=0;} S_2182:; if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ if(qbevent){evnt(1795);if(r)goto S_2182;} do{ qbs_set(__STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1797);}while(r); do{ qbs_set(__STRING_CA,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1798);}while(r); LABEL_PPBLDA:; if(qbevent){evnt(1799);r=0;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1800);}while(r); do{ qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1801);}while(r); S_2187:; 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(1802);if(r)goto S_2187;} S_2188:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(1803);if(r)goto S_2188;} S_2189:; if (( 0 )||new_error){ if(qbevent){evnt(1804);if(r)goto S_2189;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip239; 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 skip239; skip239: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(1804);}while(r); } do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1805);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass240= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1806);}while(r); do{ qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass241= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1807);}while(r); do{ qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass242= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1808);}while(r); S_2196:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(1812);if(r)goto S_2196;} S_2197:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ if(qbevent){evnt(1814);if(r)goto S_2197;} S_2198:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ if(qbevent){evnt(1815);if(r)goto S_2198;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1815);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1815);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 0 ; if(!qbevent)break;evnt(1816);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1817);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 2 ; if(!qbevent)break;evnt(1820);}while(r); S_2206:; 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(1822);if(r)goto S_2206;} do{ *__LONG_SUBFUNCN=*__LONG_SUBFUNCN- 1 ; if(!qbevent)break;evnt(1822);}while(r); do{ goto LABEL_DECLARESUBFUNC; if(!qbevent)break;evnt(1822);}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(1824);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1824);}while(r); } S_2213:; if ((*__LONG_DEFININGTYPE)||new_error){ if(qbevent){evnt(1828);if(r)goto S_2213;} do{ *__LONG_I=*__LONG_DEFININGTYPE; if(!qbevent)break;evnt(1829);}while(r); S_2215:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(1831);if(r)goto S_2215;} S_2216:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ if(qbevent){evnt(1832);if(r)goto S_2216;} S_2217:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ if(qbevent){evnt(1833);if(r)goto S_2217;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1833);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1833);}while(r); } S_2221:; if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ if(qbevent){evnt(1834);if(r)goto S_2221;} 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(1834);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1834);}while(r); } do{ *__LONG_DEFININGTYPE= 0 ; if(!qbevent)break;evnt(1835);}while(r); do{ qbs_set(__STRING_SIZ,FUNC_STR2(&(pass243=((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(1838);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip244; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip244; skip244: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(1839);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1842);}while(r); } } do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; if(!qbevent)break;evnt(1846);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; if(!qbevent)break;evnt(1847);}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(1848);}while(r); S_2234:; if ((-(*__LONG_N< 3 ))||new_error){ if(qbevent){evnt(1850);if(r)goto S_2234;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variablename AS type or END TYPE",41)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1850);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1850);}while(r); } do{ qbs_set(__STRING_N,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1851);}while(r); do{ *__LONG_II= 2 ; if(!qbevent)break;evnt(1853);}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(1855);}while(r); S_2241:; 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(1857);if(r)goto S_2241;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variablename AS type or END TYPE",41)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1857);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1857);}while(r); } do{ qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass245=*__LONG_II+ 1 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1858);}while(r); do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1860);}while(r); S_2247:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(1861);if(r)goto S_2247;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1861);}while(r); } S_2250:; if ((-(*__LONG_TYP== 0 ))||new_error){ if(qbevent){evnt(1862);if(r)goto S_2250;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1862);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1862);}while(r); } do{ *__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(1863);}while(r); S_2255:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ if(qbevent){evnt(1865);if(r)goto S_2255;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1865);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1865);}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(1866);}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,&(pass246= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1868);}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(1869);}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(1870);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1872);}while(r); do{ *__LONG_HASHCHKFLAGS= 8 + 512 ; if(!qbevent)break;evnt(1875);}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(1876);}while(r); S_2266:; while((*__LONG_HASHRES)||new_error){ if(qbevent){evnt(1877);if(r)goto S_2266;} S_2267:; if ((*__LONG_HASHRESFLAGS& 512 )||new_error){ if(qbevent){evnt(1878);if(r)goto S_2267;} S_2268:; if ((-(*__LONG_HASHRESREF==*__LONG_I))||new_error){ if(qbevent){evnt(1879);if(r)goto S_2268;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1879);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1879);}while(r); } } S_2273:; if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ if(qbevent){evnt(1881);if(r)goto S_2273;} S_2274:; if ((*__LONG_HASHRESFLAGS&( 4 + 32 + 16 + 8192 ))||new_error){ if(qbevent){evnt(1882);if(r)goto S_2274;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1882);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1882);}while(r); } } S_2279:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(1884);if(r)goto S_2279;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); if(!qbevent)break;evnt(1884);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; if(!qbevent)break;evnt(1884);}while(r); } dl_continue_247:; } dl_exit_247:; do{ SUB_HASHADD(__STRING_HASHNAME,&(pass248= 512 ),__LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1887);}while(r); S_2286:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(1890);if(r)goto S_2286;} do{ *__LONG_U=*__LONG_TYP& 511 ; if(!qbevent)break;evnt(1891);}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(1892);}while(r); S_2289:; if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ if(qbevent){evnt(1893);if(r)goto S_2289;} 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(1893);}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(1893);}while(r); } S_2293:; if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ if(qbevent){evnt(1894);if(r)goto S_2293;} 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(1894);}while(r); } }else{ S_2297:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(1896);if(r)goto S_2297;} S_2298:; if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(1897);if(r)goto S_2298;} 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(1898);}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(1899);}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(1901);}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(1903);}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(1903);}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(1905);}while(r); S_2308:; if ((-((*__LONG_TYP&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ if(qbevent){evnt(1906);if(r)goto S_2308;} 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(1906);}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(1906);}while(r); } } } S_2314:; if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ if(qbevent){evnt(1911);if(r)goto S_2314;} S_2315:; if ((((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )||new_error){ if(qbevent){evnt(1912);if(r)goto S_2315;} 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(1913);}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(1916);}while(r); S_2320:; if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ if(qbevent){evnt(1919);if(r)goto S_2320;} 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(1920);}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(1922);}while(r); } do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1927);}while(r); } S_2327:; if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||new_error){ if(qbevent){evnt(1931);if(r)goto S_2327;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1931);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1931);}while(r); } S_2331:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(1933);if(r)goto S_2331;} S_2332:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ if(qbevent){evnt(1934);if(r)goto S_2332;} S_2333:; if ((-(*__LONG_N!= 2 ))||new_error){ if(qbevent){evnt(1935);if(r)goto S_2333;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1935);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1935);}while(r); } do{ *__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; if(!qbevent)break;evnt(1936);}while(r); do{ *__LONG_DEFININGTYPE=*__LONG_LASTTYPE; if(!qbevent)break;evnt(1937);}while(r); do{ *__LONG_I=*__LONG_DEFININGTYPE; if(!qbevent)break;evnt(1938);}while(r); S_2340:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||new_error){ if(qbevent){evnt(1939);if(r)goto S_2340;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1939);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1939);}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(1940);}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,&(pass249= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1941);}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(1942);}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(1943);}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(1944);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1946);}while(r); do{ *__LONG_HASHFLAGS= 256 ; if(!qbevent)break;evnt(1947);}while(r); do{ *__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 256 ; if(!qbevent)break;evnt(1949);}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(1950);}while(r); S_2353:; while((*__LONG_HASHRES)||new_error){ if(qbevent){evnt(1951);if(r)goto S_2353;} do{ *__LONG_ALLOW= 0 ; if(!qbevent)break;evnt(1952);}while(r); S_2355:; if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ if(qbevent){evnt(1953);if(r)goto S_2355;} do{ *__LONG_ALLOW= 1 ; if(!qbevent)break;evnt(1954);}while(r); } S_2358:; if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ if(qbevent){evnt(1956);if(r)goto S_2358;} S_2359:; if ((-((*__LONG_HASHRESFLAGS&( 4 + 16 + 32 + 16384 ))== 0 ))||new_error){ if(qbevent){evnt(1957);if(r)goto S_2359;} do{ *__LONG_ALLOW= 1 ; if(!qbevent)break;evnt(1957);}while(r); } } S_2363:; if ((-(*__LONG_ALLOW== 0 ))||new_error){ if(qbevent){evnt(1959);if(r)goto S_2363;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1959);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1959);}while(r); } S_2367:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(1960);if(r)goto S_2367;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); if(!qbevent)break;evnt(1960);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; if(!qbevent)break;evnt(1960);}while(r); } dl_continue_250:; } dl_exit_250:; do{ SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1964);}while(r); do{ goto LABEL_FINISHEDLINEPP; if(!qbevent)break;evnt(1966);}while(r); } } S_2377:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ if(qbevent){evnt(1974);if(r)goto S_2377;} 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(1980);}while(r); S_2379:; if ((*__LONG_I2)||new_error){ if(qbevent){evnt(1981);if(r)goto S_2379;} S_2380:; do{ if(qbevent){evnt(1982);if(r)goto S_2380;} 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(1983);}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(1984);}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(1985);}while(r); S_2384:; dl_continue_251:; }while((!(-(*__LONG_I2== 0 )))&&(!new_error)); dl_exit_251:; if(qbevent){evnt(1986);if(r)goto S_2384;} do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1987);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass254= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1988);}while(r); do{ qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass255= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1988);}while(r); do{ qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass256= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1988);}while(r); } S_2390:; if ((-(*__LONG_N< 3 ))||new_error){ if(qbevent){evnt(1991);if(r)goto S_2390;} 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(1991);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1991);}while(r); } do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(1992);}while(r); LABEL_CONSTDEFPENDINGPP:; if(qbevent){evnt(1993);r=0;} do{ *__LONG_PENDING= 0 ; if(!qbevent)break;evnt(1994);}while(r); do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1996);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(1996);}while(r); do{ *__LONG_TYPEOVERRIDE= 0 ; if(!qbevent)break;evnt(1997);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1998);}while(r); S_2400:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(1999);if(r)goto S_2400;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(1999);}while(r); } S_2403:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2000);if(r)goto S_2403;} do{ *__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2001);}while(r); S_2405:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2002);if(r)goto S_2405;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2002);}while(r); } S_2408:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(2003);if(r)goto S_2408;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2003);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2003);}while(r); } S_2412:; if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ if(qbevent){evnt(2004);if(r)goto S_2412;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2004);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2004);}while(r); } } S_2417:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(2007);if(r)goto S_2417;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2007);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2007);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(2008);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2011);}while(r); do{ qbs_set(__STRING_READABLE_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2012);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(2013);}while(r); S_2425:; fornext_value258=*__LONG_I; fornext_finalvalue258=*__LONG_N; fornext_step258= 1 ; if (fornext_step258<0) fornext_step_negative258=1; else fornext_step_negative258=0; if (new_error) goto fornext_error258; goto fornext_entrylabel258; while(1){ fornext_value258=fornext_step258+(*__LONG_I2); fornext_entrylabel258: *__LONG_I2=fornext_value258; if (fornext_step_negative258){ if (fornext_value258fornext_finalvalue258) break; } fornext_error258:; if(qbevent){evnt(2014);if(r)goto S_2425;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2015);}while(r); S_2427:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(2016);if(r)goto S_2427;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(2016);}while(r); } S_2430:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(2017);if(r)goto S_2430;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(2017);}while(r); } S_2433:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(2018);if(r)goto S_2433;} do{ *__LONG_PENDING= 1 ; if(!qbevent)break;evnt(2019);}while(r); do{ *__LONG_I=*__LONG_I2+ 1 ; if(!qbevent)break;evnt(2020);}while(r); S_2436:; if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ if(qbevent){evnt(2021);if(r)goto S_2436;} 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(2021);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2021);}while(r); } do{ goto fornext_exit_257; if(!qbevent)break;evnt(2022);}while(r); } S_2442:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(2024);if(r)goto S_2442;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2024);}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(2024);}while(r); } do{ qbs_set(__STRING_E3,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2026);}while(r); S_2448:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E2->len> 1 )))||new_error){ if(qbevent){evnt(2027);if(r)goto S_2448;} S_2449:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_E2, 1 )== 34 )))||new_error){ if(qbevent){evnt(2028);if(r)goto S_2449;} do{ *__LONG_REMOVECOMMA=func__instrrev(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2029);}while(r); do{ qbs_set(__STRING_E3,qbs_left(__STRING_E2,*__LONG_REMOVECOMMA- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2030);}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(2032);}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(2033);}while(r); } } S_2457:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_READABLE_E->len== 0 )))||new_error){ if(qbevent){evnt(2037);if(r)goto S_2457;} do{ qbs_set(__STRING_READABLE_E,__STRING_E3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2038);}while(r); }else{ do{ qbs_set(__STRING_READABLE_E,qbs_add(__STRING_READABLE_E,__STRING_E3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2040);}while(r); } fornext_continue_257:; } fornext_exit_257:; do{ qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_READABLE_E))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2045);}while(r); S_2464:; 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(2046);if(r)goto S_2464;} do{ qbs_set(__STRING_E,FUNC_LINEFORMAT(__STRING_TEMP1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2047);}while(r); }else{ S_2467:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP1,qbs_new_txt_len("ERROR - Division By Zero",24))))||new_error){ if(qbevent){evnt(2049);if(r)goto S_2467;} do{ qbs_set(__STRING_A,__STRING_TEMP1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2049);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2049);}while(r); } } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2053);}while(r); S_2473:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2054);if(r)goto S_2473;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2054);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATECONST(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2056);}while(r); S_2477:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2057);if(r)goto S_2477;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2057);}while(r); } S_2480:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(2059);if(r)goto S_2480;} S_2481:; if ((*__LONG_TYPEOVERRIDE)||new_error){ if(qbevent){evnt(2061);if(r)goto S_2481;} S_2482:; if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(2062);if(r)goto S_2482;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2062);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2062);}while(r); } } }else{ S_2488:; if ((*__LONG_TYPEOVERRIDE)||new_error){ if(qbevent){evnt(2067);if(r)goto S_2488;} S_2489:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(2068);if(r)goto S_2489;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2068);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2068);}while(r); } } S_2494:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(2071);if(r)goto S_2494;} do{ *__FLOAT_CONSTVAL=string2f(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2072);}while(r); do{ *__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL); if(!qbevent)break;evnt(2073);}while(r); do{ *__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; if(!qbevent)break;evnt(2074);}while(r); }else{ S_2499:; if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||new_error){ if(qbevent){evnt(2076);if(r)goto S_2499;} do{ *__UINTEGER64_CONSTVAL=string2ui64(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2077);}while(r); do{ *__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL; if(!qbevent)break;evnt(2078);}while(r); do{ *__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; if(!qbevent)break;evnt(2079);}while(r); }else{ do{ *__INTEGER64_CONSTVAL=string2i64(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2081);}while(r); do{ *__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; if(!qbevent)break;evnt(2082);}while(r); do{ *__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; if(!qbevent)break;evnt(2083);}while(r); } } S_2509:; if ((*__LONG_TYPEOVERRIDE)||new_error){ if(qbevent){evnt(2088);if(r)goto S_2509;} do{ *__LONG_T=*__LONG_TYPEOVERRIDE; if(!qbevent)break;evnt(2090);}while(r); } } do{ *__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; if(!qbevent)break;evnt(2095);}while(r); S_2514:; if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ if(qbevent){evnt(2096);if(r)goto S_2514;} do{ *__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; if(!qbevent)break;evnt(2097);}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTNAME[2]&1){ preserved_elements=__ARRAY_STRING_CONSTNAME[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTNAME[4]= 0 ; __ARRAY_STRING_CONSTNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAME[4]+1; __ARRAY_STRING_CONSTNAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTNAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTCNAME[2]&1){ preserved_elements=__ARRAY_STRING_CONSTCNAME[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTCNAME[4]= 0 ; __ARRAY_STRING_CONSTCNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTCNAME[4]+1; __ARRAY_STRING_CONSTCNAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTCNAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){ preserved_elements=__ARRAY_STRING_CONSTNAMESYMBOL[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTNAMESYMBOL[4]= 0 ; __ARRAY_STRING_CONSTNAMESYMBOL[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAMESYMBOL[4]+1; __ARRAY_STRING_CONSTNAMESYMBOL[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTNAMESYMBOL[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTTYPE[2]&1){ preserved_elements=__ARRAY_LONG_CONSTTYPE[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTTYPE[4]= 0 ; __ARRAY_LONG_CONSTTYPE[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTTYPE[4]+1; __ARRAY_LONG_CONSTTYPE[6]=1; if (__ARRAY_LONG_CONSTTYPE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTTYPE[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTTYPE[0])); tmp_long=__ARRAY_LONG_CONSTTYPE[5]; __ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTTYPE[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){ preserved_elements=__ARRAY_INTEGER64_CONSTINTEGER[5]; } else preserved_elements=0; __ARRAY_INTEGER64_CONSTINTEGER[4]= 0 ; __ARRAY_INTEGER64_CONSTINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_INTEGER64_CONSTINTEGER[4]+1; __ARRAY_INTEGER64_CONSTINTEGER[6]=1; if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),preserved_elements*8); cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0])); tmp_long=__ARRAY_INTEGER64_CONSTINTEGER[5]; __ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8); memcpy((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){ preserved_elements=__ARRAY_UINTEGER64_CONSTUINTEGER[5]; } else preserved_elements=0; __ARRAY_UINTEGER64_CONSTUINTEGER[4]= 0 ; __ARRAY_UINTEGER64_CONSTUINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_UINTEGER64_CONSTUINTEGER[4]+1; __ARRAY_UINTEGER64_CONSTUINTEGER[6]=1; if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),preserved_elements*8); cmem_dynamic_free((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0])); tmp_long=__ARRAY_UINTEGER64_CONSTUINTEGER[5]; __ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8); memcpy((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){ preserved_elements=__ARRAY_FLOAT_CONSTFLOAT[5]; } else preserved_elements=0; __ARRAY_FLOAT_CONSTFLOAT[4]= 0 ; __ARRAY_FLOAT_CONSTFLOAT[5]=(*__LONG_CONSTMAX)-__ARRAY_FLOAT_CONSTFLOAT[4]+1; __ARRAY_FLOAT_CONSTFLOAT[6]=1; if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),preserved_elements*32); cmem_dynamic_free((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0])); tmp_long=__ARRAY_FLOAT_CONSTFLOAT[5]; __ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*32); memcpy((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),redim_preserve_cmem_buffer,preserved_elements*32); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTSTRING[2]&1){ preserved_elements=__ARRAY_STRING_CONSTSTRING[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTSTRING[4]= 0 ; __ARRAY_STRING_CONSTSTRING[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTSTRING[4]+1; __ARRAY_STRING_CONSTSTRING[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTSTRING[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){ preserved_elements=__ARRAY_LONG_CONSTSUBFUNC[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTSUBFUNC[4]= 0 ; __ARRAY_LONG_CONSTSUBFUNC[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTSUBFUNC[4]+1; __ARRAY_LONG_CONSTSUBFUNC[6]=1; if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0])); tmp_long=__ARRAY_LONG_CONSTSUBFUNC[5]; __ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTDEFINED[2]&1){ preserved_elements=__ARRAY_LONG_CONSTDEFINED[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTDEFINED[4]= 0 ; __ARRAY_LONG_CONSTDEFINED[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTDEFINED[4]+1; __ARRAY_LONG_CONSTDEFINED[6]=1; if (__ARRAY_LONG_CONSTDEFINED[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTDEFINED[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTDEFINED[0])); tmp_long=__ARRAY_LONG_CONSTDEFINED[5]; __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTDEFINED[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementslen-*__LONG_I2- 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2244);}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(2245);}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(2246);}while(r); S_2680:; dl_continue_265:; }while((!(-(*__LONG_I2== 0 )))&&(!new_error)); dl_exit_265:; if(qbevent){evnt(2247);if(r)goto S_2680;} do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2248);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass268= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2249);}while(r); do{ qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass269= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2249);}while(r); do{ qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass270= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2249);}while(r); } do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass271= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2252);}while(r); do{ qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2253);}while(r); S_2688:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2254);if(r)goto S_2688;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2254);}while(r); } S_2691:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(2255);if(r)goto S_2691;} 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(2255);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2255);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2258);}while(r); S_2696:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ if(qbevent){evnt(2258);if(r)goto S_2696;} do{ qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2258);}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(2258);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(2258);}while(r); } do{ qbs_set(__STRING_ALIASNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2261);}while(r); S_2702:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(2262);if(r)goto S_2702;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass274= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2263);}while(r); S_2704:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||new_error){ if(qbevent){evnt(2264);if(r)goto S_2704;} S_2705:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(2265);if(r)goto S_2705;} 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(2265);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2265);}while(r); } S_2709:; if ((-(*__LONG_N== 3 ))||new_error){ if(qbevent){evnt(2266);if(r)goto S_2709;} 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(2266);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2266);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass275= 4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2267);}while(r); S_2714:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(2269);if(r)goto S_2714;} do{ qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2270);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2271);}while(r); S_2717:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(2271);if(r)goto S_2717;} 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(2271);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2271);}while(r); } do{ qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2272);}while(r); } S_2723:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||new_error){ if(qbevent){evnt(2275);if(r)goto S_2723;} do{ *__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2276);}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(2276);}while(r); dl_continue_277:; } dl_exit_277:; S_2727:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(2279);if(r)goto S_2727;} 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(2279);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2279);}while(r); } S_2731:; fornext_value282= 1 ; fornext_finalvalue282=__STRING_E->len; fornext_step282= 1 ; if (fornext_step282<0) fornext_step_negative282=1; else fornext_step_negative282=0; if (new_error) goto fornext_error282; goto fornext_entrylabel282; while(1){ fornext_value282=fornext_step282+(*__LONG_X); fornext_entrylabel282: *__LONG_X=fornext_value282; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative282){ if (fornext_value282fornext_finalvalue282) break; } fornext_error282:; if(qbevent){evnt(2280);if(r)goto S_2731;} do{ *__LONG_A=qbs_asc(__STRING_E,*__LONG_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2281);}while(r); S_2733:; 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(2282);if(r)goto S_2733;} 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(2282);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2282);}while(r); } fornext_continue_281:; } fornext_exit_281:; do{ qbs_set(__STRING_ALIASNAME,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2284);}while(r); S_2739:; if ((-(*__LONG_N<= 4 ))||new_error){ if(qbevent){evnt(2286);if(r)goto S_2739;} do{ qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass284= 1 ),&(pass285= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2286);}while(r); } S_2742:; if ((-(*__LONG_N>= 5 ))||new_error){ if(qbevent){evnt(2287);if(r)goto S_2742;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass286= 1 ),&(pass287= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass288= 5 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2287);}while(r); } S_2745:; if ((-(*__LONG_N<= 4 ))||new_error){ if(qbevent){evnt(2288);if(r)goto S_2745;} do{ qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass289= 1 ),&(pass290= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2288);}while(r); } S_2748:; if ((-(*__LONG_N>= 5 ))||new_error){ if(qbevent){evnt(2289);if(r)goto S_2748;} do{ qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass291= 1 ),&(pass292= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass293= 5 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2289);}while(r); } do{ *__LONG_N=*__LONG_N- 2 ; if(!qbevent)break;evnt(2290);}while(r); } } S_2754:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(2294);if(r)goto S_2754;} S_2755:; if ((*__LONG_INDIRECTLIBRARY)||new_error){ if(qbevent){evnt(2295);if(r)goto S_2755;} do{ qbs_set(__STRING_ALIASNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2296);}while(r); } } do{ *__LONG_PARAMS= 0 ; if(!qbevent)break;evnt(2300);}while(r); do{ qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2301);}while(r); do{ qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2302);}while(r); do{ qbs_set(__STRING_NELE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2303);}while(r); do{ qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2304);}while(r); S_2764:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(2305);if(r)goto S_2764;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass294= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2306);}while(r); S_2766:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(2307);if(r)goto S_2766;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2307);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2307);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2308);}while(r); S_2771:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(2309);if(r)goto S_2771;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2309);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2309);}while(r); } S_2775:; if ((-(*__LONG_N< 4 ))||new_error){ if(qbevent){evnt(2310);if(r)goto S_2775;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2310);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2310);}while(r); } S_2779:; if ((-(*__LONG_N== 4 ))||new_error){ if(qbevent){evnt(2311);if(r)goto S_2779;} do{ goto LABEL_NOSFPARAMS; if(!qbevent)break;evnt(2311);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(2312);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2313);}while(r); S_2784:; fornext_value296= 4 ; fornext_finalvalue296=*__LONG_N- 1 ; fornext_step296= 1 ; if (fornext_step296<0) fornext_step_negative296=1; else fornext_step_negative296=0; if (new_error) goto fornext_error296; goto fornext_entrylabel296; while(1){ fornext_value296=fornext_step296+(*__LONG_I); fornext_entrylabel296: *__LONG_I=fornext_value296; if (fornext_step_negative296){ if (fornext_value296fornext_finalvalue296) break; } fornext_error296:; if(qbevent){evnt(2314);if(r)goto S_2784;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2315);}while(r); S_2786:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(2316);if(r)goto S_2786;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(2316);}while(r); } S_2789:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(2317);if(r)goto S_2789;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(2317);}while(r); } S_2792:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(2318);if(r)goto S_2792;} S_2793:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ if(qbevent){evnt(2319);if(r)goto S_2793;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2319);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2319);}while(r); } LABEL_GETLASTPARAM:; if(qbevent){evnt(2320);r=0;} S_2797:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2321);if(r)goto S_2797;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2321);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2321);}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(2322);}while(r); do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2324);}while(r); do{ *__LONG_ARRAY= 0 ; if(!qbevent)break;evnt(2325);}while(r); do{ qbs_set(__STRING_T2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2326);}while(r); do{ *__LONG_I2= 1 ; if(!qbevent)break;evnt(2328);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2329);}while(r); do{ *__LONG_I2=*__LONG_I2+ 1 ; if(!qbevent)break;evnt(2329);}while(r); do{ *__LONG_BYVALUE= 0 ; if(!qbevent)break;evnt(2331);}while(r); S_2809:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||new_error){ if(qbevent){evnt(2332);if(r)goto S_2809;} S_2810:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(2333);if(r)goto S_2810;} 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(2333);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2333);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2334);}while(r); do{ *__LONG_I2=*__LONG_I2+ 1 ; if(!qbevent)break;evnt(2334);}while(r); do{ *__LONG_BYVALUE= 1 ; if(!qbevent)break;evnt(2334);}while(r); } do{ qbs_set(__STRING_N2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2337);}while(r); do{ qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2338);}while(r); S_2820:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ if(qbevent){evnt(2339);if(r)goto S_2820;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2339);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2339);}while(r); } S_2824:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2341);if(r)goto S_2824;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2341);}while(r); } do{ *__LONG_M= 0 ; if(!qbevent)break;evnt(2342);}while(r); S_2828:; fornext_value299=*__LONG_I2; fornext_finalvalue299=*__LONG_N2; fornext_step299= 1 ; if (fornext_step299<0) fornext_step_negative299=1; else fornext_step_negative299=0; if (new_error) goto fornext_error299; goto fornext_entrylabel299; while(1){ fornext_value299=fornext_step299+(*__LONG_I2); fornext_entrylabel299: *__LONG_I2=fornext_value299; if (fornext_step_negative299){ if (fornext_value299fornext_finalvalue299) break; } fornext_error299:; if(qbevent){evnt(2343);if(r)goto S_2828;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2344);}while(r); S_2830:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(2345);if(r)goto S_2830;} S_2831:; if ((-(*__LONG_M!= 0 ))||new_error){ if(qbevent){evnt(2346);if(r)goto S_2831;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2346);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2346);}while(r); } do{ *__LONG_M= 1 ; if(!qbevent)break;evnt(2347);}while(r); do{ *__LONG_ARRAY= 1 ; if(!qbevent)break;evnt(2348);}while(r); do{ goto LABEL_GOTAA; if(!qbevent)break;evnt(2349);}while(r); } S_2839:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(2351);if(r)goto S_2839;} S_2840:; if ((-(*__LONG_M!= 1 ))||new_error){ if(qbevent){evnt(2352);if(r)goto S_2840;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2352);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2352);}while(r); } do{ *__LONG_M= 2 ; if(!qbevent)break;evnt(2353);}while(r); do{ goto LABEL_GOTAA; if(!qbevent)break;evnt(2354);}while(r); } S_2847:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ if(qbevent){evnt(2356);if(r)goto S_2847;} S_2848:; if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ if(qbevent){evnt(2357);if(r)goto S_2848;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2357);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2357);}while(r); } do{ *__LONG_M= 3 ; if(!qbevent)break;evnt(2358);}while(r); do{ goto LABEL_GOTAA; if(!qbevent)break;evnt(2359);}while(r); } S_2855:; if ((-(*__LONG_M== 1 ))||new_error){ if(qbevent){evnt(2361);if(r)goto S_2855;} do{ goto LABEL_GOTAA; if(!qbevent)break;evnt(2361);}while(r); } S_2858:; if ((-(*__LONG_M!= 3 ))||new_error){ if(qbevent){evnt(2362);if(r)goto S_2858;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2362);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2362);}while(r); } S_2862:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2363);if(r)goto S_2862;} do{ qbs_set(__STRING_T2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2363);}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(2363);}while(r); } LABEL_GOTAA:; if(qbevent){evnt(2364);r=0;} fornext_continue_298:; } fornext_exit_298:; do{ *__LONG_PARAMS=*__LONG_PARAMS+ 1 ; if(!qbevent)break;evnt(2367);}while(r); S_2869:; if ((-(*__LONG_PARAMS> 100 ))||new_error){ if(qbevent){evnt(2367);if(r)goto S_2869;} 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(2367);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2367);}while(r); } do{ *__LONG_ARGNELEREQ= 0 ; if(!qbevent)break;evnt(2369);}while(r); S_2874:; 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(2371);if(r)goto S_2874;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2371);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2371);}while(r); } S_2878:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2372);if(r)goto S_2878;} do{ qbs_set(__STRING_T2,__STRING_SYMBOL2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2372);}while(r); } S_2881:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2373);if(r)goto S_2881;} S_2882:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(2374);if(r)goto S_2882;} do{ *__LONG_V= 27 ; if(!qbevent)break;evnt(2374);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2374);}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(2375);}while(r); } do{ *__LONG_PARAMSIZE= 0 ; if(!qbevent)break;evnt(2378);}while(r); S_2890:; if ((-(*__LONG_ARRAY== 1 ))||new_error){ if(qbevent){evnt(2379);if(r)goto S_2890;} do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2380);}while(r); S_2892:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2381);if(r)goto S_2892;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2381);}while(r); } S_2895:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(2382);if(r)goto S_2895;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2382);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2382);}while(r); } S_2899:; if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(2383);if(r)goto S_2899;} do{ *__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(2383);}while(r); } do{ *__LONG_T=*__LONG_T+*__LONG_ISARRAY; if(!qbevent)break;evnt(2384);}while(r); S_2903:; fornext_value301= 0 ; fornext_finalvalue301=*__INTEGER_SFLISTN; fornext_step301= 1 ; if (fornext_step301<0) fornext_step_negative301=1; else fornext_step_negative301=0; if (new_error) goto fornext_error301; goto fornext_entrylabel301; while(1){ fornext_value301=fornext_step301+(*__LONG_I10); fornext_entrylabel301: *__LONG_I10=fornext_value301; if (fornext_step_negative301){ if (fornext_value301fornext_finalvalue301) break; } fornext_error301:; if(qbevent){evnt(2386);if(r)goto S_2903;} S_2904:; 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(2387);if(r)goto S_2904;} S_2905:; 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(2388);if(r)goto S_2905;} do{ *__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])]; if(!qbevent)break;evnt(2389);}while(r); } } fornext_continue_300:; } fornext_exit_300:; }else{ do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2394);}while(r); S_2912:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2395);if(r)goto S_2912;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2395);}while(r); } S_2915:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(2396);if(r)goto S_2915;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2396);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2396);}while(r); } S_2919:; if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(2397);if(r)goto S_2919;} do{ *__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(2397);}while(r); } S_2922:; if ((*__LONG_BYVALUE)||new_error){ if(qbevent){evnt(2399);if(r)goto S_2922;} S_2923:; if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(2400);if(r)goto S_2923;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(2400);}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(2404);}while(r); do{ qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2407);}while(r); do{ qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2409);}while(r); do{ qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2410);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2411);}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(2413);}while(r); S_2935:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ if(qbevent){evnt(2414);if(r)goto S_2935;} do{ goto LABEL_GETLASTPARAM; if(!qbevent)break;evnt(2414);}while(r); } } fornext_continue_295:; } fornext_exit_295:; } LABEL_NOSFPARAMS:; if(qbevent){evnt(2418);r=0;} S_2941:; if ((-(*__LONG_SF== 1 ))||new_error){ if(qbevent){evnt(2420);if(r)goto S_2941;} do{ SUB_CLEARID(); if(!qbevent)break;evnt(2422);}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(2423);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(2424);}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(2426);}while(r); S_2946:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(2427);if(r)goto S_2946;} do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; if(!qbevent)break;evnt(2428);}while(r); S_2948:; if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ if(qbevent){evnt(2429);if(r)goto S_2948;} do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2429);}while(r); } } do{ *(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; if(!qbevent)break;evnt(2431);}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(2432);}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(2433);}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(2434);}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(2435);}while(r); S_2957:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2436);if(r)goto S_2957;} do{ *(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); if(!qbevent)break;evnt(2437);}while(r); S_2959:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2438);if(r)goto S_2959;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2438);}while(r); } }else{ S_2963:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(2440);if(r)goto S_2963;} do{ *__LONG_V= 27 ; if(!qbevent)break;evnt(2440);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2440);}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(2441);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); if(!qbevent)break;evnt(2442);}while(r); S_2970:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2443);if(r)goto S_2970;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2443);}while(r); } } S_2974:; if ((-(*(int32*)(((char*)__UDT_ID)+(2381))== 0 ))||new_error){ if(qbevent){evnt(2445);if(r)goto S_2974;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2445);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2445);}while(r); } S_2978:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(2447);if(r)goto S_2978;} 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(2449);}while(r); S_2980:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2450);if(r)goto S_2980;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2450);}while(r); } S_2983:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||new_error){ if(qbevent){evnt(2451);if(r)goto S_2983;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2451);}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(2452);}while(r); } do{ qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2456);}while(r); S_2989:; 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(2457);if(r)goto S_2989;} do{ qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2458);}while(r); S_2991:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2459);if(r)goto S_2991;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2459);}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(2461);}while(r); S_2996:; if ((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(2462);if(r)goto S_2996;} S_2997:; if ((-((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(2463);if(r)goto S_2997;} do{ *(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)__UDT_ID)+(2381))-*__LONG_ISPOINTER; if(!qbevent)break;evnt(2463);}while(r); } } do{ SUB_REGID(); if(!qbevent)break;evnt(2465);}while(r); S_3002:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2466);if(r)goto S_3002;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2466);}while(r); } }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(2469);}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(2470);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(2471);}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(2472);}while(r); S_3010:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(2473);if(r)goto S_3010;} do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; if(!qbevent)break;evnt(2474);}while(r); S_3012:; if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ if(qbevent){evnt(2475);if(r)goto S_3012;} do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2475);}while(r); } } do{ *(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; if(!qbevent)break;evnt(2477);}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(2478);}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(2479);}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(2480);}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(2481);}while(r); S_3021:; 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(2483);if(r)goto S_3021;} do{ *__LONG_REGINTERNALSUBFUNC= 1 ; if(!qbevent)break;evnt(2483);}while(r); do{ *__LONG_USEGL= 1 ; if(!qbevent)break;evnt(2483);}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(2483);}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(2483);}while(r); } do{ SUB_REGID(); if(!qbevent)break;evnt(2484);}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; if(!qbevent)break;evnt(2485);}while(r); S_3029:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(2487);if(r)goto S_3029;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2487);}while(r); } } } LABEL_FINISHEDLINEPP:; if(qbevent){evnt(2494);r=0;} do{ *__LONG_FIRSTLINE= 0 ; if(!qbevent)break;evnt(2495);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2497);}while(r); do{ qbs_set(__STRING_CA,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2498);}while(r); }else{ S_3039:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2500);if(r)goto S_3039;} do{ qbs_set(__STRING_A,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2500);}while(r); do{ qbs_set(__STRING_CA,__STRING_CE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2500);}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(2500);}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(2500);}while(r); } } S_3047:; if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ if(qbevent){evnt(2502);if(r)goto S_3047;} do{ *__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ; if(!qbevent)break;evnt(2502);}while(r); do{ goto LABEL_PPBLDA; if(!qbevent)break;evnt(2502);}while(r); } } } } S_3054:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ if(qbevent){evnt(2512);if(r)goto S_3054;} S_3055:; if (( 0 )||new_error){ if(qbevent){evnt(2513);if(r)goto S_3055;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip303; 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 skip303; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1 , 0 , 1 ); if (new_error) goto skip303; skip303: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2513);}while(r); } do{ qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2514);}while(r); do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2514);}while(r); S_3060:; if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ if(qbevent){evnt(2516);if(r)goto S_3060;} 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(2516);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2516);}while(r); } do{ *__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; if(!qbevent)break;evnt(2518);}while(r); do{ *__LONG_FIRSTTRYMETHOD= 1 ; if(!qbevent)break;evnt(2520);}while(r); S_3066:; fornext_value305=*__LONG_FIRSTTRYMETHOD; fornext_finalvalue305= 2 ; fornext_step305= 1 ; if (fornext_step305<0) fornext_step_negative305=1; else fornext_step_negative305=0; if (new_error) goto fornext_error305; goto fornext_entrylabel305; while(1){ fornext_value305=fornext_step305+(*__LONG_TRY); fornext_entrylabel305: *__LONG_TRY=fornext_value305; if (fornext_step_negative305){ if (fornext_value305fornext_finalvalue305) break; } fornext_error305:; if(qbevent){evnt(2521);if(r)goto S_3066;} S_3067:; if ((-(*__LONG_TRY== 1 ))||new_error){ if(qbevent){evnt(2522);if(r)goto S_3067;} S_3068:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ if(qbevent){evnt(2523);if(r)goto S_3068;} S_3069:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(2524);if(r)goto S_3069;} do{ qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2524);}while(r); }else{ do{ qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2524);}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(2526);}while(r); } do{ qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2528);}while(r); } S_3079:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(2530);if(r)goto S_3079;} do{ qbs_set(__STRING_F,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2530);}while(r); } S_3082:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ if(qbevent){evnt(2531);if(r)goto S_3082;} do{ *__INTEGER_QBERRORHAPPENED= -3 ; if(!qbevent)break;evnt(2532);}while(r); do{ sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2534);}while(r); LABEL_QBERRORHAPPENED3:; if(qbevent){evnt(2536);r=0;} S_3085:; if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||new_error){ if(qbevent){evnt(2537);if(r)goto S_3085;} do{ goto fornext_exit_304; if(!qbevent)break;evnt(2537);}while(r); } } do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(2539);}while(r); fornext_continue_304:; } fornext_exit_304:; S_3091:; if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||new_error){ if(qbevent){evnt(2541);if(r)goto S_3091;} do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(2541);}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(2541);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2541);}while(r); } do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; if(!qbevent)break;evnt(2542);}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(2542);}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(2542);}while(r); } S_3100:; while((*__LONG_INCLEVEL)||new_error){ if(qbevent){evnt(2545);if(r)goto S_3100;} do{ *__LONG_FH= 99 +*__LONG_INCLEVEL; if(!qbevent)break;evnt(2547);}while(r); S_3102:; if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ if(qbevent){evnt(2549);if(r)goto S_3102;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip307; sub_file_line_input_string(tmp_fileno,__STRING_X); if (new_error) goto skip307; skip307: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2550);}while(r); do{ qbs_set(__STRING_WHOLELINE,__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2552);}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(2553);}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(2555);}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(2556);}while(r); S_3108:; if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ if(qbevent){evnt(2557);if(r)goto S_3108;} 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(2558);}while(r); S_3110:; fornext_value309= 1 ; fornext_finalvalue309=*__LONG_INCLEVEL- 1 ; fornext_step309= 1 ; if (fornext_step309<0) fornext_step_negative309=1; else fornext_step_negative309=0; if (new_error) goto fornext_error309; goto fornext_entrylabel309; while(1){ fornext_value309=fornext_step309+(*__LONG_X); fornext_entrylabel309: *__LONG_X=fornext_value309; if (fornext_step_negative309){ if (fornext_value309fornext_finalvalue309) break; } fornext_error309:; if(qbevent){evnt(2559);if(r)goto S_3110;} 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(2560);}while(r); S_3112:; if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ if(qbevent){evnt(2561);if(r)goto S_3112;} S_3113:; if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ if(qbevent){evnt(2562);if(r)goto S_3113;} 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(2563);}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(2565);}while(r); } } fornext_continue_308:; } fornext_exit_308:; do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2569);}while(r); } do{ qbs_set(__STRING_INCERROR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2571);}while(r); do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; if(!qbevent)break;evnt(2572);}while(r); S_3124:; if (( 0 )||new_error){ if(qbevent){evnt(2574);if(r)goto S_3124;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip310; 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 skip310; skip310: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2574);}while(r); } S_3127:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(2576);if(r)goto S_3127;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2576);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(2576);}while(r); } do{ goto LABEL_IDEPREPASS; if(!qbevent)break;evnt(2577);}while(r); } do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(2580);}while(r); do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; if(!qbevent)break;evnt(2581);}while(r); dl_continue_306:; } dl_exit_306:; S_3136:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(2585);if(r)goto S_3136;} do{ goto LABEL_IDERET2; if(!qbevent)break;evnt(2585);}while(r); } dl_continue_210:; }while(1); dl_exit_210:; S_3140:; if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ if(qbevent){evnt(2589);if(r)goto S_3140;} do{ *__LONG_LASTLINERETURN= 1 ; if(!qbevent)break;evnt(2590);}while(r); do{ *__LONG_LASTLINE= 1 ; if(!qbevent)break;evnt(2591);}while(r); do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2592);}while(r); do{ goto LABEL_PREPASSLASTLINE; if(!qbevent)break;evnt(2593);}while(r); } S_3146:; if ((*__LONG_DEFININGTYPE)||new_error){ if(qbevent){evnt(2596);if(r)goto S_3146;} do{ *__LONG_DEFININGTYPE= 0 ; if(!qbevent)break;evnt(2596);}while(r); } S_3149:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(2597);if(r)goto S_3149;} do{ *__LONG_DECLARINGLIBRARY= 0 ; if(!qbevent)break;evnt(2597);}while(r); } do{ *__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER; if(!qbevent)break;evnt(2599);}while(r); do{ *__LONG_LINEINPUT3INDEX= 1 ; if(!qbevent)break;evnt(2605);}while(r); LABEL_IDE3:; if(qbevent){evnt(2608);r=0;} do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2610);}while(r); do{ *__LONG_DATAOFFSET= 0 ; if(!qbevent)break;evnt(2613);}while(r); do{ *__LONG_INCLEVEL= 0 ; if(!qbevent)break;evnt(2614);}while(r); do{ *__LONG_SUBFUNCN= 0 ; if(!qbevent)break;evnt(2615);}while(r); do{ *__LONG_LASTLINERETURN= 0 ; if(!qbevent)break;evnt(2616);}while(r); do{ *__LONG_LASTLINE= 0 ; if(!qbevent)break;evnt(2617);}while(r); do{ *__LONG_FIRSTLINE= 1 ; if(!qbevent)break;evnt(2618);}while(r); do{ *__INTEGER_USERDEFINECOUNT= 6 ; if(!qbevent)break;evnt(2619);}while(r); S_3162:; fornext_value312= 0 ; fornext_finalvalue312=*__LONG_CONSTLAST; fornext_step312= 1 ; if (fornext_step312<0) fornext_step_negative312=1; else fornext_step_negative312=0; if (new_error) goto fornext_error312; goto fornext_entrylabel312; while(1){ fornext_value312=fornext_step312+(*__LONG_I); fornext_entrylabel312: *__LONG_I=fornext_value312; if (fornext_step_negative312){ if (fornext_value312fornext_finalvalue312) break; } fornext_error312:; if(qbevent){evnt(2621);if(r)goto S_3162;} 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(2621);}while(r); fornext_continue_311:; } fornext_exit_311:; S_3165:; fornext_value314= 1 ; fornext_finalvalue314= 27 ; fornext_step314= 1 ; if (fornext_step314<0) fornext_step_negative314=1; else fornext_step_negative314=0; if (new_error) goto fornext_error314; goto fornext_entrylabel314; while(1){ fornext_value314=fornext_step314+(*__LONG_I); fornext_entrylabel314: *__LONG_I=fornext_value314; if (fornext_step_negative314){ if (fornext_value314fornext_finalvalue314) break; } fornext_error314:; if(qbevent){evnt(2623);if(r)goto S_3165;} 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(2623);}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(2623);}while(r); fornext_continue_313:; } fornext_exit_313:; do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 4 ,NULL,NULL, 16 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2625);}while(r); do{ sub_close( 16 ,1); if(!qbevent)break;evnt(2625);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 2 ,NULL,NULL, 16 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2626);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2629);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 4 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2630);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)), 4 ,NULL,NULL, 17 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2632);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2634);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("runline.txt",11)), 4 ,NULL,NULL, 21 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2635);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainerr.txt",11)), 4 ,NULL,NULL, 14 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2637);}while(r); do{ *__LONG_ERRORLABELS= 0 ; if(!qbevent)break;evnt(2640);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 14 ; if (new_error) goto skip315; sub_file_print(tmp_fileno,qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38), 0 , 0 , 1 ); if (new_error) goto skip315; skip315: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2641);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2643);}while(r); do{ sub_close( 22 ,1); if(!qbevent)break;evnt(2643);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 4 ,NULL,NULL, 23 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2644);}while(r); do{ sub_close( 23 ,1); if(!qbevent)break;evnt(2644);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimer.txt",11)), 4 ,NULL,NULL, 24 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2647);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimerj.txt",12)), 4 ,NULL,NULL, 25 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2648);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkey.txt",9)), 4 ,NULL,NULL, 27 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2652);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkeyj.txt",10)), 4 ,NULL,NULL, 28 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2653);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrig.txt",11)), 4 ,NULL,NULL, 29 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2655);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrigj.txt",12)), 4 ,NULL,NULL, 30 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2656);}while(r); do{ *__LONG_GOSUBID= 1 ; if(!qbevent)break;evnt(2658);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)), 4 ,NULL,NULL, 15 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2666);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip316; sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point){",23), 0 , 0 , 1 ); if (new_error) goto skip316; skip316: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2667);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip317; sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); if (new_error) goto skip317; skip317: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2668);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip318; sub_file_print(tmp_fileno,qbs_new_txt_len("switch(return_point[next_return_point]){",40), 0 , 0 , 1 ); if (new_error) goto skip318; skip318: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2669);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip319; sub_file_print(tmp_fileno,qbs_new_txt_len("case 0:",7), 0 , 0 , 1 ); if (new_error) goto skip319; skip319: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2670);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip320; sub_file_print(tmp_fileno,qbs_new_txt_len("return;",7), 0 , 0 , 1 ); if (new_error) goto skip320; skip320: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2672);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip321; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip321; skip321: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2674);}while(r); do{ *__LONG_CONTINUELINE= 0 ; if(!qbevent)break;evnt(2676);}while(r); do{ *__LONG_ENDIFS= 0 ; if(!qbevent)break;evnt(2677);}while(r); do{ *__LONG_LINEELSEUSED= 0 ; if(!qbevent)break;evnt(2678);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(2679);}while(r); do{ *__LONG_LINENUMBER= 0 ; if(!qbevent)break;evnt(2680);}while(r); do{ *__LONG_REALLINENUMBER= 0 ; if(!qbevent)break;evnt(2681);}while(r); do{ *__LONG_DECLARINGLIBRARY= 0 ; if(!qbevent)break;evnt(2682);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip322; sub_file_print(tmp_fileno,qbs_new_txt_len("S_0:;",5), 0 , 0 , 1 ); if (new_error) goto skip322; skip322: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2684);}while(r); S_3206:; if ((*__LONG_USEGL)||new_error){ if(qbevent){evnt(2686);if(r)goto S_3206;} do{ SUB_GL_INCLUDE_CONTENT(); if(!qbevent)break;evnt(2686);}while(r); } S_3209:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(2690);if(r)goto S_3209;} do{ goto LABEL_IDERET3; if(!qbevent)break;evnt(2690);}while(r); } S_3212:; do{ if(qbevent){evnt(2692);if(r)goto S_3212;} LABEL_IDE4:; if(qbevent){evnt(2693);r=0;} LABEL_INCLUDELINE:; if(qbevent){evnt(2694);r=0;} LABEL_MAINPASSLASTLINE:; if(qbevent){evnt(2695);r=0;} do{ *__LONG_PREPASS= 0 ; if(!qbevent)break;evnt(2697);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(2699);}while(r); S_3215:; if ((*__LONG_CONTINUELINEFROM)||new_error){ if(qbevent){evnt(2701);if(r)goto S_3215;} do{ *__LONG_START=*__LONG_CONTINUELINEFROM; if(!qbevent)break;evnt(2702);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(2703);}while(r); do{ goto LABEL_CONTLINE; if(!qbevent)break;evnt(2704);}while(r); } do{ *__LONG_IMPLIEDENDIF= 0 ; if(!qbevent)break;evnt(2709);}while(r); do{ *__LONG_THENGOTO= 0 ; if(!qbevent)break;evnt(2710);}while(r); do{ *__LONG_CONTINUELINE= 0 ; if(!qbevent)break;evnt(2711);}while(r); do{ *__LONG_ENDIFS= 0 ; if(!qbevent)break;evnt(2712);}while(r); do{ *__LONG_LINEELSEUSED= 0 ; if(!qbevent)break;evnt(2713);}while(r); do{ *__LONG_NEWIF= 0 ; if(!qbevent)break;evnt(2714);}while(r); S_3226:; if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||new_error){ if(qbevent){evnt(2717);if(r)goto S_3226;} do{ *__INTEGER_ADDMETADYNAMIC= 0 ; if(!qbevent)break;evnt(2717);}while(r); do{ *__INTEGER_DYNAMICMODE= 1 ; if(!qbevent)break;evnt(2717);}while(r); } S_3230:; if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||new_error){ if(qbevent){evnt(2718);if(r)goto S_3230;} do{ *__INTEGER_ADDMETASTATIC= 0 ; if(!qbevent)break;evnt(2718);}while(r); do{ *__INTEGER_DYNAMICMODE= 0 ; if(!qbevent)break;evnt(2718);}while(r); } S_3234:; if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ if(qbevent){evnt(2721);if(r)goto S_3234;} do{ qbs_set(__STRING_A3,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2721);}while(r); } S_3237:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||new_error){ if(qbevent){evnt(2722);if(r)goto S_3237;} do{ goto dl_exit_323; if(!qbevent)break;evnt(2722);}while(r); } do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; if(!qbevent)break;evnt(2723);}while(r); do{ *__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; if(!qbevent)break;evnt(2724);}while(r); S_3242:; if ((-(*__LONG_LINENUMBER== 1 ))||new_error){ if(qbevent){evnt(2725);if(r)goto S_3242;} do{ *__LONG_OPEX_COMMENTS= -1 ; if(!qbevent)break;evnt(2725);}while(r); } S_3245:; if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ if(qbevent){evnt(2727);if(r)goto S_3245;} do{ *__LONG_LAYOUTOK= 1 ; if(!qbevent)break;evnt(2728);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__INTEGER_CONTROLLEVEL),qbs_ltrim(qbs_rtrim(__STRING_A3)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2729);}while(r); S_3248:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(2730);if(r)goto S_3248;} do{ goto LABEL_IDERET4; if(!qbevent)break;evnt(2730);}while(r); }else{ do{ goto LABEL_SKIPIDE4; if(!qbevent)break;evnt(2730);}while(r); } } do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2733);}while(r); do{ *__LONG_LAYOUTOK= 1 ; if(!qbevent)break;evnt(2734);}while(r); S_3256:; if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ if(qbevent){evnt(2736);if(r)goto S_3256;} do{ *__LONG_MAXPROGRESSWIDTH= 50 ; if(!qbevent)break;evnt(2740);}while(r); do{ *__LONG_PERCENTAGE=qbr(floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 )); if(!qbevent)break;evnt(2741);}while(r); do{ *__LONG_PERCENTAGECHARS=qbr(floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER)))); if(!qbevent)break;evnt(2742);}while(r); S_3260:; if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||new_error){ if(qbevent){evnt(2743);if(r)goto S_3260;} do{ *__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE; if(!qbevent)break;evnt(2744);}while(r); do{ *__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS; if(!qbevent)break;evnt(2745);}while(r); S_3263:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(2746);if(r)goto S_3263;} 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 skip324; makefit(tqbs); qbs_print(tqbs,0); skip324: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2747);}while(r); S_3265:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(2748);if(r)goto S_3265;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2))); if (new_error) goto skip325; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip325: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2749);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr( 13 )); if (new_error) goto skip326; makefit(tqbs); qbs_print(tqbs,0); skip326: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2751);}while(r); } }else{ do{ qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); if(!qbevent)break;evnt(2754);}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 skip327; makefit(tqbs); qbs_print(tqbs,0); skip327: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2755);}while(r); } } } do{ qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2760);}while(r); do{ qbs_set(__STRING_WHOLELINE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2761);}while(r); do{ qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2763);}while(r); do{ qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2764);}while(r); do{ *__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL; if(!qbevent)break;evnt(2765);}while(r); do{ qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2767);}while(r); S_3282:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||new_error){ if(qbevent){evnt(2768);if(r)goto S_3282;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2768);}while(r); } S_3285:; if (( 0 )||new_error){ if(qbevent){evnt(2769);if(r)goto S_3285;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip329; 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 skip329; skip329: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(2769);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(2771);}while(r); do{ qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2777);}while(r); S_3290:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("REM ",4)))|(((qbs_equal(qbs_left(__STRING_A3U, 3 ),qbs_new_txt_len("REM",3)))&(-(__STRING_A3U->len== 3 ))))|(qbs_equal(qbs_left(__STRING_A3U, 1 ),qbs_new_txt_len("'",1)))|(((qbs_equal(qbs_left(__STRING_A3U, 7 ),qbs_new_txt_len("OPTION ",7)))&(qbs_equal(qbs_left(qbs_ltrim(func_mid(__STRING_A3U, 8 ,NULL,0)), 9 ),qbs_new_txt_len("_EXPLICIT",9)))))|(((qbs_equal(qbs_left(__STRING_A3U, 7 ),qbs_new_txt_len("OPTION ",7)))&(qbs_equal(qbs_left(qbs_ltrim(func_mid(__STRING_A3U, 8 ,NULL,0)), 8 ),qbs_new_txt_len("EXPLICIT",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))|(qbs_equal(qbs_left(__STRING_A3U, 1 ),qbs_new_txt_len("$",1)))))||new_error){ if(qbevent){evnt(2784);if(r)goto S_3290;} S_3291:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("REM ",4))))||new_error){ if(qbevent){evnt(2787);if(r)goto S_3291;} do{ *__LONG_I= 5 ; if(!qbevent)break;evnt(2787);}while(r); }else{ do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(2787);}while(r); } S_3296:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(__STRING_A3U,*__LONG_I,NULL,0)), 8 ),qbs_new_txt_len("$INCLUDE",8))))||new_error){ if(qbevent){evnt(2788);if(r)goto S_3296;} do{ *__LONG_OPEX_COMMENTS= 0 ; if(!qbevent)break;evnt(2788);}while(r); } }else{ do{ *__LONG_OPEX_COMMENTS= 0 ; if(!qbevent)break;evnt(2791);}while(r); } S_3302:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||new_error){ if(qbevent){evnt(2795);if(r)goto S_3302;} S_3303:; 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(2798);if(r)goto S_3303;} S_3304:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(2799);if(r)goto S_3304;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2799);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2799);}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(2800);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; if(!qbevent)break;evnt(2801);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$END IF",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2802);}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(2803);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(2804);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2805);}while(r); } S_3315:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ if(qbevent){evnt(2808);if(r)goto S_3315;} S_3316:; 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(2810);if(r)goto S_3316;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2811);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2811);}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(2814);}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(2815);}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(2816);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; if(!qbevent)break;evnt(2818);}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(2819);}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(2820);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2821);}while(r); S_3327:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2822);if(r)goto S_3327;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2822);}while(r); } S_3330:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ if(qbevent){evnt(2823);if(r)goto S_3330;} 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(2824);}while(r); S_3332:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ if(qbevent){evnt(2825);if(r)goto S_3332;} 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(2825);}while(r); } } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(2828);}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(2829);}while(r); S_3338:; if ((-(*__LONG_TEMP== 0 ))||new_error){ if(qbevent){evnt(2830);if(r)goto S_3338;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_new_txt_len("$IF ",4),__STRING_TEMP),qbs_new_txt_len(" THEN",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2830);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2830);}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(2831);}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(2831);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$IF ",4),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),qbs_new_txt_len(" THEN",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2832);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2833);}while(r); } S_3347:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||new_error){ if(qbevent){evnt(2836);if(r)goto S_3347;} S_3348:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(2837);if(r)goto S_3348;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2837);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2837);}while(r); } S_3352:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ if(qbevent){evnt(2838);if(r)goto S_3352;} 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(2838);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2838);}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(2839);}while(r); S_3357:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ if(qbevent){evnt(2840);if(r)goto S_3357;} 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(2841);}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(2843);}while(r); } do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$ELSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2845);}while(r); do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; if(!qbevent)break;evnt(2846);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2847);}while(r); } S_3366:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ if(qbevent){evnt(2850);if(r)goto S_3366;} do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2851);}while(r); S_3368:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ if(qbevent){evnt(2852);if(r)goto S_3368;} S_3369:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ if(qbevent){evnt(2853);if(r)goto S_3369;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2853);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2853);}while(r); } S_3373:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ if(qbevent){evnt(2854);if(r)goto S_3373;} 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(2854);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2854);}while(r); } S_3377:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ if(qbevent){evnt(2855);if(r)goto S_3377;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2855);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2855);}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(2856);}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(2857);}while(r); S_3383:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ if(qbevent){evnt(2858);if(r)goto S_3383;} 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(2859);}while(r); }else{ do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2861);}while(r); S_3387:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(2862);if(r)goto S_3387;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(2862);}while(r); } S_3390:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ if(qbevent){evnt(2863);if(r)goto S_3390;} 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(2864);}while(r); S_3392:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ if(qbevent){evnt(2865);if(r)goto S_3392;} 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(2865);}while(r); } } } do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; if(!qbevent)break;evnt(2870);}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(2871);}while(r); S_3399:; if ((-(*__LONG_TEMP== 0 ))||new_error){ if(qbevent){evnt(2872);if(r)goto S_3399;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_new_txt_len("$ELSEIF ",8),__STRING_TEMP),qbs_new_txt_len(" THEN",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2872);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2872);}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(2873);}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(2873);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$ELSEIF ",8),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),qbs_new_txt_len(" THEN",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2874);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2875);}while(r); } } S_3409:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ if(qbevent){evnt(2879);if(r)goto S_3409;} do{ *__LONG_LAYOUTDONE= 0 ; if(!qbevent)break;evnt(2880);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2881);}while(r); } S_3413:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||new_error){ if(qbevent){evnt(2884);if(r)goto S_3413;} do{ qbs_set(__STRING_TEMP,__STRING_A3U); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(2885);}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(2886);}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(2888);}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(2889);}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(2889);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(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(2890);}while(r); S_3420:; fornext_value334= 7 ; fornext_finalvalue334=*__INTEGER_USERDEFINECOUNT; fornext_step334= 1 ; if (fornext_step334<0) fornext_step_negative334=1; else fornext_step_negative334=0; if (new_error) goto fornext_error334; goto fornext_entrylabel334; while(1){ fornext_value334=fornext_step334+(*__LONG_I); fornext_entrylabel334: *__LONG_I=fornext_value334; if (fornext_step_negative334){ if (fornext_value334fornext_finalvalue334) break; } fornext_error334:; if(qbevent){evnt(2892);if(r)goto S_3420;} S_3421:; 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(2893);if(r)goto S_3421;} 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(2893);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(2893);}while(r); } fornext_continue_333:; } fornext_exit_333:; do{ *__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; if(!qbevent)break;evnt(2896);}while(r); S_3427:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ if(qbevent){evnt(2897);if(r)goto S_3427;} do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_USERDEFINE[2]&1){ preserved_elements=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; } else preserved_elements=0; __ARRAY_STRING_USERDEFINE[8]= 0 ; __ARRAY_STRING_USERDEFINE[9]=( 1 )-__ARRAY_STRING_USERDEFINE[8]+1; __ARRAY_STRING_USERDEFINE[10]=1; __ARRAY_STRING_USERDEFINE[4]= 0 ; __ARRAY_STRING_USERDEFINE[5]=(func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2)+ 10 )-__ARRAY_STRING_USERDEFINE[4]+1; __ARRAY_STRING_USERDEFINE[6]=__ARRAY_STRING_USERDEFINE[10]*__ARRAY_STRING_USERDEFINE[9]; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9]; if (tmp_long2=return_points) more_return_points(); goto LABEL_VALIDATEVERSION; RETURN_3:; if(!qbevent)break;evnt(3021);}while(r); do{ qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3022);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FILEVERSION#=",26),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3023);}while(r); sc_ec_7_end:; goto sc_335_end; } S_3538:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||new_error){ if(qbevent){evnt(3024);if(r)goto S_3538;} do{ return_point[next_return_point++]=4; if (next_return_point>=return_points) more_return_points(); goto LABEL_VALIDATEVERSION; RETURN_4:; if(!qbevent)break;evnt(3025);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3026);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:PRODUCTVERSION#=",29),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3027);}while(r); sc_ec_8_end:; goto sc_335_end; } S_3542:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||new_error){ if(qbevent){evnt(3028);if(r)goto S_3542;} do{ qbs_set(__STRING_VICOMPANYNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3029);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:CompanyName=",25),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3030);}while(r); sc_ec_9_end:; goto sc_335_end; } S_3545:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||new_error){ if(qbevent){evnt(3031);if(r)goto S_3545;} do{ qbs_set(__STRING_VIFILEDESCRIPTION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3032);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FileDescription=",29),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3033);}while(r); sc_ec_10_end:; goto sc_335_end; } S_3548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||new_error){ if(qbevent){evnt(3034);if(r)goto S_3548;} do{ qbs_set(__STRING_VIFILEVERSION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3035);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FileVersion=",25),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3036);}while(r); sc_ec_11_end:; goto sc_335_end; } S_3551:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||new_error){ if(qbevent){evnt(3037);if(r)goto S_3551;} do{ qbs_set(__STRING_VIINTERNALNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3038);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:InternalName=",26),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3039);}while(r); sc_ec_12_end:; goto sc_335_end; } S_3554:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||new_error){ if(qbevent){evnt(3040);if(r)goto S_3554;} do{ qbs_set(__STRING_VILEGALCOPYRIGHT,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3041);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:LegalCopyright=",28),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3042);}while(r); sc_ec_13_end:; goto sc_335_end; } S_3557:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||new_error){ if(qbevent){evnt(3043);if(r)goto S_3557;} do{ qbs_set(__STRING_VILEGALTRADEMARKS,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3044);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:LegalTrademarks=",29),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3045);}while(r); sc_ec_14_end:; goto sc_335_end; } S_3560:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||new_error){ if(qbevent){evnt(3046);if(r)goto S_3560;} do{ qbs_set(__STRING_VIORIGINALFILENAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3047);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:OriginalFilename=",30),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3048);}while(r); sc_ec_15_end:; goto sc_335_end; } S_3563:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||new_error){ if(qbevent){evnt(3049);if(r)goto S_3563;} do{ qbs_set(__STRING_VIPRODUCTNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3050);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:ProductName=",25),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3051);}while(r); sc_ec_16_end:; goto sc_335_end; } S_3566:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||new_error){ if(qbevent){evnt(3052);if(r)goto S_3566;} do{ qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3053);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:ProductVersion=",28),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3054);}while(r); sc_ec_17_end:; goto sc_335_end; } S_3569:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||new_error){ if(qbevent){evnt(3055);if(r)goto S_3569;} do{ qbs_set(__STRING_VICOMMENTS,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3056);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:Comments=",22),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3057);}while(r); sc_ec_18_end:; goto sc_335_end; } S_3572:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||new_error){ if(qbevent){evnt(3058);if(r)goto S_3572;} do{ qbs_set(__STRING_VIWEB,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3059);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:Web=",17),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3060);}while(r); sc_ec_19_end:; goto sc_335_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(3062);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3063);}while(r); sc_335_end:; do{ *__BYTE_VERSIONINFOSET= -1 ; if(!qbevent)break;evnt(3066);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3068);}while(r); LABEL_VALIDATEVERSION:; if(qbevent){evnt(3070);r=0;} S_3581:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||new_error){ if(qbevent){evnt(3072);if(r)goto S_3581;} 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(3072);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3072);}while(r); } do{ *__LONG_VICOMMAS= 0 ; if(!qbevent)break;evnt(3073);}while(r); S_3586:; fornext_value338= 1 ; fornext_finalvalue338=__STRING_VERSIONINFOVALUE->len; fornext_step338= 1 ; if (fornext_step338<0) fornext_step_negative338=1; else fornext_step_negative338=0; if (new_error) goto fornext_error338; goto fornext_entrylabel338; while(1){ fornext_value338=fornext_step338+(*__LONG_I); fornext_entrylabel338: *__LONG_I=fornext_value338; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative338){ if (fornext_value338fornext_finalvalue338) break; } fornext_error338:; if(qbevent){evnt(3074);if(r)goto S_3586;} S_3587:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||new_error){ if(qbevent){evnt(3075);if(r)goto S_3587;} do{ *__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ; if(!qbevent)break;evnt(3075);}while(r); } S_3590:; if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,qbs_new_txt_len("0123456789,",11),func_mid(__STRING_VERSIONINFOVALUE,*__LONG_I, 1 ,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(3076);if(r)goto S_3590;} 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(3077);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3077);}while(r); } fornext_continue_337:; } fornext_exit_337:; do{ #include "ret0.txt" if(!qbevent)break;evnt(3080);}while(r); } S_3597:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||new_error){ if(qbevent){evnt(3083);if(r)goto S_3597;} S_3598:; if ((*__LONG_EXEICONSET)||new_error){ if(qbevent){evnt(3085);if(r)goto S_3598;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$EXEICON already defined",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3085);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3085);}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(3086);}while(r); S_3603:; if ((-(*__LONG_FIRSTDELIMITER== 0 ))||new_error){ if(qbevent){evnt(3087);if(r)goto S_3603;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3088);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3088);}while(r); }else{ do{ *__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3090);}while(r); S_3608:; if ((-(*__LONG_SECONDDELIMITER== 0 ))||new_error){ if(qbevent){evnt(3091);if(r)goto S_3608;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); 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_EXEICONFILE,qbs_rtrim(qbs_ltrim(func_mid(__STRING_A3,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3093);}while(r); S_3614:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||new_error){ if(qbevent){evnt(3094);if(r)goto S_3614;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3094);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3094);}while(r); } do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(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(3095);}while(r); S_3619:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(3097);if(r)goto S_3619;} do{ qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3100);}while(r); S_3621:; 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(3101);if(r)goto S_3621;} S_3622:; if ((*__LONG_NOIDEMODE)||new_error){ if(qbevent){evnt(3103);if(r)goto S_3622;} do{ qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3104);}while(r); S_3624:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||new_error){ if(qbevent){evnt(3105);if(r)goto S_3624;} do{ qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3105);}while(r); } }else{ S_3628:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ if(qbevent){evnt(3107);if(r)goto S_3628;} do{ qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3107);}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(3109);}while(r); S_3633:; }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(3110);if(r)goto S_3633;} S_3634:; fornext_value345=__STRING_EXEICONFILE->len; fornext_finalvalue345= 1 ; fornext_step345= -1 ; if (fornext_step345<0) fornext_step_negative345=1; else fornext_step_negative345=0; if (new_error) goto fornext_error345; goto fornext_entrylabel345; while(1){ fornext_value345=fornext_step345+(*__LONG_I); fornext_entrylabel345: *__LONG_I=fornext_value345; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative345){ if (fornext_value345fornext_finalvalue345) break; } fornext_error345:; if(qbevent){evnt(3111);if(r)goto S_3634;} S_3635:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,1),qbs_new_txt_len("\\",1)))))||new_error){ if(qbevent){evnt(3112);if(r)goto S_3635;} do{ qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3113);}while(r); do{ qbs_set(__STRING_EXEICONFILE,func_mid(__STRING_EXEICONFILE,*__LONG_I+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3114);}while(r); S_3638:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||new_error){ if(qbevent){evnt(3115);if(r)goto S_3638;} 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(3115);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3115);}while(r); } do{ qbs_set(__STRING_CURRENTDIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3116);}while(r); do{ sub_chdir(__STRING_ICONPATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3117);}while(r); do{ qbs_set(__STRING_ICONPATH,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3118);}while(r); do{ sub_chdir(__STRING_CURRENTDIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3119);}while(r); do{ qbs_set(__STRING_EXEICONFILE,qbs_add(qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP),__STRING_EXEICONFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3120);}while(r); do{ goto fornext_exit_344; if(!qbevent)break;evnt(3121);}while(r); } fornext_continue_344:; } fornext_exit_344:; } } S_3651:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||new_error){ if(qbevent){evnt(3126);if(r)goto S_3651;} S_3652:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ICONPATH->len))||new_error){ if(qbevent){evnt(3127);if(r)goto S_3652;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),func_mid(__STRING_EXEICONFILE,__STRING_ICONPATH->len+ 1 ,NULL,0)),qbs_new_txt_len("' not found",11))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3128);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3128);}while(r); }else{ 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(3130);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3130);}while(r); } }else{ do{ *__LONG_ICONFILEHANDLE=func_freefile(); if(!qbevent)break;evnt(3133);}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(3134);}while(r); do{ error_goto_line=7; if(!qbevent)break;evnt(3135);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 4 ,NULL,NULL,*__LONG_ICONFILEHANDLE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3136);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip349; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("0 ICON ",7),FUNC_QUOTEDFILENAME(FUNC_STRREPLACE(__STRING_EXEICONFILE,qbs_new_txt_len("\\",1),qbs_new_txt_len("/",1)))), 0 , 0 , 1 ); if (new_error) goto skip349; skip349: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3137);}while(r); do{ sub_close(*__LONG_ICONFILEHANDLE,1); if(!qbevent)break;evnt(3138);}while(r); S_3666:; if ((-(*__LONG_E== 1 ))||new_error){ if(qbevent){evnt(3139);if(r)goto S_3666;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Error creating icon resource file",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3139);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3139);}while(r); } do{ error_goto_line=8; if(!qbevent)break;evnt(3140);}while(r); } } do{ *__LONG_EXEICONSET=*__LONG_LINENUMBER; if(!qbevent)break;evnt(3144);}while(r); do{ SUB_SETDEPENDENCY(&(pass350= 10 )); if(!qbevent)break;evnt(3145);}while(r); S_3675:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(3146);if(r)goto S_3675;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip351; sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); if (new_error) goto skip351; skip351: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3146);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip352; sub_file_print(tmp_fileno,qbs_new_txt_len("sub__icon(NULL,NULL,0);",23), 0 , 0 , 1 ); if (new_error) goto skip352; skip352: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3147);}while(r); do{ goto LABEL_FINISHEDLINE2; if(!qbevent)break;evnt(3148);}while(r); } } S_3682:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ if(qbevent){evnt(3153);if(r)goto S_3682;} do{ *__LONG_LAYOUTDONE= 0 ; if(!qbevent)break;evnt(3154);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3155);}while(r); } do{ *__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET; if(!qbevent)break;evnt(3159);}while(r); do{ qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3161);}while(r); S_3688:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||new_error){ if(qbevent){evnt(3161);if(r)goto S_3688;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3161);}while(r); } S_3691:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(3162);if(r)goto S_3691;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3162);}while(r); } do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3163);}while(r); do{ *__LONG_NEWIF= 0 ; if(!qbevent)break;evnt(3165);}while(r); do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(3169);}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)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3170);}while(r); S_3698:; while((*__LONG_I)||new_error){ if(qbevent){evnt(3171);if(r)goto S_3698;} do{ *__LONG_SKIP= 0 ; if(!qbevent)break;evnt(3172);}while(r); S_3700:; if ((-(*__LONG_I!= 1 ))||new_error){ if(qbevent){evnt(3173);if(r)goto S_3700;} S_3701:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(3174);if(r)goto S_3701;} do{ *__LONG_SKIP= 1 ; if(!qbevent)break;evnt(3174);}while(r); } } S_3705:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||new_error){ if(qbevent){evnt(3176);if(r)goto S_3705;} S_3706:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(3177);if(r)goto S_3706;} do{ *__LONG_SKIP= 1 ; if(!qbevent)break;evnt(3177);}while(r); } } S_3710:; if ((-(*__LONG_SKIP== 0 ))||new_error){ if(qbevent){evnt(3179);if(r)goto S_3710;} 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(3180);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3181);}while(r); } do{ *__LONG_S=*__LONG_I+ 9 ; if(!qbevent)break;evnt(3183);}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)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3184);}while(r); dl_continue_354:; } dl_exit_354:; do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3187);}while(r); do{ *__LONG_A=qbs_asc(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3190);}while(r); S_3719:; if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||new_error){ if(qbevent){evnt(3191);if(r)goto S_3719;} do{ qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass356= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3192);}while(r); S_3721:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||new_error){ if(qbevent){evnt(3193);if(r)goto S_3721;} do{ *__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass357= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3195);}while(r); LABEL_ADDLABCHK100:; if(qbevent){evnt(3196);r=0;} S_3723:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(3197);if(r)goto S_3723;} 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(3198);}while(r); S_3725:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(3199);if(r)goto S_3725;} S_3726:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(3200);if(r)goto S_3726;} 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(3200);}while(r); } S_3729:; 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(3201);if(r)goto S_3729;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Duplicate label",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3201);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3201);}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(3203);}while(r); do{ goto LABEL_ADDLABAQ100; if(!qbevent)break;evnt(3204);}while(r); } S_3736:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(3206);if(r)goto S_3736;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(3206);}while(r); do{ goto LABEL_ADDLABCHK100; if(!qbevent)break;evnt(3206);}while(r); } } do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(3210);}while(r); S_3742:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(3210);if(r)goto S_3742;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(3210);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3225);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip361; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("last_line=",10),__STRING_LABEL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip361; skip361: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3226);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3227);}while(r); S_3763:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ if(qbevent){evnt(3228);if(r)goto S_3763;} 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(3229);}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(3230);}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(3231);}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(3232);}while(r); } S_3769:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(3234);if(r)goto S_3769;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip363; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); if (new_error) goto skip363; skip363: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3235);}while(r); } S_3772:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(3237);if(r)goto S_3772;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3237);}while(r); } do{ qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass364= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3238);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3238);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(3238);}while(r); } } S_3780:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(3246);if(r)goto S_3780;} 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(3247);}while(r); S_3782:; if ((*__LONG_X2)||new_error){ if(qbevent){evnt(3248);if(r)goto S_3782;} S_3783:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||new_error){ if(qbevent){evnt(3249);if(r)goto S_3783;} do{ *__LONG_X3=*__LONG_X2+ 1 ; if(!qbevent)break;evnt(3249);}while(r); }else{ do{ *__LONG_X3=*__LONG_X2+ 2 ; if(!qbevent)break;evnt(3249);}while(r); } do{ qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3250);}while(r); do{ *__LONG_CREATINGLABEL= 1 ; if(!qbevent)break;evnt(3252);}while(r); S_3790:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||new_error){ if(qbevent){evnt(3253);if(r)goto S_3790;} S_3791:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||new_error){ if(qbevent){evnt(3255);if(r)goto S_3791;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3255);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3255);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass366= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3257);}while(r); LABEL_ADDLABCHK:; if(qbevent){evnt(3258);r=0;} S_3796:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(3259);if(r)goto S_3796;} 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(3260);}while(r); S_3798:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(3261);if(r)goto S_3798;} S_3799:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(3262);if(r)goto S_3799;} 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(3262);}while(r); } S_3802:; 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(3263);if(r)goto S_3802;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Duplicate label",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3263);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3263);}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(3265);}while(r); do{ goto LABEL_ADDLABAQ; if(!qbevent)break;evnt(3266);}while(r); } S_3809:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(3268);if(r)goto S_3809;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(3268);}while(r); do{ goto LABEL_ADDLABCHK; if(!qbevent)break;evnt(3268);}while(r); } } do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(3271);}while(r); S_3815:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(3271);if(r)goto S_3815;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(3271);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(3282);if(r)goto S_3827;} 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(3282);}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(3282);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip369; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_A),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip369; skip369: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3284);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3285);}while(r); S_3834:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ if(qbevent){evnt(3286);if(r)goto S_3834;} 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(3287);}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(3288);}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(3289);}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(3290);}while(r); } S_3840:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(3292);if(r)goto S_3840;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip371; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); if (new_error) goto skip371; skip371: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3293);}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(3295);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3295);}while(r); do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3296);}while(r); S_3846:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(3296);if(r)goto S_3846;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3296);}while(r); } } } } S_3852:; while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||new_error){ if(qbevent){evnt(3302);if(r)goto S_3852;} S_3853:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3303);if(r)goto S_3853;} 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(3303);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3303);}while(r); } S_3858:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||new_error){ if(qbevent){evnt(3304);if(r)goto S_3858;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3304);}while(r); } do{ qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass376= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3305);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3305);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(3305);}while(r); dl_continue_373:; } dl_exit_373:; S_3865:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||new_error){ if(qbevent){evnt(3309);if(r)goto S_3865;} do{ qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass377= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3311);}while(r); S_3867:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||new_error){ if(qbevent){evnt(3313);if(r)goto S_3867;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3314);}while(r); S_3869:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(3315);if(r)goto S_3869;} do{ *__LONG_CONTINUELINEFROM= 2 ; if(!qbevent)break;evnt(3315);}while(r); } do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3316);}while(r); } S_3874:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||new_error){ if(qbevent){evnt(3319);if(r)goto S_3874;} S_3875:; if ((-(*__LONG_N< 3 ))||new_error){ if(qbevent){evnt(3320);if(r)goto S_3875;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3320);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3320);}while(r); } S_3879:; 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(3321);if(r)goto S_3879;} do{ qbs_set(__STRING_A,__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3321);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3321);}while(r); } S_3883:; fornext_value379= 3 ; fornext_finalvalue379=*__LONG_N- 1 ; fornext_step379= 1 ; if (fornext_step379<0) fornext_step_negative379=1; else fornext_step_negative379=0; if (new_error) goto fornext_error379; goto fornext_entrylabel379; while(1){ fornext_value379=fornext_step379+(*__LONG_I); fornext_entrylabel379: *__LONG_I=fornext_value379; if (fornext_step_negative379){ if (fornext_value379fornext_finalvalue379) break; } fornext_error379:; if(qbevent){evnt(3322);if(r)goto S_3883;} S_3884:; 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(3323);if(r)goto S_3884;} do{ qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass380= 1 ),__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3324);}while(r); do{ *__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; if(!qbevent)break;evnt(3325);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3326);}while(r); } fornext_continue_378:; } fornext_exit_378:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3329);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3329);}while(r); } } do{ *__LONG_START= 1 ; if(!qbevent)break;evnt(3334);}while(r); do{ goto LABEL_SKIPCONTINIT; if(!qbevent)break;evnt(3336);}while(r); LABEL_CONTLINE:; if(qbevent){evnt(3338);r=0;} do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3340);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3341);}while(r); LABEL_SKIPCONTINIT:; if(qbevent){evnt(3343);r=0;} do{ qbs_set(__STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3351);}while(r); S_3899:; fornext_value382=*__LONG_START; fornext_finalvalue382=*__LONG_N; fornext_step382= 1 ; if (fornext_step382<0) fornext_step_negative382=1; else fornext_step_negative382=0; if (new_error) goto fornext_error382; goto fornext_entrylabel382; while(1){ fornext_value382=fornext_step382+(*__LONG_I); fornext_entrylabel382: *__LONG_I=fornext_value382; if (fornext_step_negative382){ if (fornext_value382fornext_finalvalue382) break; } fornext_error382:; if(qbevent){evnt(3353);if(r)goto S_3899;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3354);}while(r); S_3901:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||new_error){ if(qbevent){evnt(3357);if(r)goto S_3901;} S_3902:; if ((-(*__LONG_I==*__LONG_START))||new_error){ if(qbevent){evnt(3358);if(r)goto S_3902;} do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3359);}while(r); S_3904:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3359);if(r)goto S_3904;} 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(3359);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3359);}while(r); } S_3909:; if ((-(*__LONG_I!=*__LONG_N))||new_error){ if(qbevent){evnt(3360);if(r)goto S_3909;} do{ *__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; if(!qbevent)break;evnt(3360);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3361);}while(r); } S_3914:; if ((-(*__LONG_I!=*__LONG_N))||new_error){ if(qbevent){evnt(3363);if(r)goto S_3914;} do{ *__LONG_CONTINUELINEFROM=*__LONG_I; if(!qbevent)break;evnt(3363);}while(r); } do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3364);}while(r); } S_3919:; 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(3369);if(r)goto S_3919;} do{ *__LONG_NEWIF= 1 ; if(!qbevent)break;evnt(3369);}while(r); } S_3922:; 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(3372);if(r)goto S_3922;} S_3923:; if ((-(*__LONG_NEWIF== 0 ))||new_error){ if(qbevent){evnt(3373);if(r)goto S_3923;} do{ qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3373);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3373);}while(r); } do{ *__LONG_NEWIF= 0 ; if(!qbevent)break;evnt(3374);}while(r); S_3928:; if ((-(*__LONG_LINEELSEUSED> 0 ))||new_error){ if(qbevent){evnt(3375);if(r)goto S_3928;} do{ *__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; if(!qbevent)break;evnt(3375);}while(r); } S_3931:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ if(qbevent){evnt(3376);if(r)goto S_3931;} S_3932:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(3377);if(r)goto S_3932;} 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(3377);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3377);}while(r); } do{ *__LONG_I=*__LONG_I- 1 ; if(!qbevent)break;evnt(3378);}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(3380);}while(r); S_3939:; if ((-(*__LONG_I!=*__LONG_N))||new_error){ if(qbevent){evnt(3381);if(r)goto S_3939;} do{ *__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; if(!qbevent)break;evnt(3381);}while(r); do{ *__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ; if(!qbevent)break;evnt(3381);}while(r); } do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3382);}while(r); } S_3945:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||new_error){ if(qbevent){evnt(3386);if(r)goto S_3945;} S_3946:; if ((-(*__LONG_START==*__LONG_I))||new_error){ if(qbevent){evnt(3388);if(r)goto S_3946;} S_3947:; if ((-(*__LONG_LINEELSEUSED>= 1 ))||new_error){ if(qbevent){evnt(3389);if(r)goto S_3947;} do{ *__LONG_IMPLIEDENDIF= 1 ; if(!qbevent)break;evnt(3394);}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(3394);}while(r); do{ *__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; if(!qbevent)break;evnt(3395);}while(r); do{ *__LONG_CONTINUELINEFROM=*__LONG_I; if(!qbevent)break;evnt(3396);}while(r); do{ *__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; if(!qbevent)break;evnt(3397);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3398);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3401);}while(r); do{ *__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; if(!qbevent)break;evnt(3401);}while(r); do{ *__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ; if(!qbevent)break;evnt(3402);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3403);}while(r); } do{ *__LONG_CONTINUELINEFROM=*__LONG_I; if(!qbevent)break;evnt(3407);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3408);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3412);}while(r); S_3964:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(3412);if(r)goto S_3964;} do{ qbs_set(__STRING_A,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3412);}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(3412);}while(r); } fornext_continue_381:; } fornext_exit_381:; S_3970:; if ((-(*__LONG_ENDIFS> 0 ))||new_error){ if(qbevent){evnt(3417);if(r)goto S_3970;} do{ *__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; if(!qbevent)break;evnt(3418);}while(r); do{ *__LONG_IMPLIEDENDIF= 1 ; if(!qbevent)break;evnt(3419);}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(3419);}while(r); do{ *__LONG_N=*__LONG_N+ 3 ; if(!qbevent)break;evnt(3419);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(3420);}while(r); do{ *__LONG_CONTINUELINEFROM=*__LONG_I; if(!qbevent)break;evnt(3421);}while(r); do{ goto LABEL_GOTCOMMAND; if(!qbevent)break;evnt(3422);}while(r); } LABEL_GOTCOMMAND:; if(qbevent){evnt(3426);r=0;} do{ *__LONG_DYNSCOPE= 0 ; if(!qbevent)break;evnt(3428);}while(r); do{ qbs_set(__STRING_CA,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3430);}while(r); do{ qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3431);}while(r); do{ *__LONG_LAYOUTDONE= 0 ; if(!qbevent)break;evnt(3434);}while(r); do{ qbs_set(__STRING_LINEFRAGMENT,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3436);}while(r); S_3984:; if (( 0 )||new_error){ if(qbevent){evnt(3437);if(r)goto S_3984;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip384; sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); if (new_error) goto skip384; skip384: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(3437);}while(r); } do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3438);}while(r); S_3988:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(3439);if(r)goto S_3988;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3439);}while(r); } S_3991:; 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(3442);if(r)goto S_3991;} do{ qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass385= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3443);}while(r); do{ *__LONG_EXCEPT= 0 ; if(!qbevent)break;evnt(3444);}while(r); do{ qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3445);}while(r); do{ *__LONG_LASTFUSE= -1 ; if(!qbevent)break;evnt(3446);}while(r); S_3996:; fornext_value387= 2 ; fornext_finalvalue387=*__LONG_N; fornext_step387= 1 ; if (fornext_step387<0) fornext_step_negative387=1; else fornext_step_negative387=0; if (new_error) goto fornext_error387; goto fornext_entrylabel387; while(1){ fornext_value387=fornext_step387+(*__LONG_X); fornext_entrylabel387: *__LONG_X=fornext_value387; if (fornext_step_negative387){ if (fornext_value387fornext_finalvalue387) break; } fornext_error387:; if(qbevent){evnt(3447);if(r)goto S_3996;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3448);}while(r); S_3998:; if ((-(*__LONG_EXCEPT== 1 ))||new_error){ if(qbevent){evnt(3449);if(r)goto S_3998;} do{ *__LONG_EXCEPT= 2 ; if(!qbevent)break;evnt(3449);}while(r); do{ goto LABEL_UDTPERIOD; if(!qbevent)break;evnt(3449);}while(r); } S_4002:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||new_error){ if(qbevent){evnt(3450);if(r)goto S_4002;} S_4003:; if ((-(*__LONG_EXCEPT== 2 ))||new_error){ if(qbevent){evnt(3451);if(r)goto S_4003;} do{ *__LONG_EXCEPT= 1 ; if(!qbevent)break;evnt(3451);}while(r); do{ goto LABEL_UDTPERIOD; if(!qbevent)break;evnt(3451);}while(r); } S_4007:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(3453);if(r)goto S_4007;} do{ *__LONG_EXCEPT= 1 ; if(!qbevent)break;evnt(3455);}while(r); do{ goto LABEL_UDTPERIOD; if(!qbevent)break;evnt(3456);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3460);}while(r); S_4012:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(3461);if(r)goto S_4012;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3461);}while(r); } S_4015:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(3462);if(r)goto S_4015;} S_4016:; if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||new_error){ if(qbevent){evnt(3463);if(r)goto S_4016;} do{ *__LONG_EXCEPT= 1 ; if(!qbevent)break;evnt(3464);}while(r); do{ goto LABEL_UDTPERIOD; if(!qbevent)break;evnt(3465);}while(r); } S_4020:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(3467);if(r)goto S_4020;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(3467);}while(r); do{ *__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3467);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(3467);}while(r); } S_4026:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(3468);if(r)goto S_4026;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3468);}while(r); } dl_continue_388:; } dl_exit_388:; S_4030:; 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(3471);if(r)goto S_4030;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3471);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3471);}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(3472);}while(r); do{ *__LONG_LASTFUSE=*__LONG_X; if(!qbevent)break;evnt(3473);}while(r); do{ goto LABEL_PERIODFUSED; if(!qbevent)break;evnt(3474);}while(r); } do{ *__LONG_EXCEPT= 0 ; if(!qbevent)break;evnt(3476);}while(r); LABEL_UDTPERIOD:; if(qbevent){evnt(3477);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(3478);}while(r); LABEL_PERIODFUSED:; if(qbevent){evnt(3479);r=0;} do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3480);}while(r); fornext_continue_386:; } fornext_exit_386:; do{ qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3482);}while(r); do{ qbs_set(__STRING_CA,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3483);}while(r); do{ qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3484);}while(r); do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3485);}while(r); } do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(3488);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass391= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3490);}while(r); do{ qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass392= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3491);}while(r); do{ qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass393= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3492);}while(r); S_4051:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(3496);if(r)goto S_4051;} S_4052:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||new_error){ if(qbevent){evnt(3497);if(r)goto S_4052;} do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3497);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3497);}while(r); } } S_4057:; if ((-(*__LONG_N<= 2 ))||new_error){ if(qbevent){evnt(3500);if(r)goto S_4057;} S_4058:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||new_error){ if(qbevent){evnt(3501);if(r)goto S_4058;} do{ qbs_set(__STRING_L,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3502);}while(r); S_4060:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(3503);if(r)goto S_4060;} do{ qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/ 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3505);}while(r); S_4062:; fornext_value396= 1 ; fornext_finalvalue396=__STRING_E->len; 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_X); fornext_entrylabel396: *__LONG_X=fornext_value396; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative396){ if (fornext_value396fornext_finalvalue396) break; } fornext_error396:; if(qbevent){evnt(3506);if(r)goto S_4062;} do{ *__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 ); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3507);}while(r); do{ *__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3508);}while(r); S_4065:; if ((-(*__LONG_V1< 65 ))||new_error){ if(qbevent){evnt(3509);if(r)goto S_4065;} do{ *__LONG_V1=*__LONG_V1- 48 ; if(!qbevent)break;evnt(3509);}while(r); }else{ do{ *__LONG_V1=*__LONG_V1- 55 ; if(!qbevent)break;evnt(3509);}while(r); } S_4070:; if ((-(*__LONG_V2< 65 ))||new_error){ if(qbevent){evnt(3510);if(r)goto S_4070;} do{ *__LONG_V2=*__LONG_V2- 48 ; if(!qbevent)break;evnt(3510);}while(r); }else{ do{ *__LONG_V2=*__LONG_V2- 55 ; if(!qbevent)break;evnt(3510);}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(3511);}while(r); fornext_continue_395:; } fornext_exit_395:; 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(3513);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3516);}while(r); S_4080:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3516);if(r)goto S_4080;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3516);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3516);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3518);}while(r); } } S_4088:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(3525);if(r)goto S_4088;} S_4089:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ if(qbevent){evnt(3527);if(r)goto S_4089;} S_4090:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ if(qbevent){evnt(3528);if(r)goto S_4090;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3528);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3528);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 0 ; if(!qbevent)break;evnt(3529);}while(r); do{ qbs_set(__STRING_L,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(3530);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3531);}while(r); S_4097:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3531);if(r)goto S_4097;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3531);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3531);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3532);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 2 ; if(!qbevent)break;evnt(3535);}while(r); S_4105:; 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(3537);if(r)goto S_4105;} do{ goto LABEL_DECLARESUBFUNC2; if(!qbevent)break;evnt(3538);}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(3541);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3541);}while(r); } S_4111:; if ((*__LONG_DEFININGTYPE)||new_error){ if(qbevent){evnt(3545);if(r)goto S_4111;} S_4112:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ if(qbevent){evnt(3547);if(r)goto S_4112;} S_4113:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ if(qbevent){evnt(3548);if(r)goto S_4113;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3548);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3548);}while(r); } do{ *__LONG_DEFININGTYPE= 0 ; if(!qbevent)break;evnt(3549);}while(r); do{ qbs_set(__STRING_L,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(3550);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3551);}while(r); S_4120:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3551);if(r)goto S_4120;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3551);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3551);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3552);}while(r); } S_4127:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N< 3 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("AS",2)))))||new_error){ if(qbevent){evnt(3555);if(r)goto S_4127;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type-name",34)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3555);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3555);}while(r); } do{ *__LONG_DEFININGTYPE= 2 ; if(!qbevent)break;evnt(3556);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass401= 1 )),__STRING1_SP),qbs_new_txt_len("AS",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3557);}while(r); do{ qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass402= 3 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3558);}while(r); do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3559);}while(r); S_4135:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(3560);if(r)goto S_4135;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3560);}while(r); } S_4138:; if ((-(*__LONG_TYP== 0 ))||new_error){ if(qbevent){evnt(3561);if(r)goto S_4138;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3561);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3561);}while(r); } S_4142:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(3562);if(r)goto S_4142;} S_4143:; 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(3563);if(r)goto S_4143;} 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(3564);}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(3566);}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(3569);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3570);}while(r); S_4151:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3570);if(r)goto S_4151;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3570);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3570);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3571);}while(r); } S_4158:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ if(qbevent){evnt(3575);if(r)goto S_4158;} S_4159:; if ((-(*__LONG_N!= 2 ))||new_error){ if(qbevent){evnt(3576);if(r)goto S_4159;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3576);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3576);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("TYPE",4),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass404= 2 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3577);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(3578);}while(r); S_4165:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(3578);if(r)goto S_4165;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3578);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3578);}while(r); } do{ *__LONG_DEFININGTYPE= 1 ; if(!qbevent)break;evnt(3579);}while(r); do{ *__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER; if(!qbevent)break;evnt(3580);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3581);}while(r); } S_4174:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(3585);if(r)goto S_4174;} S_4175:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ if(qbevent){evnt(3586);if(r)goto S_4175;} S_4176:; 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(3588);if(r)goto S_4176;} do{ *__LONG_DECLARINGLIBRARY= 1 ; if(!qbevent)break;evnt(3590);}while(r); do{ *__LONG_DYNAMICLIBRARY= 0 ; if(!qbevent)break;evnt(3591);}while(r); do{ *__LONG_CUSTOMTYPELIBRARY= 0 ; if(!qbevent)break;evnt(3592);}while(r); do{ *__LONG_INDIRECTLIBRARY= 0 ; if(!qbevent)break;evnt(3593);}while(r); do{ *__LONG_STATICLINKEDLIBRARY= 0 ; if(!qbevent)break;evnt(3594);}while(r); do{ *__LONG_X= 3 ; if(!qbevent)break;evnt(3596);}while(r); do{ qbs_set(__STRING_L,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(3597);}while(r); S_4184:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||new_error){ if(qbevent){evnt(3599);if(r)goto S_4184;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass406= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3600);}while(r); S_4186:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ if(qbevent){evnt(3600);if(r)goto S_4186;} 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(3600);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3600);}while(r); } do{ *__LONG_DYNAMICLIBRARY= 1 ; if(!qbevent)break;evnt(3601);}while(r); do{ *__LONG_X= 4 ; if(!qbevent)break;evnt(3602);}while(r); do{ qbs_set(__STRING_L,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(3603);}while(r); S_4193:; if ((-(*__LONG_N== 3 ))||new_error){ if(qbevent){evnt(3604);if(r)goto S_4193;} 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(3604);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3604);}while(r); } do{ *__LONG_INDIRECTLIBRARY= 1 ; if(!qbevent)break;evnt(3605);}while(r); } S_4199:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||new_error){ if(qbevent){evnt(3608);if(r)goto S_4199;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass407= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3609);}while(r); S_4201:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ if(qbevent){evnt(3609);if(r)goto S_4201;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3609);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3609);}while(r); } do{ *__LONG_CUSTOMTYPELIBRARY= 1 ; if(!qbevent)break;evnt(3610);}while(r); do{ *__LONG_X= 4 ; if(!qbevent)break;evnt(3611);}while(r); do{ qbs_set(__STRING_L,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(3612);}while(r); do{ *__LONG_INDIRECTLIBRARY= 1 ; if(!qbevent)break;evnt(3613);}while(r); } S_4210:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ if(qbevent){evnt(3616);if(r)goto S_4210;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass408= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3617);}while(r); S_4212:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ if(qbevent){evnt(3617);if(r)goto S_4212;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3617);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3617);}while(r); } do{ *__LONG_X= 4 ; if(!qbevent)break;evnt(3618);}while(r); do{ qbs_set(__STRING_L,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(3619);}while(r); do{ *__LONG_STATICLINKEDLIBRARY= 1 ; if(!qbevent)break;evnt(3620);}while(r); } do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(3623);}while(r); do{ *__LONG_SFHEADER= 0 ; if(!qbevent)break;evnt(3623);}while(r); S_4222:; if ((-(*__LONG_N>=*__LONG_X))||new_error){ if(qbevent){evnt(3625);if(r)goto S_4222;} do{ *__LONG_SFDECLARE= 1 ; if(!qbevent)break;evnt(3627);}while(r); LABEL_ADDLIBRARY:; if(qbevent){evnt(3629);r=0;} do{ qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3631);}while(r); do{ qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3632);}while(r); do{ qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3637);}while(r); S_4227:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||new_error){ if(qbevent){evnt(3638);if(r)goto S_4227;} 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(3638);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3638);}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(3639);}while(r); do{ *__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3640);}while(r); S_4233:; if ((-(*__LONG_Z== 0 ))||new_error){ if(qbevent){evnt(3641);if(r)goto S_4233;} 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(3641);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3641);}while(r); } do{ qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3642);}while(r); S_4238:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ if(qbevent){evnt(3644);if(r)goto S_4238;} 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(3644);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3644);}while(r); } S_4242:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ if(qbevent){evnt(3645);if(r)goto S_4242;} 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(3645);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3645);}while(r); } S_4246:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||new_error){ if(qbevent){evnt(3660);if(r)goto S_4246;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3661);}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(3662);}while(r); ww_continue_412:; } ww_exit_412:; do{ qbs_set(__STRING_AUTOFORMAT_X,__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3665);}while(r); do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3669);}while(r); LABEL_STRIPLIBVER:; if(qbevent){evnt(3670);r=0;} S_4252:; fornext_value415=__STRING_X->len; fornext_finalvalue415= 1 ; fornext_step415= -1 ; if (fornext_step415<0) fornext_step_negative415=1; else fornext_step_negative415=0; if (new_error) goto fornext_error415; goto fornext_entrylabel415; while(1){ fornext_value415=fornext_step415+(*__LONG_Z); fornext_entrylabel415: *__LONG_Z=fornext_value415; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative415){ if (fornext_value415fornext_finalvalue415) break; } fornext_error415:; if(qbevent){evnt(3671);if(r)goto S_4252;} do{ *__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3672);}while(r); S_4254:; if (((-(*__LONG_A== 92 ))|(-(*__LONG_A== 47 )))||new_error){ if(qbevent){evnt(3673);if(r)goto S_4254;} do{ goto fornext_exit_414; if(!qbevent)break;evnt(3673);}while(r); } S_4257:; if (((-(*__LONG_A== 46 ))|(-(*__LONG_A== 58 )))||new_error){ if(qbevent){evnt(3674);if(r)goto S_4257;} S_4258:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||new_error){ if(qbevent){evnt(3675);if(r)goto S_4258;} S_4259:; if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ if(qbevent){evnt(3676);if(r)goto S_4259;} 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(3676);}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(3676);}while(r); } do{ qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3677);}while(r); S_4265:; if ((-(*__LONG_A== 58 ))||new_error){ if(qbevent){evnt(3678);if(r)goto S_4265;} do{ goto fornext_exit_414; if(!qbevent)break;evnt(3678);}while(r); } do{ goto LABEL_STRIPLIBVER; if(!qbevent)break;evnt(3679);}while(r); }else{ do{ goto fornext_exit_414; if(!qbevent)break;evnt(3681);}while(r); } } fornext_continue_414:; } fornext_exit_414:; do{ qbs_set(__STRING_LIBVER,__STRING_V); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3685);}while(r); S_4275:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(3688);if(r)goto S_4275;} S_4276:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||new_error){ if(qbevent){evnt(3690);if(r)goto S_4276;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3691);}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(3692);}while(r); dl_continue_421:; } dl_exit_421:; } S_4281:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(3696);if(r)goto S_4281;} S_4282:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||new_error){ if(qbevent){evnt(3698);if(r)goto S_4282;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3699);}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(3700);}while(r); dl_continue_423:; } dl_exit_423:; } do{ qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3705);}while(r); S_4288:; fornext_value426=__STRING_X->len; fornext_finalvalue426= 1 ; fornext_step426= -1 ; if (fornext_step426<0) fornext_step_negative426=1; else fornext_step_negative426=0; if (new_error) goto fornext_error426; goto fornext_entrylabel426; while(1){ fornext_value426=fornext_step426+(*__LONG_Z); fornext_entrylabel426: *__LONG_Z=fornext_value426; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative426){ if (fornext_value426fornext_finalvalue426) break; } fornext_error426:; if(qbevent){evnt(3706);if(r)goto S_4288;} do{ *__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3707);}while(r); S_4290:; if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||new_error){ if(qbevent){evnt(3708);if(r)goto S_4290;} do{ qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3709);}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(3710);}while(r); do{ goto fornext_exit_425; if(!qbevent)break;evnt(3711);}while(r); } fornext_continue_425:; } fornext_exit_425:; S_4296:; 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(3717);if(r)goto S_4296;} do{ qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3718);}while(r); S_4298:; if ((*__LONG_NOIDEMODE)||new_error){ if(qbevent){evnt(3719);if(r)goto S_4298;} do{ qbs_set(__STRING_LIBPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3720);}while(r); S_4300:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_LIBPATH, 1 ),__STRING1_PATHSEP))))||new_error){ if(qbevent){evnt(3721);if(r)goto S_4300;} do{ qbs_set(__STRING_LIBPATH,qbs_add(__STRING_LIBPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3721);}while(r); } }else{ S_4304:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ if(qbevent){evnt(3723);if(r)goto S_4304;} do{ qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3723);}while(r); } } } do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3728);}while(r); S_4310:; fornext_value432= 1 ; fornext_finalvalue432=__STRING_LIBPATH->len; fornext_step432= 1 ; if (fornext_step432<0) fornext_step_negative432=1; else fornext_step_negative432=0; if (new_error) goto fornext_error432; goto fornext_entrylabel432; while(1){ fornext_value432=fornext_step432+(*__LONG_Z); fornext_entrylabel432: *__LONG_Z=fornext_value432; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative432){ if (fornext_value432fornext_finalvalue432) break; } fornext_error432:; if(qbevent){evnt(3729);if(r)goto S_4310;} do{ *__LONG_A=qbs_asc(__STRING_LIBPATH,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3730);}while(r); do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_add(__STRING_LIBPATH_INLINE,func_chr(*__LONG_A))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3731);}while(r); S_4313:; if ((-(*__LONG_A== 92 ))||new_error){ if(qbevent){evnt(3732);if(r)goto S_4313;} do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("\\",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3732);}while(r); } fornext_continue_431:; } fornext_exit_431:; S_4317:; if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ if(qbevent){evnt(3735);if(r)goto S_4317;} S_4318:; if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3736);if(r)goto S_4318;} S_4319:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(3739);if(r)goto S_4319;} S_4320:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3741);if(r)goto S_4320;} S_4321:; 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(3742);if(r)goto S_4321;} 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(3743);}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(3744);}while(r); } } S_4326:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3748);if(r)goto S_4326;} S_4327:; 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(3749);if(r)goto S_4327;} 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(3750);}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(3751);}while(r); } } S_4332:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3755);if(r)goto S_4332;} S_4333:; 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(3756);if(r)goto S_4333;} 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(3757);}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(3758);}while(r); } } S_4338:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3762);if(r)goto S_4338;} S_4339:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||new_error){ if(qbevent){evnt(3763);if(r)goto S_4339;} 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(3764);}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(3765);}while(r); } } S_4344:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3769);if(r)goto S_4344;} S_4345:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||new_error){ if(qbevent){evnt(3770);if(r)goto S_4345;} 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(3771);}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(3772);}while(r); } } S_4350:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3776);if(r)goto S_4350;} S_4351:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||new_error){ if(qbevent){evnt(3777);if(r)goto S_4351;} 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(3778);}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(3779);}while(r); } } } S_4357:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(3784);if(r)goto S_4357;} S_4358:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3785);if(r)goto S_4358;} S_4359:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(3787);if(r)goto S_4359;} S_4360:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3789);if(r)goto S_4360;} S_4361:; 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(3790);if(r)goto S_4361;} 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(3791);}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(3792);}while(r); S_4364:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3793);if(r)goto S_4364;} 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(3793);}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(3793);}while(r); } } } S_4371:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3796);if(r)goto S_4371;} S_4372:; 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(3797);if(r)goto S_4372;} 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(3798);}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(3799);}while(r); S_4375:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3800);if(r)goto S_4375;} 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(3800);}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(3800);}while(r); } } } } S_4383:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3806);if(r)goto S_4383;} S_4384:; 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(3807);if(r)goto S_4384;} 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(3808);}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(3809);}while(r); S_4387:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3810);if(r)goto S_4387;} 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(3810);}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(3810);}while(r); } } } S_4394:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3813);if(r)goto S_4394;} S_4395:; 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(3814);if(r)goto S_4395;} 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(3815);}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(3816);}while(r); S_4398:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3817);if(r)goto S_4398;} 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(3817);}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(3817);}while(r); } } } } S_4406:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3822);if(r)goto S_4406;} S_4407:; 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(3823);if(r)goto S_4407;} 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(3824);}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(3825);}while(r); } } S_4412:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3829);if(r)goto S_4412;} S_4413:; 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(3830);if(r)goto S_4413;} 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(3831);}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(3832);}while(r); } } S_4418:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3835);if(r)goto S_4418;} S_4419:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3837);if(r)goto S_4419;} S_4420:; 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(3838);if(r)goto S_4420;} 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(3839);}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(3840);}while(r); S_4423:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3841);if(r)goto S_4423;} 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(3841);}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(3841);}while(r); } } } S_4430:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3844);if(r)goto S_4430;} S_4431:; 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(3845);if(r)goto S_4431;} 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(3846);}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(3847);}while(r); S_4434:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3848);if(r)goto S_4434;} 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(3848);}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(3848);}while(r); } } } } S_4442:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3853);if(r)goto S_4442;} S_4443:; 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(3854);if(r)goto S_4443;} 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(3855);}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(3856);}while(r); } } S_4448:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3859);if(r)goto S_4448;} S_4449:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(3861);if(r)goto S_4449;} S_4450:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3863);if(r)goto S_4450;} S_4451:; 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(3864);if(r)goto S_4451;} 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(3865);}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(3866);}while(r); S_4454:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3867);if(r)goto S_4454;} 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(3867);}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(3867);}while(r); } } } S_4461:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3870);if(r)goto S_4461;} S_4462:; 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(3871);if(r)goto S_4462;} 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(3872);}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(3873);}while(r); S_4465:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3874);if(r)goto S_4465;} 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(3874);}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(3874);}while(r); } } } } S_4473:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3880);if(r)goto S_4473;} S_4474:; 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(3881);if(r)goto S_4474;} 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(3882);}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(3883);}while(r); S_4477:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3884);if(r)goto S_4477;} 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(3884);}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(3884);}while(r); } } } S_4484:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3887);if(r)goto S_4484;} S_4485:; 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(3888);if(r)goto S_4485;} 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(3889);}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(3890);}while(r); S_4488:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ if(qbevent){evnt(3891);if(r)goto S_4488;} 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(3891);}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(3891);}while(r); } } } } S_4496:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3896);if(r)goto S_4496;} S_4497:; 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(3897);if(r)goto S_4497;} 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(3898);}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(3899);}while(r); } } S_4502:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3903);if(r)goto S_4502;} S_4503:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(3905);if(r)goto S_4503;} S_4504:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3907);if(r)goto S_4504;} S_4505:; 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(3908);if(r)goto S_4505;} 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(3909);}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(3910);}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(3911);}while(r); } } S_4511:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3914);if(r)goto S_4511;} S_4512:; 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(3915);if(r)goto S_4512;} 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(3916);}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(3917);}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(3918);}while(r); } } } S_4519:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3924);if(r)goto S_4519;} S_4520:; 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(3925);if(r)goto S_4520;} 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(3926);}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(3927);}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(3928);}while(r); } } S_4526:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3931);if(r)goto S_4526;} S_4527:; 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(3932);if(r)goto S_4527;} 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(3933);}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(3934);}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(3935);}while(r); } } } S_4534:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3940);if(r)goto S_4534;} S_4535:; 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(3941);if(r)goto S_4535;} 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(3942);}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(3943);}while(r); } } S_4540:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3947);if(r)goto S_4540;} S_4541:; 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(3948);if(r)goto S_4541;} 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(3949);}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(3950);}while(r); } } S_4546:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3953);if(r)goto S_4546;} S_4547:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3955);if(r)goto S_4547;} S_4548:; 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(3956);if(r)goto S_4548;} 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(3957);}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(3958);}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(3959);}while(r); } } S_4554:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3962);if(r)goto S_4554;} S_4555:; 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(3963);if(r)goto S_4555;} 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(3964);}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(3965);}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(3966);}while(r); } } } S_4562:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3971);if(r)goto S_4562;} S_4563:; 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(3972);if(r)goto S_4563;} 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(3973);}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(3974);}while(r); } } S_4568:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ if(qbevent){evnt(3977);if(r)goto S_4568;} S_4569:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(3979);if(r)goto S_4569;} S_4570:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3981);if(r)goto S_4570;} S_4571:; 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(3982);if(r)goto S_4571;} 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(3983);}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(3984);}while(r); } } S_4576:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3987);if(r)goto S_4576;} S_4577:; 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(3988);if(r)goto S_4577;} 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(3989);}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(3990);}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(3991);}while(r); } } } S_4584:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(3997);if(r)goto S_4584;} S_4585:; 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(3998);if(r)goto S_4585;} 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(3999);}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(4000);}while(r); } } S_4590:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4003);if(r)goto S_4590;} S_4591:; 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(4004);if(r)goto S_4591;} 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(4005);}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(4006);}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(4007);}while(r); } } } S_4598:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4012);if(r)goto S_4598;} S_4599:; 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(4013);if(r)goto S_4599;} 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(4014);}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(4015);}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(4016);}while(r); } } } S_4606:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ if(qbevent){evnt(4023);if(r)goto S_4606;} S_4607:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4024);if(r)goto S_4607;} S_4608:; 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(4025);if(r)goto S_4608;} 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(4026);}while(r); S_4610:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4027);if(r)goto S_4610;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4027);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4028);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4029);}while(r); } S_4616:; 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(4031);if(r)goto S_4616;} 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(4032);}while(r); S_4618:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4033);if(r)goto S_4618;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4033);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4034);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4035);}while(r); } S_4624:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ if(qbevent){evnt(4038);if(r)goto S_4624;} 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(4039);}while(r); S_4626:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4040);if(r)goto S_4626;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4040);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4041);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4042);}while(r); } S_4632:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ if(qbevent){evnt(4044);if(r)goto S_4632;} 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(4045);}while(r); S_4634:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4046);if(r)goto S_4634;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4046);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4047);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4048);}while(r); } } S_4641:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4052);if(r)goto S_4641;} S_4642:; 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(4053);if(r)goto S_4642;} 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(4054);}while(r); S_4644:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4055);if(r)goto S_4644;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4055);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4056);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4057);}while(r); } S_4650:; 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(4059);if(r)goto S_4650;} 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(4060);}while(r); S_4652:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4061);if(r)goto S_4652;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4061);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4062);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4063);}while(r); } S_4658:; 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(4065);if(r)goto S_4658;} 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(4066);}while(r); S_4660:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4067);if(r)goto S_4660;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4067);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4068);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4069);}while(r); } S_4666:; 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(4071);if(r)goto S_4666;} 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(4072);}while(r); S_4668:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4073);if(r)goto S_4668;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4073);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4074);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4075);}while(r); } S_4674:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ if(qbevent){evnt(4078);if(r)goto S_4674;} 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(4079);}while(r); S_4676:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4080);if(r)goto S_4676;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4080);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4081);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4082);}while(r); } S_4682:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ if(qbevent){evnt(4084);if(r)goto S_4682;} 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(4085);}while(r); S_4684:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4086);if(r)goto S_4684;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4086);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4087);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4088);}while(r); } S_4690:; 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(4090);if(r)goto S_4690;} 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(4091);}while(r); S_4692:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4092);if(r)goto S_4692;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4092);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4093);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4094);}while(r); } S_4698:; 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(4096);if(r)goto S_4698;} 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(4097);}while(r); S_4700:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ if(qbevent){evnt(4098);if(r)goto S_4700;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4098);}while(r); } do{ *__LONG_SFHEADER= 1 ; if(!qbevent)break;evnt(4099);}while(r); do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4100);}while(r); } } LABEL_GOTHEADER:; if(qbevent){evnt(4104);r=0;} } }else{ S_4709:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4110);if(r)goto S_4709;} S_4710:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4112);if(r)goto S_4710;} S_4711:; 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(4113);if(r)goto S_4711;} 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(4114);}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(4115);}while(r); } } S_4716:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4119);if(r)goto S_4716;} S_4717:; 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(4120);if(r)goto S_4717;} 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(4121);}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(4122);}while(r); } } S_4722:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4127);if(r)goto S_4722;} S_4723:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))))||new_error){ if(qbevent){evnt(4128);if(r)goto S_4723;} 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(4129);}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(4130);}while(r); } } S_4728:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4134);if(r)goto S_4728;} S_4729:; 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(4135);if(r)goto S_4729;} 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(4136);}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(4137);}while(r); } } } S_4735:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4142);if(r)goto S_4735;} S_4736:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(4146);if(r)goto S_4736;} S_4737:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4148);if(r)goto S_4737;} S_4738:; 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(4149);if(r)goto S_4738;} 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(4150);}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(4151);}while(r); S_4741:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4152);if(r)goto S_4741;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4152);}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(4152);}while(r); } } } S_4747:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4155);if(r)goto S_4747;} S_4748:; 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(4156);if(r)goto S_4748;} 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(4157);}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(4158);}while(r); S_4751:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4159);if(r)goto S_4751;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4159);}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(4159);}while(r); } } } } S_4758:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4165);if(r)goto S_4758;} S_4759:; 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(4166);if(r)goto S_4759;} 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(4167);}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(4168);}while(r); S_4762:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4169);if(r)goto S_4762;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4169);}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(4169);}while(r); } } } S_4768:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4172);if(r)goto S_4768;} S_4769:; 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(4173);if(r)goto S_4769;} 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(4174);}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(4175);}while(r); S_4772:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4176);if(r)goto S_4772;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4176);}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(4176);}while(r); } } } S_4778:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4180);if(r)goto S_4778;} S_4779:; 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(4181);if(r)goto S_4779;} 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(4182);}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(4183);}while(r); } } S_4784:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4186);if(r)goto S_4784;} S_4785:; 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(4187);if(r)goto S_4785;} 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(4188);}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(4189);}while(r); } } S_4790:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(4193);if(r)goto S_4790;} S_4791:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4195);if(r)goto S_4791;} S_4792:; 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(4196);if(r)goto S_4792;} 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(4197);}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(4198);}while(r); } } S_4797:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4201);if(r)goto S_4797;} S_4798:; 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(4202);if(r)goto S_4798;} 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(4203);}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(4204);}while(r); } } } S_4804:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4210);if(r)goto S_4804;} S_4805:; 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(4211);if(r)goto S_4805;} 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(4212);}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(4213);}while(r); } } S_4810:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4216);if(r)goto S_4810;} S_4811:; 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(4217);if(r)goto S_4811;} 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(4218);}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(4219);}while(r); } } S_4816:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(4223);if(r)goto S_4816;} S_4817:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4225);if(r)goto S_4817;} S_4818:; 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(4226);if(r)goto S_4818;} 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(4227);}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(4228);}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(4229);}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(4229);}while(r); } } S_4825:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4232);if(r)goto S_4825;} S_4826:; 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(4233);if(r)goto S_4826;} 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(4234);}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(4235);}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(4236);}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(4236);}while(r); } } } S_4834:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4242);if(r)goto S_4834;} S_4835:; 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(4243);if(r)goto S_4835;} 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(4244);}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(4245);}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(4246);}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(4246);}while(r); } } S_4842:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4249);if(r)goto S_4842;} S_4843:; 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(4250);if(r)goto S_4843;} 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(4251);}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(4252);}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(4253);}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(4253);}while(r); } } S_4850:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4257);if(r)goto S_4850;} S_4851:; 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(4258);if(r)goto S_4851;} 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(4259);}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(4260);}while(r); } } S_4856:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4263);if(r)goto S_4856;} S_4857:; 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(4264);if(r)goto S_4857;} 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(4265);}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(4266);}while(r); } } S_4862:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(4270);if(r)goto S_4862;} S_4863:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4272);if(r)goto S_4863;} S_4864:; 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(4273);if(r)goto S_4864;} 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(4274);}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(4275);}while(r); } } S_4869:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4278);if(r)goto S_4869;} S_4870:; 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(4279);if(r)goto S_4870;} 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(4280);}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(4281);}while(r); } } } S_4876:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4287);if(r)goto S_4876;} S_4877:; 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(4288);if(r)goto S_4877;} 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(4289);}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(4290);}while(r); } } S_4882:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ if(qbevent){evnt(4293);if(r)goto S_4882;} S_4883:; 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(4294);if(r)goto S_4883;} 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(4295);}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(4296);}while(r); } } } } S_4890:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||new_error){ if(qbevent){evnt(4304);if(r)goto S_4890;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4304);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4304);}while(r); } S_4894:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||new_error){ if(qbevent){evnt(4305);if(r)goto S_4894;} do{ qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4305);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4305);}while(r); } S_4898:; if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ if(qbevent){evnt(4309);if(r)goto S_4898;} S_4899:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||new_error){ if(qbevent){evnt(4312);if(r)goto S_4899;} S_4900:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4313);if(r)goto S_4900;} S_4901:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_LIBNAME, 2 , 1 ,1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ if(qbevent){evnt(4314);if(r)goto S_4901;} 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(4315);}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(4317);}while(r); } } S_4907:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4320);if(r)goto S_4907;} S_4908:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4321);if(r)goto S_4908;} 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(4322);}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(4324);}while(r); } } } }else{ S_4916:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ if(qbevent){evnt(4333);if(r)goto S_4916;} S_4917:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(4335);if(r)goto S_4917;} do{ *__LONG_F=func_freefile(); if(!qbevent)break;evnt(4336);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL,*__LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4337);}while(r); }else{ do{ *__LONG_F= 13 ; if(!qbevent)break;evnt(4339);}while(r); } do{ qbs_set(__STRING_X2,__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4345);}while(r); S_4924:; fornext_value510= 1 ; fornext_finalvalue510=__STRING_X2->len; fornext_step510= 1 ; if (fornext_step510<0) fornext_step_negative510=1; else fornext_step_negative510=0; if (new_error) goto fornext_error510; goto fornext_entrylabel510; while(1){ fornext_value510=fornext_step510+(*__LONG_X2); fornext_entrylabel510: *__LONG_X2=fornext_value510; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative510){ if (fornext_value510fornext_finalvalue510) break; } fornext_error510:; if(qbevent){evnt(4346);if(r)goto S_4924;} S_4925:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||new_error){ if(qbevent){evnt(4347);if(r)goto S_4925;} 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(4347);}while(r); } S_4928:; 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(4348);if(r)goto S_4928;} 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(4348);}while(r); } S_4931:; 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(4349);if(r)goto S_4931;} 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(4349);}while(r); } S_4934:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||new_error){ if(qbevent){evnt(4350);if(r)goto S_4934;} 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(4350);}while(r); } fornext_continue_509:; } fornext_exit_509:; do{ qbs_set(__STRING_DLLNAME,__STRING_X2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4352);}while(r); S_4939:; if ((*__LONG_SFDECLARE)||new_error){ if(qbevent){evnt(4354);if(r)goto S_4939;} S_4940:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4356);if(r)goto S_4940;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip512; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("HINSTANCE DLL_",14),__STRING_X2),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip512; skip512: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4357);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip513; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip513; skip513: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4358);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip514; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip514; skip514: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4359);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip515; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); if (new_error) goto skip515; skip515: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4360);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip516; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip516; skip516: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4361);}while(r); } S_4947:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4364);if(r)goto S_4947;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip517; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip517; skip517: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4365);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip518; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip518; skip518: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4366);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip519; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip519; skip519: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4367);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip520; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); if (new_error) goto skip520; skip520: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4368);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip521; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip521; skip521: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4369);}while(r); } } S_4955:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(4375);if(r)goto S_4955;} do{ sub_close(*__LONG_F,1); if(!qbevent)break;evnt(4375);}while(r); } } } S_4960:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||new_error){ if(qbevent){evnt(4381);if(r)goto S_4960;} S_4961:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4382);if(r)goto S_4961;} S_4962:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_HEADERNAME, 2 , 1 ,1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ if(qbevent){evnt(4383);if(r)goto S_4962;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip523; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip523; skip523: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4384);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip524; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("..\\\\..\\\\",8)),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip524; skip524: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4386);}while(r); } } S_4968:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4389);if(r)goto S_4968;} S_4969:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(4391);if(r)goto S_4969;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip525; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip525; skip525: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4392);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip526; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip526; skip526: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4394);}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(4402);}while(r); S_4978:; if ((-(*__LONG_N>*__LONG_X))||new_error){ if(qbevent){evnt(4404);if(r)goto S_4978;} S_4979:; if ((*__LONG_DYNAMICLIBRARY)||new_error){ if(qbevent){evnt(4405);if(r)goto S_4979;} 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(4405);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4405);}while(r); } do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(4406);}while(r); do{ qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4406);}while(r); S_4985:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(4406);if(r)goto S_4985;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4406);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4406);}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(4407);}while(r); do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(4408);}while(r); S_4991:; if ((-(*__LONG_X>*__LONG_N))||new_error){ if(qbevent){evnt(4408);if(r)goto S_4991;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4408);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4408);}while(r); } do{ goto LABEL_ADDLIBRARY; if(!qbevent)break;evnt(4409);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(4414);}while(r); S_4999:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(4414);if(r)goto S_4999;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4414);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4414);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(4415);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(4418);}while(r); } } S_5009:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(4423);if(r)goto S_5009;} do{ *__LONG_DYNAMICLIBRARY= 0 ; if(!qbevent)break;evnt(4424);}while(r); LABEL_DECLARESUBFUNC2:; if(qbevent){evnt(4425);r=0;} do{ *__LONG_SF= 0 ; if(!qbevent)break;evnt(4426);}while(r); S_5012:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ if(qbevent){evnt(4427);if(r)goto S_5012;} do{ *__LONG_SF= 1 ; if(!qbevent)break;evnt(4427);}while(r); } S_5015:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ if(qbevent){evnt(4428);if(r)goto S_5015;} do{ *__LONG_SF= 2 ; if(!qbevent)break;evnt(4428);}while(r); } S_5018:; if ((*__LONG_SF)||new_error){ if(qbevent){evnt(4429);if(r)goto S_5018;} S_5019:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(4431);if(r)goto S_5019;} S_5020:; if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ if(qbevent){evnt(4432);if(r)goto S_5020;} 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(4432);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4432);}while(r); } } S_5025:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(4435);if(r)goto S_5025;} 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(4435);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4435);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass529= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4436);}while(r); do{ qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4437);}while(r); S_5031:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4438);if(r)goto S_5031;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4438);}while(r); } S_5034:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(4439);if(r)goto S_5034;} 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(4439);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4439);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4440);}while(r); S_5039:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4441);if(r)goto S_5039;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4441);}while(r); } S_5042:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(4442);if(r)goto S_5042;} S_5043:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))==*__LONG_SF))||new_error){ if(qbevent){evnt(4443);if(r)goto S_5043;} do{ goto LABEL_CREATESF; if(!qbevent)break;evnt(4443);}while(r); } S_5046:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(4444);if(r)goto S_5046;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(4444);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4444);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(4444);}while(r); } S_5052:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4445);if(r)goto S_5052;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4445);}while(r); } dl_continue_530:; } dl_exit_530:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4447);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4447);}while(r); LABEL_CREATESF:; if(qbevent){evnt(4448);r=0;} S_5058:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||new_error){ if(qbevent){evnt(4449);if(r)goto S_5058;} do{ qbs_set(__STRING_E,qbs_new_txt_len("_GL",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4449);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_E),__STRING_SYMBOL)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4450);}while(r); do{ memcpy(((char*)__UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2861); if(!qbevent)break;evnt(4451);}while(r); do{ *__LONG_TARGETID=*__LONG_CURRENTID; if(!qbevent)break;evnt(4452);}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(4455);}while(r); S_5065:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(4456);if(r)goto S_5065;} do{ qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass531= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4457);}while(r); S_5067:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||new_error){ if(qbevent){evnt(4458);if(r)goto S_5067;} S_5068:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(4459);if(r)goto S_5068;} 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(4459);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4459);}while(r); } S_5072:; if ((-(*__LONG_N== 3 ))||new_error){ if(qbevent){evnt(4460);if(r)goto S_5072;} 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(4460);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4460);}while(r); } do{ qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass532= 4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4461);}while(r); S_5077:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(4464);if(r)goto S_5077;} do{ qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4465);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4466);}while(r); S_5080:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(4466);if(r)goto S_5080;} 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(4466);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4466);}while(r); } do{ qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4467);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),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(4468);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("ALIAS",5)),__STRING1_SP),__STRING_EE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4470);}while(r); } S_5089:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||new_error){ if(qbevent){evnt(4474);if(r)goto S_5089;} do{ *__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4475);}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(4475);}while(r); dl_continue_534:; } dl_exit_534:; do{ qbs_set(__STRING_ALIASNAME,__STRING_EE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4477);}while(r); S_5094:; if ((-(*__LONG_N<= 4 ))||new_error){ if(qbevent){evnt(4479);if(r)goto S_5094;} do{ qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass537= 1 ),&(pass538= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4479);}while(r); } S_5097:; if ((-(*__LONG_N>= 5 ))||new_error){ if(qbevent){evnt(4480);if(r)goto S_5097;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass539= 1 ),&(pass540= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass541= 5 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4480);}while(r); } S_5100:; if ((-(*__LONG_N<= 4 ))||new_error){ if(qbevent){evnt(4481);if(r)goto S_5100;} do{ qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass542= 1 ),&(pass543= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4481);}while(r); } S_5103:; if ((-(*__LONG_N>= 5 ))||new_error){ if(qbevent){evnt(4482);if(r)goto S_5103;} do{ qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass544= 1 ),&(pass545= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass546= 5 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4482);}while(r); } do{ *__LONG_N=*__LONG_N- 2 ; if(!qbevent)break;evnt(4483);}while(r); } } S_5109:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4487);if(r)goto S_5109;} do{ goto LABEL_DECLIBJMP1; if(!qbevent)break;evnt(4487);}while(r); } S_5112:; if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ if(qbevent){evnt(4490);if(r)goto S_5112;} do{ SUB_CLOSEMAIN(); if(!qbevent)break;evnt(4490);}while(r); } S_5115:; 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(4493);if(r)goto S_5115;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4494);}while(r); S_5117:; sc_547=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(qbevent){evnt(4495);if(r)goto S_5117;} S_5118:; if (((sc_547==( 1 )))||new_error){ if(qbevent){evnt(4496);if(r)goto S_5118;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4496);}while(r); sc_ec_20_end:; goto sc_547_end; } S_5120:; if (((sc_547==( 2 )))||new_error){ if(qbevent){evnt(4497);if(r)goto S_5120;} do{ qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4497);}while(r); sc_ec_21_end:; goto sc_547_end; } S_5122:; if (((sc_547==( 3 ))||(sc_547==( 4 )))||new_error){ if(qbevent){evnt(4498);if(r)goto S_5122;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4498);}while(r); sc_ec_22_end:; goto sc_547_end; } S_5124:; if (((sc_547==( 5 )))||new_error){ if(qbevent){evnt(4499);if(r)goto S_5124;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4499);}while(r); sc_ec_23_end:; goto sc_547_end; } S_5126:; if ((((sc_547>=( 10 ))&&(sc_547<=( 19 ))))||new_error){ if(qbevent){evnt(4500);if(r)goto S_5126;} 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(4500);}while(r); sc_ec_24_end:; goto sc_547_end; } sc_547_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(4502);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4503);}while(r); } S_5132:; if ((*__LONG_IDEINDENTSUBS)||new_error){ if(qbevent){evnt(4506);if(r)goto S_5132;} do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(4507);}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(4508);}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(4509);}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(4512);}while(r); do{ *__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; if(!qbevent)break;evnt(4513);}while(r); do{ *__LONG_SUBFUNCID=*__LONG_TARGETID; if(!qbevent)break;evnt(4514);}while(r); do{ qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4516);}while(r); do{ sub_close( 13 ,1); if(!qbevent)break;evnt(4518);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4518);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(4519);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4519);}while(r); do{ sub_close( 15 ,1); if(!qbevent)break;evnt(4520);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret",3)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 15 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4520);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip548; sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point){",23), 0 , 0 , 1 ); if (new_error) goto skip548; skip548: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4521);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip549; sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); if (new_error) goto skip549; skip549: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4522);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip550; sub_file_print(tmp_fileno,qbs_new_txt_len("switch(return_point[next_return_point]){",40), 0 , 0 , 1 ); if (new_error) goto skip550; skip550: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4523);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip551; sub_file_print(tmp_fileno,qbs_new_txt_len("case 0:",7), 0 , 0 , 1 ); if (new_error) goto skip551; skip551: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4524);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip552; sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); if (new_error) goto skip552; skip552: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4525);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip553; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip553; skip553: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4526);}while(r); do{ *__INTEGER_DEFDATAHANDLE= 13 ; if(!qbevent)break;evnt(4527);}while(r); LABEL_DECLIBJMP1:; if(qbevent){evnt(4529);r=0;} S_5154:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4531);if(r)goto S_5154;} S_5155:; if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ if(qbevent){evnt(4532);if(r)goto S_5155;} do{ sub_close( 17 ,1); if(!qbevent)break;evnt(4533);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf_ignore.txt",16)), 4 ,NULL,NULL, 17 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4534);}while(r); } S_5159:; if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ if(qbevent){evnt(4536);if(r)goto S_5159;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip554; sub_file_print(tmp_fileno,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(&(pass555=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip554; skip554: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4537);}while(r); do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(4538);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass556=*__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(4538);}while(r); do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(4538);}while(r); } } S_5166:; if ((-(*__LONG_SF== 1 ))||new_error){ if(qbevent){evnt(4545);if(r)goto S_5166;} do{ *__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+(2381)); if(!qbevent)break;evnt(4546);}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(4547);}while(r); S_5169:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4548);if(r)goto S_5169;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4548);}while(r); } S_5172:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ if(qbevent){evnt(4549);if(r)goto S_5172;} do{ qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4549);}while(r); } S_5175:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4551);if(r)goto S_5175;} S_5176:; if ((*__LONG_RETTYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(4552);if(r)goto S_5176;} do{ qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4553);}while(r); } } S_5180:; if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ if(qbevent){evnt(4557);if(r)goto S_5180;} S_5181:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4558);if(r)goto S_5181;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip557; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip557; skip557: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4559);}while(r); } S_5184:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4561);if(r)goto S_5184;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip558; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip558; skip558: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4562);}while(r); } S_5187:; }else{ if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ if(qbevent){evnt(4564);if(r)goto S_5187;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip559; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip559; skip559: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4565);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip560; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip560; skip560: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4567);}while(r); } } S_5192:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4569);if(r)goto S_5192;} do{ goto LABEL_DECLIBJMP2; if(!qbevent)break;evnt(4569);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip561; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip561; skip561: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4570);}while(r); S_5196:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4574);if(r)goto S_5196;} do{ *__LONG_A=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4575);}while(r); S_5198:; if ((-(*__LONG_A== 95 ))||new_error){ if(qbevent){evnt(4575);if(r)goto S_5198;} do{ *__LONG_A= 91 ; if(!qbevent)break;evnt(4575);}while(r); } do{ *__LONG_A=*__LONG_A- 64 ; if(!qbevent)break;evnt(4576);}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(4577);}while(r); } do{ *__LONG_REGINTERNALVARIABLE= 1 ; if(!qbevent)break;evnt(4579);}while(r); do{ *__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass562= 0 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4580);}while(r); S_5206:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4581);if(r)goto S_5206;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4581);}while(r); } do{ *__LONG_REGINTERNALVARIABLE= 0 ; if(!qbevent)break;evnt(4582);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(4584);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4584);}while(r); S_5212:; if (((*__LONG_RETTYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(4586);if(r)goto S_5212;} do{ qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass563= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4587);}while(r); S_5214:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4588);if(r)goto S_5214;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4588);}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(4589);}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(4590);}while(r); }else{ do{ qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass564= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4592);}while(r); S_5221:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4593);if(r)goto S_5221;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4593);}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(4594);}while(r); } }else{ S_5227:; if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ if(qbevent){evnt(4598);if(r)goto S_5227;} S_5228:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(4599);if(r)goto S_5228;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip565; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip565; skip565: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4600);}while(r); } S_5231:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(4602);if(r)goto S_5231;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip566; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip566; skip566: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4603);}while(r); } S_5234:; }else{ if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ if(qbevent){evnt(4605);if(r)goto S_5234;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip567; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip567; skip567: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4606);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip568; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip568; skip568: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4608);}while(r); } } S_5239:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4610);if(r)goto S_5239;} do{ goto LABEL_DECLIBJMP2; if(!qbevent)break;evnt(4610);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip569; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip569; skip569: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4611);}while(r); } LABEL_DECLIBJMP2:; if(qbevent){evnt(4613);r=0;} do{ *__LONG_ADDSTATIC2LAYOUT= 0 ; if(!qbevent)break;evnt(4615);}while(r); do{ *__LONG_STATICSF= 0 ; if(!qbevent)break;evnt(4616);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4617);}while(r); S_5247:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ if(qbevent){evnt(4618);if(r)goto S_5247;} S_5248:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4619);if(r)goto S_5248;} 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(4619);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4619);}while(r); } do{ *__LONG_ADDSTATIC2LAYOUT= 1 ; if(!qbevent)break;evnt(4620);}while(r); do{ *__LONG_STATICSF= 2 ; if(!qbevent)break;evnt(4621);}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(4622);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(4622);}while(r); } do{ *__LONG_PARAMS= 0 ; if(!qbevent)break;evnt(4626);}while(r); do{ *__LONG_ALLOWLOCALNAME= 1 ; if(!qbevent)break;evnt(4627);}while(r); S_5259:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(4628);if(r)goto S_5259;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass571= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4629);}while(r); S_5261:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(4630);if(r)goto S_5261;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4630);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4630);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4631);}while(r); S_5266:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(4632);if(r)goto S_5266;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4632);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4632);}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(4633);}while(r); S_5271:; if ((-(*__LONG_N== 4 ))||new_error){ if(qbevent){evnt(4634);if(r)goto S_5271;} do{ goto LABEL_NOSFPARAMS2; if(!qbevent)break;evnt(4634);}while(r); } S_5274:; if ((-(*__LONG_N< 4 ))||new_error){ if(qbevent){evnt(4635);if(r)goto S_5274;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4635);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4635);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(4636);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4637);}while(r); S_5280:; fornext_value573= 4 ; fornext_finalvalue573=*__LONG_N- 1 ; fornext_step573= 1 ; if (fornext_step573<0) fornext_step_negative573=1; else fornext_step_negative573=0; if (new_error) goto fornext_error573; goto fornext_entrylabel573; while(1){ fornext_value573=fornext_step573+(*__LONG_I); fornext_entrylabel573: *__LONG_I=fornext_value573; if (fornext_step_negative573){ if (fornext_value573fornext_finalvalue573) break; } fornext_error573:; if(qbevent){evnt(4638);if(r)goto S_5280;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4639);}while(r); S_5282:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(4640);if(r)goto S_5282;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(4640);}while(r); } S_5285:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(4641);if(r)goto S_5285;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(4641);}while(r); } S_5288:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(4642);if(r)goto S_5288;} S_5289:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ if(qbevent){evnt(4643);if(r)goto S_5289;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4643);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4643);}while(r); } LABEL_GETLASTPARAM2:; if(qbevent){evnt(4644);r=0;} S_5293:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4645);if(r)goto S_5293;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4645);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4645);}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(4646);}while(r); do{ *__LONG_PARAMS=*__LONG_PARAMS+ 1 ; if(!qbevent)break;evnt(4648);}while(r); do{ *__LONG_GLINKID=*__LONG_TARGETID; if(!qbevent)break;evnt(4649);}while(r); do{ *__INTEGER_GLINKARG=*__LONG_PARAMS; if(!qbevent)break;evnt(4650);}while(r); S_5301:; if ((-(*__LONG_PARAMS> 1 ))||new_error){ if(qbevent){evnt(4654);if(r)goto S_5301;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip575; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip575; skip575: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4655);}while(r); S_5303:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(4657);if(r)goto S_5303;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip576; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip576; skip576: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4658);}while(r); } } do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4662);}while(r); do{ *__LONG_ARRAY= 0 ; if(!qbevent)break;evnt(4663);}while(r); do{ qbs_set(__STRING_T2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4664);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass577= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4665);}while(r); do{ *__LONG_BYVALUE= 0 ; if(!qbevent)break;evnt(4667);}while(r); S_5312:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||new_error){ if(qbevent){evnt(4668);if(r)goto S_5312;} S_5313:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ if(qbevent){evnt(4669);if(r)goto S_5313;} 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(4669);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4669);}while(r); } do{ *__LONG_BYVALUE= 1 ; if(!qbevent)break;evnt(4670);}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(4670);}while(r); S_5319:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(4671);if(r)goto S_5319;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("BYVAL",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4671);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("BYVAL",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4671);}while(r); } do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4672);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass579= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4672);}while(r); } S_5327:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(4675);if(r)goto S_5327;} 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(4675);}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(4675);}while(r); } do{ qbs_set(__STRING_N2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4677);}while(r); do{ *__LONG_DIMMETHOD= 0 ; if(!qbevent)break;evnt(4678);}while(r); do{ qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4681);}while(r); S_5335:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ if(qbevent){evnt(4682);if(r)goto S_5335;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4682);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4682);}while(r); } S_5339:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4684);if(r)goto S_5339;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4684);}while(r); } S_5342:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4685);if(r)goto S_5342;} do{ *__LONG_DIMMETHOD= 1 ; if(!qbevent)break;evnt(4685);}while(r); } do{ *__LONG_M= 0 ; if(!qbevent)break;evnt(4686);}while(r); S_5346:; fornext_value581= 2 ; fornext_finalvalue581=*__LONG_N2; fornext_step581= 1 ; if (fornext_step581<0) fornext_step_negative581=1; else fornext_step_negative581=0; if (new_error) goto fornext_error581; goto fornext_entrylabel581; while(1){ fornext_value581=fornext_step581+(*__LONG_I2); fornext_entrylabel581: *__LONG_I2=fornext_value581; if (fornext_step_negative581){ if (fornext_value581fornext_finalvalue581) break; } fornext_error581:; if(qbevent){evnt(4687);if(r)goto S_5346;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4688);}while(r); S_5348:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(4689);if(r)goto S_5348;} S_5349:; if ((-(*__LONG_M!= 0 ))||new_error){ if(qbevent){evnt(4690);if(r)goto S_5349;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4690);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4690);}while(r); } do{ *__LONG_M= 1 ; if(!qbevent)break;evnt(4691);}while(r); do{ *__LONG_ARRAY= 1 ; if(!qbevent)break;evnt(4692);}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(4693);}while(r); do{ goto LABEL_GOTAA2; if(!qbevent)break;evnt(4694);}while(r); } S_5358:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(4696);if(r)goto S_5358;} S_5359:; if ((-(*__LONG_M!= 1 ))||new_error){ if(qbevent){evnt(4697);if(r)goto S_5359;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4697);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4697);}while(r); } do{ *__LONG_M= 2 ; if(!qbevent)break;evnt(4698);}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(4699);}while(r); do{ goto LABEL_GOTAA2; if(!qbevent)break;evnt(4700);}while(r); } S_5367:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||new_error){ if(qbevent){evnt(4702);if(r)goto S_5367;} S_5368:; if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ if(qbevent){evnt(4703);if(r)goto S_5368;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4703);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4703);}while(r); } do{ *__LONG_M= 3 ; if(!qbevent)break;evnt(4704);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4705);}while(r); do{ goto LABEL_GOTAA2; if(!qbevent)break;evnt(4706);}while(r); } S_5376:; if ((-(*__LONG_M== 1 ))||new_error){ if(qbevent){evnt(4708);if(r)goto S_5376;} 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(4708);}while(r); do{ goto LABEL_GOTAA2; if(!qbevent)break;evnt(4708);}while(r); } S_5380:; if ((-(*__LONG_M!= 3 ))||new_error){ if(qbevent){evnt(4709);if(r)goto S_5380;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4709);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4709);}while(r); } S_5384:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4710);if(r)goto S_5384;} do{ qbs_set(__STRING_T2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4710);}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(4710);}while(r); } LABEL_GOTAA2:; if(qbevent){evnt(4711);r=0;} fornext_continue_580:; } fornext_exit_580:; S_5390:; 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(4713);if(r)goto S_5390;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4713);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4713);}while(r); } S_5394:; if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||new_error){ if(qbevent){evnt(4716);if(r)goto S_5394;} do{ qbs_set(__STRING_T2,qbs_ucase(__STRING_T2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4717);}while(r); do{ qbs_set(__STRING_T3,__STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4718);}while(r); do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4719);}while(r); S_5398:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4720);if(r)goto S_5398;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4720);}while(r); } S_5401:; if ((-(*__LONG_TYP== 0 ))||new_error){ if(qbevent){evnt(4721);if(r)goto S_5401;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4721);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4721);}while(r); } S_5405:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(4722);if(r)goto S_5405;} S_5406:; 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(4723);if(r)goto S_5406;} 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(4724);}while(r); } 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(4726);}while(r); }else{ S_5411:; fornext_value584= 1 ; fornext_finalvalue584=4; fornext_step584= 1 ; if (fornext_step584<0) fornext_step_negative584=1; else fornext_step_negative584=0; if (new_error) goto fornext_error584; goto fornext_entrylabel584; while(1){ fornext_value584=fornext_step584+(*__LONG_T3I); fornext_entrylabel584: *__LONG_T3I=fornext_value584; if (fornext_step_negative584){ if (fornext_value584fornext_finalvalue584) break; } fornext_error584:; if(qbevent){evnt(4728);if(r)goto S_5411;} S_5412:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||new_error){ if(qbevent){evnt(4729);if(r)goto S_5412;} 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(4729);}while(r); } fornext_continue_583:; } fornext_exit_583:; } 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(4732);}while(r); } S_5419:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4735);if(r)goto S_5419;} do{ qbs_set(__STRING_T2,__STRING_SYMBOL2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4735);}while(r); } S_5422:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4736);if(r)goto S_5422;} S_5423:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(4737);if(r)goto S_5423;} do{ *__LONG_V= 27 ; if(!qbevent)break;evnt(4737);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4737);}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(4738);}while(r); do{ *__LONG_DIMMETHOD= 1 ; if(!qbevent)break;evnt(4739);}while(r); } S_5431:; if ((-(*__LONG_ARRAY== 1 ))||new_error){ if(qbevent){evnt(4745);if(r)goto S_5431;} S_5432:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4746);if(r)goto S_5432;} 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(4746);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4746);}while(r); } do{ *__INTEGER_DIMSFARRAY= 1 ; if(!qbevent)break;evnt(4747);}while(r); do{ *__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_PARAMS, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4749);}while(r); S_5438:; if ((*__LONG_NELEREQ)||new_error){ if(qbevent){evnt(4750);if(r)goto S_5438;} do{ *__LONG_NELE=*__LONG_NELEREQ; if(!qbevent)break;evnt(4751);}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(4752);}while(r); do{ memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2861); if(!qbevent)break;evnt(4754);}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(4756);}while(r); S_5443:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4757);if(r)goto S_5443;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4757);}while(r); } }else{ do{ *__LONG_NELE= 1 ; if(!qbevent)break;evnt(4759);}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(4760);}while(r); do{ memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2861); if(!qbevent)break;evnt(4762);}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(4764);}while(r); S_5451:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4765);if(r)goto S_5451;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4765);}while(r); } } do{ *__INTEGER_DIMSFARRAY= 0 ; if(!qbevent)break;evnt(4768);}while(r); do{ qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass586= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4769);}while(r); S_5457:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4770);if(r)goto S_5457;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4770);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip587; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R), 0 , 0 , 0 ); if (new_error) goto skip587; skip587: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4771);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip588; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R), 0 , 0 , 0 ); if (new_error) goto skip588; skip588: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4772);}while(r); }else{ S_5463:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4775);if(r)goto S_5463;} S_5464:; fornext_value590= 1 ; fornext_finalvalue590=*__LONG_LASTTYPE; fornext_step590= 1 ; if (fornext_step590<0) fornext_step_negative590=1; else fornext_step_negative590=0; if (new_error) goto fornext_error590; goto fornext_entrylabel590; while(1){ fornext_value590=fornext_step590+(*__LONG_XX); fornext_entrylabel590: *__LONG_XX=fornext_value590; if (fornext_step_negative590){ if (fornext_value590fornext_finalvalue590) break; } fornext_error590:; if(qbevent){evnt(4777);if(r)goto S_5464;} S_5465:; 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(4778);if(r)goto S_5465;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip591; sub_file_print(tmp_fileno,qbs_new_txt_len("void*",5), 0 , 0 , 1 ); if (new_error) goto skip591; skip591: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4779);}while(r); do{ goto LABEL_DECUDT; if(!qbevent)break;evnt(4780);}while(r); S_5468:; }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(4781);if(r)goto S_5468;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip592; sub_file_print(tmp_fileno,qbs_new_txt_len("void*",5), 0 , 0 , 1 ); if (new_error) goto skip592; skip592: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4782);}while(r); do{ goto LABEL_DECUDT; if(!qbevent)break;evnt(4783);}while(r); } } fornext_continue_589:; } fornext_exit_589:; do{ qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass593= 0 ),__STRING_T2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4786);}while(r); S_5474:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4788);if(r)goto S_5474;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4788);}while(r); } S_5477:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ if(qbevent){evnt(4789);if(r)goto S_5477;} do{ qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4790);}while(r); S_5479:; if ((-(*__LONG_BYVALUE== 1 ))||new_error){ if(qbevent){evnt(4791);if(r)goto S_5479;} 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(4791);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4791);}while(r); } do{ *__LONG_BYVALUE= 1 ; if(!qbevent)break;evnt(4792);}while(r); } S_5485:; if ((*__LONG_BYVALUE)||new_error){ if(qbevent){evnt(4794);if(r)goto S_5485;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip594; sub_file_print(tmp_fileno,__STRING_T, 0 , 0 , 0 ); if (new_error) goto skip594; skip594: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4794);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip595; sub_file_print(tmp_fileno,qbs_add(__STRING_T,qbs_new_txt_len("*",1)), 0 , 0 , 0 ); if (new_error) goto skip595; skip595: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4794);}while(r); } LABEL_DECUDT:; if(qbevent){evnt(4795);r=0;} do{ goto LABEL_DECLIBJMP3; if(!qbevent)break;evnt(4796);}while(r); } do{ *__INTEGER_DIMSFARRAY= 1 ; if(!qbevent)break;evnt(4799);}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(4800);}while(r); S_5494:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4801);if(r)goto S_5494;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4801);}while(r); } do{ *__INTEGER_DIMSFARRAY= 0 ; if(!qbevent)break;evnt(4804);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4805);}while(r); do{ *__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(4806);}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(4808);}while(r); S_5501:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4809);if(r)goto S_5501;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4809);}while(r); } S_5504:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(4813);if(r)goto S_5504;} 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(4813);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4813);}while(r); } do{ qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass596= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4816);}while(r); S_5509:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(4817);if(r)goto S_5509;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4817);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip597; sub_file_print(tmp_fileno,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R), 0 , 0 , 0 ); if (new_error) goto skip597; skip597: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4818);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip598; sub_file_print(tmp_fileno,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R), 0 , 0 , 0 ); if (new_error) goto skip598; skip598: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4819);}while(r); S_5514:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ if(qbevent){evnt(4820);if(r)goto S_5514;} do{ qbs_set(__STRING_U,FUNC_STR2(&(pass599=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4821);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip600; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip600; skip600: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4822);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip601; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip601; skip601: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4823);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip602; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip602; skip602: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4824);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip603; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)), 0 , 0 , 1 ); if (new_error) goto skip603; skip603: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4826);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip604; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip604; skip604: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4827);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip605; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip605; skip605: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4828);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip606; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip606; skip606: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4829);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip607; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip607; skip607: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4830);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip608; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip608; skip608: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4832);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip609; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip609; skip609: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4833);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip610; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip610; skip610: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4835);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip611; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip611; skip611: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4836);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip612; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip612; skip612: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4837);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip613; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip613; skip613: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4838);}while(r); } } LABEL_DECLIBJMP3:; if(qbevent){evnt(4841);r=0;} S_5532:; if ((-(*__LONG_I!=(*__LONG_N- 1 )))||new_error){ if(qbevent){evnt(4842);if(r)goto S_5532;} 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(4842);}while(r); } do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4844);}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(4846);}while(r); S_5538:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ if(qbevent){evnt(4847);if(r)goto S_5538;} do{ goto LABEL_GETLASTPARAM2; if(!qbevent)break;evnt(4847);}while(r); } } fornext_continue_572:; } fornext_exit_572:; LABEL_NOSFPARAMS2:; if(qbevent){evnt(4850);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(4851);}while(r); } do{ *__LONG_ALLOWLOCALNAME= 0 ; if(!qbevent)break;evnt(4853);}while(r); S_5546:; if ((*__LONG_ADDSTATIC2LAYOUT)||new_error){ if(qbevent){evnt(4855);if(r)goto S_5546;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("STATIC",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4855);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(4856);}while(r); S_5550:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(4856);if(r)goto S_5550;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4856);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4856);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip615; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip615; skip615: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4858);}while(r); S_5556:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4860);if(r)goto S_5556;} do{ goto LABEL_DECLIBJMP4; if(!qbevent)break;evnt(4860);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip616; sub_file_print(tmp_fileno,qbs_new_txt_len("){",2), 0 , 0 , 1 ); if (new_error) goto skip616; skip616: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4862);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip617; sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *tqbs;",10), 0 , 0 , 1 ); if (new_error) goto skip617; skip617: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4863);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip618; sub_file_print(tmp_fileno,qbs_new_txt_len("ptrszint tmp_long;",18), 0 , 0 , 1 ); if (new_error) goto skip618; skip618: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4864);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip619; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 tmp_fileno;",17), 0 , 0 , 1 ); if (new_error) goto skip619; skip619: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4865);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip620; sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39), 0 , 0 , 1 ); if (new_error) goto skip620; skip620: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4866);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip621; sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49), 0 , 0 , 1 ); if (new_error) goto skip621; skip621: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4867);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip622; sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27), 0 , 0 , 1 ); if (new_error) goto skip622; skip622: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4868);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip623; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip623; skip623: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4869);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip624; sub_file_print(tmp_fileno,qbs_new_txt_len("mem_lock *sf_mem_lock;",22), 0 , 0 , 1 ); if (new_error) goto skip624; skip624: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4872);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip625; sub_file_print(tmp_fileno,qbs_new_txt_len("new_mem_lock();",15), 0 , 0 , 1 ); if (new_error) goto skip625; skip625: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4873);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip626; sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25), 0 , 0 , 1 ); if (new_error) goto skip626; skip626: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4874);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip627; sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock->type=3;",20), 0 , 0 , 1 ); if (new_error) goto skip627; skip627: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4875);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip628; sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error) goto exit_subfunc;",33), 0 , 0 , 1 ); if (new_error) goto skip628; skip628: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4877);}while(r); do{ *__LONG_DIMSTATIC=*__LONG_STATICSF; if(!qbevent)break;evnt(4882);}while(r); LABEL_DECLIBJMP4:; if(qbevent){evnt(4884);r=0;} S_5573:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ if(qbevent){evnt(4886);if(r)goto S_5573;} S_5574:; if ((*__LONG_CUSTOMTYPELIBRARY)||new_error){ if(qbevent){evnt(4888);if(r)goto S_5574;} 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(4890);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip629; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip629; skip629: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4892);}while(r); S_5577:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(4894);if(r)goto S_5577;} do{ *__LONG_F=func_freefile(); if(!qbevent)break;evnt(4895);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL,*__LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4896);}while(r); }else{ do{ *__LONG_F= 13 ; if(!qbevent)break;evnt(4898);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; if (new_error) goto skip630; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip630; skip630: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4902);}while(r); S_5584:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(4904);if(r)goto S_5584;} do{ sub_close(*__LONG_F,1); if(!qbevent)break;evnt(4904);}while(r); } S_5587:; if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||new_error){ if(qbevent){evnt(4907);if(r)goto S_5587;} do{ *__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; if(!qbevent)break;evnt(4908);}while(r); S_5589:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ if(qbevent){evnt(4910);if(r)goto S_5589;} do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){ preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; } else preserved_elements=0; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){ preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; } else preserved_elements=0; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){ preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; } else preserved_elements=0; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1; if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsfunc_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ if(qbevent){evnt(4953);if(r)goto S_5625;} do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){ preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; } else preserved_elements=0; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){ preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; } else preserved_elements=0; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1; __ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){ preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; } else preserved_elements=0; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1; if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementslen== 0 )))||new_error){ if(qbevent){evnt(4982);if(r)goto S_5652;} 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(4982);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4982);}while(r); } S_5656:; 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(4985);if(r)goto S_5656;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4986);}while(r); S_5658:; sc_639=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(qbevent){evnt(4987);if(r)goto S_5658;} S_5659:; if (((sc_639==( 1 )))||new_error){ if(qbevent){evnt(4988);if(r)goto S_5659;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4988);}while(r); sc_ec_25_end:; goto sc_639_end; } S_5661:; if (((sc_639==( 2 )))||new_error){ if(qbevent){evnt(4989);if(r)goto S_5661;} do{ qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4989);}while(r); sc_ec_26_end:; goto sc_639_end; } S_5663:; if (((sc_639==( 3 ))||(sc_639==( 4 )))||new_error){ if(qbevent){evnt(4990);if(r)goto S_5663;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4990);}while(r); sc_ec_27_end:; goto sc_639_end; } S_5665:; if (((sc_639==( 5 )))||new_error){ if(qbevent){evnt(4991);if(r)goto S_5665;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4991);}while(r); sc_ec_28_end:; goto sc_639_end; } S_5667:; if ((((sc_639>=( 10 ))&&(sc_639<=( 19 ))))||new_error){ if(qbevent){evnt(4992);if(r)goto S_5667;} 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(4992);}while(r); sc_ec_29_end:; goto sc_639_end; } sc_639_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(4994);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(4995);}while(r); } S_5673:; 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(4998);if(r)goto S_5673;} 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(4999);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5000);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5003);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5004);}while(r); S_5679:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5004);if(r)goto S_5679;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5004);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5004);}while(r); } do{ qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5006);}while(r); do{ *__LONG_STATICARRAYLISTN= 0 ; if(!qbevent)break;evnt(5006);}while(r); do{ *__LONG_DIMSTATIC= 0 ; if(!qbevent)break;evnt(5007);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip641; sub_file_print(tmp_fileno,qbs_new_txt_len("exit_subfunc:;",14), 0 , 0 , 1 ); if (new_error) goto skip641; skip641: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5008);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip642; sub_file_print(tmp_fileno,qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27), 0 , 0 , 1 ); if (new_error) goto skip642; skip642: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5011);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip643; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip643; skip643: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5013);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip644; sub_file_print(tmp_fileno,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), 0 , 0 , 1 ); if (new_error) goto skip644; skip644: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5014);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip645; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20), 0 , 0 , 1 ); if (new_error) goto skip645; skip645: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5015);}while(r); S_5692:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5016);if(r)goto S_5692;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip646; sub_file_print(tmp_fileno,__STRING_SUBFUNCRET, 0 , 0 , 1 ); if (new_error) goto skip646; skip646: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5016);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip647; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip647; skip647: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5018);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip648; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip648; skip648: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5020);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip649; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip649; skip649: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5021);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip650; sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); if (new_error) goto skip650; skip650: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5022);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5023);}while(r); S_5700:; fornext_value652= 1 ; fornext_finalvalue652=*__LONG_IDN; fornext_step652= 1 ; if (fornext_step652<0) fornext_step_negative652=1; else fornext_step_negative652=0; if (new_error) goto fornext_error652; goto fornext_entrylabel652; while(1){ fornext_value652=fornext_step652+(*__LONG_I); fornext_entrylabel652: *__LONG_I=fornext_value652; if (fornext_step_negative652){ if (fornext_value652fornext_finalvalue652) break; } fornext_error652:; if(qbevent){evnt(5026);if(r)goto S_5700;} S_5701:; if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))& 2 )||new_error){ if(qbevent){evnt(5027);if(r)goto S_5701;} do{ *(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))- 2 ; if(!qbevent)break;evnt(5027);}while(r); } fornext_continue_651:; } fornext_exit_651:; S_5705:; fornext_value654= 1 ; fornext_finalvalue654=*__LONG_REVERTMAYMUSTHAVEN; fornext_step654= 1 ; if (fornext_step654<0) fornext_step_negative654=1; else fornext_step_negative654=0; if (new_error) goto fornext_error654; goto fornext_entrylabel654; while(1){ fornext_value654=fornext_step654+(*__LONG_I); fornext_entrylabel654: *__LONG_I=fornext_value654; if (fornext_step_negative654){ if (fornext_value654fornext_finalvalue654) break; } fornext_error654:; if(qbevent){evnt(5030);if(r)goto S_5705;} do{ *__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])]; if(!qbevent)break;evnt(5031);}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]))*2861+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+520)),8,1)); if(!qbevent)break;evnt(5032);}while(r); fornext_continue_653:; } fornext_exit_653:; do{ *__LONG_REVERTMAYMUSTHAVEN= 0 ; if(!qbevent)break;evnt(5034);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5038);}while(r); } } } S_5714:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ if(qbevent){evnt(5046);if(r)goto S_5714;} do{ qbs_set(__STRING_L,qbs_new_txt_len("CONST",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5047);}while(r); S_5716:; if ((-(*__LONG_N< 3 ))||new_error){ if(qbevent){evnt(5050);if(r)goto S_5716;} 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(5050);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5050);}while(r); } do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(5051);}while(r); LABEL_CONSTDEFPENDING:; if(qbevent){evnt(5053);r=0;} do{ *__LONG_PENDING= 0 ; if(!qbevent)break;evnt(5054);}while(r); do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5056);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5056);}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(5057);}while(r); do{ *__LONG_TYPEOVERRIDE= 0 ; if(!qbevent)break;evnt(5058);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5059);}while(r); S_5727:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5060);if(r)goto S_5727;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5060);}while(r); } S_5730:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5061);if(r)goto S_5730;} do{ *__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5062);}while(r); S_5732:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5063);if(r)goto S_5732;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5063);}while(r); } S_5735:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(5064);if(r)goto S_5735;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5064);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5064);}while(r); } S_5739:; if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ if(qbevent){evnt(5065);if(r)goto S_5739;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5065);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5065);}while(r); } } S_5744:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(5068);if(r)goto S_5744;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5068);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5068);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5069);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5072);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(5073);}while(r); S_5751:; fornext_value656=*__LONG_I; fornext_finalvalue656=*__LONG_N; fornext_step656= 1 ; if (fornext_step656<0) fornext_step_negative656=1; else fornext_step_negative656=0; if (new_error) goto fornext_error656; goto fornext_entrylabel656; while(1){ fornext_value656=fornext_step656+(*__LONG_I2); fornext_entrylabel656: *__LONG_I2=fornext_value656; if (fornext_step_negative656){ if (fornext_value656fornext_finalvalue656) break; } fornext_error656:; if(qbevent){evnt(5074);if(r)goto S_5751;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5075);}while(r); S_5753:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(5076);if(r)goto S_5753;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(5076);}while(r); } S_5756:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(5077);if(r)goto S_5756;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(5077);}while(r); } S_5759:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(5078);if(r)goto S_5759;} do{ *__LONG_PENDING= 1 ; if(!qbevent)break;evnt(5079);}while(r); do{ *__LONG_I=*__LONG_I2+ 1 ; if(!qbevent)break;evnt(5080);}while(r); S_5762:; if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ if(qbevent){evnt(5081);if(r)goto S_5762;} 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(5081);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5081);}while(r); } do{ goto fornext_exit_655; if(!qbevent)break;evnt(5082);}while(r); } S_5768:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(5084);if(r)goto S_5768;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5084);}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(5084);}while(r); } fornext_continue_655:; } fornext_exit_655:; do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5087);}while(r); S_5775:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5088);if(r)goto S_5775;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5088);}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(5089);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5094);}while(r); do{ *__LONG_HASHCHKFLAGS= 1024 ; if(!qbevent)break;evnt(5095);}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(5096);}while(r); S_5782:; while((*__LONG_HASHRES)||new_error){ if(qbevent){evnt(5097);if(r)goto S_5782;} S_5783:; 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(5098);if(r)goto S_5783;} 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(5098);}while(r); do{ goto dl_exit_658; if(!qbevent)break;evnt(5098);}while(r); } S_5787:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(5099);if(r)goto S_5787;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); if(!qbevent)break;evnt(5099);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; if(!qbevent)break;evnt(5099);}while(r); } dl_continue_658:; } dl_exit_658:; S_5793:; if ((*__LONG_PENDING)||new_error){ if(qbevent){evnt(5102);if(r)goto S_5793;} 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(5102);}while(r); do{ goto LABEL_CONSTDEFPENDING; if(!qbevent)break;evnt(5102);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5104);}while(r); S_5798:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5104);if(r)goto S_5798;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5104);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5104);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5106);}while(r); } LABEL_PREDEFINE:; if(qbevent){evnt(5109);r=0;} S_5805:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(5110);if(r)goto S_5805;} do{ *__LONG_ASREQ= 0 ; if(!qbevent)break;evnt(5111);}while(r); S_5807:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ if(qbevent){evnt(5112);if(r)goto S_5807;} 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(5112);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; if(!qbevent)break;evnt(5112);}while(r); do{ goto LABEL_DEFINETYPE; if(!qbevent)break;evnt(5112);}while(r); } S_5812:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ if(qbevent){evnt(5113);if(r)goto S_5812;} 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(5113);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; if(!qbevent)break;evnt(5113);}while(r); do{ goto LABEL_DEFINETYPE; if(!qbevent)break;evnt(5113);}while(r); } S_5817:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ if(qbevent){evnt(5114);if(r)goto S_5817;} 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(5114);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; if(!qbevent)break;evnt(5114);}while(r); do{ goto LABEL_DEFINETYPE; if(!qbevent)break;evnt(5114);}while(r); } S_5822:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ if(qbevent){evnt(5115);if(r)goto S_5822;} 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(5115);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; if(!qbevent)break;evnt(5115);}while(r); do{ goto LABEL_DEFINETYPE; if(!qbevent)break;evnt(5115);}while(r); } S_5827:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ if(qbevent){evnt(5116);if(r)goto S_5827;} 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(5116);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; if(!qbevent)break;evnt(5116);}while(r); do{ goto LABEL_DEFINETYPE; if(!qbevent)break;evnt(5116);}while(r); } S_5832:; 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(5117);if(r)goto S_5832;} do{ *__LONG_ASREQ= 1 ; if(!qbevent)break;evnt(5118);}while(r); LABEL_DEFINETYPE:; if(qbevent){evnt(5119);r=0;} do{ qbs_set(__STRING_L,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5120);}while(r); do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5122);}while(r); do{ qbs_set(__STRING_TYP2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5123);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5124);}while(r); S_5838:; fornext_value661=*__LONG_N; fornext_finalvalue661= 2 ; fornext_step661= -1 ; if (fornext_step661<0) fornext_step_negative661=1; else fornext_step_negative661=0; if (new_error) goto fornext_error661; goto fornext_entrylabel661; while(1){ fornext_value661=fornext_step661+(*__LONG_I); fornext_entrylabel661: *__LONG_I=fornext_value661; if (fornext_step_negative661){ if (fornext_value661fornext_finalvalue661) break; } fornext_error661:; if(qbevent){evnt(5125);if(r)goto S_5838;} do{ qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5126);}while(r); S_5840:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ if(qbevent){evnt(5127);if(r)goto S_5840;} do{ goto fornext_exit_660; if(!qbevent)break;evnt(5127);}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(5128);}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(5129);}while(r); fornext_continue_660:; } fornext_exit_660:; do{ qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5131);}while(r); S_5847:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ if(qbevent){evnt(5132);if(r)goto S_5847;} 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(5132);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5132);}while(r); } S_5851:; if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||new_error){ if(qbevent){evnt(5133);if(r)goto S_5851;} 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(5133);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5133);}while(r); } do{ *__LONG_N=*__LONG_I- 1 ; if(!qbevent)break;evnt(5136);}while(r); do{ *__LONG_I= 2 - 1 ; if(!qbevent)break;evnt(5138);}while(r); LABEL_DEFINENEXT:; if(qbevent){evnt(5139);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5141);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5141);}while(r); do{ *__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5141);}while(r); S_5860:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ if(qbevent){evnt(5142);if(r)goto S_5860;} 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(5142);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5142);}while(r); } S_5864:; if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ if(qbevent){evnt(5143);if(r)goto S_5864;} 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(5143);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5143);}while(r); } S_5868:; if ((-(*__LONG_E== 95 ))||new_error){ if(qbevent){evnt(5144);if(r)goto S_5868;} do{ *__LONG_E= 27 ; if(!qbevent)break;evnt(5144);}while(r); }else{ do{ *__LONG_E=*__LONG_E- 64 ; if(!qbevent)break;evnt(5144);}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(5145);}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(5146);}while(r); S_5875:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5147);if(r)goto S_5875;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5147);}while(r); } do{ *__LONG_FIRSTE=*__LONG_E; if(!qbevent)break;evnt(5148);}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(5149);}while(r); S_5880:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(5151);if(r)goto S_5880;} S_5881:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ if(qbevent){evnt(5152);if(r)goto S_5881;} do{ goto LABEL_PREDEFINED; if(!qbevent)break;evnt(5152);}while(r); } S_5884:; if ((*__LONG_ASREQ)||new_error){ if(qbevent){evnt(5153);if(r)goto S_5884;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5153);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5154);}while(r); S_5888:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5154);if(r)goto S_5888;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5154);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5154);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5155);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5159);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5159);}while(r); S_5897:; 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(5160);if(r)goto S_5897;} 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(5160);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5160);}while(r); } S_5901:; 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_5901;} 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(5162);}while(r); S_5903:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(5163);if(r)goto S_5903;} 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(5163);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5163);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5165);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5165);}while(r); do{ *__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5165);}while(r); S_5910:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ if(qbevent){evnt(5166);if(r)goto S_5910;} 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(5166);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5166);}while(r); } S_5914:; if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ if(qbevent){evnt(5167);if(r)goto S_5914;} 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(5167);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5167);}while(r); } S_5918:; if ((-(*__LONG_E== 95 ))||new_error){ if(qbevent){evnt(5168);if(r)goto S_5918;} do{ *__LONG_E= 27 ; if(!qbevent)break;evnt(5168);}while(r); }else{ do{ *__LONG_E=*__LONG_E- 64 ; if(!qbevent)break;evnt(5168);}while(r); } S_5923:; if ((-(*__LONG_FIRSTE>*__LONG_E))||new_error){ if(qbevent){evnt(5169);if(r)goto S_5923;} do{ swap_32(&*__LONG_E,&*__LONG_FIRSTE); if(!qbevent)break;evnt(5169);}while(r); } S_5926:; fornext_value666=*__LONG_FIRSTE; fornext_finalvalue666=*__LONG_E; fornext_step666= 1 ; if (fornext_step666<0) fornext_step_negative666=1; else fornext_step_negative666=0; if (new_error) goto fornext_error666; goto fornext_entrylabel666; while(1){ fornext_value666=fornext_step666+(*__LONG_E2); fornext_entrylabel666: *__LONG_E2=fornext_value666; if (fornext_step_negative666){ if (fornext_value666fornext_finalvalue666) break; } fornext_error666:; if(qbevent){evnt(5170);if(r)goto S_5926;} 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(5171);}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(5172);}while(r); S_5929:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5173);if(r)goto S_5929;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5173);}while(r); } fornext_continue_665:; } fornext_exit_665:; 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(5175);}while(r); S_5934:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(5176);if(r)goto S_5934;} S_5935:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ if(qbevent){evnt(5177);if(r)goto S_5935;} do{ goto LABEL_PREDEFINED; if(!qbevent)break;evnt(5177);}while(r); } S_5938:; if ((*__LONG_ASREQ)||new_error){ if(qbevent){evnt(5178);if(r)goto S_5938;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5178);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5179);}while(r); S_5942:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5179);if(r)goto S_5942;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5179);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5179);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5180);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(5183);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5183);}while(r); S_5951:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(5184);if(r)goto S_5951;} 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(5184);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5184);}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(5186);}while(r); do{ goto LABEL_DEFINENEXT; if(!qbevent)break;evnt(5187);}while(r); } } S_5960:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ if(qbevent){evnt(5190);if(r)goto S_5960;} do{ goto LABEL_PREDEFINED; if(!qbevent)break;evnt(5190);}while(r); } S_5963:; if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(5192);if(r)goto S_5963;} 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(5192);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5192);}while(r); } do{ *__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ; if(!qbevent)break;evnt(5196);}while(r); S_5968:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5199);if(r)goto S_5968;} S_5969:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||new_error){ if(qbevent){evnt(5200);if(r)goto S_5969;} do{ qbs_set(__STRING_L,qbs_new_txt_len("NEXT",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5202);}while(r); S_5971:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5203);if(r)goto S_5971;} do{ goto LABEL_SIMPLENEXT; if(!qbevent)break;evnt(5203);}while(r); } do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5204);}while(r); S_5975:; fornext_value669= 2 ; fornext_finalvalue669=*__LONG_N; fornext_step669= 1 ; if (fornext_step669<0) fornext_step_negative669=1; else fornext_step_negative669=0; if (new_error) goto fornext_error669; goto fornext_entrylabel669; while(1){ fornext_value669=fornext_step669+(*__LONG_I); fornext_entrylabel669: *__LONG_I=fornext_value669; if (fornext_step_negative669){ if (fornext_value669fornext_finalvalue669) break; } fornext_error669:; if(qbevent){evnt(5205);if(r)goto S_5975;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5206);}while(r); S_5977:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(5208);if(r)goto S_5977;} LABEL_LASTNEXTELE:; if(qbevent){evnt(5210);r=0;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5211);}while(r); S_5979:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5212);if(r)goto S_5979;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5212);}while(r); } S_5982:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||new_error){ if(qbevent){evnt(5213);if(r)goto S_5982;} 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(5213);}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(5213);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5214);}while(r); S_5988:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5215);if(r)goto S_5988;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5215);}while(r); } S_5991:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5216);if(r)goto S_5991;} do{ SUB_GETID(&(pass671=qbr(func_val(__STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5217);}while(r); S_5993:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5218);if(r)goto S_5993;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5218);}while(r); } S_5996:; if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(5219);if(r)goto S_5996;} S_5997:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(5220);if(r)goto S_5997;} S_5998:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ if(qbevent){evnt(5221);if(r)goto S_5998;} S_5999:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ if(qbevent){evnt(5222);if(r)goto S_5999;} do{ goto LABEL_FORNEXTFOUNDVAR2; if(!qbevent)break;evnt(5223);}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(5229);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5229);}while(r); LABEL_FORNEXTFOUNDVAR2:; if(qbevent){evnt(5230);r=0;} LABEL_SIMPLENEXT:; if(qbevent){evnt(5231);r=0;} S_6008:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||new_error){ if(qbevent){evnt(5232);if(r)goto S_6008;} do{ qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5232);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5232);}while(r); } S_6012:; 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(5233);if(r)goto S_6012;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5233);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5233);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip672; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip672; skip672: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5234);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip673; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip673; skip673: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5235);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip674; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip674; skip674: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5236);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5237);}while(r); S_6020:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5238);if(r)goto S_6020;} do{ goto fornext_exit_668; if(!qbevent)break;evnt(5238);}while(r); } do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5239);}while(r); }else{ S_6025:; if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ if(qbevent){evnt(5243);if(r)goto S_6025;} 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(5243);}while(r); }else{ do{ qbs_set(__STRING_V,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5243);}while(r); } S_6030:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(5244);if(r)goto S_6030;} do{ goto LABEL_LASTNEXTELE; if(!qbevent)break;evnt(5244);}while(r); } } fornext_continue_668:; } fornext_exit_668:; do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5250);}while(r); S_6036:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5250);if(r)goto S_6036;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5250);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5250);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5251);}while(r); } } S_6044:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5257);if(r)goto S_6044;} S_6045:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ if(qbevent){evnt(5258);if(r)goto S_6045;} S_6046:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5259);if(r)goto S_6046;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip677; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip677; skip677: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5259);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5259);}while(r); } S_6050:; 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(5262);if(r)goto S_6050;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5263);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5263);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5266);}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(5267);}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(5268);}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(5269);}while(r); S_6058:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(5270);if(r)goto S_6058;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass678= 2 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5271);}while(r); S_6060:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5272);if(r)goto S_6060;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5272);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("WHILE",5),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5273);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5274);}while(r); S_6065:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5274);if(r)goto S_6065;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5274);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5274);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5275);}while(r); S_6071:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5276);if(r)goto S_6071;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5276);}while(r); } S_6074:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5277);if(r)goto S_6074;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass680= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5277);}while(r); } S_6077:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5278);if(r)goto S_6077;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5278);}while(r); } S_6080:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5279);if(r)goto S_6080;} 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(5279);}while(r); } S_6083:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(5280);if(r)goto S_6083;} 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(5280);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5280);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip681; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); if (new_error) goto skip681; skip681: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5281);}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(5283);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5283);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5286);}while(r); } } S_6095:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5290);if(r)goto S_6095;} S_6096:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||new_error){ if(qbevent){evnt(5291);if(r)goto S_6096;} S_6097:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||new_error){ if(qbevent){evnt(5294);if(r)goto S_6097;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5294);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5294);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip682; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip682; skip682: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5295);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip683; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip683; skip683: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5296);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip684; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip684; skip684: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5297);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5298);}while(r); do{ qbs_set(__STRING_L,qbs_new_txt_len("WEND",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5299);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5300);}while(r); S_6107:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5300);if(r)goto S_6107;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5300);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5300);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5301);}while(r); } } S_6115:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5309);if(r)goto S_6115;} S_6116:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||new_error){ if(qbevent){evnt(5310);if(r)goto S_6116;} S_6117:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5311);if(r)goto S_6117;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip686; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip686; skip686: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5311);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5311);}while(r); } S_6121:; 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(5314);if(r)goto S_6121;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5315);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5315);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5318);}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(5319);}while(r); do{ qbs_set(__STRING_L,qbs_new_txt_len("DO",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5320);}while(r); S_6128:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(5321);if(r)goto S_6128;} do{ *__LONG_WHILEUNTIL= 0 ; if(!qbevent)break;evnt(5322);}while(r); S_6130:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ if(qbevent){evnt(5323);if(r)goto S_6130;} do{ *__LONG_WHILEUNTIL= 1 ; if(!qbevent)break;evnt(5323);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("WHILE",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5323);}while(r); } S_6134:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ if(qbevent){evnt(5324);if(r)goto S_6134;} do{ *__LONG_WHILEUNTIL= 2 ; if(!qbevent)break;evnt(5324);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("UNTIL",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5324);}while(r); } S_6138:; if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ if(qbevent){evnt(5325);if(r)goto S_6138;} 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(5325);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5325);}while(r); } S_6142:; if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ if(qbevent){evnt(5326);if(r)goto S_6142;} 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(5326);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5326);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass687= 3 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5327);}while(r); S_6147:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5328);if(r)goto S_6147;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5328);}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(5329);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5330);}while(r); S_6152:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5331);if(r)goto S_6152;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5331);}while(r); } S_6155:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5332);if(r)goto S_6155;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass688= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5332);}while(r); } S_6158:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5333);if(r)goto S_6158;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5333);}while(r); } S_6161:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5334);if(r)goto S_6161;} 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(5334);}while(r); } S_6164:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(5335);if(r)goto S_6164;} 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(5335);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5335);}while(r); } S_6168:; if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ if(qbevent){evnt(5336);if(r)goto S_6168;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip689; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); if (new_error) goto skip689; skip689: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5336);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip690; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); if (new_error) goto skip690; skip690: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5336);}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(5337);}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(5339);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip691; sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); if (new_error) goto skip691; skip691: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5340);}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(5342);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5343);}while(r); S_6180:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5343);if(r)goto S_6180;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5343);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5343);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5344);}while(r); } } S_6188:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5348);if(r)goto S_6188;} S_6189:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||new_error){ if(qbevent){evnt(5349);if(r)goto S_6189;} do{ qbs_set(__STRING_L,qbs_new_txt_len("LOOP",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5350);}while(r); S_6191:; 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(5351);if(r)goto S_6191;} do{ qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5351);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5351);}while(r); } S_6195:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(5352);if(r)goto S_6195;} S_6196:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5353);if(r)goto S_6196;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip693; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip693; skip693: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5353);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5353);}while(r); } S_6200:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ if(qbevent){evnt(5354);if(r)goto S_6200;} do{ qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5354);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5354);}while(r); } do{ *__LONG_WHILEUNTIL= 0 ; if(!qbevent)break;evnt(5355);}while(r); S_6205:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ if(qbevent){evnt(5356);if(r)goto S_6205;} do{ *__LONG_WHILEUNTIL= 1 ; if(!qbevent)break;evnt(5356);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("WHILE",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5356);}while(r); } S_6209:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ if(qbevent){evnt(5357);if(r)goto S_6209;} do{ *__LONG_WHILEUNTIL= 2 ; if(!qbevent)break;evnt(5357);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("UNTIL",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5357);}while(r); } S_6213:; if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ if(qbevent){evnt(5358);if(r)goto S_6213;} 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(5358);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5358);}while(r); } S_6217:; if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ if(qbevent){evnt(5359);if(r)goto S_6217;} 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(5359);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5359);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass694= 3 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5360);}while(r); S_6222:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5361);if(r)goto S_6222;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5361);}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(5362);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5363);}while(r); S_6227:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5364);if(r)goto S_6227;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5364);}while(r); } S_6230:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5365);if(r)goto S_6230;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass695= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5365);}while(r); } S_6233:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5366);if(r)goto S_6233;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5366);}while(r); } S_6236:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5367);if(r)goto S_6236;} 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(5367);}while(r); } S_6239:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(5368);if(r)goto S_6239;} 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(5368);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5368);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip696; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip696; skip696: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5369);}while(r); S_6244:; if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ if(qbevent){evnt(5370);if(r)goto S_6244;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip697; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!new_error));",17)), 0 , 0 , 1 ); if (new_error) goto skip697; skip697: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5370);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip698; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!new_error));",18)), 0 , 0 , 1 ); if (new_error) goto skip698; skip698: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5370);}while(r); } }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip699; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip699; skip699: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5372);}while(r); S_6251:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ if(qbevent){evnt(5373);if(r)goto S_6251;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip700; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip700; skip700: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5374);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip701; sub_file_print(tmp_fileno,qbs_new_txt_len("}while(1);",10), 0 , 0 , 1 ); if (new_error) goto skip701; skip701: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5376);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip702; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip702; skip702: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5379);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5380);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5381);}while(r); S_6260:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5381);if(r)goto S_6260;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5381);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5381);}while(r); } S_6265:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5382);if(r)goto S_6265;} do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5382);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5383);}while(r); } } S_6271:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5395);if(r)goto S_6271;} S_6272:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ if(qbevent){evnt(5396);if(r)goto S_6272;} S_6273:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5397);if(r)goto S_6273;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip704; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip704; skip704: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5397);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5397);}while(r); } do{ qbs_set(__STRING_L,qbs_new_txt_len("FOR",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5399);}while(r); S_6278:; 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(5402);if(r)goto S_6278;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5403);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5403);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5406);}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(5407);}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(5408);}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(5409);}while(r); do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5411);}while(r); do{ qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5412);}while(r); do{ qbs_set(__STRING_P3,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5413);}while(r); do{ *__LONG_STEPUSED= 0 ; if(!qbevent)break;evnt(5413);}while(r); do{ qbs_set(__STRING_P2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5414);}while(r); do{ *__LONG_MODE= 0 ; if(!qbevent)break;evnt(5415);}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(5416);}while(r); S_6293:; fornext_value706= 2 ; fornext_finalvalue706=*__LONG_N; fornext_step706= 1 ; if (fornext_step706<0) fornext_step_negative706=1; else fornext_step_negative706=0; if (new_error) goto fornext_error706; goto fornext_entrylabel706; while(1){ fornext_value706=fornext_step706+(*__LONG_I); fornext_entrylabel706: *__LONG_I=fornext_value706; if (fornext_step_negative706){ if (fornext_value706fornext_finalvalue706) break; } fornext_error706:; if(qbevent){evnt(5417);if(r)goto S_6293;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5418);}while(r); S_6295:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(5419);if(r)goto S_6295;} S_6296:; if ((-(*__LONG_MODE!= 0 ))||new_error){ if(qbevent){evnt(5420);if(r)goto S_6296;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(5420);}while(r); do{ goto fornext_exit_705; if(!qbevent)break;evnt(5420);}while(r); } do{ *__LONG_MODE= 1 ; if(!qbevent)break;evnt(5421);}while(r); do{ qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass707= 2 ),&(pass708=*__LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5422);}while(r); do{ *__LONG_EQUPOS=*__LONG_I; if(!qbevent)break;evnt(5423);}while(r); } S_6304:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||new_error){ if(qbevent){evnt(5425);if(r)goto S_6304;} S_6305:; if ((-(*__LONG_MODE!= 1 ))||new_error){ if(qbevent){evnt(5426);if(r)goto S_6305;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(5426);}while(r); do{ goto fornext_exit_705; if(!qbevent)break;evnt(5426);}while(r); } do{ *__LONG_MODE= 2 ; if(!qbevent)break;evnt(5427);}while(r); do{ qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass709=*__LONG_EQUPOS+ 1 ),&(pass710=*__LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5428);}while(r); do{ *__LONG_TOPOS=*__LONG_I; if(!qbevent)break;evnt(5429);}while(r); } S_6313:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||new_error){ if(qbevent){evnt(5431);if(r)goto S_6313;} S_6314:; if ((-(*__LONG_MODE!= 2 ))||new_error){ if(qbevent){evnt(5432);if(r)goto S_6314;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(5432);}while(r); do{ goto fornext_exit_705; if(!qbevent)break;evnt(5432);}while(r); } do{ *__LONG_MODE= 3 ; if(!qbevent)break;evnt(5433);}while(r); do{ *__LONG_STEPUSED= 1 ; if(!qbevent)break;evnt(5434);}while(r); do{ qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass711=*__LONG_TOPOS+ 1 ),&(pass712=*__LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5435);}while(r); do{ qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass713=*__LONG_I+ 1 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5436);}while(r); do{ goto fornext_exit_705; if(!qbevent)break;evnt(5437);}while(r); } fornext_continue_705:; } fornext_exit_705:; S_6325:; if ((-(*__LONG_MODE< 2 ))||new_error){ if(qbevent){evnt(5440);if(r)goto S_6325;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(5440);}while(r); } S_6328:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5441);if(r)goto S_6328;} do{ qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass714=*__LONG_TOPOS+ 1 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5441);}while(r); } S_6331:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||new_error){ if(qbevent){evnt(5442);if(r)goto S_6331;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(5442);}while(r); } S_6334:; if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||new_error){ if(qbevent){evnt(5443);if(r)goto S_6334;} 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(5443);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5443);}while(r); } S_6338:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(5444);if(r)goto S_6338;} 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(5444);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5444);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5446);}while(r); S_6343:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5447);if(r)goto S_6343;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5447);}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(5448);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5449);}while(r); S_6348:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5450);if(r)goto S_6348;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5450);}while(r); } S_6351:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5451);if(r)goto S_6351;} do{ SUB_GETID(&(pass718=qbr(func_val(__STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5452);}while(r); S_6353:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5453);if(r)goto S_6353;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5453);}while(r); } S_6356:; if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(5454);if(r)goto S_6356;} S_6357:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(5455);if(r)goto S_6357;} S_6358:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ if(qbevent){evnt(5456);if(r)goto S_6358;} S_6359:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ if(qbevent){evnt(5457);if(r)goto S_6359;} do{ goto LABEL_FORNEXTFOUNDVAR; if(!qbevent)break;evnt(5458);}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(5464);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5464);}while(r); LABEL_FORNEXTFOUNDVAR:; if(qbevent){evnt(5465);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(5466);}while(r); do{ qbs_set(__STRING_V,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5467);}while(r); do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5471);}while(r); do{ *__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER; if(!qbevent)break;evnt(5472);}while(r); do{ *__LONG_BITS=*__LONG_TYP& 511 ; if(!qbevent)break;evnt(5473);}while(r); S_6373:; if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(5474);if(r)goto S_6373;} S_6374:; if ((-(*__LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(5475);if(r)goto S_6374;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5475);}while(r); do{ *__LONG_CTYP= 64 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(5475);}while(r); } S_6378:; if ((-(*__LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(5476);if(r)goto S_6378;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5476);}while(r); do{ *__LONG_CTYP= 256 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(5476);}while(r); } S_6382:; if ((-(*__LONG_BITS== 256 ))||new_error){ if(qbevent){evnt(5477);if(r)goto S_6382;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5477);}while(r); do{ *__LONG_CTYP= 256 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(5477);}while(r); } }else{ S_6387:; if ((-(*__LONG_BITS== 8 ))||new_error){ if(qbevent){evnt(5479);if(r)goto S_6387;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5479);}while(r); do{ *__LONG_CTYP= 16 ; if(!qbevent)break;evnt(5479);}while(r); } S_6391:; if ((-(*__LONG_BITS== 16 ))||new_error){ if(qbevent){evnt(5480);if(r)goto S_6391;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5480);}while(r); do{ *__LONG_CTYP= 32 ; if(!qbevent)break;evnt(5480);}while(r); } S_6395:; if ((-(*__LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(5481);if(r)goto S_6395;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5481);}while(r); do{ *__LONG_CTYP= 64 ; if(!qbevent)break;evnt(5481);}while(r); } S_6399:; if ((-(*__LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(5482);if(r)goto S_6399;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5482);}while(r); do{ *__LONG_CTYP= 64 ; if(!qbevent)break;evnt(5482);}while(r); } } S_6404:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5484);if(r)goto S_6404;} 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(5484);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5484);}while(r); } do{ qbs_set(__STRING_U,FUNC_STR2(&(pass719=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5485);}while(r); S_6409:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5487);if(r)goto S_6409;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip720; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip720; skip720: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5488);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip721; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip721; skip721: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5489);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip722; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip722; skip722: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5490);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip723; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip723; skip723: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5491);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip724; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip724; skip724: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5493);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip725; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip725; skip725: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5494);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip726; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip726; skip726: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5495);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip727; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip727; skip727: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5496);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5500);}while(r); S_6421:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5501);if(r)goto S_6421;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5501);}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(5502);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5503);}while(r); S_6426:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5504);if(r)goto S_6426;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5504);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip728; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip728; skip728: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5505);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5508);}while(r); S_6431:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5509);if(r)goto S_6431;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5509);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5510);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5511);}while(r); S_6436:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5512);if(r)goto S_6436;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5512);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip729; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip729; skip729: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5513);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5516);}while(r); S_6441:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5517);if(r)goto S_6441;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5517);}while(r); } S_6444:; if ((-(*__LONG_STEPUSED== 1 ))||new_error){ if(qbevent){evnt(5518);if(r)goto S_6444;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("STEP",4)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5518);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5519);}while(r); S_6448:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5520);if(r)goto S_6448;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5520);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip730; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip730; skip730: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5521);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip731; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip731; skip731: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5522);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip732; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto fornext_error",33),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip732; skip732: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5524);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip733; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip733; skip733: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5525);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip734; sub_file_print(tmp_fileno,qbs_new_txt_len("while(1){",9), 0 , 0 , 1 ); if (new_error) goto skip734; skip734: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5526);}while(r); do{ *__LONG_TYPBAK=*__LONG_TYP; if(!qbevent)break;evnt(5527);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip735; sub_file_print(tmp_fileno,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,&(pass736= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip735; skip735: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5528);}while(r); S_6458:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5529);if(r)goto S_6458;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5529);}while(r); } do{ *__LONG_TYP=*__LONG_TYPBAK; if(!qbevent)break;evnt(5530);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip737; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip737; skip737: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5531);}while(r); do{ SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass738= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5532);}while(r); S_6464:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5533);if(r)goto S_6464;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5533);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip739; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip739; skip739: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5534);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip740; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip742; skip742: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5537);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip743; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip743; skip743: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5538);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip744; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip744; skip744: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5539);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5541);}while(r); S_6474:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5541);if(r)goto S_6474;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5541);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5541);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5543);}while(r); } } S_6482:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5548);if(r)goto S_6482;} S_6483:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||new_error){ if(qbevent){evnt(5549);if(r)goto S_6483;} do{ qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5558);}while(r); S_6485:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||new_error){ if(qbevent){evnt(5560);if(r)goto S_6485;} 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(5561);}while(r); dl_continue_746:; } dl_exit_746:; do{ *__LONG_GOODELSE= 0 ; if(!qbevent)break;evnt(5564);}while(r); S_6489:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||new_error){ if(qbevent){evnt(5565);if(r)goto S_6489;} do{ *__LONG_GOODELSE= -1 ; if(!qbevent)break;evnt(5565);}while(r); do{ goto LABEL_SKIPELSECHECK; if(!qbevent)break;evnt(5565);}while(r); } S_6493:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||new_error){ if(qbevent){evnt(5566);if(r)goto S_6493;} do{ *__LONG_GOODELSE= -1 ; if(!qbevent)break;evnt(5566);}while(r); do{ goto LABEL_SKIPELSECHECK; if(!qbevent)break;evnt(5566);}while(r); } S_6497:; do{ if(qbevent){evnt(5567);if(r)goto S_6497;} do{ *__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5568);}while(r); S_6499:; if ((*__LONG_SPACELOCATION)||new_error){ if(qbevent){evnt(5569);if(r)goto S_6499;} 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(5569);}while(r); } S_6502:; dl_continue_747:; }while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!new_error)); dl_exit_747:; if(qbevent){evnt(5570);if(r)goto S_6502;} S_6503:; 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(5571);if(r)goto S_6503;} do{ *__LONG_GOODELSE= -1 ; if(!qbevent)break;evnt(5571);}while(r); do{ goto LABEL_SKIPELSECHECK; if(!qbevent)break;evnt(5571);}while(r); } do{ *__LONG_COUNT= 0 ; if(!qbevent)break;evnt(5572);}while(r); S_6508:; do{ if(qbevent){evnt(5573);if(r)goto S_6508;} do{ *__LONG_COUNT=*__LONG_COUNT+ 1 ; if(!qbevent)break;evnt(5574);}while(r); S_6510:; qbs_set(sc_749,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(5575);if(r)goto S_6510;} S_6511:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_749,qbs_new_txt_len("1",1))||qbs_equal(sc_749,qbs_new_txt_len("2",1))||qbs_equal(sc_749,qbs_new_txt_len("3",1))||qbs_equal(sc_749,qbs_new_txt_len("4",1))||qbs_equal(sc_749,qbs_new_txt_len("5",1))||qbs_equal(sc_749,qbs_new_txt_len("6",1))||qbs_equal(sc_749,qbs_new_txt_len("7",1))||qbs_equal(sc_749,qbs_new_txt_len("8",1))||qbs_equal(sc_749,qbs_new_txt_len("9",1))||qbs_equal(sc_749,qbs_new_txt_len("0",1))||qbs_equal(sc_749,qbs_new_txt_len(":",1))))||new_error){ if(qbevent){evnt(5576);if(r)goto S_6511;} sc_ec_30_end:; goto sc_749_end; } do{ goto dl_exit_748; if(!qbevent)break;evnt(5577);}while(r); sc_749_end:; S_6515:; dl_continue_748:; }while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!new_error)); dl_exit_748:; if(qbevent){evnt(5579);if(r)goto S_6515;} S_6516:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 4 ,1),qbs_new_txt_len("ELSE",4)))|(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 2 ,1),qbs_new_txt_len("IF",2)))))||new_error){ if(qbevent){evnt(5580);if(r)goto S_6516;} do{ *__LONG_GOODELSE= -1 ; if(!qbevent)break;evnt(5580);}while(r); } S_6519:; if ((~(*__LONG_GOODELSE))||new_error){ if(qbevent){evnt(5581);if(r)goto S_6519;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5581);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5581);}while(r); } LABEL_SKIPELSECHECK:; if(qbevent){evnt(5582);r=0;} S_6523:; fornext_value752=*__INTEGER_CONTROLLEVEL; fornext_finalvalue752= 1 ; fornext_step752= -1 ; if (fornext_step752<0) fornext_step_negative752=1; else fornext_step_negative752=0; if (new_error) goto fornext_error752; goto fornext_entrylabel752; while(1){ fornext_value752=fornext_step752+(*__LONG_I); fornext_entrylabel752: *__LONG_I=fornext_value752; if (fornext_step_negative752){ if (fornext_value752fornext_finalvalue752) break; } fornext_error752:; if(qbevent){evnt(5584);if(r)goto S_6523;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(5585);}while(r); S_6525:; if ((-(*__LONG_T== 1 ))||new_error){ if(qbevent){evnt(5586);if(r)goto S_6525;} S_6526:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ if(qbevent){evnt(5587);if(r)goto S_6526;} 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(5587);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5587);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip753; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip753; skip753: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5588);}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(5589);}while(r); S_6532:; if ((-(*__LONG_LINEELSEUSED== 0 ))||new_error){ if(qbevent){evnt(5590);if(r)goto S_6532;} do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5590);}while(r); } do{ qbs_set(__STRING_L,qbs_new_txt_len("ELSE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5591);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5592);}while(r); S_6537:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5592);if(r)goto S_6537;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5592);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5592);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5593);}while(r); } fornext_continue_751:; } fornext_exit_751:; do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5596);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5596);}while(r); } } S_6549:; if ((-(*__LONG_N>= 3 ))||new_error){ if(qbevent){evnt(5600);if(r)goto S_6549;} S_6550:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||new_error){ if(qbevent){evnt(5601);if(r)goto S_6550;} S_6551:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5602);if(r)goto S_6551;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip755; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip755; skip755: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5602);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5602);}while(r); } S_6555:; fornext_value757=*__INTEGER_CONTROLLEVEL; fornext_finalvalue757= 1 ; fornext_step757= -1 ; if (fornext_step757<0) fornext_step_negative757=1; else fornext_step_negative757=0; if (new_error) goto fornext_error757; goto fornext_entrylabel757; while(1){ fornext_value757=fornext_step757+(*__LONG_I); fornext_entrylabel757: *__LONG_I=fornext_value757; if (fornext_step_negative757){ if (fornext_value757fornext_finalvalue757) break; } fornext_error757:; if(qbevent){evnt(5604);if(r)goto S_6555;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(5605);}while(r); S_6557:; if ((-(*__LONG_T== 1 ))||new_error){ if(qbevent){evnt(5606);if(r)goto S_6557;} S_6558:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ if(qbevent){evnt(5607);if(r)goto S_6558;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5607);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5607);}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(5608);}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(5609);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5610);}while(r); S_6565:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ if(qbevent){evnt(5611);if(r)goto S_6565;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5611);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5611);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip758; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip758; skip758: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5612);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass759= 2 ),&(pass760=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5613);}while(r); S_6571:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5614);if(r)goto S_6571;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5614);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ELSEIF",6),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("THEN",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5615);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5616);}while(r); S_6576:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5616);if(r)goto S_6576;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5616);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5616);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5617);}while(r); S_6582:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5618);if(r)goto S_6582;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5618);}while(r); } S_6585:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5619);if(r)goto S_6585;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass762= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5619);}while(r); } S_6588:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5620);if(r)goto S_6588;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5620);}while(r); } S_6591:; if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(5621);if(r)goto S_6591;} 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(5622);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5622);}while(r); } S_6595:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5624);if(r)goto S_6595;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip763; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len(")){",3)), 0 , 0 , 1 ); if (new_error) goto skip763; skip763: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5625);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip764; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_E),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip764; skip764: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5627);}while(r); } do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5629);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5630);}while(r); } fornext_continue_756:; } fornext_exit_756:; do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5633);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5633);}while(r); } } S_6608:; if ((-(*__LONG_N>= 3 ))||new_error){ if(qbevent){evnt(5637);if(r)goto S_6608;} S_6609:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||new_error){ if(qbevent){evnt(5638);if(r)goto S_6609;} S_6610:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5639);if(r)goto S_6610;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip765; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip765; skip765: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5639);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5639);}while(r); } S_6614:; 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(5642);if(r)goto S_6614;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5643);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5643);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5646);}while(r); do{ *__LONG_IFTYPE= 0 ; if(!qbevent)break;evnt(5647);}while(r); S_6620:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ if(qbevent){evnt(5648);if(r)goto S_6620;} do{ *__LONG_IFTYPE= 1 ; if(!qbevent)break;evnt(5648);}while(r); } S_6623:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ if(qbevent){evnt(5649);if(r)goto S_6623;} do{ *__LONG_IFTYPE= 2 ; if(!qbevent)break;evnt(5649);}while(r); } S_6626:; if ((-(*__LONG_IFTYPE== 0 ))||new_error){ if(qbevent){evnt(5650);if(r)goto S_6626;} 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(5650);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5650);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5652);}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(5653);}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(5654);}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(5655);}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(5656);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass766= 2 ),&(pass767=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5658);}while(r); S_6636:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5659);if(r)goto S_6636;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5659);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("IF",2),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5660);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5661);}while(r); S_6641:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5662);if(r)goto S_6641;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5662);}while(r); } S_6644:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5663);if(r)goto S_6644;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass768= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5663);}while(r); } S_6647:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5664);if(r)goto S_6647;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5664);}while(r); } S_6650:; if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(5666);if(r)goto S_6650;} 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(5667);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5667);}while(r); } S_6654:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5670);if(r)goto S_6654;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip769; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); if (new_error) goto skip769; skip769: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5671);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip770; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); if (new_error) goto skip770; skip770: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5673);}while(r); } S_6659:; if ((-(*__LONG_IFTYPE== 1 ))||new_error){ if(qbevent){evnt(5676);if(r)goto S_6659;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("THEN",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5676);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5677);}while(r); S_6663:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(5677);if(r)goto S_6663;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5677);}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(5677);}while(r); } S_6668:; if ((-(*__LONG_IFTYPE== 2 ))||new_error){ if(qbevent){evnt(5679);if(r)goto S_6668;} do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5680);}while(r); } do{ *__LONG_THENGOTO= 1 ; if(!qbevent)break;evnt(5683);}while(r); do{ goto LABEL_FINISHEDLINE2; if(!qbevent)break;evnt(5684);}while(r); } } S_6675:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass772= 1 )),qbs_new_txt_len("ENDIF",5)))))||new_error){ if(qbevent){evnt(5689);if(r)goto S_6675;} S_6676:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ if(qbevent){evnt(5690);if(r)goto S_6676;} do{ qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5690);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5690);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5691);}while(r); S_6681:; if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ if(qbevent){evnt(5692);if(r)goto S_6681;} do{ qbs_set(__STRING_L,qbs_new_txt_len("END IF",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5693);}while(r); S_6683:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(5694);if(r)goto S_6683;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5694);}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(5694);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip774; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip774; skip774: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5697);}while(r); S_6690:; fornext_value776= 1 ; fornext_finalvalue776=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; fornext_step776= 1 ; if (fornext_step776<0) fornext_step_negative776=1; else fornext_step_negative776=0; if (new_error) goto fornext_error776; goto fornext_entrylabel776; while(1){ fornext_value776=fornext_step776+(*__LONG_I); fornext_entrylabel776: *__LONG_I=fornext_value776; if (fornext_step_negative776){ if (fornext_value776fornext_finalvalue776) break; } fornext_error776:; if(qbevent){evnt(5698);if(r)goto S_6690;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip777; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip777; skip777: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5699);}while(r); fornext_continue_775:; } fornext_exit_775:; do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5701);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5702);}while(r); } S_6696:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(5707);if(r)goto S_6696;} S_6697:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass778= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass779= 2 )),qbs_new_txt_len("IF",2)))))||new_error){ if(qbevent){evnt(5708);if(r)goto S_6697;} S_6698:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ if(qbevent){evnt(5711);if(r)goto S_6698;} do{ qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5711);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5711);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5712);}while(r); S_6703:; if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ if(qbevent){evnt(5713);if(r)goto S_6703;} do{ qbs_set(__STRING_L,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(5714);}while(r); S_6705:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(5715);if(r)goto S_6705;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5715);}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(5715);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip781; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip781; skip781: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5718);}while(r); S_6712:; fornext_value783= 1 ; fornext_finalvalue783=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; fornext_step783= 1 ; if (fornext_step783<0) fornext_step_negative783=1; else fornext_step_negative783=0; if (new_error) goto fornext_error783; goto fornext_entrylabel783; while(1){ fornext_value783=fornext_step783+(*__LONG_I); fornext_entrylabel783: *__LONG_I=fornext_value783; if (fornext_step_negative783){ if (fornext_value783fornext_finalvalue783) break; } fornext_error783:; if(qbevent){evnt(5719);if(r)goto S_6712;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip784; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip784; skip784: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5720);}while(r); fornext_continue_782:; } fornext_exit_782:; do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5722);}while(r); do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5723);}while(r); } } S_6719:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5730);if(r)goto S_6719;} S_6720:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ if(qbevent){evnt(5731);if(r)goto S_6720;} S_6721:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5732);if(r)goto S_6721;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip785; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip785; skip785: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5732);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5732);}while(r); } S_6725:; 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(5735);if(r)goto S_6725;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5736);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5736);}while(r); } do{ *__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ; if(!qbevent)break;evnt(5739);}while(r); S_6730:; if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ if(qbevent){evnt(5740);if(r)goto S_6730;} do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_EVERYCASESET[2]&1){ preserved_elements=__ARRAY_LONG_EVERYCASESET[5]; } else preserved_elements=0; __ARRAY_LONG_EVERYCASESET[4]= 0 ; __ARRAY_LONG_EVERYCASESET[5]=(*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4]+1; __ARRAY_LONG_EVERYCASESET[6]=1; if (__ARRAY_LONG_EVERYCASESET[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_EVERYCASESET[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_EVERYCASESET[0])); tmp_long=__ARRAY_LONG_EVERYCASESET[5]; __ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_EVERYCASESET[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ preserved_elements=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]; } else preserved_elements=0; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=(*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1; if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); tmp_long=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]; __ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementslen))||new_error){ if(qbevent){evnt(5758);if(r)goto S_6765;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5758);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5758);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5759);}while(r); S_6771:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5760);if(r)goto S_6771;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5760);}while(r); } do{ *__LONG_U=FUNC_UNIQUENUMBER(); if(!qbevent)break;evnt(5761);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5763);}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(5764);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5766);}while(r); S_6778:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(5767);if(r)goto S_6778;} do{ *__LONG_T= 0 ; if(!qbevent)break;evnt(5768);}while(r); S_6780:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ if(qbevent){evnt(5769);if(r)goto S_6780;} 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(5770);}while(r); }else{ S_6783:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5772);if(r)goto S_6783;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass789= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5772);}while(r); } S_6786:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5773);if(r)goto S_6786;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5773);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip790; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip790; skip790: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5774);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip791; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip791; skip791: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5775);}while(r); S_6791:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5776);if(r)goto S_6791;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip792; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip792; skip792: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5776);}while(r); } } }else{ S_6796:; if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(5781);if(r)goto S_6796;} S_6797:; if ((-((*__LONG_TYP& 511 )> 64 ))||new_error){ if(qbevent){evnt(5783);if(r)goto S_6797;} do{ *__LONG_T= 3 ; if(!qbevent)break;evnt(5783);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5783);}while(r); } S_6801:; if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(5784);if(r)goto S_6801;} do{ *__LONG_T= 4 ; if(!qbevent)break;evnt(5784);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5784);}while(r); } S_6805:; if ((-((*__LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(5785);if(r)goto S_6805;} do{ *__LONG_T= 5 ; if(!qbevent)break;evnt(5785);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5785);}while(r); } S_6809:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ if(qbevent){evnt(5786);if(r)goto S_6809;} 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(5787);}while(r); }else{ S_6812:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5789);if(r)goto S_6812;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass793= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5789);}while(r); } S_6815:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5790);if(r)goto S_6815;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5790);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip794; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip794; skip794: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5792);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip795; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip795; skip795: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5793);}while(r); S_6820:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5794);if(r)goto S_6820;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip796; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip796; skip796: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5794);}while(r); } } }else{ do{ *__LONG_T= 1 ; if(!qbevent)break;evnt(5800);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5800);}while(r); S_6827:; if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(5801);if(r)goto S_6827;} S_6828:; if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ if(qbevent){evnt(5802);if(r)goto S_6828;} do{ *__LONG_T= 7 ; if(!qbevent)break;evnt(5802);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("uint32",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5802);}while(r); } S_6832:; if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ if(qbevent){evnt(5803);if(r)goto S_6832;} do{ *__LONG_T= 2 ; if(!qbevent)break;evnt(5803);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("uint64",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5803);}while(r); } }else{ S_6837:; if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ if(qbevent){evnt(5805);if(r)goto S_6837;} do{ *__LONG_T= 6 ; if(!qbevent)break;evnt(5805);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5805);}while(r); } S_6841:; if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ if(qbevent){evnt(5806);if(r)goto S_6841;} do{ *__LONG_T= 1 ; if(!qbevent)break;evnt(5806);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5806);}while(r); } } S_6846:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ if(qbevent){evnt(5808);if(r)goto S_6846;} 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(5809);}while(r); }else{ S_6849:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(5811);if(r)goto S_6849;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass797= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5811);}while(r); } S_6852:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5812);if(r)goto S_6852;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5812);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip798; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip798; skip798: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5813);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip799; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip799; skip799: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5814);}while(r); S_6857:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(5815);if(r)goto S_6857;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip800; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip800; skip800: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5815);}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(5823);}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(5824);}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(5825);}while(r); S_6866:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ if(qbevent){evnt(5826);if(r)goto S_6866;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip801; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip801; skip801: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5826);}while(r); } S_6869:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ if(qbevent){evnt(5827);if(r)goto S_6869;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip802; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip802; skip802: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5827);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(5828);}while(r); } } S_6875:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(5834);if(r)goto S_6875;} S_6876:; 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(5835);if(r)goto S_6876;} S_6877:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ if(qbevent){evnt(5839);if(r)goto S_6877;} do{ *__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; if(!qbevent)break;evnt(5840);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip803; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6)), 0 , 0 , 1 ); if (new_error) goto skip803; skip803: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5841);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5842);}while(r); S_6881:; if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ if(qbevent){evnt(5843);if(r)goto S_6881;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip804; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip804; skip804: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5843);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip805; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip805; skip805: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5844);}while(r); } S_6886:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ if(qbevent){evnt(5846);if(r)goto S_6886;} do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5847);}while(r); S_6888:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ if(qbevent){evnt(5848);if(r)goto S_6888;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip806; sub_file_print(tmp_fileno,qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36), 0 , 0 , 1 ); if (new_error) goto skip806; skip806: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5848);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip807; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip807; skip807: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5850);}while(r); S_6893:; 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(5851);if(r)goto S_6893;} 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(5851);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5851);}while(r); } S_6897:; 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(5853);if(r)goto S_6897;} S_6898:; if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ if(qbevent){evnt(5855);if(r)goto S_6898;} 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(5856);}while(r); } } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5860);}while(r); do{ *__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ; if(!qbevent)break;evnt(5861);}while(r); do{ qbs_set(__STRING_L,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(5862);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5863);}while(r); S_6906:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5863);if(r)goto S_6906;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5863);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5863);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5864);}while(r); } } S_6914:; 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(5869);if(r)goto S_6914;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5870);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5870);}while(r); } S_6918:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(5875);if(r)goto S_6918;} S_6919:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ if(qbevent){evnt(5876);if(r)goto S_6919;} do{ qbs_set(__STRING_L,qbs_new_txt_len("CASE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5878);}while(r); S_6921:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ if(qbevent){evnt(5882);if(r)goto S_6921;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5882);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5882);}while(r); } S_6925:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ if(qbevent){evnt(5883);if(r)goto S_6925;} do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5884);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; if(!qbevent)break;evnt(5885);}while(r); do{ *__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; if(!qbevent)break;evnt(5886);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip809; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6)), 0 , 0 , 1 ); if (new_error) goto skip809; skip809: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5887);}while(r); S_6930:; if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ if(qbevent){evnt(5888);if(r)goto S_6930;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip810; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip810; skip810: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5889);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip811; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip811; skip811: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5891);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip812; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip812; skip812: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5893);}while(r); } S_6937:; 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(5899);if(r)goto S_6937;} do{ qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5899);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5899);}while(r); } S_6941:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(5900);if(r)goto S_6941;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5900);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5900);}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(5901);}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(5934);}while(r); do{ *__LONG_FLT= 0 ; if(!qbevent)break;evnt(5936);}while(r); S_6948:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(5937);if(r)goto S_6948;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5937);}while(r); } S_6951:; if ((-(*__LONG_T== 1 ))||new_error){ if(qbevent){evnt(5938);if(r)goto S_6951;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5938);}while(r); } S_6954:; if ((-(*__LONG_T== 2 ))||new_error){ if(qbevent){evnt(5939);if(r)goto S_6954;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5939);}while(r); } S_6957:; if ((-(*__LONG_T== 3 ))||new_error){ if(qbevent){evnt(5940);if(r)goto S_6957;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5940);}while(r); do{ *__LONG_FLT= 1 ; if(!qbevent)break;evnt(5940);}while(r); } S_6961:; if ((-(*__LONG_T== 4 ))||new_error){ if(qbevent){evnt(5941);if(r)goto S_6961;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5941);}while(r); do{ *__LONG_FLT= 1 ; if(!qbevent)break;evnt(5941);}while(r); } S_6965:; if ((-(*__LONG_T== 5 ))||new_error){ if(qbevent){evnt(5942);if(r)goto S_6965;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5942);}while(r); do{ *__LONG_FLT= 1 ; if(!qbevent)break;evnt(5942);}while(r); } S_6969:; if ((-(*__LONG_T== 6 ))||new_error){ if(qbevent){evnt(5943);if(r)goto S_6969;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5943);}while(r); } S_6972:; if ((-(*__LONG_T== 7 ))||new_error){ if(qbevent){evnt(5944);if(r)goto S_6972;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5944);}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(5946);}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(5947);}while(r); S_6977:; if ((*__LONG_CV)||new_error){ if(qbevent){evnt(5948);if(r)goto S_6977;} do{ qbs_set(__STRING_N,FUNC_REFER(FUNC_STR2(__LONG_CV),&(pass813= 0 ),&(pass814= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5949);}while(r); S_6979:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(5950);if(r)goto S_6979;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5950);}while(r); } } S_6983:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(5954);if(r)goto S_6983;} S_6984:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass815= 2 )),qbs_new_txt_len("C-EL",4))))||new_error){ if(qbevent){evnt(5955);if(r)goto S_6984;} S_6985:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ if(qbevent){evnt(5956);if(r)goto S_6985;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip816; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip816; skip816: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5956);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(5957);}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(5957);}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(5958);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("ELSE",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5959);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(5960);}while(r); S_6993:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(5960);if(r)goto S_6993;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5960);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5960);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(5961);}while(r); } } S_7001:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(5965);if(r)goto S_7001;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip818; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip818; skip818: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5965);}while(r); do{ *__LONG_DYNSCOPE= 1 ; if(!qbevent)break;evnt(5965);}while(r); } do{ qbs_set(__STRING_F12,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5969);}while(r); do{ *__LONG_NEXP= 0 ; if(!qbevent)break;evnt(5971);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(5972);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5973);}while(r); S_7009:; fornext_value820= 2 ; fornext_finalvalue820=*__LONG_N; fornext_step820= 1 ; if (fornext_step820<0) fornext_step_negative820=1; else fornext_step_negative820=0; if (new_error) goto fornext_error820; goto fornext_entrylabel820; while(1){ fornext_value820=fornext_step820+(*__LONG_I); fornext_entrylabel820: *__LONG_I=fornext_value820; if (fornext_step_negative820){ if (fornext_value820fornext_finalvalue820) break; } fornext_error820:; if(qbevent){evnt(5974);if(r)goto S_7009;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5975);}while(r); S_7011:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(5976);if(r)goto S_7011;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(5976);}while(r); } S_7014:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(5977);if(r)goto S_7014;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(5977);}while(r); } S_7017:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(5978);if(r)goto S_7017;} 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(5978);}while(r); } S_7020:; 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(5979);if(r)goto S_7020;} S_7021:; if ((-(*__LONG_NEXP!= 0 ))||new_error){ if(qbevent){evnt(5980);if(r)goto S_7021;} 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(5980);}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(5980);}while(r); } S_7025:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(5981);if(r)goto S_7025;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5981);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5981);}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(5982);}while(r); do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5987);}while(r); do{ *__LONG_B2= 0 ; if(!qbevent)break;evnt(5988);}while(r); do{ qbs_set(__STRING_EL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5989);}while(r); do{ qbs_set(__STRING_ER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5989);}while(r); do{ *__LONG_USEDTO= 0 ; if(!qbevent)break;evnt(5990);}while(r); S_7035:; fornext_value823= 1 ; fornext_finalvalue823=*__LONG_N2; 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_I2); fornext_entrylabel823: *__LONG_I2=fornext_value823; if (fornext_step_negative823){ if (fornext_value823fornext_finalvalue823) break; } fornext_error823:; if(qbevent){evnt(5991);if(r)goto S_7035;} do{ qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5992);}while(r); S_7037:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(5993);if(r)goto S_7037;} do{ *__LONG_B2=*__LONG_B2+ 1 ; if(!qbevent)break;evnt(5993);}while(r); } S_7040:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(5994);if(r)goto S_7040;} do{ *__LONG_B2=*__LONG_B2- 1 ; if(!qbevent)break;evnt(5994);}while(r); } S_7043:; 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(5995);if(r)goto S_7043;} do{ *__LONG_USEDTO= 1 ; if(!qbevent)break;evnt(5996);}while(r); }else{ S_7046:; if ((-(*__LONG_USEDTO== 0 ))||new_error){ if(qbevent){evnt(5998);if(r)goto S_7046;} 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(5998);}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(5998);}while(r); } } fornext_continue_822:; } fornext_exit_822:; S_7053:; if ((-(*__LONG_USEDTO== 1 ))||new_error){ if(qbevent){evnt(6001);if(r)goto S_7053;} S_7054:; 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(6002);if(r)goto S_7054;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6002);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6002);}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(6003);}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(6003);}while(r); S_7060:; fornext_value827= 1 ; fornext_finalvalue827= 2 ; fornext_step827= 1 ; if (fornext_step827<0) fornext_step_negative827=1; else fornext_step_negative827=0; if (new_error) goto fornext_error827; goto fornext_entrylabel827; while(1){ fornext_value827=fornext_step827+(*__LONG_I2); fornext_entrylabel827: *__LONG_I2=fornext_value827; if (fornext_step_negative827){ if (fornext_value827fornext_finalvalue827) break; } fornext_error827:; if(qbevent){evnt(6005);if(r)goto S_7060;} S_7061:; if ((-(*__LONG_I2== 1 ))||new_error){ if(qbevent){evnt(6006);if(r)goto S_7061;} do{ qbs_set(__STRING_E,__STRING_EL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6006);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_ER); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6006);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6007);}while(r); S_7067:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6008);if(r)goto S_7067;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6008);}while(r); } S_7070:; if ((-(*__LONG_I2== 1 ))||new_error){ if(qbevent){evnt(6009);if(r)goto S_7070;} 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(6009);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6009);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6010);}while(r); S_7076:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6011);if(r)goto S_7076;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6011);}while(r); } S_7079:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(6012);if(r)goto S_7079;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass828= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6012);}while(r); } S_7082:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6013);if(r)goto S_7082;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6013);}while(r); } S_7085:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(6014);if(r)goto S_7085;} S_7086:; if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(6015);if(r)goto S_7086;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6015);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6015);}while(r); } S_7090:; if ((-(*__LONG_I2== 1 ))||new_error){ if(qbevent){evnt(6016);if(r)goto S_7090;} 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(6016);}while(r); } S_7093:; if ((-(*__LONG_I2== 2 ))||new_error){ if(qbevent){evnt(6017);if(r)goto S_7093;} 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(6017);}while(r); } }else{ S_7097:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(6019);if(r)goto S_7097;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6019);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6019);}while(r); } S_7101:; if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(6021);if(r)goto S_7101;} S_7102:; if ((-(*__LONG_T== 1 ))||new_error){ if(qbevent){evnt(6022);if(r)goto S_7102;} 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(6022);}while(r); } S_7105:; if ((-(*__LONG_T== 2 ))||new_error){ if(qbevent){evnt(6023);if(r)goto S_7105;} 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(6023);}while(r); } S_7108:; if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ if(qbevent){evnt(6024);if(r)goto S_7108;} 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(6024);}while(r); } } S_7112:; if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ if(qbevent){evnt(6027);if(r)goto S_7112;} 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(6027);}while(r); } S_7115:; if ((-(*__LONG_I2== 1 ))||new_error){ if(qbevent){evnt(6028);if(r)goto S_7115;} 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(6028);}while(r); } S_7118:; if ((-(*__LONG_I2== 2 ))||new_error){ if(qbevent){evnt(6029);if(r)goto S_7118;} 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(6029);}while(r); } } fornext_continue_826:; } fornext_exit_826:; do{ goto LABEL_ADDEDEXP; if(!qbevent)break;evnt(6032);}while(r); } do{ qbs_set(__STRING_O,qbs_new_txt_len("==",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6054);}while(r); do{ qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass830= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6057);}while(r); S_7127:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||new_error){ if(qbevent){evnt(6058);if(r)goto S_7127;} S_7128:; 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(6059);if(r)goto S_7128;} 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(6060);}while(r); do{ qbs_set(__STRING_X,qbs_new_txt_len("IS",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6061);}while(r); } } S_7133:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||new_error){ if(qbevent){evnt(6064);if(r)goto S_7133;} do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6065);}while(r); S_7135:; if ((-(*__LONG_N2< 3 ))||new_error){ if(qbevent){evnt(6066);if(r)goto S_7135;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6066);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6066);}while(r); } do{ qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass831= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6067);}while(r); do{ qbs_set(__STRING_O2,__STRING_O); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6068);}while(r); do{ *__LONG_O= 0 ; if(!qbevent)break;evnt(6069);}while(r); S_7142:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(6070);if(r)goto S_7142;} do{ qbs_set(__STRING_O,qbs_new_txt_len("==",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6070);}while(r); do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6070);}while(r); } S_7146:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(6071);if(r)goto S_7146;} do{ qbs_set(__STRING_O,qbs_new_txt_len("!=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6071);}while(r); do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6071);}while(r); } S_7150:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(6072);if(r)goto S_7150;} do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6072);}while(r); } S_7153:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(6073);if(r)goto S_7153;} do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6073);}while(r); } S_7156:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(6074);if(r)goto S_7156;} do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6074);}while(r); } S_7159:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(6075);if(r)goto S_7159;} do{ *__LONG_O= 1 ; if(!qbevent)break;evnt(6075);}while(r); } S_7162:; if ((-(*__LONG_O!= 1 ))||new_error){ if(qbevent){evnt(6076);if(r)goto S_7162;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6076);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6076);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("IS",2)),__STRING1_SP),__STRING_O2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6077);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass832= 3 ),__LONG_N2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6078);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6083);}while(r); S_7170:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6084);if(r)goto S_7170;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6084);}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(6085);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6086);}while(r); S_7175:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6087);if(r)goto S_7175;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6087);}while(r); } S_7178:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(6088);if(r)goto S_7178;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass833= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6088);}while(r); } S_7181:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6089);if(r)goto S_7181;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6089);}while(r); } S_7184:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(6090);if(r)goto S_7184;} S_7185:; if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(6092);if(r)goto S_7185;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6092);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6092);}while(r); } S_7189:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||new_error){ if(qbevent){evnt(6093);if(r)goto S_7189;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6093);}while(r); } S_7192:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||new_error){ if(qbevent){evnt(6094);if(r)goto S_7192;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6094);}while(r); } S_7195:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(6095);if(r)goto S_7195;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6095);}while(r); } S_7198:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(6096);if(r)goto S_7198;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6096);}while(r); } S_7201:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(6097);if(r)goto S_7201;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6097);}while(r); } S_7204:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(6098);if(r)goto S_7204;} do{ qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6098);}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(6099);}while(r); }else{ S_7209:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(6102);if(r)goto S_7209;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6102);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6102);}while(r); } S_7213:; if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(6104);if(r)goto S_7213;} S_7214:; if ((-(*__LONG_T== 1 ))||new_error){ if(qbevent){evnt(6105);if(r)goto S_7214;} 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(6105);}while(r); } S_7217:; if ((-(*__LONG_T== 2 ))||new_error){ if(qbevent){evnt(6106);if(r)goto S_7217;} 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(6106);}while(r); } S_7220:; if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ if(qbevent){evnt(6107);if(r)goto S_7220;} 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(6107);}while(r); } } S_7224:; if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ if(qbevent){evnt(6110);if(r)goto S_7224;} 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(6110);}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(6111);}while(r); } LABEL_ADDEDEXP:; if(qbevent){evnt(6114);r=0;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6115);}while(r); do{ *__LONG_NEXP=*__LONG_NEXP+ 1 ; if(!qbevent)break;evnt(6116);}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(6118);}while(r); } fornext_continue_819:; } fornext_exit_819:; S_7235:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(6122);if(r)goto S_7235;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip835; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); if (new_error) goto skip835; skip835: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6123);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip836; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); if (new_error) goto skip836; skip836: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6125);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6128);}while(r); S_7241:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6128);if(r)goto S_7241;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6128);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6128);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; if(!qbevent)break;evnt(6129);}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(6130);}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(6131);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6132);}while(r); } } S_7252:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(6149);if(r)goto S_7252;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip838; sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); if (new_error) goto skip838; skip838: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6150);}while(r); } S_7255:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(6155);if(r)goto S_7255;} S_7256:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||new_error){ if(qbevent){evnt(6156);if(r)goto S_7256;} S_7257:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ if(qbevent){evnt(6157);if(r)goto S_7257;} do{ qbs_set(__STRING_L,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(6158);}while(r); S_7259:; if ((-(*__LONG_N< 3 ))||new_error){ if(qbevent){evnt(6159);if(r)goto S_7259;} 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(6159);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6159);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass839= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6161);}while(r); S_7264:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||new_error){ if(qbevent){evnt(6162);if(r)goto S_7264;} S_7265:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6163);if(r)goto S_7265;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6163);}while(r); } do{ *__LONG_Z= 1 ; if(!qbevent)break;evnt(6164);}while(r); do{ *__LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(6165);}while(r); S_7270:; if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||new_error){ if(qbevent){evnt(6166);if(r)goto S_7270;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6166);}while(r); } S_7273:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(6167);if(r)goto S_7273;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6167);}while(r); } S_7276:; if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(6168);if(r)goto S_7276;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6168);}while(r); } S_7279:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(6169);if(r)goto S_7279;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6169);}while(r); } S_7282:; if ((*__LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(6170);if(r)goto S_7282;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6170);}while(r); } S_7285:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(6171);if(r)goto S_7285;} do{ *__LONG_Z= 0 ; if(!qbevent)break;evnt(6171);}while(r); } S_7288:; if ((-(*__LONG_Z== 0 ))||new_error){ if(qbevent){evnt(6172);if(r)goto S_7288;} 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(6172);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6172);}while(r); } do{ *__LONG_BITS=*__LONG_T& 511 ; if(!qbevent)break;evnt(6173);}while(r); do{ goto LABEL_PU_GOTARRAY; if(!qbevent)break;evnt(6174);}while(r); } S_7295:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6176);if(r)goto S_7295;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6176);}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(6177);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6177);}while(r); LABEL_PU_GOTARRAY:; if(qbevent){evnt(6178);r=0;} S_7300:; if ((-(*__LONG_N== 3 ))||new_error){ if(qbevent){evnt(6180);if(r)goto S_7300;} 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(6181);}while(r); }else{ S_7303:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass840= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ if(qbevent){evnt(6183);if(r)goto S_7303;} 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(6183);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6183);}while(r); } do{ qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass841= 4 ),__LONG_N))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6184);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6186);}while(r); S_7310:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6187);if(r)goto S_7310;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6187);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6188);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass842= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6189);}while(r); S_7315:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6190);if(r)goto S_7315;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6190);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip843; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip843; skip843: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6191);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6192);}while(r); S_7320:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6192);if(r)goto S_7320;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6192);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6192);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6193);}while(r); } } } S_7329:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||new_error){ if(qbevent){evnt(6199);if(r)goto S_7329;} S_7330:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(6200);if(r)goto S_7330;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6200);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6200);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("KEY",3),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6201);}while(r); S_7335:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||new_error){ if(qbevent){evnt(6202);if(r)goto S_7335;} S_7336:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(6203);if(r)goto S_7336;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6203);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6203);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_new_txt_len("OFF",3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6204);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6204);}while(r); S_7342:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6204);if(r)goto S_7342;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6204);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6204);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip846; sub_file_print(tmp_fileno,qbs_new_txt_len("key_off();",10), 0 , 0 , 1 ); if (new_error) goto skip846; skip846: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6205);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6206);}while(r); } S_7350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||new_error){ if(qbevent){evnt(6208);if(r)goto S_7350;} S_7351:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(6209);if(r)goto S_7351;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6209);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6209);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_new_txt_len("ON",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6210);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6210);}while(r); S_7357:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6210);if(r)goto S_7357;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6210);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6210);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip848; sub_file_print(tmp_fileno,qbs_new_txt_len("key_on();",9), 0 , 0 , 1 ); if (new_error) goto skip848; skip848: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6211);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6212);}while(r); } S_7365:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||new_error){ if(qbevent){evnt(6214);if(r)goto S_7365;} S_7366:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(6215);if(r)goto S_7366;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22)); 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_L,qbs_add(__STRING_L,qbs_new_txt_len("LIST",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6216);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6216);}while(r); S_7372:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6216);if(r)goto S_7372;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6216);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6216);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip850; sub_file_print(tmp_fileno,qbs_new_txt_len("key_list();",11), 0 , 0 , 1 ); if (new_error) goto skip850; skip850: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6217);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6218);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6221);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6221);}while(r); S_7382:; fornext_value852= 2 ; fornext_finalvalue852=*__LONG_N; fornext_step852= 1 ; if (fornext_step852<0) fornext_step_negative852=1; else fornext_step_negative852=0; if (new_error) goto fornext_error852; goto fornext_entrylabel852; while(1){ fornext_value852=fornext_step852+(*__LONG_I); fornext_entrylabel852: *__LONG_I=fornext_value852; if (fornext_step_negative852){ if (fornext_value852fornext_finalvalue852) break; } fornext_error852:; if(qbevent){evnt(6222);if(r)goto S_7382;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6223);}while(r); S_7384:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6224);if(r)goto S_7384;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6224);}while(r); } S_7387:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(6225);if(r)goto S_7387;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6225);}while(r); } S_7390:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(6226);if(r)goto S_7390;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6227);}while(r); do{ goto LABEL_KEY_ASSIGNMENT; if(!qbevent)break;evnt(6227);}while(r); } S_7394:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ if(qbevent){evnt(6229);if(r)goto S_7394;} 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(6229);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6229);}while(r); } fornext_continue_851:; } fornext_exit_851:; do{ goto LABEL_KEY_FALLTHROUGH; if(!qbevent)break;evnt(6232);}while(r); LABEL_KEY_ASSIGNMENT:; if(qbevent){evnt(6233);r=0;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6236);}while(r); S_7402:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6237);if(r)goto S_7402;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6237);}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(6238);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass854= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6239);}while(r); S_7407:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6240);if(r)goto S_7407;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6240);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip855; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip855; skip855: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6241);}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(6243);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6244);}while(r); S_7413:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6245);if(r)goto S_7413;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6245);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6246);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6247);}while(r); S_7418:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6248);if(r)goto S_7418;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6248);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip856; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip856; skip856: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6249);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6250);}while(r); S_7423:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6250);if(r)goto S_7423;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6250);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6250);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6251);}while(r); } LABEL_KEY_FALLTHROUGH:; if(qbevent){evnt(6253);r=0;} S_7430:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||new_error){ if(qbevent){evnt(6258);if(r)goto S_7430;} do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6261);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6261);}while(r); S_7433:; fornext_value859= 2 ; fornext_finalvalue859=*__LONG_N; fornext_step859= 1 ; if (fornext_step859<0) fornext_step_negative859=1; else fornext_step_negative859=0; if (new_error) goto fornext_error859; goto fornext_entrylabel859; while(1){ fornext_value859=fornext_step859+(*__LONG_I); fornext_entrylabel859: *__LONG_I=fornext_value859; if (fornext_step_negative859){ if (fornext_value859fornext_finalvalue859) break; } fornext_error859:; if(qbevent){evnt(6262);if(r)goto S_7433;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6263);}while(r); S_7435:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6264);if(r)goto S_7435;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6264);}while(r); } S_7438:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(6265);if(r)goto S_7438;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6265);}while(r); } S_7441:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(6266);if(r)goto S_7441;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6267);}while(r); do{ goto LABEL_FIELDGOTFN; if(!qbevent)break;evnt(6267);}while(r); } S_7445:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ if(qbevent){evnt(6269);if(r)goto S_7445;} 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(6269);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6269);}while(r); } fornext_continue_858:; } fornext_exit_858:; do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6271);}while(r); LABEL_FIELDGOTFN:; if(qbevent){evnt(6272);r=0;} S_7452:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||new_error){ if(qbevent){evnt(6273);if(r)goto S_7452;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6273);}while(r); } S_7455:; 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(6274);if(r)goto S_7455;} do{ qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6274);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(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(6274);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("FIELD",5),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6274);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6275);}while(r); S_7462:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6276);if(r)goto S_7462;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6276);}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(6277);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass863= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6278);}while(r); S_7467:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6279);if(r)goto S_7467;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6279);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip864; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip864; skip864: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6280);}while(r); LABEL_FIELDNEXT:; if(qbevent){evnt(6282);r=0;} S_7471:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6285);if(r)goto S_7471;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6285);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6286);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6286);}while(r); S_7476:; fornext_value866=*__LONG_I; fornext_finalvalue866=*__LONG_N; fornext_step866= 1 ; if (fornext_step866<0) fornext_step_negative866=1; else fornext_step_negative866=0; if (new_error) goto fornext_error866; goto fornext_entrylabel866; while(1){ fornext_value866=fornext_step866+(*__LONG_I); fornext_entrylabel866: *__LONG_I=fornext_value866; if (fornext_step_negative866){ if (fornext_value866fornext_finalvalue866) break; } fornext_error866:; if(qbevent){evnt(6287);if(r)goto S_7476;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6288);}while(r); S_7478:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6289);if(r)goto S_7478;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6289);}while(r); } S_7481:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(6290);if(r)goto S_7481;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6290);}while(r); } S_7484:; 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(6291);if(r)goto S_7484;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6292);}while(r); do{ goto LABEL_FIELDGOTFW; if(!qbevent)break;evnt(6292);}while(r); } S_7488:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ if(qbevent){evnt(6294);if(r)goto S_7488;} 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(6294);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6294);}while(r); } fornext_continue_865:; } fornext_exit_865:; do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6296);}while(r); LABEL_FIELDGOTFW:; if(qbevent){evnt(6297);r=0;} S_7495:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(6298);if(r)goto S_7495;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6298);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6299);}while(r); S_7499:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6300);if(r)goto S_7499;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6300);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6301);}while(r); do{ qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass869= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6302);}while(r); S_7504:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6303);if(r)goto S_7504;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6303);}while(r); } S_7507:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6306);if(r)goto S_7507;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6306);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6307);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6307);}while(r); S_7512:; fornext_value871=*__LONG_I; fornext_finalvalue871=*__LONG_N; fornext_step871= 1 ; if (fornext_step871<0) fornext_step_negative871=1; else fornext_step_negative871=0; if (new_error) goto fornext_error871; goto fornext_entrylabel871; while(1){ fornext_value871=fornext_step871+(*__LONG_I); fornext_entrylabel871: *__LONG_I=fornext_value871; if (fornext_step_negative871){ if (fornext_value871fornext_finalvalue871) break; } fornext_error871:; if(qbevent){evnt(6308);if(r)goto S_7512;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6309);}while(r); S_7514:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6310);if(r)goto S_7514;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6310);}while(r); } S_7517:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(6311);if(r)goto S_7517;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6311);}while(r); } S_7520:; 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(6312);if(r)goto S_7520;} S_7521:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(6313);if(r)goto S_7521;} do{ *__LONG_I=*__LONG_I- 1 ; if(!qbevent)break;evnt(6313);}while(r); } S_7524:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(6314);if(r)goto S_7524;} S_7525:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ if(qbevent){evnt(6315);if(r)goto S_7525;} 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(6315);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6315);}while(r); } } do{ goto LABEL_FIELDGOTFNAME; if(!qbevent)break;evnt(6317);}while(r); } S_7533:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ if(qbevent){evnt(6319);if(r)goto S_7533;} 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(6319);}while(r); }else{ do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6319);}while(r); } fornext_continue_870:; } fornext_exit_870:; do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6321);}while(r); LABEL_FIELDGOTFNAME:; if(qbevent){evnt(6322);r=0;} S_7540:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(6323);if(r)goto S_7540;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6323);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6325);}while(r); S_7544:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6326);if(r)goto S_7544;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6326);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6327);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6328);}while(r); S_7549:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6329);if(r)goto S_7549;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6329);}while(r); } S_7552:; if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(6330);if(r)goto S_7552;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6330);}while(r); } S_7555:; if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(6331);if(r)goto S_7555;} 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(6331);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6331);}while(r); } S_7559:; if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(6332);if(r)goto S_7559;} do{ goto LABEL_FIELDERROR; if(!qbevent)break;evnt(6332);}while(r); } do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass875= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6333);}while(r); S_7563:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6334);if(r)goto S_7563;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6334);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip876; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip876; skip876: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6335);}while(r); S_7567:; if ((-(*__LONG_I<*__LONG_N))||new_error){ if(qbevent){evnt(6337);if(r)goto S_7567;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6338);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6339);}while(r); S_7570:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(6340);if(r)goto S_7570;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6340);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6340);}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(6341);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6342);}while(r); do{ goto LABEL_FIELDNEXT; if(!qbevent)break;evnt(6343);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6346);}while(r); S_7579:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6346);if(r)goto S_7579;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6346);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6346);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6347);}while(r); LABEL_FIELDERROR:; if(qbevent){evnt(6349);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(6349);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6349);}while(r); } S_7588:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(6362);if(r)goto S_7588;} S_7589:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ if(qbevent){evnt(6363);if(r)goto S_7589;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6365);}while(r); S_7591:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||new_error){ if(qbevent){evnt(6367);if(r)goto S_7591;} S_7592:; fornext_value879=*__INTEGER_CONTROLLEVEL; fornext_finalvalue879= 1 ; fornext_step879= -1 ; if (fornext_step879<0) fornext_step_negative879=1; else fornext_step_negative879=0; if (new_error) goto fornext_error879; goto fornext_entrylabel879; while(1){ fornext_value879=fornext_step879+(*__LONG_I); fornext_entrylabel879: *__LONG_I=fornext_value879; if (fornext_step_negative879){ if (fornext_value879fornext_finalvalue879) break; } fornext_error879:; if(qbevent){evnt(6369);if(r)goto S_7592;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(6370);}while(r); S_7594:; if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||new_error){ if(qbevent){evnt(6371);if(r)goto S_7594;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip880; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip880; skip880: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6372);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6373);}while(r); S_7597:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6373);if(r)goto S_7597;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6373);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6373);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6374);}while(r); } fornext_continue_878:; } fornext_exit_878:; do{ qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6377);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6377);}while(r); } S_7608:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ if(qbevent){evnt(6380);if(r)goto S_7608;} S_7609:; fornext_value883=*__INTEGER_CONTROLLEVEL; fornext_finalvalue883= 1 ; fornext_step883= -1 ; if (fornext_step883<0) fornext_step_negative883=1; else fornext_step_negative883=0; if (new_error) goto fornext_error883; goto fornext_entrylabel883; while(1){ fornext_value883=fornext_step883+(*__LONG_I); fornext_entrylabel883: *__LONG_I=fornext_value883; if (fornext_step_negative883){ if (fornext_value883fornext_finalvalue883) break; } fornext_error883:; if(qbevent){evnt(6382);if(r)goto S_7609;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(6383);}while(r); S_7611:; if ((-(*__LONG_T== 2 ))||new_error){ if(qbevent){evnt(6384);if(r)goto S_7611;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip884; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip884; skip884: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6385);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6386);}while(r); S_7614:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6386);if(r)goto S_7614;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6386);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6386);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6387);}while(r); } fornext_continue_882:; } fornext_exit_882:; do{ qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6390);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6390);}while(r); } S_7625:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ if(qbevent){evnt(6393);if(r)goto S_7625;} S_7626:; fornext_value887=*__INTEGER_CONTROLLEVEL; fornext_finalvalue887= 1 ; fornext_step887= -1 ; if (fornext_step887<0) fornext_step_negative887=1; else fornext_step_negative887=0; if (new_error) goto fornext_error887; goto fornext_entrylabel887; while(1){ fornext_value887=fornext_step887+(*__LONG_I); fornext_entrylabel887: *__LONG_I=fornext_value887; if (fornext_step_negative887){ if (fornext_value887fornext_finalvalue887) break; } fornext_error887:; if(qbevent){evnt(6395);if(r)goto S_7626;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(6396);}while(r); S_7628:; if ((-(*__LONG_T== 5 ))||new_error){ if(qbevent){evnt(6397);if(r)goto S_7628;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip888; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip888; skip888: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6398);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6399);}while(r); S_7631:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6399);if(r)goto S_7631;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6399);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6399);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6400);}while(r); } fornext_continue_886:; } fornext_exit_886:; do{ qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6403);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6403);}while(r); } S_7642:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ if(qbevent){evnt(6406);if(r)goto S_7642;} S_7643:; fornext_value891=*__INTEGER_CONTROLLEVEL; fornext_finalvalue891= 1 ; fornext_step891= -1 ; if (fornext_step891<0) fornext_step_negative891=1; else fornext_step_negative891=0; if (new_error) goto fornext_error891; goto fornext_entrylabel891; while(1){ fornext_value891=fornext_step891+(*__LONG_I); fornext_entrylabel891: *__LONG_I=fornext_value891; if (fornext_step_negative891){ if (fornext_value891fornext_finalvalue891) break; } fornext_error891:; if(qbevent){evnt(6408);if(r)goto S_7643;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(6409);}while(r); S_7645:; if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||new_error){ if(qbevent){evnt(6410);if(r)goto S_7645;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip892; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip892; skip892: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6411);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6412);}while(r); S_7648:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6412);if(r)goto S_7648;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6412);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6412);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6413);}while(r); } fornext_continue_890:; } fornext_exit_890:; do{ qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6416);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6416);}while(r); } S_7659:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ if(qbevent){evnt(6419);if(r)goto S_7659;} S_7660:; fornext_value895=*__INTEGER_CONTROLLEVEL; fornext_finalvalue895= 1 ; fornext_step895= -1 ; if (fornext_step895<0) fornext_step_negative895=1; else fornext_step_negative895=0; if (new_error) goto fornext_error895; goto fornext_entrylabel895; while(1){ fornext_value895=fornext_step895+(*__LONG_I); fornext_entrylabel895: *__LONG_I=fornext_value895; if (fornext_step_negative895){ if (fornext_value895fornext_finalvalue895) break; } fornext_error895:; if(qbevent){evnt(6421);if(r)goto S_7660;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(6422);}while(r); S_7662:; if ((-(*__LONG_T== 18 ))||new_error){ if(qbevent){evnt(6423);if(r)goto S_7662;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip896; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),FUNC_STR2(&(pass897=*__LONG_EVERYCASENEWCASE+ 1 ))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); if (new_error) goto skip896; skip896: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6424);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6425);}while(r); S_7665:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6425);if(r)goto S_7665;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6425);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6425);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6426);}while(r); S_7671:; }else{ if (-(*__LONG_T== 19 )){ if(qbevent){evnt(6427);if(r)goto S_7671;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip899; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip899; skip899: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6428);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6429);}while(r); S_7674:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(6429);if(r)goto S_7674;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6429);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6429);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6430);}while(r); } } fornext_continue_894:; } fornext_exit_894:; do{ qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6433);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6433);}while(r); } } } S_7687:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(6446);if(r)goto S_7687;} S_7688:; 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(6447);if(r)goto S_7688;} 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(6448);}while(r); do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(6449);}while(r); S_7691:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6450);if(r)goto S_7691;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6450);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6450);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6451);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6451);}while(r); S_7697:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6452);if(r)goto S_7697;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6452);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6452);}while(r); } do{ qbs_set(__STRING_L,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(6453);}while(r); S_7702:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6454);if(r)goto S_7702;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6454);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6454);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6455);}while(r); do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6456);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6457);}while(r); do{ qbs_set(__STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6458);}while(r); S_7710:; fornext_value902=*__LONG_I; fornext_finalvalue902=*__LONG_N; fornext_step902= 1 ; if (fornext_step902<0) fornext_step_negative902=1; else fornext_step_negative902=0; if (new_error) goto fornext_error902; goto fornext_entrylabel902; while(1){ fornext_value902=fornext_step902+(*__LONG_I); fornext_entrylabel902: *__LONG_I=fornext_value902; if (fornext_step_negative902){ if (fornext_value902fornext_finalvalue902) break; } fornext_error902:; if(qbevent){evnt(6459);if(r)goto S_7710;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6460);}while(r); do{ *__LONG_A=qbs_asc(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6461);}while(r); S_7713:; if ((-(*__LONG_A== 40 ))||new_error){ if(qbevent){evnt(6462);if(r)goto S_7713;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6462);}while(r); } S_7716:; if ((-(*__LONG_A== 41 ))||new_error){ if(qbevent){evnt(6463);if(r)goto S_7716;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6463);}while(r); } S_7719:; if ((-(*__LONG_B== -1 ))||new_error){ if(qbevent){evnt(6464);if(r)goto S_7719;} do{ goto LABEL_ONSTRIGGOTARG; if(!qbevent)break;evnt(6464);}while(r); } S_7722:; if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ if(qbevent){evnt(6465);if(r)goto S_7722;} do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(6466);}while(r); S_7724:; if ((-(*__LONG_X> 1 ))||new_error){ if(qbevent){evnt(6467);if(r)goto S_7724;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6467);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6467);}while(r); } S_7728:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(6468);if(r)goto S_7728;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6468);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6468);}while(r); } do{ qbs_set(__STRING_E3,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6469);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6470);}while(r); }else{ S_7735:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ if(qbevent){evnt(6472);if(r)goto S_7735;} 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(6472);}while(r); }else{ do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6472);}while(r); } } fornext_continue_901:; } fornext_exit_901:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6475);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6475);}while(r); LABEL_ONSTRIGGOTARG:; if(qbevent){evnt(6476);r=0;} S_7744:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(6477);if(r)goto S_7744;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6477);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6477);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip904; sub_file_print(tmp_fileno,qbs_new_txt_len("onstrig_setup(",14), 0 , 0 , 0 ); if (new_error) goto skip904; skip904: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6478);}while(r); S_7749:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ if(qbevent){evnt(6481);if(r)goto S_7749;} do{ qbs_set(__STRING_OPTI,__STRING_E3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6482);}while(r); do{ qbs_set(__STRING_OPTCONTROLLER,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6483);}while(r); do{ qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6484);}while(r); }else{ do{ qbs_set(__STRING_OPTI,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6486);}while(r); do{ qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6487);}while(r); do{ qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6488);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6492);}while(r); S_7759:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6492);if(r)goto S_7759;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6492);}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(6493);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass906= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6494);}while(r); S_7764:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6494);if(r)goto S_7764;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6494);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip907; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip907; skip907: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6495);}while(r); S_7768:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(6498);if(r)goto S_7768;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6499);}while(r); S_7770:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6499);if(r)goto S_7770;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6499);}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(6500);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass908= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6501);}while(r); S_7775:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6501);if(r)goto S_7775;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6501);}while(r); } }else{ do{ qbs_set(__STRING_E,__STRING_OPTCONTROLLER); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6503);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip909; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip909; skip909: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6505);}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(6507);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6509);}while(r); S_7784:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6510);if(r)goto S_7784;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6510);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6510);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6511);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6511);}while(r); do{ *__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ; if(!qbevent)break;evnt(6512);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip910; sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONSTRIGID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip910; skip910: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6513);}while(r); S_7792:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ if(qbevent){evnt(6515);if(r)goto S_7792;} S_7793:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6516);if(r)goto S_7793;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6516);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6516);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6517);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6517);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip911; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip911; skip911: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6519);}while(r); S_7800:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(6521);if(r)goto S_7800;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6521);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6521);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass912= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6523);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6524);}while(r); LABEL_LABCHK60Z:; if(qbevent){evnt(6525);r=0;} S_7806:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(6526);if(r)goto S_7806;} 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(6527);}while(r); S_7808:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(6528);if(r)goto S_7808;} S_7809:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(6529);if(r)goto S_7809;} 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(6529);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6530);}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(6531);}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(6532);}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(6533);}while(r); }else{ S_7817:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(6535);if(r)goto S_7817;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(6535);}while(r); do{ goto LABEL_LABCHK60Z; if(!qbevent)break;evnt(6535);}while(r); } } } S_7823:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(6538);if(r)goto S_7823;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(6540);}while(r); S_7825:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(6540);if(r)goto S_7825;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(6540);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); if (new_error) goto skip920; skip920: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6559);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip921; sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip921; skip921: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6560);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip922; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip922; skip922: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6561);}while(r); S_7848:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6563);if(r)goto S_7848;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6563);}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(6563);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6564);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6565);}while(r); }else{ do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6570);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6571);}while(r); S_7858:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6572);if(r)goto S_7858;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6572);}while(r); } S_7861:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(6573);if(r)goto S_7861;} S_7862:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ if(qbevent){evnt(6574);if(r)goto S_7862;} do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6574);}while(r); do{ goto dl_exit_924; if(!qbevent)break;evnt(6574);}while(r); } S_7866:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(6575);if(r)goto S_7866;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(6575);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6575);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(6575);}while(r); } S_7872:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6576);if(r)goto S_7872;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6576);}while(r); } dl_continue_924:; } dl_exit_924:; S_7876:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(6578);if(r)goto S_7876;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6578);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6578);}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(6580);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip925; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip925; skip925: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6582);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip926; sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); if (new_error) goto skip926; skip926: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6583);}while(r); S_7883:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ if(qbevent){evnt(6585);if(r)goto S_7883;} 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(6585);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6585);}while(r); } S_7887:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6587);if(r)goto S_7887;} S_7888:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ if(qbevent){evnt(6589);if(r)goto S_7888;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6589);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6589);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip927; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip927; skip927: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6590);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip928; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip928; skip928: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6591);}while(r); }else{ S_7895:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ if(qbevent){evnt(6595);if(r)goto S_7895;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6595);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6595);}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(6597);}while(r); do{ *__LONG_B=*__LONG_T& 511 ; if(!qbevent)break;evnt(6598);}while(r); S_7901:; 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(6599);if(r)goto S_7901;} 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(6599);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6599);}while(r); } S_7905:; if ((-(*__LONG_B== 8 ))||new_error){ if(qbevent){evnt(6600);if(r)goto S_7905;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6600);}while(r); } S_7908:; if ((-(*__LONG_B== 16 ))||new_error){ if(qbevent){evnt(6601);if(r)goto S_7908;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6601);}while(r); } S_7911:; if ((-(*__LONG_B== 32 ))||new_error){ if(qbevent){evnt(6602);if(r)goto S_7911;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6602);}while(r); } S_7914:; if ((-(*__LONG_B== 64 ))||new_error){ if(qbevent){evnt(6603);if(r)goto S_7914;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6603);}while(r); } S_7917:; if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(6604);if(r)goto S_7917;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6604);}while(r); } S_7920:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(6605);if(r)goto S_7920;} 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(6605);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip929; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); if (new_error) goto skip929; skip929: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6606);}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(6608);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6609);}while(r); S_7926:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6610);if(r)goto S_7926;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6610);}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(6611);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass930=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6612);}while(r); S_7931:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6613);if(r)goto S_7931;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6613);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip931; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip931; skip931: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6614);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip932; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip932; skip932: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6618);}while(r); S_7937:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6619);if(r)goto S_7937;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6619);}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(6619);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6620);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6621);}while(r); } } } S_7947:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(6638);if(r)goto S_7947;} S_7948:; 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(6639);if(r)goto S_7948;} do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(6640);}while(r); S_7950:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6641);if(r)goto S_7950;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6641);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6641);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6642);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6642);}while(r); S_7956:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6643);if(r)goto S_7956;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6643);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6643);}while(r); } do{ qbs_set(__STRING_L,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(6644);}while(r); S_7961:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6645);if(r)goto S_7961;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6645);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6645);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6646);}while(r); do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6647);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6648);}while(r); do{ qbs_set(__STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6649);}while(r); S_7969:; fornext_value935=*__LONG_I; fornext_finalvalue935=*__LONG_N; fornext_step935= 1 ; if (fornext_step935<0) fornext_step_negative935=1; else fornext_step_negative935=0; if (new_error) goto fornext_error935; goto fornext_entrylabel935; while(1){ fornext_value935=fornext_step935+(*__LONG_I); fornext_entrylabel935: *__LONG_I=fornext_value935; if (fornext_step_negative935){ if (fornext_value935fornext_finalvalue935) break; } fornext_error935:; if(qbevent){evnt(6650);if(r)goto S_7969;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6651);}while(r); do{ *__LONG_A=qbs_asc(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6652);}while(r); S_7972:; if ((-(*__LONG_A== 40 ))||new_error){ if(qbevent){evnt(6653);if(r)goto S_7972;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6653);}while(r); } S_7975:; if ((-(*__LONG_A== 41 ))||new_error){ if(qbevent){evnt(6654);if(r)goto S_7975;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6654);}while(r); } S_7978:; if ((-(*__LONG_B== -1 ))||new_error){ if(qbevent){evnt(6655);if(r)goto S_7978;} do{ goto LABEL_ONTIMGOTARG; if(!qbevent)break;evnt(6655);}while(r); } S_7981:; if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ if(qbevent){evnt(6656);if(r)goto S_7981;} do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(6657);}while(r); S_7983:; if ((-(*__LONG_X> 1 ))||new_error){ if(qbevent){evnt(6658);if(r)goto S_7983;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6658);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6658);}while(r); } S_7987:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(6659);if(r)goto S_7987;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6659);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6659);}while(r); } do{ qbs_set(__STRING_E3,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6660);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6661);}while(r); }else{ S_7994:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ if(qbevent){evnt(6663);if(r)goto S_7994;} 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(6663);}while(r); }else{ do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6663);}while(r); } } fornext_continue_934:; } fornext_exit_934:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6666);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6666);}while(r); LABEL_ONTIMGOTARG:; if(qbevent){evnt(6667);r=0;} S_8003:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(6668);if(r)goto S_8003;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6668);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6668);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip937; sub_file_print(tmp_fileno,qbs_new_txt_len("ontimer_setup(",14), 0 , 0 , 0 ); if (new_error) goto skip937; skip937: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6669);}while(r); S_8008:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ if(qbevent){evnt(6671);if(r)goto S_8008;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6672);}while(r); S_8010:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6673);if(r)goto S_8010;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6673);}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(6674);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass939= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6675);}while(r); S_8015:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6676);if(r)goto S_8015;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6676);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip940; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip940; skip940: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6677);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip941; sub_file_print(tmp_fileno,qbs_new_txt_len("0,",2), 0 , 0 , 0 ); if (new_error) goto skip941; skip941: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6679);}while(r); do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6680);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6683);}while(r); S_8024:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6684);if(r)goto S_8024;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6684);}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(6685);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass942=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6686);}while(r); S_8029:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6687);if(r)goto S_8029;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6687);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip943; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip943; skip943: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6688);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6689);}while(r); S_8034:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6690);if(r)goto S_8034;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6690);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6690);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6691);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6691);}while(r); do{ *__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ; if(!qbevent)break;evnt(6692);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip944; sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONTIMERID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip944; skip944: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6693);}while(r); S_8042:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ if(qbevent){evnt(6695);if(r)goto S_8042;} S_8043:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6696);if(r)goto S_8043;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6696);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6696);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6697);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6697);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip945; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip945; skip945: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6699);}while(r); S_8050:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(6701);if(r)goto S_8050;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6701);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6701);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass946= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6703);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6704);}while(r); LABEL_LABCHK60:; if(qbevent){evnt(6705);r=0;} S_8056:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(6706);if(r)goto S_8056;} 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(6707);}while(r); S_8058:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(6708);if(r)goto S_8058;} S_8059:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(6709);if(r)goto S_8059;} 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(6709);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6710);}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(6711);}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(6712);}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(6713);}while(r); }else{ S_8067:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(6715);if(r)goto S_8067;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(6715);}while(r); do{ goto LABEL_LABCHK60; if(!qbevent)break;evnt(6715);}while(r); } } } S_8073:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(6718);if(r)goto S_8073;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(6720);}while(r); S_8075:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(6720);if(r)goto S_8075;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(6720);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); if (new_error) goto skip954; skip954: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6739);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip955; sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip955; skip955: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6740);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip956; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip956; skip956: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6741);}while(r); S_8098:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6751);if(r)goto S_8098;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6751);}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(6751);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6752);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6753);}while(r); }else{ do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6757);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6758);}while(r); S_8108:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6759);if(r)goto S_8108;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6759);}while(r); } S_8111:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(6760);if(r)goto S_8111;} S_8112:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ if(qbevent){evnt(6761);if(r)goto S_8112;} do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6761);}while(r); do{ goto dl_exit_958; if(!qbevent)break;evnt(6761);}while(r); } S_8116:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(6762);if(r)goto S_8116;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(6762);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6762);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(6762);}while(r); } S_8122:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6763);if(r)goto S_8122;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6763);}while(r); } dl_continue_958:; } dl_exit_958:; S_8126:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(6765);if(r)goto S_8126;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6765);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6765);}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(6767);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip959; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip959; skip959: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6769);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip960; sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); if (new_error) goto skip960; skip960: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6770);}while(r); S_8133:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ if(qbevent){evnt(6772);if(r)goto S_8133;} 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(6772);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6772);}while(r); } S_8137:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6774);if(r)goto S_8137;} S_8138:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ if(qbevent){evnt(6776);if(r)goto S_8138;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6776);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6776);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip961; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip961; skip961: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6777);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip962; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip962; skip962: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6778);}while(r); }else{ S_8145:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ if(qbevent){evnt(6782);if(r)goto S_8145;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6782);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6782);}while(r); } do{ *__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6784);}while(r); do{ *__LONG_B=*__LONG_T& 511 ; if(!qbevent)break;evnt(6785);}while(r); S_8151:; 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(6786);if(r)goto S_8151;} 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(6786);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6786);}while(r); } S_8155:; if ((-(*__LONG_B== 8 ))||new_error){ if(qbevent){evnt(6787);if(r)goto S_8155;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6787);}while(r); } S_8158:; if ((-(*__LONG_B== 16 ))||new_error){ if(qbevent){evnt(6788);if(r)goto S_8158;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6788);}while(r); } S_8161:; if ((-(*__LONG_B== 32 ))||new_error){ if(qbevent){evnt(6789);if(r)goto S_8161;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6789);}while(r); } S_8164:; if ((-(*__LONG_B== 64 ))||new_error){ if(qbevent){evnt(6790);if(r)goto S_8164;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6790);}while(r); } S_8167:; if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(6791);if(r)goto S_8167;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6791);}while(r); } S_8170:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(6792);if(r)goto S_8170;} 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(6792);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip963; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); if (new_error) goto skip963; skip963: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6793);}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(6795);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6796);}while(r); S_8176:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6797);if(r)goto S_8176;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6797);}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(6798);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass964=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6799);}while(r); S_8181:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6800);if(r)goto S_8181;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6800);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip965; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip965; skip965: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6801);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip966; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip966; skip966: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6805);}while(r); S_8187:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6806);if(r)goto S_8187;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6806);}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(6806);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6807);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6808);}while(r); } } } S_8197:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(6817);if(r)goto S_8197;} S_8198:; 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(6818);if(r)goto S_8198;} do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(6819);}while(r); S_8200:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6820);if(r)goto S_8200;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6820);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6820);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6821);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6821);}while(r); S_8206:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(6822);if(r)goto S_8206;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6822);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6822);}while(r); } do{ qbs_set(__STRING_L,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(6823);}while(r); S_8211:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6824);if(r)goto S_8211;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6824);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6824);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(6825);}while(r); do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6826);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6827);}while(r); S_8218:; fornext_value969=*__LONG_I; fornext_finalvalue969=*__LONG_N; fornext_step969= 1 ; if (fornext_step969<0) fornext_step_negative969=1; else fornext_step_negative969=0; if (new_error) goto fornext_error969; goto fornext_entrylabel969; while(1){ fornext_value969=fornext_step969+(*__LONG_I); fornext_entrylabel969: *__LONG_I=fornext_value969; if (fornext_step_negative969){ if (fornext_value969fornext_finalvalue969) break; } fornext_error969:; if(qbevent){evnt(6828);if(r)goto S_8218;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6829);}while(r); do{ *__LONG_A=qbs_asc(__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6830);}while(r); S_8221:; if ((-(*__LONG_A== 40 ))||new_error){ if(qbevent){evnt(6833);if(r)goto S_8221;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(6833);}while(r); } S_8224:; if ((-(*__LONG_A== 41 ))||new_error){ if(qbevent){evnt(6834);if(r)goto S_8224;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(6834);}while(r); } S_8227:; if ((-(*__LONG_B== -1 ))||new_error){ if(qbevent){evnt(6835);if(r)goto S_8227;} do{ goto fornext_exit_968; if(!qbevent)break;evnt(6835);}while(r); } S_8230:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ if(qbevent){evnt(6836);if(r)goto S_8230;} 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(6836);}while(r); }else{ do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6836);}while(r); } fornext_continue_968:; } fornext_exit_968:; S_8236:; if ((-(*__LONG_I==(*__LONG_N+ 1 )))||new_error){ if(qbevent){evnt(6838);if(r)goto S_8236;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6838);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6838);}while(r); } S_8240:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(6839);if(r)goto S_8240;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6839);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6839);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6841);}while(r); S_8245:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6842);if(r)goto S_8245;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6842);}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(6843);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass971=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6844);}while(r); S_8250:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6845);if(r)goto S_8250;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6845);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip972; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip972; skip972: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6846);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6848);}while(r); S_8255:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6849);if(r)goto S_8255;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6849);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6849);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6850);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6850);}while(r); do{ *__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ; if(!qbevent)break;evnt(6851);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip973; sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONKEYID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip973; skip973: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6852);}while(r); S_8263:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ if(qbevent){evnt(6854);if(r)goto S_8263;} S_8264:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6855);if(r)goto S_8264;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6855);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6855);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6856);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(6856);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip974; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip974; skip974: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6858);}while(r); S_8271:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(6860);if(r)goto S_8271;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6860);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6860);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass975= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6862);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6863);}while(r); LABEL_LABCHK61:; if(qbevent){evnt(6864);r=0;} S_8277:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(6865);if(r)goto S_8277;} 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(6866);}while(r); S_8279:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(6867);if(r)goto S_8279;} S_8280:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(6868);if(r)goto S_8280;} 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(6868);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6869);}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(6870);}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(6871);}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(6872);}while(r); }else{ S_8288:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(6874);if(r)goto S_8288;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(6874);}while(r); do{ goto LABEL_LABCHK61; if(!qbevent)break;evnt(6874);}while(r); } } } S_8294:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(6877);if(r)goto S_8294;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(6879);}while(r); S_8296:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(6879);if(r)goto S_8296;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(6879);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); if (new_error) goto skip983; skip983: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6898);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip984; sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip984; skip984: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6899);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip985; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip985; skip985: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6900);}while(r); S_8319:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6902);if(r)goto S_8319;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6902);}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(6902);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6903);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6904);}while(r); }else{ do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(6908);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6909);}while(r); S_8329:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6910);if(r)goto S_8329;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6910);}while(r); } S_8332:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(6911);if(r)goto S_8332;} S_8333:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ if(qbevent){evnt(6912);if(r)goto S_8333;} do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(6912);}while(r); do{ goto dl_exit_987; if(!qbevent)break;evnt(6912);}while(r); } S_8337:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(6913);if(r)goto S_8337;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(6913);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6913);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(6913);}while(r); } S_8343:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6914);if(r)goto S_8343;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6914);}while(r); } dl_continue_987:; } dl_exit_987:; S_8347:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(6916);if(r)goto S_8347;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6916);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6916);}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(6918);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip988; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip988; skip988: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6920);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip989; sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); if (new_error) goto skip989; skip989: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6921);}while(r); S_8354:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ if(qbevent){evnt(6923);if(r)goto S_8354;} 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(6923);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6923);}while(r); } S_8358:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(6925);if(r)goto S_8358;} S_8359:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ if(qbevent){evnt(6927);if(r)goto S_8359;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6927);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6927);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip990; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); if (new_error) goto skip990; skip990: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6928);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip991; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip991; skip991: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6929);}while(r); }else{ S_8366:; if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ if(qbevent){evnt(6933);if(r)goto S_8366;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6933);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6933);}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(6935);}while(r); do{ *__LONG_B=*__LONG_T& 511 ; if(!qbevent)break;evnt(6936);}while(r); S_8372:; 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(6937);if(r)goto S_8372;} 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(6937);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6937);}while(r); } S_8376:; if ((-(*__LONG_B== 8 ))||new_error){ if(qbevent){evnt(6938);if(r)goto S_8376;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6938);}while(r); } S_8379:; if ((-(*__LONG_B== 16 ))||new_error){ if(qbevent){evnt(6939);if(r)goto S_8379;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6939);}while(r); } S_8382:; if ((-(*__LONG_B== 32 ))||new_error){ if(qbevent){evnt(6940);if(r)goto S_8382;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6940);}while(r); } S_8385:; if ((-(*__LONG_B== 64 ))||new_error){ if(qbevent){evnt(6941);if(r)goto S_8385;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6941);}while(r); } S_8388:; if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(6942);if(r)goto S_8388;} do{ qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6942);}while(r); } S_8391:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(6943);if(r)goto S_8391;} 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(6943);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip992; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); if (new_error) goto skip992; skip992: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6944);}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(6946);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6947);}while(r); S_8397:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6948);if(r)goto S_8397;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6948);}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(6949);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass993=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6950);}while(r); S_8402:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(6951);if(r)goto S_8402;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6951);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip994; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip994; skip994: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6952);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 27 ; if (new_error) goto skip995; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip995; skip995: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(6956);}while(r); S_8408:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(6957);if(r)goto S_8408;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6957);}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(6957);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(6958);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(6959);}while(r); } } } S_8418:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(6992);if(r)goto S_8418;} S_8419:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||new_error){ if(qbevent){evnt(6993);if(r)goto S_8419;} S_8420:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(6994);if(r)goto S_8420;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6994);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6994);}while(r); } do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(6995);}while(r); S_8425:; if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ if(qbevent){evnt(6996);if(r)goto S_8425;} 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(6996);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6996);}while(r); } do{ qbs_set(__STRING_L,qbs_new_txt_len("SHARED",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7000);}while(r); LABEL_SUBFUNCSHR:; if(qbevent){evnt(7001);r=0;} do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7004);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7004);}while(r); S_8432:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7006);if(r)goto S_8432;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7006);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7006);}while(r); } do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7008);}while(r); S_8437:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7009);if(r)goto S_8437;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7009);}while(r); } do{ qbs_set(__STRING_L2,__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7010);}while(r); do{ *__LONG_A= 0 ; if(!qbevent)break;evnt(7013);}while(r); S_8442:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7014);if(r)goto S_8442;} S_8443:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass997=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(7015);if(r)goto S_8443;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7015);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7015);}while(r); } do{ *__LONG_I=*__LONG_I+ 2 ; if(!qbevent)break;evnt(7016);}while(r); do{ *__LONG_A= 1 ; if(!qbevent)break;evnt(7017);}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(7018);}while(r); } do{ *__LONG_METHOD= 1 ; if(!qbevent)break;evnt(7021);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7024);}while(r); do{ qbs_set(__STRING_TS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7025);}while(r); do{ qbs_set(__STRING_T3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7026);}while(r); S_8455:; 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(7027);if(r)goto S_8455;} do{ qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),qbs_new_txt_len("AS",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7028);}while(r); LABEL_GETSHRTYP:; if(qbevent){evnt(7029);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7030);}while(r); do{ qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7031);}while(r); S_8459:; 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(7032);if(r)goto S_8459;} S_8460:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7033);if(r)goto S_8460;} do{ qbs_set(__STRING_T,__STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7033);}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(7033);}while(r); } S_8465:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7034);if(r)goto S_8465;} do{ qbs_set(__STRING_T3,__STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7034);}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(7034);}while(r); } do{ goto LABEL_GETSHRTYP; if(!qbevent)break;evnt(7035);}while(r); } S_8472:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7037);if(r)goto S_8472;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7037);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7037);}while(r); } do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7039);}while(r); S_8477:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7040);if(r)goto S_8477;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7040);}while(r); } S_8480:; if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(7041);if(r)goto S_8480;} do{ *__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(7041);}while(r); } S_8483:; if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(7042);if(r)goto S_8483;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(7042);}while(r); } S_8486:; if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ if(qbevent){evnt(7043);if(r)goto S_8486;} do{ *__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(7043);}while(r); } do{ *__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(7044);}while(r); do{ *__LONG_METHOD= 0 ; if(!qbevent)break;evnt(7045);}while(r); S_8491:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(7046);if(r)goto S_8491;} do{ qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7047);}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(7049);}while(r); S_8495:; 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(7050);if(r)goto S_8495;} 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(7051);}while(r); } } S_8499:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7054);if(r)goto S_8499;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7054);}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(7055);}while(r); } S_8504:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||new_error){ if(qbevent){evnt(7059);if(r)goto S_8504;} 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(7059);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7059);}while(r); } S_8508:; 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(7062);if(r)goto S_8508;} S_8509:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(7063);if(r)goto S_8509;} do{ *__LONG_V= 27 ; if(!qbevent)break;evnt(7063);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7063);}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(7064);}while(r); } do{ qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7068);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7069);}while(r); do{ *__INTEGER_DEFDATAHANDLE= 18 ; if(!qbevent)break;evnt(7070);}while(r); do{ sub_close( 13 ,1); if(!qbevent)break;evnt(7071);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7071);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(7072);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7072);}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(7075);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7076);}while(r); S_8525:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7077);if(r)goto S_8525;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7077);}while(r); } S_8528:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(7078);if(r)goto S_8528;} S_8529:; if ((*__LONG_A)||new_error){ if(qbevent){evnt(7079);if(r)goto S_8529;} S_8530:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(7082);if(r)goto S_8530;} S_8531:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ if(qbevent){evnt(7083);if(r)goto S_8531;} do{ goto LABEL_SHRFOUND; if(!qbevent)break;evnt(7083);}while(r); } do{ *__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(7084);}while(r); do{ *__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(7084);}while(r); S_8536:; if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(7085);if(r)goto S_8536;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(7085);}while(r); } S_8539:; if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(7086);if(r)goto S_8539;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; if(!qbevent)break;evnt(7086);}while(r); } S_8542:; if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ if(qbevent){evnt(7087);if(r)goto S_8542;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(7087);}while(r); } S_8545:; if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ if(qbevent){evnt(7088);if(r)goto S_8545;} do{ goto LABEL_SHRFOUND; if(!qbevent)break;evnt(7088);}while(r); } } }else{ S_8550:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ if(qbevent){evnt(7094);if(r)goto S_8550;} S_8551:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ if(qbevent){evnt(7095);if(r)goto S_8551;} do{ goto LABEL_SHRFOUND; if(!qbevent)break;evnt(7095);}while(r); } do{ *__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(7096);}while(r); do{ *__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(7096);}while(r); S_8556:; if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(7097);if(r)goto S_8556;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(7097);}while(r); } S_8559:; if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(7098);if(r)goto S_8559;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; if(!qbevent)break;evnt(7098);}while(r); } S_8562:; if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ if(qbevent){evnt(7099);if(r)goto S_8562;} do{ *__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(7099);}while(r); } S_8565:; if (( 0 )||new_error){ if(qbevent){evnt(7101);if(r)goto S_8565;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1003; sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0 , 0 , 0 ); if (new_error) goto skip1003; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1 , 0 , 0 ); if (new_error) goto skip1003; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1 , 1 , 0 ); if (new_error) goto skip1003; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1 , 0 , 0 ); if (new_error) goto skip1003; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1 , 0 , 1 ); if (new_error) goto skip1003; skip1003: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7101);}while(r); } S_8568:; if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ if(qbevent){evnt(7103);if(r)goto S_8568;} do{ goto LABEL_SHRFOUND; if(!qbevent)break;evnt(7103);}while(r); } } } S_8573:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(7108);if(r)goto S_8573;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(7108);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7108);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(7108);}while(r); } S_8579:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7109);if(r)goto S_8579;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7109);}while(r); } dl_continue_1000:; } dl_exit_1000:; S_8583:; if ((*__LONG_A)||new_error){ if(qbevent){evnt(7112);if(r)goto S_8583;} 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(7112);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7112);}while(r); } S_8587:; if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ if(qbevent){evnt(7114);if(r)goto S_8587;} do{ qbs_set(__STRING_TYP,__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7114);}while(r); }else{ do{ qbs_set(__STRING_TYP,__STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7114);}while(r); } S_8592:; if ((*__BYTE_OPTIONEXPLICIT)||new_error){ if(qbevent){evnt(7115);if(r)goto S_8592;} 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(7115);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7115);}while(r); } do{ *__BYTE_BYPASSNEXTVARIABLE= -1 ; if(!qbevent)break;evnt(7116);}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(7117);}while(r); S_8598:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7118);if(r)goto S_8598;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7118);}while(r); } LABEL_SHRFOUND:; if(qbevent){evnt(7121);r=0;} 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(7122);}while(r); do{ *(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))| 2 ; if(!qbevent)break;evnt(7124);}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(7127);}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(7127);}while(r); S_8605:; if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||new_error){ if(qbevent){evnt(7128);if(r)goto S_8605;} S_8606:; if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||new_error){ if(qbevent){evnt(7129);if(r)goto S_8606;} do{ *__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ; if(!qbevent)break;evnt(7130);}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(7131);}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]))*2861+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+520)),8,1)); if(!qbevent)break;evnt(7132);}while(r); } } do{ qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7137);}while(r); do{ *__INTEGER_DEFDATAHANDLE= 13 ; if(!qbevent)break;evnt(7138);}while(r); do{ sub_close( 13 ,1); if(!qbevent)break;evnt(7139);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7139);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(7140);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7140);}while(r); S_8618:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(7142);if(r)goto S_8618;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7142);}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(7142);}while(r); do{ goto LABEL_SUBFUNCSHR; if(!qbevent)break;evnt(7142);}while(r); } S_8623:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7143);if(r)goto S_8623;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7143);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7143);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(7145);}while(r); S_8628:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(7145);if(r)goto S_8628;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7145);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7145);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(7146);}while(r); } } S_8636:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(7151);if(r)goto S_8636;} S_8637:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ if(qbevent){evnt(7152);if(r)goto S_8637;} do{ *__LONG_SF= 0 ; if(!qbevent)break;evnt(7153);}while(r); S_8639:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ if(qbevent){evnt(7154);if(r)goto S_8639;} do{ *__LONG_SF= 1 ; if(!qbevent)break;evnt(7154);}while(r); } S_8642:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ if(qbevent){evnt(7155);if(r)goto S_8642;} do{ *__LONG_SF= 2 ; if(!qbevent)break;evnt(7155);}while(r); } S_8645:; if ((*__LONG_SF)||new_error){ if(qbevent){evnt(7156);if(r)goto S_8645;} S_8646:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ if(qbevent){evnt(7158);if(r)goto S_8646;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("EXIT ",5),__STRING_SECONDELEMENT),qbs_new_txt_len(" must be used within a SUB/FUNCTION",35))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7158);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7158);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1007; sub_file_print(tmp_fileno,qbs_new_txt_len("goto exit_subfunc;",18), 0 , 0 , 1 ); if (new_error) goto skip1007; skip1007: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7160);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7161);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(7162);}while(r); S_8653:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(7162);if(r)goto S_8653;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7162);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7162);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(7163);}while(r); } } } S_8662:; 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(7170);if(r)goto S_8662;} S_8663:; if ((-(*__LONG_CONSOLE== 0 ))||new_error){ if(qbevent){evnt(7171);if(r)goto S_8663;} 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(7172);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7172);}while(r); } } S_8668:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(7178);if(r)goto S_8668;} S_8669:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||new_error){ if(qbevent){evnt(7179);if(r)goto S_8669;} S_8670:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1009= 2 )),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7180);if(r)goto S_8670;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7180);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7180);}while(r); } do{ *__LONG_USEPOSITION= 0 ; if(!qbevent)break;evnt(7183);}while(r); do{ *__LONG_PART= 1 ; if(!qbevent)break;evnt(7184);}while(r); do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(7185);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7186);}while(r); do{ qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7187);}while(r); do{ qbs_set(__STRING_POSITION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7188);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(7189);}while(r); S_8681:; do{ if(qbevent){evnt(7190);if(r)goto S_8681;} S_8682:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(7192);if(r)goto S_8682;} S_8683:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||new_error){ if(qbevent){evnt(7193);if(r)goto S_8683;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7193);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7193);}while(r); } do{ qbs_set(__STRING_EXPRESSION,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7194);}while(r); do{ goto dl_exit_1010; if(!qbevent)break;evnt(7195);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7198);}while(r); S_8691:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7199);if(r)goto S_8691;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(7199);}while(r); } S_8694:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(7200);if(r)goto S_8694;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(7200);}while(r); } S_8697:; if ((-(*__LONG_B== -1 ))||new_error){ if(qbevent){evnt(7202);if(r)goto S_8697;} S_8698:; if ((-(*__LONG_PART== 1 ))||new_error){ if(qbevent){evnt(7204);if(r)goto S_8698;} S_8699:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1012=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(7205);if(r)goto S_8699;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7205);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7205);}while(r); } do{ qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7206);}while(r); do{ qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7207);}while(r); do{ *__LONG_PART= 3 ; if(!qbevent)break;evnt(7208);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7208);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7208);}while(r); do{ goto LABEL_ASCGOTPART; if(!qbevent)break;evnt(7208);}while(r); } S_8710:; if ((-(*__LONG_PART== 2 ))||new_error){ if(qbevent){evnt(7211);if(r)goto S_8710;} S_8711:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1013=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(7212);if(r)goto S_8711;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7212);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7212);}while(r); } do{ *__LONG_USEPOSITION= 1 ; if(!qbevent)break;evnt(7213);}while(r); do{ qbs_set(__STRING_POSITION,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7214);}while(r); do{ *__LONG_PART= 3 ; if(!qbevent)break;evnt(7215);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7215);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7215);}while(r); do{ goto LABEL_ASCGOTPART; if(!qbevent)break;evnt(7215);}while(r); } } S_8723:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(7222);if(r)goto S_8723;} S_8724:; if ((-(*__LONG_PART== 1 ))||new_error){ if(qbevent){evnt(7223);if(r)goto S_8724;} do{ qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7223);}while(r); do{ *__LONG_PART= 2 ; if(!qbevent)break;evnt(7223);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7223);}while(r); do{ goto LABEL_ASCGOTPART; if(!qbevent)break;evnt(7223);}while(r); } } S_8731:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ if(qbevent){evnt(7226);if(r)goto S_8731;} 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(7226);}while(r); }else{ do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7226);}while(r); } LABEL_ASCGOTPART:; if(qbevent){evnt(7227);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7228);}while(r); dl_continue_1010:; }while(1); dl_exit_1010:; S_8738:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||new_error){ if(qbevent){evnt(7230);if(r)goto S_8738;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7230);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7230);}while(r); } do{ qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7233);}while(r); S_8743:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7234);if(r)goto S_8743;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7234);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(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(7235);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7237);}while(r); S_8748:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7238);if(r)goto S_8748;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7238);}while(r); } S_8751:; if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ if(qbevent){evnt(7239);if(r)goto S_8751;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7239);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7239);}while(r); } do{ qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7240);}while(r); S_8756:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7241);if(r)goto S_8756;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7241);}while(r); } S_8759:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(7245);if(r)goto S_8759;} S_8760:; if ((*__LONG_USEPOSITION)||new_error){ if(qbevent){evnt(7246);if(r)goto S_8760;} 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(7246);}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(7246);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1017; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); if (new_error) goto skip1017; skip1017: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7248);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7249);}while(r); S_8767:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7250);if(r)goto S_8767;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7250);}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(7251);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1018= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7252);}while(r); S_8772:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7253);if(r)goto S_8772;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7253);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1019; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); if (new_error) goto skip1019; skip1019: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7254);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1020; sub_file_print(tmp_fileno,qbs_new_txt_len("if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}",53), 0 , 0 , 1 ); if (new_error) goto skip1020; skip1020: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7255);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1021; sub_file_print(tmp_fileno,qbs_new_txt_len("}}",2), 0 , 0 , 1 ); if (new_error) goto skip1021; skip1021: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7256);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1022; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); if (new_error) goto skip1022; skip1022: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7260);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7261);}while(r); S_8781:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7262);if(r)goto S_8781;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7262);}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(7263);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1023= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7264);}while(r); S_8786:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7265);if(r)goto S_8786;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7265);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1024; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); if (new_error) goto skip1024; skip1024: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7266);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7267);}while(r); S_8791:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7268);if(r)goto S_8791;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7268);}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(7269);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1025= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7270);}while(r); S_8796:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7271);if(r)goto S_8796;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7271);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1026; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); if (new_error) goto skip1026; skip1026: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7272);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1027; sub_file_print(tmp_fileno,qbs_new_txt_len("if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}",94), 0 , 0 , 1 ); if (new_error) goto skip1027; skip1027: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7273);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1028; sub_file_print(tmp_fileno,qbs_new_txt_len("}}}",3), 0 , 0 , 1 ); if (new_error) goto skip1028; skip1028: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7274);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(7277);}while(r); S_8804:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(7277);if(r)goto S_8804;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7277);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7277);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(7278);}while(r); } } S_8812:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(7286);if(r)goto S_8812;} S_8813:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||new_error){ if(qbevent){evnt(7287);if(r)goto S_8813;} S_8814:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1030= 2 )),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7288);if(r)goto S_8814;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7288);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7288);}while(r); } do{ qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7290);}while(r); do{ *__LONG_PART= 1 ; if(!qbevent)break;evnt(7291);}while(r); do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(7292);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7293);}while(r); do{ qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7294);}while(r); do{ qbs_set(__STRING_START,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7295);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(7296);}while(r); S_8825:; do{ if(qbevent){evnt(7297);if(r)goto S_8825;} S_8826:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(7298);if(r)goto S_8826;} S_8827:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(7299);if(r)goto S_8827;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7299);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7299);}while(r); } do{ qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7300);}while(r); do{ goto dl_exit_1031; 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(7303);}while(r); S_8835:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7304);if(r)goto S_8835;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(7304);}while(r); } S_8838:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(7305);if(r)goto S_8838;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(7305);}while(r); } S_8841:; if ((-(*__LONG_B== -1 ))||new_error){ if(qbevent){evnt(7306);if(r)goto S_8841;} S_8842:; if ((-(*__LONG_PART== 2 ))||new_error){ if(qbevent){evnt(7307);if(r)goto S_8842;} S_8843:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1032=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(7308);if(r)goto S_8843;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7308);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7308);}while(r); } do{ qbs_set(__STRING_START,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7309);}while(r); do{ *__LONG_PART= 4 ; if(!qbevent)break;evnt(7309);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7309);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7309);}while(r); do{ goto LABEL_MIDGOTPART; if(!qbevent)break;evnt(7309);}while(r); } S_8853:; if ((-(*__LONG_PART== 3 ))||new_error){ if(qbevent){evnt(7311);if(r)goto S_8853;} S_8854:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1033=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(7312);if(r)goto S_8854;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7312);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7312);}while(r); } S_8858:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7313);if(r)goto S_8858;} 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(7313);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7313);}while(r); } do{ qbs_set(__STRING_LENGTH,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7314);}while(r); do{ *__LONG_PART= 4 ; if(!qbevent)break;evnt(7314);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7314);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7314);}while(r); do{ goto LABEL_MIDGOTPART; if(!qbevent)break;evnt(7314);}while(r); } } S_8869:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(7317);if(r)goto S_8869;} S_8870:; if ((-(*__LONG_PART== 1 ))||new_error){ if(qbevent){evnt(7318);if(r)goto S_8870;} do{ qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7318);}while(r); do{ *__LONG_PART= 2 ; if(!qbevent)break;evnt(7318);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7318);}while(r); do{ goto LABEL_MIDGOTPART; if(!qbevent)break;evnt(7318);}while(r); } S_8876:; if ((-(*__LONG_PART== 2 ))||new_error){ if(qbevent){evnt(7319);if(r)goto S_8876;} do{ qbs_set(__STRING_START,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7319);}while(r); do{ *__LONG_PART= 3 ; if(!qbevent)break;evnt(7319);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7319);}while(r); do{ goto LABEL_MIDGOTPART; if(!qbevent)break;evnt(7319);}while(r); } } S_8883:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ if(qbevent){evnt(7321);if(r)goto S_8883;} 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(7321);}while(r); }else{ do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7321);}while(r); } LABEL_MIDGOTPART:; if(qbevent){evnt(7322);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7323);}while(r); dl_continue_1031:; }while(1); dl_exit_1031:; S_8890:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7325);if(r)goto S_8890;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7325);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7325);}while(r); } S_8894:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7326);if(r)goto S_8894;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7326);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7326);}while(r); } do{ qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7328);}while(r); S_8899:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7329);if(r)goto S_8899;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7329);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(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(7330);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7331);}while(r); S_8904:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7332);if(r)goto S_8904;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7332);}while(r); } S_8907:; if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ if(qbevent){evnt(7333);if(r)goto S_8907;} 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(7333);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7333);}while(r); } do{ qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7334);}while(r); S_8912:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7335);if(r)goto S_8912;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7335);}while(r); } do{ qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7337);}while(r); S_8916:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7338);if(r)goto S_8916;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7338);}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(7339);}while(r); do{ qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1035= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7340);}while(r); do{ qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7342);}while(r); S_8922:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7343);if(r)goto S_8922;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7343);}while(r); } do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7344);}while(r); do{ qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7345);}while(r); S_8927:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7346);if(r)goto S_8927;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7346);}while(r); } S_8930:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||new_error){ if(qbevent){evnt(7348);if(r)goto S_8930;} do{ qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7349);}while(r); S_8932:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7350);if(r)goto S_8932;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7350);}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(7351);}while(r); do{ qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1037= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7352);}while(r); S_8937:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7353);if(r)goto S_8937;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7353);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1038; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip1038; skip1038: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7354);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1039; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1039; skip1039: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7356);}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(7359);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(7360);}while(r); S_8946:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(7360);if(r)goto S_8946;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7360);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7360);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(7361);}while(r); } } S_8954:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(7366);if(r)goto S_8954;} S_8955:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||new_error){ if(qbevent){evnt(7367);if(r)goto S_8955;} do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(7368);}while(r); do{ qbs_set(__STRING_L,qbs_new_txt_len("ERASE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7369);}while(r); LABEL_ERASENEXTARRAY:; if(qbevent){evnt(7370);r=0;} do{ qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7371);}while(r); do{ qbs_set(__STRING_X,__STRING_VAR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7372);}while(r); do{ qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7372);}while(r); S_8961:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7373);if(r)goto S_8961;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7373);}while(r); } S_8964:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||new_error){ if(qbevent){evnt(7375);if(r)goto S_8964;} S_8965:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7376);if(r)goto S_8965;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7376);}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(7377);}while(r); LABEL_CLEARERASE:; if(qbevent){evnt(7379);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(7380);}while(r); do{ qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1041=(*(int32*)(((char*)__UDT_ID)+(512))& 511 )/ 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7381);}while(r); S_8971:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(7382);if(r)goto S_8971;} do{ qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7382);}while(r); } S_8974:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(7383);if(r)goto S_8974;} do{ qbs_set(__STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(&(pass1042=(*(int32*)(((char*)__UDT_ID)+(512))& 511 ))),qbs_new_txt_len("/8+1",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7383);}while(r); } S_8977:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(7384);if(r)goto S_8977;} do{ qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1043=((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(7385);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1044; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); if (new_error) goto skip1044; skip1044: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7387);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1045; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)), 0 , 0 , 1 ); if (new_error) goto skip1045; skip1045: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7388);}while(r); S_8982:; if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ if(qbevent){evnt(7389);if(r)goto S_8982;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1046; sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); if (new_error) goto skip1046; skip1046: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7390);}while(r); S_8984:; fornext_value1048= 1 ; fornext_finalvalue1048=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); fornext_step1048= 1 ; if (fornext_step1048<0) fornext_step_negative1048=1; else fornext_step_negative1048=0; if (new_error) goto fornext_error1048; goto fornext_entrylabel1048; while(1){ fornext_value1048=fornext_step1048+(*__LONG_I2); fornext_entrylabel1048: *__LONG_I2=fornext_value1048; if (fornext_step_negative1048){ if (fornext_value1048fornext_finalvalue1048) break; } fornext_error1048:; if(qbevent){evnt(7391);if(r)goto S_8984;} S_8985:; if ((-(*__LONG_I2!= 1 ))||new_error){ if(qbevent){evnt(7392);if(r)goto S_8985;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1049; sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); if (new_error) goto skip1049; skip1049: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7392);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1050; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1051=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); if (new_error) goto skip1050; skip1050: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7393);}while(r); fornext_continue_1047:; } fornext_exit_1047:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1052; sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); if (new_error) goto skip1052; skip1052: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7395);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1053; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); if (new_error) goto skip1053; skip1053: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7396);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1054; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]))->len=0;",25)), 0 , 0 , 1 ); if (new_error) goto skip1054; skip1054: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7397);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1055; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1055; skip1055: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7398);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1056; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)), 0 , 0 , 0 ); if (new_error) goto skip1056; skip1056: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7402);}while(r); S_8996:; fornext_value1058= 1 ; fornext_finalvalue1058=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); fornext_step1058= 1 ; if (fornext_step1058<0) fornext_step_negative1058=1; else fornext_step_negative1058=0; if (new_error) goto fornext_error1058; goto fornext_entrylabel1058; while(1){ fornext_value1058=fornext_step1058+(*__LONG_I2); fornext_entrylabel1058: *__LONG_I2=fornext_value1058; if (fornext_step_negative1058){ if (fornext_value1058fornext_finalvalue1058) break; } fornext_error1058:; if(qbevent){evnt(7403);if(r)goto S_8996;} S_8997:; if ((-(*__LONG_I2!= 1 ))||new_error){ if(qbevent){evnt(7404);if(r)goto S_8997;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1059; sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); if (new_error) goto skip1059; skip1059: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7404);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1060; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1061=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); if (new_error) goto skip1060; skip1060: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7405);}while(r); fornext_continue_1057:; } fornext_exit_1057:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1062; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1062; skip1062: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7407);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1063; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip1063; skip1063: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7409);}while(r); S_9005:; if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ if(qbevent){evnt(7411);if(r)goto S_9005;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1064; sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); if (new_error) goto skip1064; skip1064: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7413);}while(r); S_9007:; fornext_value1066= 1 ; fornext_finalvalue1066=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); fornext_step1066= 1 ; if (fornext_step1066<0) fornext_step_negative1066=1; else fornext_step_negative1066=0; if (new_error) goto fornext_error1066; goto fornext_entrylabel1066; while(1){ fornext_value1066=fornext_step1066+(*__LONG_I2); fornext_entrylabel1066: *__LONG_I2=fornext_value1066; if (fornext_step_negative1066){ if (fornext_value1066fornext_finalvalue1066) break; } fornext_error1066:; if(qbevent){evnt(7414);if(r)goto S_9007;} S_9008:; if ((-(*__LONG_I2!= 1 ))||new_error){ if(qbevent){evnt(7415);if(r)goto S_9008;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1067; sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); if (new_error) goto skip1067; skip1067: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7415);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1068; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1069=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); if (new_error) goto skip1068; skip1068: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7416);}while(r); fornext_continue_1065:; } fornext_exit_1065:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1070; sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); if (new_error) goto skip1070; skip1070: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7418);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1071; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); if (new_error) goto skip1071; skip1071: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7419);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1072; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free((qbs*)(((uint64*)(",27),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]));",18)), 0 , 0 , 1 ); if (new_error) goto skip1072; skip1072: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7420);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1073; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1073; skip1073: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7421);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1074; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); if (new_error) goto skip1074; skip1074: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7423);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1075; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)), 0 , 0 , 1 ); if (new_error) goto skip1075; skip1075: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7426);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1076; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); if (new_error) goto skip1076; skip1076: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7427);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1077; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip1077; skip1077: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7428);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1078; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); if (new_error) goto skip1078; skip1078: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7429);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1079; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1079; skip1079: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7430);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1080; sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)), 0 , 0 , 1 ); if (new_error) goto skip1080; skip1080: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7433);}while(r); S_9026:; fornext_value1082= 1 ; fornext_finalvalue1082=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); fornext_step1082= 1 ; if (fornext_step1082<0) fornext_step_negative1082=1; else fornext_step_negative1082=0; if (new_error) goto fornext_error1082; goto fornext_entrylabel1082; while(1){ fornext_value1082=fornext_step1082+(*__LONG_I2); fornext_entrylabel1082: *__LONG_I2=fornext_value1082; if (fornext_step_negative1082){ if (fornext_value1082fornext_finalvalue1082) break; } fornext_error1082:; if(qbevent){evnt(7435);if(r)goto S_9026;} do{ *__LONG_B=*__LONG_I2* 4 ; if(!qbevent)break;evnt(7436);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1083; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(__LONG_B)),qbs_new_txt_len("]=2147483647;",13)), 0 , 0 , 1 ); if (new_error) goto skip1083; skip1083: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7437);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1084; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1085=*__LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); if (new_error) goto skip1084; skip1084: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7438);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1086; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1087=*__LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); if (new_error) goto skip1086; skip1086: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7439);}while(r); fornext_continue_1081:; } fornext_exit_1081:; S_9032:; if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ if(qbevent){evnt(7441);if(r)goto S_9032;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1088; sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29)), 0 , 0 , 1 ); if (new_error) goto skip1088; skip1088: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7442);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1089; sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)), 0 , 0 , 1 ); if (new_error) goto skip1089; skip1089: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7444);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1090; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1090; skip1090: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7446);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1091; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1091; skip1091: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7447);}while(r); S_9039:; if ((-(*__LONG_CLEARERASERETURN== 1 ))||new_error){ if(qbevent){evnt(7448);if(r)goto S_9039;} do{ *__LONG_CLEARERASERETURN= 0 ; if(!qbevent)break;evnt(7448);}while(r); do{ goto LABEL_CLEARERASERETURNED; if(!qbevent)break;evnt(7448);}while(r); } do{ goto LABEL_ERASEDARRAY; if(!qbevent)break;evnt(7449);}while(r); } S_9045:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7451);if(r)goto S_9045;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7451);}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(7452);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7452);}while(r); LABEL_ERASEDARRAY:; if(qbevent){evnt(7454);r=0;} S_9050:; if ((-(*__LONG_I<*__LONG_N))||new_error){ if(qbevent){evnt(7455);if(r)goto S_9050;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7456);}while(r); do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7456);}while(r); S_9053:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(7456);if(r)goto S_9053;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7456);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7456);}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(7457);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7458);}while(r); S_9059:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(7458);if(r)goto S_9059;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7458);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7458);}while(r); } do{ goto LABEL_ERASENEXTARRAY; if(!qbevent)break;evnt(7459);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(7462);}while(r); S_9066:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(7462);if(r)goto S_9066;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7462);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7462);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(7463);}while(r); } } S_9074:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(7469);if(r)goto S_9074;} do{ *__INTEGER_DIMOPTION= 0 ; if(!qbevent)break;evnt(7470);}while(r); do{ *__INTEGER_REDIMOPTION= 0 ; if(!qbevent)break;evnt(7470);}while(r); do{ *__LONG_COMMONOPTION= 0 ; if(!qbevent)break;evnt(7470);}while(r); S_9078:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||new_error){ if(qbevent){evnt(7471);if(r)goto S_9078;} do{ *__INTEGER_DIMOPTION= 1 ; if(!qbevent)break;evnt(7471);}while(r); } S_9081:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||new_error){ if(qbevent){evnt(7472);if(r)goto S_9081;} do{ *__INTEGER_DIMOPTION= 2 ; if(!qbevent)break;evnt(7473);}while(r); do{ *__INTEGER_REDIMOPTION= 1 ; if(!qbevent)break;evnt(7473);}while(r); S_9084:; 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(7474);if(r)goto S_9084;} do{ *__INTEGER_REDIMOPTION= 2 ; if(!qbevent)break;evnt(7475);}while(r); S_9086:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(7476);if(r)goto S_9086;} 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(7476);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7476);}while(r); } } } S_9092:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ if(qbevent){evnt(7479);if(r)goto S_9092;} do{ *__INTEGER_DIMOPTION= 3 ; if(!qbevent)break;evnt(7479);}while(r); } S_9095:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||new_error){ if(qbevent){evnt(7480);if(r)goto S_9095;} do{ *__INTEGER_DIMOPTION= 1 ; if(!qbevent)break;evnt(7480);}while(r); do{ *__LONG_COMMONOPTION= 1 ; if(!qbevent)break;evnt(7480);}while(r); } S_9099:; if ((*__INTEGER_DIMOPTION)||new_error){ if(qbevent){evnt(7481);if(r)goto S_9099;} do{ qbs_set(__STRING_L,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7483);}while(r); S_9101:; if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||new_error){ if(qbevent){evnt(7485);if(r)goto S_9101;} 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(7485);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7485);}while(r); } S_9105:; if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||new_error){ if(qbevent){evnt(7486);if(r)goto S_9105;} 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(7486);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7486);}while(r); } do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(7488);}while(r); S_9110:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(7489);if(r)goto S_9110;} do{ *__LONG_I= 3 ; if(!qbevent)break;evnt(7489);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7489);}while(r); } S_9114:; if ((-(*__INTEGER_DIMOPTION!= 3 ))||new_error){ if(qbevent){evnt(7491);if(r)goto S_9114;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7492);}while(r); S_9116:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||new_error){ if(qbevent){evnt(7493);if(r)goto S_9116;} S_9117:; if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ if(qbevent){evnt(7494);if(r)goto S_9117;} 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(7494);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7494);}while(r); } do{ *__INTEGER_DIMSHARED= 1 ; if(!qbevent)break;evnt(7495);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7496);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_A2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7497);}while(r); } } S_9126:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ if(qbevent){evnt(7501);if(r)goto S_9126;} do{ *__LONG_DIMSTATIC= 1 ; if(!qbevent)break;evnt(7501);}while(r); do{ *__LONG_ALLOWLOCALNAME= 1 ; if(!qbevent)break;evnt(7501);}while(r); } LABEL_DIMNEXT:; if(qbevent){evnt(7503);r=0;} do{ *__LONG_NOTYPE= 0 ; if(!qbevent)break;evnt(7504);}while(r); do{ *__LONG_LISTARRAY= 0 ; if(!qbevent)break;evnt(7505);}while(r); do{ qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7511);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7511);}while(r); S_9134:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7512);if(r)goto S_9134;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7512);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7512);}while(r); } S_9138:; if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ if(qbevent){evnt(7515);if(r)goto S_9138;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7515);}while(r); }else{ do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7515);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7515);}while(r); } do{ qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7518);}while(r); S_9145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7520);if(r)goto S_9145;} do{ *__LONG_B= 1 ; if(!qbevent)break;evnt(7521);}while(r); S_9147:; fornext_value1094=*__LONG_I; fornext_finalvalue1094=*__LONG_N; fornext_step1094= 1 ; if (fornext_step1094<0) fornext_step_negative1094=1; else fornext_step_negative1094=0; if (new_error) goto fornext_error1094; goto fornext_entrylabel1094; while(1){ fornext_value1094=fornext_step1094+(*__LONG_I); fornext_entrylabel1094: *__LONG_I=fornext_value1094; if (fornext_step_negative1094){ if (fornext_value1094fornext_finalvalue1094) break; } fornext_error1094:; if(qbevent){evnt(7522);if(r)goto S_9147;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7523);}while(r); S_9149:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(7524);if(r)goto S_9149;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(7524);}while(r); } S_9152:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(7525);if(r)goto S_9152;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(7525);}while(r); } S_9155:; if ((-(*__LONG_B== 0 ))||new_error){ if(qbevent){evnt(7526);if(r)goto S_9155;} do{ goto fornext_exit_1093; if(!qbevent)break;evnt(7526);}while(r); } S_9158:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ if(qbevent){evnt(7527);if(r)goto S_9158;} 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(7527);}while(r); }else{ do{ qbs_set(__STRING_ELEMENTS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7527);}while(r); } fornext_continue_1093:; } fornext_exit_1093:; S_9164:; if ((-(*__LONG_B!= 0 ))||new_error){ if(qbevent){evnt(7529);if(r)goto S_9164;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7529);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7529);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7530);}while(r); S_9169:; if ((*__LONG_COMMONOPTION)||new_error){ if(qbevent){evnt(7532);if(r)goto S_9169;} do{ qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7532);}while(r); } S_9172:; if (( 0 )||new_error){ if(qbevent){evnt(7535);if(r)goto S_9172;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1096; 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 skip1096; skip1096: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7535);}while(r); } S_9175:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ if(qbevent){evnt(7540);if(r)goto S_9175;} S_9176:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ if(qbevent){evnt(7541);if(r)goto S_9176;} do{ *__LONG_LISTARRAY= 1 ; if(!qbevent)break;evnt(7542);}while(r); } } S_9180:; if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ if(qbevent){evnt(7548);if(r)goto S_9180;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7548);}while(r); }else{ do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7548);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7548);}while(r); } } do{ qbs_set(__STRING_D,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7550);}while(r); do{ *__LONG_DIMMETHOD= 0 ; if(!qbevent)break;evnt(7552);}while(r); do{ qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7554);}while(r); do{ qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7555);}while(r); do{ qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7556);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7559);}while(r); S_9193:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7560);if(r)goto S_9193;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7560);}while(r); } S_9196:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ if(qbevent){evnt(7561);if(r)goto S_9196;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7561);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7561);}while(r); } S_9200:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(7563);if(r)goto S_9200;} do{ qbs_set(__STRING_TYP,__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7564);}while(r); do{ *__LONG_DIMMETHOD= 1 ; if(!qbevent)break;evnt(7565);}while(r); do{ qbs_set(__STRING_APPENDNAME,__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7566);}while(r); do{ goto LABEL_DIMGOTTYP; if(!qbevent)break;evnt(7567);}while(r); } S_9206:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||new_error){ if(qbevent){evnt(7570);if(r)goto S_9206;} do{ qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,qbs_new_txt_len("AS",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7571);}while(r); do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7572);}while(r); S_9209:; fornext_value1099=*__LONG_I; fornext_finalvalue1099=*__LONG_N; fornext_step1099= 1 ; if (fornext_step1099<0) fornext_step_negative1099=1; else fornext_step_negative1099=0; if (new_error) goto fornext_error1099; goto fornext_entrylabel1099; while(1){ fornext_value1099=fornext_step1099+(*__LONG_I); fornext_entrylabel1099: *__LONG_I=fornext_value1099; if (fornext_step_negative1099){ if (fornext_value1099fornext_finalvalue1099) break; } fornext_error1099:; if(qbevent){evnt(7573);if(r)goto S_9209;} do{ qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7574);}while(r); S_9211:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(7575);if(r)goto S_9211;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(7575);}while(r); do{ goto fornext_exit_1098; if(!qbevent)break;evnt(7575);}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(7576);}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(7577);}while(r); do{ qbs_set(__STRING_D,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7578);}while(r); fornext_continue_1098:; } fornext_exit_1098:; do{ qbs_set(__STRING_APPENDTYPE,qbs_ucase(__STRING_APPENDTYPE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7580);}while(r); do{ qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7581);}while(r); do{ goto LABEL_DIMGOTTYP; if(!qbevent)break;evnt(7582);}while(r); } do{ *__LONG_NOTYPE= 1 ; if(!qbevent)break;evnt(7586);}while(r); S_9224:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(7587);if(r)goto S_9224;} do{ *__LONG_V= 27 ; if(!qbevent)break;evnt(7587);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7587);}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(7588);}while(r); do{ *__LONG_DIMMETHOD= 1 ; if(!qbevent)break;evnt(7589);}while(r); do{ goto LABEL_DIMGOTTYP; if(!qbevent)break;evnt(7590);}while(r); LABEL_DIMGOTTYP:; if(qbevent){evnt(7592);r=0;} S_9232:; 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(7593);if(r)goto S_9232;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected comma!",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7593);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7593);}while(r); } S_9236:; if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||new_error){ if(qbevent){evnt(7596);if(r)goto S_9236;} S_9237:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ if(qbevent){evnt(7597);if(r)goto S_9237;} S_9238:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ if(qbevent){evnt(7598);if(r)goto S_9238;} S_9239:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)))||new_error){ if(qbevent){evnt(7599);if(r)goto S_9239;} do{ qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7600);}while(r); do{ *__LONG_DIMMETHOD= 0 ; if(!qbevent)break;evnt(7601);}while(r); } } } } S_9246:; if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||new_error){ if(qbevent){evnt(7607);if(r)goto S_9246;} do{ qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7609);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7610);}while(r); do{ *__LONG_TS=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(7610);}while(r); S_9250:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ if(qbevent){evnt(7612);if(r)goto S_9250;} S_9251:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(7613);if(r)goto S_9251;} S_9252:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ if(qbevent){evnt(7614);if(r)goto S_9252;} S_9253:; 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(7616);if(r)goto S_9253;} S_9254:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7617);if(r)goto S_9254;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7618);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7618);}while(r); } } }else{ S_9260:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7622);if(r)goto S_9260;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7623);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7623);}while(r); }else{ S_9264:; 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(7626);if(r)goto S_9264;} S_9265:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7627);if(r)goto S_9265;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7628);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7628);}while(r); } } } } } } S_9274:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(7636);if(r)goto S_9274;} do{ qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7637);}while(r); S_9276:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7638);if(r)goto S_9276;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7638);}while(r); } S_9279:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ if(qbevent){evnt(7639);if(r)goto S_9279;} S_9280:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(7640);if(r)goto S_9280;} S_9281:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ if(qbevent){evnt(7641);if(r)goto S_9281;} S_9282:; 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(7643);if(r)goto S_9282;} S_9283:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7644);if(r)goto S_9283;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7645);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7645);}while(r); } } }else{ S_9289:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7649);if(r)goto S_9289;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7650);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7650);}while(r); }else{ S_9293:; 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(7653);if(r)goto S_9293;} S_9294:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7654);if(r)goto S_9294;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7655);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7655);}while(r); } } } } } } } } S_9305:; if ((*__LONG_LISTARRAY)||new_error){ if(qbevent){evnt(7665);if(r)goto S_9305;} do{ *__LONG_XI= 1 ; if(!qbevent)break;evnt(7670);}while(r); S_9307:; fornext_value1103= 1 ; fornext_finalvalue1103=*__LONG_STATICARRAYLISTN; fornext_step1103= 1 ; if (fornext_step1103<0) fornext_step_negative1103=1; else fornext_step_negative1103=0; if (new_error) goto fornext_error1103; goto fornext_entrylabel1103; while(1){ fornext_value1103=fornext_step1103+(*__LONG_X); fornext_entrylabel1103: *__LONG_X=fornext_value1103; if (fornext_step_negative1103){ if (fornext_value1103fornext_finalvalue1103) break; } fornext_error1103:; if(qbevent){evnt(7671);if(r)goto S_9307;} do{ qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7672);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7672);}while(r); do{ qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7673);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7673);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7674);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7674);}while(r); S_9314:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ if(qbevent){evnt(7676);if(r)goto S_9314;} S_9315:; if ((-(*__LONG_DIMMETHOD2== 1 ))||new_error){ if(qbevent){evnt(7677);if(r)goto S_9315;} S_9316:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ if(qbevent){evnt(7679);if(r)goto S_9316;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7679);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7679);}while(r); } }else{ S_9321:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7682);if(r)goto S_9321;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7683);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7683);}while(r); }else{ S_9325:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ if(qbevent){evnt(7685);if(r)goto S_9325;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7685);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7685);}while(r); } } } } fornext_continue_1102:; } fornext_exit_1102:; do{ qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7692);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7693);}while(r); do{ *__LONG_TS=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(7693);}while(r); S_9336:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ if(qbevent){evnt(7695);if(r)goto S_9336;} S_9337:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(7696);if(r)goto S_9337;} S_9338:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ if(qbevent){evnt(7697);if(r)goto S_9338;} S_9339:; 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(7699);if(r)goto S_9339;} S_9340:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7700);if(r)goto S_9340;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7701);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7701);}while(r); } } }else{ S_9346:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7705);if(r)goto S_9346;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7706);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7706);}while(r); }else{ S_9350:; 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(7709);if(r)goto S_9350;} S_9351:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7710);if(r)goto S_9351;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7711);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7711);}while(r); } } } } } } S_9360:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(7719);if(r)goto S_9360;} do{ qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7720);}while(r); S_9362:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7721);if(r)goto S_9362;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7721);}while(r); } S_9365:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ if(qbevent){evnt(7722);if(r)goto S_9365;} S_9366:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(7723);if(r)goto S_9366;} S_9367:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ if(qbevent){evnt(7724);if(r)goto S_9367;} S_9368:; 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(7726);if(r)goto S_9368;} S_9369:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7727);if(r)goto S_9369;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7728);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7728);}while(r); } } }else{ S_9375:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7732);if(r)goto S_9375;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7733);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7733);}while(r); }else{ S_9379:; 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(7736);if(r)goto S_9379;} S_9380:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ if(qbevent){evnt(7737);if(r)goto S_9380;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7738);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7738);}while(r); } } } } } } } S_9390:; if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||new_error){ if(qbevent){evnt(7748);if(r)goto S_9390;} do{ qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7748);}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(7749);}while(r); S_9394:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7750);if(r)goto S_9394;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7750);}while(r); } do{ *__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ; if(!qbevent)break;evnt(7751);}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(7752);}while(r); }else{ do{ *__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; if(!qbevent)break;evnt(7757);}while(r); S_9401:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ if(qbevent){evnt(7760);if(r)goto S_9401;} S_9402:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(7761);if(r)goto S_9402;} do{ *__LONG_XI= 1 ; if(!qbevent)break;evnt(7762);}while(r); S_9404:; fornext_value1107= 1 ; fornext_finalvalue1107=*__LONG_STATICARRAYLISTN; fornext_step1107= 1 ; if (fornext_step1107<0) fornext_step_negative1107=1; else fornext_step_negative1107=0; if (new_error) goto fornext_error1107; goto fornext_entrylabel1107; while(1){ fornext_value1107=fornext_step1107+(*__LONG_X); fornext_entrylabel1107: *__LONG_X=fornext_value1107; if (fornext_step_negative1107){ if (fornext_value1107fornext_finalvalue1107) break; } fornext_error1107:; if(qbevent){evnt(7763);if(r)goto S_9404;} do{ qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7764);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7764);}while(r); do{ qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7765);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7765);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7766);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7766);}while(r); S_9411:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ if(qbevent){evnt(7768);if(r)goto S_9411;} S_9412:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ if(qbevent){evnt(7769);if(r)goto S_9412;} S_9413:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7770);if(r)goto S_9413;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7770);}while(r); } S_9416:; if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ if(qbevent){evnt(7771);if(r)goto S_9416;} do{ qbs_set(__STRING_VARNAME,__STRING_VARNAME2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7773);}while(r); do{ *__LONG_DIMSTATIC= 3 ; if(!qbevent)break;evnt(7774);}while(r); S_9419:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ if(qbevent){evnt(7775);if(r)goto S_9419;} 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(7775);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7775);}while(r); } } } } fornext_continue_1106:; } fornext_exit_1106:; } } S_9429:; if ((*__LONG_COMMONOPTION)||new_error){ if(qbevent){evnt(7786);if(r)goto S_9429;} S_9430:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ if(qbevent){evnt(7787);if(r)goto S_9430;} S_9431:; if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||new_error){ if(qbevent){evnt(7790);if(r)goto S_9431;} do{ qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7790);}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(&(pass1110=*__INTEGER_DIMSHARED)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7792);}while(r); S_9435:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7793);if(r)goto S_9435;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7793);}while(r); } do{ *__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ; if(!qbevent)break;evnt(7794);}while(r); S_9439:; if (( 0 )||new_error){ if(qbevent){evnt(7795);if(r)goto S_9439;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1111; 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(&(pass1112=*__INTEGER_DIMSHARED))), 0 , 0 , 1 ); if (new_error) goto skip1111; skip1111: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7795);}while(r); } S_9442:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7796);if(r)goto S_9442;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7796);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(7798);}while(r); do{ qbs_set(__STRING_V,__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7800);}while(r); S_9447:; if ((-(*__LONG_DIMMETHOD== 1 ))||new_error){ if(qbevent){evnt(7801);if(r)goto S_9447;} do{ qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7801);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_V); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7802);}while(r); S_9451:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7803);if(r)goto S_9451;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7803);}while(r); } S_9454:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(7804);if(r)goto S_9454;} S_9455:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(7805);if(r)goto S_9455;} do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7807);}while(r); S_9457:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7808);if(r)goto S_9457;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7808);}while(r); } do{ *__LONG_S=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(7809);}while(r); do{ *__LONG_MATCH= 1 ; if(!qbevent)break;evnt(7810);}while(r); S_9462:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7812);if(r)goto S_9462;} do{ *__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(7813);}while(r); do{ *__LONG_S2=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(7814);}while(r); S_9465:; if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||new_error){ if(qbevent){evnt(7815);if(r)goto S_9465;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7815);}while(r); } S_9468:; if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||new_error){ if(qbevent){evnt(7816);if(r)goto S_9468;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7816);}while(r); } S_9471:; if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(7817);if(r)goto S_9471;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7817);}while(r); } S_9474:; if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||new_error){ if(qbevent){evnt(7818);if(r)goto S_9474;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7818);}while(r); } S_9477:; if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||new_error){ if(qbevent){evnt(7819);if(r)goto S_9477;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7819);}while(r); } S_9480:; if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||new_error){ if(qbevent){evnt(7820);if(r)goto S_9480;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7820);}while(r); } S_9483:; if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||new_error){ if(qbevent){evnt(7821);if(r)goto S_9483;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7821);}while(r); } S_9486:; if ((-(*__LONG_S!=*__LONG_S2))||new_error){ if(qbevent){evnt(7822);if(r)goto S_9486;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7822);}while(r); } do{ *__LONG_OLDMETHOD= 0 ; if(!qbevent)break;evnt(7824);}while(r); S_9490:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ if(qbevent){evnt(7824);if(r)goto S_9490;} do{ *__LONG_OLDMETHOD= 1 ; if(!qbevent)break;evnt(7824);}while(r); } S_9493:; if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||new_error){ if(qbevent){evnt(7825);if(r)goto S_9493;} do{ *__LONG_MATCH= 0 ; if(!qbevent)break;evnt(7825);}while(r); } } S_9497:; if ((*__LONG_MATCH)||new_error){ if(qbevent){evnt(7828);if(r)goto S_9497;} do{ *__LONG_X=*__LONG_CURRENTID; if(!qbevent)break;evnt(7829);}while(r); S_9499:; if ((*__INTEGER_DIMSHARED)||new_error){ if(qbevent){evnt(7830);if(r)goto S_9499;} do{ *(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))= 1 ; if(!qbevent)break;evnt(7830);}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(7831);}while(r); S_9503:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ if(qbevent){evnt(7833);if(r)goto S_9503;} S_9504:; if ((*__LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(7834);if(r)goto S_9504;} 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(7835);}while(r); S_9506:; 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(7836);if(r)goto S_9506;} 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(7837);}while(r); } }else{ do{ qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7840);}while(r); S_9511:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(7841);if(r)goto S_9511;} 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(7842);}while(r); dl_continue_1114:; } dl_exit_1114:; do{ qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_ucase(__STRING_DIM2TYPEPASSBACK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7844);}while(r); } } do{ goto dl_exit_1113; if(!qbevent)break;evnt(7848);}while(r); } } S_9520:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(7852);if(r)goto S_9520;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(7852);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_V); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7852);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(7852);}while(r); } S_9526:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7853);if(r)goto S_9526;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7853);}while(r); } dl_continue_1113:; } dl_exit_1113:; S_9530:; if ((-(*__LONG_X== 0 ))||new_error){ if(qbevent){evnt(7856);if(r)goto S_9530;} do{ *__LONG_X=*__LONG_IDN+ 1 ; if(!qbevent)break;evnt(7856);}while(r); } do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 5 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7859);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 22 ; if (new_error) goto skip1115; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip1115; skip1115: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7861);}while(r); do{ sub_close( 22 ,1); if(!qbevent)break;evnt(7862);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7864);}while(r); do{ sub_close( 22 ,1); if(!qbevent)break;evnt(7864);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 5 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7866);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 22 ; if (new_error) goto skip1116; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip1116; skip1116: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7868);}while(r); do{ sub_close( 22 ,1); if(!qbevent)break;evnt(7869);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7871);}while(r); do{ sub_close( 22 ,1); if(!qbevent)break;evnt(7871);}while(r); S_9543:; if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||new_error){ if(qbevent){evnt(7874);if(r)goto S_9543;} do{ goto LABEL_SKIPDIM; if(!qbevent)break;evnt(7874);}while(r); } do{ goto LABEL_DIMCOMMONARRAY; if(!qbevent)break;evnt(7875);}while(r); } } S_9549:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ if(qbevent){evnt(7882);if(r)goto S_9549;} S_9550:; if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ if(qbevent){evnt(7883);if(r)goto S_9550;} S_9551:; if (( 0 )||new_error){ if(qbevent){evnt(7885);if(r)goto S_9551;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1118; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0 , 0 , 1 ); if (new_error) goto skip1118; skip1118: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7885);}while(r); } do{ *__LONG_XI= 1 ; if(!qbevent)break;evnt(7887);}while(r); S_9555:; fornext_value1120= 1 ; fornext_finalvalue1120=*__LONG_COMMONARRAYLISTN; fornext_step1120= 1 ; if (fornext_step1120<0) fornext_step_negative1120=1; else fornext_step_negative1120=0; if (new_error) goto fornext_error1120; goto fornext_entrylabel1120; while(1){ fornext_value1120=fornext_step1120+(*__LONG_X); fornext_entrylabel1120: *__LONG_X=fornext_value1120; if (fornext_step_negative1120){ if (fornext_value1120fornext_finalvalue1120) break; } fornext_error1120:; if(qbevent){evnt(7888);if(r)goto S_9555;} do{ qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7889);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7889);}while(r); do{ qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7890);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7890);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7891);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7891);}while(r); do{ *__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7892);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(7892);}while(r); S_9564:; if (( 0 )||new_error){ if(qbevent){evnt(7893);if(r)goto S_9564;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1121; 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 skip1121; skip1121: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7893);}while(r); } S_9567:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||new_error){ if(qbevent){evnt(7895);if(r)goto S_9567;} S_9568:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ if(qbevent){evnt(7896);if(r)goto S_9568;} S_9569:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7897);if(r)goto S_9569;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7897);}while(r); } S_9572:; if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ if(qbevent){evnt(7898);if(r)goto S_9572;} S_9573:; if ((*__LONG_DIMSHARED2)||new_error){ if(qbevent){evnt(7902);if(r)goto S_9573;} do{ *__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ; if(!qbevent)break;evnt(7902);}while(r); } } } } fornext_continue_1119:; } fornext_exit_1119:; } } LABEL_DIMCOMMONARRAY:; if(qbevent){evnt(7914);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(7915);}while(r); S_9583:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7916);if(r)goto S_9583;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7916);}while(r); } LABEL_SKIPDIM:; if(qbevent){evnt(7917);r=0;} S_9586:; if ((-(*__INTEGER_DIMSHARED>= 2 ))||new_error){ if(qbevent){evnt(7918);if(r)goto S_9586;} do{ *__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ; if(!qbevent)break;evnt(7918);}while(r); } S_9589:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||new_error){ if(qbevent){evnt(7921);if(r)goto S_9589;} do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; if(!qbevent)break;evnt(7925);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(7928);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 5 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7929);}while(r); do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7930);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1123; sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=1;",11), 0 , 0 , 1 ); if (new_error) goto skip1123; skip1123: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7932);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1124; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1124; skip1124: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7933);}while(r); do{ *__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(7935);}while(r); do{ *__LONG_BITS=*__LONG_T& 511 ; if(!qbevent)break;evnt(7936);}while(r); S_9598:; if ((*__LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(7937);if(r)goto S_9598;} 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(7937);}while(r); } S_9601:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(7938);if(r)goto S_9601;} S_9602:; if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(7939);if(r)goto S_9602;} do{ *__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ; if(!qbevent)break;evnt(7940);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1125; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1125; skip1125: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7942);}while(r); do{ *__LONG_BITS= 0 ; if(!qbevent)break;evnt(7943);}while(r); } } S_9609:; if ((*__LONG_BITS)||new_error){ if(qbevent){evnt(7947);if(r)goto S_9609;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1126; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1126; skip1126: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7948);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1127; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1127; skip1127: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7950);}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(7953);}while(r); S_9614:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(7955);if(r)goto S_9614;} S_9615:; if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(7956);if(r)goto S_9615;} 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(7957);}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(7959);}while(r); S_9619:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7960);if(r)goto S_9619;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7960);}while(r); } } } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1128= -4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7963);}while(r); S_9625:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7964);if(r)goto S_9625;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7964);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1129; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); if (new_error) goto skip1129; skip1129: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7966);}while(r); do{ qbs_set(__STRING_TLAYOUT,__STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7968);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(7970);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 5 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7971);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(7977);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 5 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7978);}while(r); do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7979);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1130; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==1){",17), 0 , 0 , 1 ); if (new_error) goto skip1130; skip1130: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7982);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1131; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1131; skip1131: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(7984);}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(7987);}while(r); do{ *__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(7988);}while(r); S_9639:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(7989);if(r)goto S_9639;} S_9640:; if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(7990);if(r)goto S_9640;} 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(7991);}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(7993);}while(r); S_9644:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(7994);if(r)goto S_9644;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7994);}while(r); } } } S_9649:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(7998);if(r)goto S_9649;} S_9650:; if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(7999);if(r)goto S_9650;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1132; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28), 0 , 0 , 1 ); if (new_error) goto skip1132; skip1132: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8000);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1133; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1133; skip1133: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8001);}while(r); } } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1134= -4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8006);}while(r); S_9656:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8007);if(r)goto S_9656;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8007);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1135; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); if (new_error) goto skip1135; skip1135: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8008);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1136; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1136; skip1136: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8010);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1137; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1137; skip1137: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8011);}while(r); do{ qbs_set(__STRING_TLAYOUT,__STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8013);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(8015);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 5 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8016);}while(r); do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(8018);}while(r); } LABEL_COMMONARRAYLISTED:; if(qbevent){evnt(8022);r=0;} do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8024);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1138= 1 ))),__STRING_APPENDNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8025);}while(r); S_9669:; if ((-(*__LONG_N2> 1 ))||new_error){ if(qbevent){evnt(8026);if(r)goto S_9669;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1139= 2 ),__LONG_N2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8027);}while(r); } S_9672:; if ((qbs_cleanup(qbs_tmp_base,__STRING_APPENDTYPE->len))||new_error){ if(qbevent){evnt(8030);if(r)goto S_9672;} S_9673:; if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ if(qbevent){evnt(8031);if(r)goto S_9673;} do{ qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_DIM2TYPEPASSBACK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8031);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8032);}while(r); } do{ *__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC; if(!qbevent)break;evnt(8037);}while(r); } S_9680:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(8041);if(r)goto S_9680;} 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(8041);}while(r); do{ goto LABEL_DIMNEXT; if(!qbevent)break;evnt(8041);}while(r); } do{ *__INTEGER_DIMOPTION= 0 ; if(!qbevent)break;evnt(8043);}while(r); do{ *__INTEGER_DIMSHARED= 0 ; if(!qbevent)break;evnt(8044);}while(r); do{ *__INTEGER_REDIMOPTION= 0 ; if(!qbevent)break;evnt(8045);}while(r); S_9687:; if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ if(qbevent){evnt(8046);if(r)goto S_9687;} do{ *__LONG_DIMSTATIC= 0 ; if(!qbevent)break;evnt(8046);}while(r); } do{ *__LONG_ALLOWLOCALNAME= 0 ; if(!qbevent)break;evnt(8047);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8049);}while(r); S_9692:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(8050);if(r)goto S_9692;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8050);}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(8050);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8052);}while(r); } } S_9700:; if ((-(*__LONG_THENGOTO== 1 ))||new_error){ if(qbevent){evnt(8067);if(r)goto S_9700;} S_9701:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8068);if(r)goto S_9701;} do{ qbs_set(__STRING_L,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8069);}while(r); do{ *__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8070);}while(r); S_9704:; if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||new_error){ if(qbevent){evnt(8071);if(r)goto S_9704;} do{ qbs_set(__STRING_A2,__STRING_CA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8071);}while(r); do{ goto LABEL_THENGOTO; if(!qbevent)break;evnt(8071);}while(r); } } } S_9710:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(8076);if(r)goto S_9710;} S_9711:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1143= 1 )),qbs_new_txt_len("GOTO",4))))||new_error){ if(qbevent){evnt(8077);if(r)goto S_9711;} do{ qbs_set(__STRING_L,qbs_new_txt_len("GOTO",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8078);}while(r); do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1144= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8079);}while(r); LABEL_THENGOTO:; if(qbevent){evnt(8080);r=0;} S_9714:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(8081);if(r)goto S_9714;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8081);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8081);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1145= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8083);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8084);}while(r); LABEL_LABCHK2:; if(qbevent){evnt(8085);r=0;} S_9720:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8086);if(r)goto S_9720;} 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(8087);}while(r); S_9722:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(8088);if(r)goto S_9722;} S_9723:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(8089);if(r)goto S_9723;} 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(8089);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8090);}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(8091);}while(r); }else{ S_9729:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(8093);if(r)goto S_9729;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8093);}while(r); do{ goto LABEL_LABCHK2; if(!qbevent)break;evnt(8093);}while(r); } } } S_9735:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8096);if(r)goto S_9735;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8098);}while(r); S_9737:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8098);if(r)goto S_9737;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8098);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8108);if(r)goto S_9749;} 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(8108);}while(r); }else{ do{ qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8108);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8109);}while(r); S_9755:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8109);if(r)goto S_9755;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8109);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8109);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1149; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1149; skip1149: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8110);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8111);}while(r); } } S_9764:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8115);if(r)goto S_9764;} S_9765:; 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(8116);if(r)goto S_9765;} do{ qbs_set(__STRING_L,qbs_ucase(__STRING_FIRSTELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8117);}while(r); S_9767:; fornext_value1151=*__INTEGER_CONTROLLEVEL; fornext_finalvalue1151= 1 ; fornext_step1151= -1 ; if (fornext_step1151<0) fornext_step_negative1151=1; else fornext_step_negative1151=0; if (new_error) goto fornext_error1151; goto fornext_entrylabel1151; while(1){ fornext_value1151=fornext_step1151+(*__LONG_I); fornext_entrylabel1151: *__LONG_I=fornext_value1151; if (fornext_step_negative1151){ if (fornext_value1151fornext_finalvalue1151) break; } fornext_error1151:; if(qbevent){evnt(8119);if(r)goto S_9767;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(8120);}while(r); S_9769:; if ((-(*__LONG_T== 2 ))||new_error){ if(qbevent){evnt(8121);if(r)goto S_9769;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1152; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1152; skip1152: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8122);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8123);}while(r); S_9772:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8123);if(r)goto S_9772;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8123);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8123);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8124);}while(r); S_9778:; }else{ if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){ if(qbevent){evnt(8125);if(r)goto S_9778;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1154; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1154; skip1154: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8126);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8127);}while(r); S_9781:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8127);if(r)goto S_9781;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8127);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8127);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8128);}while(r); S_9787:; }else{ if (-(*__LONG_T== 5 )){ if(qbevent){evnt(8129);if(r)goto S_9787;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1156; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1156; skip1156: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8130);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8131);}while(r); S_9790:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8131);if(r)goto S_9790;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8131);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8131);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8132);}while(r); } } } fornext_continue_1150:; } fornext_exit_1150:; 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(8135);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8135);}while(r); } } S_9802:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||new_error){ if(qbevent){evnt(8139);if(r)goto S_9802;} do{ qbs_set(__STRING_L,qbs_new_txt_len("RUN",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8140);}while(r); S_9804:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8141);if(r)goto S_9804;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1158; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_run_init();",15), 0 , 0 , 1 ); if (new_error) goto skip1158; skip1158: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8143);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1159; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31), 0 , 0 , 1 ); if (new_error) goto skip1159; skip1159: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8144);}while(r); S_9807:; if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ if(qbevent){evnt(8145);if(r)goto S_9807;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1161; sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip1161; skip1161: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8146);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1162; sub_file_print(tmp_fileno,qbs_new_txt_len("goto S_0;",9), 0 , 0 , 1 ); if (new_error) goto skip1162; skip1162: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8148);}while(r); } }else{ do{ qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1163= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8152);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8153);}while(r); S_9815:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8154);if(r)goto S_9815;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8154);}while(r); } do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8155);}while(r); do{ qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8156);}while(r); S_9820:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8157);if(r)goto S_9820;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8157);}while(r); } S_9823:; if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||new_error){ if(qbevent){evnt(8158);if(r)goto S_9823;} do{ qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1164= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8160);}while(r); S_9825:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ if(qbevent){evnt(8161);if(r)goto S_9825;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); 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{ *__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1165= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8163);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8164);}while(r); LABEL_LABCHK501:; if(qbevent){evnt(8165);r=0;} S_9831:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8166);if(r)goto S_9831;} 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(8167);}while(r); S_9833:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(8168);if(r)goto S_9833;} S_9834:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(8169);if(r)goto S_9834;} 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(8169);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8170);}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(8171);}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(8172);}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(8173);}while(r); }else{ S_9842:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(8175);if(r)goto S_9842;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8175);}while(r); do{ goto LABEL_LABCHK501; if(!qbevent)break;evnt(8175);}while(r); } } } S_9848:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8178);if(r)goto S_9848;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8180);}while(r); S_9850:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8180);if(r)goto S_9850;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8180);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8194);if(r)goto S_9866;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 21 ; if (new_error) goto skip1170; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1170; skip1170: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8195);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1171; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1171; skip1171: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8196);}while(r); do{ *__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ; if(!qbevent)break;evnt(8197);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1172; sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip1172; skip1172: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8198);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1173; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1173; skip1173: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8200);}while(r); } }else{ do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8204);}while(r); S_9876:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8205);if(r)goto S_9876;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8205);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1174; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1174; skip1174: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8206);}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(8207);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8210);}while(r); S_9884:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8210);if(r)goto S_9884;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8210);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8210);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8211);}while(r); } S_9891:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ if(qbevent){evnt(8218);if(r)goto S_9891;} do{ qbs_set(__STRING_L,qbs_new_txt_len("END",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8219);}while(r); S_9893:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(8220);if(r)goto S_9893;} do{ qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1176= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8221);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8222);}while(r); S_9896:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8222);if(r)goto S_9896;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8222);}while(r); } do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8223);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8224);}while(r); S_9901:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8224);if(r)goto S_9901;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8224);}while(r); } do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8225);}while(r); S_9905:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ if(qbevent){evnt(8226);if(r)goto S_9905;} 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(8227);}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(8228);}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(8229);}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(8230);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1178; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); if (new_error) goto skip1178; skip1178: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8232);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1179; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1179; skip1179: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8233);}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(8234);}while(r); } do{ SUB_XEND(); if(!qbevent)break;evnt(8236);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8237);}while(r); S_9917:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8237);if(r)goto S_9917;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8237);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8237);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8238);}while(r); } S_9924:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||new_error){ if(qbevent){evnt(8241);if(r)goto S_9924;} do{ qbs_set(__STRING_L,qbs_new_txt_len("SYSTEM",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8242);}while(r); S_9926:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(8243);if(r)goto S_9926;} do{ qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1181= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8244);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8245);}while(r); S_9929:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8245);if(r)goto S_9929;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8245);}while(r); } do{ qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8246);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8247);}while(r); S_9934:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8247);if(r)goto S_9934;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8247);}while(r); } do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8248);}while(r); S_9938:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ if(qbevent){evnt(8249);if(r)goto S_9938;} 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(8250);}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(8251);}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(8252);}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(8253);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1183; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); if (new_error) goto skip1183; skip1183: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8255);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1184; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1184; skip1184: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8256);}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(8257);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1185; sub_file_print(tmp_fileno,qbs_new_txt_len("if (sub_gl_called) error(271);",30), 0 , 0 , 1 ); if (new_error) goto skip1185; skip1185: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8261);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1186; sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1186; skip1186: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8262);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1187; sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); if (new_error) goto skip1187; skip1187: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8263);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8264);}while(r); S_9952:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8264);if(r)goto S_9952;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8264);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8264);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8265);}while(r); } S_9959:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8268);if(r)goto S_9959;} S_9960:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||new_error){ if(qbevent){evnt(8269);if(r)goto S_9960;} do{ qbs_set(__STRING_L,qbs_new_txt_len("STOP",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8270);}while(r); S_9962:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(8271);if(r)goto S_9962;} do{ qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1189= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8272);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8273);}while(r); S_9965:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8274);if(r)goto S_9965;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8274);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("STOP",4),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8275);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1190= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8276);}while(r); S_9970:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8277);if(r)goto S_9970;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8277);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8280);}while(r); S_9975:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8280);if(r)goto S_9975;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8280);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8280);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1192; sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1192; skip1192: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8281);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1193; sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); if (new_error) goto skip1193; skip1193: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8282);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8283);}while(r); } } S_9985:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(8287);if(r)goto S_9985;} S_9986:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||new_error){ if(qbevent){evnt(8288);if(r)goto S_9986;} do{ SUB_XGOSUB(__STRING_CA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8289);}while(r); S_9988:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8290);if(r)goto S_9988;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8290);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8292);}while(r); } } S_9994:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8296);if(r)goto S_9994;} S_9995:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||new_error){ if(qbevent){evnt(8297);if(r)goto S_9995;} S_9996:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8298);if(r)goto S_9996;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1194; sub_file_print(tmp_fileno,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 )), 0 , 0 , 1 ); if (new_error) goto skip1194; skip1194: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8299);}while(r); do{ qbs_set(__STRING_L,qbs_new_txt_len("RETURN",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8300);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8301);}while(r); S_10000:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8301);if(r)goto S_10000;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8301);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8301);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8302);}while(r); }else{ S_10007:; if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ if(qbevent){evnt(8305);if(r)goto S_10007;} 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(8305);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8305);}while(r); } S_10011:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(8306);if(r)goto S_10011;} 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(8306);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8306);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1196; sub_file_print(tmp_fileno,qbs_new_txt_len("if (!next_return_point) error(3);",33), 0 , 0 , 1 ); if (new_error) goto skip1196; skip1196: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8307);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1197; sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); if (new_error) goto skip1197; skip1197: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8308);}while(r); do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1198= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8309);}while(r); S_10018:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(8310);if(r)goto S_10018;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8310);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8310);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1199= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8312);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8313);}while(r); LABEL_LABCHK505:; if(qbevent){evnt(8314);r=0;} S_10024:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8315);if(r)goto S_10024;} 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(8316);}while(r); S_10026:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(8317);if(r)goto S_10026;} S_10027:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(8318);if(r)goto S_10027;} 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(8318);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8319);}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(8320);}while(r); }else{ S_10033:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(8322);if(r)goto S_10033;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8322);}while(r); do{ goto LABEL_LABCHK505; if(!qbevent)break;evnt(8322);}while(r); } } } S_10039:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8325);if(r)goto S_10039;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8327);}while(r); S_10041:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8327);if(r)goto S_10041;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8327);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8339);if(r)goto S_10056;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8339);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8339);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8340);}while(r); } } } S_10065:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8345);if(r)goto S_10065;} S_10066:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||new_error){ if(qbevent){evnt(8346);if(r)goto S_10066;} do{ qbs_set(__STRING_L,qbs_new_txt_len("RESUME",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8347);}while(r); S_10068:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8348);if(r)goto S_10068;} LABEL_RESUMEPREV:; if(qbevent){evnt(8349);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1203; sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}",102), 0 , 0 , 1 ); if (new_error) goto skip1203; skip1203: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8352);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8354);}while(r); S_10071:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8354);if(r)goto S_10071;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8354);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8354);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8355);}while(r); } S_10078:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(8357);if(r)goto S_10078;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8357);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8357);}while(r); } do{ qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1205= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8358);}while(r); S_10083:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||new_error){ if(qbevent){evnt(8359);if(r)goto S_10083;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1206; sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76), 0 , 0 , 1 ); if (new_error) goto skip1206; skip1206: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8362);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("NEXT",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8364);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8365);}while(r); S_10087:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8365);if(r)goto S_10087;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8365);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8365);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8366);}while(r); } S_10094:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||new_error){ if(qbevent){evnt(8368);if(r)goto S_10094;} 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(8368);}while(r); do{ goto LABEL_RESUMEPREV; if(!qbevent)break;evnt(8368);}while(r); } S_10098:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||new_error){ if(qbevent){evnt(8369);if(r)goto S_10098;} 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(8369);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8369);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1208= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8371);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8372);}while(r); LABEL_LABCHK506:; if(qbevent){evnt(8373);r=0;} S_10104:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8374);if(r)goto S_10104;} 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(8375);}while(r); S_10106:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(8376);if(r)goto S_10106;} S_10107:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(8377);if(r)goto S_10107;} 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(8377);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8378);}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(8379);}while(r); }else{ S_10113:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(8381);if(r)goto S_10113;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8381);}while(r); do{ goto LABEL_LABCHK506; if(!qbevent)break;evnt(8381);}while(r); } } } S_10119:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8384);if(r)goto S_10119;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8386);}while(r); S_10121:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8386);if(r)goto S_10121;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8386);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8397);if(r)goto S_10135;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8397);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8397);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1211; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1211; skip1211: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8398);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8399);}while(r); } } S_10144:; if ((-(*__LONG_N== 4 ))||new_error){ if(qbevent){evnt(8403);if(r)goto S_10144;} S_10145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1212= 1 ),&(pass1213= 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(8404);if(r)goto S_10145;} do{ qbs_set(__STRING_L,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(8405);}while(r); do{ qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1214= 4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8406);}while(r); S_10148:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||new_error){ if(qbevent){evnt(8407);if(r)goto S_10148;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1215; sub_file_print(tmp_fileno,qbs_new_txt_len("error_goto_line=0;",18), 0 , 0 , 1 ); if (new_error) goto skip1215; skip1215: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8408);}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(8409);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8410);}while(r); S_10152:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8410);if(r)goto S_10152;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8410);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8410);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8411);}while(r); } S_10159:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ if(qbevent){evnt(8413);if(r)goto S_10159;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8413);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8413);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1217= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8415);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8416);}while(r); LABEL_LABCHK6:; if(qbevent){evnt(8417);r=0;} S_10165:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8418);if(r)goto S_10165;} 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(8419);}while(r); S_10167:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ if(qbevent){evnt(8420);if(r)goto S_10167;} S_10168:; if ((-(*__LONG_S== -1 ))||new_error){ if(qbevent){evnt(8421);if(r)goto S_10168;} 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(8421);}while(r); } do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8422);}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(8423);}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(8424);}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(8425);}while(r); }else{ S_10176:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(8427);if(r)goto S_10176;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8427);}while(r); do{ goto LABEL_LABCHK6; if(!qbevent)break;evnt(8427);}while(r); } } } S_10182:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8430);if(r)goto S_10182;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8432);}while(r); S_10184:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8432);if(r)goto S_10184;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8432);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8445);if(r)goto S_10199;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8445);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8445);}while(r); } do{ *__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ; if(!qbevent)break;evnt(8446);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1220; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1220; skip1220: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8447);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 14 ; if (new_error) goto skip1221; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1221; skip1221: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8448);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8449);}while(r); } } S_10210:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8453);if(r)goto S_10210;} S_10211:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||new_error){ if(qbevent){evnt(8454);if(r)goto S_10211;} do{ qbs_set(__STRING_L,qbs_new_txt_len("RESTORE",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8455);}while(r); S_10213:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8456);if(r)goto S_10213;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1222; sub_file_print(tmp_fileno,qbs_new_txt_len("data_offset=0;",14), 0 , 0 , 1 ); if (new_error) goto skip1222; skip1222: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8457);}while(r); }else{ S_10216:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(8459);if(r)goto S_10216;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8459);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8459);}while(r); } do{ qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1223= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8460);}while(r); S_10221:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ if(qbevent){evnt(8461);if(r)goto S_10221;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8461);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8461);}while(r); } do{ *__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1224= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8465);}while(r); do{ *__LONG_X= 1 ; if(!qbevent)break;evnt(8466);}while(r); S_10227:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(8467);if(r)goto S_10227;} do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(8468);}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(8469);}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(8470);}while(r); S_10231:; 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(8471);if(r)goto S_10231;} 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(8471);}while(r); } } S_10235:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(8473);if(r)goto S_10235;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(8474);}while(r); S_10237:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(8474);if(r)goto S_10237;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(8474);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(8488);if(r)goto S_10254;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8488);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8488);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8489);}while(r); } } S_10262:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8496);if(r)goto S_10262;} S_10263:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||new_error){ if(qbevent){evnt(8497);if(r)goto S_10263;} do{ SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8498);}while(r); S_10265:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8499);if(r)goto S_10265;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8499);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8500);}while(r); } } S_10271:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8506);if(r)goto S_10271;} S_10272:; 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(8507);if(r)goto S_10272;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8509);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(8510);}while(r); do{ *__LONG_NE= 0 ; if(!qbevent)break;evnt(8511);}while(r); S_10276:; fornext_value1229= 2 ; fornext_finalvalue1229=*__LONG_N; fornext_step1229= 1 ; if (fornext_step1229<0) fornext_step_negative1229=1; else fornext_step_negative1229=0; if (new_error) goto fornext_error1229; goto fornext_entrylabel1229; while(1){ fornext_value1229=fornext_step1229+(*__LONG_I2); fornext_entrylabel1229: *__LONG_I2=fornext_value1229; if (fornext_step_negative1229){ if (fornext_value1229fornext_finalvalue1229) break; } fornext_error1229:; if(qbevent){evnt(8512);if(r)goto S_10276;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8513);}while(r); S_10278:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(8514);if(r)goto S_10278;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8514);}while(r); } S_10281:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(8515);if(r)goto S_10281;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8515);}while(r); } S_10284:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(8516);if(r)goto S_10284;} do{ *__LONG_NE=*__LONG_NE+ 1 ; if(!qbevent)break;evnt(8517);}while(r); S_10286:; if ((-(*__LONG_NE== 1 ))||new_error){ if(qbevent){evnt(8518);if(r)goto S_10286;} do{ qbs_set(__STRING_BLK,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8518);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8518);}while(r); } S_10290:; if ((-(*__LONG_NE== 2 ))||new_error){ if(qbevent){evnt(8519);if(r)goto S_10290;} do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8519);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8519);}while(r); } S_10294:; if ((-(*__LONG_NE== 3 ))||new_error){ if(qbevent){evnt(8520);if(r)goto S_10294;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8520);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8520);}while(r); } }else{ S_10299:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(8522);if(r)goto S_10299;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8522);}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(8522);}while(r); } } fornext_continue_1228:; } fornext_exit_1228:; do{ qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8525);}while(r); S_10307:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||new_error){ if(qbevent){evnt(8526);if(r)goto S_10307;} 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(8526);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8526);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_ucase(__STRING_FIRSTELEMENT),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8528);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8530);}while(r); S_10313:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8530);if(r)goto S_10313;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8530);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8531);}while(r); do{ qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8533);}while(r); S_10318:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8533);if(r)goto S_10318;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8533);}while(r); } S_10321:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ if(qbevent){evnt(8534);if(r)goto S_10321;} 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(8534);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8534);}while(r); } do{ qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1231= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8535);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8542);}while(r); S_10327:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8542);if(r)goto S_10327;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8542);}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(8543);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1232=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8544);}while(r); S_10332:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8544);if(r)goto S_10332;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8544);}while(r); } do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8545);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8548);}while(r); S_10337:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8548);if(r)goto S_10337;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8548);}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(8549);}while(r); do{ qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1233= -5 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8550);}while(r); S_10342:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8550);if(r)goto S_10342;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8550);}while(r); } do{ qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1234= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8551);}while(r); S_10346:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8551);if(r)goto S_10346;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8551);}while(r); } do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(8561);}while(r); S_10350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(8562);if(r)goto S_10350;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(8562);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8562);}while(r); } S_10354:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ if(qbevent){evnt(8563);if(r)goto S_10354;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(8563);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8563);}while(r); } S_10358:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ if(qbevent){evnt(8564);if(r)goto S_10358;} do{ *__LONG_S= 4 ; if(!qbevent)break;evnt(8564);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8564);}while(r); } S_10362:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ if(qbevent){evnt(8565);if(r)goto S_10362;} do{ *__LONG_S= 8 ; if(!qbevent)break;evnt(8565);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8565);}while(r); } S_10366:; if ((*__LONG_NOCHECKS)||new_error){ if(qbevent){evnt(8567);if(r)goto S_10366;} S_10367:; if ((*__LONG_S)||new_error){ if(qbevent){evnt(8569);if(r)goto S_10367;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1235; 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("*(",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)), 0 , 0 , 1 ); if (new_error) goto skip1235; skip1235: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8570);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1236; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1236; skip1236: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8572);}while(r); } }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1237; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1237; skip1237: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8576);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1238; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); if (new_error) goto skip1238; skip1238: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8578);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1239; sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); if (new_error) goto skip1239; skip1239: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8580);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1240; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); if (new_error) goto skip1240; skip1240: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8581);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1241; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1241; skip1241: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8582);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1242; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1242; skip1242: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8583);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1243; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1243; skip1243: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8585);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1244; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip1244; skip1244: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8586);}while(r); S_10381:; if ((*__LONG_S)||new_error){ if(qbevent){evnt(8587);if(r)goto S_10381;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1245; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1245; skip1245: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8588);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1246; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1246; skip1246: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8590);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1247; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1247; skip1247: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8592);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1248; sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); if (new_error) goto skip1248; skip1248: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8593);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8596);}while(r); S_10390:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8596);if(r)goto S_10390;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8596);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8596);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8597);}while(r); } } S_10398:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8605);if(r)goto S_10398;} S_10399:; 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(8606);if(r)goto S_10399;} do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8608);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8609);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(8610);}while(r); do{ *__LONG_NE= 0 ; if(!qbevent)break;evnt(8611);}while(r); S_10404:; fornext_value1251= 2 ; fornext_finalvalue1251=*__LONG_N; fornext_step1251= 1 ; if (fornext_step1251<0) fornext_step_negative1251=1; else fornext_step_negative1251=0; if (new_error) goto fornext_error1251; goto fornext_entrylabel1251; while(1){ fornext_value1251=fornext_step1251+(*__LONG_I2); fornext_entrylabel1251: *__LONG_I2=fornext_value1251; if (fornext_step_negative1251){ if (fornext_value1251fornext_finalvalue1251) break; } fornext_error1251:; if(qbevent){evnt(8612);if(r)goto S_10404;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8613);}while(r); S_10406:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(8614);if(r)goto S_10406;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8614);}while(r); } S_10409:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(8615);if(r)goto S_10409;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8615);}while(r); } S_10412:; 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(8616);if(r)goto S_10412;} do{ *__LONG_NE=*__LONG_NE+ 1 ; if(!qbevent)break;evnt(8617);}while(r); S_10414:; if ((-(*__LONG_NE== 1 ))||new_error){ if(qbevent){evnt(8618);if(r)goto S_10414;} do{ qbs_set(__STRING_BLK,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8618);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8618);}while(r); } S_10418:; if ((-(*__LONG_NE== 2 ))||new_error){ if(qbevent){evnt(8619);if(r)goto S_10418;} do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8619);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8619);}while(r); } S_10422:; if ((-(*__LONG_NE== 3 ))||new_error){ if(qbevent){evnt(8620);if(r)goto S_10422;} do{ qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8620);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8620);}while(r); } S_10426:; 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(8621);if(r)goto S_10426;} 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(8621);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8621);}while(r); } }else{ S_10431:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(8623);if(r)goto S_10431;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8623);}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(8623);}while(r); } } fornext_continue_1250:; } fornext_exit_1250:; S_10438:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(8626);if(r)goto S_10438;} 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(8626);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8626);}while(r); } S_10442:; if ((-(*__LONG_NE== 2 ))||new_error){ if(qbevent){evnt(8627);if(r)goto S_10442;} do{ qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8627);}while(r); }else{ do{ qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8627);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_ucase(__STRING_FIRSTELEMENT),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8629);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8631);}while(r); S_10449:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8631);if(r)goto S_10449;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8631);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8632);}while(r); do{ qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8634);}while(r); S_10454:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8634);if(r)goto S_10454;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8634);}while(r); } S_10457:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ if(qbevent){evnt(8635);if(r)goto S_10457;} 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(8635);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8635);}while(r); } do{ qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1253= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8636);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8638);}while(r); S_10463:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8638);if(r)goto S_10463;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8638);}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(8639);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1254=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8640);}while(r); S_10468:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8640);if(r)goto S_10468;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8640);}while(r); } do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8641);}while(r); S_10472:; if ((-(*__LONG_NE== 2 ))||new_error){ if(qbevent){evnt(8643);if(r)goto S_10472;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8644);}while(r); S_10474:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8644);if(r)goto S_10474;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8644);}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(8645);}while(r); do{ qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8647);}while(r); S_10479:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8647);if(r)goto S_10479;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8647);}while(r); } S_10482:; if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(8648);if(r)goto S_10482;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1255; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_str=",10),__STRING_TEST),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1255; skip1255: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8649);}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(8650);}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(8651);}while(r); }else{ do{ qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1256= -5 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8653);}while(r); S_10488:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8653);if(r)goto S_10488;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8653);}while(r); } do{ qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1257= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8654);}while(r); S_10492:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8654);if(r)goto S_10492;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8654);}while(r); } } do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(8658);}while(r); S_10497:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(8659);if(r)goto S_10497;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(8659);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8659);}while(r); } S_10501:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ if(qbevent){evnt(8660);if(r)goto S_10501;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(8660);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8660);}while(r); } S_10505:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ if(qbevent){evnt(8661);if(r)goto S_10505;} do{ *__LONG_S= 4 ; if(!qbevent)break;evnt(8661);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8661);}while(r); } S_10509:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ if(qbevent){evnt(8662);if(r)goto S_10509;} do{ *__LONG_S= 8 ; if(!qbevent)break;evnt(8662);}while(r); do{ qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8662);}while(r); } S_10513:; if ((*__LONG_NOCHECKS)||new_error){ if(qbevent){evnt(8664);if(r)goto S_10513;} S_10514:; if ((*__LONG_S)||new_error){ if(qbevent){evnt(8666);if(r)goto S_10514;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1258; 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("*(",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)), 0 , 0 , 1 ); if (new_error) goto skip1258; skip1258: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8667);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1259; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1259; skip1259: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8669);}while(r); } }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1260; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1260; skip1260: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8673);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1261; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); if (new_error) goto skip1261; skip1261: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8675);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1262; sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); if (new_error) goto skip1262; skip1262: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8677);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1263; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); if (new_error) goto skip1263; skip1263: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8678);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1264; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1264; skip1264: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8679);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1265; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1265; skip1265: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8680);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1266; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1266; skip1266: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8682);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1267; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip1267; skip1267: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8683);}while(r); S_10528:; if ((*__LONG_S)||new_error){ if(qbevent){evnt(8684);if(r)goto S_10528;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1268; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1268; skip1268: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8685);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1269; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1269; skip1269: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8687);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1270; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1270; skip1270: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8689);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1271; sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); if (new_error) goto skip1271; skip1271: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8690);}while(r); } }else{ do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8698);}while(r); S_10538:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(8699);if(r)goto S_10538;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8699);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8699);}while(r); } S_10542:; if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(8700);if(r)goto S_10542;} 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(8700);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8700);}while(r); } S_10546:; if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(8701);if(r)goto S_10546;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(8701);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8703);}while(r); S_10550:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8703);if(r)goto S_10550;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8703);}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),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8704);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8705);}while(r); S_10555:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8705);if(r)goto S_10555;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8705);}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(8706);}while(r); do{ qbs_set(__STRING_VARSIZE,FUNC_STR2(&(pass1272=(*__LONG_T& 511 )/ 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8707);}while(r); S_10560:; if ((*__LONG_NOCHECKS)||new_error){ if(qbevent){evnt(8708);if(r)goto S_10560;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1273; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1273; skip1273: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8710);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1274; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1274; skip1274: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8713);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1275; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); if (new_error) goto skip1275; skip1275: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8715);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1276; sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); if (new_error) goto skip1276; skip1276: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8717);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1277; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); if (new_error) goto skip1277; skip1277: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8718);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1278; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1278; skip1278: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8719);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1279; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1279; skip1279: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8720);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1280; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1280; skip1280: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8722);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1281; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip1281; skip1281: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8723);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1282; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1282; skip1282: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8724);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1283; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1283; skip1283: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8725);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1284; sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); if (new_error) goto skip1284; skip1284: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8726);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8731);}while(r); S_10577:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8731);if(r)goto S_10577;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8731);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8731);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8732);}while(r); } } S_10585:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(8741);if(r)goto S_10585;} S_10586:; 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(8742);if(r)goto S_10586;} do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8744);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8745);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(8746);}while(r); do{ *__LONG_NE= 0 ; if(!qbevent)break;evnt(8747);}while(r); S_10591:; fornext_value1287= 2 ; fornext_finalvalue1287=*__LONG_N; fornext_step1287= 1 ; if (fornext_step1287<0) fornext_step_negative1287=1; else fornext_step_negative1287=0; if (new_error) goto fornext_error1287; goto fornext_entrylabel1287; while(1){ fornext_value1287=fornext_step1287+(*__LONG_I2); fornext_entrylabel1287: *__LONG_I2=fornext_value1287; if (fornext_step_negative1287){ if (fornext_value1287fornext_finalvalue1287) break; } fornext_error1287:; if(qbevent){evnt(8748);if(r)goto S_10591;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8749);}while(r); S_10593:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(8750);if(r)goto S_10593;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8750);}while(r); } S_10596:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(8751);if(r)goto S_10596;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8751);}while(r); } S_10599:; 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(8752);if(r)goto S_10599;} do{ *__LONG_NE=*__LONG_NE+ 1 ; if(!qbevent)break;evnt(8753);}while(r); S_10601:; if ((-(*__LONG_NE== 1 ))||new_error){ if(qbevent){evnt(8754);if(r)goto S_10601;} do{ qbs_set(__STRING_BLK,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8754);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8754);}while(r); } S_10605:; if ((-(*__LONG_NE== 2 ))||new_error){ if(qbevent){evnt(8755);if(r)goto S_10605;} do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8755);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8755);}while(r); } S_10609:; if ((-(*__LONG_NE== 3 ))||new_error){ if(qbevent){evnt(8756);if(r)goto S_10609;} do{ qbs_set(__STRING_BYTES,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8756);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8756);}while(r); } S_10613:; if ((-(*__LONG_NE== 4 ))||new_error){ if(qbevent){evnt(8757);if(r)goto S_10613;} do{ qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8757);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8757);}while(r); } S_10617:; 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(8758);if(r)goto S_10617;} 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(8758);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8758);}while(r); } }else{ S_10622:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(8760);if(r)goto S_10622;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8760);}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(8760);}while(r); } } fornext_continue_1286:; } fornext_exit_1286:; S_10629:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(8763);if(r)goto S_10629;} 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(8763);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8763);}while(r); } S_10633:; if ((-(*__LONG_NE== 3 ))||new_error){ if(qbevent){evnt(8764);if(r)goto S_10633;} do{ qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8764);}while(r); }else{ do{ qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8764);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_ucase(__STRING_FIRSTELEMENT),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8766);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8768);}while(r); S_10640:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8768);if(r)goto S_10640;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8768);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8769);}while(r); do{ qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8771);}while(r); S_10645:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8771);if(r)goto S_10645;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8771);}while(r); } S_10648:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ if(qbevent){evnt(8772);if(r)goto S_10648;} 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(8772);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8772);}while(r); } do{ qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1289= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8773);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8775);}while(r); S_10654:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8775);if(r)goto S_10654;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8775);}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(8776);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1290=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8777);}while(r); S_10659:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8777);if(r)goto S_10659;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8777);}while(r); } do{ qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8778);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8780);}while(r); S_10664:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8780);if(r)goto S_10664;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8780);}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(8781);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1291=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8782);}while(r); S_10669:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8782);if(r)goto S_10669;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8782);}while(r); } do{ qbs_set(__STRING_BYTES,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8783);}while(r); S_10673:; if ((-(*__LONG_NE== 3 ))||new_error){ if(qbevent){evnt(8785);if(r)goto S_10673;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8786);}while(r); S_10675:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8786);if(r)goto S_10675;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8786);}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(8787);}while(r); do{ qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8788);}while(r); S_10680:; if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(8789);if(r)goto S_10680;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1292; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1292; skip1292: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8790);}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(8791);}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(8792);}while(r); }else{ do{ qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1293= -5 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8794);}while(r); S_10686:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8794);if(r)goto S_10686;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8794);}while(r); } do{ qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1294= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8795);}while(r); S_10690:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8795);if(r)goto S_10690;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8795);}while(r); } } S_10694:; if ((*__LONG_NOCHECKS)||new_error){ if(qbevent){evnt(8798);if(r)goto S_10694;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1295; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip1295; skip1295: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8799);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1296; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip1296; skip1296: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8801);}while(r); } }else{ do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8807);}while(r); S_10701:; if ((-(*__LONG_T== 0 ))||new_error){ if(qbevent){evnt(8808);if(r)goto S_10701;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8808);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8808);}while(r); } S_10705:; if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(8809);if(r)goto S_10705;} 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(8809);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8809);}while(r); } S_10709:; if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(8810);if(r)goto S_10709;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(8810);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8812);}while(r); S_10713:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8812);if(r)goto S_10713;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8812);}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),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8813);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8814);}while(r); S_10718:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8814);if(r)goto S_10718;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8814);}while(r); } do{ qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8816);}while(r); S_10722:; if ((*__LONG_NOCHECKS)||new_error){ if(qbevent){evnt(8817);if(r)goto S_10722;} do{ qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8817);}while(r); } S_10725:; if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(8818);if(r)goto S_10725;} 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(8819);}while(r); }else{ S_10728:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(8821);if(r)goto S_10728;} S_10729:; if ((-((*__LONG_T& 511 )== 32 ))||new_error){ if(qbevent){evnt(8822);if(r)goto S_10729;} 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(8822);}while(r); } S_10732:; if ((-((*__LONG_T& 511 )== 64 ))||new_error){ if(qbevent){evnt(8823);if(r)goto S_10732;} 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(8823);}while(r); } S_10735:; if ((-((*__LONG_T& 511 )== 256 ))||new_error){ if(qbevent){evnt(8824);if(r)goto S_10735;} 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(8824);}while(r); } }else{ do{ qbs_set(__STRING_C,qbs_add(__STRING_C,FUNC_STR2(&(pass1297=(*__LONG_T& 511 )/ 8 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8826);}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(8829);}while(r); S_10743:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(8830);if(r)goto S_10743;} 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(8830);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1298; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1298; skip1298: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8831);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8834);}while(r); S_10749:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8834);if(r)goto S_10749;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8834);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8834);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8835);}while(r); } } do{ *__LONG_CISPECIAL= 0 ; if(!qbevent)break;evnt(8853);}while(r); S_10758:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(8854);if(r)goto S_10758;} S_10759:; 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(8855);if(r)goto S_10759;} 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,&(pass1300= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8856);}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,&(pass1301= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8857);}while(r); do{ *__LONG_N=*__LONG_N+ 3 ; if(!qbevent)break;evnt(8858);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8859);}while(r); do{ *__LONG_CISPECIAL= 1 ; if(!qbevent)break;evnt(8860);}while(r); } } do{ *__LONG_USECALL= 0 ; if(!qbevent)break;evnt(8865);}while(r); S_10768:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||new_error){ if(qbevent){evnt(8866);if(r)goto S_10768;} do{ *__LONG_USECALL= 1 ; if(!qbevent)break;evnt(8867);}while(r); S_10770:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(8868);if(r)goto S_10770;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8868);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8868);}while(r); } do{ qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1302= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8869);}while(r); do{ qbs_set(__STRING_N,qbs_ucase(__STRING_CN)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8869);}while(r); S_10776:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(8871);if(r)goto S_10776;} S_10777:; if ((-(*__LONG_N<= 4 ))||new_error){ if(qbevent){evnt(8873);if(r)goto S_10777;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8873);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8873);}while(r); } S_10781:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1303= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ if(qbevent){evnt(8874);if(r)goto S_10781;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8874);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8874);}while(r); } do{ qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1304= 4 ),&(pass1305=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8875);}while(r); do{ qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1306= 4 ),&(pass1307=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8876);}while(r); S_10787:; 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(8879);if(r)goto S_10787;} S_10788:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||new_error){ if(qbevent){evnt(8881);if(r)goto S_10788;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1308; sub_file_print(tmp_fileno,qbs_new_txt_len("call_interrupt(",15), 0 , 0 , 0 ); if (new_error) goto skip1308; skip1308: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8881);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1309; sub_file_print(tmp_fileno,qbs_new_txt_len("call_interruptx(",16), 0 , 0 , 0 ); if (new_error) goto skip1309; skip1309: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8881);}while(r); } do{ *__LONG_ARGN= 0 ; if(!qbevent)break;evnt(8882);}while(r); do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8883);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(8884);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8885);}while(r); S_10797:; fornext_value1311= 2 ; fornext_finalvalue1311=*__LONG_N; fornext_step1311= 1 ; if (fornext_step1311<0) fornext_step_negative1311=1; else fornext_step_negative1311=0; if (new_error) goto fornext_error1311; goto fornext_entrylabel1311; while(1){ fornext_value1311=fornext_step1311+(*__LONG_I); fornext_entrylabel1311: *__LONG_I=fornext_value1311; if (fornext_step_negative1311){ if (fornext_value1311fornext_finalvalue1311) break; } fornext_error1311:; if(qbevent){evnt(8886);if(r)goto S_10797;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8887);}while(r); S_10799:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(8888);if(r)goto S_10799;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8888);}while(r); } S_10802:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(8889);if(r)goto S_10802;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8889);}while(r); } S_10805:; 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(8890);if(r)goto S_10805;} S_10806:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(8891);if(r)goto S_10806;} S_10807:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(8892);if(r)goto S_10807;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8892);}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(8892);}while(r); } } do{ *__LONG_ARGN=*__LONG_ARGN+ 1 ; if(!qbevent)break;evnt(8894);}while(r); S_10814:; if ((-(*__LONG_ARGN== 1 ))||new_error){ if(qbevent){evnt(8895);if(r)goto S_10814;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8896);}while(r); S_10816:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8897);if(r)goto S_10816;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8897);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(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(8898);}while(r); S_10820:; if ((-(*__LONG_CISPECIAL== 1 ))||new_error){ if(qbevent){evnt(8899);if(r)goto S_10820;} 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(8899);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1312= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8900);}while(r); S_10824:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8901);if(r)goto S_10824;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8901);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1313; sub_file_print(tmp_fileno,__STRING_E, 0 , 0 , 0 ); if (new_error) goto skip1313; skip1313: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8903);}while(r); } S_10829:; if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||new_error){ if(qbevent){evnt(8905);if(r)goto S_10829;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8906);}while(r); S_10831:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8907);if(r)goto S_10831;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8907);}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(8908);}while(r); do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8909);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1314= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8910);}while(r); S_10837:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8911);if(r)goto S_10837;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8911);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1315; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(",",1),__STRING_E), 0 , 0 , 0 ); if (new_error) goto skip1315; skip1315: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8913);}while(r); } do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8915);}while(r); }else{ S_10844:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(8917);if(r)goto S_10844;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8917);}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(8917);}while(r); } } fornext_continue_1310:; } fornext_exit_1310:; S_10851:; if ((-(*__LONG_ARGN!= 3 ))||new_error){ if(qbevent){evnt(8920);if(r)goto S_10851;} 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(8920);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8920);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1316; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip1316; skip1316: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8921);}while(r); S_10856:; if ((-(*__LONG_CISPECIAL== 0 ))||new_error){ if(qbevent){evnt(8922);if(r)goto S_10856;} 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(8922);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8923);}while(r); S_10860:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(8923);if(r)goto S_10860;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8923);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8923);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8925);}while(r); } S_10867:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||new_error){ if(qbevent){evnt(8936);if(r)goto S_10867;} do{ qbs_set(__STRING_L,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(8937);}while(r); do{ *__LONG_ARGN= 0 ; if(!qbevent)break;evnt(8938);}while(r); do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8939);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(8940);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8941);}while(r); S_10873:; fornext_value1319= 2 ; fornext_finalvalue1319=*__LONG_N; fornext_step1319= 1 ; if (fornext_step1319<0) fornext_step_negative1319=1; else fornext_step_negative1319=0; if (new_error) goto fornext_error1319; goto fornext_entrylabel1319; while(1){ fornext_value1319=fornext_step1319+(*__LONG_I); fornext_entrylabel1319: *__LONG_I=fornext_value1319; if (fornext_step_negative1319){ if (fornext_value1319fornext_finalvalue1319) break; } fornext_error1319:; if(qbevent){evnt(8942);if(r)goto S_10873;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8943);}while(r); S_10875:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(8944);if(r)goto S_10875;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8944);}while(r); } S_10878:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(8945);if(r)goto S_10878;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8945);}while(r); } S_10881:; 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(8946);if(r)goto S_10881;} S_10882:; if ((-(*__LONG_I<*__LONG_N))||new_error){ if(qbevent){evnt(8947);if(r)goto S_10882;} S_10883:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(8948);if(r)goto S_10883;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8948);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8948);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8950);}while(r); S_10888:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8951);if(r)goto S_10888;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8951);}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(8952);}while(r); do{ qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8953);}while(r); S_10893:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8954);if(r)goto S_10893;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8954);}while(r); } S_10896:; if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ if(qbevent){evnt(8956);if(r)goto S_10896;} 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(8960);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1320=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8961);}while(r); S_10899:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8962);if(r)goto S_10899;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8962);}while(r); } }else{ S_10903:; if ((*__LONG_TYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(8968);if(r)goto S_10903;} S_10904:; if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(8969);if(r)goto S_10904;} do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1321=*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8970);}while(r); S_10906:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(8971);if(r)goto S_10906;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8971);}while(r); } do{ qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1322=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8972);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip1323; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip1323; skip1323: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8973);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1324; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip1324; skip1324: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8974);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1325; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); if (new_error) goto skip1325; skip1325: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8975);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1326; sub_file_print(tmp_fileno,qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)), 0 , 0 , 1 ); if (new_error) goto skip1326; skip1326: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8976);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1327; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen))||new_error){ if(qbevent){evnt(9023);if(r)goto S_10975;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9023);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9023);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9024);}while(r); } }else{ do{ qbs_set(__STRING_A,__STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9029);}while(r); do{ qbs_set(__STRING_CA,__STRING_CN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9030);}while(r); do{ *__LONG_USECALL= 2 ; if(!qbevent)break;evnt(9031);}while(r); } do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9035);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1349= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9036);}while(r); do{ *__LONG_VALIDSUB= 0 ; if(!qbevent)break;evnt(9039);}while(r); do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9040);}while(r); S_10991:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(9040);if(r)goto S_10991;} do{ qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1350= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9040);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9041);}while(r); S_10995:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9042);if(r)goto S_10995;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9042);}while(r); } S_10998:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(9043);if(r)goto S_10998;} S_10999:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ if(qbevent){evnt(9044);if(r)goto S_10999;} do{ *__LONG_VALIDSUB= 1 ; if(!qbevent)break;evnt(9044);}while(r); do{ goto dl_exit_1351; if(!qbevent)break;evnt(9044);}while(r); } S_11003:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(9045);if(r)goto S_11003;} do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9046);}while(r); S_11005:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(9046);if(r)goto S_11005;} do{ qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1352= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9046);}while(r); } do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(9047);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9048);}while(r); S_11010:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9049);if(r)goto S_11010;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9049);}while(r); } }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(9051);}while(r); } dl_continue_1351:; } dl_exit_1351:; S_11017:; if ((-(*__LONG_VALIDSUB== 0 ))||new_error){ if(qbevent){evnt(9054);if(r)goto S_11017;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9054);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9054);}while(r); } } S_11022:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(9058);if(r)goto S_11022;} S_11023:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(9060);if(r)goto S_11023;} do{ qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9060);}while(r); } do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9062);}while(r); S_11027:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(9062);if(r)goto S_11027;} do{ qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1353= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9062);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9063);}while(r); S_11031:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9064);if(r)goto S_11031;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9064);}while(r); } S_11034:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(9065);if(r)goto S_11034;} S_11035:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ if(qbevent){evnt(9066);if(r)goto S_11035;} 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(9069);}while(r); S_11037:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9070);if(r)goto S_11037;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9070);}while(r); } S_11040:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||new_error){ if(qbevent){evnt(9071);if(r)goto S_11040;} S_11041:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(9072);if(r)goto S_11041;} do{ goto LABEL_NOTSUBCALL; if(!qbevent)break;evnt(9072);}while(r); } }else{ S_11045:; if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ if(qbevent){evnt(9074);if(r)goto S_11045;} do{ goto LABEL_NOTSUBCALL; if(!qbevent)break;evnt(9074);}while(r); } } S_11049:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9077);if(r)goto S_11049;} S_11050:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||new_error){ if(qbevent){evnt(9078);if(r)goto S_11050;} S_11051:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1356= 2 )))== 61 )))||new_error){ if(qbevent){evnt(9079);if(r)goto S_11051;} do{ goto LABEL_NOTSUBCALL; if(!qbevent)break;evnt(9079);}while(r); } } } S_11056:; if ((-(*__LONG_N> 2 ))||new_error){ if(qbevent){evnt(9083);if(r)goto S_11056;} S_11057:; 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(9084);if(r)goto S_11057;} S_11058:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1357= 2 )),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9085);if(r)goto S_11058;} do{ *__LONG_B= 1 ; if(!qbevent)break;evnt(9086);}while(r); S_11060:; fornext_value1359= 3 ; fornext_finalvalue1359=*__LONG_N; fornext_step1359= 1 ; if (fornext_step1359<0) fornext_step_negative1359=1; else fornext_step_negative1359=0; if (new_error) goto fornext_error1359; goto fornext_entrylabel1359; while(1){ fornext_value1359=fornext_step1359+(*__LONG_I); fornext_entrylabel1359: *__LONG_I=fornext_value1359; if (fornext_step_negative1359){ if (fornext_value1359fornext_finalvalue1359) break; } fornext_error1359:; if(qbevent){evnt(9087);if(r)goto S_11060;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9088);}while(r); S_11062:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9089);if(r)goto S_11062;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9089);}while(r); } S_11065:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9090);if(r)goto S_11065;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9091);}while(r); S_11067:; if ((-(*__LONG_B== 0 ))||new_error){ if(qbevent){evnt(9092);if(r)goto S_11067;} S_11068:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(9093);if(r)goto S_11068;} do{ goto fornext_exit_1358; if(!qbevent)break;evnt(9093);}while(r); } S_11071:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1360=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(9094);if(r)goto S_11071;} do{ goto LABEL_NOTSUBCALL; if(!qbevent)break;evnt(9094);}while(r); } } } fornext_continue_1358:; } fornext_exit_1358:; } } } S_11080:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||new_error){ if(qbevent){evnt(9104);if(r)goto S_11080;} 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(9105);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9105);}while(r); } S_11084:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||new_error){ if(qbevent){evnt(9108);if(r)goto S_11084;} do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9110);}while(r); S_11086:; fornext_value1362= 2 ; fornext_finalvalue1362=*__LONG_N; fornext_step1362= 1 ; if (fornext_step1362<0) fornext_step_negative1362=1; else fornext_step_negative1362=0; if (new_error) goto fornext_error1362; goto fornext_entrylabel1362; while(1){ fornext_value1362=fornext_step1362+(*__LONG_X); fornext_entrylabel1362: *__LONG_X=fornext_value1362; if (fornext_step_negative1362){ if (fornext_value1362fornext_finalvalue1362) break; } fornext_error1362:; if(qbevent){evnt(9111);if(r)goto S_11086;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9112);}while(r); S_11088:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9113);if(r)goto S_11088;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9113);}while(r); } S_11091:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9114);if(r)goto S_11091;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9114);}while(r); } S_11094:; 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(9115);if(r)goto S_11094;} do{ goto fornext_exit_1361; if(!qbevent)break;evnt(9115);}while(r); } S_11097:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ if(qbevent){evnt(9116);if(r)goto S_11097;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(9117);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9118);}while(r); S_11100:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9119);if(r)goto S_11100;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9119);}while(r); } do{ goto fornext_exit_1361; if(!qbevent)break;evnt(9120);}while(r); } fornext_continue_1361:; } fornext_exit_1361:; } S_11107:; 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(9130);if(r)goto S_11107;} S_11108:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||new_error){ if(qbevent){evnt(9131);if(r)goto S_11108;} S_11109:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9132);if(r)goto S_11109;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9132);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9132);}while(r); } } do{ qbs_set(__STRING_L,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9134);}while(r); S_11115:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(9135);if(r)goto S_11115;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1363; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_close(NULL,0);",18), 0 , 0 , 1 ); if (new_error) goto skip1363; skip1363: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9136);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9138);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9139);}while(r); do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(9140);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9141);}while(r); S_11122:; fornext_value1365= 2 ; fornext_finalvalue1365=*__LONG_N; fornext_step1365= 1 ; if (fornext_step1365<0) fornext_step_negative1365=1; else fornext_step_negative1365=0; if (new_error) goto fornext_error1365; goto fornext_entrylabel1365; while(1){ fornext_value1365=fornext_step1365+(*__LONG_X); fornext_entrylabel1365: *__LONG_X=fornext_value1365; if (fornext_step_negative1365){ if (fornext_value1365fornext_finalvalue1365) break; } fornext_error1365:; if(qbevent){evnt(9142);if(r)goto S_11122;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9143);}while(r); S_11124:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9144);if(r)goto S_11124;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9144);}while(r); } S_11127:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9145);if(r)goto S_11127;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9145);}while(r); } S_11130:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9146);if(r)goto S_11130;} S_11131:; if ((-(*__LONG_S== 0 ))||new_error){ if(qbevent){evnt(9147);if(r)goto S_11131;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(9147);}while(r); }else{ do{ qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9147);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9147);}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(9148);}while(r); do{ goto LABEL_CLOSENEXTA; if(!qbevent)break;evnt(9149);}while(r); } S_11140:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9152);if(r)goto S_11140;} S_11141:; if ((-(*__LONG_S== 2 ))||new_error){ if(qbevent){evnt(9153);if(r)goto S_11141;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9154);}while(r); S_11143:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9155);if(r)goto S_11143;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9155);}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(9156);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1366= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9157);}while(r); S_11148:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9158);if(r)goto S_11148;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9158);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1367; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); if (new_error) goto skip1367; skip1367: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9159);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9160);}while(r); do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(9161);}while(r); do{ goto LABEL_CLOSENEXTA; if(!qbevent)break;evnt(9162);}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(9164);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9164);}while(r); } } do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(9168);}while(r); S_11161:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9169);if(r)goto S_11161;} do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9169);}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(9169);}while(r); } LABEL_CLOSENEXTA:; if(qbevent){evnt(9171);r=0;} fornext_continue_1364:; } fornext_exit_1364:; S_11167:; if ((-(*__LONG_S== 2 ))||new_error){ if(qbevent){evnt(9174);if(r)goto S_11167;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9175);}while(r); S_11169:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9176);if(r)goto S_11169;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9176);}while(r); } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9177);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1368= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9178);}while(r); S_11174:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9179);if(r)goto S_11174;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9179);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1369; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); if (new_error) goto skip1369; skip1369: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9180);}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(9182);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9186);}while(r); S_11183:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9186);if(r)goto S_11183;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(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_11190:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||new_error){ if(qbevent){evnt(9206);if(r)goto S_11190;} do{ SUB_XREAD(__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9207);}while(r); S_11192:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9208);if(r)goto S_11192;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9208);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9210);}while(r); } do{ *__LONG_LINEINPUT= 0 ; if(!qbevent)break;evnt(9249);}while(r); S_11198:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(9250);if(r)goto S_11198;} S_11199:; 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(9251);if(r)goto S_11199;} do{ *__LONG_LINEINPUT= 1 ; if(!qbevent)break;evnt(9252);}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(9253);}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(9253);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(9253);}while(r); do{ qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9254);}while(r); } } S_11207:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ if(qbevent){evnt(9258);if(r)goto S_11207;} S_11208:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9259);if(r)goto S_11208;} S_11209:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1374= 2 )),qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(9260);if(r)goto S_11209;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("INPUT",5),__STRING1_SP),qbs_new_txt_len("#",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9261);}while(r); S_11211:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9261);if(r)goto S_11211;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("LINE",4),__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9261);}while(r); } do{ qbs_set(__STRING_U,FUNC_STR2(&(pass1375=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9263);}while(r); S_11215:; if ((-(*__LONG_N== 2 ))||new_error){ if(qbevent){evnt(9265);if(r)goto S_11215;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9265);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9265);}while(r); } do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9266);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9267);}while(r); S_11221:; fornext_value1377= 3 ; fornext_finalvalue1377=*__LONG_N; fornext_step1377= 1 ; if (fornext_step1377<0) fornext_step_negative1377=1; else fornext_step_negative1377=0; if (new_error) goto fornext_error1377; goto fornext_entrylabel1377; while(1){ fornext_value1377=fornext_step1377+(*__LONG_I); fornext_entrylabel1377: *__LONG_I=fornext_value1377; if (fornext_step_negative1377){ if (fornext_value1377fornext_finalvalue1377) break; } fornext_error1377:; if(qbevent){evnt(9268);if(r)goto S_11221;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9269);}while(r); S_11223:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9270);if(r)goto S_11223;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9270);}while(r); } S_11226:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9271);if(r)goto S_11226;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9271);}while(r); } S_11229:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9272);if(r)goto S_11229;} S_11230:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9273);if(r)goto S_11230;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9273);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9273);}while(r); } do{ goto LABEL_INPUTGOTFN; if(!qbevent)break;evnt(9274);}while(r); } S_11236:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9276);if(r)goto S_11236;} do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9276);}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(9276);}while(r); } fornext_continue_1376:; } fornext_exit_1376:; LABEL_INPUTGOTFN:; if(qbevent){evnt(9278);r=0;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9279);}while(r); S_11243:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9280);if(r)goto S_11243;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9280);}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(9281);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1378= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9282);}while(r); S_11248:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9283);if(r)goto S_11248;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9283);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1379; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1379; skip1379: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9284);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1380; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1380; skip1380: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9285);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(9286);}while(r); S_11254:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(9287);if(r)goto S_11254;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9287);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9287);}while(r); } do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9288);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9289);}while(r); S_11260:; fornext_value1382=*__LONG_I; fornext_finalvalue1382=*__LONG_N; fornext_step1382= 1 ; if (fornext_step1382<0) fornext_step_negative1382=1; else fornext_step_negative1382=0; if (new_error) goto fornext_error1382; goto fornext_entrylabel1382; while(1){ fornext_value1382=fornext_step1382+(*__LONG_I); fornext_entrylabel1382: *__LONG_I=fornext_value1382; if (fornext_step_negative1382){ if (fornext_value1382fornext_finalvalue1382) break; } fornext_error1382:; if(qbevent){evnt(9290);if(r)goto S_11260;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9291);}while(r); S_11262:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9292);if(r)goto S_11262;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9292);}while(r); } S_11265:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9293);if(r)goto S_11265;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9293);}while(r); } S_11268:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(9294);if(r)goto S_11268;} S_11269:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9295);if(r)goto S_11269;} do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9295);}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(9295);}while(r); } do{ qbs_set(__STRING_A2,qbs_new_txt_len(",",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9296);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9296);}while(r); } S_11277:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9298);if(r)goto S_11277;} S_11278:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9299);if(r)goto S_11278;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9299);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9299);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9300);}while(r); S_11283:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9301);if(r)goto S_11283;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9301);}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(9302);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9303);}while(r); S_11288:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9304);if(r)goto S_11288;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9304);}while(r); } S_11291:; if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(9305);if(r)goto S_11291;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9305);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9305);}while(r); } S_11295:; if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(9306);if(r)goto S_11295;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1383= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9307);}while(r); S_11297:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9308);if(r)goto S_11297;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9308);}while(r); } S_11300:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9309);if(r)goto S_11300;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1384; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_line_input_string(tmp_fileno,",38),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1384; skip1384: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9310);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1385; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1385; skip1385: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9311);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1386; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1386; skip1386: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9313);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1387; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1387; skip1387: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9314);}while(r); } do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(9316);}while(r); }else{ S_11309:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9318);if(r)goto S_11309;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9318);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9318);}while(r); } S_11313:; if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||new_error){ if(qbevent){evnt(9321);if(r)goto S_11313;} S_11314:; if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(9322);if(r)goto S_11314;} 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)),&(pass1388= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9323);}while(r); S_11316:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9324);if(r)goto S_11316;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9324);}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)),&(pass1389= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9326);}while(r); S_11321:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9327);if(r)goto S_11321;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9327);}while(r); } } }else{ S_11326:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(9330);if(r)goto S_11326;} do{ SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1390= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9331);}while(r); S_11328:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9332);if(r)goto S_11328;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9332);}while(r); } }else{ do{ SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1391= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9334);}while(r); S_11333:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9335);if(r)goto S_11333;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9335);}while(r); } } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1392; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1392; skip1392: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9339);}while(r); } S_11340:; if ((-(*__LONG_I==*__LONG_N))||new_error){ if(qbevent){evnt(9342);if(r)goto S_11340;} do{ goto fornext_exit_1381; if(!qbevent)break;evnt(9342);}while(r); } S_11343:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9343);if(r)goto S_11343;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9343);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9343);}while(r); } do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9344);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9344);}while(r); } S_11350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9346);if(r)goto S_11350;} do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9346);}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(9346);}while(r); } fornext_continue_1381:; } fornext_exit_1381:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1393; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip1393; skip1393: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9348);}while(r); S_11357:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(9349);if(r)goto S_11357;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1394; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip1394; skip1394: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9349);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9350);}while(r); S_11361:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9350);if(r)goto S_11361;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9350);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9350);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9351);}while(r); } } } S_11370:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ if(qbevent){evnt(9357);if(r)goto S_11370;} do{ qbs_set(__STRING_L,qbs_new_txt_len("INPUT",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9358);}while(r); S_11372:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9358);if(r)goto S_11372;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("LINE",4),__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9358);}while(r); } do{ *__LONG_COMMANEEDED= 0 ; if(!qbevent)break;evnt(9359);}while(r); do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(9360);}while(r); do{ *__LONG_NEWLINE= 1 ; if(!qbevent)break;evnt(9362);}while(r); S_11378:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(9362);if(r)goto S_11378;} do{ *__LONG_NEWLINE= 0 ; if(!qbevent)break;evnt(9362);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(9362);}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(9362);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9364);}while(r); S_11384:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(9365);if(r)goto S_11384;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9366);}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(9366);}while(r); S_11387:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9367);if(r)goto S_11387;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9367);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1396; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt_len(",26),__STRING_A2),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1396; skip1396: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9368);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(9369);}while(r); do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9371);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(9372);}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(9373);}while(r); S_11395:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(9374);if(r)goto S_11395;} S_11396:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9375);if(r)goto S_11396;} do{ goto LABEL_FINISHEDPROMPTSTRING; if(!qbevent)break;evnt(9375);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1397; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1397; skip1397: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9376);}while(r); do{ goto LABEL_FINISHEDPROMPTSTRING; if(!qbevent)break;evnt(9377);}while(r); } S_11402:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(9379);if(r)goto S_11402;} do{ goto LABEL_FINISHEDPROMPTSTRING; if(!qbevent)break;evnt(9380);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR!",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9382);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9382);}while(r); } S_11408:; if ((-(*__LONG_LINEINPUT== 0 ))||new_error){ if(qbevent){evnt(9385);if(r)goto S_11408;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1398; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1398; skip1398: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9385);}while(r); } LABEL_FINISHEDPROMPTSTRING:; if(qbevent){evnt(9386);r=0;} do{ *__LONG_NUMVAR= 0 ; if(!qbevent)break;evnt(9387);}while(r); S_11412:; fornext_value1400=*__LONG_I; fornext_finalvalue1400=*__LONG_N; fornext_step1400= 1 ; if (fornext_step1400<0) fornext_step_negative1400=1; else fornext_step_negative1400=0; if (new_error) goto fornext_error1400; goto fornext_entrylabel1400; while(1){ fornext_value1400=fornext_step1400+(*__LONG_I); fornext_entrylabel1400: *__LONG_I=fornext_value1400; if (fornext_step_negative1400){ if (fornext_value1400fornext_finalvalue1400) break; } fornext_error1400:; if(qbevent){evnt(9388);if(r)goto S_11412;} S_11413:; if ((-(*__LONG_COMMANEEDED== 1 ))||new_error){ if(qbevent){evnt(9389);if(r)goto S_11413;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9390);}while(r); S_11415:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(9391);if(r)goto S_11415;} do{ qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR! (COMMA EXPECTED)",47)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9391);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9391);}while(r); } }else{ do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9394);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9395);}while(r); S_11422:; fornext_value1402=*__LONG_I; fornext_finalvalue1402=*__LONG_N; fornext_step1402= 1 ; if (fornext_step1402<0) fornext_step_negative1402=1; else fornext_step_negative1402=0; if (new_error) goto fornext_error1402; goto fornext_entrylabel1402; while(1){ fornext_value1402=fornext_step1402+(*__LONG_I2); fornext_entrylabel1402: *__LONG_I2=fornext_value1402; if (fornext_step_negative1402){ if (fornext_value1402fornext_finalvalue1402) break; } fornext_error1402:; if(qbevent){evnt(9396);if(r)goto S_11422;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9397);}while(r); S_11424:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9398);if(r)goto S_11424;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9398);}while(r); } S_11427:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9399);if(r)goto S_11427;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9399);}while(r); } S_11430:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9400);if(r)goto S_11430;} do{ *__LONG_I2=*__LONG_I2- 1 ; if(!qbevent)break;evnt(9400);}while(r); do{ goto fornext_exit_1401; if(!qbevent)break;evnt(9400);}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(9401);}while(r); fornext_continue_1401:; } fornext_exit_1401:; do{ *__LONG_I=*__LONG_I2; if(!qbevent)break;evnt(9403);}while(r); S_11437:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(9403);if(r)goto S_11437;} do{ *__LONG_I=*__LONG_N; if(!qbevent)break;evnt(9403);}while(r); } S_11440:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9404);if(r)goto S_11440;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9404);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9404);}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(9405);}while(r); do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9406);}while(r); S_11446:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9407);if(r)goto S_11446;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9407);}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(9408);}while(r); S_11450:; if ((-(*__LONG_I!=*__LONG_N))||new_error){ if(qbevent){evnt(9408);if(r)goto S_11450;} 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(9408);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9409);}while(r); S_11454:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9410);if(r)goto S_11454;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9410);}while(r); } S_11457:; if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(9411);if(r)goto S_11457;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9411);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9411);}while(r); } S_11461:; if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(9413);if(r)goto S_11461;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1404= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9414);}while(r); S_11463:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9415);if(r)goto S_11463;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9415);}while(r); } do{ *__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; if(!qbevent)break;evnt(9416);}while(r); S_11467:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9417);if(r)goto S_11467;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1405; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING+512;",15)), 0 , 0 , 1 ); if (new_error) goto skip1405; skip1405: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9418);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1406; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING;",11)), 0 , 0 , 1 ); if (new_error) goto skip1406; skip1406: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9420);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1407; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1407; skip1407: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9422);}while(r); do{ goto LABEL_GOTINPUTVAR; if(!qbevent)break;evnt(9423);}while(r); } S_11475:; if ((*__LONG_LINEINPUT)||new_error){ if(qbevent){evnt(9426);if(r)goto S_11475;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9426);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9426);}while(r); } S_11479:; if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(9427);if(r)goto S_11479;} S_11480:; if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(9428);if(r)goto S_11480;} do{ qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle BIT array elements yet",42)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9429);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9429);}while(r); } } do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1408= 0 ))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9432);}while(r); S_11486:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9433);if(r)goto S_11486;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9433);}while(r); } S_11489:; if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(9436);if(r)goto S_11489;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(9436);}while(r); } S_11492:; if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ if(qbevent){evnt(9437);if(r)goto S_11492;} do{ *__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(9437);}while(r); } S_11495:; if (((*__LONG_T&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(9438);if(r)goto S_11495;} do{ *__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(9438);}while(r); } do{ *__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; if(!qbevent)break;evnt(9449);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1409; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1409; skip1409: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9450);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1410; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1410; skip1410: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9451);}while(r); do{ goto LABEL_GOTINPUTVAR; if(!qbevent)break;evnt(9452);}while(r); } LABEL_GOTINPUTVAR:; if(qbevent){evnt(9455);r=0;} do{ *__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ; if(!qbevent)break;evnt(9456);}while(r); S_11504:; if ((-(*__LONG_COMMANEEDED== 2 ))||new_error){ if(qbevent){evnt(9456);if(r)goto S_11504;} do{ *__LONG_COMMANEEDED= 0 ; if(!qbevent)break;evnt(9456);}while(r); } fornext_continue_1399:; } fornext_exit_1399:; S_11508:; if ((-(*__LONG_NUMVAR== 0 ))||new_error){ if(qbevent){evnt(9458);if(r)goto S_11508;} do{ qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR! (NO VARIABLES LISTED FOR INPUT)",62)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9458);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9458);}while(r); } S_11512:; if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||new_error){ if(qbevent){evnt(9459);if(r)goto S_11512;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9459);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9459);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1411; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1411; skip1411: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9460);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1412; sub_file_print(tmp_fileno,qbs_new_txt_len("if (stop_program) end();",24), 0 , 0 , 1 ); if (new_error) goto skip1412; skip1412: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9461);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1413; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip1413; skip1413: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9462);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9463);}while(r); S_11520:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9463);if(r)goto S_11520;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9463);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9463);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9464);}while(r); } S_11527:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ if(qbevent){evnt(9469);if(r)goto S_11527;} S_11528:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9470);if(r)goto S_11528;} S_11529:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1415= 2 )),qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(9471);if(r)goto S_11529;} do{ SUB_XFILEWRITE(__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9472);}while(r); S_11531:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9473);if(r)goto S_11531;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9473);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9474);}while(r); } } } S_11538:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ if(qbevent){evnt(9479);if(r)goto S_11538;} do{ SUB_XWRITE(__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9480);}while(r); S_11540:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9481);if(r)goto S_11540;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9481);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9482);}while(r); } S_11545:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||new_error){ if(qbevent){evnt(9485);if(r)goto S_11545;} S_11546:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9486);if(r)goto S_11546;} S_11547:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1416= 2 )),qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(9487);if(r)goto S_11547;} do{ SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9488);}while(r); S_11549:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9489);if(r)goto S_11549;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9489);}while(r); } do{ qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9490);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9491);}while(r); S_11554:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9491);if(r)goto S_11554;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9491);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9491);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9492);}while(r); } } } S_11563:; 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(9497);if(r)goto S_11563;} S_11564:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ if(qbevent){evnt(9498);if(r)goto S_11564;} do{ *__LONG_ELEMENTON= 2 ; if(!qbevent)break;evnt(9499);}while(r); LABEL_REDOSEMI:; if(qbevent){evnt(9500);r=0;} S_11566:; fornext_value1419=*__LONG_ELEMENTON; fornext_finalvalue1419=*__LONG_N- 1 ; fornext_step1419= 1 ; if (fornext_step1419<0) fornext_step_negative1419=1; else fornext_step_negative1419=0; if (new_error) goto fornext_error1419; goto fornext_entrylabel1419; while(1){ fornext_value1419=fornext_step1419+(*__LONG_I); fornext_entrylabel1419: *__LONG_I=fornext_value1419; if (fornext_step_negative1419){ if (fornext_value1419fornext_finalvalue1419) break; } fornext_error1419:; if(qbevent){evnt(9501);if(r)goto S_11566;} do{ qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1420=*__LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9502);}while(r); S_11568:; 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(9503);if(r)goto S_11568;} do{ qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9504);}while(r); do{ *__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9505);}while(r); do{ *__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9506);}while(r); S_11572:; if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||new_error){ if(qbevent){evnt(9507);if(r)goto S_11572;} do{ *__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ; if(!qbevent)break;evnt(9509);}while(r); do{ qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs_ltrim(qbs_str((int32)(*__LONG_TEXTLENGTH))))->len),1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9510);}while(r); S_11575:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||new_error){ if(qbevent){evnt(9511);if(r)goto S_11575;} do{ SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9512);}while(r); do{ SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9513);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(9514);}while(r); do{ *__LONG_ELEMENTON=*__LONG_I+ 2 ; if(!qbevent)break;evnt(9515);}while(r); do{ goto LABEL_REDOSEMI; if(!qbevent)break;evnt(9516);}while(r); } } S_11583:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||new_error){ if(qbevent){evnt(9519);if(r)goto S_11583;} S_11584:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(9520);if(r)goto S_11584;} S_11585:; 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(9521);if(r)goto S_11585;} do{ SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9522);}while(r); do{ SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9523);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(9524);}while(r); do{ *__LONG_ELEMENTON=*__LONG_I+ 2 ; if(!qbevent)break;evnt(9525);}while(r); do{ goto LABEL_REDOSEMI; if(!qbevent)break;evnt(9526);}while(r); } } } } fornext_continue_1418:; } fornext_exit_1418:; } do{ SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9534);}while(r); S_11598:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9535);if(r)goto S_11598;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9535);}while(r); } do{ qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9536);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9537);}while(r); S_11603:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9537);if(r)goto S_11603;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9537);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9537);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9538);}while(r); } S_11610:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||new_error){ if(qbevent){evnt(9543);if(r)goto S_11610;} S_11611:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9544);if(r)goto S_11611;} 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(9544);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9544);}while(r); } } S_11616:; 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(9548);if(r)goto S_11616;} S_11617:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(9549);if(r)goto S_11617;} 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(9549);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9549);}while(r); } do{ qbs_set(__STRING_L,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9550);}while(r); do{ qbs_set(__STRING_DEST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9551);}while(r); do{ qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9552);}while(r); do{ *__LONG_PART= 1 ; if(!qbevent)break;evnt(9553);}while(r); do{ *__LONG_I= 2 ; if(!qbevent)break;evnt(9554);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9555);}while(r); do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9556);}while(r); S_11628:; do{ if(qbevent){evnt(9557);if(r)goto S_11628;} S_11629:; if ((-(*__LONG_I>*__LONG_N))||new_error){ if(qbevent){evnt(9558);if(r)goto S_11629;} S_11630:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(9559);if(r)goto S_11630;} 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(9559);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9559);}while(r); } do{ qbs_set(__STRING_SOURCE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9560);}while(r); do{ goto dl_exit_1422; if(!qbevent)break;evnt(9561);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9563);}while(r); S_11638:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9564);if(r)goto S_11638;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9564);}while(r); } S_11641:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9565);if(r)goto S_11641;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9565);}while(r); } S_11644:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9566);if(r)goto S_11644;} S_11645:; if ((-(*__LONG_PART== 1 ))||new_error){ if(qbevent){evnt(9567);if(r)goto S_11645;} do{ qbs_set(__STRING_DEST,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9567);}while(r); do{ *__LONG_PART= 2 ; if(!qbevent)break;evnt(9567);}while(r); do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9567);}while(r); do{ goto LABEL_LRSETGOTPART; if(!qbevent)break;evnt(9567);}while(r); } } S_11652:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ if(qbevent){evnt(9569);if(r)goto S_11652;} 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(9569);}while(r); }else{ do{ qbs_set(__STRING_A3,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9569);}while(r); } LABEL_LRSETGOTPART:; if(qbevent){evnt(9570);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(9571);}while(r); dl_continue_1422:; }while(1); dl_exit_1422:; S_11659:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9573);if(r)goto S_11659;} 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(9573);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9573);}while(r); } do{ qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9575);}while(r); S_11664:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9576);if(r)goto S_11664;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9576);}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(9577);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9578);}while(r); S_11669:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9579);if(r)goto S_11669;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9579);}while(r); } S_11672:; if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ if(qbevent){evnt(9580);if(r)goto S_11672;} 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(9580);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9580);}while(r); } do{ qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9581);}while(r); S_11677:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9582);if(r)goto S_11677;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9582);}while(r); } do{ qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9583);}while(r); S_11681:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9584);if(r)goto S_11681;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9584);}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(9585);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9586);}while(r); S_11686:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9586);if(r)goto S_11686;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9586);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9586);}while(r); } do{ qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9587);}while(r); S_11692:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9588);if(r)goto S_11692;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9588);}while(r); } S_11695:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ if(qbevent){evnt(9589);if(r)goto S_11695;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1425; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1425; skip1425: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9590);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1426; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1426; skip1426: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9592);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9594);}while(r); } S_11702:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||new_error){ if(qbevent){evnt(9598);if(r)goto S_11702;} S_11703:; if ((-(*__LONG_N< 4 ))||new_error){ if(qbevent){evnt(9599);if(r)goto S_11703;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9599);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9599);}while(r); } do{ *__LONG_B= 0 ; if(!qbevent)break;evnt(9600);}while(r); do{ *__LONG_ELE= 1 ; if(!qbevent)break;evnt(9601);}while(r); do{ qbs_set(__STRING_E1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9602);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9603);}while(r); S_11711:; fornext_value1428= 2 ; fornext_finalvalue1428=*__LONG_N; fornext_step1428= 1 ; if (fornext_step1428<0) fornext_step_negative1428=1; else fornext_step_negative1428=0; if (new_error) goto fornext_error1428; goto fornext_entrylabel1428; while(1){ fornext_value1428=fornext_step1428+(*__LONG_I); fornext_entrylabel1428: *__LONG_I=fornext_value1428; if (fornext_step_negative1428){ if (fornext_value1428fornext_finalvalue1428) break; } fornext_error1428:; if(qbevent){evnt(9604);if(r)goto S_11711;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9605);}while(r); S_11713:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(9606);if(r)goto S_11713;} do{ *__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(9606);}while(r); } S_11716:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(9607);if(r)goto S_11716;} do{ *__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(9607);}while(r); } S_11719:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ if(qbevent){evnt(9608);if(r)goto S_11719;} S_11720:; if ((-(*__LONG_ELE== 2 ))||new_error){ if(qbevent){evnt(9609);if(r)goto S_11720;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9609);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9609);}while(r); } do{ *__LONG_ELE= 2 ; if(!qbevent)break;evnt(9610);}while(r); }else{ S_11726:; if ((-(*__LONG_ELE== 1 ))||new_error){ if(qbevent){evnt(9612);if(r)goto S_11726;} 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(9612);}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(9612);}while(r); } } fornext_continue_1427:; } fornext_exit_1427:; S_11733:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(9615);if(r)goto S_11733;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9615);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9615);}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(9616);}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(9616);}while(r); do{ qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9618);}while(r); S_11740:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9619);if(r)goto S_11740;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9619);}while(r); } do{ qbs_set(__STRING_E1L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9620);}while(r); do{ qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9621);}while(r); S_11745:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9622);if(r)goto S_11745;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9622);}while(r); } do{ qbs_set(__STRING_E2L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9623);}while(r); do{ qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9624);}while(r); do{ qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9624);}while(r); S_11751:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9625);if(r)goto S_11751;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9625);}while(r); } S_11754:; if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||new_error){ if(qbevent){evnt(9626);if(r)goto S_11754;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9626);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9626);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9628);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(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(9629);}while(r); S_11760:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(9630);if(r)goto S_11760;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9630);}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(9630);}while(r); } S_11765:; if (((*__LONG_E1TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(9633);if(r)goto S_11765;} S_11766:; if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(9634);if(r)goto S_11766;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9634);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9634);}while(r); } do{ qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1432= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9635);}while(r); do{ qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1433= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9635);}while(r); S_11772:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9636);if(r)goto S_11772;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9636);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1434; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1434; skip1434: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9637);}while(r); do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9638);}while(r); } S_11778:; if ((*__LONG_E1TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(9646);if(r)goto S_11778;} do{ qbs_set(__STRING_A,__STRING_E1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9647);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9649);}while(r); S_11781:; if ((*__LONG_I)||new_error){ if(qbevent){evnt(9650);if(r)goto S_11781;} do{ *__LONG_IDNUMBER=qbr(func_val(qbs_left(__STRING_A,*__LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9651);}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(9651);}while(r); do{ SUB_GETID(__LONG_IDNUMBER); if(!qbevent)break;evnt(9652);}while(r); S_11785:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9653);if(r)goto S_11785;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9653);}while(r); } do{ *__LONG_U=qbr(func_val(__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9654);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9655);}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(9655);}while(r); do{ *__LONG_E=qbr(func_val(__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9655);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9656);}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(9656);}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(9657);}while(r); S_11795:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(9657);if(r)goto S_11795;} 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(9657);}while(r); } S_11798:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(9658);if(r)goto S_11798;} do{ qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9659);}while(r); do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9660);}while(r); do{ *__LONG_T2=*__LONG_E2TYP; if(!qbevent)break;evnt(9660);}while(r); S_11802:; if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(9661);if(r)goto S_11802;} 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(9661);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9661);}while(r); } do{ *__LONG_IDNUMBER2=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9662);}while(r); do{ SUB_GETID(__LONG_IDNUMBER2); if(!qbevent)break;evnt(9663);}while(r); S_11808:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9664);if(r)goto S_11808;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9664);}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(9665);}while(r); S_11812:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(9665);if(r)goto S_11812;} 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(9665);}while(r); } do{ *__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9666);}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(9666);}while(r); do{ *__LONG_U2=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9666);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9667);}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(9667);}while(r); do{ *__LONG_E2=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9667);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9669);}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(9669);}while(r); S_11823:; if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||new_error){ if(qbevent){evnt(9671);if(r)goto S_11823;} 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(9671);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9671);}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(9672);}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(9673);}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(9674);}while(r); do{ qbs_set(__STRING_SIZ,FUNC_STR2(__LONG_B)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9675);}while(r); S_11831:; if ((-(*__LONG_B== 1 ))||new_error){ if(qbevent){evnt(9676);if(r)goto S_11831;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1441; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1441; skip1441: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9676);}while(r); } S_11834:; if ((-(*__LONG_B== 2 ))||new_error){ if(qbevent){evnt(9677);if(r)goto S_11834;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1442; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1442; skip1442: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9677);}while(r); } S_11837:; if ((-(*__LONG_B== 4 ))||new_error){ if(qbevent){evnt(9678);if(r)goto S_11837;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1443; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1443; skip1443: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9678);}while(r); } S_11840:; if ((-(*__LONG_B== 8 ))||new_error){ if(qbevent){evnt(9679);if(r)goto S_11840;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1444; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1444; skip1444: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9679);}while(r); } S_11843:; if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||new_error){ if(qbevent){evnt(9680);if(r)goto S_11843;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1445; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1445; skip1445: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9680);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9681);}while(r); } } } do{ *__LONG_E1TYPC=*__LONG_E1TYP; if(!qbevent)break;evnt(9687);}while(r); S_11851:; if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(9688);if(r)goto S_11851;} do{ *__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER; if(!qbevent)break;evnt(9688);}while(r); } S_11854:; if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(9689);if(r)goto S_11854;} do{ *__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(9689);}while(r); } S_11857:; if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||new_error){ if(qbevent){evnt(9690);if(r)goto S_11857;} do{ *__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY; if(!qbevent)break;evnt(9690);}while(r); } S_11860:; if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(9691);if(r)goto S_11860;} do{ *__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(9691);}while(r); } S_11863:; if ((*__LONG_E1TYPC&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(9692);if(r)goto S_11863;} do{ *__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT; if(!qbevent)break;evnt(9692);}while(r); } do{ *__LONG_E2TYPC=*__LONG_E2TYP; if(!qbevent)break;evnt(9693);}while(r); S_11867:; if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(9694);if(r)goto S_11867;} do{ *__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER; if(!qbevent)break;evnt(9694);}while(r); } S_11870:; if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(9695);if(r)goto S_11870;} do{ *__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(9695);}while(r); } S_11873:; if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||new_error){ if(qbevent){evnt(9696);if(r)goto S_11873;} do{ *__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY; if(!qbevent)break;evnt(9696);}while(r); } S_11876:; if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(9697);if(r)goto S_11876;} do{ *__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(9697);}while(r); } S_11879:; if ((*__LONG_E2TYPC&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(9698);if(r)goto S_11879;} do{ *__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT; if(!qbevent)break;evnt(9698);}while(r); } S_11882:; if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||new_error){ if(qbevent){evnt(9699);if(r)goto S_11882;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9699);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9699);}while(r); } do{ *__LONG_T=*__LONG_E1TYP; if(!qbevent)break;evnt(9700);}while(r); S_11887:; if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(9701);if(r)goto S_11887;} 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(9701);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9701);}while(r); } do{ *__LONG_B=*__LONG_T& 511 ; if(!qbevent)break;evnt(9702);}while(r); do{ qbs_set(__STRING_T,FUNC_STR2(__LONG_B)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9703);}while(r); S_11893:; if ((-(*__LONG_B> 64 ))||new_error){ if(qbevent){evnt(9703);if(r)goto S_11893;} do{ qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9703);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1446; sub_file_print(tmp_fileno,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,&(pass1447= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1448= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1446; skip1446: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9704);}while(r); S_11897:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9705);if(r)goto S_11897;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9705);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9706);}while(r); } S_11902:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||new_error){ if(qbevent){evnt(9709);if(r)goto S_11902;} S_11903:; if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ if(qbevent){evnt(9710);if(r)goto S_11903;} 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(9710);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9710);}while(r); } S_11908:; if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ if(qbevent){evnt(9711);if(r)goto S_11908;} 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(9711);}while(r); } S_11911:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(9712);if(r)goto S_11911;} 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(9712);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9712);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1449= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9713);}while(r); S_11916:; if(qbevent){evnt(9714);if(r)goto S_11916;} S_11917:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||new_error){ if(qbevent){evnt(9715);if(r)goto S_11917;} do{ qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1451= 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9716);}while(r); S_11919:; 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(9717);if(r)goto S_11919;} 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(9717);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9717);}while(r); } S_11923:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(9718);if(r)goto S_11923;} do{ *__INTEGER_OPTIONBASE= 1 ; if(!qbevent)break;evnt(9718);}while(r); }else{ do{ *__INTEGER_OPTIONBASE= 0 ; if(!qbevent)break;evnt(9718);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(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(9719);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9720);}while(r); S_11930:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9720);if(r)goto S_11930;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9720);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9720);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9721);}while(r); sc_ec_31_end:; goto sc_1450_end; } S_11936:; 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(9722);if(r)goto S_11936;} S_11937:; 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(9723);if(r)goto S_11937;} S_11938:; if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ if(qbevent){evnt(9724);if(r)goto S_11938;} 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(9724);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9724);}while(r); } S_11943:; if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ if(qbevent){evnt(9725);if(r)goto S_11943;} 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(9725);}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(9726);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9726);}while(r); } S_11949:; if (((-(*__BYTE_OPTIONEXPLICIT== -1 ))&(-(*__LONG_NOIDEMODE== 0 )))||new_error){ if(qbevent){evnt(9728);if(r)goto S_11949;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate OPTION ",17),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9728);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9728);}while(r); } S_11953:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9729);if(r)goto S_11953;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("OPTION ",7),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT must come before any other statement",45))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9729);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9729);}while(r); } S_11957:; if (((-(*__LONG_LINENUMBER> 1 ))&(-(*__LONG_OPEX_COMMENTS== 0 )))||new_error){ if(qbevent){evnt(9730);if(r)goto S_11957;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("OPTION ",7),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT must come before any other statement",45))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9730);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9730);}while(r); } do{ *__BYTE_OPTIONEXPLICIT= -1 ; if(!qbevent)break;evnt(9731);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("OPTION",6),__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9732);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9733);}while(r); S_11964:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9733);if(r)goto S_11964;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9733);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9733);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9734);}while(r); sc_ec_32_end:; goto sc_1450_end; } S_11970:; 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(9735);if(r)goto S_11970;} S_11971:; 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(9736);if(r)goto S_11971;} S_11972:; if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ if(qbevent){evnt(9737);if(r)goto S_11972;} 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(9737);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9737);}while(r); } S_11977:; if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ if(qbevent){evnt(9738);if(r)goto S_11977;} 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(9738);}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(9739);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9739);}while(r); } S_11983:; if (((-(*__BYTE_OPTIONEXPLICITARRAY== -1 ))&(-(*__LONG_NOIDEMODE== 0 )))||new_error){ if(qbevent){evnt(9741);if(r)goto S_11983;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate OPTION ",17),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9741);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9741);}while(r); } S_11987:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9742);if(r)goto S_11987;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("OPTION ",7),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY must come before any other statement",50))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9742);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9742);}while(r); } S_11991:; if (((-(*__LONG_LINENUMBER> 1 ))&(-(*__LONG_OPEX_COMMENTS== 0 )))||new_error){ if(qbevent){evnt(9743);if(r)goto S_11991;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("OPTION ",7),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY must come before any other statement",50))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9743);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9743);}while(r); } do{ *__BYTE_OPTIONEXPLICITARRAY= -1 ; if(!qbevent)break;evnt(9744);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("OPTION",6),__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9745);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(9746);}while(r); S_11998:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(9746);if(r)goto S_11998;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9746);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9746);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(9747);}while(r); sc_ec_33_end:; goto sc_1450_end; } S_12005:; if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ if(qbevent){evnt(9749);if(r)goto S_12005;} 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(9749);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9749);}while(r); } S_12010:; if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ if(qbevent){evnt(9750);if(r)goto S_12010;} 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(9750);}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(9751);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9751);}while(r); sc_1450_end:; } do{ memcpy(((char*)__UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2861); if(!qbevent)break;evnt(9757);}while(r); do{ *__LONG_TARGETID=*__LONG_CURRENTID; if(!qbevent)break;evnt(9759);}while(r); S_12019:; 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(9761);if(r)goto S_12019;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9761);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9761);}while(r); } S_12023:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(9763);if(r)goto S_12023;} S_12024:; if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||new_error){ if(qbevent){evnt(9764);if(r)goto S_12024;} 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(9764);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9764);}while(r); } } do{ SUB_SETDEPENDENCY(&(pass1457=*(int16*)(((char*)__UDT_ID2)+(546)))); if(!qbevent)break;evnt(9767);}while(r); do{ *__LONG_SEPERATEARGS_ERROR= 0 ; if(!qbevent)break;evnt(9769);}while(r); do{ *__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1458= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1459= 2 ),__LONG_N),__LONG_PASSED); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9770);}while(r); S_12032:; if ((*__LONG_SEPERATEARGS_ERROR)||new_error){ if(qbevent){evnt(9771);if(r)goto S_12032;} do{ qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9771);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9771);}while(r); } S_12036:; fornext_value1461= 1 ; fornext_finalvalue1461=*__LONG_OPTMAX; 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(9774);if(r)goto S_12036;} 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(9774);}while(r); fornext_continue_1460:; } fornext_exit_1460:; S_12039:; fornext_value1463= 1 ; fornext_finalvalue1463=*__LONG_OPTMAX+ 1 ; fornext_step1463= 1 ; if (fornext_step1463<0) fornext_step_negative1463=1; else fornext_step_negative1463=0; if (new_error) goto fornext_error1463; goto fornext_entrylabel1463; while(1){ fornext_value1463=fornext_step1463+(*__LONG_I); fornext_entrylabel1463: *__LONG_I=fornext_value1463; if (fornext_step_negative1463){ if (fornext_value1463fornext_finalvalue1463) break; } fornext_error1463:; if(qbevent){evnt(9775);if(r)goto S_12039;} 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(9775);}while(r); fornext_continue_1462:; } fornext_exit_1462:; S_12042:; fornext_value1465= 1 ; fornext_finalvalue1465=*(int16*)(((char*)__UDT_ID2)+(809)); fornext_step1465= 1 ; if (fornext_step1465<0) fornext_step_negative1465=1; else fornext_step_negative1465=0; if (new_error) goto fornext_error1465; goto fornext_entrylabel1465; while(1){ fornext_value1465=fornext_step1465+(*__LONG_I); fornext_entrylabel1465: *__LONG_I=fornext_value1465; if (fornext_step_negative1465){ if (fornext_value1465fornext_finalvalue1465) break; } fornext_error1465:; if(qbevent){evnt(9776);if(r)goto S_12042;} 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(9776);}while(r); fornext_continue_1464:; } fornext_exit_1464:; S_12045:; fornext_value1467= 1 ; fornext_finalvalue1467=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; 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_I); fornext_entrylabel1467: *__LONG_I=fornext_value1467; if (fornext_step_negative1467){ if (fornext_value1467fornext_finalvalue1467) break; } fornext_error1467:; if(qbevent){evnt(9777);if(r)goto S_12045;} 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(9777);}while(r); fornext_continue_1466:; } fornext_exit_1466:; S_12048:; if (( 0 )||new_error){ if(qbevent){evnt(9781);if(r)goto S_12048;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1468; sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0 , 0 , 1 ); if (new_error) goto skip1468; skip1468: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9782);}while(r); S_12050:; fornext_value1470= 1 ; fornext_finalvalue1470=*(int16*)(((char*)__UDT_ID2)+(809)); fornext_step1470= 1 ; if (fornext_step1470<0) fornext_step_negative1470=1; else fornext_step_negative1470=0; if (new_error) goto fornext_error1470; goto fornext_entrylabel1470; while(1){ fornext_value1470=fornext_step1470+(*__LONG_I); fornext_entrylabel1470: *__LONG_I=fornext_value1470; if (fornext_step_negative1470){ if (fornext_value1470fornext_finalvalue1470) break; } fornext_error1470:; if(qbevent){evnt(9782);if(r)goto S_12050;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1471; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip1471; 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 skip1471; skip1471: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9782);}while(r); fornext_continue_1469:; } fornext_exit_1469:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1472; sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0 , 0 , 1 ); if (new_error) goto skip1472; skip1472: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9783);}while(r); S_12054:; fornext_value1474= 1 ; fornext_finalvalue1474=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; fornext_step1474= 1 ; if (fornext_step1474<0) fornext_step_negative1474=1; else fornext_step_negative1474=0; if (new_error) goto fornext_error1474; goto fornext_entrylabel1474; while(1){ fornext_value1474=fornext_step1474+(*__LONG_I); fornext_entrylabel1474: *__LONG_I=fornext_value1474; if (fornext_step_negative1474){ if (fornext_value1474fornext_finalvalue1474) break; } fornext_error1474:; if(qbevent){evnt(9783);if(r)goto S_12054;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1475; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip1475; 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 skip1475; skip1475: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9783);}while(r); fornext_continue_1473:; } fornext_exit_1473:; } S_12058:; if ((*__LONG_USECALL)||new_error){ if(qbevent){evnt(9795);if(r)goto S_12058;} S_12059:; if ((-(*__LONG_USECALL== 1 ))||new_error){ if(qbevent){evnt(9796);if(r)goto S_12059;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(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(9796);}while(r); } S_12062:; if ((-(*__LONG_USECALL== 2 ))||new_error){ if(qbevent){evnt(9797);if(r)goto S_12062;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(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(9797);}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(9799);}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(9802);}while(r); do{ *__LONG_ADDEDLAYOUT= 0 ; if(!qbevent)break;evnt(9803);}while(r); do{ *__LONG_FIELDCALL= 0 ; if(!qbevent)break;evnt(9805);}while(r); S_12071:; 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(9807);if(r)goto S_12071;} S_12072:; if ((*__LONG_PASSED& 2 )||new_error){ if(qbevent){evnt(9808);if(r)goto S_12072;} do{ *__LONG_PASSED=*__LONG_PASSED- 2 ; if(!qbevent)break;evnt(9810);}while(r); }else{ S_12075:; 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(9813);if(r)goto S_12075;} do{ *__LONG_FIELDCALL= 1 ; if(!qbevent)break;evnt(9814);}while(r); do{ qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9815);}while(r); }else{ do{ *__LONG_FIELDCALL= 2 ; if(!qbevent)break;evnt(9817);}while(r); do{ qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9818);}while(r); } } } S_12084:; 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(9823);if(r)goto S_12084;} S_12085:; if ((-(*__LONG_USECALL== 0 ))||new_error){ if(qbevent){evnt(9824);if(r)goto S_12085;} 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(9825);}while(r); } } S_12089:; fornext_value1478= 1 ; fornext_finalvalue1478=*(int16*)(((char*)__UDT_ID2)+(809)); fornext_step1478= 1 ; if (fornext_step1478<0) fornext_step_negative1478=1; else fornext_step_negative1478=0; if (new_error) goto fornext_error1478; goto fornext_entrylabel1478; while(1){ fornext_value1478=fornext_step1478+(*__LONG_I); fornext_entrylabel1478: *__LONG_I=fornext_value1478; if (fornext_step_negative1478){ if (fornext_value1478fornext_finalvalue1478) break; } fornext_error1478:; if(qbevent){evnt(9829);if(r)goto S_12089;} do{ *__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(813)),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9830);}while(r); do{ *__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9831);}while(r); do{ *__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9832);}while(r); do{ *__LONG_ADDLAYOUT= 1 ; if(!qbevent)break;evnt(9834);}while(r); do{ *__LONG_CONVERTSPACING= 0 ; if(!qbevent)break;evnt(9835);}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(9836);}while(r); S_12096:; while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ if(qbevent){evnt(9837);if(r)goto S_12096;} do{ *__LONG_X=qbs_asc(__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9838);}while(r); S_12098:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(9839);if(r)goto S_12098;} do{ *__LONG_CONVERTSPACING= 0 ; if(!qbevent)break;evnt(9840);}while(r); do{ qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9841);}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(9842);}while(r); do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(9844);}while(r); do{ *__LONG_AN= 0 ; if(!qbevent)break;evnt(9845);}while(r); do{ qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9846);}while(r); S_12105:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ if(qbevent){evnt(9847);if(r)goto S_12105;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(9847);}while(r); } S_12108:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ if(qbevent){evnt(9848);if(r)goto S_12108;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(9849);}while(r); S_12110:; 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(9850);if(r)goto S_12110;} do{ *__LONG_AN= 1 ; if(!qbevent)break;evnt(9850);}while(r); } }else{ S_12114:; 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(9852);if(r)goto S_12114;} do{ *__LONG_AN= 1 ; if(!qbevent)break;evnt(9852);}while(r); } } do{ *__LONG_S1=*__LONG_S; if(!qbevent)break;evnt(9854);}while(r); S_12119:; 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(9856);if(r)goto S_12119;} do{ *__LONG_CONVERTSPACING= 1 ; if(!qbevent)break;evnt(9856);}while(r); } S_12122:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||new_error){ if(qbevent){evnt(9859);if(r)goto S_12122;} } S_12124:; 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(9883);if(r)goto S_12124;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(9887);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9888);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9889);}while(r); } S_12129:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(9892);if(r)goto S_12129;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(9893);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9894);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9895);}while(r); } S_12134:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(9898);if(r)goto S_12134;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(9899);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9900);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9901);}while(r); } S_12139:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(9904);if(r)goto S_12139;} do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9904);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9904);}while(r); } S_12143:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ if(qbevent){evnt(9907);if(r)goto S_12143;} S_12144:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ if(qbevent){evnt(9908);if(r)goto S_12144;} do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9908);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9908);}while(r); } do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9909);}while(r); do{ goto LABEL_CUSTOMLAYCHAR; if(!qbevent)break;evnt(9909);}while(r); } do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9913);}while(r); LABEL_CUSTOMLAYCHAR:; if(qbevent){evnt(9919);r=0;} S_12152:; if ((-(*__LONG_S== 0 ))||new_error){ if(qbevent){evnt(9920);if(r)goto S_12152;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(9920);}while(r); } S_12155:; if ((-(*__LONG_S!=*__LONG_S1))||new_error){ if(qbevent){evnt(9921);if(r)goto S_12155;} S_12156:; if ((*__LONG_S1)||new_error){ if(qbevent){evnt(9922);if(r)goto S_12156;} do{ qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9922);}while(r); } S_12159:; if ((-(*__LONG_S== 1 ))||new_error){ if(qbevent){evnt(9923);if(r)goto S_12159;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9923);}while(r); } S_12162:; if ((-(*__LONG_S== 2 ))||new_error){ if(qbevent){evnt(9924);if(r)goto S_12162;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9924);}while(r); } } S_12166:; 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(9927);if(r)goto S_12166;} S_12167:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||new_error){ if(qbevent){evnt(9928);if(r)goto S_12167;} 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(9929);}while(r); } } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9933);}while(r); }else{ do{ *__LONG_ADDLAYOUT= 0 ; if(!qbevent)break;evnt(9936);}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(9937);}while(r); } do{ *__LONG_ADDEDLAYOUT= 0 ; if(!qbevent)break;evnt(9939);}while(r); dl_continue_1480:; } dl_exit_1480:; S_12178:; if ((-(*__LONG_TARGETTYP== -3 ))||new_error){ if(qbevent){evnt(9948);if(r)goto S_12178;} S_12179:; 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(9949);if(r)goto S_12179;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9949);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9949);}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(9951);}while(r); S_12184:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||new_error){ if(qbevent){evnt(9953);if(r)goto S_12184;} do{ qbs_set(__STRING_TRY_STRING,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9954);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9955);}while(r); S_12187:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9956);if(r)goto S_12187;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9956);}while(r); } S_12190:; do{ if(qbevent){evnt(9957);if(r)goto S_12190;} S_12191:; if ((*__LONG_TRY)||new_error){ if(qbevent){evnt(9958);if(r)goto S_12191;} S_12192:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(9959);if(r)goto S_12192;} S_12193:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(9960);if(r)goto S_12193;} 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(9961);}while(r); do{ goto dl_exit_1485; if(!qbevent)break;evnt(9962);}while(r); } } S_12198:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(9966);if(r)goto S_12198;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(9966);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9966);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(9966);}while(r); } S_12204:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9967);if(r)goto S_12204;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9967);}while(r); } } S_12208:; if ((-(*__LONG_TRY== 0 ))||new_error){ if(qbevent){evnt(9969);if(r)goto S_12208;} S_12209:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||new_error){ if(qbevent){evnt(9970);if(r)goto S_12209;} S_12210:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9971);if(r)goto S_12210;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9971);}while(r); } do{ *__LONG_A=qbs_asc(__STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9972);}while(r); S_12214:; if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||new_error){ if(qbevent){evnt(9973);if(r)goto S_12214;} do{ *__LONG_A=*__LONG_A- 32 ; if(!qbevent)break;evnt(9973);}while(r); } S_12217:; if ((-(*__LONG_A== 95 ))||new_error){ if(qbevent){evnt(9974);if(r)goto S_12217;} do{ *__LONG_A= 91 ; if(!qbevent)break;evnt(9974);}while(r); } do{ *__LONG_A=*__LONG_A- 64 ; if(!qbevent)break;evnt(9975);}while(r); S_12221:; 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(9976);if(r)goto S_12221;} 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(9976);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9976);}while(r); } S_12225:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9977);if(r)goto S_12225;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9977);}while(r); } } } S_12230:; dl_continue_1485:; }while((!(-(*__LONG_TRY== 0 )))&&(!new_error)); dl_exit_1485:; if(qbevent){evnt(9980);if(r)goto S_12230;} } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9985);}while(r); S_12233:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9986);if(r)goto S_12233;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9986);}while(r); } S_12236:; if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ if(qbevent){evnt(9987);if(r)goto S_12236;} 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(9987);}while(r); } S_12239:; if ((*__LONG_ADDLAYOUT)||new_error){ if(qbevent){evnt(9988);if(r)goto S_12239;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9988);}while(r); do{ *__LONG_ADDEDLAYOUT= 1 ; if(!qbevent)break;evnt(9988);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1488= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9989);}while(r); S_12244:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9990);if(r)goto S_12244;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9990);}while(r); } do{ goto LABEL_SETE; if(!qbevent)break;evnt(9991);}while(r); } S_12249:; if ((-(*__LONG_TARGETTYP== -2 ))||new_error){ if(qbevent){evnt(9995);if(r)goto S_12249;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9996);}while(r); S_12251:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(9997);if(r)goto S_12251;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9997);}while(r); } S_12254:; if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ if(qbevent){evnt(9998);if(r)goto S_12254;} 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(9998);}while(r); } S_12257:; if ((*__LONG_ADDLAYOUT)||new_error){ if(qbevent){evnt(9999);if(r)goto S_12257;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9999);}while(r); do{ *__LONG_ADDEDLAYOUT= 1 ; if(!qbevent)break;evnt(9999);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1490= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10000);}while(r); S_12262:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10001);if(r)goto S_12262;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10001);}while(r); } do{ goto LABEL_SETE; if(!qbevent)break;evnt(10002);}while(r); } S_12267:; if ((-(*__LONG_TARGETTYP== -4 ))||new_error){ if(qbevent){evnt(10005);if(r)goto S_12267;} S_12268:; if ((*__LONG_FIELDCALL)||new_error){ if(qbevent){evnt(10007);if(r)goto S_12268;} do{ *__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; if(!qbevent)break;evnt(10008);}while(r); do{ goto fornext_exit_1477; if(!qbevent)break;evnt(10009);}while(r); } S_12272:; 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(10012);if(r)goto S_12272;} 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(10012);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10012);}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(10013);}while(r); S_12277:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10014);if(r)goto S_12277;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10014);}while(r); } S_12280:; if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ if(qbevent){evnt(10015);if(r)goto S_12280;} 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(10015);}while(r); } S_12283:; if ((*__LONG_ADDLAYOUT)||new_error){ if(qbevent){evnt(10016);if(r)goto S_12283;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10016);}while(r); do{ *__LONG_ADDEDLAYOUT= 1 ; if(!qbevent)break;evnt(10016);}while(r); } S_12287:; 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(10019);if(r)goto S_12287;} do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10020);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10021);}while(r); S_12290:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10022);if(r)goto S_12290;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10022);}while(r); } S_12293:; if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(10023);if(r)goto S_12293;} S_12294:; if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(10024);if(r)goto S_12294;} do{ qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10026);}while(r); S_12296:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||new_error){ if(qbevent){evnt(10028);if(r)goto S_12296;} 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(10029);}while(r); do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1493= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10030);}while(r); S_12299:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10031);if(r)goto S_12299;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10031);}while(r); } do{ goto LABEL_SETE; if(!qbevent)break;evnt(10032);}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(10034);}while(r); } } } do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10039);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1494= -4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10042);}while(r); S_12311:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10043);if(r)goto S_12311;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10043);}while(r); } do{ goto LABEL_SETE; if(!qbevent)break;evnt(10044);}while(r); } S_12316:; 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(10047);if(r)goto S_12316;} do{ qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10048);}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(10051);}while(r); S_12320:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10052);if(r)goto S_12320;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10052);}while(r); } S_12323:; if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ if(qbevent){evnt(10053);if(r)goto S_12323;} 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(10053);}while(r); } S_12326:; if ((*__LONG_ADDLAYOUT)||new_error){ if(qbevent){evnt(10054);if(r)goto S_12326;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10054);}while(r); do{ *__LONG_ADDEDLAYOUT= 1 ; if(!qbevent)break;evnt(10054);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10056);}while(r); S_12331:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10057);if(r)goto S_12331;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10057);}while(r); } S_12334:; if ((*__LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(10059);if(r)goto S_12334;} S_12335:; if ((-((*__LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ if(qbevent){evnt(10060);if(r)goto S_12335;} S_12336:; if ((-(*(int16*)(((char*)__UDT_ID2)+(548))== 0 ))||new_error){ if(qbevent){evnt(10061);if(r)goto S_12336;} 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(10061);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10061);}while(r); } } } S_12342:; 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(10065);if(r)goto S_12342;} S_12343:; if ((-(*__LONG_I== 3 ))||new_error){ if(qbevent){evnt(10066);if(r)goto S_12343;} S_12344:; if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(10067);if(r)goto S_12344;} do{ *__LONG_TARGETTYP=*__LONG_ISSTRING; if(!qbevent)break;evnt(10068);}while(r); } } } S_12349:; 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(10073);if(r)goto S_12349;} do{ *__LONG_DEREFERENCE= 1 ; if(!qbevent)break;evnt(10073);}while(r); }else{ do{ *__LONG_DEREFERENCE= 0 ; if(!qbevent)break;evnt(10073);}while(r); } S_12354:; if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(10076);if(r)goto S_12354;} S_12355:; if ((-(*__LONG_DEREFERENCE== 0 ))||new_error){ if(qbevent){evnt(10077);if(r)goto S_12355;} S_12356:; if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(10080);if(r)goto S_12356;} S_12357:; if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(10081);if(r)goto S_12357;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10081);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10081);}while(r); } S_12361:; if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ if(qbevent){evnt(10082);if(r)goto S_12361;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10082);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10082);}while(r); } S_12365:; if (( 0 )||new_error){ if(qbevent){evnt(10083);if(r)goto S_12365;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1496; 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 skip1496; skip1496: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10083);}while(r); } do{ *__LONG_TARGETTYP2=*__LONG_TARGETTYP; if(!qbevent)break;evnt(10086);}while(r); do{ *__LONG_SOURCETYP2=*__LONG_SOURCETYP; if(!qbevent)break;evnt(10086);}while(r); do{ *__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); if(!qbevent)break;evnt(10087);}while(r); do{ *__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); if(!qbevent)break;evnt(10088);}while(r); S_12372:; if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||new_error){ if(qbevent){evnt(10089);if(r)goto S_12372;} 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(10089);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10089);}while(r); } S_12376:; if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10092);if(r)goto S_12376;} S_12377:; if (( 0 )||new_error){ if(qbevent){evnt(10093);if(r)goto S_12377;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1497; 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 skip1497; skip1497: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10093);}while(r); } do{ *__LONG_UDTREFID=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10095);}while(r); do{ SUB_GETID(__LONG_UDTREFID); if(!qbevent)break;evnt(10096);}while(r); S_12382:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10097);if(r)goto S_12382;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10097);}while(r); } do{ *__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10098);}while(r); do{ *__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10099);}while(r); do{ *__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10100);}while(r); do{ *__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10101);}while(r); do{ *__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10102);}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(10103);}while(r); S_12391:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ if(qbevent){evnt(10105);if(r)goto S_12391;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10105);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10105);}while(r); } }else{ S_12396:; 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(10107);if(r)goto S_12396;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10107);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10107);}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(10110);}while(r); do{ SUB_GETID(__LONG_IDNUM); if(!qbevent)break;evnt(10111);}while(r); S_12403:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10112);if(r)goto S_12403;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10112);}while(r); } S_12406:; if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(10114);if(r)goto S_12406;} do{ *__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(1213)),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10115);}while(r); S_12408:; if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||new_error){ if(qbevent){evnt(10116);if(r)goto S_12408;} 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(10116);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10116);}while(r); } } S_12413:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(10119);if(r)goto S_12413;} S_12414:; if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ if(qbevent){evnt(10120);if(r)goto S_12414;} 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(10121);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10122);}while(r); } } S_12419:; if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ if(qbevent){evnt(10126);if(r)goto S_12419;} S_12420:; if ((-(*__LONG_NELEREQ== 0 ))||new_error){ if(qbevent){evnt(10132);if(r)goto S_12420;} S_12421:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||new_error){ if(qbevent){evnt(10136);if(r)goto S_12421;} do{ *__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); if(!qbevent)break;evnt(10138);}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(10139);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2861); if(!qbevent)break;evnt(10145);}while(r); }else{ S_12427:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||new_error){ if(qbevent){evnt(10152);if(r)goto S_12427;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)",91)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10152);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10152);}while(r); } } } do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1499= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10158);}while(r); S_12434:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10159);if(r)goto S_12434;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10159);}while(r); } do{ goto LABEL_SETE; if(!qbevent)break;evnt(10160);}while(r); } S_12439:; if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(10167);if(r)goto S_12439;} S_12440:; if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(10168);if(r)goto S_12440;} 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(10169);}while(r); do{ *__LONG_TARGETTYP2=*__LONG_TARGETTYP; if(!qbevent)break;evnt(10171);}while(r); do{ *__LONG_SOURCETYP2=*__LONG_SOURCETYP; if(!qbevent)break;evnt(10171);}while(r); do{ *__LONG_ARR= 0 ; if(!qbevent)break;evnt(10174);}while(r); S_12445:; if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(10174);if(r)goto S_12445;} do{ *__LONG_ARR= 1 ; if(!qbevent)break;evnt(10174);}while(r); } do{ *__LONG_PASSUDTELEMENT= 0 ; if(!qbevent)break;evnt(10175);}while(r); S_12449:; if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ if(qbevent){evnt(10175);if(r)goto S_12449;} do{ *__LONG_PASSUDTELEMENT= 1 ; if(!qbevent)break;evnt(10175);}while(r); do{ *__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT; if(!qbevent)break;evnt(10175);}while(r); } do{ *__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); if(!qbevent)break;evnt(10178);}while(r); do{ *__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); if(!qbevent)break;evnt(10179);}while(r); S_12455:; if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||new_error){ if(qbevent){evnt(10182);if(r)goto S_12455;} S_12456:; if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10184);if(r)goto S_12456;} do{ *__LONG_UDTREFID=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10188);}while(r); do{ SUB_GETID(__LONG_UDTREFID); if(!qbevent)break;evnt(10189);}while(r); S_12459:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10190);if(r)goto S_12459;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10190);}while(r); } do{ *__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10191);}while(r); do{ *__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10192);}while(r); do{ *__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10193);}while(r); do{ *__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10194);}while(r); do{ *__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10195);}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(10196);}while(r); S_12468:; if ((*__LONG_ARR)||new_error){ if(qbevent){evnt(10199);if(r)goto S_12468;} 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(10200);}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(10202);}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(10205);}while(r); S_12474:; if ((*__LONG_PASSUDTELEMENT)||new_error){ if(qbevent){evnt(10208);if(r)goto S_12474;} do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1501=*__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(10208);}while(r); } S_12477:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10209);if(r)goto S_12477;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10209);}while(r); } }else{ S_12481:; if ((*__LONG_ARR)||new_error){ if(qbevent){evnt(10213);if(r)goto S_12481;} S_12482:; if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(10214);if(r)goto S_12482;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass BIT array offsets yet",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10214);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10214);}while(r); } do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1502= 0 ))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10215);}while(r); S_12487:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10216);if(r)goto S_12487;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10216);}while(r); } }else{ do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1503= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10218);}while(r); S_12492:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10219);if(r)goto S_12492;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10219);}while(r); } } S_12496:; if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ if(qbevent){evnt(10223);if(r)goto S_12496;} do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1504=*__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(10224);}while(r); S_12498:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10225);if(r)goto S_12498;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10225);}while(r); } } } S_12503:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(10230);if(r)goto S_12503;} S_12504:; if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ if(qbevent){evnt(10231);if(r)goto S_12504;} 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(10232);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10233);}while(r); } } do{ goto LABEL_SETE; if(!qbevent)break;evnt(10237);}while(r); } } }else{ S_12513:; if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(10242);if(r)goto S_12513;} 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(10243);}while(r); S_12515:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(10244);if(r)goto S_12515;} S_12516:; if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ if(qbevent){evnt(10245);if(r)goto S_12516;} 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(10246);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10247);}while(r); } } } } } } S_12525:; if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(10259);if(r)goto S_12525;} S_12526:; if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(10260);if(r)goto S_12526;} do{ *__LONG_NTH=*__LONG_I; if(!qbevent)break;evnt(10261);}while(r); S_12528:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(10262);if(r)goto S_12528;} do{ qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10262);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10262);}while(r); } do{ qbs_set(__STRING_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(10263);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10263);}while(r); } } S_12536:; if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(10266);if(r)goto S_12536;} S_12537:; if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(10267);if(r)goto S_12537;} do{ *__LONG_NTH=*__LONG_I; if(!qbevent)break;evnt(10268);}while(r); S_12539:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(10269);if(r)goto S_12539;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10269);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10269);}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(10270);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10270);}while(r); } } S_12547:; if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(10275);if(r)goto S_12547;} do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1505= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10276);}while(r); S_12549:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10277);if(r)goto S_12549;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10277);}while(r); } } S_12553:; if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||new_error){ if(qbevent){evnt(10280);if(r)goto S_12553;} S_12554:; if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10281);if(r)goto S_12554;} do{ *__LONG_NTH=*__LONG_I; if(!qbevent)break;evnt(10282);}while(r); S_12556:; 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(10283);if(r)goto S_12556;} 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(10284);}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(10286);}while(r); } S_12561:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(10288);if(r)goto S_12561;} 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(10288);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10288);}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(10289);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10289);}while(r); } }else{ S_12569:; if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10292);if(r)goto S_12569;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10292);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10292);}while(r); } } S_12574:; if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(10296);if(r)goto S_12574;} S_12575:; if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(10297);if(r)goto S_12575;} do{ *__LONG_BITS=*__LONG_TARGETTYP& 511 ; if(!qbevent)break;evnt(10299);}while(r); S_12577:; if ((-(*__LONG_BITS<= 16 ))||new_error){ if(qbevent){evnt(10300);if(r)goto S_12577;} 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(10300);}while(r); } S_12580:; if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||new_error){ if(qbevent){evnt(10301);if(r)goto S_12580;} 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(10301);}while(r); } S_12583:; if ((-(*__LONG_BITS>= 32 ))||new_error){ if(qbevent){evnt(10302);if(r)goto S_12583;} 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(10302);}while(r); } } } S_12588:; if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(10306);if(r)goto S_12588;} S_12589:; if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(10307);if(r)goto S_12589;} do{ goto LABEL_SETE; if(!qbevent)break;evnt(10307);}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(10308);}while(r); S_12593:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10309);if(r)goto S_12593;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10309);}while(r); } do{ qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1506=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10310);}while(r); S_12597:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(10312);if(r)goto S_12597;} do{ *__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/ 8 ; if(!qbevent)break;evnt(10313);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip1507; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" *",2)),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip1507; skip1507: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10314);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1508; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip1508; skip1508: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10315);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1509; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(__LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1509; skip1509: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10316);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1510; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_V,qbs_new_txt_len("=(",2)),__STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); if (new_error) goto skip1510; skip1510: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10317);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1511; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10350);}while(r); } S_12629:; 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(10353);if(r)goto S_12629;} do{ qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10353);}while(r); } } S_12633:; if ((-(*__LONG_I!= 1 ))||new_error){ if(qbevent){evnt(10357);if(r)goto S_12633;} do{ qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10357);}while(r); } do{ qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10358);}while(r); fornext_continue_1477:; } fornext_exit_1477:; 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(10362);}while(r); S_12639:; while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ if(qbevent){evnt(10363);if(r)goto S_12639;} do{ *__LONG_X=qbs_asc(__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10364);}while(r); S_12641:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(10365);if(r)goto S_12641;} do{ qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10366);}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(10367);}while(r); do{ *__LONG_S= 0 ; if(!qbevent)break;evnt(10369);}while(r); do{ *__LONG_AN= 0 ; if(!qbevent)break;evnt(10370);}while(r); do{ qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10371);}while(r); S_12647:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ if(qbevent){evnt(10372);if(r)goto S_12647;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(10372);}while(r); } S_12650:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ if(qbevent){evnt(10373);if(r)goto S_12650;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(10374);}while(r); S_12652:; 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(10375);if(r)goto S_12652;} do{ *__LONG_AN= 1 ; if(!qbevent)break;evnt(10375);}while(r); } }else{ S_12656:; 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(10378);if(r)goto S_12656;} do{ *__LONG_AN= 1 ; if(!qbevent)break;evnt(10378);}while(r); } } do{ *__LONG_S1=*__LONG_S; if(!qbevent)break;evnt(10381);}while(r); S_12661:; 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(10383);if(r)goto S_12661;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(10384);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10385);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10386);}while(r); } S_12666:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(10389);if(r)goto S_12666;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(10390);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10391);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10392);}while(r); } S_12671:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(10395);if(r)goto S_12671;} do{ *__LONG_S= 1 ; if(!qbevent)break;evnt(10396);}while(r); do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10397);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10398);}while(r); } S_12676:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(10401);if(r)goto S_12676;} do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10401);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10401);}while(r); } S_12680:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ if(qbevent){evnt(10403);if(r)goto S_12680;} S_12681:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ if(qbevent){evnt(10404);if(r)goto S_12681;} do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10404);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10404);}while(r); } do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10405);}while(r); do{ goto LABEL_CUSTOMLAYCHAR2; if(!qbevent)break;evnt(10405);}while(r); } do{ qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10409);}while(r); LABEL_CUSTOMLAYCHAR2:; if(qbevent){evnt(10410);r=0;} S_12689:; if ((-(*__LONG_S== 0 ))||new_error){ if(qbevent){evnt(10411);if(r)goto S_12689;} do{ *__LONG_S= 2 ; if(!qbevent)break;evnt(10411);}while(r); } S_12692:; if ((-(*__LONG_S!=*__LONG_S1))||new_error){ if(qbevent){evnt(10412);if(r)goto S_12692;} S_12693:; if ((*__LONG_S1)||new_error){ if(qbevent){evnt(10413);if(r)goto S_12693;} do{ qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10413);}while(r); } S_12696:; if ((-(*__LONG_S== 1 ))||new_error){ if(qbevent){evnt(10414);if(r)goto S_12696;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10414);}while(r); } S_12699:; if ((-(*__LONG_S== 2 ))||new_error){ if(qbevent){evnt(10415);if(r)goto S_12699;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10415);}while(r); } } do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10417);}while(r); }else{ do{ *__LONG_ADDLAYOUT= 0 ; if(!qbevent)break;evnt(10420);}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(10421);}while(r); } do{ *__LONG_ADDEDLAYOUT= 0 ; if(!qbevent)break;evnt(10423);}while(r); dl_continue_1515:; } dl_exit_1515:; S_12710:; if ((*__LONG_PASSEDNEEDED)||new_error){ if(qbevent){evnt(10431);if(r)goto S_12710;} 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(10432);}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(10434);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1519; sub_file_print(tmp_fileno,__STRING_SUBCALL, 0 , 0 , 1 ); if (new_error) goto skip1519; skip1519: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10435);}while(r); do{ qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10436);}while(r); S_12716:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(10437);if(r)goto S_12716;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1520; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip1520; skip1520: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10437);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(10439);}while(r); do{ qbs_set(__STRING_X,qbs_right(__STRING_L, 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10440);}while(r); S_12721:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||new_error){ if(qbevent){evnt(10440);if(r)goto S_12721;} do{ qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10440);}while(r); } S_12724:; if ((-(*__LONG_USECALL== 1 ))||new_error){ if(qbevent){evnt(10441);if(r)goto S_12724;} 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(10441);}while(r); } S_12727:; if (( 0 )||new_error){ if(qbevent){evnt(10442);if(r)goto S_12727;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1522; 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 skip1522; skip1522: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10442);}while(r); } S_12730:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(10443);if(r)goto S_12730;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10443);}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(10443);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(10444);}while(r); } S_12737:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(10449);if(r)goto S_12737;} do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10450);}while(r); S_12739:; if ((-(*__LONG_N>= 2 ))||new_error){ if(qbevent){evnt(10450);if(r)goto S_12739;} do{ qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1524= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10450);}while(r); } do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(10451);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10452);}while(r); S_12744:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10453);if(r)goto S_12744;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10453);}while(r); } }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(10455);}while(r); } dl_continue_1354:; } dl_exit_1354:; } LABEL_NOTSUBCALL:; if(qbevent){evnt(10461);r=0;} S_12752:; if ((-(*__LONG_N>= 1 ))||new_error){ if(qbevent){evnt(10463);if(r)goto S_12752;} S_12753:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||new_error){ if(qbevent){evnt(10464);if(r)goto S_12753;} S_12754:; if ((-(*__LONG_N== 1 ))||new_error){ if(qbevent){evnt(10465);if(r)goto S_12754;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10465);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10465);}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(10466);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; if(!qbevent)break;evnt(10467);}while(r); do{ qbs_set(__STRING_L,qbs_new_txt_len("LET",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10468);}while(r); S_12761:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(10469);if(r)goto S_12761;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10469);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10469);}while(r); } do{ goto LABEL_LETUSED; if(!qbevent)break;evnt(10471);}while(r); } } S_12769:; if ((-(*__LONG_N>= 3 ))||new_error){ if(qbevent){evnt(10476);if(r)goto S_12769;} S_12770:; 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(10477);if(r)goto S_12770;} LABEL_LETUSED:; if(qbevent){evnt(10478);r=0;} do{ SUB_ASSIGN(__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10479);}while(r); S_12772:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10480);if(r)goto S_12772;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10480);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(10481);}while(r); S_12776:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ if(qbevent){evnt(10482);if(r)goto S_12776;} do{ qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10482);}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(10482);}while(r); } do{ goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(10483);}while(r); } } S_12784:; 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(10486);if(r)goto S_12784;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25)); 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{ qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10489);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10489);}while(r); LABEL_FINISHEDLINE:; if(qbevent){evnt(10491);r=0;} do{ *__LONG_THENGOTO= 0 ; if(!qbevent)break;evnt(10492);}while(r); LABEL_FINISHEDLINE2:; if(qbevent){evnt(10493);r=0;} S_12791:; if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||new_error){ if(qbevent){evnt(10495);if(r)goto S_12791;} do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(10495);}while(r); } do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10497);}while(r); S_12795:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ if(qbevent){evnt(10498);if(r)goto S_12795;} 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(10499);}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(10500);}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(10501);}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(10502);}while(r); } S_12801:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(10504);if(r)goto S_12801;} S_12802:; if ((*__LONG_DYNSCOPE)||new_error){ if(qbevent){evnt(10505);if(r)goto S_12802;} do{ *__LONG_DYNSCOPE= 0 ; if(!qbevent)break;evnt(10506);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1529; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); if (new_error) goto skip1529; skip1529: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10507);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1530; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(!qbevent)break;evnt(",23),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12)), 0 , 0 , 1 ); if (new_error) goto skip1530; skip1530: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10509);}while(r); } } LABEL_FINISHEDNONEXEC:; if(qbevent){evnt(10513);r=0;} do{ *__LONG_FIRSTLINE= 0 ; if(!qbevent)break;evnt(10515);}while(r); S_12810:; if ((-(*__LONG_LAYOUTDONE== 0 ))||new_error){ if(qbevent){evnt(10517);if(r)goto S_12810;} do{ *__LONG_LAYOUTOK= 0 ; if(!qbevent)break;evnt(10517);}while(r); } S_12813:; if ((-(*__LONG_CONTINUELINEFROM== 0 ))||new_error){ if(qbevent){evnt(10519);if(r)goto S_12813;} S_12814:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ if(qbevent){evnt(10522);if(r)goto S_12814;} S_12815:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ if(qbevent){evnt(10524);if(r)goto S_12815;} do{ qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10526);}while(r); do{ *__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK; if(!qbevent)break;evnt(10527);}while(r); do{ qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10528);}while(r); } do{ qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10531);}while(r); do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10531);}while(r); S_12822:; if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ if(qbevent){evnt(10533);if(r)goto S_12822;} 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(10533);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10533);}while(r); } do{ *__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; if(!qbevent)break;evnt(10535);}while(r); do{ *__LONG_FIRSTTRYMETHOD= 1 ; if(!qbevent)break;evnt(10537);}while(r); S_12828:; fornext_value1533=*__LONG_FIRSTTRYMETHOD; fornext_finalvalue1533= 2 ; fornext_step1533= 1 ; if (fornext_step1533<0) fornext_step_negative1533=1; else fornext_step_negative1533=0; if (new_error) goto fornext_error1533; goto fornext_entrylabel1533; while(1){ fornext_value1533=fornext_step1533+(*__LONG_TRY); fornext_entrylabel1533: *__LONG_TRY=fornext_value1533; if (fornext_step_negative1533){ if (fornext_value1533fornext_finalvalue1533) break; } fornext_error1533:; if(qbevent){evnt(10538);if(r)goto S_12828;} S_12829:; if ((-(*__LONG_TRY== 1 ))||new_error){ if(qbevent){evnt(10539);if(r)goto S_12829;} S_12830:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ if(qbevent){evnt(10540);if(r)goto S_12830;} S_12831:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(10541);if(r)goto S_12831;} do{ qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10541);}while(r); }else{ do{ qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10541);}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(10543);}while(r); } do{ qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10545);}while(r); } S_12841:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(10547);if(r)goto S_12841;} do{ qbs_set(__STRING_F,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10547);}while(r); } S_12844:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ if(qbevent){evnt(10548);if(r)goto S_12844;} do{ *__INTEGER_QBERRORHAPPENED= -2 ; if(!qbevent)break;evnt(10549);}while(r); do{ sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10550);}while(r); LABEL_QBERRORHAPPENED2:; if(qbevent){evnt(10551);r=0;} S_12847:; if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||new_error){ if(qbevent){evnt(10552);if(r)goto S_12847;} do{ goto fornext_exit_1532; if(!qbevent)break;evnt(10552);}while(r); } } do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(10554);}while(r); fornext_continue_1532:; } fornext_exit_1532:; S_12853:; if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||new_error){ if(qbevent){evnt(10556);if(r)goto S_12853;} do{ *__INTEGER_QBERRORHAPPENED= 0 ; if(!qbevent)break;evnt(10556);}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(10556);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10556);}while(r); } do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; if(!qbevent)break;evnt(10557);}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(10557);}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(10557);}while(r); } S_12862:; while((*__LONG_INCLEVEL)||new_error){ if(qbevent){evnt(10560);if(r)goto S_12862;} do{ *__LONG_FH= 99 +*__LONG_INCLEVEL; if(!qbevent)break;evnt(10561);}while(r); S_12864:; if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ if(qbevent){evnt(10563);if(r)goto S_12864;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1535; sub_file_line_input_string(tmp_fileno,__STRING_X); if (new_error) goto skip1535; skip1535: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10564);}while(r); do{ qbs_set(__STRING_A3,__STRING_X); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10565);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(10566);}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(10567);}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(10569);}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(10570);}while(r); S_12871:; if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ if(qbevent){evnt(10571);if(r)goto S_12871;} 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(10572);}while(r); S_12873:; fornext_value1537= 1 ; fornext_finalvalue1537=*__LONG_INCLEVEL- 1 ; fornext_step1537= 1 ; if (fornext_step1537<0) fornext_step_negative1537=1; else fornext_step_negative1537=0; if (new_error) goto fornext_error1537; goto fornext_entrylabel1537; while(1){ fornext_value1537=fornext_step1537+(*__LONG_X); fornext_entrylabel1537: *__LONG_X=fornext_value1537; if (fornext_step_negative1537){ if (fornext_value1537fornext_finalvalue1537) break; } fornext_error1537:; if(qbevent){evnt(10573);if(r)goto S_12873;} 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(10574);}while(r); S_12875:; if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ if(qbevent){evnt(10575);if(r)goto S_12875;} S_12876:; if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ if(qbevent){evnt(10576);if(r)goto S_12876;} 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(10577);}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(10579);}while(r); } } fornext_continue_1536:; } fornext_exit_1536:; do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10583);}while(r); } do{ qbs_set(__STRING_INCERROR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10585);}while(r); do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; if(!qbevent)break;evnt(10586);}while(r); S_12887:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(10587);if(r)goto S_12887;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10587);}while(r); do{ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(10587);}while(r); } do{ goto LABEL_INCLUDELINE; if(!qbevent)break;evnt(10588);}while(r); } do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(10591);}while(r); do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; if(!qbevent)break;evnt(10592);}while(r); S_12895:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ if(qbevent){evnt(10593);if(r)goto S_12895;} do{ *__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP; if(!qbevent)break;evnt(10595);}while(r); do{ qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10596);}while(r); do{ qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10597);}while(r); } dl_continue_1534:; } dl_exit_1534:; } S_12902:; if (( 0 )||new_error){ if(qbevent){evnt(10607);if(r)goto S_12902;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1538; sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0 , 0 , 1 ); if (new_error) goto skip1538; skip1538: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10608);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1539; 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 skip1539; skip1539: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10609);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1540; 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 skip1540; skip1540: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10610);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1541; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1 , 0 , 1 ); if (new_error) goto skip1541; skip1541: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10611);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1542; sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0 , 0 , 1 ); if (new_error) goto skip1542; skip1542: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10612);}while(r); } S_12909:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(10618);if(r)goto S_12909;} S_12910:; if ((-(*__LONG_CONTINUELINEFROM!= 0 ))||new_error){ if(qbevent){evnt(10619);if(r)goto S_12910;} do{ goto LABEL_IDE4; if(!qbevent)break;evnt(10619);}while(r); } S_12913:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||new_error){ if(qbevent){evnt(10621);if(r)goto S_12913;} S_12914:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(10622);if(r)goto S_12914;} 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(10622);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10622);}while(r); } } S_12920:; if ((-(*__LONG_LAYOUTOK== 0 ))||new_error){ if(qbevent){evnt(10625);if(r)goto S_12920;} do{ qbs_set(__STRING_LAYOUT,__STRING_LAYOUTORIGINAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10626);}while(r); }else{ do{ *__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10631);}while(r); S_12924:; while((*__LONG_I)||new_error){ if(qbevent){evnt(10632);if(r)goto S_12924;} 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(10633);}while(r); do{ *__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10634);}while(r); dl_continue_1545:; } dl_exit_1545:; } do{ *__LONG_X=*__LONG_LHSCONTROLLEVEL; if(!qbevent)break;evnt(10638);}while(r); S_12930:; if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||new_error){ if(qbevent){evnt(10638);if(r)goto S_12930;} do{ *__LONG_X=*__INTEGER_CONTROLLEVEL; if(!qbevent)break;evnt(10638);}while(r); } S_12933:; if ((-(*__LONG_DEFININGTYPE== 2 ))||new_error){ if(qbevent){evnt(10639);if(r)goto S_12933;} do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(10639);}while(r); } S_12936:; if ((-(*__LONG_DEFININGTYPE> 0 ))||new_error){ if(qbevent){evnt(10640);if(r)goto S_12936;} do{ *__LONG_DEFININGTYPE= 2 ; if(!qbevent)break;evnt(10640);}while(r); } S_12939:; if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||new_error){ if(qbevent){evnt(10641);if(r)goto S_12939;} do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(10641);}while(r); } S_12942:; if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||new_error){ if(qbevent){evnt(10642);if(r)goto S_12942;} do{ *__LONG_DECLARINGLIBRARY= 2 ; if(!qbevent)break;evnt(10642);}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(10643);}while(r); S_12946:; if ((*__LONG_LINECONTINUATION)||new_error){ if(qbevent){evnt(10644);if(r)goto S_12946;} do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10644);}while(r); } do{ goto LABEL_IDERET4; if(!qbevent)break;evnt(10646);}while(r); } LABEL_SKIPIDE4:; if(qbevent){evnt(10650);r=0;} dl_continue_323:; }while(1); dl_exit_323:; S_12952:; if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ if(qbevent){evnt(10654);if(r)goto S_12952;} do{ *__LONG_LASTLINERETURN= 1 ; if(!qbevent)break;evnt(10655);}while(r); do{ *__LONG_LASTLINE= 1 ; if(!qbevent)break;evnt(10656);}while(r); do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10657);}while(r); do{ goto LABEL_MAINPASSLASTLINE; if(!qbevent)break;evnt(10658);}while(r); } LABEL_IDE5:; if(qbevent){evnt(10661);r=0;} do{ *__LONG_LINENUMBER= 0 ; if(!qbevent)break;evnt(10662);}while(r); S_12959:; if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ if(qbevent){evnt(10664);if(r)goto S_12959;} do{ SUB_CLOSEMAIN(); if(!qbevent)break;evnt(10664);}while(r); } S_12962:; if ((*__LONG_DEFININGTYPE)||new_error){ if(qbevent){evnt(10666);if(r)goto S_12962;} do{ *__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR; if(!qbevent)break;evnt(10666);}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(10666);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10666);}while(r); } S_12967:; if ((*__INTEGER_CONTROLLEVEL)||new_error){ if(qbevent){evnt(10669);if(r)goto S_12967;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10670);}while(r); S_12969:; sc_1548=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(qbevent){evnt(10671);if(r)goto S_12969;} S_12970:; if (((sc_1548==( 1 )))||new_error){ if(qbevent){evnt(10672);if(r)goto S_12970;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10672);}while(r); sc_ec_34_end:; goto sc_1548_end; } S_12972:; if (((sc_1548==( 2 )))||new_error){ if(qbevent){evnt(10673);if(r)goto S_12972;} do{ qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10673);}while(r); sc_ec_35_end:; goto sc_1548_end; } S_12974:; if (((sc_1548==( 3 ))||(sc_1548==( 4 )))||new_error){ if(qbevent){evnt(10674);if(r)goto S_12974;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10674);}while(r); sc_ec_36_end:; goto sc_1548_end; } S_12976:; if (((sc_1548==( 5 )))||new_error){ if(qbevent){evnt(10675);if(r)goto S_12976;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10675);}while(r); sc_ec_37_end:; goto sc_1548_end; } S_12978:; if (((sc_1548==( 6 )))||new_error){ if(qbevent){evnt(10676);if(r)goto S_12978;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10676);}while(r); sc_ec_38_end:; goto sc_1548_end; } S_12980:; if ((((sc_1548>=( 10 ))&&(sc_1548<=( 19 ))))||new_error){ if(qbevent){evnt(10677);if(r)goto S_12980;} 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(10677);}while(r); sc_ec_39_end:; goto sc_1548_end; } S_12982:; if (((sc_1548==( 32 )))||new_error){ if(qbevent){evnt(10678);if(r)goto S_12982;} 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(10678);}while(r); sc_ec_40_end:; goto sc_1548_end; } sc_1548_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(10680);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10681);}while(r); } S_12988:; if ((-(*__LONG_IDEINDENTSUBS== 0 ))||new_error){ if(qbevent){evnt(10684);if(r)goto S_12988;} S_12989:; if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ if(qbevent){evnt(10685);if(r)goto S_12989;} 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(10685);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10685);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 14 ; if (new_error) goto skip1550; sub_file_print(tmp_fileno,qbs_new_txt_len("exit(99);",9), 0 , 0 , 1 ); if (new_error) goto skip1550; skip1550: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10689);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 14 ; if (new_error) goto skip1551; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1551; skip1551: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10690);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(10693);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10694);}while(r); S_12998:; fornext_value1553= 1 ; fornext_finalvalue1553=*__LONG_IDN; fornext_step1553= 1 ; if (fornext_step1553<0) fornext_step_negative1553=1; else fornext_step_negative1553=0; if (new_error) goto fornext_error1553; goto fornext_entrylabel1553; while(1){ fornext_value1553=fornext_step1553+(*__LONG_I); fornext_entrylabel1553: *__LONG_I=fornext_value1553; if (fornext_step_negative1553){ if (fornext_value1553fornext_finalvalue1553) break; } fornext_error1553:; if(qbevent){evnt(10696);if(r)goto S_12998;} S_12999:; if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2853)))||new_error){ if(qbevent){evnt(10698);if(r)goto S_12999;} 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]))*2861+2385)),256,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10699);}while(r); do{ goto LABEL_CLEARSTATICSCOPE; if(!qbevent)break;evnt(10700);}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]))*2861+2385)),256,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10703);}while(r); S_13004:; if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||new_error){ if(qbevent){evnt(10704);if(r)goto S_13004;} do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10705);}while(r); LABEL_CLEARSTATICSCOPE:; if(qbevent){evnt(10706);r=0;} S_13006:; if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+512)))||new_error){ if(qbevent){evnt(10708);if(r)goto S_13006;} do{ SUB_GETID(__LONG_I); if(!qbevent)break;evnt(10709);}while(r); S_13008:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10710);if(r)goto S_13008;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10710);}while(r); } S_13011:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ if(qbevent){evnt(10711);if(r)goto S_13011;} do{ goto LABEL_CLEARERASERETURNED; if(!qbevent)break;evnt(10711);}while(r); } do{ *__LONG_CLEARERASERETURN= 1 ; if(!qbevent)break;evnt(10712);}while(r); do{ goto LABEL_CLEARERASE; if(!qbevent)break;evnt(10712);}while(r); } S_13017:; if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+536)))||new_error){ if(qbevent){evnt(10715);if(r)goto S_13017;} do{ SUB_GETID(__LONG_I); if(!qbevent)break;evnt(10716);}while(r); S_13019:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10717);if(r)goto S_13019;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10717);}while(r); } do{ qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1554= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10718);}while(r); S_13023:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10719);if(r)goto S_13023;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10719);}while(r); } do{ *__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; if(!qbevent)break;evnt(10721);}while(r); S_13027:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10722);if(r)goto S_13027;} 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(&(pass1555=*__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(10723);}while(r); }else{ do{ qbs_set(__STRING_E,FUNC_STR2(__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10725);}while(r); } do{ qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1556= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10727);}while(r); S_13033:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10728);if(r)goto S_13033;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10728);}while(r); } S_13036:; if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(10729);if(r)goto S_13036;} S_13037:; if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(10730);if(r)goto S_13037;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1557; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1557; skip1557: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10731);}while(r); do{ goto LABEL_CLEARED; if(!qbevent)break;evnt(10732);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1558; sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)), 0 , 0 , 1 ); if (new_error) goto skip1558; skip1558: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10734);}while(r); do{ goto LABEL_CLEARED; if(!qbevent)break;evnt(10735);}while(r); } } S_13045:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(10738);if(r)goto S_13045;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1559; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1559; skip1559: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10739);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1560; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); if (new_error) goto skip1560; skip1560: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10741);}while(r); } do{ goto LABEL_CLEARED; if(!qbevent)break;evnt(10743);}while(r); } } LABEL_CLEARED:; if(qbevent){evnt(10748);r=0;} LABEL_CLEARERASERETURNED:; if(qbevent){evnt(10749);r=0;} fornext_continue_1552:; } fornext_exit_1552:; do{ sub_close( 12 ,1); if(!qbevent)break;evnt(10751);}while(r); S_13055:; if (( 0 )||new_error){ if(qbevent){evnt(10753);if(r)goto S_13055;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1561; sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0 , 0 , 1 ); if (new_error) goto skip1561; skip1561: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10754);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1562; sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0 , 0 , 0 ); if (new_error) goto skip1562; sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1 , 0 , 1 ); if (new_error) goto skip1562; skip1562: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10755);}while(r); } S_13059:; fornext_value1564= 1 ; fornext_finalvalue1564=*__LONG_IDN; fornext_step1564= 1 ; if (fornext_step1564<0) fornext_step_negative1564=1; else fornext_step_negative1564=0; if (new_error) goto fornext_error1564; goto fornext_entrylabel1564; while(1){ fornext_value1564=fornext_step1564+(*__LONG_I); fornext_entrylabel1564: *__LONG_I=fornext_value1564; if (fornext_step_negative1564){ if (fornext_value1564fornext_finalvalue1564) break; } fornext_error1564:; if(qbevent){evnt(10759);if(r)goto S_13059;} S_13060:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(10760);if(r)goto S_13060;} do{ SUB_GETID(__LONG_I); if(!qbevent)break;evnt(10762);}while(r); S_13062:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10763);if(r)goto S_13062;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10763);}while(r); } S_13065:; if (( 0 )||new_error){ if(qbevent){evnt(10765);if(r)goto S_13065;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1565; sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0 , 0 , 0 ); if (new_error) goto skip1565; sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0 , 0 , 1 ); if (new_error) goto skip1565; skip1565: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10765);}while(r); } S_13068:; if ((*(int32*)(((char*)__UDT_ID)+(2855)))||new_error){ if(qbevent){evnt(10767);if(r)goto S_13068;} S_13069:; if (( 0 )||new_error){ if(qbevent){evnt(10769);if(r)goto S_13069;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1566; 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 skip1566; skip1566: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10769);}while(r); } do{ *__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855)); if(!qbevent)break;evnt(10771);}while(r); do{ *__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859)); if(!qbevent)break;evnt(10772);}while(r); S_13074:; if (( 0 )||new_error){ if(qbevent){evnt(10774);if(r)goto S_13074;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1567; sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0 , 0 , 0 ); if (new_error) goto skip1567; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); if (new_error) goto skip1567; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); if (new_error) goto skip1567; skip1567: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10774);}while(r); } S_13077:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(10777);if(r)goto S_13077;} 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(10778);}while(r); S_13079:; if (( 0 )||new_error){ if(qbevent){evnt(10781);if(r)goto S_13079;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1568; sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0 , 0 , 0 ); if (new_error) goto skip1568; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); if (new_error) goto skip1568; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); if (new_error) goto skip1568; skip1568: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10781);}while(r); } do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10784);}while(r); } } } fornext_continue_1563:; } fornext_exit_1563:; do{ *__LONG_UNRESOLVED= 0 ; if(!qbevent)break;evnt(10790);}while(r); S_13088:; fornext_value1570= 1 ; fornext_finalvalue1570=*__LONG_IDN; fornext_step1570= 1 ; if (fornext_step1570<0) fornext_step_negative1570=1; else fornext_step_negative1570=0; if (new_error) goto fornext_error1570; goto fornext_entrylabel1570; while(1){ fornext_value1570=fornext_step1570+(*__LONG_I); fornext_entrylabel1570: *__LONG_I=fornext_value1570; if (fornext_step_negative1570){ if (fornext_value1570fornext_finalvalue1570) break; } fornext_error1570:; if(qbevent){evnt(10791);if(r)goto S_13088;} do{ SUB_GETID(__LONG_I); if(!qbevent)break;evnt(10792);}while(r); S_13090:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10793);if(r)goto S_13090;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10793);}while(r); } S_13093:; if (( 0 )||new_error){ if(qbevent){evnt(10795);if(r)goto S_13093;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1571; sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0 , 0 , 0 ); if (new_error) goto skip1571; sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0 , 0 , 1 ); if (new_error) goto skip1571; skip1571: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10795);}while(r); } S_13096:; if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ if(qbevent){evnt(10797);if(r)goto S_13096;} S_13097:; fornext_value1573= 1 ; fornext_finalvalue1573=*(int16*)(((char*)__UDT_ID)+(809)); fornext_step1573= 1 ; if (fornext_step1573<0) fornext_step_negative1573=1; else fornext_step_negative1573=0; if (new_error) goto fornext_error1573; goto fornext_entrylabel1573; while(1){ fornext_value1573=fornext_step1573+(*__LONG_I2); fornext_entrylabel1573: *__LONG_I2=fornext_value1573; if (fornext_step_negative1573){ if (fornext_value1573fornext_finalvalue1573) break; } fornext_error1573:; if(qbevent){evnt(10798);if(r)goto S_13097;} do{ *__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10799);}while(r); S_13099:; if ((-(*__LONG_T> 0 ))||new_error){ if(qbevent){evnt(10800);if(r)goto S_13099;} S_13100:; if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(10801);if(r)goto S_13100;} S_13101:; if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(10802);if(r)goto S_13101;} S_13102:; if (( 0 )||new_error){ if(qbevent){evnt(10804);if(r)goto S_13102;} 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("checking argument ",18), 0 , 0 , 0 ); if (new_error) goto skip1574; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); if (new_error) goto skip1574; sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0 , 0 , 0 ); if (new_error) goto skip1574; sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1 , 0 , 1 ); if (new_error) goto skip1574; skip1574: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10804);}while(r); } do{ *__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),*__LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10806);}while(r); do{ *__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),*__LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10807);}while(r); S_13107:; if (( 0 )||new_error){ if(qbevent){evnt(10809);if(r)goto S_13107;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1575; sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0 , 0 , 0 ); if (new_error) goto skip1575; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1 , 0 , 1 ); if (new_error) goto skip1575; skip1575: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10809);}while(r); } S_13110:; if (( 0 )||new_error){ if(qbevent){evnt(10810);if(r)goto S_13110;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1576; sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0 , 0 , 0 ); if (new_error) goto skip1576; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1 , 0 , 1 ); if (new_error) goto skip1576; skip1576: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10810);}while(r); } S_13113:; if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||new_error){ if(qbevent){evnt(10812);if(r)goto S_13113;} S_13114:; if (( 0 )||new_error){ if(qbevent){evnt(10814);if(r)goto S_13114;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1577; sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0 , 0 , 1 ); if (new_error) goto skip1577; skip1577: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10814);}while(r); } do{ *__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ; if(!qbevent)break;evnt(10816);}while(r); do{ *__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ; if(!qbevent)break;evnt(10817);}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(10818);}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(10819);}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(10820);}while(r); } } } } fornext_continue_1572:; } fornext_exit_1572:; } fornext_continue_1569:; } fornext_exit_1569:; S_13129:; if ((-(*__LONG_UNRESOLVED> 0 ))||new_error){ if(qbevent){evnt(10830);if(r)goto S_13129;} S_13130:; if ((-(*__LONG_LASTUNRESOLVED== -1 ))||new_error){ if(qbevent){evnt(10831);if(r)goto S_13130;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10833);}while(r); S_13132:; if (( 0 )||new_error){ if(qbevent){evnt(10834);if(r)goto S_13132;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1578; sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0 , 0 , 1 ); if (new_error) goto skip1578; skip1578: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10835);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1579; sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); if (new_error) goto skip1579; sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); if (new_error) goto skip1579; skip1579: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10836);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1580; sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); if (new_error) goto skip1580; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); if (new_error) goto skip1580; skip1580: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10837);}while(r); } }else{ S_13138:; if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||new_error){ if(qbevent){evnt(10841);if(r)goto S_13138;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10842);}while(r); S_13140:; if (( 0 )||new_error){ if(qbevent){evnt(10843);if(r)goto S_13140;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1581; 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 skip1581; skip1581: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10844);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1582; sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); if (new_error) goto skip1582; sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); if (new_error) goto skip1582; skip1582: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10845);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1583; sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); if (new_error) goto skip1583; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); if (new_error) goto skip1583; skip1583: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10846);}while(r); } } } } do{ *__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED; if(!qbevent)break;evnt(10851);}while(r); S_13149:; if (( 0 )||new_error){ if(qbevent){evnt(10877);if(r)goto S_13149;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1584; sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0 , 0 , 1 ); if (new_error) goto skip1584; skip1584: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10877);}while(r); } do{ *__LONG_XI= 1 ; if(!qbevent)break;evnt(10878);}while(r); S_13153:; fornext_value1586= 1 ; fornext_finalvalue1586=*__LONG_COMMONARRAYLISTN; fornext_step1586= 1 ; if (fornext_step1586<0) fornext_step_negative1586=1; else fornext_step_negative1586=0; if (new_error) goto fornext_error1586; goto fornext_entrylabel1586; while(1){ fornext_value1586=fornext_step1586+(*__LONG_X); fornext_entrylabel1586: *__LONG_X=fornext_value1586; if (fornext_step_negative1586){ if (fornext_value1586fornext_finalvalue1586) break; } fornext_error1586:; if(qbevent){evnt(10879);if(r)goto S_13153;} do{ qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10880);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(10880);}while(r); do{ qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10881);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(10881);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10882);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(10882);}while(r); do{ *__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10883);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(10883);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10885);}while(r); S_13163:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10886);if(r)goto S_13163;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10886);}while(r); } S_13166:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(10887);if(r)goto S_13166;} do{ qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10887);}while(r); } S_13169:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10888);if(r)goto S_13169;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10888);}while(r); } S_13172:; if (( 0 )||new_error){ if(qbevent){evnt(10890);if(r)goto S_13172;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1587; 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 skip1587; skip1587: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10890);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10892);}while(r); S_13176:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10893);if(r)goto S_13176;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10893);}while(r); } S_13179:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(10894);if(r)goto S_13179;} S_13180:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(10895);if(r)goto S_13180;} do{ goto LABEL_FOUNDCOMMONARRAY2; if(!qbevent)break;evnt(10895);}while(r); } S_13183:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(10896);if(r)goto S_13183;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(10896);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10896);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(10896);}while(r); } S_13189:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(10897);if(r)goto S_13189;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10897);}while(r); } dl_continue_1588:; } dl_exit_1588:; LABEL_FOUNDCOMMONARRAY2:; if(qbevent){evnt(10899);r=0;} S_13193:; if (( 0 )||new_error){ if(qbevent){evnt(10901);if(r)goto S_13193;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1589; 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 skip1589; skip1589: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10901);}while(r); } S_13196:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ if(qbevent){evnt(10903);if(r)goto S_13196;} S_13197:; if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||new_error){ if(qbevent){evnt(10904);if(r)goto S_13197;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(10904);}while(r); } S_13200:; if (( 0 )||new_error){ if(qbevent){evnt(10905);if(r)goto S_13200;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1590; 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 skip1590; skip1590: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10905);}while(r); } } fornext_continue_1585:; } fornext_exit_1585:; S_13205:; if (( 0 )||new_error){ if(qbevent){evnt(10908);if(r)goto S_13205;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1591; sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0 , 0 , 1 ); if (new_error) goto skip1591; skip1591: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10908);}while(r); } S_13208:; if ((*__INTEGER_RECOMPILE)||new_error){ if(qbevent){evnt(10910);if(r)goto S_13208;} LABEL_DO_RECOMPILE:; if(qbevent){evnt(10911);r=0;} S_13209:; if (( 0 )||new_error){ if(qbevent){evnt(10912);if(r)goto S_13209;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1592; sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0 , 0 , 1 ); if (new_error) goto skip1592; skip1592: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10912);}while(r); } do{ *__INTEGER_RECOMPILE= 0 ; if(!qbevent)break;evnt(10913);}while(r); S_13213:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(10914);if(r)goto S_13213;} do{ *__LONG_IDERECOMPILE= 1 ; if(!qbevent)break;evnt(10914);}while(r); } S_13216:; fornext_value1594= 1 ; fornext_finalvalue1594= 255 ; fornext_step1594= 1 ; if (fornext_step1594<0) fornext_step_negative1594=1; else fornext_step_negative1594=0; if (new_error) goto fornext_error1594; goto fornext_entrylabel1594; while(1){ fornext_value1594=fornext_step1594+(*__LONG_CLOSEALL); fornext_entrylabel1594: *__LONG_CLOSEALL=fornext_value1594; if (fornext_step_negative1594){ if (fornext_value1594fornext_finalvalue1594) break; } fornext_error1594:; if(qbevent){evnt(10915);if(r)goto S_13216;} do{ sub_close(*__LONG_CLOSEALL,1); if(!qbevent)break;evnt(10915);}while(r); fornext_continue_1593:; } fornext_exit_1593:; 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(10916);}while(r); do{ goto LABEL_RECOMPILE; if(!qbevent)break;evnt(10917);}while(r); } S_13222:; if (( 0 )||new_error){ if(qbevent){evnt(10920);if(r)goto S_13222;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1595; sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0 , 0 , 1 ); if (new_error) goto skip1595; skip1595: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10920);}while(r); } S_13225:; fornext_value1597= 1 ; fornext_finalvalue1597=*__LONG_NLABELS; fornext_step1597= 1 ; if (fornext_step1597<0) fornext_step_negative1597=1; else fornext_step_negative1597=0; if (new_error) goto fornext_error1597; goto fornext_entrylabel1597; while(1){ fornext_value1597=fornext_step1597+(*__LONG_R); fornext_entrylabel1597: *__LONG_R=fornext_value1597; if (fornext_step_negative1597){ if (fornext_value1597fornext_finalvalue1597) break; } fornext_error1597:; if(qbevent){evnt(10921);if(r)goto S_13225;} S_13226:; 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(10923);if(r)goto S_13226;} 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(10924);}while(r); do{ *__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10925);}while(r); do{ *__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1598= 2 ),__LONG_IGNORE,__LONG_R2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10926);}while(r); LABEL_ADDLABCHK7:; if(qbevent){evnt(10927);r=0;} S_13230:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(10928);if(r)goto S_13230;} S_13231:; 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(10929);if(r)goto S_13231;} 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(10930);}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(10930);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10930);}while(r); } S_13236:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(10932);if(r)goto S_13236;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); if(!qbevent)break;evnt(10932);}while(r); do{ goto LABEL_ADDLABCHK7; if(!qbevent)break;evnt(10932);}while(r); } } } S_13242:; 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(10937);if(r)goto S_13242;} S_13243:; 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(10939);if(r)goto S_13243;} S_13244:; 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(10940);if(r)goto S_13244;} 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(10941);}while(r); S_13246:; if (( 0 )||new_error){ if(qbevent){evnt(10942);if(r)goto S_13246;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1599; sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0 , 0 , 0 ); if (new_error) goto skip1599; 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 skip1599; skip1599: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10942);}while(r); } do{ goto LABEL_DO_RECOMPILE; if(!qbevent)break;evnt(10943);}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(10947);}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(10947);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10947);}while(r); } S_13256:; 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(10951);if(r)goto S_13256;} do{ *__LONG_X= 0 ; if(!qbevent)break;evnt(10954);}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(10955);}while(r); do{ *__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10956);}while(r); do{ *__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1600= 2 ),__LONG_IGNORE,__LONG_R2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10957);}while(r); LABEL_ADDLABCHK4:; if(qbevent){evnt(10958);r=0;} S_13261:; if ((*__LONG_V)||new_error){ if(qbevent){evnt(10959);if(r)goto S_13261;} do{ *__LONG_X=*__LONG_X+ 1 ; if(!qbevent)break;evnt(10960);}while(r); S_13263:; if ((-(*__LONG_V== 2 ))||new_error){ if(qbevent){evnt(10961);if(r)goto S_13263;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); if(!qbevent)break;evnt(10961);}while(r); do{ goto LABEL_ADDLABCHK4; if(!qbevent)break;evnt(10961);}while(r); } } S_13268:; if ((-(*__LONG_X!= 1 ))||new_error){ if(qbevent){evnt(10963);if(r)goto S_13268;} 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(10963);}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(10963);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10963);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1601; sub_file_print(tmp_fileno,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(&(pass1602=*(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)), 0 , 0 , 1 ); if (new_error) goto skip1601; skip1601: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10966);}while(r); } fornext_continue_1596:; } fornext_exit_1596:; S_13276:; if (( 0 )||new_error){ if(qbevent){evnt(10971);if(r)goto S_13276;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1603; sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0 , 0 , 1 ); if (new_error) goto skip1603; skip1603: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10971);}while(r); } do{ sub_close( 12 ,1); if(!qbevent)break;evnt(10980);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10983);}while(r); do{ *__INTEGER_DEFDATAHANDLE= 18 ; if(!qbevent)break;evnt(10984);}while(r); do{ sub_close( 13 ,1); if(!qbevent)break;evnt(10985);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10985);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(10986);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10986);}while(r); S_13286:; if ((*__LONG_CONSOLE)||new_error){ if(qbevent){evnt(10988);if(r)goto S_13286;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1604; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1604; skip1604: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10989);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1605; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=0;",16), 0 , 0 , 1 ); if (new_error) goto skip1605; skip1605: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10991);}while(r); } S_13291:; if ((*__LONG_SCREENHIDE)||new_error){ if(qbevent){evnt(10994);if(r)goto S_13291;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1606; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=1;",28), 0 , 0 , 1 ); if (new_error) goto skip1606; skip1606: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10995);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1607; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=0;",28), 0 , 0 , 1 ); if (new_error) goto skip1607; skip1607: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(10997);}while(r); } S_13296:; if ((*__LONG_ASSERTS)||new_error){ if(qbevent){evnt(11000);if(r)goto S_13296;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1608; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 asserts=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1608; skip1608: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11001);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1609; sub_file_print(tmp_fileno,qbs_new_txt_len("int32 asserts=0;",16), 0 , 0 , 1 ); if (new_error) goto skip1609; skip1609: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11003);}while(r); } do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(11006);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)), 5 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11007);}while(r); S_13303:; if ((*__LONG_RESIZE)||new_error){ if(qbevent){evnt(11008);if(r)goto S_13303;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1610; sub_file_print(tmp_fileno,qbs_new_txt_len("ScreenResize=1;",15), 0 , 0 , 1 ); if (new_error) goto skip1610; skip1610: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11009);}while(r); } S_13306:; if ((*__LONG_RESIZE_SCALE)||new_error){ if(qbevent){evnt(11011);if(r)goto S_13306;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1611; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),FUNC_STR2(__LONG_RESIZE_SCALE)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1611; skip1611: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11012);}while(r); } do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(11014);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1612; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),FUNC_STR2(__LONG_DATAOFFSET)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1612; skip1612: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11017);}while(r); S_13311:; if ((-(*__LONG_DATAOFFSET== 0 ))||new_error){ if(qbevent){evnt(11018);if(r)goto S_13311;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1613; sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32), 0 , 0 , 1 ); if (new_error) goto skip1613; skip1613: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11020);}while(r); }else{ S_13314:; if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ if(qbevent){evnt(11024);if(r)goto S_13314;} S_13315:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(11025);if(r)goto S_13315;} S_13316:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ if(qbevent){evnt(11026);if(r)goto S_13316;} do{ qbs_set(__STRING_X,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11027);}while(r); do{ sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1614),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11027);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1615; 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 skip1615; skip1615: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11028);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1616; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *binary_____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); if (new_error) goto skip1616; skip1616: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11029);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1617; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1617; skip1617: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11030);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1618; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&binary_____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); if (new_error) goto skip1618; skip1618: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11031);}while(r); }else{ do{ qbs_set(__STRING_X,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11033);}while(r); do{ sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1619),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11033);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1620; 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 skip1620; skip1620: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11034);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1621; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_____temp",29),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); if (new_error) goto skip1621; skip1621: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11035);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1622; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1622; skip1622: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11036);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1623; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_____temp",37),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); if (new_error) goto skip1623; skip1623: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11037);}while(r); } } S_13332:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(11040);if(r)goto S_13332;} do{ qbs_set(__STRING_X,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11041);}while(r); do{ sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1624),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11041);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1625; 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 skip1625; skip1625: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11042);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1626; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); if (new_error) goto skip1626; skip1626: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11043);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1627; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1627; skip1627: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11044);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1628; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); if (new_error) goto skip1628; skip1628: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11045);}while(r); } }else{ do{ sub_close( 16 ,1); if(!qbevent)break;evnt(11049);}while(r); do{ *__LONG_FF=func_freefile(); if(!qbevent)break;evnt(11050);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 2 ,NULL,NULL,*__LONG_FF,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11051);}while(r); do{ qbs_set(__STRING_X,func_space(func_lof(*__LONG_FF))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11052);}while(r); do{ sub_get2(*__LONG_FF,NULL,__STRING_X,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11053);}while(r); do{ sub_close(*__LONG_FF,1); if(!qbevent)break;evnt(11054);}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(11055);}while(r); S_13348:; fornext_value1630= 1 ; fornext_finalvalue1630=__STRING_X->len; fornext_step1630= 1 ; if (fornext_step1630<0) fornext_step_negative1630=1; else fornext_step_negative1630=0; if (new_error) goto fornext_error1630; goto fornext_entrylabel1630; while(1){ fornext_value1630=fornext_step1630+(*__LONG_I); fornext_entrylabel1630: *__LONG_I=fornext_value1630; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative1630){ if (fornext_value1630fornext_finalvalue1630) break; } fornext_error1630:; if(qbevent){evnt(11056);if(r)goto S_13348;} 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(11057);}while(r); fornext_continue_1629:; } fornext_exit_1629:; 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(11059);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1632; sub_file_print(tmp_fileno,__STRING_X2, 0 , 0 , 1 ); if (new_error) goto skip1632; skip1632: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11060);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1633; sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=&inline_data[0];",28), 0 , 0 , 1 ); if (new_error) goto skip1633; skip1633: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11061);}while(r); do{ qbs_set(__STRING_X,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11062);}while(r); do{ qbs_set(__STRING_X2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11062);}while(r); } } S_13358:; if (( 0 )||new_error){ if(qbevent){evnt(11066);if(r)goto S_13358;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1634; 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 skip1634; skip1634: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11066);}while(r); } do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; if(!qbevent)break;evnt(11067);}while(r); do{ *__LONG_NCOMMONTMP= 0 ; if(!qbevent)break;evnt(11068);}while(r); do{ *__LONG_XI= 1 ; if(!qbevent)break;evnt(11069);}while(r); S_13364:; fornext_value1636= 1 ; fornext_finalvalue1636=*__LONG_COMMONARRAYLISTN; fornext_step1636= 1 ; if (fornext_step1636<0) fornext_step_negative1636=1; else fornext_step_negative1636=0; if (new_error) goto fornext_error1636; goto fornext_entrylabel1636; while(1){ fornext_value1636=fornext_step1636+(*__LONG_X); fornext_entrylabel1636: *__LONG_X=fornext_value1636; if (fornext_step_negative1636){ if (fornext_value1636fornext_finalvalue1636) break; } fornext_error1636:; if(qbevent){evnt(11070);if(r)goto S_13364;} do{ qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11071);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(11071);}while(r); do{ qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11072);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(11072);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11073);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(11073);}while(r); do{ *__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11074);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; if(!qbevent)break;evnt(11074);}while(r); do{ qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11077);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11078);}while(r); S_13375:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11079);if(r)goto S_13375;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11079);}while(r); } S_13378:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(11080);if(r)goto S_13378;} do{ qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11080);}while(r); } S_13381:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11081);if(r)goto S_13381;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11081);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11082);}while(r); S_13385:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11083);if(r)goto S_13385;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11083);}while(r); } S_13388:; while((*__LONG_TRY)||new_error){ if(qbevent){evnt(11084);if(r)goto S_13388;} S_13389:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(11085);if(r)goto S_13389;} do{ goto LABEL_FOUNDCOMMONARRAY; if(!qbevent)break;evnt(11085);}while(r); } S_13392:; if ((-(*__LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(11086);if(r)goto S_13392;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(11086);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11086);}while(r); }else{ do{ *__LONG_TRY= 0 ; if(!qbevent)break;evnt(11086);}while(r); } S_13398:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11087);if(r)goto S_13398;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11087);}while(r); } dl_continue_1637:; } dl_exit_1637:; do{ qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11089);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11089);}while(r); LABEL_FOUNDCOMMONARRAY:; if(qbevent){evnt(11090);r=0;} S_13404:; if (( 0 )||new_error){ if(qbevent){evnt(11091);if(r)goto S_13404;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1638; 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 skip1638; skip1638: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11091);}while(r); } do{ *__LONG_I=*__LONG_CURRENTID; if(!qbevent)break;evnt(11093);}while(r); do{ *__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(11094);}while(r); do{ *__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); if(!qbevent)break;evnt(11095);}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(11096);}while(r); S_13411:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(11097);if(r)goto S_13411;} do{ qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11097);}while(r); } S_13414:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11098);if(r)goto S_13414;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11098);}while(r); } do{ qbs_set(__STRING_N,__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11099);}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(11100);}while(r); do{ *__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(11101);}while(r); do{ *__LONG_COMMAND= 3 ; if(!qbevent)break;evnt(11104);}while(r); S_13421:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(11105);if(r)goto S_13421;} S_13422:; if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(11106);if(r)goto S_13422;} do{ *__LONG_COMMAND= 4 ; if(!qbevent)break;evnt(11107);}while(r); } } S_13426:; if ((-(*__LONG_ARRAYELEMENTS== -1 ))||new_error){ if(qbevent){evnt(11119);if(r)goto S_13426;} do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11125);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1639; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); if (new_error) goto skip1639; skip1639: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11126);}while(r); do{ qbs_set(__STRING_X,FUNC_STR2(&(pass1640=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11128);}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(11129);}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(11130);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1641; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)), 0 , 0 , 1 ); if (new_error) goto skip1641; skip1641: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11131);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1642; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); if (new_error) goto skip1642; skip1642: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11132);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1643; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1643; skip1643: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11134);}while(r); S_13435:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11136);if(r)goto S_13435;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1644; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); if (new_error) goto skip1644; skip1644: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11136);}while(r); } S_13438:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11137);if(r)goto S_13438;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1645; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); if (new_error) goto skip1645; skip1645: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11137);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1646; 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_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)), 0 , 0 , 1 ); if (new_error) goto skip1646; skip1646: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11138);}while(r); S_13442:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11140);if(r)goto S_13442;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1647; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1647; skip1647: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11142);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1648; 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_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)), 0 , 0 , 1 ); if (new_error) goto skip1648; skip1648: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11143);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1649; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=int64val>>3;",18), 0 , 0 , 1 ); if (new_error) goto skip1649; skip1649: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11144);}while(r); } S_13447:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11147);if(r)goto S_13447;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1650; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); if (new_error) goto skip1650; skip1650: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11147);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1651; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1651; skip1651: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11150);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1652; 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_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)), 0 , 0 , 1 ); if (new_error) goto skip1652; skip1652: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11151);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1653; sub_file_print(tmp_fileno,qbs_new_txt_len("while(int32val--){",18), 0 , 0 , 1 ); if (new_error) goto skip1653; skip1653: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11154);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1654; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1654; skip1654: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11155);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1655; 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_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)), 0 , 0 , 1 ); if (new_error) goto skip1655; skip1655: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11156);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1656; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1656; skip1656: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11157);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1657; 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_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)), 0 , 0 , 1 ); if (new_error) goto skip1657; skip1657: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11158);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1658; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); if (new_error) goto skip1658; skip1658: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11159);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1659; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1659; skip1659: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11160);}while(r); S_13459:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11162);if(r)goto S_13459;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1660; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1660; skip1660: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11164);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1661; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1661; skip1661: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11165);}while(r); } S_13463:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11168);if(r)goto S_13463;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1662; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); if (new_error) goto skip1662; skip1662: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11169);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1663; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1666; skip1666: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11173);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1667; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1667; skip1667: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11174);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1668; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); if (new_error) goto skip1668; skip1668: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11175);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1669; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1669; skip1669: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11176);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1670; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1670; skip1670: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11180);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1671; sub_file_print(tmp_fileno,qbs_new_txt_len("}",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(11181);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1672; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1672; skip1672: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11183);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(11184);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11189);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1673; sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); if (new_error) goto skip1673; skip1673: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11190);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1674; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1674; skip1674: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11191);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1675; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1675; skip1675: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11193);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(11194);}while(r); }else{ do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11204);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1676; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); if (new_error) goto skip1676; skip1676: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11206);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1677; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1677; skip1677: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11207);}while(r); S_13486:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11209);if(r)goto S_13486;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1678; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); if (new_error) goto skip1678; skip1678: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11209);}while(r); } S_13489:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11210);if(r)goto S_13489;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1679; sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); if (new_error) goto skip1679; skip1679: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11210);}while(r); } S_13492:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11212);if(r)goto S_13492;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1680; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1680; skip1680: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11214);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1681; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1681; skip1681: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11219);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11222);}while(r); S_13497:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11223);if(r)goto S_13497;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1682; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); if (new_error) goto skip1682; skip1682: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11223);}while(r); } S_13500:; fornext_value1684= 1 ; fornext_finalvalue1684=*__LONG_ARRAYELEMENTS; fornext_step1684= 1 ; if (fornext_step1684<0) fornext_step_negative1684=1; else fornext_step_negative1684=0; if (new_error) goto fornext_error1684; goto fornext_entrylabel1684; while(1){ fornext_value1684=fornext_step1684+(*__LONG_X2); fornext_entrylabel1684: *__LONG_X2=fornext_value1684; if (fornext_step_negative1684){ if (fornext_value1684fornext_finalvalue1684) break; } fornext_error1684:; if(qbevent){evnt(11224);if(r)goto S_13500;} S_13501:; if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||new_error){ if(qbevent){evnt(11227);if(r)goto S_13501;} do{ *__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ; if(!qbevent)break;evnt(11228);}while(r); S_13503:; if (( 0 )||new_error){ if(qbevent){evnt(11230);if(r)goto S_13503;} 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("Calling DIM2(...)...",20), 0 , 0 , 1 ); if (new_error) goto skip1685; skip1685: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11230);}while(r); } S_13506:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11231);if(r)goto S_13506;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11231);}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),&(pass1686= 0 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11232);}while(r); S_13510:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11233);if(r)goto S_13510;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11233);}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),&(pass1687= 0 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11234);}while(r); S_13514:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11235);if(r)goto S_13514;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11235);}while(r); } S_13517:; if (( 0 )||new_error){ if(qbevent){evnt(11236);if(r)goto S_13517;} 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("Finished calling DIM2(...)!",27), 0 , 0 , 1 ); if (new_error) goto skip1688; skip1688: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11236);}while(r); } S_13520:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11237);if(r)goto S_13520;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11237);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1689; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1689; skip1689: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11242);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1690; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val;",10)), 0 , 0 , 1 ); if (new_error) goto skip1690; skip1690: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11243);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1691; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1691; skip1691: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11244);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1692; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val2;",11)), 0 , 0 , 1 ); if (new_error) goto skip1692; skip1692: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11245);}while(r); S_13528:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11246);if(r)goto S_13528;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1693; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); if (new_error) goto skip1693; skip1693: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11246);}while(r); } S_13531:; if ((-(*__LONG_X2> 1 ))||new_error){ if(qbevent){evnt(11247);if(r)goto S_13531;} 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(11247);}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(11248);}while(r); fornext_continue_1683:; } fornext_exit_1683:; S_13536:; if (( 0 )||new_error){ if(qbevent){evnt(11251);if(r)goto S_13536;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1694; 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 skip1694; skip1694: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11251);}while(r); } S_13539:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11252);if(r)goto S_13539;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11252);}while(r); } do{ *__INTEGER_REDIMOPTION= 1 ; if(!qbevent)break;evnt(11254);}while(r); do{ *__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1695= 0 ),__STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11255);}while(r); S_13544:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11256);if(r)goto S_13544;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11256);}while(r); } do{ *__INTEGER_REDIMOPTION= 0 ; if(!qbevent)break;evnt(11257);}while(r); S_13548:; if (( 0 )||new_error){ if(qbevent){evnt(11258);if(r)goto S_13548;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1696; 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 skip1696; skip1696: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11258);}while(r); } S_13551:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11259);if(r)goto S_13551;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11259);}while(r); } S_13554:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11261);if(r)goto S_13554;} 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(11263);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1697= -4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11264);}while(r); S_13557:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11265);if(r)goto S_13557;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11265);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1698; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); if (new_error) goto skip1698; skip1698: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11266);}while(r); } S_13562:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11269);if(r)goto S_13562;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1699; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); if (new_error) goto skip1699; skip1699: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11270);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1700; sub_file_print(tmp_fileno,qbs_new_txt_len("while(bytei>3,1));",37), 0 , 0 , 1 ); if (new_error) goto skip1703; skip1703: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11274);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1704; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1704; skip1704: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11275);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1705; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); if (new_error) goto skip1705; skip1705: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11276);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1706; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1706; skip1706: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11277);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1707; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1707; skip1707: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11281);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1708; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1708; skip1708: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11282);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1709; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1709; skip1709: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11283);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(11284);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11288);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1710; sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); if (new_error) goto skip1710; skip1710: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11290);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1711; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1711; skip1711: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11291);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1712; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); if (new_error) goto skip1712; skip1712: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11293);}while(r); S_13580:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11295);if(r)goto S_13580;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1713; sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=3;",11), 0 , 0 , 1 ); if (new_error) goto skip1713; skip1713: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11295);}while(r); } S_13583:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11296);if(r)goto S_13583;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1714; sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=4;",11), 0 , 0 , 1 ); if (new_error) goto skip1714; skip1714: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11296);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1715; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1715; skip1715: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11297);}while(r); S_13587:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11299);if(r)goto S_13587;} do{ *__LONG_BITS=*__LONG_T& 511 ; if(!qbevent)break;evnt(11301);}while(r); S_13589:; if ((*__LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(11302);if(r)goto S_13589;} 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(11302);}while(r); } S_13592:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(11303);if(r)goto S_13592;} do{ *__LONG_BITS=*__LONG_TSIZE* 8 ; if(!qbevent)break;evnt(11303);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1716; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1716; skip1716: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11304);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1717; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1717; skip1717: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11305);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1718; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),FUNC_STR2(__LONG_ARRAYELEMENTS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1718; skip1718: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11308);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1719; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1719; skip1719: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11309);}while(r); S_13600:; if ((-(*__LONG_COMMAND== 3 ))||new_error){ if(qbevent){evnt(11311);if(r)goto S_13600;} S_13601:; fornext_value1721= 1 ; fornext_finalvalue1721=*__LONG_ARRAYELEMENTS; fornext_step1721= 1 ; if (fornext_step1721<0) fornext_step_negative1721=1; else fornext_step_negative1721=0; if (new_error) goto fornext_error1721; goto fornext_entrylabel1721; while(1){ fornext_value1721=fornext_step1721+(*__LONG_X2); fornext_entrylabel1721: *__LONG_X2=fornext_value1721; if (fornext_step_negative1721){ if (fornext_value1721fornext_finalvalue1721) break; } fornext_error1721:; if(qbevent){evnt(11313);if(r)goto S_13601;} 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(11315);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1722= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11316);}while(r); S_13604:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11317);if(r)goto S_13604;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11317);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1723; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1723; skip1723: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11318);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1724; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1724; skip1724: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11319);}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(11320);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1725= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11321);}while(r); S_13611:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11322);if(r)goto S_13611;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11322);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1726; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1726; skip1726: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11323);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1727; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1727; skip1727: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11324);}while(r); fornext_continue_1720:; } fornext_exit_1720:; 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))),&(pass1728= -4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11328);}while(r); S_13618:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11329);if(r)goto S_13618;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11329);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1729; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); if (new_error) goto skip1729; skip1729: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11330);}while(r); } S_13623:; if ((-(*__LONG_COMMAND== 4 ))||new_error){ if(qbevent){evnt(11334);if(r)goto S_13623;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1730; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); if (new_error) goto skip1730; skip1730: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11337);}while(r); S_13625:; fornext_value1732= 1 ; fornext_finalvalue1732=*__LONG_ARRAYELEMENTS; fornext_step1732= 1 ; if (fornext_step1732<0) fornext_step_negative1732=1; else fornext_step_negative1732=0; if (new_error) goto fornext_error1732; goto fornext_entrylabel1732; while(1){ fornext_value1732=fornext_step1732+(*__LONG_X2); fornext_entrylabel1732: *__LONG_X2=fornext_value1732; if (fornext_step_negative1732){ if (fornext_value1732fornext_finalvalue1732) break; } fornext_error1732:; if(qbevent){evnt(11338);if(r)goto S_13625;} 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(11339);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1733= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11340);}while(r); S_13628:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11341);if(r)goto S_13628;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11341);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1734; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1734; skip1734: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11342);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1735; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1735; skip1735: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11343);}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(11344);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1736= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11345);}while(r); S_13635:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(11346);if(r)goto S_13635;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11346);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1737; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1737; skip1737: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11347);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1738; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1738; skip1738: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11348);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1739; sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); if (new_error) goto skip1739; skip1739: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11349);}while(r); fornext_continue_1731:; } fornext_exit_1731:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1740; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); if (new_error) goto skip1740; skip1740: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11352);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1741; sub_file_print(tmp_fileno,qbs_new_txt_len("while(byteilen; int64val<<=3;",33), 0 , 0 , 1 ); if (new_error) goto skip1743; skip1743: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11355);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1744; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1744; skip1744: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11356);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1745; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip1745; skip1745: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11357);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1746; sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); if (new_error) goto skip1746; skip1746: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11358);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1747; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1747; skip1747: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11359);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1748; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1748; skip1748: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11363);}while(r); do{ sub_close( 12 ,1); if(!qbevent)break;evnt(11365);}while(r); } fornext_continue_1635:; } fornext_exit_1635:; do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(11463);}while(r); S_13656:; if (( 0 )||new_error){ if(qbevent){evnt(11464);if(r)goto S_13656;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1749; 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 skip1749; skip1749: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11464);}while(r); } S_13659:; fornext_value1751= 1 ; fornext_finalvalue1751= 255 ; fornext_step1751= 1 ; if (fornext_step1751<0) fornext_step_negative1751=1; else fornext_step_negative1751=0; if (new_error) goto fornext_error1751; goto fornext_entrylabel1751; while(1){ fornext_value1751=fornext_step1751+(*__LONG_CLOSEALL); fornext_entrylabel1751: *__LONG_CLOSEALL=fornext_value1751; if (fornext_step_negative1751){ if (fornext_value1751fornext_finalvalue1751) break; } fornext_error1751:; if(qbevent){evnt(11467);if(r)goto S_13659;} do{ sub_close(*__LONG_CLOSEALL,1); if(!qbevent)break;evnt(11467);}while(r); fornext_continue_1750:; } fornext_exit_1750:; 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(11468);}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(11469);}while(r); do{ sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11470);}while(r); do{ sub_close( 1 ,1); if(!qbevent)break;evnt(11470);}while(r); S_13666:; if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ if(qbevent){evnt(11472);if(r)goto S_13666;} S_13667:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(11473);if(r)goto S_13667;} 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 skip1752; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1752: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11474);}while(r); }else{ do{ qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); if(!qbevent)break;evnt(11476);}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 skip1753; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1753: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11477);}while(r); } } S_13674:; if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ if(qbevent){evnt(11485);if(r)goto S_13674;} do{ *__LONG_TOTALUNUSEDVARIABLES= 0 ; if(!qbevent)break;evnt(11486);}while(r); S_13676:; fornext_value1755= 1 ; fornext_finalvalue1755=*__LONG_TOTALVARIABLESCREATED; fornext_step1755= 1 ; if (fornext_step1755<0) fornext_step_negative1755=1; else fornext_step_negative1755=0; if (new_error) goto fornext_error1755; goto fornext_entrylabel1755; while(1){ fornext_value1755=fornext_step1755+(*__LONG_I); fornext_entrylabel1755: *__LONG_I=fornext_value1755; if (fornext_step_negative1755){ if (fornext_value1755fornext_finalvalue1755) break; } fornext_error1755:; if(qbevent){evnt(11487);if(r)goto S_13676;} S_13677:; if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37))== 0 ))||new_error){ if(qbevent){evnt(11488);if(r)goto S_13677;} do{ *__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ; if(!qbevent)break;evnt(11489);}while(r); } fornext_continue_1754:; } fornext_exit_1754:; S_13681:; if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||new_error){ if(qbevent){evnt(11493);if(r)goto S_13681;} do{ *__LONG_MAXVARNAMELEN= 0 ; if(!qbevent)break;evnt(11494);}while(r); S_13683:; fornext_value1757= 1 ; fornext_finalvalue1757=*__LONG_TOTALVARIABLESCREATED; fornext_step1757= 1 ; if (fornext_step1757<0) fornext_step_negative1757=1; else fornext_step_negative1757=0; if (new_error) goto fornext_error1757; goto fornext_entrylabel1757; while(1){ fornext_value1757=fornext_step1757+(*__LONG_I); fornext_entrylabel1757: *__LONG_I=fornext_value1757; if (fornext_step_negative1757){ if (fornext_value1757fornext_finalvalue1757) break; } fornext_error1757:; if(qbevent){evnt(11495);if(r)goto S_13683;} S_13684:; if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37))== 0 ))||new_error){ if(qbevent){evnt(11496);if(r)goto S_13684;} S_13685:; if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+29)))->len>*__LONG_MAXVARNAMELEN)))||new_error){ if(qbevent){evnt(11497);if(r)goto S_13685;} do{ *__LONG_MAXVARNAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+29)))->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11497);}while(r); } } fornext_continue_1756:; } fornext_exit_1756:; do{ qbs_set(__STRING_HEADER,qbs_new_txt_len("unused variable",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11501);}while(r); S_13691:; fornext_value1759= 1 ; fornext_finalvalue1759=*__LONG_TOTALVARIABLESCREATED; fornext_step1759= 1 ; if (fornext_step1759<0) fornext_step_negative1759=1; else fornext_step_negative1759=0; if (new_error) goto fornext_error1759; goto fornext_entrylabel1759; while(1){ fornext_value1759=fornext_step1759+(*__LONG_I); fornext_entrylabel1759: *__LONG_I=fornext_value1759; if (fornext_step_negative1759){ if (fornext_value1759fornext_finalvalue1759) break; } fornext_error1759:; if(qbevent){evnt(11502);if(r)goto S_13691;} S_13692:; if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37))== 0 ))||new_error){ if(qbevent){evnt(11503);if(r)goto S_13692;} do{ SUB_ADDWARNING((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+1) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+5) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+9) ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+13))),__STRING_HEADER,qbs_add(qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+29))),func_space((*__LONG_MAXVARNAMELEN+ 1 )-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+29)))->len)),qbs_new_txt_len(" (",2)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+21)))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11504);}while(r); } fornext_continue_1758:; } fornext_exit_1758:; } } S_13698:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(11510);if(r)goto S_13698;} do{ goto LABEL_IDERET5; if(!qbevent)break;evnt(11510);}while(r); } LABEL_IDE6:; if(qbevent){evnt(11511);r=0;} S_13701:; if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_NO_C_COMPILE_MODE== 0 )))||new_error){ if(qbevent){evnt(11513);if(r)goto S_13701;} S_13702:; if ((~(*__BYTE_QUIETMODE))||new_error){ if(qbevent){evnt(11514);if(r)goto S_13702;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip1760: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11515);}while(r); S_13704:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(11516);if(r)goto S_13704;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37)); if (new_error) goto skip1761; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1761: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11517);}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 skip1762; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1762: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11519);}while(r); } } S_13710:; if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len))||new_error){ if(qbevent){evnt(11522);if(r)goto S_13710;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_OUTPUTFILE_CMD)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11524);}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(11525);}while(r); do{ qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11526);}while(r); S_13714:; if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__OUT->len))||new_error){ if(qbevent){evnt(11527);if(r)goto S_13714;} S_13715:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||new_error){ if(qbevent){evnt(11528);if(r)goto S_13715;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip1766: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11529);}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 skip1767; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1767: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11530);}while(r); S_13718:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(11531);if(r)goto S_13718;} do{ if(qbevent){evnt(11531);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(11531);}while(r); } do{ if(qbevent){evnt(11532);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(11532);}while(r); } do{ qbs_set(__STRING_CURRENTDIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11534);}while(r); do{ sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11535);}while(r); do{ qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11536);}while(r); do{ sub_chdir(__STRING_CURRENTDIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11537);}while(r); S_13727:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||new_error){ if(qbevent){evnt(11538);if(r)goto S_13727;} 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(11538);}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(11539);}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE= -1 ; if(!qbevent)break;evnt(11540);}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(11543);}while(r); S_13735:; 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(11544);if(r)goto S_13735;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11544);}while(r); } S_13738:; 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(11545);if(r)goto S_13738;} do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(11546);}while(r); do{ error_goto_line=9; if(!qbevent)break;evnt(11547);}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(11548);}while(r); do{ error_goto_line=10; if(!qbevent)break;evnt(11549);}while(r); S_13743:; if ((-(*__LONG_E== 1 ))||new_error){ if(qbevent){evnt(11550);if(r)goto S_13743;} 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(11551);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11551);}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(11554);}while(r); } S_13750:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(11558);if(r)goto S_13750;} S_13751:; if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ if(qbevent){evnt(11560);if(r)goto S_13751;} S_13752:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))))||new_error){ if(qbevent){evnt(11561);if(r)goto S_13752;} do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(11562);}while(r); do{ error_goto_line=11; if(!qbevent)break;evnt(11563);}while(r); do{ sub_kill(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11564);}while(r); S_13756:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_E== 1 ))|(-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== -1 ))))||new_error){ if(qbevent){evnt(11565);if(r)goto S_13756;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Error creating resource file",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11565);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11565);}while(r); } do{ error_goto_line=12; if(!qbevent)break;evnt(11566);}while(r); } } S_13763:; if ((*__LONG_EXEICONSET)||new_error){ if(qbevent){evnt(11570);if(r)goto S_13763;} do{ *__LONG_LINENUMBER=*__LONG_EXEICONSET; if(!qbevent)break;evnt(11571);}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(11572);}while(r); } S_13767:; if ((*__BYTE_VERSIONINFOSET)||new_error){ if(qbevent){evnt(11575);if(r)goto S_13767;} do{ *__LONG_ICONFILEHANDLE=func_freefile(); if(!qbevent)break;evnt(11576);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 5 ,NULL,NULL,*__LONG_ICONFILEHANDLE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11577);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1768; sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); if (new_error) goto skip1768; skip1768: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11578);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1769; sub_file_print(tmp_fileno,qbs_new_txt_len("1 VERSIONINFO",13), 0 , 0 , 1 ); if (new_error) goto skip1769; skip1769: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11579);}while(r); S_13772:; if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||new_error){ if(qbevent){evnt(11580);if(r)goto S_13772;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1771; sub_file_print(tmp_fileno,qbs_new_txt_len("FILEVERSION ",16), 0 , 0 , 0 ); if (new_error) goto skip1771; sub_file_print(tmp_fileno,__STRING_VIFILEVERSIONNUM, 0 , 0 , 1 ); if (new_error) goto skip1771; skip1771: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11580);}while(r); } S_13775:; if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||new_error){ if(qbevent){evnt(11581);if(r)goto S_13775;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1773; sub_file_print(tmp_fileno,qbs_new_txt_len("PRODUCTVERSION ",16), 0 , 0 , 0 ); if (new_error) goto skip1773; sub_file_print(tmp_fileno,__STRING_VIPRODUCTVERSIONNUM, 0 , 0 , 1 ); if (new_error) goto skip1773; skip1773: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11581);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1774; sub_file_print(tmp_fileno,qbs_new_txt_len("BEGIN",5), 0 , 0 , 1 ); if (new_error) goto skip1774; skip1774: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11582);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1775; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",10),FUNC_QUOTEDFILENAME(qbs_new_txt_len("StringFileInfo",14))), 0 , 0 , 1 ); if (new_error) goto skip1775; skip1775: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11583);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1776; sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",9), 0 , 0 , 1 ); if (new_error) goto skip1776; skip1776: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11584);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1777; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",14),FUNC_QUOTEDFILENAME(qbs_new_txt_len("040904E4",8))), 0 , 0 , 1 ); if (new_error) goto skip1777; skip1777: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11585);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1778; sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",13), 0 , 0 , 1 ); if (new_error) goto skip1778; skip1778: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11586);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1779; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("CompanyName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1779; skip1779: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11587);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1780; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileDescription",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1780; skip1780: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11588);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1781; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileVersion",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1781; skip1781: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11589);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1782; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("InternalName",12))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIINTERNALNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1782; skip1782: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11590);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1783; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalCopyright",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1783; skip1783: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11591);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1784; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalTrademarks",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1784; skip1784: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11592);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1785; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("OriginalFilename",16))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1785; skip1785: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11593);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1786; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1786; skip1786: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11594);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1787; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductVersion",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1787; skip1787: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11595);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1788; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Comments",8))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMMENTS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1788; skip1788: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11596);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1789; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Web",3))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIWEB,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1789; skip1789: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11597);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1790; sub_file_print(tmp_fileno,qbs_new_txt_len(" END",11), 0 , 0 , 1 ); if (new_error) goto skip1790; skip1790: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11598);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1791; sub_file_print(tmp_fileno,qbs_new_txt_len(" END",7), 0 , 0 , 1 ); if (new_error) goto skip1791; skip1791: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11599);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1792; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",10),FUNC_QUOTEDFILENAME(qbs_new_txt_len("VarFileInfo",11))), 0 , 0 , 1 ); if (new_error) goto skip1792; skip1792: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11600);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1793; sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",9), 0 , 0 , 1 ); if (new_error) goto skip1793; skip1793: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11601);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1794; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Translation",11))),qbs_new_txt_len(", 0x409, 0x04E4",15)), 0 , 0 , 1 ); if (new_error) goto skip1794; skip1794: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11602);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1795; sub_file_print(tmp_fileno,qbs_new_txt_len(" END",7), 0 , 0 , 1 ); if (new_error) goto skip1795; skip1795: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11603);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1796; sub_file_print(tmp_fileno,qbs_new_txt_len("END",3), 0 , 0 , 1 ); if (new_error) goto skip1796; skip1796: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11604);}while(r); do{ sub_close(*__LONG_ICONFILEHANDLE,1); if(!qbevent)break;evnt(11605);}while(r); } S_13803:; if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ if(qbevent){evnt(11608);if(r)goto S_13803;} do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(11609);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11610);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1797; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\windres.exe -i ",41),__STRING_TMPDIR),qbs_new_txt_len("icon.rc -o ",11)),__STRING_TMPDIR),qbs_new_txt_len("icon.o",6)), 0 , 0 , 1 ); if (new_error) goto skip1797; skip1797: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11611);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(11612);}while(r); do{ sub_shell2(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11613);}while(r); S_13809:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== 0 )))||new_error){ if(qbevent){evnt(11614);if(r)goto S_13809;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Bad icon file",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11615);}while(r); S_13811:; if ((*__BYTE_VERSIONINFOSET)||new_error){ if(qbevent){evnt(11616);if(r)goto S_13811;} do{ qbs_set(__STRING_A,qbs_add(__STRING_A,qbs_new_txt_len(" or invalid $VERSIONINFO values",31))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11616);}while(r); } do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11617);}while(r); } } } do{ qbs_set(__STRING_O,qbs_lcase(__STRING_OS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11624);}while(r); do{ *__LONG_WIN= 0 ; if(!qbevent)break;evnt(11625);}while(r); S_13820:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(11625);if(r)goto S_13820;} do{ *__LONG_WIN= 1 ; if(!qbevent)break;evnt(11625);}while(r); } do{ *__LONG_LNX= 0 ; if(!qbevent)break;evnt(11626);}while(r); S_13824:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(11626);if(r)goto S_13824;} do{ *__LONG_LNX= 1 ; if(!qbevent)break;evnt(11626);}while(r); } do{ *__LONG_MAC= 0 ; if(!qbevent)break;evnt(11627);}while(r); S_13828:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(11627);if(r)goto S_13828;} do{ *__LONG_MAC= 1 ; if(!qbevent)break;evnt(11627);}while(r); do{ qbs_set(__STRING_O,qbs_new_txt_len("osx",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11627);}while(r); } do{ qbs_set(__STRING_DEFINES,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11628);}while(r); do{ qbs_set(__STRING_DEFINES_HEADER,qbs_new_txt_len(" -D ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11628);}while(r); do{ qbs_set(__STRING_VER,__STRING_VERSION); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11629);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_VER,qbs_new_txt_len(".",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11630);}while(r); S_13836:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(11630);if(r)goto S_13836;} do{ tqbs=__STRING_VER; if (!new_error){ tmp_fileno=*__LONG_X; 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(11630);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11631);}while(r); S_13840:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11633);if(r)goto S_13840;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_GL",13))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11634);}while(r); } S_13843:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11637);if(r)goto S_13843;} do{ tmp_long=array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(11638);}while(r); } S_13846:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11641);if(r)goto S_13846;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_IMAGE_CODEC",22))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11642);}while(r); } S_13849:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11645);if(r)goto S_13849;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_CONSOLE_ONLY",23))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11646);}while(r); } S_13852:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11649);if(r)goto S_13852;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SOCKETS",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11650);}while(r); }else{ do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SOCKETS",21))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11652);}while(r); } S_13857:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11655);if(r)goto S_13857;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_PRINTER",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11656);}while(r); }else{ do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_PRINTER",21))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11658);}while(r); } S_13862:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11661);if(r)goto S_13862;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_ICON",15))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11662);}while(r); }else{ do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_ICON",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11664);}while(r); } S_13867:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11667);if(r)goto S_13867;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SCREENIMAGE",22))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11668);}while(r); }else{ do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SCREENIMAGE",25))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11670);}while(r); } S_13872:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11673);if(r)goto S_13872;} do{ qbs_set(__STRING_D,qbs_new_txt_len("internal\\c\\parts\\video\\font\\ttf\\",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11674);}while(r); S_13874:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O),qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ if(qbevent){evnt(11676);if(r)goto S_13874;} do{ SUB_BUILD(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11677);}while(r); } do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_LOADFONT",19))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11679);}while(r); do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),qbs_new_txt_len("parts\\video\\font\\ttf\\os\\",24)),__STRING_O),qbs_new_txt_len("\\src.o",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11680);}while(r); } do{ qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11683);}while(r); S_13881:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11685);if(r)goto S_13881;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_DEVICEINPUT",22))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11686);}while(r); do{ qbs_set(__STRING_LIBNAME,qbs_new_txt_len("input\\game_controller",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11687);}while(r); do{ qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("parts\\",6),__STRING_LIBNAME),qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11688);}while(r); do{ qbs_set(__STRING_LIBFILE,qbs_add(__STRING_LIBPATH,qbs_new_txt_len("\\src.a",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11689);}while(r); S_13886:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_LOCALPATH,__STRING_LIBFILE))== 0 )))||new_error){ if(qbevent){evnt(11690);if(r)goto S_13886;} do{ SUB_BUILD(qbs_add(__STRING_LOCALPATH,__STRING_LIBPATH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11690);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_LIBFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11691);}while(r); } S_13891:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11694);if(r)goto S_13891;} do{ tmp_long=array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(11694);}while(r); } S_13894:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11695);if(r)goto S_13894;} do{ tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(11695);}while(r); } S_13897:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11696);if(r)goto S_13897;} do{ tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(11696);}while(r); } S_13900:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11699);if(r)goto S_13900;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_CONVERSION",27))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11700);}while(r); do{ qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\conversion",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11702);}while(r); do{ qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11703);}while(r); do{ qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11704);}while(r); S_13905:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ if(qbevent){evnt(11705);if(r)goto S_13905;} do{ SUB_BUILD(__STRING_D3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11706);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11708);}while(r); } S_13910:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11711);if(r)goto S_13910;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_DECODE",23))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11713);}while(r); do{ qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\mp3_mini",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11715);}while(r); do{ qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11716);}while(r); do{ qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11717);}while(r); S_13915:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ if(qbevent){evnt(11718);if(r)goto S_13915;} do{ SUB_BUILD(__STRING_D3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11719);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11721);}while(r); do{ qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\ogg",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11723);}while(r); do{ qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11724);}while(r); do{ qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11725);}while(r); S_13922:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ if(qbevent){evnt(11726);if(r)goto S_13922;} do{ SUB_BUILD(__STRING_D3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11727);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.o",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11729);}while(r); } S_13927:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11734);if(r)goto S_13927;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_OUT",20))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11735);}while(r); do{ qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\out",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11736);}while(r); do{ qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11737);}while(r); do{ qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11738);}while(r); S_13932:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ if(qbevent){evnt(11739);if(r)goto S_13932;} do{ SUB_BUILD(__STRING_D3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11740);}while(r); } do{ qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11742);}while(r); } S_13937:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 13 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11745);if(r)goto S_13937;} do{ qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_ZLIB",15))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11746);}while(r); S_13939:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(11747);if(r)goto S_13939;} do{ qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" -lz",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11748);}while(r); }else{ do{ qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" -l:libz.a",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11750);}while(r); } } S_13945:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ if(qbevent){evnt(11755);if(r)goto S_13945;} do{ qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11755);}while(r); } do{ SUB_PATH_SLASH_CORRECT(__STRING_LIBS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11756);}while(r); S_13949:; if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ if(qbevent){evnt(11757);if(r)goto S_13949;} do{ qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11757);}while(r); } S_13952:; if ((-(*__LONG_MAC== 0 ))||new_error){ if(qbevent){evnt(11760);if(r)goto S_13952;} do{ qbs_set(__STRING_D1,qbs_new_txt_len("parts\\core",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11761);}while(r); do{ qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11762);}while(r); do{ qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11763);}while(r); S_13956:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ if(qbevent){evnt(11764);if(r)goto S_13956;} do{ SUB_BUILD(__STRING_D3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11765);}while(r); } } do{ qbs_set(__STRING_DEPSTR,qbs_add(__STRING_VER,qbs_new_txt_len("_",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11770);}while(r); S_13961:; fornext_value1801= 1 ; fornext_finalvalue1801=*__LONG_DEPENDENCY_LAST; fornext_step1801= 1 ; if (fornext_step1801<0) fornext_step_negative1801=1; else fornext_step_negative1801=0; if (new_error) goto fornext_error1801; goto fornext_entrylabel1801; while(1){ fornext_value1801=fornext_step1801+(*__LONG_I); fornext_entrylabel1801: *__LONG_I=fornext_value1801; if (fornext_step_negative1801){ if (fornext_value1801fornext_finalvalue1801) break; } fornext_error1801:; if(qbevent){evnt(11771);if(r)goto S_13961;} S_13962:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11772);if(r)goto S_13962;} do{ qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("1",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11772);}while(r); }else{ do{ qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("0",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11772);}while(r); } fornext_continue_1800:; } fornext_exit_1800:; do{ qbs_set(__STRING_LIBQB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" libqb\\os\\",10),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o ",3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11774);}while(r); do{ SUB_PATH_SLASH_CORRECT(__STRING_LIBQB); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11775);}while(r); S_13970:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_new_txt_len("internal\\c\\",11),qbs_ltrim(qbs_rtrim(__STRING_LIBQB))))== 0 )))||new_error){ if(qbevent){evnt(11776);if(r)goto S_13970;} do{ sub_chdir(qbs_new_txt_len("internal\\c",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11777);}while(r); S_13972:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(11778);if(r)goto S_13972;} do{ sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c c_compiler\\bin\\g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",70),__STRING_DEFINES),qbs_new_txt_len(" -o libqb\\os\\",13)),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11779);}while(r); }else{ S_13975:; if ((*__LONG_MAC)||new_error){ if(qbevent){evnt(11781);if(r)goto S_13975;} do{ sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.mm ",28),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11782);}while(r); }else{ do{ sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",48),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11784);}while(r); } } do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11787);}while(r); } S_13983:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11791);if(r)goto S_13983;} S_13984:; if ((*__LONG_MAC)||new_error){ if(qbevent){evnt(11792);if(r)goto S_13984;} do{ qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" -framework AudioUnit -framework AudioToolbox ",46))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11792);}while(r); } } S_13988:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(11819);if(r)goto S_13988;} S_13989:; fornext_value1803= 1 ; fornext_finalvalue1803=*__LONG_RESOLVESTATICFUNCTIONS; fornext_step1803= 1 ; if (fornext_step1803<0) fornext_step_negative1803=1; else fornext_step_negative1803=0; if (new_error) goto fornext_error1803; goto fornext_entrylabel1803; while(1){ fornext_value1803=fornext_step1803+(*__LONG_X); fornext_entrylabel1803: *__LONG_X=fornext_value1803; if (fornext_step_negative1803){ if (fornext_value1803fornext_finalvalue1803) break; } fornext_error1803:; if(qbevent){evnt(11822);if(r)goto S_13989;} S_13990:; 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(11823);if(r)goto S_13990;} do{ *__LONG_N= 0 ; if(!qbevent)break;evnt(11825);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm.exe ",33),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >internal\\temp\\nm_output.txt",43)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11826);}while(r); do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(11827);}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(11828);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11829);}while(r); S_13996:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(11830);if(r)goto S_13996;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1806; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1806; skip1806: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11831);}while(r); S_13998:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(11832);if(r)goto S_13998;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11834);}while(r); S_14000:; if ((*__LONG_X1)||new_error){ if(qbevent){evnt(11835);if(r)goto S_14000;} S_14001:; 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(11836);if(r)goto S_14001;} do{ *__LONG_X1=*__LONG_X1+ 1 ; if(!qbevent)break;evnt(11837);}while(r); do{ *__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11838);}while(r); do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(11839);}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(11840);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1808; 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 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1808; skip1808: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11841);}while(r); do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(11842);}while(r); } do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(11844);}while(r); } } dl_continue_1805:; } dl_exit_1805:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(11848);}while(r); S_14014:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(11849);if(r)goto S_14014;} 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(11849);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11849);}while(r); } S_14018:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(11851);if(r)goto S_14018;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(11852);}while(r); 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(11853);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11854);}while(r); S_14022:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(11855);if(r)goto S_14022;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1810; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1810; skip1810: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11856);}while(r); S_14024:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(11857);if(r)goto S_14024;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11859);}while(r); S_14026:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ if(qbevent){evnt(11860);if(r)goto S_14026;} do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(11861);}while(r); S_14028:; 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(11862);if(r)goto S_14028;} 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(11863);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1813; 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 skip1813; skip1813: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11864);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1814; 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 skip1814; skip1814: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11865);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1815; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1815; skip1815: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11866);}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(11868);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1816; 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 skip1816; skip1816: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11869);}while(r); } do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(11871);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(11872);}while(r); do{ goto dl_exit_1809; if(!qbevent)break;evnt(11873);}while(r); } } dl_continue_1809:; } dl_exit_1809:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(11877);}while(r); } S_14045:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(11880);if(r)goto S_14045;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm ",29),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >.\\internal\\temp\\nm_output_dynamic.txt",56)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11881);}while(r); do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(11882);}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(11883);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11884);}while(r); S_14050:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(11885);if(r)goto S_14050;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1818; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1818; skip1818: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11886);}while(r); S_14052:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(11887);if(r)goto S_14052;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11889);}while(r); S_14054:; if ((*__LONG_X1)||new_error){ if(qbevent){evnt(11890);if(r)goto S_14054;} S_14055:; 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(11891);if(r)goto S_14055;} do{ *__LONG_X1=*__LONG_X1+ 1 ; if(!qbevent)break;evnt(11892);}while(r); do{ *__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11893);}while(r); do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(11894);}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(11895);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1820; 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 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1820; skip1820: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11896);}while(r); do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(11897);}while(r); } do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(11899);}while(r); } } dl_continue_1817:; } dl_exit_1817:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(11903);}while(r); S_14068:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(11904);if(r)goto S_14068;} 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(11904);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11904);}while(r); } } S_14073:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(11907);if(r)goto S_14073;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(11908);}while(r); 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(11909);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11910);}while(r); S_14077:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(11911);if(r)goto S_14077;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1822; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1822; skip1822: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11912);}while(r); S_14079:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(11913);if(r)goto S_14079;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11915);}while(r); S_14081:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ if(qbevent){evnt(11916);if(r)goto S_14081;} do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(11917);}while(r); S_14083:; 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(11918);if(r)goto S_14083;} 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(11919);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1825; 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 skip1825; skip1825: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11920);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1826; 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 skip1826; skip1826: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11921);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1827; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1827; skip1827: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11922);}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(11924);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1828; 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 skip1828; skip1828: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11925);}while(r); } do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(11927);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(11928);}while(r); do{ goto dl_exit_1821; if(!qbevent)break;evnt(11929);}while(r); } } dl_continue_1821:; } dl_exit_1821:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(11933);}while(r); S_14099:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(11934);if(r)goto S_14099;} 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(11934);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(11934);}while(r); } } } fornext_continue_1802:; } fornext_exit_1802:; S_14106:; if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ if(qbevent){evnt(11940);if(r)goto S_14106;} S_14107:; if ((*__LONG_DATAOFFSET)||new_error){ if(qbevent){evnt(11941);if(r)goto S_14107;} S_14108:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ if(qbevent){evnt(11942);if(r)goto S_14108;} do{ sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win32.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11943);}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip1829; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1829; skip1829: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11943);}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(11943);}while(r); }else{ do{ sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win64.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11945);}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip1830; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1830; skip1830: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11945);}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(11945);}while(r); } do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11947);}while(r); do{ sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11948);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11949);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11950);}while(r); } } do{ sub_open(qbs_new_txt_len(".\\internal\\c\\makeline_win.txt",29), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11957);}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip1831; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1831; skip1831: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11958);}while(r); do{ qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11958);}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(11959);}while(r); S_14127:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A, 7 ),qbs_new_txt_len(" ..\\..\\",7))))||new_error){ if(qbevent){evnt(11960);if(r)goto S_14127;} do{ qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 6 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11960);}while(r); } do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11962);}while(r); S_14131:; if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ if(qbevent){evnt(11962);if(r)goto S_14131;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11962);}while(r); } S_14134:; if ((*__LONG_CONSOLE)||new_error){ if(qbevent){evnt(11964);if(r)goto S_14134;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -s",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11965);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -mconsole",10)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11965);}while(r); } S_14138:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11968);if(r)goto S_14138;} do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-mwindows",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11969);}while(r); do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lopengl32",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11970);}while(r); do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lglu32",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11971);}while(r); do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("parts\\core\\os\\win\\src.a",23))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11972);}while(r); do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D FREEGLUT_STATIC",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11973);}while(r); do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D GLEW_STATIC",14))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11974);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lws2_32",8))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11977);}while(r); S_14147:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11978);if(r)goto S_14147;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11979);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lws2_32",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11979);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinspool",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11982);}while(r); S_14152:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11983);if(r)goto S_14152;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11984);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinspool",11)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11984);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinmm",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11987);}while(r); S_14157:; if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]== 0 )))||new_error){ if(qbevent){evnt(11988);if(r)goto S_14157;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11989);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinmm",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11989);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lksguid",8))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11992);}while(r); S_14162:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11993);if(r)goto S_14162;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11994);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lksguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11994);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-ldxguid",8))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11997);}while(r); S_14167:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(11998);if(r)goto S_14167;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11999);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -ldxguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11999);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lole32",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12002);}while(r); S_14172:; if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ if(qbevent){evnt(12003);if(r)goto S_14172;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12004);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lole32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12004);}while(r); } do{ qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lgdi32",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12007);}while(r); S_14177:; if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 )))||new_error){ if(qbevent){evnt(12008);if(r)goto S_14177;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12009);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lgdi32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12009);}while(r); } S_14181:; if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ if(qbevent){evnt(12012);if(r)goto S_14181;} S_14182:; if ((*__LONG_DATAOFFSET)||new_error){ if(qbevent){evnt(12014);if(r)goto S_14182;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12015);}while(r); S_14184:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12016);if(r)goto S_14184;} do{ *__LONG_X=*__LONG_X+ 3 ; if(!qbevent)break;evnt(12017);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6)),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12018);}while(r); } } } S_14190:; if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ if(qbevent){evnt(12025);if(r)goto S_14190;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12026);}while(r); S_14192:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12027);if(r)goto S_14192;} do{ *__LONG_X=*__LONG_X+ 3 ; if(!qbevent)break;evnt(12028);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12029);}while(r); } } S_14197:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ if(qbevent){evnt(12035);if(r)goto S_14197;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12036);}while(r); S_14199:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12037);if(r)goto S_14199;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12038);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12039);}while(r); } } S_14204:; if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ if(qbevent){evnt(12044);if(r)goto S_14204;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12045);}while(r); S_14206:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12046);if(r)goto S_14206;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12047);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12048);}while(r); } } do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12053);}while(r); S_14212:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12054);if(r)goto S_14212;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12055);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12056);}while(r); } S_14216:; if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ if(qbevent){evnt(12060);if(r)goto S_14216;} S_14217:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12061);if(r)goto S_14217;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X+__STRING_LIBQB->len),qbs_new_txt_len("..\\..\\",6)),__STRING_TMPDIR),qbs_new_txt_len("icon.o ",7)),func_mid(__STRING_A,*__LONG_X+__STRING_LIBQB->len+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12062);}while(r); } } do{ qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12066);}while(r); do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12068);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_win.bat",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12069);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1852; sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); if (new_error) goto skip1852; skip1852: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12070);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1853; sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); if (new_error) goto skip1853; skip1853: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12071);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1854; sub_file_print(tmp_fileno,qbs_new_txt_len("echo Recompiling...",19), 0 , 0 , 1 ); if (new_error) goto skip1854; skip1854: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12072);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1855; sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../c",7), 0 , 0 , 1 ); if (new_error) goto skip1855; skip1855: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12073);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1856; sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); if (new_error) goto skip1856; skip1856: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12074);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1857; sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); if (new_error) goto skip1857; skip1857: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12075);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12076);}while(r); do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12078);}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(12079);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1858; sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); if (new_error) goto skip1858; skip1858: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12080);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1859; sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); if (new_error) goto skip1859; skip1859: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12081);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1860; sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0 , 0 , 1 ); if (new_error) goto skip1860; skip1860: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12082);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1861; 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 skip1861; skip1861: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12083);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1862; sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0 , 0 , 1 ); if (new_error) goto skip1862; skip1862: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12084);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1863; 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 skip1863; skip1863: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12085);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1864; 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 skip1864; skip1864: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12086);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1865; sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0 , 0 , 1 ); if (new_error) goto skip1865; skip1865: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12087);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1866; 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 skip1866; skip1866: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12088);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1867; sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); if (new_error) goto skip1867; skip1867: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12089);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1868; 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 skip1868; skip1868: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12090);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1869; sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); if (new_error) goto skip1869; skip1869: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12091);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12092);}while(r); S_14246:; if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ if(qbevent){evnt(12094);if(r)goto S_14246;} do{ sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12095);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12096);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12097);}while(r); S_14250:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(12098);if(r)goto S_14250;} do{ *__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1870= 0 )); if(!qbevent)break;evnt(12100);}while(r); } } } S_14255:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(12106);if(r)goto S_14255;} S_14256:; fornext_value1872= 1 ; fornext_finalvalue1872=*__LONG_RESOLVESTATICFUNCTIONS; fornext_step1872= 1 ; if (fornext_step1872<0) fornext_step_negative1872=1; else fornext_step_negative1872=0; if (new_error) goto fornext_error1872; goto fornext_entrylabel1872; while(1){ fornext_value1872=fornext_step1872+(*__LONG_X); fornext_entrylabel1872: *__LONG_X=fornext_value1872; if (fornext_step_negative1872){ if (fornext_value1872fornext_finalvalue1872) break; } fornext_error1872:; if(qbevent){evnt(12107);if(r)goto S_14256;} S_14257:; 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(12108);if(r)goto S_14257;} do{ *__LONG_N= 0 ; if(!qbevent)break;evnt(12110);}while(r); S_14259:; if ((-(*__LONG_MACOSX== 0 ))||new_error){ if(qbevent){evnt(12111);if(r)goto S_14259;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",76)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12111);}while(r); } S_14262:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(12112);if(r)goto S_14262;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",62)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12112);}while(r); } S_14265:; if ((-(*__LONG_MACOSX== 0 ))||new_error){ if(qbevent){evnt(12114);if(r)goto S_14265;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12115);}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(12116);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12117);}while(r); S_14269:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(12118);if(r)goto S_14269;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1875; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1875; skip1875: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12119);}while(r); S_14271:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(12120);if(r)goto S_14271;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12122);}while(r); S_14273:; if ((*__LONG_X1)||new_error){ if(qbevent){evnt(12123);if(r)goto S_14273;} S_14274:; 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(12124);if(r)goto S_14274;} do{ *__LONG_X1=*__LONG_X1+ 1 ; if(!qbevent)break;evnt(12125);}while(r); do{ *__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12126);}while(r); do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(12127);}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(12128);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1877; 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 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1877; skip1877: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12129);}while(r); do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12130);}while(r); } do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12132);}while(r); } } dl_continue_1874:; } dl_exit_1874:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12136);}while(r); S_14287:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(12137);if(r)goto S_14287;} 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(12137);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(12137);}while(r); } } S_14292:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(12140);if(r)goto S_14292;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12141);}while(r); 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(12142);}while(r); do{ qbs_set(__STRING_S2,__STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12142);}while(r); S_14296:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(12143);if(r)goto S_14296;} 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(12143);}while(r); } do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12144);}while(r); S_14300:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(12145);if(r)goto S_14300;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1879; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1879; skip1879: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12146);}while(r); S_14302:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(12147);if(r)goto S_14302;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12149);}while(r); S_14304:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ if(qbevent){evnt(12150);if(r)goto S_14304;} do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(12151);}while(r); S_14306:; 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(12152);if(r)goto S_14306;} 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(12153);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1882; 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 skip1882; skip1882: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12154);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1883; 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 skip1883; skip1883: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12155);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1884; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1884; skip1884: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12156);}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(12158);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1885; 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 skip1885; skip1885: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12159);}while(r); } do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12161);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12162);}while(r); do{ goto dl_exit_1878; if(!qbevent)break;evnt(12163);}while(r); } } dl_continue_1878:; } dl_exit_1878:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12167);}while(r); } S_14323:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(12170);if(r)goto S_14323;} S_14324:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(12171);if(r)goto S_14324;} do{ goto LABEL_MACOSX_LIBFIND_FAILED; if(!qbevent)break;evnt(12171);}while(r); } do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >./internal/temp/nm_output_dynamic.txt 2>./internal/temp/nm_error.txt",87)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12172);}while(r); do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12173);}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(12174);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12175);}while(r); S_14331:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(12176);if(r)goto S_14331;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1887; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1887; skip1887: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12177);}while(r); S_14333:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(12178);if(r)goto S_14333;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12180);}while(r); S_14335:; if ((*__LONG_X1)||new_error){ if(qbevent){evnt(12181);if(r)goto S_14335;} S_14336:; 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(12182);if(r)goto S_14336;} do{ *__LONG_X1=*__LONG_X1+ 1 ; if(!qbevent)break;evnt(12183);}while(r); do{ *__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12184);}while(r); do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(12185);}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(12186);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1889; 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 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1889; skip1889: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12187);}while(r); do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12188);}while(r); } do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12190);}while(r); } } dl_continue_1886:; } dl_exit_1886:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12194);}while(r); S_14349:; if ((-(*__LONG_N> 1 ))||new_error){ if(qbevent){evnt(12195);if(r)goto S_14349;} 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(12195);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(12195);}while(r); } } S_14354:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(12198);if(r)goto S_14354;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12199);}while(r); 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(12200);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12201);}while(r); S_14358:; while((!(func_eof(*__LONG_FH)))||new_error){ if(qbevent){evnt(12202);if(r)goto S_14358;} do{ tmp_fileno=*__LONG_FH; if (new_error) goto skip1891; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1891; skip1891: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12203);}while(r); S_14360:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ if(qbevent){evnt(12204);if(r)goto S_14360;} do{ *__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12206);}while(r); S_14362:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ if(qbevent){evnt(12207);if(r)goto S_14362;} do{ *__LONG_FH2=func_freefile(); if(!qbevent)break;evnt(12208);}while(r); S_14364:; 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(12209);if(r)goto S_14364;} 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(12210);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1894; 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 skip1894; skip1894: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12211);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1895; 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 skip1895; skip1895: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12212);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1896; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1896; skip1896: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12213);}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(12215);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1897; 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 skip1897; skip1897: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12216);}while(r); } do{ sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12218);}while(r); do{ *__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12219);}while(r); do{ goto dl_exit_1890; if(!qbevent)break;evnt(12220);}while(r); } } dl_continue_1890:; } dl_exit_1890:; do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12224);}while(r); LABEL_MACOSX_LIBFIND_FAILED:; if(qbevent){evnt(12225);r=0;} S_14380:; if ((-(*__LONG_N== 0 ))||new_error){ if(qbevent){evnt(12226);if(r)goto S_14380;} 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(12226);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(12226);}while(r); } } } fornext_continue_1871:; } fornext_exit_1871:; S_14387:; if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ if(qbevent){evnt(12232);if(r)goto S_14387;} S_14388:; if ((*__LONG_DATAOFFSET)||new_error){ if(qbevent){evnt(12233);if(r)goto S_14388;} S_14389:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ if(qbevent){evnt(12234);if(r)goto S_14389;} do{ qbs_set(__STRING_B,qbs_new_txt_len("32",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12234);}while(r); }else{ do{ qbs_set(__STRING_B,qbs_new_txt_len("64",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12234);}while(r); } do{ sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\makedat_lnx",24),__STRING_B),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12235);}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip1898; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1898; skip1898: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12235);}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(12235);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12236);}while(r); do{ sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12237);}while(r); do{ sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12238);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12239);}while(r); } } S_14403:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12243);if(r)goto S_14403;} do{ sub_open(qbs_new_txt_len("./internal/c/makeline_osx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12244);}while(r); S_14405:; }else{ if (((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]){ if(qbevent){evnt(12245);if(r)goto S_14405;} do{ sub_open(qbs_new_txt_len("./internal/c/makeline_lnx_nogui.txt",35), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12246);}while(r); }else{ do{ sub_open(qbs_new_txt_len("./internal/c/makeline_lnx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12248);}while(r); } } do{ tmp_fileno= 150 ; if (new_error) goto skip1899; sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1899; skip1899: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12251);}while(r); do{ qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12251);}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(12252);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12254);}while(r); S_14414:; if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ if(qbevent){evnt(12254);if(r)goto S_14414;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12254);}while(r); } S_14417:; if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ if(qbevent){evnt(12256);if(r)goto S_14417;} S_14418:; if ((*__LONG_DATAOFFSET)||new_error){ if(qbevent){evnt(12258);if(r)goto S_14418;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("-lX11",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12259);}while(r); S_14420:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12260);if(r)goto S_14420;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o ",7)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12261);}while(r); } } } S_14425:; if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ if(qbevent){evnt(12268);if(r)goto S_14425;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12269);}while(r); S_14427:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12270);if(r)goto S_14427;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12271);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_MYLIBOPT),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12272);}while(r); } } S_14432:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ if(qbevent){evnt(12277);if(r)goto S_14432;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12278);}while(r); S_14434:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12279);if(r)goto S_14434;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12280);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12281);}while(r); } } S_14439:; if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ if(qbevent){evnt(12286);if(r)goto S_14439;} do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12287);}while(r); S_14441:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12288);if(r)goto S_14441;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12289);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12290);}while(r); } } do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12295);}while(r); S_14447:; if ((*__LONG_X)||new_error){ if(qbevent){evnt(12296);if(r)goto S_14447;} do{ *__LONG_X=*__LONG_X+ 5 ; if(!qbevent)break;evnt(12297);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12298);}while(r); } do{ qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12308);}while(r); S_14452:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12310);if(r)goto S_14452;} do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12312);}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(12313);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1909; 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 skip1909; skip1909: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12314);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1910; 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 skip1910; skip1910: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12315);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1911; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1911; skip1911: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12316);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1912; sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1912; skip1912: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12317);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1913; 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 skip1913; skip1913: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12318);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12319);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_osx.command",21)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12320);}while(r); do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12322);}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(12323);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1914; 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 skip1914; skip1914: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12324);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1915; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1915; skip1915: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12325);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1916; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1916; skip1916: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12326);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1917; 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 skip1917; skip1917: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12327);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1918; 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 skip1918; skip1918: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12328);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1919; 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 skip1919; skip1919: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12329);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1920; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1920; skip1920: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12330);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1921; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1921; skip1921: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12331);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1922; 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 skip1922; skip1922: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12332);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1923; 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 skip1923; skip1923: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12333);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1924; 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 skip1924; skip1924: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12334);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1925; 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 skip1925; skip1925: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12335);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1926; 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 skip1926; skip1926: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12336);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1927; 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 skip1927; skip1927: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12337);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1928; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1928; skip1928: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12338);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12339);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_osx.command",17)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12340);}while(r); }else{ do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12344);}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(12345);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1929; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1929; skip1929: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12346);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1930; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1930; skip1930: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12347);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1931; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1931; skip1931: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12348);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1932; 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 skip1932; skip1932: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12349);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1933; 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 skip1933; skip1933: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12350);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1934; 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 skip1934; skip1934: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12351);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1935; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1935; skip1935: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12352);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1936; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1936; skip1936: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12353);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1937; 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 skip1937; skip1937: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12354);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1938; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1938; skip1938: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12355);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1939; sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1939; skip1939: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12356);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1940; 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 skip1940; skip1940: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12357);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1941; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1941; skip1941: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12358);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12359);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_lnx.sh",16)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12360);}while(r); do{ *__LONG_FFH=func_freefile(); if(!qbevent)break;evnt(12362);}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(12363);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1942; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1942; skip1942: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12364);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1943; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1943; skip1943: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12365);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1944; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1944; skip1944: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12366);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1945; 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 skip1945; skip1945: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12367);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1946; 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 skip1946; skip1946: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12368);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1947; 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 skip1947; skip1947: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12369);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1948; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1948; skip1948: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12370);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1949; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1949; skip1949: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12371);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1950; 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 skip1950; skip1950: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12372);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1951; 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 skip1951; skip1951: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12373);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1952; 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 skip1952; skip1952: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12374);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1953; 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 skip1953; skip1953: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12375);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1954; 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 skip1954; skip1954: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12376);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1955; 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 skip1955; skip1955: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12377);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1956; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); if (new_error) goto skip1956; skip1956: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12378);}while(r); do{ sub_close(*__LONG_FFH,1); if(!qbevent)break;evnt(12379);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_lnx.sh",12)),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12380);}while(r); } S_14519:; if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ if(qbevent){evnt(12384);if(r)goto S_14519;} do{ sub_chdir(qbs_new_txt_len("./internal/c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12385);}while(r); do{ sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12386);}while(r); do{ sub_chdir(qbs_new_txt_len("../..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12387);}while(r); S_14523:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(12388);if(r)goto S_14523;} do{ *__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1957= 0 )); if(!qbevent)break;evnt(12390);}while(r); } } S_14527:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12394);if(r)goto S_14527;} do{ *__LONG_FF=func_freefile(); if(!qbevent)break;evnt(12395);}while(r); S_14529:; 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(12396);if(r)goto S_14529;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12396);}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(12397);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1958; 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 skip1958; skip1958: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12398);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1959; sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); if (new_error) goto skip1959; skip1959: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12399);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1960; 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 skip1960; skip1960: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12400);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1961; sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); if (new_error) goto skip1961; skip1961: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12401);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1962; 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 skip1962; skip1962: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12402);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1963; sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); if (new_error) goto skip1963; skip1963: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12403);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1964; 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 skip1964; skip1964: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12404);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1965; sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); if (new_error) goto skip1965; skip1965: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12405);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1966; sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0 , 0 , 0 ); if (new_error) goto skip1966; skip1966: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12406);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FF; if (new_error) goto skip1967; sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); if (new_error) goto skip1967; skip1967: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12407);}while(r); do{ sub_close(*__LONG_FF,1); if(!qbevent)break;evnt(12408);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__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(12409);}while(r); } } S_14547:; if ((*__LONG_NO_C_COMPILE_MODE)||new_error){ if(qbevent){evnt(12414);if(r)goto S_14547;} do{ *__LONG_COMPFAILED= 0 ; if(!qbevent)break;evnt(12414);}while(r); do{ goto LABEL_NO_C_COMPILE; if(!qbevent)break;evnt(12414);}while(r); } S_14551:; 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(12415);if(r)goto S_14551;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12415);}while(r); } S_14554:; 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(12416);if(r)goto S_14554;} do{ *__LONG_COMPFAILED= 0 ; if(!qbevent)break;evnt(12417);}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(12418);}while(r); }else{ do{ *__LONG_COMPFAILED= 1 ; if(!qbevent)break;evnt(12420);}while(r); } S_14560:; if ((*__LONG_COMPFAILED)||new_error){ if(qbevent){evnt(12423);if(r)goto S_14560;} S_14561:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(12424);if(r)goto S_14561;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("C++ Compilation failed (Check ",30),func_chr( 0 )),__STRING_COMPILELOG),func_chr( 0 )),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12425);}while(r); do{ goto LABEL_IDEERROR; if(!qbevent)break;evnt(12426);}while(r); } S_14565:; if ((*__LONG_COMPFAILED)||new_error){ if(qbevent){evnt(12428);if(r)goto S_14565;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30)); if (new_error) goto skip1968; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1968: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12429);}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 skip1969; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1969: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12430);}while(r); } }else{ S_14570:; if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ if(qbevent){evnt(12433);if(r)goto S_14570;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Output: ",8)); if (new_error) goto skip1970; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,__STRING_LASTBINARYGENERATED); if (new_error) goto skip1970; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1970: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12433);}while(r); } } LABEL_SKIP_BUILD:; if(qbevent){evnt(12438);r=0;} S_14574:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(12442);if(r)goto S_14574;} do{ goto LABEL_IDERET6; if(!qbevent)break;evnt(12442);}while(r); } LABEL_NO_C_COMPILE:; if(qbevent){evnt(12444);r=0;} S_14577:; if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(-(*__LONG_CONSOLEMODE== 0 )))||new_error){ if(qbevent){evnt(12446);if(r)goto S_14577;} do{ if(qbevent){evnt(12446);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(12446);}while(r); } S_14580:; if ((-(*__LONG_COMPFAILED!= 0 ))||new_error){ if(qbevent){evnt(12447);if(r)goto S_14580;} do{ if(qbevent){evnt(12447);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12447);}while(r); } do{ if(qbevent){evnt(12448);} exit_code= 0 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12448);}while(r); LABEL_QBERROR_TEST:; if(qbevent){evnt(12450);r=0;} do{ *__LONG_E= 1 ; if(!qbevent)break;evnt(12451);}while(r); do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;} if(!qbevent)break;evnt(12452);}while(r); LABEL_QBERROR:; if(qbevent){evnt(12454);r=0;} S_14586:; if (( 0 )||new_error){ if(qbevent){evnt(12455);if(r)goto S_14586;} S_14587:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(12456);if(r)goto S_14587;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip1971: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12457);}while(r); }else{ do{ sub__autodisplay(); if(!qbevent)break;evnt(12459);}while(r); do{ qbg_screen(func__newimage( 80 , 25 , 0 ,1),NULL, 0 , 0 ,NULL,13); if(!qbevent)break;evnt(12460);}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(12461);}while(r); } do{ sub__controlchr( 2 ); if(!qbevent)break;evnt(12463);}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 skip1972; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1972: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12464);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64.bas):",32)); if (new_error) goto skip1973; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1973: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12465);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Error",5)); if (new_error) goto skip1974; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" "))); if (new_error) goto skip1974; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1974: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12466);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Description: ",13)); if (new_error) goto skip1975; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,func__errormessage(NULL,0)); if (new_error) goto skip1975; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1975: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12467);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Line",4)); if (new_error) goto skip1976; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" "))); if (new_error) goto skip1976; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1976: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12468);}while(r); S_14600:; if ((func__inclerrorline())||new_error){ if(qbevent){evnt(12469);if(r)goto S_14600;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Included line",13)); if (new_error) goto skip1977; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" "))); if (new_error) goto skip1977; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1977: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12470);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Included file ",14)); if (new_error) goto skip1978; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,func__inclerrorfile()); if (new_error) goto skip1978; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1978: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12471);}while(r); } do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip1979: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12473);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27)); if (new_error) goto skip1980; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1980: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12474);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("ideerror =",10)); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" "))); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17)); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" "))); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22)); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" "))); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("linenumber =",12)); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" "))); if (new_error) goto skip1981; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1981: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12475);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7)); if (new_error) goto skip1982; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,__STRING_CA); if (new_error) goto skip1982; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18)); if (new_error) goto skip1982; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,__STRING_IDECOMMAND); if (new_error) goto skip1982; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("}",1)); if (new_error) goto skip1982; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1982: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12476);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16)); if (new_error) goto skip1983; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,__STRING_LINEFRAGMENT); if (new_error) goto skip1983; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len("}",1)); if (new_error) goto skip1983; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1983: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12477);}while(r); do{ sub_end(); if(!qbevent)break;evnt(12478);}while(r); } S_14611:; if ((*__LONG_IDEERROR)||new_error){ if(qbevent){evnt(12481);if(r)goto S_14611;} do{ *__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12482);}while(r); do{ sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 4 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12483);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1984; sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); if (new_error) goto skip1984; skip1984: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12484);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1985; sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0 , 0 , 1 ); if (new_error) goto skip1985; skip1985: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12485);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1986; sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1 , 0 , 1 ); if (new_error) goto skip1986; skip1986: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12486);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1987; sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1 , 0 , 1 ); if (new_error) goto skip1987; skip1987: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12487);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1988; sub_file_print(tmp_fileno,func__inclerrorfile(), 0 , 0 , 1 ); if (new_error) goto skip1988; skip1988: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12488);}while(r); do{ sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12489);}while(r); do{ qbs_set(__STRING_SENDC,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12490);}while(r); do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;} if(!qbevent)break;evnt(12491);}while(r); } do{ *__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED; if(!qbevent)break;evnt(12494);}while(r); do{ *__INTEGER_QBERRORHAPPENED= 1 ; if(!qbevent)break;evnt(12495);}while(r); S_14625:; if (( 0 )||new_error){ if(qbevent){evnt(12497);if(r)goto S_14625;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1989; sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",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(12497);}while(r); } S_14628:; if (( 0 )||new_error){ if(qbevent){evnt(12498);if(r)goto S_14628;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1990; sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0 , 0 , 0 ); if (new_error) goto skip1990; sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); if (new_error) goto skip1990; skip1990: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12498);}while(r); } S_14631:; if (( 0 )||new_error){ if(qbevent){evnt(12499);if(r)goto S_14631;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1991; sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0 , 0 , 0 ); if (new_error) goto skip1991; sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1 , 0 , 1 ); if (new_error) goto skip1991; skip1991: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12499);}while(r); } S_14634:; if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||new_error){ if(qbevent){evnt(12501);if(r)goto S_14634;} do{ *__LONG_IDEERRORLINE=*__LONG_LINENUMBER; if(!qbevent)break;evnt(12503);}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(12504);}while(r); S_14637:; if ((get_error_err())||new_error){ if(qbevent){evnt(12505);if(r)goto S_14637;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass1992=get_error_err()))),qbs_new_txt_len("-",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12505);}while(r); } S_14640:; if ((func__errorline())||new_error){ if(qbevent){evnt(12506);if(r)goto S_14640;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass1993=func__errorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12506);}while(r); } S_14643:; if ((func__inclerrorline())||new_error){ if(qbevent){evnt(12507);if(r)goto S_14643;} 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(&(pass1994=func__inclerrorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12507);}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(12508);}while(r); S_14647:; if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ if(qbevent){evnt(12509);if(r)goto S_14647;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12509);}while(r); } do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;} if(!qbevent)break;evnt(12510);}while(r); } S_14652:; if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||new_error){ if(qbevent){evnt(12513);if(r)goto S_14652;} do{ qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12514);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(12514);}while(r); } do{ *__INTEGER_QBERRORCODE=get_error_err(); if(!qbevent)break;evnt(12518);}while(r); do{ *__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl()); if(!qbevent)break;evnt(12519);}while(r); S_14658:; if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||new_error){ if(qbevent){evnt(12520);if(r)goto S_14658;} do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;} if(!qbevent)break;evnt(12520);}while(r); } S_14661:; if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||new_error){ if(qbevent){evnt(12521);if(r)goto S_14661;} do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;} if(!qbevent)break;evnt(12521);}while(r); } S_14664:; if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||new_error){ if(qbevent){evnt(12522);if(r)goto S_14664;} do{ if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;} if(!qbevent)break;evnt(12522);}while(r); } do{ sub_end(); if(!qbevent)break;evnt(12523);}while(r); LABEL_ERRMES:; if(qbevent){evnt(12525);r=0;} S_14668:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(12526);if(r)goto S_14668;} do{ qbs_set(__STRING_A,__STRING_ERROR_MESSAGE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12526);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; if(!qbevent)break;evnt(12526);}while(r); } do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12527);}while(r); do{ *__LONG_LAYOUTOK= 0 ; if(!qbevent)break;evnt(12527);}while(r); S_14674:; if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ if(qbevent){evnt(12529);if(r)goto S_14674;} do{ qbs_set(__STRING_A,qbs_add(__STRING_A,__STRING_INCERROR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12529);}while(r); } S_14677:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(12531);if(r)goto S_14677;} do{ *__LONG_IDEERRORLINE=*__LONG_LINENUMBER; if(!qbevent)break;evnt(12532);}while(r); do{ qbs_set(__STRING_IDEMESSAGE,__STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12533);}while(r); do{ goto LABEL_IDEERROR; if(!qbevent)break;evnt(12534);}while(r); } do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip1995: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12537);}while(r); S_14683:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(12538);if(r)goto S_14683;} do{ qbg_sub_color( 4 ,NULL,NULL,1); if(!qbevent)break;evnt(12538);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,__STRING_A); if (new_error) goto skip1996; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip1996: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12539);}while(r); S_14687:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(12540);if(r)goto S_14687;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(12540);}while(r); } S_14690:; fornext_value1998= 1 ; fornext_finalvalue1998=__STRING_LINEFRAGMENT->len; fornext_step1998= 1 ; if (fornext_step1998<0) fornext_step_negative1998=1; else fornext_step_negative1998=0; if (new_error) goto fornext_error1998; goto fornext_entrylabel1998; while(1){ fornext_value1998=fornext_step1998+(*__LONG_I); fornext_entrylabel1998: *__LONG_I=fornext_value1998; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative1998){ if (fornext_value1998fornext_finalvalue1998) break; } fornext_error1998:; if(qbevent){evnt(12541);if(r)goto S_14690;} S_14691:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(12542);if(r)goto S_14691;} do{ sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(12542);}while(r); } fornext_continue_1997:; } fornext_exit_1997:; S_14695:; fornext_value2001= 1 ; fornext_finalvalue2001=__STRING_WHOLELINE->len; 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_I); fornext_entrylabel2001: *__LONG_I=fornext_value2001; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2001){ if (fornext_value2001fornext_finalvalue2001) break; } fornext_error2001:; if(qbevent){evnt(12544);if(r)goto S_14695;} S_14696:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(12545);if(r)goto S_14696;} do{ sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(12545);}while(r); } fornext_continue_2000:; } fornext_exit_2000:; 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 skip2003; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2003: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12547);}while(r); S_14701:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(12548);if(r)goto S_14701;} do{ qbg_sub_color( 8 ,NULL,NULL,1); if(!qbevent)break;evnt(12548);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("LINE ",5)); if (new_error) goto skip2004; makefit(tqbs); qbs_print(tqbs,0); skip2004: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12549);}while(r); S_14705:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(12550);if(r)goto S_14705;} do{ qbg_sub_color( 15 ,NULL,NULL,1); if(!qbevent)break;evnt(12550);}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 skip2005; makefit(tqbs); qbs_print(tqbs,0); skip2005: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12551);}while(r); S_14709:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(12552);if(r)goto S_14709;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(12552);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,__STRING_WHOLELINE); if (new_error) goto skip2006; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2006: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12553);}while(r); S_14713:; if ((*__LONG_CONSOLEMODE)||new_error){ if(qbevent){evnt(12555);if(r)goto S_14713;} do{ if(qbevent){evnt(12555);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12555);}while(r); } do{ if(qbevent){evnt(12556);} exit_code= 1 ; sub_end(); if(!qbevent)break;evnt(12556);}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_14717:; fornext_value2008= 1 ; fornext_finalvalue2008=func__commandcount(); fornext_step2008= 1 ; if (fornext_step2008<0) fornext_step_negative2008=1; else fornext_step_negative2008=0; if (new_error) goto fornext_error2008; goto fornext_entrylabel2008; while(1){ fornext_value2008=fornext_step2008+(*_FUNC_PARSECMDLINEARGS_LONG_I); fornext_entrylabel2008: *_FUNC_PARSECMDLINEARGS_LONG_I=fornext_value2008; if (fornext_step_negative2008){ if (fornext_value2008fornext_finalvalue2008) break; } fornext_error2008:; if(qbevent){evnt(12562);if(r)goto S_14717;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12563);}while(r); S_14719:; 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(12564);if(r)goto S_14719;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("-?",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12564);}while(r); } S_14722:; qbs_set(sc_2009,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 2 ))); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(12565);if(r)goto S_14722;} S_14723:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-?",2))))||new_error){ if(qbevent){evnt(12566);if(r)goto S_14723;} do{ sub__dest(func__console()); if(!qbevent)break;evnt(12567);}while(r); S_14725:; if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ if(qbevent){evnt(12568);if(r)goto S_14725;} do{ *__BYTE_QB64VERSIONPRINTED= -1 ; if(!qbevent)break;evnt(12568);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); if (new_error) goto skip2010; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2010: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12568);}while(r); } do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip2011: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12569);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Usage: qb64 [switches] ",29)); if (new_error) goto skip2012; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2012: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12570);}while(r); do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip2013: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12571);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Options:",8)); if (new_error) goto skip2014; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2014: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12572);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Source file to load",45)); if (new_error) goto skip2015; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2015: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12573);}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 skip2016; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2016: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12574);}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 skip2017; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2017: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12575);}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 skip2018; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2018: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12576);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" console",36)); if (new_error) goto skip2019; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2019: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12577);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" -w Show warnings",39)); if (new_error) goto skip2020; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2020: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12578);}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 skip2021; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2021: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12579);}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 skip2022; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2022: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12580);}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 skip2023; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2023: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12581);}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 skip2024; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2024: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12582);}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 skip2025; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2025: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12583);}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 skip2026; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2026: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12584);}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 skip2027; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2027: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12585);}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 skip2028; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2028: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12586);}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 skip2029; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2029: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12587);}while(r); do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip2030: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12588);}while(r); do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12589);}while(r); sc_ec_41_end:; goto sc_2009_end; } S_14750:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-c",2))))||new_error){ if(qbevent){evnt(12590);if(r)goto S_14750;} do{ *__LONG_NOIDEMODE= 1 ; if(!qbevent)break;evnt(12591);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12592);}while(r); sc_ec_42_end:; goto sc_2009_end; } S_14753:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-o",2))))||new_error){ if(qbevent){evnt(12593);if(r)goto S_14753;} S_14754:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,1))->len)> 0 )))||new_error){ if(qbevent){evnt(12594);if(r)goto S_14754;} do{ qbs_set(__STRING_OUTPUTFILE_CMD,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12594);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_I=*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ; if(!qbevent)break;evnt(12594);}while(r); } do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12595);}while(r); sc_ec_43_end:; goto sc_2009_end; } S_14759:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-x",2))))||new_error){ if(qbevent){evnt(12596);if(r)goto S_14759;} do{ *__LONG_CONSOLEMODE= 1 ; if(!qbevent)break;evnt(12597);}while(r); do{ *__LONG_NOIDEMODE= 1 ; if(!qbevent)break;evnt(12598);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12599);}while(r); sc_ec_44_end:; goto sc_2009_end; } S_14763:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-w",2))))||new_error){ if(qbevent){evnt(12600);if(r)goto S_14763;} do{ *__BYTE_SHOWWARNINGS= -1 ; if(!qbevent)break;evnt(12601);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12602);}while(r); sc_ec_45_end:; goto sc_2009_end; } S_14766:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-q",2))))||new_error){ if(qbevent){evnt(12603);if(r)goto S_14766;} do{ *__BYTE_QUIETMODE= -1 ; if(!qbevent)break;evnt(12604);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12605);}while(r); sc_ec_46_end:; goto sc_2009_end; } S_14769:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-m",2))))||new_error){ if(qbevent){evnt(12606);if(r)goto S_14769;} do{ *__BYTE_MONOCHROMELOGGINGMODE= -1 ; if(!qbevent)break;evnt(12607);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12608);}while(r); sc_ec_47_end:; goto sc_2009_end; } S_14772:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-e",2))))||new_error){ if(qbevent){evnt(12609);if(r)goto S_14772;} do{ *__BYTE_OPTIONEXPLICIT_CMD= -1 ; if(!qbevent)break;evnt(12610);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12611);}while(r); sc_ec_48_end:; goto sc_2009_end; } S_14775:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-s",2))))||new_error){ if(qbevent){evnt(12612);if(r)goto S_14775;} do{ *_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE= -1 ; if(!qbevent)break;evnt(12613);}while(r); do{ sub__dest(func__console()); if(!qbevent)break;evnt(12614);}while(r); S_14778:; if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ if(qbevent){evnt(12615);if(r)goto S_14778;} do{ *__BYTE_QB64VERSIONPRINTED= -1 ; if(!qbevent)break;evnt(12615);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); if (new_error) goto skip2031; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2031: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12615);}while(r); } S_14782:; qbs_set(sc_2032,qbs_lcase(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(12616);if(r)goto S_14782;} S_14783:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(12617);if(r)goto S_14783;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",16)); if (new_error) goto skip2033; makefit(tqbs); qbs_print(tqbs,0); skip2033: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12618);}while(r); S_14785:; if ((*__LONG_IDEDEBUGINFO)||new_error){ if(qbevent){evnt(12619);if(r)goto S_14785;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("true",4)); if (new_error) goto skip2034; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2034: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12619);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("false",5)); if (new_error) goto skip2035; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2035: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12619);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); if (new_error) goto skip2036; makefit(tqbs); qbs_print(tqbs,0); skip2036: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12620);}while(r); S_14791:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(12621);if(r)goto S_14791;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("true",4)); if (new_error) goto skip2037; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2037: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12621);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("false",5)); if (new_error) goto skip2038; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2038: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12621);}while(r); } do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12622);}while(r); sc_ec_49_end:; goto sc_2032_end; } S_14797:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":exewithsource",14))))||new_error){ if(qbevent){evnt(12623);if(r)goto S_14797;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); if (new_error) goto skip2039; makefit(tqbs); qbs_print(tqbs,0); skip2039: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12624);}while(r); S_14799:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(12625);if(r)goto S_14799;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("true",4)); if (new_error) goto skip2040; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2040: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12625);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("false",5)); if (new_error) goto skip2041; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2041: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12625);}while(r); } do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12626);}while(r); sc_ec_50_end:; goto sc_2032_end; } S_14805:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":exewithsource=true",19))))||new_error){ if(qbevent){evnt(12627);if(r)goto S_14805;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12628);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("exewithsource = true",20)); if (new_error) goto skip2042; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2042: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12629);}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE= -1 ; if(!qbevent)break;evnt(12630);}while(r); sc_ec_51_end:; goto sc_2032_end; } S_14809:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":exewithsource=false",20))))||new_error){ if(qbevent){evnt(12631);if(r)goto S_14809;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12632);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("exewithsource = false",21)); if (new_error) goto skip2043; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2043: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12633);}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE= 0 ; if(!qbevent)break;evnt(12634);}while(r); sc_ec_52_end:; goto sc_2032_end; } S_14813:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":debuginfo",10))))||new_error){ if(qbevent){evnt(12635);if(r)goto S_14813;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",12)); if (new_error) goto skip2044; makefit(tqbs); qbs_print(tqbs,0); skip2044: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12636);}while(r); S_14815:; if ((*__LONG_IDEDEBUGINFO)||new_error){ if(qbevent){evnt(12637);if(r)goto S_14815;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("true",4)); if (new_error) goto skip2045; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2045: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12637);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("false",5)); if (new_error) goto skip2046; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2046: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12637);}while(r); } do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12638);}while(r); sc_ec_53_end:; goto sc_2032_end; } S_14821:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":debuginfo=true",15))))||new_error){ if(qbevent){evnt(12639);if(r)goto S_14821;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("debuginfo = true",16)); if (new_error) goto skip2047; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2047: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12640);}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",58)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12641);}while(r); do{ *__LONG_IDEDEBUGINFO= 1 ; if(!qbevent)break;evnt(12642);}while(r); do{ *__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; if(!qbevent)break;evnt(12643);}while(r); S_14826:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(12644);if(r)goto S_14826;} do{ sub_chdir(qbs_new_txt_len("internal\\c",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12645);}while(r); do{ sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12646);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12647);}while(r); } S_14831:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(12649);if(r)goto S_14831;} do{ sub_chdir(qbs_new_txt_len("./internal/c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12650);}while(r); S_14833:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12652);if(r)goto S_14833;} do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12653);}while(r); }else{ do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12655);}while(r); } do{ sub_chdir(qbs_new_txt_len("../..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12657);}while(r); } sc_ec_54_end:; goto sc_2032_end; } S_14840:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2032,qbs_new_txt_len(":debuginfo=false",16))))||new_error){ if(qbevent){evnt(12659);if(r)goto S_14840;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("debuginfo = false",17)); if (new_error) goto skip2048; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2048: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12660);}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12661);}while(r); do{ *__LONG_IDEDEBUGINFO= 0 ; if(!qbevent)break;evnt(12662);}while(r); do{ *__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; if(!qbevent)break;evnt(12663);}while(r); S_14845:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(12664);if(r)goto S_14845;} do{ sub_chdir(qbs_new_txt_len("internal\\c",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12665);}while(r); do{ sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12666);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12667);}while(r); } S_14850:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(12669);if(r)goto S_14850;} do{ sub_chdir(qbs_new_txt_len("./internal/c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12670);}while(r); S_14852:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12672);if(r)goto S_14852;} do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12673);}while(r); }else{ do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12675);}while(r); } do{ sub_chdir(qbs_new_txt_len("../..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12677);}while(r); } sc_ec_55_end:; goto sc_2032_end; } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Invalid settings switch: ",25)); if (new_error) goto skip2049; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); if (new_error) goto skip2049; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2049: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12680);}while(r); do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); skip2050: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12681);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Valid switches:",15)); if (new_error) goto skip2051; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2051: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12682);}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 skip2052; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2052: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12683);}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 skip2053; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip2053: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12684);}while(r); do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12685);}while(r); sc_2032_end:; do{ sub__dest( 0 ); if(!qbevent)break;evnt(12687);}while(r); sc_ec_56_end:; goto sc_2009_end; } S_14868:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-l",2))))||new_error){ if(qbevent){evnt(12688);if(r)goto S_14868;} S_14869:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 , 1 ,1),qbs_new_txt_len(":",1))))||new_error){ if(qbevent){evnt(12689);if(r)goto S_14869;} 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(12689);}while(r); } do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12690);}while(r); sc_ec_57_end:; goto sc_2009_end; } S_14873:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-p",2))))||new_error){ if(qbevent){evnt(12691);if(r)goto S_14873;} S_14874:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(12692);if(r)goto S_14874;} do{ sub_chdir(qbs_new_txt_len("internal\\c",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12693);}while(r); do{ sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12694);}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12695);}while(r); } S_14879:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(12697);if(r)goto S_14879;} do{ sub_chdir(qbs_new_txt_len("./internal/c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12698);}while(r); S_14881:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(12700);if(r)goto S_14881;} do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12701);}while(r); }else{ do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12703);}while(r); } do{ sub_chdir(qbs_new_txt_len("../..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12705);}while(r); } do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12707);}while(r); sc_ec_58_end:; goto sc_2009_end; } S_14889:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2009,qbs_new_txt_len("-z",2))))||new_error){ if(qbevent){evnt(12708);if(r)goto S_14889;} do{ *__LONG_NO_C_COMPILE_MODE= 1 ; if(!qbevent)break;evnt(12709);}while(r); do{ *__LONG_CONSOLEMODE= 1 ; if(!qbevent)break;evnt(12710);}while(r); do{ *__LONG_NOIDEMODE= 1 ; if(!qbevent)break;evnt(12711);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; if(!qbevent)break;evnt(12712);}while(r); sc_ec_59_end:; goto sc_2009_end; } S_14895:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(12714);if(r)goto S_14895;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12714);}while(r); } sc_2009_end:; fornext_continue_2007:; } fornext_exit_2007:; S_14900:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME->len))||new_error){ if(qbevent){evnt(12718);if(r)goto S_14900;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12719);}while(r); }else{ S_14903:; if (((-(*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH== 0 ))&(-(*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE== -1 )))||new_error){ if(qbevent){evnt(12721);if(r)goto S_14903;} do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(12721);}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; } 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 "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{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T= 0 ; if(!qbevent)break;evnt(12726);}while(r); S_14908:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISARRAY)||new_error){ if(qbevent){evnt(12727);if(r)goto S_14908;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 65536 ; if(!qbevent)break;evnt(12727);}while(r); } S_14911:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(12728);if(r)goto S_14911;} S_14912:; if ((-((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )== 1 ))||new_error){ if(qbevent){evnt(12729);if(r)goto S_14912;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 4096 ; if(!qbevent)break;evnt(12730);}while(r); }else{ do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 32768 ; if(!qbevent)break;evnt(12732);}while(r); } }else{ S_14918:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(12735);if(r)goto S_14918;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 512 ; if(!qbevent)break;evnt(12736);}while(r); }else{ S_14921:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(12738);if(r)goto S_14921;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 256 ; if(!qbevent)break;evnt(12739);}while(r); }else{ do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 128 ; if(!qbevent)break;evnt(12741);}while(r); S_14925:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(12742);if(r)goto S_14925;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 1024 ; if(!qbevent)break;evnt(12742);}while(r); } S_14928:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(12743);if(r)goto S_14928;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 8192 ; if(!qbevent)break;evnt(12743);}while(r); } } do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S=(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )/ 8 ; if(!qbevent)break;evnt(12745);}while(r); S_14933:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 1 ))||new_error){ if(qbevent){evnt(12746);if(r)goto S_14933;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12746);}while(r); } S_14936:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 2 ))||new_error){ if(qbevent){evnt(12747);if(r)goto S_14936;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12747);}while(r); } S_14939:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 4 ))||new_error){ if(qbevent){evnt(12748);if(r)goto S_14939;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12748);}while(r); } S_14942:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 8 ))||new_error){ if(qbevent){evnt(12749);if(r)goto S_14942;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12749);}while(r); } S_14945:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 16 ))||new_error){ if(qbevent){evnt(12750);if(r)goto S_14945;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12750);}while(r); } S_14948:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 32 ))||new_error){ if(qbevent){evnt(12751);if(r)goto S_14948;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12751);}while(r); } S_14951:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 64 ))||new_error){ if(qbevent){evnt(12752);if(r)goto S_14951;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; if(!qbevent)break;evnt(12752);}while(r); } } } do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T; if(!qbevent)break;evnt(12755);}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; return *_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE; } 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 "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; S_14957:; fornext_value2057=_FUNC_FILEHASEXTENSION_STRING_F->len; fornext_finalvalue2057= 1 ; fornext_step2057= -1 ; if (fornext_step2057<0) fornext_step_negative2057=1; else fornext_step_negative2057=0; if (new_error) goto fornext_error2057; goto fornext_entrylabel2057; while(1){ fornext_value2057=fornext_step2057+(*_FUNC_FILEHASEXTENSION_LONG_I); fornext_entrylabel2057: *_FUNC_FILEHASEXTENSION_LONG_I=fornext_value2057; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2057){ if (fornext_value2057fornext_finalvalue2057) break; } fornext_error2057:; if(qbevent){evnt(12759);if(r)goto S_14957;} 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(12760);}while(r); S_14959:; if (((-(*_FUNC_FILEHASEXTENSION_LONG_A== 47 ))|(-(*_FUNC_FILEHASEXTENSION_LONG_A== 92 )))||new_error){ if(qbevent){evnt(12761);if(r)goto S_14959;} do{ goto fornext_exit_2056; if(!qbevent)break;evnt(12761);}while(r); } S_14962:; if ((-(*_FUNC_FILEHASEXTENSION_LONG_A== 46 ))||new_error){ if(qbevent){evnt(12762);if(r)goto S_14962;} do{ *_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION= -1 ; if(!qbevent)break;evnt(12762);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(12762);}while(r); } fornext_continue_2056:; } fornext_exit_2056:; 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; 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 "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; S_14967:; fornext_value2061=_FUNC_REMOVEFILEEXTENSION_STRING_F->len; fornext_finalvalue2061= 1 ; fornext_step2061= -1 ; if (fornext_step2061<0) fornext_step_negative2061=1; else fornext_step_negative2061=0; if (new_error) goto fornext_error2061; goto fornext_entrylabel2061; while(1){ fornext_value2061=fornext_step2061+(*_FUNC_REMOVEFILEEXTENSION_LONG_I); fornext_entrylabel2061: *_FUNC_REMOVEFILEEXTENSION_LONG_I=fornext_value2061; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2061){ if (fornext_value2061fornext_finalvalue2061) break; } fornext_error2061:; if(qbevent){evnt(12767);if(r)goto S_14967;} 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(12768);}while(r); S_14969:; if (((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 92 )))||new_error){ if(qbevent){evnt(12769);if(r)goto S_14969;} do{ goto fornext_exit_2060; if(!qbevent)break;evnt(12769);}while(r); } S_14972:; if ((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 46 ))||new_error){ if(qbevent){evnt(12770);if(r)goto S_14972;} 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(12770);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(12770);}while(r); } fornext_continue_2060:; } fornext_exit_2060:; do{ qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,_FUNC_REMOVEFILEEXTENSION_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12772);}while(r); 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; qbs_maketmp(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION);return _FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION; } 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 "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{ *_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED; if(!qbevent)break;evnt(12782);}while(r); do{ *__INTEGER_DIMSHARED= 0 ; if(!qbevent)break;evnt(12782);}while(r); S_14980:; if ((-(*__LONG_AUTOARRAY== 1 ))||new_error){ if(qbevent){evnt(12784);if(r)goto S_14980;} do{ *__LONG_AUTOARRAY= 0 ; if(!qbevent)break;evnt(12784);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ; if(!qbevent)break;evnt(12784);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12786);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12791);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12791);}while(r); S_14987:; if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||new_error){ if(qbevent){evnt(12792);if(r)goto S_14987;} do{ *_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ; if(!qbevent)break;evnt(12792);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ; if(!qbevent)break;evnt(12792);}while(r); } S_14991:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||new_error){ if(qbevent){evnt(12794);if(r)goto S_14991;} 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(12795);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ; if(!qbevent)break;evnt(12796);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_NUME= 1 ; if(!qbevent)break;evnt(12797);}while(r); S_14995:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||new_error){ if(qbevent){evnt(12798);if(r)goto S_14995;} do{ goto LABEL_UNDEFINEDARRAY; if(!qbevent)break;evnt(12798);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ; if(!qbevent)break;evnt(12799);}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(12800);}while(r); do{ goto LABEL_UNDEFINEDARRAY; if(!qbevent)break;evnt(12801);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_NUME= 1 ; if(!qbevent)break;evnt(12806);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12807);}while(r); S_15004:; fornext_value2068= 1 ; fornext_finalvalue2068=*_FUNC_ALLOCARRAY_LONG_N; fornext_step2068= 1 ; if (fornext_step2068<0) fornext_step_negative2068=1; else fornext_step_negative2068=0; if (new_error) goto fornext_error2068; goto fornext_entrylabel2068; while(1){ fornext_value2068=fornext_step2068+(*_FUNC_ALLOCARRAY_LONG_I); fornext_entrylabel2068: *_FUNC_ALLOCARRAY_LONG_I=fornext_value2068; if (fornext_step_negative2068){ if (fornext_value2068fornext_finalvalue2068) break; } fornext_error2068:; if(qbevent){evnt(12808);if(r)goto S_15004;} 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(12809);}while(r); S_15006:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(12810);if(r)goto S_15006;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; if(!qbevent)break;evnt(12810);}while(r); } S_15009:; 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(12811);if(r)goto S_15009;} do{ *_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ; if(!qbevent)break;evnt(12811);}while(r); } S_15012:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(12812);if(r)goto S_15012;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; if(!qbevent)break;evnt(12812);}while(r); } fornext_continue_2067:; } fornext_exit_2067:; S_15016:; if (( 0 )||new_error){ if(qbevent){evnt(12814);if(r)goto S_15016;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2069; sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0 , 0 , 0 ); if (new_error) goto skip2069; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1 , 0 , 1 ); if (new_error) goto skip2069; skip2069: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12814);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ; if(!qbevent)break;evnt(12816);}while(r); S_15020:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(12817);if(r)goto S_15020;} S_15021:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_ALLOCARRAY_LONG_NUME))||new_error){ if(qbevent){evnt(12818);if(r)goto S_15021;} S_15022:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ if(qbevent){evnt(12820);if(r)goto S_15022;} S_15023:; 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(12821);if(r)goto S_15023;} 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(12821);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(12821);}while(r); } S_15027:; if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||new_error){ if(qbevent){evnt(12822);if(r)goto S_15027;} do{ *(int16*)(((char*)__UDT_ID)+(516))= 1 ; if(!qbevent)break;evnt(12822);}while(r); do{ *(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+516))= 1 ; if(!qbevent)break;evnt(12822);}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(12823);}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(12825);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(12825);}while(r); } } S_15037:; if ((*(int16*)(((char*)__UDT_ID)+(518)))||new_error){ if(qbevent){evnt(12829);if(r)goto S_15037;} do{ *_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ; if(!qbevent)break;evnt(12829);}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(12832);}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(12834);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12835);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ; if(!qbevent)break;evnt(12836);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 ); if(!qbevent)break;evnt(12837);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CURE= 1 ; if(!qbevent)break;evnt(12838);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12839);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12839);}while(r); S_15049:; fornext_value2071= 1 ; fornext_finalvalue2071=*_FUNC_ALLOCARRAY_LONG_N; fornext_step2071= 1 ; if (fornext_step2071<0) fornext_step_negative2071=1; else fornext_step_negative2071=0; if (new_error) goto fornext_error2071; goto fornext_entrylabel2071; while(1){ fornext_value2071=fornext_step2071+(*_FUNC_ALLOCARRAY_LONG_I); fornext_entrylabel2071: *_FUNC_ALLOCARRAY_LONG_I=fornext_value2071; if (fornext_step_negative2071){ if (fornext_value2071fornext_finalvalue2071) break; } fornext_error2071:; if(qbevent){evnt(12840);if(r)goto S_15049;} 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(12841);}while(r); S_15051:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(12842);if(r)goto S_15051;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; if(!qbevent)break;evnt(12842);}while(r); } S_15054:; 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(12843);if(r)goto S_15054;} S_15055:; if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ if(qbevent){evnt(12844);if(r)goto S_15055;} 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(12844);}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(12845);}while(r); S_15059:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(12846);if(r)goto S_15059;} 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(12846);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ; if(!qbevent)break;evnt(12850);}while(r); S_15063:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(12851);if(r)goto S_15063;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_STR2(&(pass2074=*__INTEGER_OPTIONBASE+ 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12851);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ; if(!qbevent)break;evnt(12851);}while(r); } do{ *__INTEGER_CONSTEQUATION= 1 ; if(!qbevent)break;evnt(12852);}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(12854);}while(r); S_15069:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(12855);if(r)goto S_15069;} do{ goto exit_subfunc; if(!qbevent)break;evnt(12855);}while(r); } S_15072:; if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||new_error){ if(qbevent){evnt(12856);if(r)goto S_15072;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12856);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2075= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12857);}while(r); S_15076:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(12858);if(r)goto S_15076;} do{ goto exit_subfunc; if(!qbevent)break;evnt(12858);}while(r); } S_15079:; if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ if(qbevent){evnt(12860);if(r)goto S_15079;} do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; if(!qbevent)break;evnt(12860);}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(12861);}while(r); do{ *__INTEGER_CONSTEQUATION= 1 ; if(!qbevent)break;evnt(12863);}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(12865);}while(r); S_15085:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(12866);if(r)goto S_15085;} do{ goto exit_subfunc; if(!qbevent)break;evnt(12866);}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(12867);}while(r); S_15089:; if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ if(qbevent){evnt(12868);if(r)goto S_15089;} 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(12868);}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(12868);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2076= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12869);}while(r); S_15095:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(12870);if(r)goto S_15095;} do{ goto exit_subfunc; if(!qbevent)break;evnt(12870);}while(r); } S_15098:; if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ if(qbevent){evnt(12872);if(r)goto S_15098;} do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; if(!qbevent)break;evnt(12872);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; if(!qbevent)break;evnt(12873);}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(&(pass2077=*_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(12874);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; if(!qbevent)break;evnt(12875);}while(r); S_15104:; if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||new_error){ if(qbevent){evnt(12877);if(r)goto S_15104;} 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(12879);}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(&(pass2078=*_FUNC_ALLOCARRAY_LONG_EI+ 4 ))),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2079=*_FUNC_ALLOCARRAY_LONG_EI+ 3 ))),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12881);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; if(!qbevent)break;evnt(12883);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; if(!qbevent)break;evnt(12884);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ; if(!qbevent)break;evnt(12885);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ; if(!qbevent)break;evnt(12886);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12887);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12887);}while(r); do{ goto LABEL_AANEXTE; if(!qbevent)break;evnt(12888);}while(r); } S_15117:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(12890);if(r)goto S_15117;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; if(!qbevent)break;evnt(12890);}while(r); } S_15120:; 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(12891);if(r)goto S_15120;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12892);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12893);}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(12895);}while(r); } LABEL_AANEXTE:; if(qbevent){evnt(12897);r=0;} fornext_continue_2070:; } fornext_exit_2070:; 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(12899);}while(r); LABEL_UNDEFINEDARRAY:; if(qbevent){evnt(12901);r=0;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 0 ; if(!qbevent)break;evnt(12904);}while(r); S_15129:; if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ if(qbevent){evnt(12905);if(r)goto S_15129;} S_15130:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(12906);if(r)goto S_15130;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; if(!qbevent)break;evnt(12906);}while(r); } }else{ S_15134:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__INTEGER_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(12908);if(r)goto S_15134;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; if(!qbevent)break;evnt(12908);}while(r); } } do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS; if(!qbevent)break;evnt(12911);}while(r); S_15139:; if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||new_error){ if(qbevent){evnt(12912);if(r)goto S_15139;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12912);}while(r); } S_15142:; if ((-(*__LONG_DIMSTATIC== 3 ))||new_error){ if(qbevent){evnt(12913);if(r)goto S_15142;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12913);}while(r); } S_15145:; if ((*__INTEGER_DYNAMICMODE)||new_error){ if(qbevent){evnt(12914);if(r)goto S_15145;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12914);}while(r); } S_15148:; if ((*__INTEGER_REDIMOPTION)||new_error){ if(qbevent){evnt(12915);if(r)goto S_15148;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12915);}while(r); } S_15151:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ if(qbevent){evnt(12916);if(r)goto S_15151;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12916);}while(r); } S_15154:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(12918);if(r)goto S_15154;} S_15155:; if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||new_error){ if(qbevent){evnt(12919);if(r)goto S_15155;} S_15156:; if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||new_error){ if(qbevent){evnt(12920);if(r)goto S_15156;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12920);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(12920);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; if(!qbevent)break;evnt(12921);}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(12930);}while(r); S_15164:; if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||new_error){ if(qbevent){evnt(12931);if(r)goto S_15164;} do{ *_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE); if(!qbevent)break;evnt(12932);}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(12933);}while(r); } S_15168:; if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ if(qbevent){evnt(12938);if(r)goto S_15168;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2081; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip2081; skip2081: 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= 13 ; if (new_error) goto skip2082; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip2082; skip2082: 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= 13 ; if (new_error) goto skip2083; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),FUNC_STR2(&(pass2084=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )))),qbs_new_txt_len("*ptrsz);",8)), 0 , 0 , 1 ); if (new_error) goto skip2083; skip2083: 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= 13 ; if (new_error) goto skip2085; sub_file_print(tmp_fileno,qbs_new_txt_len("new_mem_lock();",15), 0 , 0 , 1 ); if (new_error) goto skip2085; skip2085: 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= 13 ; if (new_error) goto skip2086; sub_file_print(tmp_fileno,qbs_new_txt_len("mem_lock_tmp->type=4;",21), 0 , 0 , 1 ); if (new_error) goto skip2086; skip2086: 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= 13 ; if (new_error) goto skip2087; sub_file_print(tmp_fileno,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(&(pass2088=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)), 0 , 0 , 1 ); if (new_error) goto skip2087; skip2087: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12945);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12949);}while(r); S_15177:; fornext_value2090= 1 ; fornext_finalvalue2090=*_FUNC_ALLOCARRAY_LONG_NUME; fornext_step2090= 1 ; if (fornext_step2090<0) fornext_step_negative2090=1; else fornext_step_negative2090=0; if (new_error) goto fornext_error2090; goto fornext_entrylabel2090; while(1){ fornext_value2090=fornext_step2090+(*_FUNC_ALLOCARRAY_LONG_I); fornext_entrylabel2090: *_FUNC_ALLOCARRAY_LONG_I=fornext_value2090; if (fornext_step_negative2090){ if (fornext_value2090fornext_finalvalue2090) break; } fornext_error2090:; if(qbevent){evnt(12950);if(r)goto S_15177;} S_15178:; if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||new_error){ if(qbevent){evnt(12951);if(r)goto S_15178;} 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(12951);}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(&(pass2091=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12952);}while(r); fornext_continue_2089:; } fornext_exit_2089:; do{ qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12954);}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(12955);}while(r); S_15185:; if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||new_error){ if(qbevent){evnt(12960);if(r)goto S_15185;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2092; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_SD, 0 , 0 , 1 ); if (new_error) goto skip2092; skip2092: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12962);}while(r); S_15187:; if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||new_error){ if(qbevent){evnt(12967);if(r)goto S_15187;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2093; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34)), 0 , 0 , 1 ); if (new_error) goto skip2093; skip2093: 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= 13 ; if (new_error) goto skip2094; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2094; skip2094: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12972);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2095; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20)), 0 , 0 , 1 ); if (new_error) goto skip2095; skip2095: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12974);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2096; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2096; skip2096: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12976);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2097; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10)), 0 , 0 , 1 ); if (new_error) goto skip2097; skip2097: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12978);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2098; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2098; skip2098: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12981);}while(r); S_15195:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ if(qbevent){evnt(12982);if(r)goto S_15195;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2099; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2099; skip2099: 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= 13 ; if (new_error) goto skip2100; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); if (new_error) goto skip2100; skip2100: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12985);}while(r); S_15198:; if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||new_error){ if(qbevent){evnt(12986);if(r)goto S_15198;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2101; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2101; skip2101: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12987);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2102; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2102; skip2102: 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= 13 ; if (new_error) goto skip2103; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2103; skip2103: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12991);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2104; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2104; skip2104: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12994);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2105; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8)), 0 , 0 , 1 ); if (new_error) goto skip2105; skip2105: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12996);}while(r); } S_15209:; 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(12999);if(r)goto S_15209;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2106; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2106; skip2106: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13000);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2107; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); if (new_error) goto skip2107; skip2107: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13001);}while(r); do{ SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2108= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13002);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2109; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_ACC, 0 , 0 , 1 ); if (new_error) goto skip2109; skip2109: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13003);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2110; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2110; skip2110: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13004);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2111; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2111; skip2111: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13008);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ; if(!qbevent)break;evnt(13009);}while(r); } S_15219:; if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||new_error){ if(qbevent){evnt(13014);if(r)goto S_15219;} S_15220:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ if(qbevent){evnt(13016);if(r)goto S_15220;} 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(13021);}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(13022);}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(13023);}while(r); S_15224:; if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ if(qbevent){evnt(13028);if(r)goto S_15224;} 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(13029);}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(13030);}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(13031);}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(&(pass2112=( 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(13039);}while(r); S_15230:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(13041);if(r)goto S_15230;} 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(13042);}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(13046);}while(r); S_15234:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(13048);if(r)goto S_15234;} 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(13049);}while(r); do{ goto LABEL_SKIPERASE; if(!qbevent)break;evnt(13050);}while(r); } S_15238:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ if(qbevent){evnt(13054);if(r)goto S_15238;} 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(13055);}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(13056);}while(r); } S_15242:; 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(13059);if(r)goto S_15242;} 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(13060);}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(13061);}while(r); do{ SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2113= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13062);}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(13063);}while(r); } S_15248:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ if(qbevent){evnt(13067);if(r)goto S_15248;} 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(13069);}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(13072);}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(13073);}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(13074);}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(13075);}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(13076);}while(r); } LABEL_SKIPERASE:; if(qbevent){evnt(13079);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(13081);}while(r); S_15258:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(13082);if(r)goto S_15258;} 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(13083);}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(13093);}while(r); S_15263:; 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(13094);if(r)goto S_15263;} S_15264:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(13098);if(r)goto S_15264;} 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(13099);}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(13101);}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(13104);}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(13167);if(r)goto S_15319;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2119; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--) {",19), 0 , 0 , 1 ); if (new_error) goto skip2119; skip2119: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13168);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13169);}while(r); do{ SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2120= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13170);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2121; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)), 0 , 0 , 1 ); if (new_error) goto skip2121; skip2121: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13171);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2122; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2122; skip2122: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13173);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2123; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); if (new_error) goto skip2123; skip2123: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13175);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2124; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2124; skip2124: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13176);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2125; sub_file_print(tmp_fileno,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(&(pass2126=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("] );",4)), 0 , 0 , 1 ); if (new_error) goto skip2125; skip2125: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13178);}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(13185);}while(r); S_15333:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ if(qbevent){evnt(13187);if(r)goto S_15333;} 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(13188);}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(13192);}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(13194);}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(13195);}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(13196);}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(13197);}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_finalvalue2139) break; } fornext_error2139:; if(qbevent){evnt(13256);if(r)goto S_15382;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ; if(!qbevent)break;evnt(13257);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2140; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2140; skip2140: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13258);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2141; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2142=*_FUNC_ALLOCARRAY_LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); if (new_error) goto skip2141; skip2141: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13259);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2143; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2144=*_FUNC_ALLOCARRAY_LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); if (new_error) goto skip2143; skip2143: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13260);}while(r); fornext_continue_2138:; } fornext_exit_2138:; S_15388:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ if(qbevent){evnt(13262);if(r)goto S_15388;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2145; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29)), 0 , 0 , 1 ); if (new_error) goto skip2145; skip2145: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13264);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2146; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)), 0 , 0 , 1 ); if (new_error) goto skip2146; skip2146: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13267);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2147; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2147; skip2147: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13269);}while(r); } S_15395:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ if(qbevent){evnt(13272);if(r)goto S_15395;} S_15396:; if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ if(qbevent){evnt(13274);if(r)goto S_15396;} 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(13274);}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(13275);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME; if(!qbevent)break;evnt(13279);}while(r); S_15402:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||new_error){ if(qbevent){evnt(13280);if(r)goto S_15402;} do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ; if(!qbevent)break;evnt(13280);}while(r); } } S_15406:; if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||new_error){ if(qbevent){evnt(13284);if(r)goto S_15406;} S_15407:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ if(qbevent){evnt(13285);if(r)goto S_15407;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2148; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_F12, 0 , 0 , 1 ); if (new_error) goto skip2148; skip2148: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13286);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2149; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_F12, 0 , 0 , 1 ); if (new_error) goto skip2149; skip2149: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13288);}while(r); } } do{ *__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST; if(!qbevent)break;evnt(13300);}while(r); do{ qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13302);}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_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 "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{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(13306);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,FUNC_STR2(__LONG_CURRENTID)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13316);}while(r); do{ if(!qbevent)break;evnt(13318);}while(r); do{ memcpy(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2861); if(!qbevent)break;evnt(13320);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_STRING_INDEXES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13322);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_TYP=*(int32*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(512))+*__LONG_ISARRAY+*__LONG_ISREFERENCE; if(!qbevent)break;evnt(13323);}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(13324);}while(r); S_15422:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13326);if(r)goto S_15422;} do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13327);}while(r); do{ goto LABEL_GOTARRAYINDEX; if(!qbevent)break;evnt(13328);}while(r); } do{ *_FUNC_ARRAYREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13331);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_ELEMENTS= 1 ; if(!qbevent)break;evnt(13334);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_B= 0 ; if(!qbevent)break;evnt(13335);}while(r); S_15429:; fornext_value2152= 1 ; fornext_finalvalue2152=*_FUNC_ARRAYREFERENCE_LONG_N; fornext_step2152= 1 ; if (fornext_step2152<0) fornext_step_negative2152=1; else fornext_step_negative2152=0; if (new_error) goto fornext_error2152; goto fornext_entrylabel2152; while(1){ fornext_value2152=fornext_step2152+(*_FUNC_ARRAYREFERENCE_LONG_I); fornext_entrylabel2152: *_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2152; if (fornext_step_negative2152){ if (fornext_value2152fornext_finalvalue2152) break; } fornext_error2152:; if(qbevent){evnt(13336);if(r)goto S_15429;} 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(13337);}while(r); S_15431:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 40 ))||new_error){ if(qbevent){evnt(13338);if(r)goto S_15431;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; if(!qbevent)break;evnt(13338);}while(r); } S_15434:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 41 ))||new_error){ if(qbevent){evnt(13339);if(r)goto S_15434;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; if(!qbevent)break;evnt(13339);}while(r); } S_15437:; if (((-(*_FUNC_ARRAYREFERENCE_LONG_A== 44 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))||new_error){ if(qbevent){evnt(13340);if(r)goto S_15437;} do{ *_FUNC_ARRAYREFERENCE_LONG_ELEMENTS=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS+ 1 ; if(!qbevent)break;evnt(13340);}while(r); } fornext_continue_2151:; } fornext_exit_2151:; S_15441:; if ((-(*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))== -1 ))||new_error){ if(qbevent){evnt(13343);if(r)goto S_15441;} S_15442:; 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(13344);if(r)goto S_15442;} 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(13344);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13344);}while(r); } S_15446:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS== 1 ))||new_error){ if(qbevent){evnt(13345);if(r)goto S_15446;} do{ *(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))= 1 ; if(!qbevent)break;evnt(13345);}while(r); do{ *(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+516))= 1 ; if(!qbevent)break;evnt(13345);}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(13346);}while(r); }else{ S_15452:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))))||new_error){ if(qbevent){evnt(13348);if(r)goto S_15452;} 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(13348);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13348);}while(r); } } do{ *_FUNC_ARRAYREFERENCE_LONG_CURARG= 1 ; if(!qbevent)break;evnt(13351);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_FIRSTI= 1 ; if(!qbevent)break;evnt(13352);}while(r); S_15459:; fornext_value2154= 1 ; fornext_finalvalue2154=*_FUNC_ARRAYREFERENCE_LONG_N; fornext_step2154= 1 ; if (fornext_step2154<0) fornext_step_negative2154=1; else fornext_step_negative2154=0; if (new_error) goto fornext_error2154; goto fornext_entrylabel2154; while(1){ fornext_value2154=fornext_step2154+(*_FUNC_ARRAYREFERENCE_LONG_I); fornext_entrylabel2154: *_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2154; if (fornext_step_negative2154){ if (fornext_value2154fornext_finalvalue2154) break; } fornext_error2154:; if(qbevent){evnt(13353);if(r)goto S_15459;} 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(13354);}while(r); S_15461:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(13355);if(r)goto S_15461;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; if(!qbevent)break;evnt(13355);}while(r); } S_15464:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(13356);if(r)goto S_15464;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; if(!qbevent)break;evnt(13356);}while(r); } S_15467:; 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(13357);if(r)goto S_15467;} S_15468:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))||new_error){ if(qbevent){evnt(13358);if(r)goto S_15468;} S_15469:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(13359);if(r)goto S_15469;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13359);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13359);}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),&(pass2155= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13360);}while(r); S_15474:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13361);if(r)goto S_15474;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13361);}while(r); } }else{ do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2156=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2157= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13363);}while(r); S_15479:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13364);if(r)goto S_15479;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13364);}while(r); } } S_15483:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13366);if(r)goto S_15483;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13366);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13366);}while(r); } do{ *_FUNC_ARRAYREFERENCE_LONG_ARGI=((*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS-*_FUNC_ARRAYREFERENCE_LONG_CURARG)* 4 )+( 4 ); if(!qbevent)break;evnt(13367);}while(r); S_15488:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(13368);if(r)goto S_15488;} S_15489:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(13369);if(r)goto S_15489;} 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(&(pass2158=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])+",3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13370);}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(13372);}while(r); } }else{ S_15495:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(13376);if(r)goto S_15495;} 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(&(pass2159=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2160=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13377);}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(&(pass2161=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13379);}while(r); } } do{ *_FUNC_ARRAYREFERENCE_LONG_FIRSTI=*_FUNC_ARRAYREFERENCE_LONG_I+ 1 ; if(!qbevent)break;evnt(13382);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_CURARG=*_FUNC_ARRAYREFERENCE_LONG_CURARG+ 1 ; if(!qbevent)break;evnt(13383);}while(r); } fornext_continue_2153:; } fornext_exit_2153:; 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(13386);}while(r); LABEL_GOTARRAYINDEX:; if(qbevent){evnt(13387);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(13389);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE,_FUNC_ARRAYREFERENCE_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13390);}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; 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 "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; S_15508:; fornext_value2165= 1 ; fornext_finalvalue2165=*_SUB_ASSIGN_LONG_N; fornext_step2165= 1 ; if (fornext_step2165<0) fornext_step_negative2165=1; else fornext_step_negative2165=0; if (new_error) goto fornext_error2165; goto fornext_entrylabel2165; while(1){ fornext_value2165=fornext_step2165+(*_SUB_ASSIGN_LONG_I); fornext_entrylabel2165: *_SUB_ASSIGN_LONG_I=fornext_value2165; if (fornext_step_negative2165){ if (fornext_value2165fornext_finalvalue2165) break; } fornext_error2165:; if(qbevent){evnt(13396);if(r)goto S_15508;} 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(13397);}while(r); S_15510:; if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||new_error){ if(qbevent){evnt(13398);if(r)goto S_15510;} do{ *_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ; if(!qbevent)break;evnt(13398);}while(r); } S_15513:; if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||new_error){ if(qbevent){evnt(13399);if(r)goto S_15513;} do{ *_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ; if(!qbevent)break;evnt(13399);}while(r); } S_15516:; if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||new_error){ if(qbevent){evnt(13400);if(r)goto S_15516;} S_15517:; if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||new_error){ if(qbevent){evnt(13401);if(r)goto S_15517;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13401);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13401);}while(r); } S_15521:; if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||new_error){ if(qbevent){evnt(13402);if(r)goto S_15521;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13402);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13402);}while(r); } do{ qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2166= 1 ),&(pass2167=*_SUB_ASSIGN_LONG_I- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13404);}while(r); S_15526:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13405);if(r)goto S_15526;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13405);}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(13406);}while(r); S_15530:; if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||new_error){ if(qbevent){evnt(13409);if(r)goto S_15530;} do{ *_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13410);}while(r); S_15532:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13411);if(r)goto S_15532;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13411);}while(r); } S_15535:; while((*_SUB_ASSIGN_LONG_TRY)||new_error){ if(qbevent){evnt(13412);if(r)goto S_15535;} S_15536:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ if(qbevent){evnt(13413);if(r)goto S_15536;} S_15537:; if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))||new_error){ if(qbevent){evnt(13414);if(r)goto S_15537;} S_15538:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(13415);if(r)goto S_15538;} do{ SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13416);}while(r); do{ goto LABEL_ASSIGNSIMPLEVARIABLE; if(!qbevent)break;evnt(13417);}while(r); } } } S_15544:; if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(13421);if(r)goto S_15544;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(13421);}while(r); do{ *_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13421);}while(r); }else{ do{ *_SUB_ASSIGN_LONG_TRY= 0 ; if(!qbevent)break;evnt(13421);}while(r); } S_15550:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13422);if(r)goto S_15550;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13422);}while(r); } dl_continue_2168:; } dl_exit_2168:; } 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(13426);}while(r); S_15556:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13426);if(r)goto S_15556;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13426);}while(r); } LABEL_ASSIGNSIMPLEVARIABLE:; if(qbevent){evnt(13427);r=0;} S_15559:; if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(13428);if(r)goto S_15559;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13428);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13428);}while(r); } do{ SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2169=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2170= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13429);}while(r); S_15564:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13430);if(r)goto S_15564;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13430);}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(13431);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13433);}while(r); } fornext_continue_2164:; } fornext_exit_2164:; do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13437);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13437);}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; } 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 "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{ memcpy(((char*)__UDT_ID)+(0)+ 0,((char*)__UDT_CLEARIDDATA)+(0)+ 0, 2861); if(!qbevent)break;evnt(13441);}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; } 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 "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{ SUB_XEND(); if(!qbevent)break;evnt(13445);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2171; sub_file_print(tmp_fileno,qbs_new_txt_len("return;",7), 0 , 0 , 1 ); if (new_error) goto skip2171; skip2171: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13447);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2172; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2172; skip2172: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13449);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip2173; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2173; skip2173: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13450);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip2174; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2174; skip2174: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13451);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip2175; sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); if (new_error) goto skip2175; skip2175: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13452);}while(r); do{ *__INTEGER_CLOSEDMAIN= 1 ; if(!qbevent)break;evnt(13454);}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; } 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 "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; do{ *_FUNC_COUNTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_FUNC_COUNTELEMENTS_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13459);}while(r); do{ *_FUNC_COUNTELEMENTS_LONG_C= 1 ; if(!qbevent)break;evnt(13460);}while(r); S_15583:; fornext_value2178= 1 ; fornext_finalvalue2178=*_FUNC_COUNTELEMENTS_LONG_N; fornext_step2178= 1 ; if (fornext_step2178<0) fornext_step_negative2178=1; else fornext_step_negative2178=0; if (new_error) goto fornext_error2178; goto fornext_entrylabel2178; while(1){ fornext_value2178=fornext_step2178+(*_FUNC_COUNTELEMENTS_LONG_I); fornext_entrylabel2178: *_FUNC_COUNTELEMENTS_LONG_I=fornext_value2178; if (fornext_step_negative2178){ if (fornext_value2178fornext_finalvalue2178) break; } fornext_error2178:; if(qbevent){evnt(13461);if(r)goto S_15583;} 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(13462);}while(r); S_15585:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(13463);if(r)goto S_15585;} do{ *_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B+ 1 ; if(!qbevent)break;evnt(13463);}while(r); } S_15588:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(13464);if(r)goto S_15588;} do{ *_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B- 1 ; if(!qbevent)break;evnt(13464);}while(r); } S_15591:; if ((-(*_FUNC_COUNTELEMENTS_LONG_B< 0 ))||new_error){ if(qbevent){evnt(13465);if(r)goto S_15591;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected ) encountered",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13465);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13465);}while(r); } S_15595:; 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(13466);if(r)goto S_15595;} do{ *_FUNC_COUNTELEMENTS_LONG_C=*_FUNC_COUNTELEMENTS_LONG_C+ 1 ; if(!qbevent)break;evnt(13466);}while(r); } fornext_continue_2177:; } fornext_exit_2177:; do{ *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=*_FUNC_COUNTELEMENTS_LONG_C; if(!qbevent)break;evnt(13468);}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; 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 "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{ qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13493);}while(r); do{ *_FUNC_DIM2_LONG_DIM2= 1 ; if(!qbevent)break;evnt(13494);}while(r); S_15602:; if (( 0 )||new_error){ if(qbevent){evnt(13496);if(r)goto S_15602;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2182; sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0 , 1 , 0 ); if (new_error) goto skip2182; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1 , 0 , 1 ); if (new_error) goto skip2182; skip2182: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13496);}while(r); } do{ qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13498);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13499);}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(13500);}while(r); S_15608:; if ((-(*__INTEGER_DIMSFARRAY== 1 ))||new_error){ if(qbevent){evnt(13502);if(r)goto S_15608;} do{ *_FUNC_DIM2_LONG_F= 0 ; if(!qbevent)break;evnt(13502);}while(r); }else{ do{ *_FUNC_DIM2_LONG_F= 1 ; if(!qbevent)break;evnt(13502);}while(r); } S_15613:; if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||new_error){ if(qbevent){evnt(13504);if(r)goto S_15613;} do{ *__INTEGER_DEFDATAHANDLE= 18 ; if(!qbevent)break;evnt(13507);}while(r); do{ sub_close( 13 ,1); if(!qbevent)break;evnt(13508);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13508);}while(r); do{ sub_close( 19 ,1); if(!qbevent)break;evnt(13509);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13509);}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(13513);}while(r); S_15621:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ if(qbevent){evnt(13516);if(r)goto S_15621;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13516);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13516);}while(r); } S_15625:; fornext_value2185= 1 ; fornext_finalvalue2185=*__LONG_LASTTYPE; fornext_step2185= 1 ; if (fornext_step2185<0) fornext_step_negative2185=1; else fornext_step_negative2185=0; if (new_error) goto fornext_error2185; goto fornext_entrylabel2185; while(1){ fornext_value2185=fornext_step2185+(*_FUNC_DIM2_LONG_I); fornext_entrylabel2185: *_FUNC_DIM2_LONG_I=fornext_value2185; if (fornext_step_negative2185){ if (fornext_value2185fornext_finalvalue2185) break; } fornext_error2185:; if(qbevent){evnt(13520);if(r)goto S_15625;} S_15626:; 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(13521);if(r)goto S_15626;} 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(13522);}while(r); S_15628:; 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(13523);if(r)goto S_15628;} 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(13524);}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(13527);}while(r); S_15632:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13530);if(r)goto S_15632;} do{ *__INTEGER_ARRAYDESC= 0 ; if(!qbevent)break;evnt(13531);}while(r); S_15634:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13532);if(r)goto S_15634;} do{ *_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13533);}while(r); S_15636:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13534);if(r)goto S_15636;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13534);}while(r); } S_15639:; while((*_FUNC_DIM2_LONG_TRY)||new_error){ if(qbevent){evnt(13535);if(r)goto S_15639;} S_15640:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(13536);if(r)goto S_15640;} 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(13537);}while(r); do{ *__INTEGER_ARRAYDESC=*__LONG_CURRENTID; if(!qbevent)break;evnt(13538);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13538);}while(r); do{ goto dl_exit_2186; if(!qbevent)break;evnt(13539);}while(r); } S_15646:; if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(13541);if(r)goto S_15646;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(13541);}while(r); do{ *_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13541);}while(r); }else{ do{ *_FUNC_DIM2_LONG_TRY= 0 ; if(!qbevent)break;evnt(13541);}while(r); } S_15652:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13542);if(r)goto S_15652;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13542);}while(r); } dl_continue_2186:; } dl_exit_2186:; } 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(13545);}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(13546);}while(r); S_15659:; 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(13547);if(r)goto S_15659;} S_15660:; if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ if(qbevent){evnt(13548);if(r)goto S_15660;} do{ *_FUNC_DIM2_LONG_BITS=*_FUNC_DIM2_LONG_BITS+ 8 -(*_FUNC_DIM2_LONG_BITS% 8 ); if(!qbevent)break;evnt(13548);}while(r); } } S_15664:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13551);if(r)goto S_15664;} S_15665:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(13553);if(r)goto S_15665;} 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(13554);}while(r); S_15667:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(13554);if(r)goto S_15667;} 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(13554);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2188=-(*_FUNC_DIM2_LONG_BITS)),_FUNC_DIM2_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13556);}while(r); S_15672:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13557);if(r)goto S_15672;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13557);}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(13558);}while(r); S_15676:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(13559);if(r)goto S_15676;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13559);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13560);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(13563);}while(r); S_15682:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(13564);if(r)goto S_15682;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(13565);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(13566);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(13567);}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(13569);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; if(!qbevent)break;evnt(13573);}while(r); S_15691:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13574);if(r)goto S_15691;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13574);}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(13575);}while(r); S_15695:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(13577);if(r)goto S_15695;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(13577);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(13577);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(13579);}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(13580);}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(13581);}while(r); S_15702:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13582);if(r)goto S_15702;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13582);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13583);}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(13587);}while(r); do{ *_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/ 8 ; if(!qbevent)break;evnt(13587);}while(r); S_15709:; if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ if(qbevent){evnt(13588);if(r)goto S_15709;} do{ *_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ; if(!qbevent)break;evnt(13589);}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(13591);}while(r); S_15713:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13592);if(r)goto S_15713;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2189; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip2189; skip2189: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13592);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13593);}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(13594);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; if(!qbevent)break;evnt(13595);}while(r); S_15719:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13596);if(r)goto S_15719;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13597);}while(r); S_15721:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13598);if(r)goto S_15721;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2190; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2190; skip2190: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13599);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2191; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2191; skip2191: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13600);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2192; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 0 )))||new_error){ if(qbevent){evnt(13633);if(r)goto S_15756;} 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(13633);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13633);}while(r); } } do{ qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13636);}while(r); S_15762:; 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(13638);if(r)goto S_15762;} S_15763:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||new_error){ if(qbevent){evnt(13640);if(r)goto S_15763;} S_15764:; 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(13641);if(r)goto S_15764;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13641);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13641);}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(13643);}while(r); do{ *_FUNC_DIM2_LONG_HASHFOUND= 0 ; if(!qbevent)break;evnt(13646);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13647);}while(r); do{ *_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024 ; if(!qbevent)break;evnt(13648);}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(13649);}while(r); S_15773:; while((*_FUNC_DIM2_LONG_HASHRES)||new_error){ if(qbevent){evnt(13650);if(r)goto S_15773;} S_15774:; 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(13651);if(r)goto S_15774;} S_15775:; 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(13652);if(r)goto S_15775;} do{ *_FUNC_DIM2_LONG_HASHFOUND= 1 ; if(!qbevent)break;evnt(13653);}while(r); do{ goto dl_exit_2207; if(!qbevent)break;evnt(13654);}while(r); } } S_15780:; if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(13657);if(r)goto S_15780;} do{ *_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); if(!qbevent)break;evnt(13657);}while(r); }else{ do{ *_FUNC_DIM2_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(13657);}while(r); } dl_continue_2207:; } dl_exit_2207:; S_15786:; if ((*_FUNC_DIM2_LONG_HASHFOUND)||new_error){ if(qbevent){evnt(13659);if(r)goto S_15786;} do{ *_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF; if(!qbevent)break;evnt(13660);}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(13661);}while(r); S_15789:; if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(13662);if(r)goto S_15789;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13662);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13662);}while(r); } S_15793:; if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(13664);if(r)goto S_15793;} 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(13665);}while(r); do{ *_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V); if(!qbevent)break;evnt(13666);}while(r); do{ *_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; if(!qbevent)break;evnt(13667);}while(r); }else{ S_15798:; if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(13669);if(r)goto S_15798;} 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(13670);}while(r); do{ *_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V; if(!qbevent)break;evnt(13671);}while(r); do{ *_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; if(!qbevent)break;evnt(13672);}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(13674);}while(r); do{ *_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; if(!qbevent)break;evnt(13675);}while(r); do{ *_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; if(!qbevent)break;evnt(13676);}while(r); } } S_15808:; if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||new_error){ if(qbevent){evnt(13679);if(r)goto S_15808;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13679);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13679);}while(r); } do{ *_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V; if(!qbevent)break;evnt(13680);}while(r); do{ goto LABEL_CONSTANTLENSTR; if(!qbevent)break;evnt(13681);}while(r); } S_15815:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ if(qbevent){evnt(13684);if(r)goto S_15815;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13684);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13684);}while(r); } S_15819:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||new_error){ if(qbevent){evnt(13685);if(r)goto S_15819;} 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(13685);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13685);}while(r); } do{ *_FUNC_DIM2_LONG_BYTES=qbr(func_val(_FUNC_DIM2_STRING_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13686);}while(r); S_15824:; if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||new_error){ if(qbevent){evnt(13687);if(r)goto S_15824;} 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(13687);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13687);}while(r); } LABEL_CONSTANTLENSTR:; if(qbevent){evnt(13688);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(13689);}while(r); S_15829:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13692);if(r)goto S_15829;} do{ *__INTEGER_ARRAYDESC= 0 ; if(!qbevent)break;evnt(13693);}while(r); S_15831:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13694);if(r)goto S_15831;} 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(13695);}while(r); S_15833:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13696);if(r)goto S_15833;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13696);}while(r); } S_15836:; while((*_FUNC_DIM2_LONG_TRY)||new_error){ if(qbevent){evnt(13697);if(r)goto S_15836;} S_15837:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(13698);if(r)goto S_15837;} 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(13699);}while(r); do{ *__INTEGER_ARRAYDESC=*__LONG_CURRENTID; if(!qbevent)break;evnt(13700);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13700);}while(r); do{ goto dl_exit_2209; if(!qbevent)break;evnt(13701);}while(r); } S_15843:; if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(13703);if(r)goto S_15843;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(13703);}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(13703);}while(r); }else{ do{ *_FUNC_DIM2_LONG_TRY= 0 ; if(!qbevent)break;evnt(13703);}while(r); } S_15849:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13704);if(r)goto S_15849;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13704);}while(r); } dl_continue_2209:; } dl_exit_2209:; } 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(13707);}while(r); S_15855:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13713);if(r)goto S_15855;} S_15856:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(13715);if(r)goto S_15856;} 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(13716);}while(r); S_15858:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(13716);if(r)goto S_15858;} 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(13716);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2211= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13718);}while(r); S_15863:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13719);if(r)goto S_15863;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13719);}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(13720);}while(r); S_15867:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(13721);if(r)goto S_15867;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13721);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13722);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(13725);}while(r); S_15873:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(13726);if(r)goto S_15873;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(13727);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(13728);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(13729);}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(13731);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(13735);}while(r); S_15882:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13736);if(r)goto S_15882;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13736);}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(13737);}while(r); S_15886:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(13738);if(r)goto S_15886;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(13738);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(13738);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(13740);}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(13741);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; if(!qbevent)break;evnt(13742);}while(r); S_15893:; if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(13743);if(r)goto S_15893;} 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(13744);}while(r); } S_15896:; if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(13746);if(r)goto S_15896;} 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(13747);}while(r); } do{ SUB_REGID(); if(!qbevent)break;evnt(13749);}while(r); S_15900:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13750);if(r)goto S_15900;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13750);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13751);}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(13755);}while(r); S_15906:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13756);if(r)goto S_15906;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2212; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip2212; skip2212: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13756);}while(r); } S_15909:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13757);if(r)goto S_15909;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2213; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip2213; skip2213: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13757);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13758);}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(13759);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(13760);}while(r); S_15915:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13761);if(r)goto S_15915;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13762);}while(r); S_15917:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13763);if(r)goto S_15917;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2214; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2214; skip2214: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13763);}while(r); } S_15920:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13764);if(r)goto S_15920;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2215; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2215; skip2215: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13764);}while(r); } S_15923:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13765);if(r)goto S_15923;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2216; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip2218; skip2218: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13767);}while(r); } S_15932:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13768);if(r)goto S_15932;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2219; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2219; skip2219: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13768);}while(r); } }else{ S_15936:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13770);if(r)goto S_15936;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2220; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2220; skip2220: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13770);}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(13771);}while(r); S_15940:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13772);if(r)goto S_15940;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2221; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2221; skip2221: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13772);}while(r); } S_15943:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13773);if(r)goto S_15943;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2222; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2222; skip2222: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13773);}while(r); } S_15946:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13774);if(r)goto S_15946;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2223; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip2223; skip2223: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13774);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; if(!qbevent)break;evnt(13776);}while(r); S_15951:; if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(13777);if(r)goto S_15951;} 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(13778);}while(r); } S_15954:; if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(13780);if(r)goto S_15954;} 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(13781);}while(r); } do{ SUB_REGID(); if(!qbevent)break;evnt(13783);}while(r); S_15958:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13784);if(r)goto S_15958;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13784);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13785);}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(13789);}while(r); S_15964:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13792);if(r)goto S_15964;} do{ *__INTEGER_ARRAYDESC= 0 ; if(!qbevent)break;evnt(13793);}while(r); S_15966:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13794);if(r)goto S_15966;} 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(13795);}while(r); S_15968:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13796);if(r)goto S_15968;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13796);}while(r); } S_15971:; while((*_FUNC_DIM2_LONG_TRY)||new_error){ if(qbevent){evnt(13797);if(r)goto S_15971;} S_15972:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(13798);if(r)goto S_15972;} 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(13799);}while(r); do{ *__INTEGER_ARRAYDESC=*__LONG_CURRENTID; if(!qbevent)break;evnt(13800);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13800);}while(r); do{ goto dl_exit_2224; if(!qbevent)break;evnt(13801);}while(r); } S_15978:; if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(13803);if(r)goto S_15978;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(13803);}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(13803);}while(r); }else{ do{ *_FUNC_DIM2_LONG_TRY= 0 ; if(!qbevent)break;evnt(13803);}while(r); } S_15984:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13804);if(r)goto S_15984;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13804);}while(r); } dl_continue_2224:; } dl_exit_2224:; } 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(13807);}while(r); S_15990:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13813);if(r)goto S_15990;} S_15991:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(13815);if(r)goto S_15991;} 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(13816);}while(r); S_15993:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(13816);if(r)goto S_15993;} 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(13816);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2226= -2147483647 ),&(pass2227= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13818);}while(r); S_15998:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13819);if(r)goto S_15998;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13819);}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(13820);}while(r); S_16002:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(13821);if(r)goto S_16002;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13821);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13822);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(13825);}while(r); S_16008:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(13826);if(r)goto S_16008;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(13827);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(13828);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(13829);}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(13831);}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(13835);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE; if(!qbevent)break;evnt(13836);}while(r); S_16018:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13837);if(r)goto S_16018;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13837);}while(r); } S_16021:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(13838);if(r)goto S_16021;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(13838);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(13838);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(13840);}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(13841);}while(r); S_16027:; if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(13842);if(r)goto S_16027;} 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(13843);}while(r); } S_16030:; if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(13845);if(r)goto S_16030;} 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(13846);}while(r); } do{ SUB_REGID(); if(!qbevent)break;evnt(13848);}while(r); S_16034:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13849);if(r)goto S_16034;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13849);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13850);}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(13854);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(13855);}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(13856);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE; if(!qbevent)break;evnt(13857);}while(r); S_16043:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13858);if(r)goto S_16043;} S_16044:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13859);if(r)goto S_16044;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2228; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip2228; skip2228: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13859);}while(r); } S_16047:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13860);if(r)goto S_16047;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2229; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2229; skip2229: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13860);}while(r); } do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13861);}while(r); }else{ S_16052:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13863);if(r)goto S_16052;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2230; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip2230; skip2230: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13863);}while(r); } S_16055:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13864);if(r)goto S_16055;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2231; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2231; skip2231: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13864);}while(r); } } S_16059:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(13866);if(r)goto S_16059;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; if (new_error) goto skip2232; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip2232; skip2232: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13866);}while(r); } S_16062:; if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(13867);if(r)goto S_16062;} 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(13868);}while(r); } S_16065:; if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(13870);if(r)goto S_16065;} 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(13871);}while(r); } do{ SUB_REGID(); if(!qbevent)break;evnt(13873);}while(r); S_16069:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13874);if(r)goto S_16069;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13874);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13875);}while(r); } S_16074:; 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(13878);if(r)goto S_16074;} S_16075:; 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(13879);if(r)goto S_16075;} S_16076:; 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(13880);if(r)goto S_16076;} 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(13880);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13880);}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(13881);}while(r); S_16081:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ if(qbevent){evnt(13882);if(r)goto S_16081;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13882);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13882);}while(r); } S_16085:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||new_error){ if(qbevent){evnt(13883);if(r)goto S_16085;} 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(13883);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13883);}while(r); } do{ *_FUNC_DIM2_LONG_BITS=qbr(func_val(_FUNC_DIM2_STRING_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13884);}while(r); S_16090:; if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||new_error){ if(qbevent){evnt(13885);if(r)goto S_16090;} 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(13885);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13885);}while(r); } S_16094:; if ((-(*_FUNC_DIM2_LONG_BITS> 57 ))||new_error){ if(qbevent){evnt(13886);if(r)goto S_16094;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 24 bits",46)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13886);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(13886);}while(r); } }else{ do{ *_FUNC_DIM2_LONG_BITS= 1 ; if(!qbevent)break;evnt(13888);}while(r); } S_16101:; if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||new_error){ if(qbevent){evnt(13890);if(r)goto S_16101;} do{ qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13890);}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(13890);}while(r); } S_16106:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(13891);if(r)goto S_16106;} do{ qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13891);}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(13891);}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(13892);}while(r); S_16111:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(13895);if(r)goto S_16111;} do{ *__INTEGER_ARRAYDESC= 0 ; if(!qbevent)break;evnt(13896);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13897);}while(r); S_16114:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(13897);if(r)goto S_16114;} 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(13897);}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(13898);}while(r); S_16118:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13899);if(r)goto S_16118;} do{ *_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13900);}while(r); S_16120:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13901);if(r)goto S_16120;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13901);}while(r); } S_16123:; while((*_FUNC_DIM2_LONG_TRY)||new_error){ if(qbevent){evnt(13902);if(r)goto S_16123;} S_16124:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(13903);if(r)goto S_16124;} 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(13904);}while(r); do{ *__INTEGER_ARRAYDESC=*__LONG_CURRENTID; if(!qbevent)break;evnt(13905);}while(r); do{ qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13905);}while(r); do{ goto dl_exit_2236; if(!qbevent)break;evnt(13906);}while(r); } S_16130:; if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(13908);if(r)goto S_16130;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(13908);}while(r); do{ *_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13908);}while(r); }else{ do{ *_FUNC_DIM2_LONG_TRY= 0 ; if(!qbevent)break;evnt(13908);}while(r); } S_16136:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13909);if(r)goto S_16136;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13909);}while(r); } dl_continue_2236:; } dl_exit_2236:; } 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(13912);}while(r); S_16142:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(13918);if(r)goto S_16142;} S_16143:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(13920);if(r)goto S_16143;} 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(13921);}while(r); S_16145:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(13921);if(r)goto S_16145;} 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(13921);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2238=-(*_FUNC_DIM2_LONG_BITS)),&(pass2239= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13923);}while(r); S_16150:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13924);if(r)goto S_16150;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13924);}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(13925);}while(r); S_16154:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(13926);if(r)goto S_16154;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13926);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(13927);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(13930);}while(r); S_16160:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(13931);if(r)goto S_16160;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(13932);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(13933);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(13934);}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(13936);}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(13940);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS; if(!qbevent)break;evnt(13941);}while(r); S_16170:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(13942);if(r)goto S_16170;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(13942);}while(r); } S_16173:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(13943);if(r)goto S_16173;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(13943);}while(r); } S_16176:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(13944);if(r)goto S_16176;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(13944);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(13944);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(13946);}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(13947);}while(r); S_16182:; if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(13948);if(r)goto S_16182;} S_16183:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(13949);if(r)goto S_16183;} 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(13949);}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(13949);}while(r); } } S_16189:; if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(13951);if(r)goto S_16189;} S_16190:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(13952);if(r)goto S_16190;} 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(13952);}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(13952);}while(r); } } do{ SUB_REGID(); if(!qbevent)break;evnt(13954);}while(r); S_16197:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(13955);if(r)goto S_16197;} do{ goto exit_subfunc; if(!qbevent)break;evnt(13955);}while(r); } do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(13956);}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(13959);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2240; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2240; skip2240: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13960);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2241; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2241; skip2241: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13961);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2242; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); if (new_error) goto skip2242; skip2242: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(13962);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2243; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14011);if(r)goto S_16275;} 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(14012);}while(r); S_16277:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14012);if(r)goto S_16277;} 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(14012);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2249= 1 ),&(pass2250= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14014);}while(r); S_16282:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14015);if(r)goto S_16282;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14015);}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(14016);}while(r); S_16286:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14017);if(r)goto S_16286;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14017);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14018);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14021);}while(r); S_16292:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14022);if(r)goto S_16292;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14023);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14024);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14025);}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(14027);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE; if(!qbevent)break;evnt(14031);}while(r); S_16301:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14031);if(r)goto S_16301;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14031);}while(r); } S_16304:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14032);if(r)goto S_16304;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14032);}while(r); } S_16307:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14033);if(r)goto S_16307;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14033);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14033);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14035);}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(14036);}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(14038);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14039);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE; if(!qbevent)break;evnt(14040);}while(r); S_16317:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14040);if(r)goto S_16317;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14040);}while(r); } S_16320:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14041);if(r)goto S_16320;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2251; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2251; skip2251: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14041);}while(r); } S_16323:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14042);if(r)goto S_16323;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2252; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2252; skip2252: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14042);}while(r); } S_16326:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14043);if(r)goto S_16326;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14044);}while(r); S_16328:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14045);if(r)goto S_16328;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2253; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=1;",11), 0 , 0 , 1 ); if (new_error) goto skip2253; skip2253: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14045);}while(r); } S_16331:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14046);if(r)goto S_16331;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2254; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2254; skip2254: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14046);}while(r); } S_16334:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14047);if(r)goto S_16334;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2255; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14092);if(r)goto S_16409;} 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(14093);}while(r); S_16411:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14093);if(r)goto S_16411;} 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(14093);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2261= 2 ),&(pass2262= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14095);}while(r); S_16416:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14096);if(r)goto S_16416;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14096);}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(14097);}while(r); S_16420:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14098);if(r)goto S_16420;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14098);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14099);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14102);}while(r); S_16426:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14103);if(r)goto S_16426;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14104);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14105);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14106);}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(14108);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE; if(!qbevent)break;evnt(14113);}while(r); S_16435:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14113);if(r)goto S_16435;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14113);}while(r); } S_16438:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14114);if(r)goto S_16438;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14114);}while(r); } S_16441:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14115);if(r)goto S_16441;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14115);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14115);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14117);}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(14118);}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(14120);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14121);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE; if(!qbevent)break;evnt(14122);}while(r); S_16451:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14122);if(r)goto S_16451;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14122);}while(r); } S_16454:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14123);if(r)goto S_16454;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2263; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2263; skip2263: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14123);}while(r); } S_16457:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14124);if(r)goto S_16457;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2264; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2264; skip2264: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14124);}while(r); } S_16460:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14125);if(r)goto S_16460;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14126);}while(r); S_16462:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14127);if(r)goto S_16462;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2265; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=2;",11), 0 , 0 , 1 ); if (new_error) goto skip2265; skip2265: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14127);}while(r); } S_16465:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14128);if(r)goto S_16465;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2266; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2266; skip2266: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14128);}while(r); } S_16468:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14129);if(r)goto S_16468;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2267; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14180);if(r)goto S_16543;} 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(14181);}while(r); S_16545:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14181);if(r)goto S_16545;} 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(14181);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2273=*__LONG_OS_BITS/ 8 ),&(pass2274= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14183);}while(r); S_16550:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14184);if(r)goto S_16550;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14184);}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(14185);}while(r); S_16554:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14186);if(r)goto S_16554;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14186);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14187);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14190);}while(r); S_16560:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14191);if(r)goto S_16560;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14192);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14193);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14194);}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(14196);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE; if(!qbevent)break;evnt(14200);}while(r); S_16569:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14200);if(r)goto S_16569;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14200);}while(r); } S_16572:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14201);if(r)goto S_16572;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14201);}while(r); } S_16575:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14202);if(r)goto S_16575;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14202);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14202);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14204);}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(14205);}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(14207);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14208);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE; if(!qbevent)break;evnt(14209);}while(r); S_16585:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14209);if(r)goto S_16585;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14209);}while(r); } S_16588:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14210);if(r)goto S_16588;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2275; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2275; skip2275: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14210);}while(r); } S_16591:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14211);if(r)goto S_16591;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2276; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2276; skip2276: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14211);}while(r); } S_16594:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14212);if(r)goto S_16594;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14213);}while(r); S_16596:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14214);if(r)goto S_16596;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2277; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(&(pass2278=*__LONG_OS_BITS/ 8 ))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2277; skip2277: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14214);}while(r); } S_16599:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14215);if(r)goto S_16599;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2279; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2279; skip2279: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14215);}while(r); } S_16602:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14216);if(r)goto S_16602;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2280; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14264);if(r)goto S_16677;} 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(14265);}while(r); S_16679:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14265);if(r)goto S_16679;} 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(14265);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2287= 4 ),&(pass2288= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14267);}while(r); S_16684:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14268);if(r)goto S_16684;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14268);}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(14269);}while(r); S_16688:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14270);if(r)goto S_16688;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14270);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14271);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14274);}while(r); S_16694:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14275);if(r)goto S_16694;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14276);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14277);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14278);}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(14280);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE; if(!qbevent)break;evnt(14284);}while(r); S_16703:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14284);if(r)goto S_16703;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14284);}while(r); } S_16706:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14285);if(r)goto S_16706;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14285);}while(r); } S_16709:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14286);if(r)goto S_16709;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14286);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14286);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14288);}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(14289);}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(14291);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14292);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE; if(!qbevent)break;evnt(14293);}while(r); S_16719:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14293);if(r)goto S_16719;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14293);}while(r); } S_16722:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14294);if(r)goto S_16722;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2289; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2289; skip2289: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14294);}while(r); } S_16725:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14295);if(r)goto S_16725;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2290; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2290; skip2290: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14295);}while(r); } S_16728:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14296);if(r)goto S_16728;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14297);}while(r); S_16730:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14298);if(r)goto S_16730;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2291; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); if (new_error) goto skip2291; skip2291: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14298);}while(r); } S_16733:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14299);if(r)goto S_16733;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2292; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2292; skip2292: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14299);}while(r); } S_16736:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14300);if(r)goto S_16736;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2293; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14348);if(r)goto S_16811;} 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(14349);}while(r); S_16813:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14349);if(r)goto S_16813;} 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(14349);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2299= 8 ),&(pass2300= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14351);}while(r); S_16818:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14352);if(r)goto S_16818;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14352);}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(14353);}while(r); S_16822:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14354);if(r)goto S_16822;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14354);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14355);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14358);}while(r); S_16828:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14359);if(r)goto S_16828;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14360);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14361);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14362);}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(14364);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE; if(!qbevent)break;evnt(14368);}while(r); S_16837:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14368);if(r)goto S_16837;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14368);}while(r); } S_16840:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14369);if(r)goto S_16840;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14369);}while(r); } S_16843:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14370);if(r)goto S_16843;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14370);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14370);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14372);}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(14373);}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(14375);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14376);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE; if(!qbevent)break;evnt(14377);}while(r); S_16853:; if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ if(qbevent){evnt(14377);if(r)goto S_16853;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(14377);}while(r); } S_16856:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14378);if(r)goto S_16856;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2301; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2301; skip2301: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14378);}while(r); } S_16859:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14379);if(r)goto S_16859;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2302; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2302; skip2302: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14379);}while(r); } S_16862:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14380);if(r)goto S_16862;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14381);}while(r); S_16864:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14382);if(r)goto S_16864;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2303; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); if (new_error) goto skip2303; skip2303: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14382);}while(r); } S_16867:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14383);if(r)goto S_16867;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2304; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2304; skip2304: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14383);}while(r); } S_16870:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14384);if(r)goto S_16870;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2305; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14432);if(r)goto S_16941;} 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(14433);}while(r); S_16943:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14433);if(r)goto S_16943;} 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(14433);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2311= 4 ),&(pass2312= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14435);}while(r); S_16948:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14436);if(r)goto S_16948;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14436);}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(14437);}while(r); S_16952:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14438);if(r)goto S_16952;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14438);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14439);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14442);}while(r); S_16958:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14443);if(r)goto S_16958;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14444);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14445);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14446);}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(14448);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE; if(!qbevent)break;evnt(14452);}while(r); S_16967:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14453);if(r)goto S_16967;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14453);}while(r); } S_16970:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14454);if(r)goto S_16970;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14454);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14454);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14456);}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(14457);}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(14459);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14460);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE; if(!qbevent)break;evnt(14461);}while(r); S_16980:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14462);if(r)goto S_16980;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2313; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2313; skip2313: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14462);}while(r); } S_16983:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14463);if(r)goto S_16983;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2314; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2314; skip2314: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14463);}while(r); } S_16986:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14464);if(r)goto S_16986;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14465);}while(r); S_16988:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14466);if(r)goto S_16988;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2315; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); if (new_error) goto skip2315; skip2315: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14466);}while(r); } S_16991:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14467);if(r)goto S_16991;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2316; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2316; skip2316: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14467);}while(r); } S_16994:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14468);if(r)goto S_16994;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2317; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14514);if(r)goto S_17053;} 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(14515);}while(r); S_17055:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14515);if(r)goto S_17055;} 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(14515);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2323= 8 ),&(pass2324= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14517);}while(r); S_17060:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14518);if(r)goto S_17060;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14518);}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(14519);}while(r); S_17064:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14520);if(r)goto S_17064;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14520);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14521);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14524);}while(r); S_17070:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14525);if(r)goto S_17070;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14526);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14527);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14528);}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(14530);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE; if(!qbevent)break;evnt(14534);}while(r); S_17079:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14535);if(r)goto S_17079;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14535);}while(r); } S_17082:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14536);if(r)goto S_17082;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14536);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14536);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14538);}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(14539);}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(14541);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14542);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE; if(!qbevent)break;evnt(14543);}while(r); S_17092:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14544);if(r)goto S_17092;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2325; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2325; skip2325: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14544);}while(r); } S_17095:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14545);if(r)goto S_17095;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2326; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2326; skip2326: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14545);}while(r); } S_17098:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14546);if(r)goto S_17098;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14547);}while(r); S_17100:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14548);if(r)goto S_17100;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2327; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); if (new_error) goto skip2327; skip2327: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14548);}while(r); } S_17103:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14549);if(r)goto S_17103;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2328; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2328; skip2328: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14549);}while(r); } S_17106:; if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ if(qbevent){evnt(14550);if(r)goto S_17106;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2329; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ if(qbevent){evnt(14596);if(r)goto S_17165;} 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(14597);}while(r); S_17167:; if ((*__LONG_E)||new_error){ if(qbevent){evnt(14597);if(r)goto S_17167;} 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(14597);}while(r); } } do{ *_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2335= 32 ),&(pass2336= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14599);}while(r); S_17172:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14600);if(r)goto S_17172;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14600);}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(14601);}while(r); S_17176:; if ((*__INTEGER_ARRAYDESC)||new_error){ if(qbevent){evnt(14602);if(r)goto S_17176;} do{ goto LABEL_DIM2EXITFUNC; if(!qbevent)break;evnt(14602);}while(r); } do{ SUB_CLEARID(); if(!qbevent)break;evnt(14603);}while(r); }else{ do{ SUB_CLEARID(); if(!qbevent)break;evnt(14606);}while(r); S_17182:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(14607);if(r)goto S_17182;} do{ *_FUNC_DIM2_LONG_NUME= -1 ; if(!qbevent)break;evnt(14608);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; if(!qbevent)break;evnt(14609);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; if(!qbevent)break;evnt(14610);}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(14612);}while(r); } } do{ *(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE; if(!qbevent)break;evnt(14616);}while(r); S_17191:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14617);if(r)goto S_17191;} do{ *(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14617);}while(r); } S_17194:; if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ if(qbevent){evnt(14618);if(r)goto S_17194;} do{ *_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; if(!qbevent)break;evnt(14618);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(518))= 1 ; if(!qbevent)break;evnt(14618);}while(r); } do{ *(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; if(!qbevent)break;evnt(14620);}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(14621);}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(14623);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(14624);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE; if(!qbevent)break;evnt(14625);}while(r); S_17204:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(14626);if(r)goto S_17204;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2337; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2337; skip2337: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14626);}while(r); } S_17207:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(14627);if(r)goto S_17207;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2338; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2338; skip2338: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14627);}while(r); } S_17210:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ if(qbevent){evnt(14628);if(r)goto S_17210;} do{ *(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14629);}while(r); S_17212:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(14630);if(r)goto S_17212;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2339; sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=32;",12), 0 , 0 , 1 ); if (new_error) goto skip2339; skip2339: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14630);}while(r); } S_17215:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(14631);if(r)goto S_17215;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2340; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2340; skip2340: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14631);}while(r); } S_17218:; if ((*_FUNC_DIM2_LONG_F)||new_error){ if(qbevent){evnt(14632);if(r)goto S_17218;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2341; sub_file_print(tmp_fileno,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 "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{ qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14681);}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(14686);}while(r); do{ *_FUNC_UDTREFERENCE_LONG_O= 0 ; if(!qbevent)break;evnt(14689);}while(r); do{ *_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ; if(!qbevent)break;evnt(14691);}while(r); S_17268:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ if(qbevent){evnt(14692);if(r)goto S_17268;} do{ *_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(536))& 511 ; if(!qbevent)break;evnt(14693);}while(r); S_17270:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(14694);if(r)goto S_17270;} do{ *_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; if(!qbevent)break;evnt(14694);}while(r); } }else{ do{ *_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; if(!qbevent)break;evnt(14696);}while(r); S_17275:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ if(qbevent){evnt(14697);if(r)goto S_17275;} do{ *_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; if(!qbevent)break;evnt(14697);}while(r); } } do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(14699);}while(r); do{ *_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14701);}while(r); S_17281:; if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||new_error){ if(qbevent){evnt(14702);if(r)goto S_17281;} do{ goto LABEL_FULLUDT; if(!qbevent)break;evnt(14702);}while(r); } do{ *_FUNC_UDTREFERENCE_LONG_I= 1 ; if(!qbevent)break;evnt(14704);}while(r); LABEL_UDTFINDELENEXT:; if(qbevent){evnt(14705);r=0;} S_17285:; 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(14706);if(r)goto S_17285;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14706);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14706);}while(r); } do{ *_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; if(!qbevent)break;evnt(14707);}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(14708);}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(14709);}while(r); S_17292:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ if(qbevent){evnt(14709);if(r)goto S_17292;} do{ *_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14709);}while(r); do{ *_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(14709);}while(r); } S_17296:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14710);if(r)goto S_17296;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14710);}while(r); } S_17299:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(14712);if(r)goto S_17299;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14712);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14712);}while(r); } LABEL_UDTFINDELE:; if(qbevent){evnt(14713);r=0;} S_17303:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(14714);if(r)goto S_17303;} 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(14714);}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(14714);}while(r); } S_17308:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(14715);if(r)goto S_17308;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14715);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14715);}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(14716);}while(r); S_17313:; if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_E)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ if(qbevent){evnt(14717);if(r)goto S_17313;} S_17314:; if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ if(qbevent){evnt(14718);if(r)goto S_17314;} do{ *_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+( 8 -(*_FUNC_UDTREFERENCE_LONG_O% 8 )); if(!qbevent)break;evnt(14718);}while(r); } } S_17318:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||new_error){ if(qbevent){evnt(14721);if(r)goto S_17318;} 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(14723);}while(r); do{ goto LABEL_UDTFINDELE; if(!qbevent)break;evnt(14724);}while(r); } S_17322:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ if(qbevent){evnt(14728);if(r)goto S_17322;} S_17323:; 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(14730);if(r)goto S_17323;} 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(14730);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14730);}while(r); } S_17327:; 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(14731);if(r)goto S_17327;} S_17328:; 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(14732);if(r)goto S_17328;} do{ goto LABEL_CORRECTSYMBOL; if(!qbevent)break;evnt(14732);}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(14733);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14733);}while(r); } } LABEL_CORRECTSYMBOL:; if(qbevent){evnt(14736);r=0;} S_17335:; if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||new_error){ if(qbevent){evnt(14739);if(r)goto S_17335;} S_17336:; 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(14740);if(r)goto S_17336;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14740);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14740);}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(14741);}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(14742);}while(r); do{ *_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; if(!qbevent)break;evnt(14743);}while(r); do{ goto LABEL_UDTFINDELENEXT; if(!qbevent)break;evnt(14744);}while(r); } S_17345:; 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(14748);if(r)goto S_17345;} 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(14749);}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(14750);}while(r); } LABEL_FULLUDT:; if(qbevent){evnt(14753);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(14755);}while(r); S_17350:; if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ if(qbevent){evnt(14757);if(r)goto S_17350;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("QB64 cannot handle bit offsets within user defined types yet",60)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14757);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14757);}while(r); } do{ *_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O/ 8 ; if(!qbevent)break;evnt(14758);}while(r); S_17355:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(14760);if(r)goto S_17355;} S_17356:; if ((-(*_FUNC_UDTREFERENCE_LONG_O!= 0 ))||new_error){ if(qbevent){evnt(14761);if(r)goto S_17356;} 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(14762);}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(14765);}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(14768);}while(r); do{ qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14770);}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(14771);}while(r); S_17365:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(14774);if(r)goto S_17365;} do{ *_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE; if(!qbevent)break;evnt(14775);}while(r); } S_17368:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(14778);if(r)goto S_17368;} do{ *_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY; if(!qbevent)break;evnt(14778);}while(r); } S_17371:; if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||new_error){ if(qbevent){evnt(14779);if(r)goto S_17371;} do{ *_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(14779);}while(r); } 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; 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 "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 (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){ error(10); }else{ _FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]= 0 ; _FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]+1; _FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=1; _FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)malloc(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]*8); if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]) error(257); _FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]|=1; tmp_long=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]; if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(14786);}while(r); do{ if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){ error(10); }else{ _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]= 0 ; _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]+1; _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=1; if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){ _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2); memset((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]),0,_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2); }else{ _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)calloc(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2,1); if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257); } _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1; } } if(!qbevent)break;evnt(14787);}while(r); do{ if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){ error(10); }else{ _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]= 0 ; _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]+1; _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=1; if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){ _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4); memset((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]),0,_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4); }else{ _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)calloc(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4,1); if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257); } _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1; } } if(!qbevent)break;evnt(14788);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14791);}while(r); do{ *_FUNC_EVALUATE_LONG_TYP= -1 ; if(!qbevent)break;evnt(14792);}while(r); S_17379:; if (( 0 )||new_error){ if(qbevent){evnt(14794);if(r)goto S_17379;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2351; 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 skip2351; skip2351: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14794);}while(r); } S_17382:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(14795);if(r)goto S_17382;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14795);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14795);}while(r); } do{ *_FUNC_EVALUATE_LONG_BLOCKN= 0 ; if(!qbevent)break;evnt(14804);}while(r); do{ *_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14805);}while(r); do{ *_FUNC_EVALUATE_LONG_B= 0 ; if(!qbevent)break;evnt(14806);}while(r); S_17389:; fornext_value2353= 1 ; fornext_finalvalue2353=*_FUNC_EVALUATE_LONG_N; fornext_step2353= 1 ; if (fornext_step2353<0) fornext_step_negative2353=1; else fornext_step_negative2353=0; if (new_error) goto fornext_error2353; goto fornext_entrylabel2353; while(1){ fornext_value2353=fornext_step2353+(*_FUNC_EVALUATE_LONG_I); fornext_entrylabel2353: *_FUNC_EVALUATE_LONG_I=fornext_value2353; if (fornext_step_negative2353){ if (fornext_value2353fornext_finalvalue2353) break; } fornext_error2353:; if(qbevent){evnt(14807);if(r)goto S_17389;} LABEL_REEVALUATE:; if(qbevent){evnt(14809);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(14814);}while(r); S_17391:; if (( 0 )||new_error){ if(qbevent){evnt(14817);if(r)goto S_17391;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2354; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0 , 1 , 0 ); if (new_error) goto skip2354; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1 , 0 , 1 ); if (new_error) goto skip2354; skip2354: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14817);}while(r); } S_17394:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ if(qbevent){evnt(14820);if(r)goto S_17394;} do{ qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2355=*_FUNC_EVALUATE_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14820);}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(14820);}while(r); } S_17399:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(14824);if(r)goto S_17399;} S_17400:; if (( 0 )||new_error){ if(qbevent){evnt(14826);if(r)goto S_17400;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2356; sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip2356; skip2356: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14826);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14828);}while(r); S_17404:; fornext_value2358= 1 ; fornext_finalvalue2358= 4 ; fornext_step2358= 1 ; if (fornext_step2358<0) fornext_step_negative2358=1; else fornext_step_negative2358=0; if (new_error) goto fornext_error2358; goto fornext_entrylabel2358; while(1){ fornext_value2358=fornext_step2358+(*_FUNC_EVALUATE_LONG_TRY_METHOD); fornext_entrylabel2358: *_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2358; if (fornext_step_negative2358){ if (fornext_value2358fornext_finalvalue2358) break; } fornext_error2358:; if(qbevent){evnt(14829);if(r)goto S_17404;} do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14830);}while(r); S_17406:; if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||new_error){ if(qbevent){evnt(14831);if(r)goto S_17406;} S_17407:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14832);if(r)goto S_17407;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14832);}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(14833);}while(r); S_17411:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14833);if(r)goto S_17411;} do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14833);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; if(!qbevent)break;evnt(14833);}while(r); } S_17415:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||new_error){ if(qbevent){evnt(14834);if(r)goto S_17415;} S_17416:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ if(qbevent){evnt(14835);if(r)goto S_17416;} S_17417:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ if(qbevent){evnt(14836);if(r)goto S_17417;} S_17418:; 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(14837);if(r)goto S_17418;} do{ *_FUNC_EVALUATE_LONG_V= 27 ; if(!qbevent)break;evnt(14837);}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(14837);}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(14838);}while(r); } } }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14842);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14845);}while(r); S_17431:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14846);if(r)goto S_17431;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14846);}while(r); } S_17434:; while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ if(qbevent){evnt(14847);if(r)goto S_17434;} S_17435:; if (( 0 )||new_error){ if(qbevent){evnt(14849);if(r)goto S_17435;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2361; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1 , 0 , 1 ); if (new_error) goto skip2361; skip2361: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(14849);}while(r); } S_17438:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(14852);if(r)goto S_17438;} S_17439:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(14853);if(r)goto S_17439;} S_17440:; 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(14854);if(r)goto S_17440;} do{ *_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID; if(!qbevent)break;evnt(14855);}while(r); do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(14856);}while(r); do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; if(!qbevent)break;evnt(14857);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; if(!qbevent)break;evnt(14858);}while(r); LABEL_EVALNEXTELE3:; if(qbevent){evnt(14859);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(14860);}while(r); S_17446:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(14861);if(r)goto S_17446;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; if(!qbevent)break;evnt(14861);}while(r); } S_17449:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(14862);if(r)goto S_17449;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; if(!qbevent)break;evnt(14863);}while(r); S_17451:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ if(qbevent){evnt(14864);if(r)goto S_17451;} do{ qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2362=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2363=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14865);}while(r); S_17453:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14866);if(r)goto S_17453;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14866);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; if(!qbevent)break;evnt(14867);}while(r); S_17457:; if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(14870);if(r)goto S_17457;} do{ SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID); if(!qbevent)break;evnt(14872);}while(r); S_17459:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14873);if(r)goto S_17459;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14873);}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(14874);}while(r); do{ *_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 511 ; if(!qbevent)break;evnt(14876);}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(14877);}while(r); S_17465:; 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(14878);if(r)goto S_17465;} S_17466:; if ((*_FUNC_EVALUATE_LONG_S% 8 )||new_error){ if(qbevent){evnt(14879);if(r)goto S_17466;} do{ *_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S+( 8 -(*_FUNC_EVALUATE_LONG_S% 8 )); if(!qbevent)break;evnt(14879);}while(r); } do{ *_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S/ 8 ; if(!qbevent)break;evnt(14880);}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(14882);}while(r); do{ goto LABEL_EVALUDT; if(!qbevent)break;evnt(14884);}while(r); } do{ goto LABEL_EVALEDNEXTELE3; if(!qbevent)break;evnt(14887);}while(r); } } do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; if(!qbevent)break;evnt(14890);}while(r); do{ goto LABEL_EVALNEXTELE3; if(!qbevent)break;evnt(14891);}while(r); LABEL_EVALEDNEXTELE3:; if(qbevent){evnt(14892);r=0;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(14893);}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(14894);}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(14895);}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(14896);}while(r); S_17483:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(14897);if(r)goto S_17483;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(14897);}while(r); } do{ goto LABEL_EVALED; if(!qbevent)break;evnt(14898);}while(r); } } }else{ S_17490:; if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ if(qbevent){evnt(14906);if(r)goto S_17490;} S_17491:; 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(14907);if(r)goto S_17491;} do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(14908);}while(r); do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(14909);}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(14910);}while(r); S_17495:; 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(14911);if(r)goto S_17495;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(14911);}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(14912);}while(r); do{ goto LABEL_EVALED; if(!qbevent)break;evnt(14913);}while(r); } } S_17502:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(14918);if(r)goto S_17502;} S_17503:; 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(14919);if(r)goto S_17503;} do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(14920);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14921);}while(r); LABEL_EVALUDT:; if(qbevent){evnt(14922);r=0;} do{ *_FUNC_EVALUATE_LONG_B2= 0 ; if(!qbevent)break;evnt(14923);}while(r); do{ *_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(14924);}while(r); S_17508:; fornext_value2366=*_FUNC_EVALUATE_LONG_I3; fornext_finalvalue2366=*_FUNC_EVALUATE_LONG_N; fornext_step2366= 1 ; if (fornext_step2366<0) fornext_step_negative2366=1; else fornext_step_negative2366=0; if (new_error) goto fornext_error2366; goto fornext_entrylabel2366; while(1){ fornext_value2366=fornext_step2366+(*_FUNC_EVALUATE_LONG_I2); fornext_entrylabel2366: *_FUNC_EVALUATE_LONG_I2=fornext_value2366; if (fornext_step_negative2366){ if (fornext_value2366fornext_finalvalue2366) break; } fornext_error2366:; if(qbevent){evnt(14925);if(r)goto S_17508;} 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(14926);}while(r); S_17510:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(14927);if(r)goto S_17510;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; if(!qbevent)break;evnt(14927);}while(r); } S_17513:; if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||new_error){ if(qbevent){evnt(14928);if(r)goto S_17513;} S_17514:; 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(14929);if(r)goto S_17514;} do{ *_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ; if(!qbevent)break;evnt(14930);}while(r); do{ goto LABEL_GOTUDT; if(!qbevent)break;evnt(14931);}while(r); } } S_17519:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(14934);if(r)goto S_17519;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; if(!qbevent)break;evnt(14934);}while(r); } fornext_continue_2365:; } fornext_exit_2365:; do{ *_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N; if(!qbevent)break;evnt(14936);}while(r); LABEL_GOTUDT:; if(qbevent){evnt(14937);r=0;} S_17524:; if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||new_error){ if(qbevent){evnt(14938);if(r)goto S_17524;} do{ qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14938);}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(14938);}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(14940);}while(r); S_17530:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14941);if(r)goto S_17530;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14941);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4; if(!qbevent)break;evnt(14942);}while(r); do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(14943);}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(14944);}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(14945);}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(14946);}while(r); do{ goto LABEL_EVALED; if(!qbevent)break;evnt(14949);}while(r); } } } S_17542:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ if(qbevent){evnt(14956);if(r)goto S_17542;} do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(14957);}while(r); S_17544:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2367=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(14958);if(r)goto S_17544;} do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; if(!qbevent)break;evnt(14959);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; if(!qbevent)break;evnt(14960);}while(r); do{ *_FUNC_EVALUATE_LONG_ARGS= 1 ; if(!qbevent)break;evnt(14961);}while(r); LABEL_EVALNEXTELE:; if(qbevent){evnt(14962);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(14963);}while(r); S_17549:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(14964);if(r)goto S_17549;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; if(!qbevent)break;evnt(14964);}while(r); } S_17552:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(14965);if(r)goto S_17552;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; if(!qbevent)break;evnt(14966);}while(r); S_17554:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ if(qbevent){evnt(14967);if(r)goto S_17554;} S_17555:; if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||new_error){ if(qbevent){evnt(14968);if(r)goto S_17555;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14968);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(14968);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2368=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2369=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14969);}while(r); S_17560:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14970);if(r)goto S_17560;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14970);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; if(!qbevent)break;evnt(14971);}while(r); do{ goto LABEL_EVALEDNEXTELE; if(!qbevent)break;evnt(14972);}while(r); } } S_17567:; 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(14975);if(r)goto S_17567;} do{ *_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ; if(!qbevent)break;evnt(14975);}while(r); } do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; if(!qbevent)break;evnt(14976);}while(r); do{ goto LABEL_EVALNEXTELE; if(!qbevent)break;evnt(14977);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2370= 0 ),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14980);}while(r); S_17574:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14981);if(r)goto S_17574;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14981);}while(r); } } LABEL_EVALEDNEXTELE:; if(qbevent){evnt(14983);r=0;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(14984);}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(14985);}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(14986);}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(14987);}while(r); S_17582:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(14988);if(r)goto S_17582;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(14988);}while(r); } do{ goto LABEL_EVALED; if(!qbevent)break;evnt(14989);}while(r); } S_17587:; if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(14992);if(r)goto S_17587;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(14992);}while(r); do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(14992);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_TRY= 0 ; if(!qbevent)break;evnt(14992);}while(r); } S_17593:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(14993);if(r)goto S_17593;} do{ goto exit_subfunc; if(!qbevent)break;evnt(14993);}while(r); } dl_continue_2360:; } dl_exit_2360:; fornext_continue_2357:; } fornext_exit_2357:; S_17598:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ if(qbevent){evnt(14999);if(r)goto S_17598;} S_17599:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2371=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(15000);if(r)goto S_17599;} S_17600:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ if(qbevent){evnt(15001);if(r)goto S_17600;} S_17601:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ if(qbevent){evnt(15002);if(r)goto S_17601;} S_17602:; if (( 0 )||new_error){ if(qbevent){evnt(15003);if(r)goto S_17602;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2372; sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0 , 0 , 1 ); if (new_error) goto skip2372; skip2372: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15004);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2373; 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 skip2373; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1 , 0 , 1 ); if (new_error) goto skip2373; skip2373: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15005);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2374; sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0 , 0 , 1 ); if (new_error) goto skip2374; skip2374: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15006);}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(15008);}while(r); S_17608:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15009);if(r)goto S_17608;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15009);}while(r); } do{ *_FUNC_EVALUATE_LONG_NUME= 1 ; if(!qbevent)break;evnt(15011);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; if(!qbevent)break;evnt(15012);}while(r); S_17613:; fornext_value2376=*_FUNC_EVALUATE_LONG_I+ 2 ; fornext_finalvalue2376=*_FUNC_EVALUATE_LONG_N; fornext_step2376= 1 ; if (fornext_step2376<0) fornext_step_negative2376=1; else fornext_step_negative2376=0; if (new_error) goto fornext_error2376; goto fornext_entrylabel2376; while(1){ fornext_value2376=fornext_step2376+(*_FUNC_EVALUATE_LONG_I2); fornext_entrylabel2376: *_FUNC_EVALUATE_LONG_I2=fornext_value2376; if (fornext_step_negative2376){ if (fornext_value2376fornext_finalvalue2376) break; } fornext_error2376:; if(qbevent){evnt(15013);if(r)goto S_17613;} 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(15014);}while(r); S_17615:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(15015);if(r)goto S_17615;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; if(!qbevent)break;evnt(15015);}while(r); } S_17618:; 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(15016);if(r)goto S_17618;} do{ *_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ; if(!qbevent)break;evnt(15016);}while(r); } S_17621:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(15017);if(r)goto S_17621;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; if(!qbevent)break;evnt(15017);}while(r); } S_17624:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ if(qbevent){evnt(15018);if(r)goto S_17624;} do{ goto fornext_exit_2375; if(!qbevent)break;evnt(15018);}while(r); } fornext_continue_2375:; } fornext_exit_2375:; do{ qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15020);}while(r); S_17629:; fornext_value2378= 2 ; fornext_finalvalue2378=*_FUNC_EVALUATE_LONG_NUME; fornext_step2378= 1 ; if (fornext_step2378<0) fornext_step_negative2378=1; else fornext_step_negative2378=0; if (new_error) goto fornext_error2378; goto fornext_entrylabel2378; while(1){ fornext_value2378=fornext_step2378+(*_FUNC_EVALUATE_LONG_I2); fornext_entrylabel2378: *_FUNC_EVALUATE_LONG_I2=fornext_value2378; if (fornext_step_negative2378){ if (fornext_value2378fornext_finalvalue2378) break; } fornext_error2378:; if(qbevent){evnt(15020);if(r)goto S_17629;} 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(15020);}while(r); fornext_continue_2377:; } fornext_exit_2377:; S_17632:; if (( 0 )||new_error){ if(qbevent){evnt(15021);if(r)goto S_17632;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2379; 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 skip2379; skip2379: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15021);}while(r); } S_17635:; if ((*__BYTE_OPTIONEXPLICIT|*__BYTE_OPTIONEXPLICITARRAY)||new_error){ if(qbevent){evnt(15022);if(r)goto S_17635;} 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(15022);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15022);}while(r); } S_17639:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15023);if(r)goto S_17639;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15023);}while(r); } do{ *_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; if(!qbevent)break;evnt(15024);}while(r); do{ *_FUNC_EVALUATE_LONG_METHOD= 1 ; if(!qbevent)break;evnt(15025);}while(r); S_17644:; if ((*__LONG_SUBFUNCN)||new_error){ if(qbevent){evnt(15026);if(r)goto S_17644;} do{ *__LONG_AUTOARRAY= 1 ; if(!qbevent)break;evnt(15027);}while(r); do{ *_FUNC_EVALUATE_LONG_XI= 1 ; if(!qbevent)break;evnt(15030);}while(r); S_17647:; fornext_value2381= 1 ; fornext_finalvalue2381=*__LONG_STATICARRAYLISTN; fornext_step2381= 1 ; if (fornext_step2381<0) fornext_step_negative2381=1; else fornext_step_negative2381=0; if (new_error) goto fornext_error2381; goto fornext_entrylabel2381; while(1){ fornext_value2381=fornext_step2381+(*_FUNC_EVALUATE_LONG_X); fornext_entrylabel2381: *_FUNC_EVALUATE_LONG_X=fornext_value2381; if (fornext_step_negative2381){ if (fornext_value2381fornext_finalvalue2381) break; } fornext_error2381:; if(qbevent){evnt(15031);if(r)goto S_17647;} 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(15032);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; if(!qbevent)break;evnt(15032);}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(15033);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; if(!qbevent)break;evnt(15033);}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(15034);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; if(!qbevent)break;evnt(15034);}while(r); S_17654:; 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(15036);if(r)goto S_17654;} do{ qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15037);}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(15037);}while(r); S_17657:; 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(15038);if(r)goto S_17657;} S_17658:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15039);if(r)goto S_17658;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15039);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15041);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15042);}while(r); do{ *_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2; if(!qbevent)break;evnt(15043);}while(r); do{ *__LONG_DIMSTATIC= 3 ; if(!qbevent)break;evnt(15044);}while(r); } S_17666:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15046);if(r)goto S_17666;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15046);}while(r); } } fornext_continue_2380:; } fornext_exit_2380:; } do{ *__BYTE_BYPASSNEXTVARIABLE= -1 ; if(!qbevent)break;evnt(15050);}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(15051);}while(r); S_17674:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15052);if(r)goto S_17674;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15052);}while(r); } do{ *__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC; if(!qbevent)break;evnt(15053);}while(r); S_17678:; if (( 0 )||new_error){ if(qbevent){evnt(15054);if(r)goto S_17678;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2382; sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0 , 0 , 1 ); if (new_error) goto skip2382; skip2382: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15054);}while(r); } do{ goto LABEL_REEVALUATE; if(!qbevent)break;evnt(15055);}while(r); } } } } do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15061);}while(r); } S_17688:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(15065);if(r)goto S_17688;} S_17689:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(15066);if(r)goto S_17689;} do{ *_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15066);}while(r); } do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ; if(!qbevent)break;evnt(15067);}while(r); } S_17694:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(15070);if(r)goto S_17694;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(15071);}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(15072);}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(15073);}while(r); } S_17699:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(15076);if(r)goto S_17699;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ; if(!qbevent)break;evnt(15077);}while(r); S_17701:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(15078);if(r)goto S_17701;} do{ qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2383=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15079);}while(r); S_17703:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15080);if(r)goto S_17703;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15080);}while(r); } S_17706:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15081);if(r)goto S_17706;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(15081);}while(r); } do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; if(!qbevent)break;evnt(15082);}while(r); S_17710:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(15083);if(r)goto S_17710;} 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(15084);}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(15086);}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(15088);}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(15089);}while(r); } } LABEL_EVALED:; if(qbevent){evnt(15092);r=0;} fornext_continue_2352:; } fornext_exit_2352:; do{ qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15095);}while(r); S_17721:; if (( 0 )||new_error){ if(qbevent){evnt(15097);if(r)goto S_17721;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2384; sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0 , 0 , 0 ); if (new_error) goto skip2384; skip2384: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15097);}while(r); } S_17724:; fornext_value2386= 1 ; fornext_finalvalue2386=*_FUNC_EVALUATE_LONG_BLOCKN; fornext_step2386= 1 ; if (fornext_step2386<0) fornext_step_negative2386=1; else fornext_step_negative2386=0; if (new_error) goto fornext_error2386; goto fornext_entrylabel2386; while(1){ fornext_value2386=fornext_step2386+(*_FUNC_EVALUATE_LONG_I); fornext_entrylabel2386: *_FUNC_EVALUATE_LONG_I=fornext_value2386; if (fornext_step_negative2386){ if (fornext_value2386fornext_finalvalue2386) break; } fornext_error2386:; if(qbevent){evnt(15098);if(r)goto S_17724;} S_17725:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||new_error){ if(qbevent){evnt(15099);if(r)goto S_17725;} S_17726:; if (( 0 )||new_error){ if(qbevent){evnt(15100);if(r)goto S_17726;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2387; 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 skip2387; skip2387: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15100);}while(r); } }else{ S_17730:; if (( 0 )||new_error){ if(qbevent){evnt(15102);if(r)goto S_17730;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2388; 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 skip2388; skip2388: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15102);}while(r); } } fornext_continue_2385:; } fornext_exit_2385:; S_17735:; fornext_value2390= 1 ; fornext_finalvalue2390=*_FUNC_EVALUATE_LONG_BLOCKN; fornext_step2390= 1 ; if (fornext_step2390<0) fornext_step_negative2390=1; else fornext_step_negative2390=0; if (new_error) goto fornext_error2390; goto fornext_entrylabel2390; while(1){ fornext_value2390=fornext_step2390+(*_FUNC_EVALUATE_LONG_I); fornext_entrylabel2390: *_FUNC_EVALUATE_LONG_I=fornext_value2390; if (fornext_step_negative2390){ if (fornext_value2390fornext_finalvalue2390) break; } fornext_error2390:; if(qbevent){evnt(15109);if(r)goto S_17735;} S_17736:; 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(15110);if(r)goto S_17736;} S_17737:; 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(15111);if(r)goto S_17737;} 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(15114);}while(r); S_17739:; if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||new_error){ if(qbevent){evnt(15115);if(r)goto S_17739;} 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(15116);}while(r); do{ *_FUNC_EVALUATE_LONG_F= 0 ; if(!qbevent)break;evnt(15118);}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(15119);}while(r); S_17743:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ if(qbevent){evnt(15120);if(r)goto S_17743;} do{ *_FUNC_EVALUATE_LONG_F= 1 ; if(!qbevent)break;evnt(15121);}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(15121);}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(15123);}while(r); S_17748:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ if(qbevent){evnt(15124);if(r)goto S_17748;} do{ *_FUNC_EVALUATE_LONG_F= 2 ; if(!qbevent)break;evnt(15125);}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(15125);}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(15127);}while(r); S_17753:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ if(qbevent){evnt(15128);if(r)goto S_17753;} do{ *_FUNC_EVALUATE_LONG_F= 3 ; if(!qbevent)break;evnt(15129);}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(15129);}while(r); } } } S_17759:; if ((*_FUNC_EVALUATE_LONG_F)||new_error){ if(qbevent){evnt(15133);if(r)goto S_17759;} S_17760:; if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||new_error){ if(qbevent){evnt(15135);if(r)goto S_17760;} do{ sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1); if(!qbevent)break;evnt(15135);}while(r); } S_17763:; if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||new_error){ if(qbevent){evnt(15136);if(r)goto S_17763;} 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(15136);}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(15139);}while(r); S_17768:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15140);if(r)goto S_17768;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15140);}while(r); } S_17771:; 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(15141);if(r)goto S_17771;} 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(15141);}while(r); } S_17774:; 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(15142);if(r)goto S_17774;} S_17775:; 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(15143);if(r)goto S_17775;} 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(15143);}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(15143);}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(15146);}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(15147);}while(r); do{ goto LABEL_EVALEDBLOCK; if(!qbevent)break;evnt(15148);}while(r); } S_17786:; 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(15206);if(r)goto S_17786;} S_17787:; 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(15207);if(r)goto S_17787;} 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(15208);}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(15210);}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(15212);}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(15213);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(15214);}while(r); do{ goto LABEL_EVALEDBLOCK; if(!qbevent)break;evnt(15215);}while(r); } S_17797:; 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(15219);if(r)goto S_17797;} 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(15220);}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(15222);}while(r); S_17800:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15223);if(r)goto S_17800;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15223);}while(r); } S_17803:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||new_error){ if(qbevent){evnt(15226);if(r)goto S_17803;} S_17804:; 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(15227);if(r)goto S_17804;} do{ *_FUNC_EVALUATE_LONG_V= 27 ; if(!qbevent)break;evnt(15227);}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(15227);}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(15228);}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(15232);}while(r); S_17812:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15233);if(r)goto S_17812;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15233);}while(r); } S_17815:; while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ if(qbevent){evnt(15234);if(r)goto S_17815;} S_17816:; if (( 0 )||new_error){ if(qbevent){evnt(15235);if(r)goto S_17816;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2393; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1 , 0 , 1 ); if (new_error) goto skip2393; skip2393: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15235);}while(r); } S_17819:; if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ if(qbevent){evnt(15236);if(r)goto S_17819;} do{ goto LABEL_SIMPLEVARFOUND; if(!qbevent)break;evnt(15237);}while(r); } S_17822:; if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(15239);if(r)goto S_17822;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(15239);}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(15239);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_TRY= 0 ; if(!qbevent)break;evnt(15239);}while(r); } S_17828:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15240);if(r)goto S_17828;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15240);}while(r); } dl_continue_2392:; } dl_exit_2392:; S_17832:; if (( 0 )||new_error){ if(qbevent){evnt(15243);if(r)goto S_17832;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2394; 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 skip2394; skip2394: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15243);}while(r); } S_17835:; if ((*__BYTE_OPTIONEXPLICIT)||new_error){ if(qbevent){evnt(15244);if(r)goto S_17835;} 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(15244);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15244);}while(r); } do{ *__BYTE_BYPASSNEXTVARIABLE= -1 ; if(!qbevent)break;evnt(15245);}while(r); do{ *_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2395= 1 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15246);}while(r); S_17841:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15247);if(r)goto S_17841;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15247);}while(r); } LABEL_SIMPLEVARFOUND:; if(qbevent){evnt(15249);r=0;} do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(15250);}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(15251);}while(r); S_17846:; 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(15252);if(r)goto S_17846;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(15252);}while(r); } S_17849:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ if(qbevent){evnt(15253);if(r)goto S_17849;} S_17850:; 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(15254);if(r)goto S_17850;} do{ goto LABEL_RETURNPOINTER; if(!qbevent)break;evnt(15254);}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])])),&(pass2396= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15257);}while(r); S_17855:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15257);if(r)goto S_17855;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15257);}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(15258);}while(r); do{ goto LABEL_EVALEDBLOCK; if(!qbevent)break;evnt(15259);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15261);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15261);}while(r); }else{ S_17864:; 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(15264);if(r)goto S_17864;} S_17865:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ if(qbevent){evnt(15265);if(r)goto S_17865;} do{ goto LABEL_RETURNPOINTER; if(!qbevent)break;evnt(15265);}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])])),&(pass2397= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15269);}while(r); S_17869:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15270);if(r)goto S_17869;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15270);}while(r); } } } } LABEL_EVALEDBLOCK:; if(qbevent){evnt(15276);r=0;} fornext_continue_2389:; } fornext_exit_2389:; S_17876:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ if(qbevent){evnt(15281);if(r)goto S_17876;} S_17877:; 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(15282);if(r)goto S_17877;} S_17878:; 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(15283);if(r)goto S_17878;} LABEL_RETURNPOINTER:; if(qbevent){evnt(15284);r=0;} S_17879:; 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(15285);if(r)goto S_17879;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(15285);}while(r); } S_17882:; if (( 0 )||new_error){ if(qbevent){evnt(15286);if(r)goto S_17882;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2398; 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 skip2398; skip2398: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15286);}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(15287);}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(15288);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15289);}while(r); } } } S_17891:; if (( 0 )||new_error){ if(qbevent){evnt(15302);if(r)goto S_17891;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2399; sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0 , 0 , 0 ); if (new_error) goto skip2399; skip2399: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15302);}while(r); } S_17894:; if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||new_error){ if(qbevent){evnt(15305);if(r)goto S_17894;} 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(15306);}while(r); S_17896:; 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(15309);if(r)goto S_17896;} 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(15310);}while(r); } } do{ *_FUNC_EVALUATE_LONG_NONOP= 0 ; if(!qbevent)break;evnt(15314);}while(r); S_17901:; fornext_value2401= 1 ; fornext_finalvalue2401=*_FUNC_EVALUATE_LONG_BLOCKN; fornext_step2401= 1 ; if (fornext_step2401<0) fornext_step_negative2401=1; else fornext_step_negative2401=0; if (new_error) goto fornext_error2401; goto fornext_entrylabel2401; while(1){ fornext_value2401=fornext_step2401+(*_FUNC_EVALUATE_LONG_I); fornext_entrylabel2401: *_FUNC_EVALUATE_LONG_I=fornext_value2401; if (fornext_step_negative2401){ if (fornext_value2401fornext_finalvalue2401) break; } fornext_error2401:; if(qbevent){evnt(15315);if(r)goto S_17901;} S_17902:; 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(15317);if(r)goto S_17902;} 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(15318);}while(r); S_17904:; if ((*_FUNC_EVALUATE_LONG_ISOP)||new_error){ if(qbevent){evnt(15319);if(r)goto S_17904;} do{ *_FUNC_EVALUATE_LONG_NONOP= 0 ; if(!qbevent)break;evnt(15320);}while(r); do{ *__INTEGER_CONSTEQUATION= 0 ; if(!qbevent)break;evnt(15322);}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(15325);}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(15326);}while(r); S_17909:; if ((-(*_FUNC_EVALUATE_LONG_U!= 5 ))||new_error){ if(qbevent){evnt(15328);if(r)goto S_17909;} do{ *_FUNC_EVALUATE_LONG_NONOP= 1 ; if(!qbevent)break;evnt(15329);}while(r); S_17911:; 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(15330);if(r)goto S_17911;} S_17912:; 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(15331);if(r)goto S_17912;} 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(15331);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15331);}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(15332);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15332);}while(r); } } S_17920:; 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(15335);if(r)goto S_17920;} 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(15335);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15335);}while(r); } do{ *_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP; if(!qbevent)break;evnt(15343);}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(15344);}while(r); S_17926:; if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||new_error){ if(qbevent){evnt(15356);if(r)goto S_17926;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15357);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15357);}while(r); } do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; if(!qbevent)break;evnt(15361);}while(r); do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; if(!qbevent)break;evnt(15362);}while(r); S_17932:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||new_error){ if(qbevent){evnt(15363);if(r)goto S_17932;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ; if(!qbevent)break;evnt(15364);}while(r); S_17934:; if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(15365);if(r)goto S_17934;} S_17935:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ if(qbevent){evnt(15366);if(r)goto S_17935;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; if(!qbevent)break;evnt(15366);}while(r); } } S_17939:; if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(15368);if(r)goto S_17939;} S_17940:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ if(qbevent){evnt(15369);if(r)goto S_17940;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; if(!qbevent)break;evnt(15369);}while(r); } } S_17944:; 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(15375);if(r)goto S_17944;} S_17945:; 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(15376);if(r)goto S_17945;} S_17946:; if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ if(qbevent){evnt(15378);if(r)goto S_17946;} do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; if(!qbevent)break;evnt(15379);}while(r); S_17948:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(15380);if(r)goto S_17948;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 2 ; if(!qbevent)break;evnt(15380);}while(r); } S_17951:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(15381);if(r)goto S_17951;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 2 ; if(!qbevent)break;evnt(15381);}while(r); } } } S_17956:; 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(15384);if(r)goto S_17956;} do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; if(!qbevent)break;evnt(15386);}while(r); S_17958:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(15387);if(r)goto S_17958;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 2 ; if(!qbevent)break;evnt(15387);}while(r); } S_17961:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(15388);if(r)goto S_17961;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 2 ; if(!qbevent)break;evnt(15388);}while(r); } } }else{ S_17966:; if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||new_error){ if(qbevent){evnt(15391);if(r)goto S_17966;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 1 ; if(!qbevent)break;evnt(15391);}while(r); } S_17969:; if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||new_error){ if(qbevent){evnt(15392);if(r)goto S_17969;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 1 ; if(!qbevent)break;evnt(15392);}while(r); } } S_17973:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ if(qbevent){evnt(15395);if(r)goto S_17973;} do{ *_FUNC_EVALUATE_LONG_RESULT= 1 ; if(!qbevent)break;evnt(15395);}while(r); } } S_17977:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15402);if(r)goto S_17977;} S_17978:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||new_error){ if(qbevent){evnt(15403);if(r)goto S_17978;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15403);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15403);}while(r); } }else{ S_17983:; if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||new_error){ if(qbevent){evnt(15406);if(r)goto S_17983;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15406);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15406);}while(r); } S_17987:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15407);if(r)goto S_17987;} S_17988:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||new_error){ if(qbevent){evnt(15408);if(r)goto S_17988;} 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(15410);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 64 ; if(!qbevent)break;evnt(15411);}while(r); } }else{ S_17993:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||new_error){ if(qbevent){evnt(15415);if(r)goto S_17993;} 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(15417);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15418);}while(r); } } } S_17999:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15423);if(r)goto S_17999;} S_18000:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||new_error){ if(qbevent){evnt(15424);if(r)goto S_18000;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15424);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15424);}while(r); } }else{ S_18005:; if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||new_error){ if(qbevent){evnt(15427);if(r)goto S_18005;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15427);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15427);}while(r); } S_18009:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15428);if(r)goto S_18009;} S_18010:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||new_error){ if(qbevent){evnt(15429);if(r)goto S_18010;} 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(15431);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 64 ; if(!qbevent)break;evnt(15432);}while(r); } }else{ S_18015:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||new_error){ if(qbevent){evnt(15436);if(r)goto S_18015;} 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(15438);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15439);}while(r); } } } S_18021:; if ((-(*_FUNC_EVALUATE_LONG_ISOP== 7 ))||new_error){ if(qbevent){evnt(15445);if(r)goto S_18021;} S_18022:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ if(qbevent){evnt(15455);if(r)goto S_18022;} do{ *_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; if(!qbevent)break;evnt(15456);}while(r); do{ *_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; if(!qbevent)break;evnt(15456);}while(r); S_18025:; if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||new_error){ if(qbevent){evnt(15457);if(r)goto S_18025;} do{ *_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2; if(!qbevent)break;evnt(15457);}while(r); } S_18028:; if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||new_error){ if(qbevent){evnt(15458);if(r)goto S_18028;} 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(15459);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15459);}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(15460);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15460);}while(r); } S_18034:; if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||new_error){ if(qbevent){evnt(15462);if(r)goto S_18034;} 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(15463);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15463);}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(15464);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(15464);}while(r); } } } do{ *_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP; if(!qbevent)break;evnt(15469);}while(r); S_18043:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||new_error){ if(qbevent){evnt(15476);if(r)goto S_18043;} S_18044:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ if(qbevent){evnt(15477);if(r)goto S_18044;} do{ *_FUNC_EVALUATE_LONG_B= 0 ; if(!qbevent)break;evnt(15479);}while(r); S_18046:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15479);if(r)goto S_18046;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; if(!qbevent)break;evnt(15479);}while(r); } S_18049:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15480);if(r)goto S_18049;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; if(!qbevent)break;evnt(15481);}while(r); S_18051:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ if(qbevent){evnt(15481);if(r)goto S_18051;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; if(!qbevent)break;evnt(15481);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; if(!qbevent)break;evnt(15483);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; if(!qbevent)break;evnt(15488);}while(r); do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; if(!qbevent)break;evnt(15488);}while(r); S_18059:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ if(qbevent){evnt(15488);if(r)goto S_18059;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; if(!qbevent)break;evnt(15488);}while(r); } do{ *_FUNC_EVALUATE_LONG_TYP= 64 ; if(!qbevent)break;evnt(15489);}while(r); S_18063:; if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||new_error){ if(qbevent){evnt(15490);if(r)goto S_18063;} S_18064:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ if(qbevent){evnt(15491);if(r)goto S_18064;} do{ *_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(15491);}while(r); } } } } S_18070:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(15496);if(r)goto S_18070;} S_18071:; if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||new_error){ if(qbevent){evnt(15497);if(r)goto S_18071;} do{ *_FUNC_EVALUATE_LONG_TYP= 64 ; if(!qbevent)break;evnt(15497);}while(r); } } S_18075:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ if(qbevent){evnt(15499);if(r)goto S_18075;} S_18076:; if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(15500);if(r)goto S_18076;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ; if(!qbevent)break;evnt(15500);}while(r); } } S_18080:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||new_error){ if(qbevent){evnt(15502);if(r)goto S_18080;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING; if(!qbevent)break;evnt(15503);}while(r); } S_18083:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||new_error){ if(qbevent){evnt(15505);if(r)goto S_18083;} do{ *_FUNC_EVALUATE_LONG_TYP= 32 ; if(!qbevent)break;evnt(15506);}while(r); } S_18086:; if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ if(qbevent){evnt(15510);if(r)goto S_18086;} S_18087:; if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||new_error){ if(qbevent){evnt(15511);if(r)goto S_18087;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15512);}while(r); S_18089:; if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||new_error){ if(qbevent){evnt(15512);if(r)goto S_18089;} do{ *_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(15512);}while(r); } } } S_18094:; if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ if(qbevent){evnt(15517);if(r)goto S_18094;} S_18095:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||new_error){ if(qbevent){evnt(15518);if(r)goto S_18095;} S_18096:; if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ if(qbevent){evnt(15520);if(r)goto S_18096;} 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(15520);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15520);}while(r); } do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; if(!qbevent)break;evnt(15524);}while(r); S_18101:; if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(15525);if(r)goto S_18101;} }else{ S_18103:; if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||new_error){ if(qbevent){evnt(15528);if(r)goto S_18103;} do{ *_FUNC_EVALUATE_LONG_B= 64 ; if(!qbevent)break;evnt(15528);}while(r); } S_18106:; if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||new_error){ if(qbevent){evnt(15529);if(r)goto S_18106;} do{ *_FUNC_EVALUATE_LONG_B= 256 ; if(!qbevent)break;evnt(15529);}while(r); } S_18109:; if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||new_error){ if(qbevent){evnt(15530);if(r)goto S_18109;} do{ *_FUNC_EVALUATE_LONG_B= 32 ; if(!qbevent)break;evnt(15530);}while(r); } } do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; if(!qbevent)break;evnt(15532);}while(r); S_18114:; if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(15533);if(r)goto S_18114;} S_18115:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ if(qbevent){evnt(15534);if(r)goto S_18115;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; if(!qbevent)break;evnt(15534);}while(r); } }else{ do{ *_FUNC_EVALUATE_LONG_B3= 32 ; if(!qbevent)break;evnt(15536);}while(r); S_18120:; if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||new_error){ if(qbevent){evnt(15537);if(r)goto S_18120;} do{ *_FUNC_EVALUATE_LONG_B3= 64 ; if(!qbevent)break;evnt(15537);}while(r); } S_18123:; if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||new_error){ if(qbevent){evnt(15538);if(r)goto S_18123;} do{ *_FUNC_EVALUATE_LONG_B3= 256 ; if(!qbevent)break;evnt(15538);}while(r); } S_18126:; if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||new_error){ if(qbevent){evnt(15539);if(r)goto S_18126;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3; if(!qbevent)break;evnt(15539);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; if(!qbevent)break;evnt(15541);}while(r); } } S_18133:; if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||new_error){ if(qbevent){evnt(15548);if(r)goto S_18133;} 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(15549);}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(15550);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15550);}while(r); do{ goto LABEL_OPERATORAPPLIED; if(!qbevent)break;evnt(15550);}while(r); } S_18139:; if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||new_error){ if(qbevent){evnt(15555);if(r)goto S_18139;} 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(15556);}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(15557);}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(15557);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15557);}while(r); do{ goto LABEL_OPERATORAPPLIED; if(!qbevent)break;evnt(15557);}while(r); } S_18146:; if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ if(qbevent){evnt(15560);if(r)goto S_18146;} 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(15561);}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(15562);}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(15562);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15562);}while(r); do{ goto LABEL_OPERATORAPPLIED; if(!qbevent)break;evnt(15562);}while(r); } S_18153:; if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||new_error){ if(qbevent){evnt(15565);if(r)goto S_18153;} 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(15566);}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(15567);}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(15567);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15567);}while(r); do{ goto LABEL_OPERATORAPPLIED; if(!qbevent)break;evnt(15567);}while(r); } S_18160:; if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||new_error){ if(qbevent){evnt(15570);if(r)goto S_18160;} 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(15571);}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(15572);}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(15572);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; if(!qbevent)break;evnt(15572);}while(r); do{ goto LABEL_OPERATORAPPLIED; if(!qbevent)break;evnt(15572);}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(15577);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15577);}while(r); LABEL_OPERATORAPPLIED:; if(qbevent){evnt(15578);r=0;} S_18169:; if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||new_error){ if(qbevent){evnt(15580);if(r)goto S_18169;} 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(15580);}while(r); do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; if(!qbevent)break;evnt(15580);}while(r); } do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; if(!qbevent)break;evnt(15581);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; if(!qbevent)break;evnt(15584);}while(r); } }else{ do{ *_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; if(!qbevent)break;evnt(15587);}while(r); } S_18180:; if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||new_error){ if(qbevent){evnt(15589);if(r)goto S_18180;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15589);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15589);}while(r); } fornext_continue_2400:; } fornext_exit_2400:; S_18185:; if (( 0 )||new_error){ if(qbevent){evnt(15591);if(r)goto S_18185;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2402; sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); if (new_error) goto skip2402; skip2402: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15591);}while(r); } S_18188:; fornext_value2404= 1 ; fornext_finalvalue2404=*_FUNC_EVALUATE_LONG_BLOCKN; fornext_step2404= 1 ; if (fornext_step2404<0) fornext_step_negative2404=1; else fornext_step_negative2404=0; if (new_error) goto fornext_error2404; goto fornext_entrylabel2404; while(1){ fornext_value2404=fornext_step2404+(*_FUNC_EVALUATE_LONG_I); fornext_entrylabel2404: *_FUNC_EVALUATE_LONG_I=fornext_value2404; if (fornext_step_negative2404){ if (fornext_value2404fornext_finalvalue2404) break; } fornext_error2404:; if(qbevent){evnt(15594);if(r)goto S_18188;} 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(15595);}while(r); fornext_continue_2403:; } fornext_exit_2403:; S_18191:; if (( 0 )||new_error){ if(qbevent){evnt(15598);if(r)goto S_18191;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2405; 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 skip2405; skip2405: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15599);}while(r); S_18193:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15600);if(r)goto S_18193;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2406; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0 , 0 , 0 ); if (new_error) goto skip2406; skip2406: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15600);}while(r); } S_18196:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15601);if(r)goto S_18196;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2407; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0 , 0 , 0 ); if (new_error) goto skip2407; skip2407: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15601);}while(r); } S_18199:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(15602);if(r)goto S_18199;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2408; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0 , 0 , 0 ); if (new_error) goto skip2408; skip2408: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15602);}while(r); } S_18202:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(15603);if(r)goto S_18202;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2409; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0 , 0 , 0 ); if (new_error) goto skip2409; skip2409: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15603);}while(r); } S_18205:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(15604);if(r)goto S_18205;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2410; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0 , 0 , 0 ); if (new_error) goto skip2410; skip2410: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15604);}while(r); } S_18208:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ if(qbevent){evnt(15605);if(r)goto S_18208;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2411; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0 , 0 , 0 ); if (new_error) goto skip2411; skip2411: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15605);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2412; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),FUNC_STR2(&(pass2413=*_FUNC_EVALUATE_LONG_TYP& 511 ))),qbs_new_txt_len(")",1)), 0 , 0 , 1 ); if (new_error) goto skip2412; skip2412: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15606);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15610);}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; 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 "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{ qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15620);}while(r); S_18215:; if (( 0 )||new_error){ if(qbevent){evnt(15622);if(r)goto S_18215;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2415; 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 skip2415; skip2415: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15622);}while(r); } do{ if(!qbevent)break;evnt(15624);}while(r); do{ memcpy(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2861); if(!qbevent)break;evnt(15626);}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(15627);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381)); if(!qbevent)break;evnt(15628);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID; if(!qbevent)break;evnt(15629);}while(r); S_18223:; 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(15631);if(r)goto S_18223;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15631);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15631);}while(r); } do{ SUB_SETDEPENDENCY(&(pass2416=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546)))); if(!qbevent)break;evnt(15633);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ; if(!qbevent)break;evnt(15635);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; if(!qbevent)break;evnt(15636);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; if(!qbevent)break;evnt(15636);}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(15638);}while(r); S_18232:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||new_error){ if(qbevent){evnt(15639);if(r)goto S_18232;} do{ *_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; if(!qbevent)break;evnt(15642);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_A= 0 ; if(!qbevent)break;evnt(15643);}while(r); S_18235:; fornext_value2419= 1 ; fornext_finalvalue2419=_FUNC_EVALUATEFUNC_STRING_F->len; fornext_step2419= 1 ; if (fornext_step2419<0) fornext_step_negative2419=1; else fornext_step_negative2419=0; if (new_error) goto fornext_error2419; goto fornext_entrylabel2419; while(1){ fornext_value2419=fornext_step2419+(*_FUNC_EVALUATEFUNC_LONG_FI); fornext_entrylabel2419: *_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2419; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2419){ if (fornext_value2419fornext_finalvalue2419) break; } fornext_error2419:; if(qbevent){evnt(15644);if(r)goto S_18235;} do{ *_FUNC_EVALUATEFUNC_LONG_FA=qbs_asc(_FUNC_EVALUATEFUNC_STRING_F,*_FUNC_EVALUATEFUNC_LONG_FI); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15645);}while(r); S_18237:; if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 63 ))||new_error){ if(qbevent){evnt(15646);if(r)goto S_18237;} do{ *_FUNC_EVALUATEFUNC_LONG_A=*_FUNC_EVALUATEFUNC_LONG_A+ 1 ; if(!qbevent)break;evnt(15647);}while(r); S_18239:; if (((-(*_FUNC_EVALUATEFUNC_LONG_SQB!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST== 0 )))||new_error){ if(qbevent){evnt(15648);if(r)goto S_18239;} do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=*_FUNC_EVALUATEFUNC_LONG_A; if(!qbevent)break;evnt(15648);}while(r); } } S_18243:; if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 91 ))||new_error){ if(qbevent){evnt(15650);if(r)goto S_18243;} do{ *_FUNC_EVALUATEFUNC_LONG_SQB= 1 ; if(!qbevent)break;evnt(15650);}while(r); } S_18246:; if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 93 ))||new_error){ if(qbevent){evnt(15651);if(r)goto S_18246;} do{ *_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; if(!qbevent)break;evnt(15651);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=*_FUNC_EVALUATEFUNC_LONG_A; if(!qbevent)break;evnt(15651);}while(r); } fornext_continue_2418:; } fornext_exit_2418:; do{ *_FUNC_EVALUATEFUNC_LONG_OMITARGS=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST-*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST+ 1 ; if(!qbevent)break;evnt(15653);}while(r); S_18252:; if (((-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))-*_FUNC_EVALUATEFUNC_LONG_OMITARGS)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))||new_error){ if(qbevent){evnt(15655);if(r)goto S_18252;} 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(15655);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15655);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ; if(!qbevent)break;evnt(15657);}while(r); S_18257:; if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))==*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ if(qbevent){evnt(15659);if(r)goto S_18257;} do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; if(!qbevent)break;evnt(15659);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; if(!qbevent)break;evnt(15659);}while(r); } }else{ S_18262:; 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(15663);if(r)goto S_18262;} do{ goto LABEL_SKIPARGNUMCHK; if(!qbevent)break;evnt(15663);}while(r); } S_18265:; 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(15664);if(r)goto S_18265;} do{ goto LABEL_SKIPARGNUMCHK; if(!qbevent)break;evnt(15664);}while(r); } S_18268:; if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ if(qbevent){evnt(15666);if(r)goto S_18268;} 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(15666);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15666);}while(r); } } LABEL_SKIPARGNUMCHK:; if(qbevent){evnt(15670);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(15672);}while(r); S_18274:; if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||new_error){ if(qbevent){evnt(15675);if(r)goto S_18274;} do{ *_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ; if(!qbevent)break;evnt(15677);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ; if(!qbevent)break;evnt(15678);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15680);}while(r); S_18278:; if ((-(*_FUNC_EVALUATEFUNC_LONG_N== 0 ))||new_error){ if(qbevent){evnt(15681);if(r)goto S_18278;} do{ *_FUNC_EVALUATEFUNC_LONG_I= 0 ; if(!qbevent)break;evnt(15681);}while(r); do{ goto LABEL_NOARGS; if(!qbevent)break;evnt(15681);}while(r); } S_18282:; fornext_value2422= 1 ; fornext_finalvalue2422=*_FUNC_EVALUATEFUNC_LONG_N; fornext_step2422= 1 ; if (fornext_step2422<0) fornext_step_negative2422=1; else fornext_step_negative2422=0; if (new_error) goto fornext_error2422; goto fornext_entrylabel2422; while(1){ fornext_value2422=fornext_step2422+(*_FUNC_EVALUATEFUNC_LONG_I); fornext_entrylabel2422: *_FUNC_EVALUATEFUNC_LONG_I=fornext_value2422; if (fornext_step_negative2422){ if (fornext_value2422fornext_finalvalue2422) break; } fornext_error2422:; if(qbevent){evnt(15683);if(r)goto S_18282;} S_18283:; if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ if(qbevent){evnt(15687);if(r)goto S_18283;} LABEL_NOARGS:; if(qbevent){evnt(15688);r=0;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15689);}while(r); S_18285:; fornext_value2424= 1 ; fornext_finalvalue2424=*_FUNC_EVALUATEFUNC_LONG_OMITARGS- 1 ; fornext_step2424= 1 ; if (fornext_step2424<0) fornext_step_negative2424=1; else fornext_step_negative2424=0; if (new_error) goto fornext_error2424; goto fornext_entrylabel2424; while(1){ fornext_value2424=fornext_step2424+(*_FUNC_EVALUATEFUNC_LONG_FI); fornext_entrylabel2424: *_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2424; if (fornext_step_negative2424){ if (fornext_value2424fornext_finalvalue2424) break; } fornext_error2424:; if(qbevent){evnt(15693);if(r)goto S_18285;} 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(15693);}while(r); fornext_continue_2423:; } fornext_exit_2423:; 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(15693);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; if(!qbevent)break;evnt(15694);}while(r); S_18290:; if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ if(qbevent){evnt(15695);if(r)goto S_18290;} do{ goto fornext_exit_2421; if(!qbevent)break;evnt(15695);}while(r); } 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(15696);}while(r); } 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(15699);}while(r); S_18296:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(15700);if(r)goto S_18296;} do{ *_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ; if(!qbevent)break;evnt(15700);}while(r); } S_18299:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(15701);if(r)goto S_18299;} do{ *_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ; if(!qbevent)break;evnt(15701);}while(r); } S_18302:; 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(15702);if(r)goto S_18302;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15704);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15705);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15706);}while(r); S_18306:; if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ if(qbevent){evnt(15708);if(r)goto S_18306;} 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(15709);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2425=*_FUNC_EVALUATEFUNC_LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15711);}while(r); } S_18311:; 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(15714);if(r)goto S_18311;} do{ *_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ; if(!qbevent)break;evnt(15714);}while(r); }else{ do{ *_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ; if(!qbevent)break;evnt(15714);}while(r); } S_18316:; 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(15719);if(r)goto S_18316;} S_18317:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(15720);if(r)goto S_18317;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15721);}while(r); S_18319:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15722);if(r)goto S_18319;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15722);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15723);}while(r); do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(15724);}while(r); } } S_18326:; 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(15730);if(r)goto S_18326;} S_18327:; 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(15731);if(r)goto S_18327;} S_18328:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(15732);if(r)goto S_18328;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15733);}while(r); S_18330:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15734);if(r)goto S_18330;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15734);}while(r); } S_18333:; if (( 0 )||new_error){ if(qbevent){evnt(15735);if(r)goto S_18333;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2426; 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 skip2426; skip2426: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(15735);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15736);}while(r); do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(15737);}while(r); } } } S_18341:; 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(15742);if(r)goto S_18341;} S_18342:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(15743);if(r)goto S_18342;} 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(15745);}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(15746);}while(r); S_18345:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15747);if(r)goto S_18345;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15747);}while(r); } S_18348:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(15748);if(r)goto S_18348;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15748);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15748);}while(r); } S_18352:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ if(qbevent){evnt(15749);if(r)goto S_18352;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15749);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15749);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15751);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(15752);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15753);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15754);}while(r); do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(15755);}while(r); } } S_18363:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||new_error){ if(qbevent){evnt(15761);if(r)goto S_18363;} S_18364:; 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(15762);if(r)goto S_18364;} S_18365:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ if(qbevent){evnt(15763);if(r)goto S_18365;} S_18366:; 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(15764);if(r)goto S_18366;} 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(15764);}while(r); } } } } S_18372:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||new_error){ if(qbevent){evnt(15771);if(r)goto S_18372;} S_18373:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ if(qbevent){evnt(15772);if(r)goto S_18373;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2428= 32 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15773);}while(r); S_18375:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15774);if(r)goto S_18375;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15774);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15775);}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(15776);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15777);}while(r); } } S_18383:; 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(15788);if(r)goto S_18383;} S_18384:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(15789);if(r)goto S_18384;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15790);}while(r); } S_18387:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ if(qbevent){evnt(15792);if(r)goto S_18387;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15793);}while(r); } S_18390:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||new_error){ if(qbevent){evnt(15795);if(r)goto S_18390;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15796);}while(r); S_18392:; 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(15797);if(r)goto S_18392;} S_18393:; 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(15798);if(r)goto S_18393;} 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(15799);}while(r); }else{ S_18396:; 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(15801);if(r)goto S_18396;} 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(15801);}while(r); } } } do{ *_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15804);}while(r); S_18402:; if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||new_error){ if(qbevent){evnt(15805);if(r)goto S_18402;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15805);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15805);}while(r); } S_18406:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(15806);if(r)goto S_18406;} 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(15806);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15806);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE; if(!qbevent)break;evnt(15807);}while(r); S_18411:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(15808);if(r)goto S_18411;} S_18412:; if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(15809);if(r)goto S_18412;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15809);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15809);}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(15810);}while(r); }else{ S_18418:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(15812);if(r)goto S_18418;} 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(15813);}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(15814);}while(r); }else{ do{ *_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/ 8 ; if(!qbevent)break;evnt(15816);}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(15817);}while(r); } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2431=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15826);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2432= -6 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15827);}while(r); S_18428:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ if(qbevent){evnt(15828);if(r)goto S_18428;} 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(15830);}while(r); } S_18431:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(15832);if(r)goto S_18431;} 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(15833);}while(r); }else{ S_18434:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(15835);if(r)goto S_18434;} 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(15836);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 ); if(!qbevent)break;evnt(15837);}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(15839);}while(r); S_18439:; if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(15840);if(r)goto S_18439;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15840);}while(r); } } } do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T; if(!qbevent)break;evnt(15850);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15853);}while(r); } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15858);}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(15859);}while(r); S_18450:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15860);if(r)goto S_18450;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15860);}while(r); } S_18453:; 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(15864);if(r)goto S_18453;} S_18454:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(15865);if(r)goto S_18454;} S_18455:; if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ if(qbevent){evnt(15866);if(r)goto S_18455;} do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ; if(!qbevent)break;evnt(15867);}while(r); } S_18458:; if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ if(qbevent){evnt(15869);if(r)goto S_18458;} 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(15870);}while(r); S_18460:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||new_error){ if(qbevent){evnt(15871);if(r)goto S_18460;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15871);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15871);}while(r); } } } } S_18467:; 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(15877);if(r)goto S_18467;} S_18468:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(15878);if(r)goto S_18468;} 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(15879);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15879);}while(r); } S_18472:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(15881);if(r)goto S_18472;} S_18473:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(15882);if(r)goto S_18473;} 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(15882);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15882);}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,&(pass2434= -6 ))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15884);}while(r); S_18479:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15885);if(r)goto S_18479;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15885);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15886);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15887);}while(r); } S_18485:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(15891);if(r)goto S_18485;} S_18486:; 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(15892);if(r)goto S_18486;} 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(15892);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15892);}while(r); } S_18490:; 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(15893);if(r)goto S_18490;} 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(15893);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15893);}while(r); } } S_18495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||new_error){ if(qbevent){evnt(15897);if(r)goto S_18495;} S_18496:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(15898);if(r)goto S_18496;} S_18497:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ if(qbevent){evnt(15899);if(r)goto S_18497;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2435= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15899);}while(r); } S_18500:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15900);if(r)goto S_18500;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15900);}while(r); } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(15901);}while(r); } } S_18506:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||new_error){ if(qbevent){evnt(15906);if(r)goto S_18506;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15907);}while(r); S_18508:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(15908);if(r)goto S_18508;} S_18509:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(15910);if(r)goto S_18509;} 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(15911);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15912);}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(15914);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15914);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2436= -5 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15916);}while(r); S_18517:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15917);if(r)goto S_18517;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15917);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15918);}while(r); } S_18522:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||new_error){ if(qbevent){evnt(15922);if(r)goto S_18522;} S_18523:; 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(15923);if(r)goto S_18523;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15924);}while(r); S_18525:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15926);if(r)goto S_18525;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15926);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15926);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; if(!qbevent)break;evnt(15927);}while(r); S_18530:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(15928);if(r)goto S_18530;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2437= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15928);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; if(!qbevent)break;evnt(15928);}while(r); } S_18534:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15929);if(r)goto S_18534;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15929);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15930);}while(r); S_18538:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(15931);if(r)goto S_18538;} 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(15932);}while(r); }else{ S_18541:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15934);if(r)goto S_18541;} 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(15935);}while(r); }else{ S_18544:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(15937);if(r)goto S_18544;} S_18545:; if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ if(qbevent){evnt(15938);if(r)goto S_18545;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; if(!qbevent)break;evnt(15938);}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(15940);}while(r); } } do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15943);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15944);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15945);}while(r); } } S_18557:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||new_error){ if(qbevent){evnt(15952);if(r)goto S_18557;} S_18558:; 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(15953);if(r)goto S_18558;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15954);}while(r); S_18560:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15955);if(r)goto S_18560;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15955);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15955);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; if(!qbevent)break;evnt(15956);}while(r); S_18565:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(15957);if(r)goto S_18565;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2438= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15957);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; if(!qbevent)break;evnt(15957);}while(r); } S_18569:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15958);if(r)goto S_18569;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15958);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15959);}while(r); S_18573:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(15960);if(r)goto S_18573;} do{ *_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/ 4 ; if(!qbevent)break;evnt(15961);}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(15962);}while(r); }else{ S_18577:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15964);if(r)goto S_18577;} 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(15965);}while(r); }else{ S_18580:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ if(qbevent){evnt(15967);if(r)goto S_18580;} do{ *_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ; if(!qbevent)break;evnt(15967);}while(r); } S_18583:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ if(qbevent){evnt(15968);if(r)goto S_18583;} do{ *_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ; if(!qbevent)break;evnt(15968);}while(r); } S_18586:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(15969);if(r)goto S_18586;} do{ *_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ; if(!qbevent)break;evnt(15969);}while(r); } S_18589:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(15970);if(r)goto S_18589;} S_18590:; if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||new_error){ if(qbevent){evnt(15971);if(r)goto S_18590;} do{ *_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ; if(!qbevent)break;evnt(15971);}while(r); }else{ do{ *_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ; if(!qbevent)break;evnt(15971);}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(15973);}while(r); } } do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15976);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15977);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(15978);}while(r); } } S_18604:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||new_error){ if(qbevent){evnt(15991);if(r)goto S_18604;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15992);}while(r); S_18606:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(15993);if(r)goto S_18606;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15993);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(15993);}while(r); } S_18610:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(15994);if(r)goto S_18610;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2439= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15994);}while(r); } S_18613:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(15995);if(r)goto S_18613;} do{ goto exit_subfunc; if(!qbevent)break;evnt(15995);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(15996);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15997);}while(r); S_18618:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(15998);if(r)goto S_18618;} S_18619:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(15999);if(r)goto S_18619;} 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(15999);}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(15999);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(15999);}while(r); } }else{ S_18626:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(16001);if(r)goto S_18626;} 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(16002);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16002);}while(r); }else{ S_18630:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ if(qbevent){evnt(16004);if(r)goto S_18630;} 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(16004);}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(16004);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16004);}while(r); } } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16007);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16008);}while(r); } S_18641:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||new_error){ if(qbevent){evnt(16012);if(r)goto S_18641;} S_18642:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16013);if(r)goto S_18642;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16013);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16013);}while(r); } S_18646:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16014);if(r)goto S_18646;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2440= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16014);}while(r); } S_18649:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16015);if(r)goto S_18649;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16015);}while(r); } S_18652:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16017);if(r)goto S_18652;} 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(16017);}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(16017);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16018);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16019);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16020);}while(r); } S_18661:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||new_error){ if(qbevent){evnt(16024);if(r)goto S_18661;} S_18662:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16025);if(r)goto S_18662;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16025);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16025);}while(r); } S_18666:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16026);if(r)goto S_18666;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2441= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16026);}while(r); } S_18669:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16027);if(r)goto S_18669;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16027);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16029);}while(r); S_18673:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16030);if(r)goto S_18673;} S_18674:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16031);if(r)goto S_18674;} 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(16031);}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(16031);}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(16033);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16035);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16036);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16037);}while(r); } S_18686:; 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(16041);if(r)goto S_18686;} S_18687:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16042);if(r)goto S_18687;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16042);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16042);}while(r); } S_18691:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16043);if(r)goto S_18691;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2442= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16043);}while(r); } S_18694:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16044);if(r)goto S_18694;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16044);}while(r); } S_18697:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16046);if(r)goto S_18697;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16047);}while(r); S_18699:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16048);if(r)goto S_18699;} 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(16048);}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(16048);}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(16050);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16052);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16053);}while(r); S_18709:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16054);if(r)goto S_18709;} S_18710:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(16055);if(r)goto S_18710;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16055);}while(r); }else{ do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16055);}while(r); } } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16057);}while(r); } S_18718:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||new_error){ if(qbevent){evnt(16062);if(r)goto S_18718;} S_18719:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16063);if(r)goto S_18719;} 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(16063);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16063);}while(r); } S_18723:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16064);if(r)goto S_18723;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16064);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16064);}while(r); } S_18727:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16065);if(r)goto S_18727;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2443= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16065);}while(r); } S_18730:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16066);if(r)goto S_18730;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16066);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16068);}while(r); S_18734:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16069);if(r)goto S_18734;} S_18735:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16070);if(r)goto S_18735;} 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(16070);}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(16072);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16074);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16075);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16076);}while(r); } S_18745:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||new_error){ if(qbevent){evnt(16080);if(r)goto S_18745;} S_18746:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16081);if(r)goto S_18746;} 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(16081);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16081);}while(r); } S_18750:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16082);if(r)goto S_18750;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16082);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16082);}while(r); } S_18754:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16083);if(r)goto S_18754;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2444= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16083);}while(r); } S_18757:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16084);if(r)goto S_18757;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16084);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16086);}while(r); S_18761:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16087);if(r)goto S_18761;} S_18762:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(16088);if(r)goto S_18762;} 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(16088);}while(r); } S_18765:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16089);if(r)goto S_18765;} 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(16089);}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(16091);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16093);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16094);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16095);}while(r); } S_18775:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||new_error){ if(qbevent){evnt(16100);if(r)goto S_18775;} S_18776:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16101);if(r)goto S_18776;} 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(16101);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16101);}while(r); } S_18780:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16102);if(r)goto S_18780;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16102);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16102);}while(r); } S_18784:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16103);if(r)goto S_18784;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2445= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16103);}while(r); } S_18787:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16104);if(r)goto S_18787;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16104);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16106);}while(r); S_18791:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16107);if(r)goto S_18791;} S_18792:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16108);if(r)goto S_18792;} 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(16108);}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(16108);}while(r); } }else{ S_18798:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(16110);if(r)goto S_18798;} S_18799:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(16111);if(r)goto S_18799;} 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(16111);}while(r); } S_18802:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ if(qbevent){evnt(16112);if(r)goto S_18802;} 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(16112);}while(r); } }else{ S_18806:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ if(qbevent){evnt(16114);if(r)goto S_18806;} 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(16114);}while(r); } } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16117);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 32 ; if(!qbevent)break;evnt(16118);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16119);}while(r); } S_18815:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||new_error){ if(qbevent){evnt(16123);if(r)goto S_18815;} S_18816:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16124);if(r)goto S_18816;} 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(16124);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16124);}while(r); } S_18820:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16125);if(r)goto S_18820;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16125);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16125);}while(r); } S_18824:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16126);if(r)goto S_18824;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2446= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16126);}while(r); } S_18827:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16127);if(r)goto S_18827;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16127);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16129);}while(r); S_18831:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16130);if(r)goto S_18831;} S_18832:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ if(qbevent){evnt(16131);if(r)goto S_18832;} 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(16131);}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(16131);}while(r); } }else{ S_18838:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(16133);if(r)goto S_18838;} S_18839:; if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ if(qbevent){evnt(16134);if(r)goto S_18839;} 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(16134);}while(r); } S_18842:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ if(qbevent){evnt(16135);if(r)goto S_18842;} 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(16135);}while(r); } }else{ S_18846:; if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ if(qbevent){evnt(16137);if(r)goto S_18846;} 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(16137);}while(r); } S_18849:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ if(qbevent){evnt(16138);if(r)goto S_18849;} 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(16138);}while(r); } } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16141);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 16 ; if(!qbevent)break;evnt(16142);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16143);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ; if(!qbevent)break;evnt(16147);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ; if(!qbevent)break;evnt(16148);}while(r); S_18860:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||new_error){ if(qbevent){evnt(16149);if(r)goto S_18860;} do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ; if(!qbevent)break;evnt(16149);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16149);}while(r); } S_18864:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||new_error){ if(qbevent){evnt(16150);if(r)goto S_18864;} do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ; if(!qbevent)break;evnt(16150);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16150);}while(r); } S_18868:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||new_error){ if(qbevent){evnt(16151);if(r)goto S_18868;} do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ; if(!qbevent)break;evnt(16151);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16151);}while(r); } S_18872:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||new_error){ if(qbevent){evnt(16152);if(r)goto S_18872;} do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ; if(!qbevent)break;evnt(16152);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16152);}while(r); } S_18876:; 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(16153);if(r)goto S_18876;} do{ *_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ; if(!qbevent)break;evnt(16153);}while(r); } S_18879:; if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||new_error){ if(qbevent){evnt(16154);if(r)goto S_18879;} S_18880:; if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ if(qbevent){evnt(16155);if(r)goto S_18880;} S_18881:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ if(qbevent){evnt(16156);if(r)goto S_18881;} do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Cannot convert ",15),__STRING_QB64PREFIX),qbs_new_txt_len("OFFSET type to other types",26))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16156);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16156);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ; if(!qbevent)break;evnt(16158);}while(r); S_18886:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(16159);if(r)goto S_18886;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16159);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16159);}while(r); } S_18890:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(16160);if(r)goto S_18890;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16160);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16160);}while(r); } S_18894:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(16161);if(r)goto S_18894;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16161);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16161);}while(r); } S_18898:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(16162);if(r)goto S_18898;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16162);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16162);}while(r); } S_18902:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(16163);if(r)goto S_18902;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16163);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16163);}while(r); } S_18906:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(16164);if(r)goto S_18906;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16164);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16164);}while(r); } S_18910:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(16165);if(r)goto S_18910;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16165);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16165);}while(r); } S_18914:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(16166);if(r)goto S_18914;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16166);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16166);}while(r); } S_18918:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(16167);if(r)goto S_18918;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16167);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16167);}while(r); } S_18922:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(16168);if(r)goto S_18922;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16168);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16168);}while(r); } S_18926:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(16169);if(r)goto S_18926;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16169);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16169);}while(r); } S_18930:; 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(16170);if(r)goto S_18930;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16170);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16170);}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(16170);}while(r); } S_18935:; 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(16171);if(r)goto S_18935;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16171);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16171);}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(16171);}while(r); } S_18940:; if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||new_error){ if(qbevent){evnt(16172);if(r)goto S_18940;} 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(16172);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16172);}while(r); } S_18944:; if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||new_error){ if(qbevent){evnt(16173);if(r)goto S_18944;} 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(16174);}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(16176);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ; if(!qbevent)break;evnt(16178);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP; if(!qbevent)break;evnt(16179);}while(r); } } do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ; if(!qbevent)break;evnt(16184);}while(r); S_18954:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||new_error){ if(qbevent){evnt(16185);if(r)goto S_18954;} do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ; if(!qbevent)break;evnt(16185);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16185);}while(r); } S_18958:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||new_error){ if(qbevent){evnt(16186);if(r)goto S_18958;} do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ; if(!qbevent)break;evnt(16186);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16186);}while(r); } S_18962:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||new_error){ if(qbevent){evnt(16187);if(r)goto S_18962;} do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ; if(!qbevent)break;evnt(16187);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16187);}while(r); } S_18966:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||new_error){ if(qbevent){evnt(16188);if(r)goto S_18966;} do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ; if(!qbevent)break;evnt(16188);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16188);}while(r); } S_18970:; 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(16189);if(r)goto S_18970;} do{ *_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ; if(!qbevent)break;evnt(16189);}while(r); } S_18973:; if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||new_error){ if(qbevent){evnt(16190);if(r)goto S_18973;} S_18974:; if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ if(qbevent){evnt(16191);if(r)goto S_18974;} S_18975:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(16192);if(r)goto S_18975;} 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(16192);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16192);}while(r); } S_18979:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16193);if(r)goto S_18979;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2449= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16193);}while(r); } S_18982:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16194);if(r)goto S_18982;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16194);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 0 ; if(!qbevent)break;evnt(16195);}while(r); S_18986:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(16196);if(r)goto S_18986;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16196);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16196);}while(r); } S_18990:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(16197);if(r)goto S_18990;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16197);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16197);}while(r); } S_18994:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(16198);if(r)goto S_18994;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16198);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16198);}while(r); } S_18998:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(16199);if(r)goto S_18998;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16199);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16199);}while(r); } S_19002:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(16200);if(r)goto S_19002;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16200);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16200);}while(r); } S_19006:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(16201);if(r)goto S_19006;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16201);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16201);}while(r); } S_19010:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(16202);if(r)goto S_19010;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16202);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16202);}while(r); } S_19014:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(16203);if(r)goto S_19014;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16203);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16203);}while(r); } S_19018:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(16204);if(r)goto S_19018;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16204);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16204);}while(r); } S_19022:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(16205);if(r)goto S_19022;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16205);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16205);}while(r); } S_19026:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(16206);if(r)goto S_19026;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16206);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16206);}while(r); } S_19030:; 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(16207);if(r)goto S_19030;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16207);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16207);}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(16207);}while(r); } S_19035:; 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(16208);if(r)goto S_19035;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16208);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16208);}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(16208);}while(r); } S_19040:; if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||new_error){ if(qbevent){evnt(16209);if(r)goto S_19040;} 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(16209);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16209);}while(r); } S_19044:; 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(16210);if(r)goto S_19044;} 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(16211);}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(16213);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16215);}while(r); } } S_19052:; 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(16220);if(r)goto S_19052;} S_19053:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ if(qbevent){evnt(16221);if(r)goto S_19053;} S_19054:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16222);if(r)goto S_19054;} S_19055:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16223);if(r)goto S_19055;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2452= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16223);}while(r); } S_19058:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16224);if(r)goto S_19058;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16224);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ; if(!qbevent)break;evnt(16225);}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(16226);}while(r); } } } S_19066:; 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(16232);if(r)goto S_19066;} S_19067:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(16233);if(r)goto S_19067;} 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(16234);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16234);}while(r); } S_19071:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(16236);if(r)goto S_19071;} 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(16237);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16237);}while(r); } S_19075:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ if(qbevent){evnt(16239);if(r)goto S_19075;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16240);}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(16241);}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(16242);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16243);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16244);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2453= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16246);}while(r); S_19083:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16247);if(r)goto S_19083;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16247);}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(16248);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16249);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16250);}while(r); } S_19090:; 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(16254);if(r)goto S_19090;} S_19091:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(16255);if(r)goto S_19091;} 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(16256);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16256);}while(r); } S_19095:; 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(16259);if(r)goto S_19095;} S_19096:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ if(qbevent){evnt(16260);if(r)goto S_19096;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16261);}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(16262);}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(16263);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; if(!qbevent)break;evnt(16264);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16265);}while(r); } S_19103:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16268);if(r)goto S_19103;} S_19104:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(16269);if(r)goto S_19104;} 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(16269);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16269);}while(r); } S_19108:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(16270);if(r)goto S_19108;} 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(16270);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16270);}while(r); } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2454= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16275);}while(r); S_19114:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16276);if(r)goto S_19114;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16276);}while(r); } S_19117:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16277);if(r)goto S_19117;} S_19118:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16278);if(r)goto S_19118;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2455= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16278);}while(r); } S_19121:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16279);if(r)goto S_19121;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16279);}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(16280);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_T= 3 ; if(!qbevent)break;evnt(16281);}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(16283);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_T= 0 ; if(!qbevent)break;evnt(16295);}while(r); S_19129:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(16296);if(r)goto S_19129;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ; if(!qbevent)break;evnt(16296);}while(r); } S_19132:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(16297);if(r)goto S_19132;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ; if(!qbevent)break;evnt(16298);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 ); if(!qbevent)break;evnt(16299);}while(r); }else{ do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16301);}while(r); S_19137:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16302);if(r)goto S_19137;} S_19138:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(16303);if(r)goto S_19138;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ; if(!qbevent)break;evnt(16303);}while(r); } S_19141:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(16304);if(r)goto S_19141;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ; if(!qbevent)break;evnt(16304);}while(r); } S_19144:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||new_error){ if(qbevent){evnt(16305);if(r)goto S_19144;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ; if(!qbevent)break;evnt(16305);}while(r); } }else{ S_19148:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ if(qbevent){evnt(16307);if(r)goto S_19148;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ; if(!qbevent)break;evnt(16307);}while(r); } S_19151:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ if(qbevent){evnt(16308);if(r)goto S_19151;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ; if(!qbevent)break;evnt(16308);}while(r); } S_19154:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(16309);if(r)goto S_19154;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ; if(!qbevent)break;evnt(16309);}while(r); } S_19157:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(16310);if(r)goto S_19157;} do{ *_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ; if(!qbevent)break;evnt(16310);}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(16314);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; if(!qbevent)break;evnt(16315);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16316);}while(r); } S_19167:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ if(qbevent){evnt(16330);if(r)goto S_19167;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16331);}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(16332);}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(16333);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16334);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16335);}while(r); } S_19174:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16338);if(r)goto S_19174;} S_19175:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(16339);if(r)goto S_19175;} 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(16339);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16339);}while(r); } S_19179:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16342);if(r)goto S_19179;} S_19180:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(16343);if(r)goto S_19180;} do{ SUB_GETID(&(pass2456=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16344);}while(r); S_19182:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16345);if(r)goto S_19182;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16345);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(16346);}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(16347);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16348);}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(16349);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16350);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2458= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16353);}while(r); S_19192:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16354);if(r)goto S_19192;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16354);}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(16355);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16356);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16357);}while(r); } } S_19200:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16361);if(r)goto S_19200;} 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(16362);}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(16363);}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(16364);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16365);}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(16366);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16367);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(16371);}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(16372);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16373);}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(16374);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16375);}while(r); } S_19214:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16381);if(r)goto S_19214;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2463= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16382);}while(r); S_19216:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16383);if(r)goto S_19216;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16383);}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(16384);}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(16385);}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(16386);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16387);}while(r); do{ SUB_GETID(&(pass2467=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16390);}while(r); S_19224:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16391);if(r)goto S_19224;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16391);}while(r); } S_19227:; if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ if(qbevent){evnt(16392);if(r)goto S_19227;} 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(16394);}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(16397);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16400);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16403);}while(r); do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2468= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16404);}while(r); S_19236:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16405);if(r)goto S_19236;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16405);}while(r); } S_19239:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16406);if(r)goto S_19239;} S_19240:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(16407);if(r)goto S_19240;} do{ SUB_GETID(&(pass2469=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16410);}while(r); S_19242:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16411);if(r)goto S_19242;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16411);}while(r); } S_19245:; if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ if(qbevent){evnt(16412);if(r)goto S_19245;} 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(16413);}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(16415);}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(16419);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16421);}while(r); } do{ SUB_GETID(&(pass2470=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16426);}while(r); S_19256:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16427);if(r)goto S_19256;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16427);}while(r); } S_19259:; if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ if(qbevent){evnt(16428);if(r)goto S_19259;} 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(16429);}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(16431);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16434);}while(r); } S_19266:; 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(16438);if(r)goto S_19266;} S_19267:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(16439);if(r)goto S_19267;} 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(16440);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16440);}while(r); } S_19271:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ if(qbevent){evnt(16442);if(r)goto S_19271;} do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16443);}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(16444);}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(16445);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16446);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16447);}while(r); } S_19278:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16450);if(r)goto S_19278;} S_19279:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(16451);if(r)goto S_19279;} S_19280:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16452);if(r)goto S_19280;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16453);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16454);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16455);}while(r); } } do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16458);}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,&(pass2471= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16459);}while(r); S_19288:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16460);if(r)goto S_19288;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16460);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16461);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(16465);}while(r); do{ SUB_GETID(&(pass2472=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16467);}while(r); S_19295:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16468);if(r)goto S_19295;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16468);}while(r); } S_19298:; if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ if(qbevent){evnt(16469);if(r)goto S_19298;} S_19299:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16470);if(r)goto S_19299;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2473= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16471);}while(r); S_19301:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16472);if(r)goto S_19301;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16472);}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(16473);}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(16474);}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(16475);}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(16476);}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,&(pass2477= 1 ))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16478);}while(r); S_19310:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16479);if(r)goto S_19310;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16479);}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(16483);}while(r); } do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16485);}while(r); } S_19319:; if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||new_error){ if(qbevent){evnt(16511);if(r)goto S_19319;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2478= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16512);}while(r); S_19321:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16513);if(r)goto S_19321;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16513);}while(r); } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16514);}while(r); } S_19326:; if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||new_error){ if(qbevent){evnt(16517);if(r)goto S_19326;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2479= -7 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16518);}while(r); S_19328:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16519);if(r)goto S_19328;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16519);}while(r); } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16520);}while(r); } S_19333:; if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||new_error){ if(qbevent){evnt(16523);if(r)goto S_19333;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2480= -8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16524);}while(r); S_19335:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16525);if(r)goto S_19335;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16525);}while(r); } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16526);}while(r); } S_19340:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(16529);if(r)goto S_19340;} S_19341:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ if(qbevent){evnt(16530);if(r)goto S_19341;} S_19342:; if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(548))== 0 ))||new_error){ if(qbevent){evnt(16531);if(r)goto S_19342;} 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(16531);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16531);}while(r); } } } do{ *_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ; if(!qbevent)break;evnt(16536);}while(r); S_19349:; if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||new_error){ if(qbevent){evnt(16537);if(r)goto S_19349;} do{ *_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ; if(!qbevent)break;evnt(16538);}while(r); S_19351:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16539);if(r)goto S_19351;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16539);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16539);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16540);}while(r); S_19356:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(16541);if(r)goto S_19356;} do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16541);}while(r); } } S_19360:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(16545);if(r)goto S_19360;} S_19361:; if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||new_error){ if(qbevent){evnt(16546);if(r)goto S_19361;} S_19362:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16551);if(r)goto S_19362;} S_19363:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(16552);if(r)goto S_19363;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16552);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16552);}while(r); } S_19367:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ if(qbevent){evnt(16553);if(r)goto S_19367;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16553);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16553);}while(r); } S_19371:; if (( 0 )||new_error){ if(qbevent){evnt(16554);if(r)goto S_19371;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2481; 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 skip2481; skip2481: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16554);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; if(!qbevent)break;evnt(16557);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16557);}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(16558);}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(16559);}while(r); S_19378:; if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ if(qbevent){evnt(16560);if(r)goto S_19378;} 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(16560);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16560);}while(r); } S_19382:; if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16563);if(r)goto S_19382;} S_19383:; if (( 0 )||new_error){ if(qbevent){evnt(16564);if(r)goto S_19383;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2482; 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 skip2482; skip2482: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16564);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16566);}while(r); do{ SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); if(!qbevent)break;evnt(16567);}while(r); S_19388:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16568);if(r)goto S_19388;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16568);}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(16569);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16570);}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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16571);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16572);}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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16573);}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(16574);}while(r); S_19397:; 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(16576);if(r)goto S_19397;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16576);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16576);}while(r); } }else{ S_19402:; 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(16578);if(r)goto S_19402;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16578);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16578);}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(16582);}while(r); do{ SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM); if(!qbevent)break;evnt(16583);}while(r); S_19409:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16584);if(r)goto S_19409;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16584);}while(r); } S_19412:; if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(16586);if(r)goto S_19412;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16587);}while(r); S_19414:; if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||new_error){ if(qbevent){evnt(16588);if(r)goto S_19414;} 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(16588);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16588);}while(r); } } S_19419:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(16591);if(r)goto S_19419;} S_19420:; 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(16592);if(r)goto S_19420;} 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(16593);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16595);}while(r); } } S_19425:; if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ if(qbevent){evnt(16601);if(r)goto S_19425;} S_19426:; if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||new_error){ if(qbevent){evnt(16606);if(r)goto S_19426;} S_19427:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||new_error){ if(qbevent){evnt(16610);if(r)goto S_19427;} do{ *_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); if(!qbevent)break;evnt(16611);}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(16612);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861)+ 0,((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0, 2861); if(!qbevent)break;evnt(16615);}while(r); }else{ S_19433:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||new_error){ if(qbevent){evnt(16628);if(r)goto S_19433;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)",91)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16628);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16628);}while(r); } } } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2484= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16636);}while(r); S_19440:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16637);if(r)goto S_19440;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16637);}while(r); } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16638);}while(r); } S_19445:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(16656);if(r)goto S_19445;} S_19446:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16657);if(r)goto S_19446;} 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(16658);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; if(!qbevent)break;evnt(16660);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16660);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_ARR= 0 ; if(!qbevent)break;evnt(16663);}while(r); S_19451:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(16663);if(r)goto S_19451;} do{ *_FUNC_EVALUATEFUNC_LONG_ARR= 1 ; if(!qbevent)break;evnt(16663);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ; if(!qbevent)break;evnt(16664);}while(r); S_19455:; if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ if(qbevent){evnt(16664);if(r)goto S_19455;} do{ *_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ; if(!qbevent)break;evnt(16664);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT; if(!qbevent)break;evnt(16664);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); if(!qbevent)break;evnt(16667);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); if(!qbevent)break;evnt(16668);}while(r); S_19461:; if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ if(qbevent){evnt(16671);if(r)goto S_19461;} S_19462:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16673);if(r)goto S_19462;} do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16677);}while(r); do{ SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); if(!qbevent)break;evnt(16678);}while(r); S_19465:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16679);if(r)goto S_19465;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16679);}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(16680);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16681);}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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16682);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16683);}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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16684);}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(16685);}while(r); S_19474:; if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ if(qbevent){evnt(16688);if(r)goto S_19474;} 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(16689);}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(16691);}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(16694);}while(r); S_19480:; if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||new_error){ if(qbevent){evnt(16697);if(r)goto S_19480;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2486=*_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(16697);}while(r); } S_19483:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16698);if(r)goto S_19483;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16698);}while(r); } }else{ S_19487:; if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ if(qbevent){evnt(16702);if(r)goto S_19487;} S_19488:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(16703);if(r)goto S_19488;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass BIT array offsets yet",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16703);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16703);}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,&(pass2487= 0 ))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16704);}while(r); S_19493:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16705);if(r)goto S_19493;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16705);}while(r); } }else{ do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2488= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16707);}while(r); S_19498:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16708);if(r)goto S_19498;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16708);}while(r); } } S_19502:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ if(qbevent){evnt(16712);if(r)goto S_19502;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2489=*_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(16713);}while(r); S_19504:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16714);if(r)goto S_19504;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16714);}while(r); } } } S_19509:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(16720);if(r)goto S_19509;} S_19510:; 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(16721);if(r)goto S_19510;} 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(16722);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16723);}while(r); } } do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16727);}while(r); } } }else{ S_19519:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16745);if(r)goto S_19519;} 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(16746);}while(r); S_19521:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(16747);if(r)goto S_19521;} S_19522:; 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(16748);if(r)goto S_19522;} 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(16749);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(16750);}while(r); } } } } } } S_19531:; if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(16773);if(r)goto S_19531;} S_19532:; if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(16774);if(r)goto S_19532;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; if(!qbevent)break;evnt(16775);}while(r); S_19534:; if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ if(qbevent){evnt(16776);if(r)goto S_19534;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; if(!qbevent)break;evnt(16776);}while(r); } S_19537:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(16777);if(r)goto S_19537;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16777);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16777);}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(16778);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16778);}while(r); } } S_19545:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(16781);if(r)goto S_19545;} S_19546:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(16782);if(r)goto S_19546;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; if(!qbevent)break;evnt(16783);}while(r); S_19548:; if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ if(qbevent){evnt(16784);if(r)goto S_19548;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; if(!qbevent)break;evnt(16784);}while(r); } S_19551:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(16785);if(r)goto S_19551;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16785);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16785);}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(16786);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16786);}while(r); } } S_19559:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(16791);if(r)goto S_19559;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2490= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16792);}while(r); S_19561:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16793);if(r)goto S_19561;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16793);}while(r); } } S_19565:; if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||new_error){ if(qbevent){evnt(16796);if(r)goto S_19565;} S_19566:; if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16797);if(r)goto S_19566;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; if(!qbevent)break;evnt(16798);}while(r); S_19568:; if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ if(qbevent){evnt(16799);if(r)goto S_19568;} do{ *_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; if(!qbevent)break;evnt(16799);}while(r); } S_19571:; 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(16800);if(r)goto S_19571;} 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(16801);}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(16803);}while(r); } S_19576:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 1 ))||new_error){ if(qbevent){evnt(16805);if(r)goto S_19576;} 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(16805);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16805);}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(16806);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16806);}while(r); } }else{ S_19584:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16809);if(r)goto S_19584;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16809);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16809);}while(r); } } S_19589:; if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16813);if(r)goto S_19589;} S_19590:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(16814);if(r)goto S_19590;} do{ *_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ; if(!qbevent)break;evnt(16816);}while(r); S_19592:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ if(qbevent){evnt(16817);if(r)goto S_19592;} 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(16817);}while(r); } S_19595:; if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||new_error){ if(qbevent){evnt(16818);if(r)goto S_19595;} 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(16818);}while(r); } S_19598:; if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||new_error){ if(qbevent){evnt(16819);if(r)goto S_19598;} 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(16819);}while(r); } } } S_19603:; if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||new_error){ if(qbevent){evnt(16823);if(r)goto S_19603;} S_19604:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(16824);if(r)goto S_19604;} 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(16826);}while(r); }else{ S_19607:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(16828);if(r)goto S_19607;} S_19608:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(16829);if(r)goto S_19608;} 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(16829);}while(r); } S_19611:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(16830);if(r)goto S_19611;} 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(16830);}while(r); } S_19614:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||new_error){ if(qbevent){evnt(16831);if(r)goto S_19614;} 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(16831);}while(r); } }else{ S_19618:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(16833);if(r)goto S_19618;} S_19619:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(16834);if(r)goto S_19619;} 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(16834);}while(r); } S_19622:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(16835);if(r)goto S_19622;} 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(16835);}while(r); } S_19625:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(16836);if(r)goto S_19625;} 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(16836);}while(r); } S_19628:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(16837);if(r)goto S_19628;} 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(16837);}while(r); } }else{ S_19632:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(16839);if(r)goto S_19632;} 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(16839);}while(r); } S_19635:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(16840);if(r)goto S_19635;} 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(16840);}while(r); } S_19638:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(16841);if(r)goto S_19638;} 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(16841);}while(r); } S_19641:; if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(16842);if(r)goto S_19641;} 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(16842);}while(r); } } } } } S_19648:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(16849);if(r)goto S_19648;} S_19649:; if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(16850);if(r)goto S_19649;} do{ goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(16850);}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(16852);}while(r); S_19653:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16853);if(r)goto S_19653;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16853);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass2491=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16854);}while(r); S_19657:; 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 ,1),func_chr( 1 ))))||new_error){ if(qbevent){evnt(16856);if(r)goto S_19657;} do{ *_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/ 8 ; if(!qbevent)break;evnt(16857);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2492; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2492; skip2492: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16858);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2493; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); if (new_error) goto skip2493; skip2493: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16859);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2494; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2494; skip2494: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16860);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2495; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2495; skip2495: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16861);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip2496; sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16882);}while(r); } S_19679:; 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(16885);if(r)goto S_19679;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16885);}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(16889);}while(r); S_19684:; 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(16892);if(r)goto S_19684;} S_19685:; if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ if(qbevent){evnt(16893);if(r)goto S_19685;} S_19686:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ if(qbevent){evnt(16894);if(r)goto S_19686;} 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(16894);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16894);}while(r); } } S_19691:; if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ if(qbevent){evnt(16896);if(r)goto S_19691;} S_19692:; if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ if(qbevent){evnt(16897);if(r)goto S_19692;} 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(16897);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16897);}while(r); } } } S_19698:; if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||new_error){ if(qbevent){evnt(16901);if(r)goto S_19698;} 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(16901);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ; if(!qbevent)break;evnt(16902);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; if(!qbevent)break;evnt(16903);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; if(!qbevent)break;evnt(16904);}while(r); } S_19705:; if (((((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST))))&(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N)))||new_error){ if(qbevent){evnt(16907);if(r)goto S_19705;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16908);}while(r); S_19707:; fornext_value2500= 1 ; fornext_finalvalue2500=*_FUNC_EVALUATEFUNC_LONG_OMITARGS; fornext_step2500= 1 ; if (fornext_step2500<0) fornext_step_negative2500=1; else fornext_step_negative2500=0; if (new_error) goto fornext_error2500; goto fornext_entrylabel2500; while(1){ fornext_value2500=fornext_step2500+(*_FUNC_EVALUATEFUNC_LONG_FI); fornext_entrylabel2500: *_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2500; if (fornext_step_negative2500){ if (fornext_value2500fornext_finalvalue2500) break; } fornext_error2500:; if(qbevent){evnt(16910);if(r)goto S_19707;} 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(16910);}while(r); fornext_continue_2499:; } fornext_exit_2499:; do{ *_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; if(!qbevent)break;evnt(16911);}while(r); } fornext_continue_2421:; } fornext_exit_2421:; } S_19714:; 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(16917);if(r)goto S_19714;} S_19715:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||new_error){ if(qbevent){evnt(16918);if(r)goto S_19715;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16918);}while(r); } S_19718:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||new_error){ if(qbevent){evnt(16919);if(r)goto S_19718;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16919);}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(16919);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2501= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16920);}while(r); S_19724:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16921);if(r)goto S_19724;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16921);}while(r); } do{ *_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); if(!qbevent)break;evnt(16924);}while(r); S_19728:; if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||new_error){ if(qbevent){evnt(16925);if(r)goto S_19728;} do{ *_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ; if(!qbevent)break;evnt(16925);}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(16927);}while(r); do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16928);}while(r); do{ goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(16929);}while(r); } S_19735:; if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||new_error){ if(qbevent){evnt(16932);if(r)goto S_19735;} S_19736:; if ((*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST)||new_error){ if(qbevent){evnt(16933);if(r)goto S_19736;} 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(16933);}while(r); }else{ 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(16933);}while(r); } } 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(16935);}while(r); LABEL_EVALFUNCSPECIAL:; if(qbevent){evnt(16937);r=0;} S_19743:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||new_error){ if(qbevent){evnt(16939);if(r)goto S_19743;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(16939);}while(r); } S_19746:; 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(16942);if(r)goto S_19746;} do{ *_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; if(!qbevent)break;evnt(16943);}while(r); S_19748:; if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(16944);if(r)goto S_19748;} S_19749:; if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||new_error){ if(qbevent){evnt(16946);if(r)goto S_19749;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16946);}while(r); } S_19752:; if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||new_error){ if(qbevent){evnt(16947);if(r)goto S_19752;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16947);}while(r); } }else{ S_19756:; if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||new_error){ if(qbevent){evnt(16950);if(r)goto S_19756;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16950);}while(r); } S_19759:; if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||new_error){ if(qbevent){evnt(16951);if(r)goto S_19759;} do{ *_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(16951);}while(r); } } } S_19764:; if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||new_error){ if(qbevent){evnt(16955);if(r)goto S_19764;} do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),FUNC_STR2(&(pass2502=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16957);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; if (new_error) goto skip2503; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2503; skip2503: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16958);}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(16959);}while(r); } S_19769:; if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||new_error){ if(qbevent){evnt(16962);if(r)goto S_19769;} S_19770:; 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(16963);if(r)goto S_19770;} 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(16964);}while(r); } } S_19774:; if (( 0 )||new_error){ if(qbevent){evnt(16968);if(r)goto S_19774;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2504; sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0 , 0 , 0 ); if (new_error) goto skip2504; sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0 , 0 , 1 ); if (new_error) goto skip2504; skip2504: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(16968);}while(r); } do{ qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(16969);}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; 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 "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; S_19778:; if ((-(*_FUNC_VARIABLESIZE_LONG_I!= -1 ))||new_error){ if(qbevent){evnt(16974);if(r)goto S_19778;} do{ SUB_GETID(_FUNC_VARIABLESIZE_LONG_I); if(!qbevent)break;evnt(16974);}while(r); } S_19781:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(16975);if(r)goto S_19781;} do{ goto exit_subfunc; if(!qbevent)break;evnt(16975);}while(r); } do{ *_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(16977);}while(r); S_19785:; if ((-(*_FUNC_VARIABLESIZE_LONG_T== 0 ))||new_error){ if(qbevent){evnt(16977);if(r)goto S_19785;} do{ *_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(16977);}while(r); } do{ *_FUNC_VARIABLESIZE_LONG_BYTES=(*_FUNC_VARIABLESIZE_LONG_T& 511 )/ 8 ; if(!qbevent)break;evnt(16978);}while(r); S_19789:; if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(16980);if(r)goto S_19789;} do{ *_FUNC_VARIABLESIZE_LONG_U=*_FUNC_VARIABLESIZE_LONG_T& 511 ; if(!qbevent)break;evnt(16981);}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(16982);}while(r); } S_19793:; if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(16985);if(r)goto S_19793;} S_19794:; if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(16986);if(r)goto S_19794;} do{ *_FUNC_VARIABLESIZE_LONG_BYTES=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(16987);}while(r); }else{ S_19797:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(16989);if(r)goto S_19797;} 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(16989);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16989);}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(16990);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(16991);}while(r); } } S_19805:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(16995);if(r)goto S_19805;} 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(16996);}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(16997);}while(r); do{ *_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); if(!qbevent)break;evnt(16998);}while(r); S_19809:; if ((-(*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS== -1 ))||new_error){ if(qbevent){evnt(16998);if(r)goto S_19809;} do{ *_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS= 1 ; if(!qbevent)break;evnt(16998);}while(r); } S_19812:; fornext_value2506= 1 ; fornext_finalvalue2506=*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS; fornext_step2506= 1 ; if (fornext_step2506<0) fornext_step_negative2506=1; else fornext_step_negative2506=0; if (new_error) goto fornext_error2506; goto fornext_entrylabel2506; while(1){ fornext_value2506=fornext_step2506+(*_FUNC_VARIABLESIZE_LONG_I2); fornext_entrylabel2506: *_FUNC_VARIABLESIZE_LONG_I2=fornext_value2506; if (fornext_step_negative2506){ if (fornext_value2506fornext_finalvalue2506) break; } fornext_error2506:; if(qbevent){evnt(16999);if(r)goto S_19812;} 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(&(pass2507=(*_FUNC_VARIABLESIZE_LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17000);}while(r); fornext_continue_2505:; } fornext_exit_2505:; 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(17002);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17003);}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(17006);}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; 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 "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_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17013);}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(17014);}while(r); S_19821:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17015);if(r)goto S_19821;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17015);}while(r); } S_19824:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(17018);if(r)goto S_19824;} S_19825:; if (((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP>= 0 )))||new_error){ if(qbevent){evnt(17019);if(r)goto S_19825;} 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(17020);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17020);}while(r); } } S_19830:; if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||new_error){ if(qbevent){evnt(17026);if(r)goto S_19830;} S_19831:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(17027);if(r)goto S_19831;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17027);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17027);}while(r); } S_19835:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(17028);if(r)goto S_19835;} 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(17028);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17028);}while(r); } S_19839:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ if(qbevent){evnt(17032);if(r)goto S_19839;} S_19840:; 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(17033);if(r)goto S_19840;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17033);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17033);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17034);}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(17035);}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(17035);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17036);}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(17037);}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(17037);}while(r); do{ *__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17038);}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(17039);}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(17039);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17040);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17041);}while(r); S_19855:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17042);if(r)goto S_19855;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17042);}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(17043);}while(r); S_19859:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17044);if(r)goto S_19859;} 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(17045);}while(r); S_19861:; 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(17047);if(r)goto S_19861;} do{ goto LABEL_METHOD2USEALLUDT; if(!qbevent)break;evnt(17049);}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(17053);}while(r); S_19866:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(17056);if(r)goto S_19866;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2512=((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(17057);}while(r); }else{ S_19869:; 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(17059);if(r)goto S_19869;} 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(17060);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17061);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2513=((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(17063);}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(17065);}while(r); S_19876:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17066);if(r)goto S_19876;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17066);}while(r); } S_19879:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17067);if(r)goto S_19879;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17067);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17068);}while(r); } S_19884:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(17071);if(r)goto S_19884;} S_19885:; 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(17073);if(r)goto S_19885;} S_19886:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17075);if(r)goto S_19886;} S_19887:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(17076);if(r)goto S_19887;} 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(17077);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17077);}while(r); } } do{ goto LABEL_METHOD2USEALL; if(!qbevent)break;evnt(17080);}while(r); } S_19894:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17083);if(r)goto S_19894;} S_19895:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(17084);if(r)goto S_19895;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17085);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17086);}while(r); S_19898:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17087);if(r)goto S_19898;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17087);}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(17088);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2514= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17089);}while(r); S_19903:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17090);if(r)goto S_19903;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17090);}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(17091);}while(r); S_19907:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17092);if(r)goto S_19907;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17092);}while(r); } S_19910:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17093);if(r)goto S_19910;} 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(17093);}while(r); } }else{ do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2515= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17095);}while(r); S_19915:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17096);if(r)goto S_19915;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17096);}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(17098);}while(r); S_19919:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17099);if(r)goto S_19919;} 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(17099);}while(r); } S_19922:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17100);if(r)goto S_19922;} 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(17100);}while(r); } } do{ goto exit_subfunc; if(!qbevent)break;evnt(17102);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2516= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17104);}while(r); S_19929:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17105);if(r)goto S_19929;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17105);}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(17106);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2517=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17107);}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(17108);}while(r); S_19935:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17109);if(r)goto S_19935;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17109);}while(r); } S_19938:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17110);if(r)goto S_19938;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17110);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17111);}while(r); } S_19943:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17114);if(r)goto S_19943;} S_19944:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(17115);if(r)goto S_19944;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17116);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17117);}while(r); S_19947:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17118);if(r)goto S_19947;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17118);}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(17119);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2518= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17120);}while(r); S_19952:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17121);if(r)goto S_19952;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17121);}while(r); } }else{ do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2519= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17123);}while(r); S_19957:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17124);if(r)goto S_19957;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17124);}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(17125);}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(17127);}while(r); S_19963:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17128);if(r)goto S_19963;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17128);}while(r); } S_19966:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17129);if(r)goto S_19966;} 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(17129);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17130);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2520= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17134);}while(r); S_19972:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17135);if(r)goto S_19972;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17135);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17136);}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(17137);}while(r); S_19977:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17138);if(r)goto S_19977;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17138);}while(r); } S_19980:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17139);if(r)goto S_19980;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17139);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17140);}while(r); } S_19985:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||new_error){ if(qbevent){evnt(17147);if(r)goto S_19985;} S_19986:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(17148);if(r)goto S_19986;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17148);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17148);}while(r); } S_19990:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(17149);if(r)goto S_19990;} 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(17149);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17149);}while(r); } S_19994:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ if(qbevent){evnt(17152);if(r)goto S_19994;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17153);}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(17154);}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(17154);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17155);}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(17156);}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(17156);}while(r); do{ *__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17157);}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(17158);}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(17158);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17159);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17160);}while(r); S_20006:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17161);if(r)goto S_20006;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17161);}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(17162);}while(r); S_20010:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17163);if(r)goto S_20010;} 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(17164);}while(r); S_20012:; 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(17166);if(r)goto S_20012;} do{ goto LABEL_METHOD2USEALLUDT__7; if(!qbevent)break;evnt(17168);}while(r); } } S_20016:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(17172);if(r)goto S_20016;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2524=((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(17173);}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(17174);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2525=((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(17176);}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(17177);}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(17179);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1); if(!qbevent)break;evnt(17184);}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(17185);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17187);}while(r); } S_20028:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(17190);if(r)goto S_20028;} S_20029:; 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(17192);if(r)goto S_20029;} S_20030:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17194);if(r)goto S_20030;} S_20031:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(17195);if(r)goto S_20031;} 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(17196);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17196);}while(r); } } do{ goto LABEL_METHOD2USEALL__7; if(!qbevent)break;evnt(17199);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17202);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17203);}while(r); S_20040:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17204);if(r)goto S_20040;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17204);}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(17205);}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(&(pass2526=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17206);}while(r); S_20045:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17210);if(r)goto S_20045;} S_20046:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(17211);if(r)goto S_20046;} 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(17212);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2527= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17213);}while(r); S_20049:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17214);if(r)goto S_20049;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17214);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17219);}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(17220);}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(17224);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17224);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17227);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2528= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17230);}while(r); S_20061:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17231);if(r)goto S_20061;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17231);}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(17232);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2529=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17233);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17238);}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(17239);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17241);}while(r); } S_20070:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17244);if(r)goto S_20070;} S_20071:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(17245);if(r)goto S_20071;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17246);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17247);}while(r); S_20074:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17248);if(r)goto S_20074;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17248);}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(17249);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2530= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17250);}while(r); S_20079:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17251);if(r)goto S_20079;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17251);}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(17253);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17253);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17260);}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(17261);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17263);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2531= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17267);}while(r); S_20091:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17268);if(r)goto S_20091;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17268);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17269);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17274);}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(17275);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17277);}while(r); } S_20099:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||new_error){ if(qbevent){evnt(17290);if(r)goto S_20099;} LABEL_METHOD2USEALL__7:; if(qbevent){evnt(17291);r=0;} S_20100:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(17292);if(r)goto S_20100;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17292);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17292);}while(r); } S_20104:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(17293);if(r)goto S_20104;} 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(17293);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17293);}while(r); } S_20108:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ if(qbevent){evnt(17296);if(r)goto S_20108;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17298);}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(17299);}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(17299);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17300);}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(17301);}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(17301);}while(r); do{ *__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17302);}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(17303);}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(17303);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17305);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17306);}while(r); S_20120:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17307);if(r)goto S_20120;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17307);}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(17308);}while(r); S_20124:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17308);if(r)goto S_20124;} 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(17308);}while(r); } LABEL_METHOD2USEALLUDT__7:; if(qbevent){evnt(17309);r=0;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2535= -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(17310);}while(r); S_20128:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17311);if(r)goto S_20128;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17311);}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(17312);}while(r); S_20132:; if ((-(*__LONG_E!= 0 ))||new_error){ if(qbevent){evnt(17318);if(r)goto S_20132;} do{ *_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ; if(!qbevent)break;evnt(17318);}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(17318);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17320);}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(17321);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17323);}while(r); } S_20141:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(17327);if(r)goto S_20141;} S_20142:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17328);if(r)goto S_20142;} S_20143:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(17329);if(r)goto S_20143;} 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(17330);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17330);}while(r); } } do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17334);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17335);}while(r); S_20150:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17336);if(r)goto S_20150;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17336);}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(17338);}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(&(pass2536=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17339);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(17341);}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(17343);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2538= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17344);}while(r); S_20158:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17345);if(r)goto S_20158;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17345);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2539= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17346);}while(r); S_20162:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17347);if(r)goto S_20162;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17347);}while(r); } S_20165:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17349);if(r)goto S_20165;} 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(17350);}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(17352);}while(r); } S_20170:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17357);if(r)goto S_20170;} do{ *_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; if(!qbevent)break;evnt(17358);}while(r); }else{ do{ *_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17360);}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(17362);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17364);}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(17365);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17367);}while(r); } S_20180:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17371);if(r)goto S_20180;} S_20181:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(17372);if(r)goto S_20181;} 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(17372);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17372);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17374);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17375);}while(r); S_20187:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17375);if(r)goto S_20187;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17375);}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(17376);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2540= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17377);}while(r); S_20192:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17377);if(r)goto S_20192;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17377);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17379);}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(17380);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17382);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2541= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17386);}while(r); S_20200:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17387);if(r)goto S_20200;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17387);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17388);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); if(!qbevent)break;evnt(17390);}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(17391);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17393);}while(r); } S_20208:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||new_error){ if(qbevent){evnt(17398);if(r)goto S_20208;} LABEL_METHOD2USEALL:; if(qbevent){evnt(17399);r=0;} S_20209:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(17402);if(r)goto S_20209;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17402);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17402);}while(r); } S_20213:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(17403);if(r)goto S_20213;} 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(17403);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17403);}while(r); } S_20217:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ if(qbevent){evnt(17406);if(r)goto S_20217;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17408);}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(17409);}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(17409);}while(r); do{ *_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17410);}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(17411);}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(17411);}while(r); do{ *__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17412);}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(17413);}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(17413);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17414);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17415);}while(r); S_20229:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17416);if(r)goto S_20229;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17416);}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(17417);}while(r); S_20233:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17417);if(r)goto S_20233;} 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(17417);}while(r); } LABEL_METHOD2USEALLUDT:; if(qbevent){evnt(17418);r=0;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2545= -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(17419);}while(r); S_20237:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17420);if(r)goto S_20237;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17420);}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(17421);}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(17422);}while(r); S_20242:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17423);if(r)goto S_20242;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17423);}while(r); } S_20245:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17424);if(r)goto S_20245;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17424);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17425);}while(r); } S_20250:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(17429);if(r)goto S_20250;} S_20251:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17431);if(r)goto S_20251;} S_20252:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(17432);if(r)goto S_20252;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2546= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17433);}while(r); S_20254:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17434);if(r)goto S_20254;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17434);}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(17435);}while(r); S_20258:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17436);if(r)goto S_20258;} 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(17436);}while(r); } S_20261:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17437);if(r)goto S_20261;} 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(17437);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17438);}while(r); } } do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17441);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17442);}while(r); S_20269:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17443);if(r)goto S_20269;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17443);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(17444);}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(17446);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2548= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17447);}while(r); S_20275:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17448);if(r)goto S_20275;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17448);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2549= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17449);}while(r); S_20279:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17450);if(r)goto S_20279;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17450);}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(17451);}while(r); S_20283:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17454);if(r)goto S_20283;} do{ *_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; if(!qbevent)break;evnt(17455);}while(r); }else{ do{ *_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17457);}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(17459);}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(17460);}while(r); S_20290:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17461);if(r)goto S_20290;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17461);}while(r); } S_20293:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17462);if(r)goto S_20293;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17462);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17464);}while(r); } S_20298:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(17468);if(r)goto S_20298;} S_20299:; if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(17469);if(r)goto S_20299;} do{ *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17470);}while(r); do{ SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); if(!qbevent)break;evnt(17471);}while(r); S_20302:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17472);if(r)goto S_20302;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17472);}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(17473);}while(r); do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2550= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17474);}while(r); S_20307:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17475);if(r)goto S_20307;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17475);}while(r); } }else{ do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2551= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17477);}while(r); S_20312:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17478);if(r)goto S_20312;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17478);}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(17479);}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(17481);}while(r); S_20318:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17482);if(r)goto S_20318;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17482);}while(r); } S_20321:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17483);if(r)goto S_20321;} 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(17483);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17484);}while(r); } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2552= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17488);}while(r); S_20327:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17489);if(r)goto S_20327;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17489);}while(r); } do{ *_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; if(!qbevent)break;evnt(17490);}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(17491);}while(r); S_20332:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ if(qbevent){evnt(17492);if(r)goto S_20332;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17492);}while(r); } S_20335:; if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ if(qbevent){evnt(17493);if(r)goto S_20335;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17493);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17494);}while(r); } S_20340:; if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||new_error){ if(qbevent){evnt(17501);if(r)goto S_20340;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17502);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17502);}while(r); } S_20344:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(17505);if(r)goto S_20344;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17506);}while(r); S_20346:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(17507);if(r)goto S_20346;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2553= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17508);}while(r); S_20348:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17509);if(r)goto S_20348;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17509);}while(r); } } do{ goto exit_subfunc; if(!qbevent)break;evnt(17511);}while(r); } S_20354:; if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(17515);if(r)goto S_20354;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer! (as yet unsupported)",68)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17516);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17516);}while(r); do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17518);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17518);}while(r); } S_20360:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(17522);if(r)goto S_20360;} do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2554= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17523);}while(r); S_20362:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17524);if(r)goto S_20362;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17524);}while(r); } } S_20366:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(17527);if(r)goto S_20366;} 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(17528);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17528);}while(r); } S_20370:; if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(17532);if(r)goto S_20370;} S_20371:; if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ if(qbevent){evnt(17533);if(r)goto S_20371;} do{ *_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 511 ; if(!qbevent)break;evnt(17534);}while(r); S_20373:; if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||new_error){ if(qbevent){evnt(17536);if(r)goto S_20373;} 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(17536);}while(r); } S_20376:; if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||new_error){ if(qbevent){evnt(17537);if(r)goto S_20376;} 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(17537);}while(r); } S_20379:; if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||new_error){ if(qbevent){evnt(17538);if(r)goto S_20379;} 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(17538);}while(r); } } } do{ qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17542);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free16.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_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 "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_FINDID_STRING_N,qbs_ucase(_FUNC_FINDID_STRING_N2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17546);}while(r); S_20386:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_FINDID_STRING_N)== 34 )))||new_error){ if(qbevent){evnt(17549);if(r)goto S_20386;} do{ goto LABEL_NOID; if(!qbevent)break;evnt(17549);}while(r); } do{ qbs_set(_FUNC_FINDID_STRING_SECONDARG,__STRING_FINDIDSECONDARG); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17552);}while(r); do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17552);}while(r); do{ *_FUNC_FINDID_LONG_FINDANOTHER=*__INTEGER_FINDANOTHERID; if(!qbevent)break;evnt(17555);}while(r); do{ *__INTEGER_FINDANOTHERID= 0 ; if(!qbevent)break;evnt(17555);}while(r); S_20393:; if (((-(*_FUNC_FINDID_LONG_FINDANOTHER!= 0 ))&(-(*__LONG_FINDIDINTERNAL!= 2 )))||new_error){ if(qbevent){evnt(17556);if(r)goto S_20393;} 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(17556);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17556);}while(r); } S_20397:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17557);if(r)goto S_20397;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17557);}while(r); } do{ *_FUNC_FINDID_LONG_FINDID= 2 ; if(!qbevent)break;evnt(17559);}while(r); do{ *_FUNC_FINDID_LONG_I= 0 ; if(!qbevent)break;evnt(17562);}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(17563);}while(r); S_20403:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17563);if(r)goto S_20403;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17563);}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(17564);}while(r); S_20407:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17564);if(r)goto S_20407;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17564);}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(17565);}while(r); S_20411:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17565);if(r)goto S_20411;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17565);}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(17566);}while(r); S_20415:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17566);if(r)goto S_20415;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17566);}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(17567);}while(r); S_20419:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17567);if(r)goto S_20419;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17567);}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(17568);}while(r); S_20423:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17568);if(r)goto S_20423;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17568);}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(17569);}while(r); S_20427:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17569);if(r)goto S_20427;} do{ goto LABEL_GOTSC; if(!qbevent)break;evnt(17569);}while(r); } LABEL_GOTSC:; if(qbevent){evnt(17570);r=0;} S_20430:; if ((*_FUNC_FINDID_LONG_I)||new_error){ if(qbevent){evnt(17571);if(r)goto S_20430;} 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(17572);}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(17572);}while(r); S_20433:; 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(17573);if(r)goto S_20433;} 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(17573);}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(17584);}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(17585);}while(r); S_20440:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FINDID_STRING_SC->len))||new_error){ if(qbevent){evnt(17586);if(r)goto S_20440;} do{ *_FUNC_FINDID_LONG_SCPASSED= 1 ; if(!qbevent)break;evnt(17586);}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(17586);}while(r); }else{ do{ *_FUNC_FINDID_LONG_SCPASSED= 0 ; if(!qbevent)break;evnt(17586);}while(r); } S_20446:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FINDID_STRING_N->len< 256 )))||new_error){ if(qbevent){evnt(17588);if(r)goto S_20446;} 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(17588);}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(17597);}while(r); S_20450:; if ((*_FUNC_FINDID_LONG_FINDANOTHER)||new_error){ if(qbevent){evnt(17598);if(r)goto S_20450;} LABEL_HASHRETRY:; if(qbevent){evnt(17599);r=0;} do{ *_FUNC_FINDID_LONG_Z=FUNC_HASHFINDCONT(_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); if(!qbevent)break;evnt(17600);}while(r); }else{ do{ *_FUNC_FINDID_LONG_Z=FUNC_HASHFINDREV(_FUNC_FINDID_STRING_N,&(pass2563= 1 ),_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17602);}while(r); } do{ *__LONG_FINDIDINTERNAL=*_FUNC_FINDID_LONG_Z; if(!qbevent)break;evnt(17604);}while(r); S_20456:; if ((-(*_FUNC_FINDID_LONG_Z== 0 ))||new_error){ if(qbevent){evnt(17605);if(r)goto S_20456;} do{ goto LABEL_NOID; if(!qbevent)break;evnt(17605);}while(r); } do{ *_FUNC_FINDID_LONG_FINDID=*_FUNC_FINDID_LONG_Z; if(!qbevent)break;evnt(17606);}while(r); S_20460:; if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+544))== 0 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2645))== 0 )))||new_error){ if(qbevent){evnt(17620);if(r)goto S_20460;} S_20461:; 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]))*2861+2385)),256,1),_FUNC_FINDID_STRING_INSF)))||new_error){ if(qbevent){evnt(17621);if(r)goto S_20461;} do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17621);}while(r); } } S_20465:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+544))== 2 ))||new_error){ if(qbevent){evnt(17625);if(r)goto S_20465;} S_20466:; 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]))*2861+1869)),256,1))!= 32 )))||new_error){ if(qbevent){evnt(17626);if(r)goto S_20466;} S_20467:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+1869)),256,1)))))||new_error){ if(qbevent){evnt(17627);if(r)goto S_20467;} S_20468:; }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]))*2861+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),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]))*2861+1869)),256,1)), 2 ,NULL,0))))){ if(qbevent){evnt(17628);if(r)goto S_20468;} }else{ do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17630);}while(r); } } } S_20473:; 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]))*2861+2125)),256,1))!= 32 )))||new_error){ if(qbevent){evnt(17633);if(r)goto S_20473;} S_20474:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+2125)),256,1)))))||new_error){ if(qbevent){evnt(17634);if(r)goto S_20474;} S_20475:; }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]))*2861+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),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]))*2861+2125)),256,1)), 2 ,NULL,0))))){ if(qbevent){evnt(17635);if(r)goto S_20475;} }else{ do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17637);}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]))*2861+528)),8,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17644);}while(r); do{ *_FUNC_FINDID_LONG_AMUSTHAVE=*_FUNC_FINDID_LONG_IMUSTHAVE& 255 ; if(!qbevent)break;evnt(17645);}while(r); S_20483:; if ((-(*_FUNC_FINDID_LONG_AMUSTHAVE!= 32 ))||new_error){ if(qbevent){evnt(17646);if(r)goto S_20483;} S_20484:; if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ if(qbevent){evnt(17647);if(r)goto S_20484;} S_20485:; 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]))*2861+528)),8,1))))||new_error){ if(qbevent){evnt(17648);if(r)goto S_20485;} do{ goto LABEL_FINDIDOK; if(!qbevent)break;evnt(17648);}while(r); } } do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17659);}while(r); } S_20491:; if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ if(qbevent){evnt(17665);if(r)goto S_20491;} 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]))*2861+520)),8,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17666);}while(r); do{ *_FUNC_FINDID_LONG_AMAYHAVE=*_FUNC_FINDID_LONG_IMAYHAVE& 255 ; if(!qbevent)break;evnt(17667);}while(r); S_20494:; if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 32 ))||new_error){ if(qbevent){evnt(17668);if(r)goto S_20494;} do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17668);}while(r); } S_20497:; if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 36 ))||new_error){ if(qbevent){evnt(17671);if(r)goto S_20497;} S_20498:; if ((-(*_FUNC_FINDID_LONG_IMAYHAVE!= 8228 ))||new_error){ if(qbevent){evnt(17672);if(r)goto S_20498;} S_20499:; if ((qbs_cleanup(qbs_tmp_base,-(string2i(_FUNC_FINDID_STRING_SC)== 8228 )))||new_error){ if(qbevent){evnt(17674);if(r)goto S_20499;} do{ goto LABEL_FINDIDOK; if(!qbevent)break;evnt(17674);}while(r); } } } S_20504:; 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]))*2861+520)),8,1))))||new_error){ if(qbevent){evnt(17678);if(r)goto S_20504;} do{ goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(17678);}while(r); } } LABEL_FINDIDOK:; if(qbevent){evnt(17682);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]))*2861)+ 0, 2861); if(!qbevent)break;evnt(17684);}while(r); do{ *_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(17686);}while(r); S_20510:; if ((-(*_FUNC_FINDID_LONG_T== 0 ))||new_error){ if(qbevent){evnt(17687);if(r)goto S_20510;} do{ *_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(17688);}while(r); S_20512:; if ((*_FUNC_FINDID_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(17689);if(r)goto S_20512;} do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2564= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17690);}while(r); }else{ do{ qbs_set(_FUNC_FINDID_STRING_N,FUNC_ID2SHORTTYPENAME()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17692);}while(r); S_20516:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDID_STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(17693);if(r)goto S_20516;} do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY",5)),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2565= 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17694);}while(r); }else{ do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_",6)),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2566= 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17696);}while(r); } } }else{ S_20523:; if ((*_FUNC_FINDID_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(17700);if(r)goto S_20523;} do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2567= 4 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17701);}while(r); }else{ do{ qbs_set(_FUNC_FINDID_STRING_N,FUNC_ID2SHORTTYPENAME()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17703);}while(r); S_20527:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDID_STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ if(qbevent){evnt(17704);if(r)goto S_20527;} do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),func_mid(_FUNC_FINDID_STRING_N, 2 ,NULL,0)),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2568= 5 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17705);}while(r); }else{ do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2569= 6 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17707);}while(r); } } } do{ *__LONG_CURRENTID=*_FUNC_FINDID_LONG_I; if(!qbevent)break;evnt(17712);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17713);}while(r); LABEL_FINDIDNOMATCH:; if(qbevent){evnt(17716);r=0;} S_20536:; if ((-(*_FUNC_FINDID_LONG_Z== 2 ))||new_error){ if(qbevent){evnt(17718);if(r)goto S_20536;} do{ goto LABEL_HASHRETRY; if(!qbevent)break;evnt(17718);}while(r); } LABEL_NOID:; if(qbevent){evnt(17721);r=0;} do{ *_FUNC_FINDID_LONG_FINDID= 0 ; if(!qbevent)break;evnt(17722);}while(r); do{ *__LONG_CURRENTID= -1 ; if(!qbevent)break;evnt(17723);}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; 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 "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{ *_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ; if(!qbevent)break;evnt(17727);}while(r); do{ qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17728);}while(r); S_20543:; if (( 0 )||new_error){ if(qbevent){evnt(17729);if(r)goto S_20543;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2571; 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 skip2571; skip2571: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17729);}while(r); } S_20546:; 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(17730);if(r)goto S_20546;} do{ *_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; if(!qbevent)break;evnt(17730);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17730);}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(17733);}while(r); S_20551:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17733);if(r)goto S_20551;} 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(17733);}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(17733);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17733);}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(17734);}while(r); S_20557:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17734);if(r)goto S_20557;} 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(17734);}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(17734);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17734);}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(17735);}while(r); S_20563:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17735);if(r)goto S_20563;} 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(17735);}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(17735);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17735);}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(17736);}while(r); S_20569:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17736);if(r)goto S_20569;} 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(17736);}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(17736);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17736);}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(17737);}while(r); S_20575:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17737);if(r)goto S_20575;} 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(17737);}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(17737);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17737);}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(17738);}while(r); S_20581:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17738);if(r)goto S_20581;} 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(17738);}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(17738);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17738);}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(17739);}while(r); S_20587:; if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ if(qbevent){evnt(17739);if(r)goto S_20587;} 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(17739);}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(17739);}while(r); do{ goto LABEL_GOTSC2; if(!qbevent)break;evnt(17739);}while(r); } LABEL_GOTSC2:; if(qbevent){evnt(17740);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(17741);}while(r); S_20593:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(17743);if(r)goto S_20593;} do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17746);}while(r); S_20595:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17746);if(r)goto S_20595;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17746);}while(r); } S_20598:; while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ if(qbevent){evnt(17747);if(r)goto S_20598;} S_20599:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17748);if(r)goto S_20599;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17749);}while(r); } S_20602:; if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(17751);if(r)goto S_20602;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(17751);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17751);}while(r); }else{ do{ *_FUNC_FINDARRAY_LONG_TRY= 0 ; if(!qbevent)break;evnt(17751);}while(r); } S_20608:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17752);if(r)goto S_20608;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17752);}while(r); } dl_continue_2579:; } dl_exit_2579:; }else{ do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17759);}while(r); S_20614:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17759);if(r)goto S_20614;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17759);}while(r); } S_20617:; while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ if(qbevent){evnt(17760);if(r)goto S_20617;} S_20618:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17761);if(r)goto S_20618;} S_20619:; if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ if(qbevent){evnt(17762);if(r)goto S_20619;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17762);}while(r); } S_20622:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(17763);if(r)goto S_20622;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17763);}while(r); } } S_20626:; if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(17765);if(r)goto S_20626;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(17765);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17765);}while(r); }else{ do{ *_FUNC_FINDARRAY_LONG_TRY= 0 ; if(!qbevent)break;evnt(17765);}while(r); } S_20632:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17766);if(r)goto S_20632;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17766);}while(r); } dl_continue_2580:; } dl_exit_2580:; do{ *_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17770);}while(r); S_20637:; if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ if(qbevent){evnt(17770);if(r)goto S_20637;} do{ *_FUNC_FINDARRAY_LONG_A= 91 ; if(!qbevent)break;evnt(17770);}while(r); } do{ *_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; if(!qbevent)break;evnt(17771);}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(17772);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17773);}while(r); S_20643:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17773);if(r)goto S_20643;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17773);}while(r); } S_20646:; while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ if(qbevent){evnt(17774);if(r)goto S_20646;} S_20647:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17775);if(r)goto S_20647;} S_20648:; if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ if(qbevent){evnt(17776);if(r)goto S_20648;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17776);}while(r); } S_20651:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ if(qbevent){evnt(17777);if(r)goto S_20651;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17777);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(17778);}while(r); } S_20656:; if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(17780);if(r)goto S_20656;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(17780);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17780);}while(r); }else{ do{ *_FUNC_FINDARRAY_LONG_TRY= 0 ; if(!qbevent)break;evnt(17780);}while(r); } S_20662:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17781);if(r)goto S_20662;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17781);}while(r); } dl_continue_2581:; } dl_exit_2581:; do{ qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17785);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17786);}while(r); S_20668:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17786);if(r)goto S_20668;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17786);}while(r); } S_20671:; while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ if(qbevent){evnt(17787);if(r)goto S_20671;} S_20672:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17788);if(r)goto S_20672;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17789);}while(r); } S_20675:; if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(17791);if(r)goto S_20675;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(17791);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17791);}while(r); }else{ do{ *_FUNC_FINDARRAY_LONG_TRY= 0 ; if(!qbevent)break;evnt(17791);}while(r); } S_20681:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17792);if(r)goto S_20681;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17792);}while(r); } dl_continue_2582:; } dl_exit_2582:; do{ *_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17796);}while(r); S_20686:; if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ if(qbevent){evnt(17796);if(r)goto S_20686;} do{ *_FUNC_FINDARRAY_LONG_A= 91 ; if(!qbevent)break;evnt(17796);}while(r); } do{ *_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; if(!qbevent)break;evnt(17797);}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(17798);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17799);}while(r); S_20692:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17799);if(r)goto S_20692;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17799);}while(r); } S_20695:; while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ if(qbevent){evnt(17800);if(r)goto S_20695;} S_20696:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(17801);if(r)goto S_20696;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17802);}while(r); } S_20699:; if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(17804);if(r)goto S_20699;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(17804);}while(r); do{ *_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17804);}while(r); }else{ do{ *_FUNC_FINDARRAY_LONG_TRY= 0 ; if(!qbevent)break;evnt(17804);}while(r); } S_20705:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(17805);if(r)goto S_20705;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17805);}while(r); } dl_continue_2583:; } dl_exit_2583:; } do{ *_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; if(!qbevent)break;evnt(17809);}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; 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 "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_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17816);}while(r); S_20712:; if (( 0 )||new_error){ if(qbevent){evnt(17817);if(r)goto S_20712;} 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("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2585; skip2585: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17817);}while(r); } do{ *__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ; if(!qbevent)break;evnt(17819);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17821);}while(r); S_20717:; if ((-(*__LONG_FOOINDWEL== 1 ))||new_error){ if(qbevent){evnt(17823);if(r)goto S_20717;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17826);}while(r); S_20719:; fornext_value2587= 1 ; fornext_finalvalue2587=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; fornext_step2587= 1 ; if (fornext_step2587<0) fornext_step_negative2587=1; else fornext_step_negative2587=0; if (new_error) goto fornext_error2587; goto fornext_entrylabel2587; while(1){ fornext_value2587=fornext_step2587+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2587: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2587; if (fornext_step_negative2587){ if (fornext_value2587fornext_finalvalue2587) break; } fornext_error2587:; if(qbevent){evnt(17827);if(r)goto S_20719;} 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(17828);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,&(pass2588=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17829);}while(r); S_20722:; 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(17830);if(r)goto S_20722;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17830);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17830);}while(r); } S_20726:; 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(17831);if(r)goto S_20726;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17831);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17831);}while(r); } S_20730:; 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(17832);if(r)goto S_20730;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17832);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17832);}while(r); } S_20734:; 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(17833);if(r)goto S_20734;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17833);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17833);}while(r); } S_20738:; 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(17834);if(r)goto S_20738;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17834);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17834);}while(r); } fornext_continue_2586:; } fornext_exit_2586:; do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(17838);}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(17839);}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(17840);}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(17841);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I= 1 ; if(!qbevent)break;evnt(17842);}while(r); LABEL_FINDMMB:; if(qbevent){evnt(17843);r=0;} do{ *_FUNC_FIXOPERATIONORDER_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B1,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17844);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B2,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17845);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I1; if(!qbevent)break;evnt(17846);}while(r); S_20751:; if ((*_FUNC_FIXOPERATIONORDER_LONG_I2)||new_error){ if(qbevent){evnt(17847);if(r)goto S_20751;} S_20752:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I1== 0 ))||new_error){ if(qbevent){evnt(17848);if(r)goto S_20752;} do{ *_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; if(!qbevent)break;evnt(17849);}while(r); }else{ S_20755:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I2<*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ if(qbevent){evnt(17851);if(r)goto S_20755;} do{ *_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; if(!qbevent)break;evnt(17851);}while(r); } } } S_20760:; if ((*_FUNC_FIXOPERATIONORDER_LONG_I3)||new_error){ if(qbevent){evnt(17854);if(r)goto S_20760;} S_20761:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ if(qbevent){evnt(17855);if(r)goto S_20761;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(17855);}while(r); } S_20764:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I2))||new_error){ if(qbevent){evnt(17856);if(r)goto S_20764;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(17856);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I3+ 2 ; if(!qbevent)break;evnt(17857);}while(r); S_20768:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B< 0 ))||new_error){ if(qbevent){evnt(17858);if(r)goto S_20768;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17858);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17858);}while(r); } do{ goto LABEL_FINDMMB; if(!qbevent)break;evnt(17859);}while(r); } S_20774:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B> 0 ))||new_error){ if(qbevent){evnt(17861);if(r)goto S_20774;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17861);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17861);}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(17865);}while(r); LABEL_RULE1:; if(qbevent){evnt(17868);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(17869);}while(r); S_20780:; if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ if(qbevent){evnt(17870);if(r)goto S_20780;} 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(17871);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17872);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; if(!qbevent)break;evnt(17873);}while(r); S_20784:; if (( 0 )||new_error){ if(qbevent){evnt(17874);if(r)goto S_20784;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2591; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2591; skip2591: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17874);}while(r); } do{ goto LABEL_RULE1; if(!qbevent)break;evnt(17875);}while(r); } LABEL_RULE2:; if(qbevent){evnt(17879);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(17880);}while(r); S_20790:; if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ if(qbevent){evnt(17881);if(r)goto S_20790;} 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(17882);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17883);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; if(!qbevent)break;evnt(17884);}while(r); S_20794:; if (( 0 )||new_error){ if(qbevent){evnt(17885);if(r)goto S_20794;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2594; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2594; skip2594: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17885);}while(r); } do{ goto LABEL_RULE2; if(!qbevent)break;evnt(17886);}while(r); } LABEL_RULE3:; if(qbevent){evnt(17890);r=0;} S_20799:; 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(17891);if(r)goto S_20799;} S_20800:; fornext_value2596= 1 ; fornext_finalvalue2596=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; fornext_step2596= 1 ; if (fornext_step2596<0) fornext_step_negative2596=1; else fornext_step_negative2596=0; if (new_error) goto fornext_error2596; goto fornext_entrylabel2596; while(1){ fornext_value2596=fornext_step2596+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2596: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2596; if (fornext_step_negative2596){ if (fornext_value2596fornext_finalvalue2596) break; } fornext_error2596:; if(qbevent){evnt(17892);if(r)goto S_20800;} S_20801:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))))||new_error){ if(qbevent){evnt(17893);if(r)goto S_20801;} S_20802:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2597=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(17894);if(r)goto S_20802;} S_20803:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2598=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(17895);if(r)goto S_20803;} do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2599=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2600=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),&(pass2601= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17896);}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(17897);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; if(!qbevent)break;evnt(17898);}while(r); S_20807:; if (( 0 )||new_error){ if(qbevent){evnt(17899);if(r)goto S_20807;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2602; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_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(17899);}while(r); } do{ goto LABEL_RULE3; if(!qbevent)break;evnt(17900);}while(r); } } } fornext_continue_2595:; } fornext_exit_2595:; } S_20816:; fornext_value2604= 1 ; fornext_finalvalue2604=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; fornext_step2604= 1 ; if (fornext_step2604<0) fornext_step_negative2604=1; else fornext_step_negative2604=0; if (new_error) goto fornext_error2604; goto fornext_entrylabel2604; while(1){ fornext_value2604=fornext_step2604+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2604: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2604; if (fornext_step_negative2604){ if (fornext_value2604fornext_finalvalue2604) break; } fornext_error2604:; if(qbevent){evnt(17924);if(r)goto S_20816;} S_20817:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ if(qbevent){evnt(17925);if(r)goto S_20817;} do{ goto fornext_exit_2603; if(!qbevent)break;evnt(17925);}while(r); } S_20820:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))== 45 )))||new_error){ if(qbevent){evnt(17927);if(r)goto S_20820;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEG= 0 ; if(!qbevent)break;evnt(17929);}while(r); S_20822:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ if(qbevent){evnt(17930);if(r)goto S_20822;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; if(!qbevent)break;evnt(17931);}while(r); }else{ do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2605=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17933);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17934);}while(r); S_20827:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 )))||new_error){ if(qbevent){evnt(17935);if(r)goto S_20827;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; if(!qbevent)break;evnt(17936);}while(r); }else{ S_20830:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ if(qbevent){evnt(17938);if(r)goto S_20830;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; if(!qbevent)break;evnt(17938);}while(r); } } } S_20835:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEG== 1 ))||new_error){ if(qbevent){evnt(17941);if(r)goto S_20835;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2606=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17943);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17944);}while(r); S_20838:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(17945);if(r)goto S_20838;} do{ *_FUNC_FIXOPERATIONORDER_LONG_C2= 0 ; if(!qbevent)break;evnt(17946);}while(r); S_20840:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ if(qbevent){evnt(17946);if(r)goto S_20840;} do{ *_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2607=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17946);}while(r); } S_20843:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2!= 94 ))||new_error){ if(qbevent){evnt(17947);if(r)goto S_20843;} 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(17949);}while(r); S_20845:; 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(17950);if(r)goto S_20845;} 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(17951);}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(17953);}while(r); } do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2609=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2610= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17955);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2611=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17956);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; if(!qbevent)break;evnt(17957);}while(r); S_20853:; if (( 0 )||new_error){ if(qbevent){evnt(17958);if(r)goto S_20853;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2612; 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 skip2612; skip2612: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17958);}while(r); } do{ goto LABEL_NEGDONE; if(!qbevent)break;evnt(17960);}while(r); } } do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2613= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17967);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2614=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),func_chr( 241 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17968);}while(r); S_20861:; if (( 0 )||new_error){ if(qbevent){evnt(17969);if(r)goto S_20861;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2615; 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 skip2615; skip2615: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(17969);}while(r); } } } LABEL_NEGDONE:; if(qbevent){evnt(17973);r=0;} fornext_continue_2603:; } fornext_exit_2603:; } do{ *_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 0 ; if(!qbevent)break;evnt(17983);}while(r); LABEL_POWNEG:; if(qbevent){evnt(17984);r=0;} S_20869:; 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(17985);if(r)goto S_20869;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(17986);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B1= 0 ; if(!qbevent)break;evnt(17987);}while(r); S_20872:; fornext_value2617= 1 ; fornext_finalvalue2617=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2617= 1 ; if (fornext_step2617<0) fornext_step_negative2617=1; else fornext_step_negative2617=0; if (new_error) goto fornext_error2617; goto fornext_entrylabel2617; while(1){ fornext_value2617=fornext_step2617+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2617: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2617; if (fornext_step_negative2617){ if (fornext_value2617fornext_finalvalue2617) break; } fornext_error2617:; if(qbevent){evnt(17988);if(r)goto S_20872;} 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(17989);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17990);}while(r); S_20875:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))||new_error){ if(qbevent){evnt(17991);if(r)goto S_20875;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(17991);}while(r); } S_20878:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ if(qbevent){evnt(17992);if(r)goto S_20878;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(17992);}while(r); } S_20881:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(17993);if(r)goto S_20881;} S_20882:; if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ if(qbevent){evnt(17994);if(r)goto S_20882;} S_20883:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ if(qbevent){evnt(17995);if(r)goto S_20883;} S_20884:; 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(17996);if(r)goto S_20884;} do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2618=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_new_txt_len("}",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17997);}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(17998);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; if(!qbevent)break;evnt(17999);}while(r); S_20888:; if (( 0 )||new_error){ if(qbevent){evnt(18000);if(r)goto S_20888;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2619; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2619; skip2619: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18000);}while(r); } do{ goto LABEL_POWNEG; if(!qbevent)break;evnt(18001);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; if(!qbevent)break;evnt(18002);}while(r); } } } S_20896:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 94 ))||new_error){ if(qbevent){evnt(18006);if(r)goto S_20896;} S_20897:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2620=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),func_chr( 241 ))))||new_error){ if(qbevent){evnt(18007);if(r)goto S_20897;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B1=*_FUNC_FIXOPERATIONORDER_LONG_I; if(!qbevent)break;evnt(18007);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; if(!qbevent)break;evnt(18007);}while(r); } } } fornext_continue_2616:; } fornext_exit_2616:; S_20904:; if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ if(qbevent){evnt(18011);if(r)goto S_20904;} 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(18012);}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(18013);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; if(!qbevent)break;evnt(18014);}while(r); S_20908:; if (( 0 )||new_error){ if(qbevent){evnt(18015);if(r)goto S_20908;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2621; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2621; skip2621: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18015);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; if(!qbevent)break;evnt(18016);}while(r); do{ goto LABEL_POWNEG; if(!qbevent)break;evnt(18017);}while(r); } } LABEL_NOT_RECHECK:; if(qbevent){evnt(18024);r=0;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LCO= 255 ; if(!qbevent)break;evnt(18025);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_HCO= 0 ; if(!qbevent)break;evnt(18026);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18027);}while(r); S_20918:; fornext_value2623= 1 ; fornext_finalvalue2623=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2623= 1 ; if (fornext_step2623<0) fornext_step_negative2623=1; else fornext_step_negative2623=0; if (new_error) goto fornext_error2623; goto fornext_entrylabel2623; while(1){ fornext_value2623=fornext_step2623+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2623: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2623; if (fornext_step_negative2623){ if (fornext_value2623fornext_finalvalue2623) break; } fornext_error2623:; if(qbevent){evnt(18028);if(r)goto S_20918;} 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(18029);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18030);}while(r); S_20921:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18031);if(r)goto S_20921;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18031);}while(r); } S_20924:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18032);if(r)goto S_20924;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18032);}while(r); } S_20927:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18033);if(r)goto S_20927;} do{ *_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18034);}while(r); S_20929:; if ((*_FUNC_FIXOPERATIONORDER_LONG_OP)||new_error){ if(qbevent){evnt(18035);if(r)goto S_20929;} S_20930:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP<*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ if(qbevent){evnt(18036);if(r)goto S_20930;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; if(!qbevent)break;evnt(18036);}while(r); } S_20933:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP>*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ if(qbevent){evnt(18037);if(r)goto S_20933;} do{ *_FUNC_FIXOPERATIONORDER_LONG_HCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; if(!qbevent)break;evnt(18037);}while(r); } } } fornext_continue_2622:; } fornext_exit_2622:; S_20939:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HCO!= 0 ))||new_error){ if(qbevent){evnt(18044);if(r)goto S_20939;} S_20940:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ if(qbevent){evnt(18045);if(r)goto S_20940;} S_20941:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO== 6 ))||new_error){ if(qbevent){evnt(18048);if(r)goto S_20941;} S_20942:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_N== 1 ))||new_error){ if(qbevent){evnt(18051);if(r)goto S_20942;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18051);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18051);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18052);}while(r); S_20947:; fornext_value2625= 1 ; fornext_finalvalue2625=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2625= 1 ; if (fornext_step2625<0) fornext_step_negative2625=1; else fornext_step_negative2625=0; if (new_error) goto fornext_error2625; goto fornext_entrylabel2625; while(1){ fornext_value2625=fornext_step2625+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2625: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2625; if (fornext_step_negative2625){ if (fornext_value2625fornext_finalvalue2625) break; } fornext_error2625:; if(qbevent){evnt(18053);if(r)goto S_20947;} 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(18054);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18055);}while(r); S_20950:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18056);if(r)goto S_20950;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18056);}while(r); } S_20953:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18057);if(r)goto S_20953;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18057);}while(r); } S_20956:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18058);if(r)goto S_20956;} S_20957:; 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(18059);if(r)goto S_20957;} S_20958:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18060);if(r)goto S_20958;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18060);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18060);}while(r); } S_20962:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ if(qbevent){evnt(18061);if(r)goto S_20962;} 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,&(pass2626= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18061);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; if(!qbevent)break;evnt(18061);}while(r); do{ goto LABEL_LCO_BRACKETTING_DONE; if(!qbevent)break;evnt(18061);}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,&(pass2627= 1 ),&(pass2628=*_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,&(pass2629=*_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(18062);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 4 ; if(!qbevent)break;evnt(18063);}while(r); do{ goto LABEL_NOT_RECHECK; if(!qbevent)break;evnt(18064);}while(r); } } fornext_continue_2624:; } fornext_exit_2624:; } do{ *_FUNC_FIXOPERATIONORDER_LONG_N2=*_FUNC_FIXOPERATIONORDER_LONG_N; if(!qbevent)break;evnt(18070);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18071);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_new_txt_len("{",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18072);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N= 1 ; if(!qbevent)break;evnt(18073);}while(r); S_20978:; fornext_value2631= 1 ; fornext_finalvalue2631=*_FUNC_FIXOPERATIONORDER_LONG_N2; fornext_step2631= 1 ; if (fornext_step2631<0) fornext_step_negative2631=1; else fornext_step_negative2631=0; if (new_error) goto fornext_error2631; goto fornext_entrylabel2631; while(1){ fornext_value2631=fornext_step2631+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2631: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2631; if (fornext_step_negative2631){ if (fornext_value2631fornext_finalvalue2631) break; } fornext_error2631:; if(qbevent){evnt(18074);if(r)goto S_20978;} 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(18075);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18076);}while(r); S_20981:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18077);if(r)goto S_20981;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18077);}while(r); } S_20984:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18078);if(r)goto S_20984;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18078);}while(r); } S_20987:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18079);if(r)goto S_20987;} do{ *_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18080);}while(r); S_20989:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP==*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ if(qbevent){evnt(18081);if(r)goto S_20989;} S_20990:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ if(qbevent){evnt(18082);if(r)goto S_20990;} 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(18083);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N= 2 ; if(!qbevent)break;evnt(18084);}while(r); }else{ S_20994:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N2))||new_error){ if(qbevent){evnt(18086);if(r)goto S_20994;} 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(18086);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18086);}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(18087);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 3 ; if(!qbevent)break;evnt(18088);}while(r); } do{ goto LABEL_FIXOP0; if(!qbevent)break;evnt(18090);}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(18094);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; if(!qbevent)break;evnt(18095);}while(r); LABEL_FIXOP0:; if(qbevent){evnt(18096);r=0;} fornext_continue_2630:; } fornext_exit_2630:; 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(18098);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; if(!qbevent)break;evnt(18099);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18100);}while(r); LABEL_LCO_BRACKETTING_DONE:; if(qbevent){evnt(18102);r=0;} S_21010:; if (( 0 )||new_error){ if(qbevent){evnt(18103);if(r)goto S_21010;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2632; sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0 , 0 , 0 ); if (new_error) goto skip2632; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_LCO)), 1 , 0 , 0 ); if (new_error) goto skip2632; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip2632; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_HCO)), 1 , 0 , 0 ); if (new_error) goto skip2632; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); if (new_error) goto skip2632; skip2632: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18103);}while(r); } S_21013:; if ((*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED)||new_error){ if(qbevent){evnt(18106);if(r)goto S_21013;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18107);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I= 0 ; if(!qbevent)break;evnt(18108);}while(r); S_21016:; do{ if(qbevent){evnt(18109);if(r)goto S_21016;} do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; if(!qbevent)break;evnt(18110);}while(r); S_21018:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18111);if(r)goto S_21018;} do{ goto dl_exit_2633; if(!qbevent)break;evnt(18111);}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(18112);}while(r); S_21022:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18113);if(r)goto S_21022;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18113);}while(r); } S_21025:; if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ if(qbevent){evnt(18114);if(r)goto S_21025;} do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2634= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18115);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; if(!qbevent)break;evnt(18116);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ; if(!qbevent)break;evnt(18117);}while(r); S_21029:; if (( 0 )||new_error){ if(qbevent){evnt(18118);if(r)goto S_21029;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2635; 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 skip2635; skip2635: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18118);}while(r); } } S_21033:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18120);if(r)goto S_21033;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18120);}while(r); } dl_continue_2633:; }while(1); dl_exit_2633:; } } } S_21040:; 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(18128);if(r)goto S_21040;} 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,&(pass2636= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18129);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; if(!qbevent)break;evnt(18129);}while(r); } S_21044:; 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(18131);if(r)goto S_21044;} 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,&(pass2637= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18132);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; if(!qbevent)break;evnt(18132);}while(r); } do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18141);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18142);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C= 0 ; if(!qbevent)break;evnt(18143);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTT= 0 ; if(!qbevent)break;evnt(18144);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTTI= 0 ; if(!qbevent)break;evnt(18144);}while(r); S_21053:; fornext_value2639= 1 ; fornext_finalvalue2639=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2639= 1 ; if (fornext_step2639<0) fornext_step_negative2639=1; else fornext_step_negative2639=0; if (new_error) goto fornext_error2639; goto fornext_entrylabel2639; while(1){ fornext_value2639=fornext_step2639+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2639: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2639; if (fornext_step_negative2639){ if (fornext_value2639fornext_finalvalue2639) break; } fornext_error2639:; if(qbevent){evnt(18145);if(r)goto S_21053;} 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(18146);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_LONG_C; if(!qbevent)break;evnt(18147);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18148);}while(r); S_21057:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18150);if(r)goto S_21057;} S_21058:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ if(qbevent){evnt(18151);if(r)goto S_21058;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18151);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18152);}while(r); do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18153);}while(r); } S_21064:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18155);if(r)goto S_21064;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18157);}while(r); S_21066:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18160);if(r)goto S_21066;} S_21067:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ if(qbevent){evnt(18161);if(r)goto S_21067;} S_21068:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC== 40 ))||new_error){ if(qbevent){evnt(18162);if(r)goto S_21068;} S_21069:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI== 0 )))||new_error){ if(qbevent){evnt(18163);if(r)goto S_21069;} S_21070:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT<= 3 )))||new_error){ if(qbevent){evnt(18164);if(r)goto S_21070;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18165);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18165);}while(r); } } } } } S_21078:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ if(qbevent){evnt(18172);if(r)goto S_21078;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18172);}while(r); } do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18173);}while(r); } S_21083:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18176);if(r)goto S_21083;} S_21084:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 34 ))||new_error){ if(qbevent){evnt(18187);if(r)goto S_21084;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTT= 1 ; if(!qbevent)break;evnt(18188);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; if(!qbevent)break;evnt(18188);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_X2= 1 ; if(!qbevent)break;evnt(18192);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18193);}while(r); S_21089:; while((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ if(qbevent){evnt(18194);if(r)goto S_21089;} 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(18195);}while(r); S_21091:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 92 ))||new_error){ if(qbevent){evnt(18196);if(r)goto S_21091;} 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(18197);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; if(!qbevent)break;evnt(18198);}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(18201);}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(18202);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; if(!qbevent)break;evnt(18203);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18205);}while(r); dl_continue_2640:; } dl_exit_2640:; do{ *_FUNC_FIXOPERATIONORDER_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18208);}while(r); S_21102:; if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ if(qbevent){evnt(18208);if(r)goto S_21102;} 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(18208);}while(r); } do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18209);}while(r); } S_21107:; if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 )))||new_error){ if(qbevent){evnt(18213);if(r)goto S_21107;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTT= 2 ; if(!qbevent)break;evnt(18214);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; if(!qbevent)break;evnt(18214);}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(18216);}while(r); S_21111:; if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ if(qbevent){evnt(18217);if(r)goto S_21111;} do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2643= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18218);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2644=*_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(18218);}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(18219);}while(r); } S_21116:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ if(qbevent){evnt(18222);if(r)goto S_21116;} 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(18223);}while(r); S_21118:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C2> 57 )))||new_error){ if(qbevent){evnt(18224);if(r)goto S_21118;} do{ *_FUNC_FIXOPERATIONORDER_LONG_X= 1 ; if(!qbevent)break;evnt(18225);}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(18227);}while(r); } } S_21124:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ if(qbevent){evnt(18232);if(r)goto S_21124;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18233);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18234);}while(r); S_21127:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 ))||new_error){ if(qbevent){evnt(18235);if(r)goto S_21127;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18236);}while(r); S_21129:; 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(18237);if(r)goto S_21129;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18237);}while(r); } S_21132:; 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(18238);if(r)goto S_21132;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18238);}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(18240);}while(r); S_21137:; 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(18241);if(r)goto S_21137;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18241);}while(r); } S_21140:; 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(18242);if(r)goto S_21140;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18242);}while(r); } S_21143:; 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(18243);if(r)goto S_21143;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18243);}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(18245);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2657= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18246);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2658=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18246);}while(r); } do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18249);}while(r); } S_21153:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_F2)))||new_error){ if(qbevent){evnt(18253);if(r)goto S_21153;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTT= 3 ; if(!qbevent)break;evnt(18254);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; if(!qbevent)break;evnt(18254);}while(r); S_21156:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_F2->len> 1 )))||new_error){ if(qbevent){evnt(18255);if(r)goto S_21156;} S_21157:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2))))||new_error){ if(qbevent){evnt(18256);if(r)goto S_21157;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18257);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2660= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18258);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2661=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18259);}while(r); } } S_21163:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F2,func_chr( 241 ))))||new_error){ if(qbevent){evnt(18263);if(r)goto S_21163;} 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(18263);}while(r); do{ goto LABEL_CLASSDONE_SPECIAL; if(!qbevent)break;evnt(18263);}while(r); } do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18264);}while(r); } S_21169:; 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(18268);if(r)goto S_21169;} do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTT= 4 ; if(!qbevent)break;evnt(18269);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; if(!qbevent)break;evnt(18269);}while(r); S_21172:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18271);if(r)goto S_21172;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2662=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18271);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; if(!qbevent)break;evnt(18271);}while(r); } S_21177:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ if(qbevent){evnt(18274);if(r)goto S_21177;} S_21178:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC!= 46 ))||new_error){ if(qbevent){evnt(18275);if(r)goto S_21178;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18277);}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(18278);}while(r); S_21181:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18279);if(r)goto S_21181;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18279);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 0 ; if(!qbevent)break;evnt(18281);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18282);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS= 1024 ; if(!qbevent)break;evnt(18283);}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(18284);}while(r); S_21188:; while((*_FUNC_FIXOPERATIONORDER_LONG_HASHRES)||new_error){ if(qbevent){evnt(18285);if(r)goto S_21188;} S_21189:; 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(18286);if(r)goto S_21189;} S_21190:; 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(18287);if(r)goto S_21190;} do{ *_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 1 ; if(!qbevent)break;evnt(18288);}while(r); do{ goto dl_exit_2663; if(!qbevent)break;evnt(18289);}while(r); } } S_21195:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(18292);if(r)goto S_21195;} do{ *_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); if(!qbevent)break;evnt(18292);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(18292);}while(r); } dl_continue_2663:; } dl_exit_2663:; S_21201:; if ((*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND)||new_error){ if(qbevent){evnt(18295);if(r)goto S_21201;} do{ *_FUNC_FIXOPERATIONORDER_LONG_I2=*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF; if(!qbevent)break;evnt(18296);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 0 ; if(!qbevent)break;evnt(18305);}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(18306);}while(r); S_21205:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18307);if(r)goto S_21205;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18307);}while(r); } S_21208:; while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ if(qbevent){evnt(18308);if(r)goto S_21208;} S_21209:; if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ if(qbevent){evnt(18309);if(r)goto S_21209;} do{ *_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; if(!qbevent)break;evnt(18309);}while(r); do{ goto dl_exit_2664; if(!qbevent)break;evnt(18309);}while(r); } S_21213:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(18310);if(r)goto S_21213;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(18310);}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(18310);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; if(!qbevent)break;evnt(18310);}while(r); } S_21219:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18311);if(r)goto S_21219;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18311);}while(r); } dl_continue_2664:; } dl_exit_2664:; S_21223:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ if(qbevent){evnt(18314);if(r)goto S_21223;} S_21224:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_ES->len== 0 )))||new_error){ if(qbevent){evnt(18315);if(r)goto S_21224;} do{ *_FUNC_FIXOPERATIONORDER_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18316);}while(r); S_21226:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_A== 95 ))||new_error){ if(qbevent){evnt(18316);if(r)goto S_21226;} do{ *_FUNC_FIXOPERATIONORDER_LONG_A= 91 ; if(!qbevent)break;evnt(18316);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_A=*_FUNC_FIXOPERATIONORDER_LONG_A- 64 ; if(!qbevent)break;evnt(18317);}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(18318);}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(18319);}while(r); S_21232:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18320);if(r)goto S_21232;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18320);}while(r); } S_21235:; while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ if(qbevent){evnt(18321);if(r)goto S_21235;} S_21236:; if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ if(qbevent){evnt(18322);if(r)goto S_21236;} do{ *_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; if(!qbevent)break;evnt(18322);}while(r); do{ goto dl_exit_2666; if(!qbevent)break;evnt(18322);}while(r); } S_21240:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(18323);if(r)goto S_21240;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(18323);}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(18323);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; if(!qbevent)break;evnt(18323);}while(r); } S_21246:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18324);if(r)goto S_21246;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18324);}while(r); } dl_continue_2666:; } dl_exit_2666:; } } S_21252:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ if(qbevent){evnt(18329);if(r)goto S_21252;} 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(18331);}while(r); S_21254:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(18332);if(r)goto S_21254;} S_21255:; 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(18333);if(r)goto S_21255;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18333);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18333);}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(18334);}while(r); }else{ S_21261:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_ES->len))||new_error){ if(qbevent){evnt(18336);if(r)goto S_21261;} do{ *_FUNC_FIXOPERATIONORDER_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_STRING_ES); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18336);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_ET= 0 ; if(!qbevent)break;evnt(18336);}while(r); } S_21266:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18337);if(r)goto S_21266;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18337);}while(r); } S_21269:; if ((*_FUNC_FIXOPERATIONORDER_LONG_ET&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(18338);if(r)goto S_21269;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18338);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18338);}while(r); } S_21273:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(18340);if(r)goto S_21273;} 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(18341);}while(r); do{ *_FUNC_FIXOPERATIONORDER_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_FLOAT_V); if(!qbevent)break;evnt(18342);}while(r); do{ *_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; if(!qbevent)break;evnt(18343);}while(r); }else{ S_21278:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(18345);if(r)goto S_21278;} 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(18346);}while(r); do{ *_FUNC_FIXOPERATIONORDER_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_UINTEGER64_V; if(!qbevent)break;evnt(18347);}while(r); do{ *_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; if(!qbevent)break;evnt(18348);}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(18350);}while(r); do{ *_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; if(!qbevent)break;evnt(18351);}while(r); do{ *_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; if(!qbevent)break;evnt(18352);}while(r); } } S_21288:; if ((*_FUNC_FIXOPERATIONORDER_LONG_ET)||new_error){ if(qbevent){evnt(18356);if(r)goto S_21288;} do{ *_FUNC_FIXOPERATIONORDER_LONG_T=*_FUNC_FIXOPERATIONORDER_LONG_ET; if(!qbevent)break;evnt(18356);}while(r); } S_21291:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(18359);if(r)goto S_21291;} 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(18360);}while(r); }else{ S_21294:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(18362);if(r)goto S_21294;} 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(18363);}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(18365);}while(r); } } S_21300:; if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(18370);if(r)goto S_21300;} do{ *_FUNC_FIXOPERATIONORDER_LONG_T2=*_FUNC_FIXOPERATIONORDER_LONG_T& 511 ; if(!qbevent)break;evnt(18371);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18373);}while(r); S_21303:; 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(18374);if(r)goto S_21303;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18374);}while(r); } S_21306:; 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(18375);if(r)goto S_21306;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18375);}while(r); } S_21309:; 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(18376);if(r)goto S_21309;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18376);}while(r); } S_21312:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_S->len))||new_error){ if(qbevent){evnt(18377);if(r)goto S_21312;} 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(18379);}while(r); S_21314:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ if(qbevent){evnt(18381);if(r)goto S_21314;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18381);}while(r); } S_21317:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ if(qbevent){evnt(18382);if(r)goto S_21317;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18382);}while(r); } S_21320:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ if(qbevent){evnt(18383);if(r)goto S_21320;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18383);}while(r); } do{ sub_mid(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_STRING_S,1); if(!qbevent)break;evnt(18384);}while(r); S_21324:; 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(18385);if(r)goto S_21324;} 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(18385);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_X=*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 ; if(!qbevent)break;evnt(18385);}while(r); } S_21328:; 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(18386);if(r)goto S_21328;} 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(18386);}while(r); } S_21331:; 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(18387);if(r)goto S_21331;} 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(18387);}while(r); } S_21334:; 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(18388);if(r)goto S_21334;} 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(18389);}while(r); } }else{ S_21338:; 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(18393);if(r)goto S_21338;} 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(18393);}while(r); } S_21341:; 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(18394);if(r)goto S_21341;} 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(18394);}while(r); } S_21344:; 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(18395);if(r)goto S_21344;} 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(18395);}while(r); } S_21347:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ if(qbevent){evnt(18396);if(r)goto S_21347;} 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(18396);}while(r); } S_21350:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ if(qbevent){evnt(18397);if(r)goto S_21350;} 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(18397);}while(r); } S_21353:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ if(qbevent){evnt(18398);if(r)goto S_21353;} 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(18398);}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(18401);}while(r); S_21359:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18402);if(r)goto S_21359;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18402);}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(18403);}while(r); } } do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2674= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18408);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2675=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18409);}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(18411);}while(r); do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18412);}while(r); } } } } do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18422);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18424);}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(18425);}while(r); S_21376:; fornext_value2677= 1 ; fornext_finalvalue2677= 4 ; fornext_step2677= 1 ; if (fornext_step2677<0) fornext_step_negative2677=1; else fornext_step_negative2677=0; if (new_error) goto fornext_error2677; goto fornext_entrylabel2677; while(1){ fornext_value2677=fornext_step2677+(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD); fornext_entrylabel2677: *_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD=fornext_value2677; if (fornext_step_negative2677){ if (fornext_value2677fornext_finalvalue2677) break; } fornext_error2677:; if(qbevent){evnt(18427);if(r)goto S_21376;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18428);}while(r); S_21378:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 4 )))||new_error){ if(qbevent){evnt(18429);if(r)goto S_21378;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18430);}while(r); S_21380:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_DTYP->len== 0 )))||new_error){ if(qbevent){evnt(18431);if(r)goto S_21380;} S_21381:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)== 0 )))||new_error){ if(qbevent){evnt(18432);if(r)goto S_21381;} S_21382:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)))||new_error){ if(qbevent){evnt(18433);if(r)goto S_21382;} S_21383:; 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(18434);if(r)goto S_21383;} do{ *_FUNC_FIXOPERATIONORDER_LONG_V= 27 ; if(!qbevent)break;evnt(18434);}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(18434);}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(18435);}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(18439);}while(r); } } do{ *_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18442);}while(r); S_21396:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18443);if(r)goto S_21396;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18443);}while(r); } S_21399:; while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ if(qbevent){evnt(18444);if(r)goto S_21399;} S_21400:; 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(18445);if(r)goto S_21400;} S_21401:; if (( 0 )||new_error){ if(qbevent){evnt(18447);if(r)goto S_21401;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2680; 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 skip2680; skip2680: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18447);}while(r); } S_21404:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 40 ))||new_error){ if(qbevent){evnt(18449);if(r)goto S_21404;} S_21405:; if (((-(*(int32*)(((char*)__UDT_ID)+(512))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ if(qbevent){evnt(18452);if(r)goto S_21405;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18456);}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(18457);}while(r); S_21408:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18458);if(r)goto S_21408;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18458);}while(r); } 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(18459);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2681= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18460);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2682=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18461);}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(18462);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B2= 1 ; if(!qbevent)break;evnt(18465);}while(r); S_21416:; fornext_value2684=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; fornext_finalvalue2684=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2684= 1 ; if (fornext_step2684<0) fornext_step_negative2684=1; else fornext_step_negative2684=0; if (new_error) goto fornext_error2684; goto fornext_entrylabel2684; while(1){ fornext_value2684=fornext_step2684+(*_FUNC_FIXOPERATIONORDER_LONG_I2); fornext_entrylabel2684: *_FUNC_FIXOPERATIONORDER_LONG_I2=fornext_value2684; if (fornext_step_negative2684){ if (fornext_value2684fornext_finalvalue2684) break; } fornext_error2684:; if(qbevent){evnt(18466);if(r)goto S_21416;} 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(18467);}while(r); S_21418:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 40 ))||new_error){ if(qbevent){evnt(18468);if(r)goto S_21418;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2+ 1 ; if(!qbevent)break;evnt(18468);}while(r); } S_21421:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 41 ))||new_error){ if(qbevent){evnt(18469);if(r)goto S_21421;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2- 1 ; if(!qbevent)break;evnt(18469);}while(r); } S_21424:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B2== 0 ))||new_error){ if(qbevent){evnt(18470);if(r)goto S_21424;} do{ goto fornext_exit_2683; if(!qbevent)break;evnt(18470);}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(18471);}while(r); fornext_continue_2683:; } fornext_exit_2683:; do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I2; if(!qbevent)break;evnt(18475);}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(18477);}while(r); S_21431:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(18480);if(r)goto S_21431;} S_21432:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18481);if(r)goto S_21432;} do{ *_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2685=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18481);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; if(!qbevent)break;evnt(18481);}while(r); } S_21437:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 46 ))||new_error){ if(qbevent){evnt(18482);if(r)goto S_21437;} do{ *_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(18482);}while(r); do{ goto LABEL_FOOUDT; if(!qbevent)break;evnt(18482);}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(18485);}while(r); do{ goto LABEL_CLASSDONE_SPECIAL; if(!qbevent)break;evnt(18486);}while(r); } } S_21446:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ if(qbevent){evnt(18490);if(r)goto S_21446;} S_21447:; if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ if(qbevent){evnt(18491);if(r)goto S_21447;} S_21448:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(18493);if(r)goto S_21448;} 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(18498);}while(r); S_21450:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18499);if(r)goto S_21450;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18499);}while(r); } do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2686= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18500);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2687=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18501);}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(18502);}while(r); S_21456:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ if(qbevent){evnt(18506);if(r)goto S_21456;} 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(18506);}while(r); do{ goto LABEL_CLASSDONE_SPECIAL; if(!qbevent)break;evnt(18506);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(18507);}while(r); LABEL_FOOUDT:; if(qbevent){evnt(18509);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(18511);}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(18512);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; if(!qbevent)break;evnt(18513);}while(r); S_21464:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18518);if(r)goto S_21464;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18518);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18518);}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(18519);}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(18520);}while(r); S_21470:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18521);if(r)goto S_21470;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18521);}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(18522);}while(r); LABEL_FOOUDTNEXTE:; if(qbevent){evnt(18525);r=0;} S_21474:; 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(18526);if(r)goto S_21474;} 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(18531);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2689= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18532);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2690=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18533);}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(18534);}while(r); S_21479:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ if(qbevent){evnt(18536);if(r)goto S_21479;} 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(18536);}while(r); do{ goto LABEL_CLASSDONE_SPECIAL; if(!qbevent)break;evnt(18536);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2691=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18537);}while(r); S_21484:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ if(qbevent){evnt(18538);if(r)goto S_21484;} 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(18538);}while(r); do{ goto LABEL_CLASSDONE_SPECIAL; if(!qbevent)break;evnt(18538);}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(18540);}while(r); S_21489:; if ((-((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(18541);if(r)goto S_21489;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18541);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18541);}while(r); } do{ goto LABEL_FOOUDT; if(!qbevent)break;evnt(18542);}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(18547);}while(r); S_21496:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(18548);if(r)goto S_21496;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18548);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18548);}while(r); } do{ goto LABEL_FOOUDTNEXTE; if(!qbevent)break;evnt(18549);}while(r); } do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18554);}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(18555);}while(r); S_21504:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18556);if(r)goto S_21504;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18556);}while(r); } 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(18557);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2692= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18559);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2693=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18560);}while(r); do{ goto LABEL_COULDNOTCLASSIFY; if(!qbevent)break;evnt(18561);}while(r); } } } S_21514:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ if(qbevent){evnt(18567);if(r)goto S_21514;} do{ *__INTEGER_FINDANOTHERID= 1 ; if(!qbevent)break;evnt(18567);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18567);}while(r); }else{ do{ *_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; if(!qbevent)break;evnt(18567);}while(r); } S_21520:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18568);if(r)goto S_21520;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18568);}while(r); } dl_continue_2679:; } dl_exit_2679:; fornext_continue_2676:; } fornext_exit_2676:; LABEL_COULDNOTCLASSIFY:; if(qbevent){evnt(18571);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(18574);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 0 ; if(!qbevent)break;evnt(18575);}while(r); S_21527:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("STRING",6))))||new_error){ if(qbevent){evnt(18576);if(r)goto S_21527;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18576);}while(r); } S_21530:; 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(18577);if(r)goto S_21530;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18577);}while(r); } S_21533:; 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(18578);if(r)goto S_21533;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18578);}while(r); } S_21536:; 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(18579);if(r)goto S_21536;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18579);}while(r); } S_21539:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER",7))))||new_error){ if(qbevent){evnt(18580);if(r)goto S_21539;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18580);}while(r); } S_21542:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("LONG",4))))||new_error){ if(qbevent){evnt(18581);if(r)goto S_21542;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18581);}while(r); } S_21545:; 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(18582);if(r)goto S_21545;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18582);}while(r); } S_21548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("SINGLE",6))))||new_error){ if(qbevent){evnt(18583);if(r)goto S_21548;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18583);}while(r); } S_21551:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||new_error){ if(qbevent){evnt(18584);if(r)goto S_21551;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18584);}while(r); } S_21554:; 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(18585);if(r)goto S_21554;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18585);}while(r); } S_21557:; 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(18586);if(r)goto S_21557;} do{ *_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; if(!qbevent)break;evnt(18586);}while(r); } S_21560:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE== 1 ))||new_error){ if(qbevent){evnt(18587);if(r)goto S_21560;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18588);}while(r); do{ SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2694= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18589);}while(r); do{ SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2695=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18590);}while(r); do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18591);}while(r); } do{ goto LABEL_CLASSDONE; if(!qbevent)break;evnt(18594);}while(r); } LABEL_CLASSDONE:; if(qbevent){evnt(18597);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(18598);}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(18600);}while(r); LABEL_CLASSDONE_SPECIAL:; if(qbevent){evnt(18601);r=0;} fornext_continue_2638:; } fornext_exit_2638:; S_21572:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F->len))||new_error){ if(qbevent){evnt(18603);if(r)goto S_21572;} 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(18603);}while(r); } S_21575:; if (( 0 )||new_error){ if(qbevent){evnt(18605);if(r)goto S_21575;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2698; 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 skip2698; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); if (new_error) goto skip2698; skip2698: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18605);}while(r); } S_21578:; if (( 0 )||new_error){ if(qbevent){evnt(18606);if(r)goto S_21578;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2699; 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 skip2699; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); if (new_error) goto skip2699; skip2699: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18606);}while(r); } do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18613);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; if(!qbevent)break;evnt(18614);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_B2= 0 ; if(!qbevent)break;evnt(18615);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_P1= 0 ; if(!qbevent)break;evnt(18616);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18617);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18618);}while(r); S_21587:; fornext_value2701= 1 ; fornext_finalvalue2701=*_FUNC_FIXOPERATIONORDER_LONG_N; fornext_step2701= 1 ; if (fornext_step2701<0) fornext_step_negative2701=1; else fornext_step_negative2701=0; if (new_error) goto fornext_error2701; goto fornext_entrylabel2701; while(1){ fornext_value2701=fornext_step2701+(*_FUNC_FIXOPERATIONORDER_LONG_I); fornext_entrylabel2701: *_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2701; if (fornext_step_negative2701){ if (fornext_value2701fornext_finalvalue2701) break; } fornext_error2701:; if(qbevent){evnt(18619);if(r)goto S_21587;} do{ *_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 0 ; if(!qbevent)break;evnt(18621);}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(18623);}while(r); do{ *_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18625);}while(r); S_21591:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ if(qbevent){evnt(18629);if(r)goto S_21591;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; if(!qbevent)break;evnt(18630);}while(r); S_21593:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ if(qbevent){evnt(18632);if(r)goto S_21593;} do{ *_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; if(!qbevent)break;evnt(18637);}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(18638);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 1 ; if(!qbevent)break;evnt(18642);}while(r); do{ goto LABEL_FOOPASS; if(!qbevent)break;evnt(18644);}while(r); } S_21600:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ if(qbevent){evnt(18648);if(r)goto S_21600;} S_21601:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ if(qbevent){evnt(18649);if(r)goto S_21601;} do{ goto LABEL_FOOPASSIT; if(!qbevent)break;evnt(18650);}while(r); } } S_21605:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ if(qbevent){evnt(18654);if(r)goto S_21605;} do{ *_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; if(!qbevent)break;evnt(18655);}while(r); S_21607:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18657);if(r)goto S_21607;} LABEL_FOOPASSIT:; if(qbevent){evnt(18658);r=0;} S_21608:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_P1!=*_FUNC_FIXOPERATIONORDER_LONG_I))||new_error){ if(qbevent){evnt(18659);if(r)goto S_21608;} do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FOO,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_P1,&(pass2702=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18660);}while(r); S_21610:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18661);if(r)goto S_21610;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18661);}while(r); } S_21613:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FOO->len))||new_error){ if(qbevent){evnt(18662);if(r)goto S_21613;} 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(18663);}while(r); S_21615:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))||new_error){ if(qbevent){evnt(18664);if(r)goto S_21615;} 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(18664);}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(18664);}while(r); } } } S_21622:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ if(qbevent){evnt(18667);if(r)goto S_21622;} 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(18667);}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(18667);}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(18667);}while(r); } do{ *_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; if(!qbevent)break;evnt(18668);}while(r); } do{ goto LABEL_FOOPASS; if(!qbevent)break;evnt(18671);}while(r); } S_21632:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ if(qbevent){evnt(18677);if(r)goto S_21632;} 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(18677);}while(r); } LABEL_FOOPASS:; if(qbevent){evnt(18680);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(18682);}while(r); S_21636:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(18683);if(r)goto S_21636;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18683);}while(r); } S_21639:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F2->len))||new_error){ if(qbevent){evnt(18684);if(r)goto S_21639;} S_21640:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 46 ))||new_error){ if(qbevent){evnt(18687);if(r)goto S_21640;} S_21641:; if (((-(*_FUNC_FIXOPERATIONORDER_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N)))||new_error){ if(qbevent){evnt(18688);if(r)goto S_21641;} S_21642:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ if(qbevent){evnt(18689);if(r)goto S_21642;} do{ sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); if(!qbevent)break;evnt(18689);}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(18690);}while(r); do{ goto LABEL_FOOLOOPNXT; if(!qbevent)break;evnt(18691);}while(r); } } S_21649:; if ((*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET)||new_error){ if(qbevent){evnt(18696);if(r)goto S_21649;} S_21650:; if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I!= 1 ))||new_error){ if(qbevent){evnt(18699);if(r)goto S_21650;} S_21651:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2707=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))== 0 )))||new_error){ if(qbevent){evnt(18700);if(r)goto S_21651;} do{ sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); if(!qbevent)break;evnt(18701);}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(18704);}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(18706);}while(r); } } LABEL_FOOLOOPNXT:; if(qbevent){evnt(18711);r=0;} fornext_continue_2700:; } fornext_exit_2700:; S_21661:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_AA->len))||new_error){ if(qbevent){evnt(18715);if(r)goto S_21661;} 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(18715);}while(r); } S_21664:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ if(qbevent){evnt(18716);if(r)goto S_21664;} 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(18716);}while(r); } S_21667:; if (( 0 )||new_error){ if(qbevent){evnt(18718);if(r)goto S_21667;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2713; 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 skip2713; skip2713: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18718);}while(r); } S_21670:; if (( 0 )||new_error){ if(qbevent){evnt(18719);if(r)goto S_21670;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2714; 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 skip2714; skip2714: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(18719);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_STRING_FF); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18720);}while(r); do{ qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER,_FUNC_FIXOPERATIONORDER_STRING_AA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18721);}while(r); do{ *__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ; if(!qbevent)break;evnt(18723);}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_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 "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; do{ qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18730);}while(r); S_21677:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENTSPECIAL_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(18731);if(r)goto S_21677;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18731);}while(r); } do{ *_FUNC_GETELEMENTSPECIAL_LONG_N= 1 ; if(!qbevent)break;evnt(18733);}while(r); do{ *_FUNC_GETELEMENTSPECIAL_LONG_P= 1 ; if(!qbevent)break;evnt(18734);}while(r); LABEL_GETELEMENTSPECIALNEXT:; if(qbevent){evnt(18735);r=0;} do{ *_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18736);}while(r); do{ *_FUNC_GETELEMENTSPECIAL_LONG_I2=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18739);}while(r); S_21684:; if (((-(*_FUNC_GETELEMENTSPECIAL_LONG_I2<*_FUNC_GETELEMENTSPECIAL_LONG_I))&(-(*_FUNC_GETELEMENTSPECIAL_LONG_I2!= 0 )))||new_error){ if(qbevent){evnt(18740);if(r)goto S_21684;} do{ *_FUNC_GETELEMENTSPECIAL_LONG_I3=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I2+ 1 ,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18741);}while(r); S_21686:; if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I3== 0 ))||new_error){ if(qbevent){evnt(18741);if(r)goto S_21686;} 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(18741);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18741);}while(r); } do{ *_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I3,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18742);}while(r); } S_21692:; if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM==*_FUNC_GETELEMENTSPECIAL_LONG_N))||new_error){ if(qbevent){evnt(18745);if(r)goto S_21692;} S_21693:; if ((*_FUNC_GETELEMENTSPECIAL_LONG_I)||new_error){ if(qbevent){evnt(18746);if(r)goto S_21693;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18747);}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(18749);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18751);}while(r); } S_21700:; if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I== 0 ))||new_error){ if(qbevent){evnt(18754);if(r)goto S_21700;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18754);}while(r); } do{ *_FUNC_GETELEMENTSPECIAL_LONG_N=*_FUNC_GETELEMENTSPECIAL_LONG_N+ 1 ; if(!qbevent)break;evnt(18755);}while(r); do{ *_FUNC_GETELEMENTSPECIAL_LONG_P=*_FUNC_GETELEMENTSPECIAL_LONG_I+ 1 ; if(!qbevent)break;evnt(18756);}while(r); do{ goto LABEL_GETELEMENTSPECIALNEXT; if(!qbevent)break;evnt(18757);}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_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL);return _FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL; } 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 "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; S_21706:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(18763);if(r)goto S_21706;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18763);}while(r); } do{ *_FUNC_GETELEMENT_LONG_N= 1 ; if(!qbevent)break;evnt(18765);}while(r); do{ *_FUNC_GETELEMENT_LONG_P= 1 ; if(!qbevent)break;evnt(18766);}while(r); LABEL_GETELEMENTNEXT:; if(qbevent){evnt(18767);r=0;} do{ *_FUNC_GETELEMENT_LONG_I=func_instr(*_FUNC_GETELEMENT_LONG_P,_FUNC_GETELEMENT_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18768);}while(r); S_21712:; if ((-(*_FUNC_GETELEMENT_LONG_ELENUM==*_FUNC_GETELEMENT_LONG_N))||new_error){ if(qbevent){evnt(18770);if(r)goto S_21712;} S_21713:; if ((*_FUNC_GETELEMENT_LONG_I)||new_error){ if(qbevent){evnt(18771);if(r)goto S_21713;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18772);}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(18774);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18776);}while(r); } S_21720:; if ((-(*_FUNC_GETELEMENT_LONG_I== 0 ))||new_error){ if(qbevent){evnt(18779);if(r)goto S_21720;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18779);}while(r); } do{ *_FUNC_GETELEMENT_LONG_N=*_FUNC_GETELEMENT_LONG_N+ 1 ; if(!qbevent)break;evnt(18780);}while(r); do{ *_FUNC_GETELEMENT_LONG_P=*_FUNC_GETELEMENT_LONG_I+ 1 ; if(!qbevent)break;evnt(18781);}while(r); do{ goto LABEL_GETELEMENTNEXT; if(!qbevent)break;evnt(18782);}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_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 "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; S_21726:; if ((-(*_FUNC_GETELEMENTS_LONG_I2<*_FUNC_GETELEMENTS_LONG_I1))||new_error){ if(qbevent){evnt(18786);if(r)goto S_21726;} do{ qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18786);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18786);}while(r); } do{ *_FUNC_GETELEMENTS_LONG_N= 1 ; if(!qbevent)break;evnt(18787);}while(r); do{ *_FUNC_GETELEMENTS_LONG_P= 1 ; if(!qbevent)break;evnt(18788);}while(r); LABEL_GETELEMENTSNEXT:; if(qbevent){evnt(18789);r=0;} do{ *_FUNC_GETELEMENTS_LONG_I=func_instr(*_FUNC_GETELEMENTS_LONG_P,_FUNC_GETELEMENTS_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18790);}while(r); S_21733:; if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I1))||new_error){ if(qbevent){evnt(18791);if(r)goto S_21733;} do{ *_FUNC_GETELEMENTS_LONG_I1POS=*_FUNC_GETELEMENTS_LONG_P; if(!qbevent)break;evnt(18792);}while(r); } S_21736:; if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I2))||new_error){ if(qbevent){evnt(18794);if(r)goto S_21736;} S_21737:; if ((*_FUNC_GETELEMENTS_LONG_I)||new_error){ if(qbevent){evnt(18795);if(r)goto S_21737;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18796);}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(18798);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18800);}while(r); } do{ *_FUNC_GETELEMENTS_LONG_N=*_FUNC_GETELEMENTS_LONG_N+ 1 ; if(!qbevent)break;evnt(18802);}while(r); do{ *_FUNC_GETELEMENTS_LONG_P=*_FUNC_GETELEMENTS_LONG_I+ 1 ; if(!qbevent)break;evnt(18803);}while(r); do{ goto LABEL_GETELEMENTSNEXT; if(!qbevent)break;evnt(18804);}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; qbs_maketmp(_FUNC_GETELEMENTS_STRING_GETELEMENTS);return _FUNC_GETELEMENTS_STRING_GETELEMENTS; } 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 "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; S_21747:; if ((-(*_SUB_GETID_LONG_I== -1 ))||new_error){ if(qbevent){evnt(18808);if(r)goto S_21747;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18808);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18808);}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]))*2861)+ 0, 2861); if(!qbevent)break;evnt(18810);}while(r); do{ *__LONG_CURRENTID=*_SUB_GETID_LONG_I; if(!qbevent)break;evnt(18812);}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; } 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 "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; S_21753:; if ((-(*_SUB_INSERTELEMENTS_LONG_I== 0 ))||new_error){ if(qbevent){evnt(18816);if(r)goto S_21753;} S_21754:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_INSERTELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(18817);if(r)goto S_21754;} do{ qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_ELEMENTS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18818);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18819);}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(18821);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18822);}while(r); } do{ qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18825);}while(r); do{ *_SUB_INSERTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_INSERTELEMENTS_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18826);}while(r); S_21763:; fornext_value2724= 1 ; fornext_finalvalue2724=*_SUB_INSERTELEMENTS_LONG_N; fornext_step2724= 1 ; if (fornext_step2724<0) fornext_step_negative2724=1; else fornext_step_negative2724=0; if (new_error) goto fornext_error2724; goto fornext_entrylabel2724; while(1){ fornext_value2724=fornext_step2724+(*_SUB_INSERTELEMENTS_LONG_I2); fornext_entrylabel2724: *_SUB_INSERTELEMENTS_LONG_I2=fornext_value2724; if (fornext_step_negative2724){ if (fornext_value2724fornext_finalvalue2724) break; } fornext_error2724:; if(qbevent){evnt(18831);if(r)goto S_21763;} S_21764:; if ((-(*_SUB_INSERTELEMENTS_LONG_I2> 1 ))||new_error){ if(qbevent){evnt(18832);if(r)goto S_21764;} 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(18832);}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(18833);}while(r); S_21768:; if ((-(*_SUB_INSERTELEMENTS_LONG_I==*_SUB_INSERTELEMENTS_LONG_I2))||new_error){ if(qbevent){evnt(18834);if(r)goto S_21768;} 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(18834);}while(r); } fornext_continue_2723:; } fornext_exit_2723:; do{ qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18837);}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; } 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 "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; S_21773:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(18842);if(r)goto S_21773;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18842);}while(r); } S_21776:; fornext_value2728= 1 ; fornext_finalvalue2728=_FUNC_ISNUMBER_STRING_A->len; fornext_step2728= 1 ; if (fornext_step2728<0) fornext_step_negative2728=1; else fornext_step_negative2728=0; if (new_error) goto fornext_error2728; goto fornext_entrylabel2728; while(1){ fornext_value2728=fornext_step2728+(*_FUNC_ISNUMBER_LONG_I); fornext_entrylabel2728: *_FUNC_ISNUMBER_LONG_I=fornext_value2728; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2728){ if (fornext_value2728fornext_finalvalue2728) break; } fornext_error2728:; if(qbevent){evnt(18843);if(r)goto S_21776;} do{ *_FUNC_ISNUMBER_LONG_A=qbs_asc(func_mid(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18844);}while(r); S_21778:; if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||new_error){ if(qbevent){evnt(18845);if(r)goto S_21778;} S_21779:; 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_D> 0 ))&(-(*_FUNC_ISNUMBER_LONG_D==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*__LONG_E> 0 ))&(-(*__LONG_E==(*_FUNC_ISNUMBER_LONG_I- 1 )))))))))||new_error){ if(qbevent){evnt(18846);if(r)goto S_21779;} do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18846);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18847);}while(r); } S_21784:; if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||new_error){ if(qbevent){evnt(18849);if(r)goto S_21784;} S_21785:; if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||new_error){ if(qbevent){evnt(18850);if(r)goto S_21785;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18850);}while(r); } do{ *_FUNC_ISNUMBER_LONG_DP= 1 ; if(!qbevent)break;evnt(18851);}while(r); do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18852);}while(r); } S_21791:; if (((-(*_FUNC_ISNUMBER_LONG_A== 100 ))|(-(*_FUNC_ISNUMBER_LONG_A== 68 )))||new_error){ if(qbevent){evnt(18854);if(r)goto S_21791;} S_21792:; if (((-(*_FUNC_ISNUMBER_LONG_D> 0 ))|(-(*__LONG_E> 0 )))||new_error){ if(qbevent){evnt(18855);if(r)goto S_21792;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18855);}while(r); } S_21795:; if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||new_error){ if(qbevent){evnt(18856);if(r)goto S_21795;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18856);}while(r); } do{ *_FUNC_ISNUMBER_LONG_D=*_FUNC_ISNUMBER_LONG_I; if(!qbevent)break;evnt(18857);}while(r); do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18858);}while(r); } S_21801:; if (((-(*_FUNC_ISNUMBER_LONG_A== 101 ))|(-(*_FUNC_ISNUMBER_LONG_A== 69 )))||new_error){ if(qbevent){evnt(18860);if(r)goto S_21801;} S_21802:; if (((-(*_FUNC_ISNUMBER_LONG_D> 0 ))|(-(*__LONG_E> 0 )))||new_error){ if(qbevent){evnt(18861);if(r)goto S_21802;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18861);}while(r); } S_21805:; if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||new_error){ if(qbevent){evnt(18862);if(r)goto S_21805;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18862);}while(r); } do{ *__LONG_E=*_FUNC_ISNUMBER_LONG_I; if(!qbevent)break;evnt(18863);}while(r); do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18864);}while(r); } S_21811:; if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||new_error){ if(qbevent){evnt(18866);if(r)goto S_21811;} S_21812:; if ((((-(*_FUNC_ISNUMBER_LONG_D> 0 ))&(-(*_FUNC_ISNUMBER_LONG_D==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*__LONG_E> 0 ))&(-(*__LONG_E==(*_FUNC_ISNUMBER_LONG_I- 1 )))))||new_error){ if(qbevent){evnt(18867);if(r)goto S_21812;} do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18867);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18868);}while(r); } S_21817:; if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||new_error){ if(qbevent){evnt(18871);if(r)goto S_21817;} do{ goto fornext_continue_2727; if(!qbevent)break;evnt(18871);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18872);}while(r); fornext_continue_2727:; } fornext_exit_2727:; do{ *_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; if(!qbevent)break;evnt(18874);}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; return *_FUNC_ISNUMBER_LONG_ISNUMBER; } 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 "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; do{ qbs_set(_FUNC_ISOPERATOR_STRING_A,qbs_ucase(_FUNC_ISOPERATOR_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18878);}while(r); do{ *_FUNC_ISOPERATOR_LONG_L= 0 ; if(!qbevent)break;evnt(18879);}while(r); do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18880);}while(r); S_21826:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(18880);if(r)goto S_21826;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18880);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18881);}while(r); S_21830:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("EQV",3))))||new_error){ if(qbevent){evnt(18881);if(r)goto S_21830;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18881);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18882);}while(r); S_21834:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(18882);if(r)goto S_21834;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18882);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18883);}while(r); S_21838:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(18883);if(r)goto S_21838;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18883);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18884);}while(r); S_21842:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(18884);if(r)goto S_21842;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18884);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18885);}while(r); S_21846:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("NOT",3))))||new_error){ if(qbevent){evnt(18885);if(r)goto S_21846;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18885);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18886);}while(r); S_21850:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(18887);if(r)goto S_21850;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18887);}while(r); } S_21853:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(18888);if(r)goto S_21853;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18888);}while(r); } S_21856:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(18889);if(r)goto S_21856;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18889);}while(r); } S_21859:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(18890);if(r)goto S_21859;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18890);}while(r); } S_21862:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(18891);if(r)goto S_21862;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18891);}while(r); } S_21865:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(18892);if(r)goto S_21865;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18892);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18893);}while(r); S_21869:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(18894);if(r)goto S_21869;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18894);}while(r); } S_21872:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(18895);if(r)goto S_21872;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18895);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18896);}while(r); S_21876:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("MOD",3))))||new_error){ if(qbevent){evnt(18896);if(r)goto S_21876;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18896);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18897);}while(r); S_21880:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(18897);if(r)goto S_21880;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18897);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18898);}while(r); S_21884:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(18899);if(r)goto S_21884;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18899);}while(r); } S_21887:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(18900);if(r)goto S_21887;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18900);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18902);}while(r); S_21891:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,func_chr( 241 ))))||new_error){ if(qbevent){evnt(18902);if(r)goto S_21891;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18902);}while(r); } do{ *_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; if(!qbevent)break;evnt(18903);}while(r); S_21895:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("^",1))))||new_error){ if(qbevent){evnt(18903);if(r)goto S_21895;} do{ goto LABEL_OPFOUND; if(!qbevent)break;evnt(18903);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(18904);}while(r); LABEL_OPFOUND:; if(qbevent){evnt(18905);r=0;} do{ *_FUNC_ISOPERATOR_LONG_ISOPERATOR=*_FUNC_ISOPERATOR_LONG_L; if(!qbevent)break;evnt(18906);}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; 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 "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; S_21900:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||new_error){ if(qbevent){evnt(18910);if(r)goto S_21900;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18910);}while(r); } S_21903:; 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(18911);if(r)goto S_21903;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18911);}while(r); } S_21906:; fornext_value2736= 1 ; fornext_finalvalue2736=_FUNC_ISUINTEGER_STRING_I->len; fornext_step2736= 1 ; if (fornext_step2736<0) fornext_step_negative2736=1; else fornext_step_negative2736=0; if (new_error) goto fornext_error2736; goto fornext_entrylabel2736; while(1){ fornext_value2736=fornext_step2736+(*_FUNC_ISUINTEGER_LONG_C); fornext_entrylabel2736: *_FUNC_ISUINTEGER_LONG_C=fornext_value2736; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2736){ if (fornext_value2736fornext_finalvalue2736) break; } fornext_error2736:; if(qbevent){evnt(18912);if(r)goto S_21906;} 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(18913);}while(r); S_21908:; if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||new_error){ if(qbevent){evnt(18914);if(r)goto S_21908;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18914);}while(r); } fornext_continue_2735:; } fornext_exit_2735:; do{ *_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ; if(!qbevent)break;evnt(18916);}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_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 "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_21913:; fornext_value2740= 1 ; fornext_finalvalue2740=_FUNC_ISVALIDVARIABLE_STRING_A->len; fornext_step2740= 1 ; if (fornext_step2740<0) fornext_step_negative2740=1; else fornext_step_negative2740=0; if (new_error) goto fornext_error2740; goto fornext_entrylabel2740; while(1){ fornext_value2740=fornext_step2740+(*_FUNC_ISVALIDVARIABLE_LONG_I); fornext_entrylabel2740: *_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value2740; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2740){ if (fornext_value2740fornext_finalvalue2740) break; } fornext_error2740:; if(qbevent){evnt(18920);if(r)goto S_21913;} 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(18921);}while(r); do{ *_FUNC_ISVALIDVARIABLE_LONG_T= 0 ; if(!qbevent)break;evnt(18922);}while(r); S_21916:; if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(18923);if(r)goto S_21916;} do{ *_FUNC_ISVALIDVARIABLE_LONG_T= 1 ; if(!qbevent)break;evnt(18923);}while(r); } S_21919:; if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(18924);if(r)goto S_21919;} do{ *_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; if(!qbevent)break;evnt(18924);}while(r); } S_21922:; if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||new_error){ if(qbevent){evnt(18925);if(r)goto S_21922;} do{ *_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; if(!qbevent)break;evnt(18925);}while(r); } S_21925:; if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||new_error){ if(qbevent){evnt(18926);if(r)goto S_21925;} do{ *_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; if(!qbevent)break;evnt(18926);}while(r); } S_21928:; if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||new_error){ if(qbevent){evnt(18927);if(r)goto S_21928;} }else{ S_21930:; if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||new_error){ if(qbevent){evnt(18930);if(r)goto S_21930;} do{ *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; if(!qbevent)break;evnt(18930);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18930);}while(r); } do{ goto fornext_exit_2739; if(!qbevent)break;evnt(18931);}while(r); } fornext_continue_2739:; } fornext_exit_2739:; do{ *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; if(!qbevent)break;evnt(18935);}while(r); S_21938:; if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||new_error){ if(qbevent){evnt(18936);if(r)goto S_21938;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18936);}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(18937);}while(r); S_21942:; 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(18938);if(r)goto S_21942;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18938);}while(r); } S_21945:; 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(18939);if(r)goto S_21945;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18939);}while(r); } S_21948:; 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(18940);if(r)goto S_21948;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18940);}while(r); } S_21951:; 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(18941);if(r)goto S_21951;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18941);}while(r); } S_21954:; 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(18942);if(r)goto S_21954;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18942);}while(r); } S_21957:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(18943);if(r)goto S_21957;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18943);}while(r); } S_21960:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(18944);if(r)goto S_21960;} do{ goto exit_subfunc; if(!qbevent)break;evnt(18944);}while(r); } S_21963:; 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(18945);if(r)goto S_21963;} do{ *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; if(!qbevent)break;evnt(18945);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18945);}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(18946);}while(r); S_21968:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||new_error){ if(qbevent){evnt(18947);if(r)goto S_21968;} do{ *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; if(!qbevent)break;evnt(18947);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18947);}while(r); } do{ *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; if(!qbevent)break;evnt(18948);}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_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 "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; do{ qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18955);}while(r); do{ *__LONG_LINECONTINUATION= 0 ; if(!qbevent)break;evnt(18956);}while(r); LABEL_CONTINUELINE:; if(qbevent){evnt(18958);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(18960);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18962);}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(18963);}while(r); do{ *_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18965);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I= 1 ; if(!qbevent)break;evnt(18966);}while(r); LABEL_LINEFORMATNEXT:; if(qbevent){evnt(18967);r=0;} S_21980:; if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(18968);if(r)goto S_21980;} do{ goto LABEL_LINEFORMATDONE; if(!qbevent)break;evnt(18968);}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(18970);}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(18971);}while(r); S_21985:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ if(qbevent){evnt(18974);if(r)goto S_21985;} 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(18975);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(18976);}while(r); S_21988:; fornext_value2747=*_FUNC_LINEFORMAT_LONG_I+ 1 ; fornext_finalvalue2747=*_FUNC_LINEFORMAT_LONG_N- 2 ; fornext_step2747= 1 ; if (fornext_step2747<0) fornext_step_negative2747=1; else fornext_step_negative2747=0; if (new_error) goto fornext_error2747; goto fornext_entrylabel2747; while(1){ fornext_value2747=fornext_step2747+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2747: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2747; if (fornext_step_negative2747){ if (fornext_value2747fornext_finalvalue2747) break; } fornext_error2747:; if(qbevent){evnt(18977);if(r)goto S_21988;} 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(18978);}while(r); S_21990:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 34 ))||new_error){ if(qbevent){evnt(18980);if(r)goto S_21990;} 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 ,1)),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2748=*_FUNC_LINEFORMAT_LONG_I2-(*_FUNC_LINEFORMAT_LONG_I+ 1 ))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18981);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; if(!qbevent)break;evnt(18982);}while(r); do{ goto fornext_exit_2746; if(!qbevent)break;evnt(18983);}while(r); } S_21995:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 92 ))||new_error){ if(qbevent){evnt(18986);if(r)goto S_21995;} 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,1)),qbs_new_txt_len("\\\\",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18987);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; if(!qbevent)break;evnt(18988);}while(r); } S_21999:; if (((-(*_FUNC_LINEFORMAT_LONG_C2< 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C2> 126 )))||new_error){ if(qbevent){evnt(18991);if(r)goto S_21999;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_O,func_oct(*_FUNC_LINEFORMAT_LONG_C2,32)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18992);}while(r); S_22001:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ if(qbevent){evnt(18993);if(r)goto S_22001;} 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(18994);}while(r); S_22003:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ if(qbevent){evnt(18995);if(r)goto S_22003;} 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(18995);}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,1)),qbs_new_txt_len("\\",1)),_FUNC_LINEFORMAT_STRING_O)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18997);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; if(!qbevent)break;evnt(18998);}while(r); } fornext_continue_2746:; } fornext_exit_2746:; S_22011:; if ((-(*_FUNC_LINEFORMAT_LONG_I2==(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ if(qbevent){evnt(19003);if(r)goto S_22011;} 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 ,1)),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2751=(*_FUNC_LINEFORMAT_LONG_N- 2 )-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19004);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_N- 1 ; if(!qbevent)break;evnt(19005);}while(r); } do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19008);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I; if(!qbevent)break;evnt(19013);}while(r); S_22018:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ if(qbevent){evnt(19014);if(r)goto S_22018;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19015);}while(r); do{ *_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19015);}while(r); S_22021:; if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||new_error){ if(qbevent){evnt(19016);if(r)goto S_22021;} do{ goto LABEL_LFNUMBER; if(!qbevent)break;evnt(19016);}while(r); } } S_22025:; if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||new_error){ if(qbevent){evnt(19018);if(r)goto S_22025;} LABEL_LFNUMBER:; if(qbevent){evnt(19019);r=0;} S_22026:; 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(19022);if(r)goto S_22026;} 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(19023);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_MODE= 0 ; if(!qbevent)break;evnt(19031);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19032);}while(r); do{ *_FUNC_LINEFORMAT_LONG_DP= 0 ; if(!qbevent)break;evnt(19033);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19034);}while(r); do{ *_FUNC_LINEFORMAT_LONG_ED= 0 ; if(!qbevent)break;evnt(19035);}while(r); do{ *_FUNC_LINEFORMAT_LONG_PM= 1 ; if(!qbevent)break;evnt(19036);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19037);}while(r); LABEL_LFREADNUMBER:; if(qbevent){evnt(19042);r=0;} do{ *_FUNC_LINEFORMAT_LONG_VALID= 0 ; if(!qbevent)break;evnt(19043);}while(r); S_22037:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ if(qbevent){evnt(19045);if(r)goto S_22037;} S_22038:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ if(qbevent){evnt(19046);if(r)goto S_22038;} do{ *_FUNC_LINEFORMAT_LONG_VALID= 1 ; if(!qbevent)break;evnt(19046);}while(r); do{ *_FUNC_LINEFORMAT_LONG_DP= 1 ; if(!qbevent)break;evnt(19046);}while(r); do{ *_FUNC_LINEFORMAT_LONG_MODE= 1 ; if(!qbevent)break;evnt(19046);}while(r); } } S_22044:; if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(19049);if(r)goto S_22044;} do{ *_FUNC_LINEFORMAT_LONG_VALID= 1 ; if(!qbevent)break;evnt(19050);}while(r); S_22046:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ if(qbevent){evnt(19051);if(r)goto S_22046;} 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(19051);}while(r); } S_22049:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||new_error){ if(qbevent){evnt(19052);if(r)goto S_22049;} 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(19052);}while(r); } S_22052:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ if(qbevent){evnt(19053);if(r)goto S_22052;} do{ *_FUNC_LINEFORMAT_LONG_MODE= 3 ; if(!qbevent)break;evnt(19053);}while(r); } S_22055:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||new_error){ if(qbevent){evnt(19054);if(r)goto S_22055;} 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(19054);}while(r); } } S_22059:; if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||new_error){ if(qbevent){evnt(19057);if(r)goto S_22059;} S_22060:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||new_error){ if(qbevent){evnt(19058);if(r)goto S_22060;} do{ *_FUNC_LINEFORMAT_LONG_VALID= 1 ; if(!qbevent)break;evnt(19059);}while(r); S_22062:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||new_error){ if(qbevent){evnt(19060);if(r)goto S_22062;} do{ *_FUNC_LINEFORMAT_LONG_ED= 1 ; if(!qbevent)break;evnt(19060);}while(r); } S_22065:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||new_error){ if(qbevent){evnt(19061);if(r)goto S_22065;} do{ *_FUNC_LINEFORMAT_LONG_ED= 2 ; if(!qbevent)break;evnt(19061);}while(r); } S_22068:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||new_error){ if(qbevent){evnt(19062);if(r)goto S_22068;} do{ *_FUNC_LINEFORMAT_LONG_ED= 3 ; if(!qbevent)break;evnt(19062);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_MODE= 2 ; if(!qbevent)break;evnt(19063);}while(r); } } S_22074:; if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||new_error){ if(qbevent){evnt(19067);if(r)goto S_22074;} S_22075:; if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ if(qbevent){evnt(19068);if(r)goto S_22075;} do{ *_FUNC_LINEFORMAT_LONG_VALID= 1 ; if(!qbevent)break;evnt(19069);}while(r); S_22077:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||new_error){ if(qbevent){evnt(19070);if(r)goto S_22077;} do{ *_FUNC_LINEFORMAT_LONG_PM= -1 ; if(!qbevent)break;evnt(19070);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_MODE= 3 ; if(!qbevent)break;evnt(19071);}while(r); } } S_22083:; if ((*_FUNC_LINEFORMAT_LONG_VALID)||new_error){ if(qbevent){evnt(19075);if(r)goto S_22083;} S_22084:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19076);if(r)goto S_22084;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19076);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19076);}while(r); do{ *_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19076);}while(r); do{ goto LABEL_LFREADNUMBER; if(!qbevent)break;evnt(19076);}while(r); } } S_22091:; 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(19082);if(r)goto S_22091;} 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(19082);}while(r); dl_continue_2752:; } dl_exit_2752:; S_22094:; 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(19084);if(r)goto S_22094;} 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(19084);}while(r); dl_continue_2754:; } dl_exit_2754:; S_22097:; 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(19086);if(r)goto S_22097;} 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(19086);}while(r); dl_continue_2756:; } dl_exit_2756:; S_22100:; if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||new_error){ if(qbevent){evnt(19088);if(r)goto S_22100;} do{ *_FUNC_LINEFORMAT_LONG_FLOAT= 1 ; if(!qbevent)break;evnt(19088);}while(r); }else{ do{ *_FUNC_LINEFORMAT_LONG_FLOAT= 0 ; if(!qbevent)break;evnt(19088);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ; if(!qbevent)break;evnt(19090);}while(r); S_22106:; if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ if(qbevent){evnt(19092);if(r)goto S_22106;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19092);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19092);}while(r); } S_22110:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ if(qbevent){evnt(19095);if(r)goto S_22110;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19096);}while(r); S_22112:; 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(19097);if(r)goto S_22112;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19097);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19097);}while(r); } S_22116:; 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(19098);if(r)goto S_22116;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19098);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19098);}while(r); } S_22120:; 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(19099);if(r)goto S_22120;} 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(19099);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19099);}while(r); } } S_22125:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ if(qbevent){evnt(19102);if(r)goto S_22125;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19103);}while(r); S_22127:; 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(19104);if(r)goto S_22127;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19104);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19104);}while(r); } S_22131:; 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(19105);if(r)goto S_22131;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19105);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19105);}while(r); } S_22135:; 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(19106);if(r)goto S_22135;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19106);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19106);}while(r); } S_22139:; 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(19107);if(r)goto S_22139;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19107);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19107);}while(r); } S_22143:; 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(19108);if(r)goto S_22143;} 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(19108);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19108);}while(r); } S_22147:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(19109);if(r)goto S_22147;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19110);}while(r); do{ *_FUNC_LINEFORMAT_LONG_ED= 3 ; if(!qbevent)break;evnt(19111);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19112);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19113);}while(r); } S_22153:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ if(qbevent){evnt(19115);if(r)goto S_22153;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19116);}while(r); do{ goto LABEL_LFFOUNDBITEXT; if(!qbevent)break;evnt(19117);}while(r); } } S_22158:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19121);if(r)goto S_22158;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19122);}while(r); S_22160:; 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(19123);if(r)goto S_22160;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19123);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19123);}while(r); } S_22164:; 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(19124);if(r)goto S_22164;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19124);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19124);}while(r); } S_22168:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(19125);if(r)goto S_22168;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19126);}while(r); do{ *_FUNC_LINEFORMAT_LONG_ED= 1 ; if(!qbevent)break;evnt(19127);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19128);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19129);}while(r); } S_22174:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(19131);if(r)goto S_22174;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19132);}while(r); do{ *_FUNC_LINEFORMAT_LONG_ED= 2 ; if(!qbevent)break;evnt(19133);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19134);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19135);}while(r); } S_22180:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19137);if(r)goto S_22180;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19138);}while(r); LABEL_LFFOUNDBITEXT:; if(qbevent){evnt(19139);r=0;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19140);}while(r); S_22183:; while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19141);if(r)goto S_22183;} do{ *_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19142);}while(r); S_22185:; if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ if(qbevent){evnt(19143);if(r)goto S_22185;} 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(19144);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19145);}while(r); }else{ do{ goto dl_exit_2758; if(!qbevent)break;evnt(19147);}while(r); } dl_continue_2758:; } dl_exit_2758:; S_22192:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19150);if(r)goto S_22192;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19150);}while(r); } S_22195:; 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(19152);if(r)goto S_22195;} 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(19152);}while(r); dl_continue_2759:; } dl_exit_2759:; 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(19153);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19154);}while(r); } } S_22202:; if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ if(qbevent){evnt(19158);if(r)goto S_22202;} S_22203:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19160);if(r)goto S_22203;} do{ *_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19161);}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(19162);}while(r); }else{ S_22207:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19164);if(r)goto S_22207;} do{ *_FUNC_LINEFORMAT_LONG_OFFSET= -1 ; if(!qbevent)break;evnt(19165);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19166);}while(r); S_22210:; fornext_value2766= 1 ; fornext_finalvalue2766=_FUNC_LINEFORMAT_STRING_FRAC->len; fornext_step2766= 1 ; if (fornext_step2766<0) fornext_step_negative2766=1; else fornext_step_negative2766=0; if (new_error) goto fornext_error2766; goto fornext_entrylabel2766; while(1){ fornext_value2766=fornext_step2766+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2766: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2766; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2766){ if (fornext_value2766fornext_finalvalue2766) break; } fornext_error2766:; if(qbevent){evnt(19167);if(r)goto S_22210;} S_22211:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1),qbs_new_txt_len("0",1))))||new_error){ if(qbevent){evnt(19168);if(r)goto S_22211;} do{ goto fornext_exit_2765; if(!qbevent)break;evnt(19168);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ; if(!qbevent)break;evnt(19169);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ; if(!qbevent)break;evnt(19170);}while(r); fornext_continue_2765:; } fornext_exit_2765:; }else{ do{ *_FUNC_LINEFORMAT_LONG_OFFSET= 0 ; if(!qbevent)break;evnt(19174);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ; if(!qbevent)break;evnt(19175);}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(19178);}while(r); S_22223:; if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||new_error){ if(qbevent){evnt(19180);if(r)goto S_22223;} S_22224:; if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||new_error){ if(qbevent){evnt(19181);if(r)goto S_22224;} S_22225:; if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||new_error){ if(qbevent){evnt(19182);if(r)goto S_22225;} S_22226:; if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||new_error){ if(qbevent){evnt(19183);if(r)goto S_22226;} do{ goto LABEL_LFXSINGLE; if(!qbevent)break;evnt(19183);}while(r); } } S_22230:; if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||new_error){ if(qbevent){evnt(19185);if(r)goto S_22230;} S_22231:; if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||new_error){ if(qbevent){evnt(19186);if(r)goto S_22231;} do{ goto LABEL_LFXSINGLE; if(!qbevent)break;evnt(19186);}while(r); } } do{ *_FUNC_LINEFORMAT_LONG_ED= 1 ; if(!qbevent)break;evnt(19188);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19189);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19190);}while(r); } } LABEL_LFXSINGLE:; if(qbevent){evnt(19193);r=0;} S_22240:; if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||new_error){ if(qbevent){evnt(19195);if(r)goto S_22240;} S_22241:; if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||new_error){ if(qbevent){evnt(19196);if(r)goto S_22241;} S_22242:; if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||new_error){ if(qbevent){evnt(19197);if(r)goto S_22242;} S_22243:; if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||new_error){ if(qbevent){evnt(19198);if(r)goto S_22243;} do{ goto LABEL_LFXDOUBLE; if(!qbevent)break;evnt(19198);}while(r); } } S_22247:; if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||new_error){ if(qbevent){evnt(19200);if(r)goto S_22247;} S_22248:; if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||new_error){ if(qbevent){evnt(19201);if(r)goto S_22248;} do{ goto LABEL_LFXDOUBLE; if(!qbevent)break;evnt(19201);}while(r); } } do{ *_FUNC_LINEFORMAT_LONG_ED= 2 ; if(!qbevent)break;evnt(19203);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19204);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19205);}while(r); } } LABEL_LFXDOUBLE:; if(qbevent){evnt(19208);r=0;} do{ *_FUNC_LINEFORMAT_LONG_ED= 3 ; if(!qbevent)break;evnt(19210);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19211);}while(r); do{ goto LABEL_LFFOUNDEXT; if(!qbevent)break;evnt(19211);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ; if(!qbevent)break;evnt(19214);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19215);}while(r); LABEL_LFFOUNDEXT:; if(qbevent){evnt(19216);r=0;} S_22263:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19219);if(r)goto S_22263;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19219);}while(r); } S_22266:; if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ if(qbevent){evnt(19221);if(r)goto S_22266;} do{ *_FUNC_LINEFORMAT_LONG_DP= 1 ; if(!qbevent)break;evnt(19222);}while(r); S_22268:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19223);if(r)goto S_22268;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19223);}while(r); } } S_22272:; 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(19226);if(r)goto S_22272;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19226);}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(19228);}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(19229);}while(r); S_22277:; if ((*_FUNC_LINEFORMAT_LONG_DP)||new_error){ if(qbevent){evnt(19230);if(r)goto S_22277;} 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(19230);}while(r); } S_22280:; if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ if(qbevent){evnt(19231);if(r)goto S_22280;} S_22281:; if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||new_error){ if(qbevent){evnt(19232);if(r)goto S_22281;} 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(19232);}while(r); } S_22284:; if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||new_error){ if(qbevent){evnt(19233);if(r)goto S_22284;} 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(19233);}while(r); } S_22287:; if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||new_error){ if(qbevent){evnt(19234);if(r)goto S_22287;} 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(19234);}while(r); } S_22290:; 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(19235);if(r)goto S_22290;} 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(19235);}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(19235);}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(19236);}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(19238);}while(r); S_22298:; if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||new_error){ if(qbevent){evnt(19240);if(r)goto S_22298;} 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,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19240);}while(r); } do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19242);}while(r); } S_22303:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ if(qbevent){evnt(19247);if(r)goto S_22303;} S_22304:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("H",1))))||new_error){ if(qbevent){evnt(19248);if(r)goto S_22304;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19249);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19250);}while(r); LABEL_LFREADHEX:; if(qbevent){evnt(19251);r=0;} S_22307:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19252);if(r)goto S_22307;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19253);}while(r); do{ *_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19253);}while(r); S_22310:; 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(19254);if(r)goto S_22310;} 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(19254);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19254);}while(r); do{ goto LABEL_LFREADHEX; if(!qbevent)break;evnt(19254);}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(19256);}while(r); S_22317:; 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(19259);if(r)goto S_22317;} 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(19259);}while(r); dl_continue_2768:; } dl_exit_2768:; S_22320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19260);if(r)goto S_22320;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19260);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19262);}while(r); S_22324:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ if(qbevent){evnt(19264);if(r)goto S_22324;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19265);}while(r); S_22326:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(19266);if(r)goto S_22326;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19266);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19266);}while(r); } S_22330:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(19267);if(r)goto S_22330;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19267);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19267);}while(r); } S_22334:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ if(qbevent){evnt(19268);if(r)goto S_22334;} 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(19268);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19268);}while(r); } } S_22339:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ if(qbevent){evnt(19271);if(r)goto S_22339;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19272);}while(r); S_22341:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(19273);if(r)goto S_22341;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19273);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19273);}while(r); } S_22345:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(19274);if(r)goto S_22345;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19274);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19274);}while(r); } S_22349:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(19275);if(r)goto S_22349;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19275);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19275);}while(r); } S_22353:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(19276);if(r)goto S_22353;} 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(19276);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19276);}while(r); } S_22357:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(19277);if(r)goto S_22357;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19277);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19277);}while(r); } S_22361:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ if(qbevent){evnt(19278);if(r)goto S_22361;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19279);}while(r); do{ goto LABEL_LFHXBITEXT; if(!qbevent)break;evnt(19280);}while(r); } } S_22366:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19284);if(r)goto S_22366;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19285);}while(r); S_22368:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(19286);if(r)goto S_22368;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19286);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19286);}while(r); } S_22372:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(19287);if(r)goto S_22372;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19287);}while(r); do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19287);}while(r); } S_22376:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19288);if(r)goto S_22376;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19289);}while(r); LABEL_LFHXBITEXT:; if(qbevent){evnt(19290);r=0;} S_22378:; while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19291);if(r)goto S_22378;} do{ *_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19292);}while(r); S_22380:; if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ if(qbevent){evnt(19293);if(r)goto S_22380;} 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(19294);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19295);}while(r); }else{ do{ goto dl_exit_2770; if(!qbevent)break;evnt(19297);}while(r); } dl_continue_2770:; } dl_exit_2770:; S_22387:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19300);if(r)goto S_22387;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19300);}while(r); } S_22390:; 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(19302);if(r)goto S_22390;} 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(19302);}while(r); dl_continue_2771:; } dl_exit_2771:; do{ goto LABEL_LFHXEXT; if(!qbevent)break;evnt(19303);}while(r); } } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19308);}while(r); S_22397:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||new_error){ if(qbevent){evnt(19309);if(r)goto S_22397;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19309);}while(r); } S_22400:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||new_error){ if(qbevent){evnt(19310);if(r)goto S_22400;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19310);}while(r); } do{ goto LABEL_LFHXEXT2; if(!qbevent)break;evnt(19311);}while(r); LABEL_LFHXEXT:; if(qbevent){evnt(19312);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(19313);}while(r); LABEL_LFHXEXT2:; if(qbevent){evnt(19314);r=0;} S_22405:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||new_error){ if(qbevent){evnt(19317);if(r)goto S_22405;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19317);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19317);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; if(!qbevent)break;evnt(19318);}while(r); S_22410:; fornext_value2777= 1 ; fornext_finalvalue2777=_FUNC_LINEFORMAT_STRING_HX->len; fornext_step2777= 1 ; if (fornext_step2777<0) fornext_step_negative2777=1; else fornext_step_negative2777=0; if (new_error) goto fornext_error2777; goto fornext_entrylabel2777; while(1){ fornext_value2777=fornext_step2777+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2777: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2777; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2777){ if (fornext_value2777fornext_finalvalue2777) break; } fornext_error2777:; if(qbevent){evnt(19319);if(r)goto S_22410;} do{ *_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19320);}while(r); S_22412:; if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||new_error){ if(qbevent){evnt(19321);if(r)goto S_22412;} do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; if(!qbevent)break;evnt(19321);}while(r); }else{ do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ; if(!qbevent)break;evnt(19321);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2; if(!qbevent)break;evnt(19322);}while(r); fornext_continue_2776:; } fornext_exit_2776:; LABEL_FINISHHEXOCTBIN:; if(qbevent){evnt(19325);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(19326);}while(r); S_22420:; 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(19327);if(r)goto S_22420;} S_22421:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(19330);if(r)goto S_22421;} S_22422:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||new_error){ if(qbevent){evnt(19331);if(r)goto S_22422;} S_22423:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||new_error){ if(qbevent){evnt(19332);if(r)goto S_22423;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19332);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19332);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ; if(!qbevent)break;evnt(19333);}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(19334);}while(r); } } S_22431:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(19338);if(r)goto S_22431;} S_22432:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||new_error){ if(qbevent){evnt(19339);if(r)goto S_22432;} S_22433:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||new_error){ if(qbevent){evnt(19340);if(r)goto S_22433;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19340);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19340);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ; if(!qbevent)break;evnt(19341);}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(19342);}while(r); } } S_22441:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(19346);if(r)goto S_22441;} S_22442:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||new_error){ if(qbevent){evnt(19347);if(r)goto S_22442;} S_22443:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||new_error){ if(qbevent){evnt(19348);if(r)goto S_22443;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19348);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19348);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ; if(!qbevent)break;evnt(19349);}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(19350);}while(r); } } S_22451:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(19354);if(r)goto S_22451;} S_22452:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||new_error){ if(qbevent){evnt(19355);if(r)goto S_22452;} do{ *_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ; if(!qbevent)break;evnt(19357);}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(19358);}while(r); } } S_22457:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19362);if(r)goto S_22457;} do{ *_FUNC_LINEFORMAT_LONG_VBITN=qbr(func_val(_FUNC_LINEFORMAT_STRING_BITN)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19363);}while(r); do{ *_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; if(!qbevent)break;evnt(19364);}while(r); S_22460:; fornext_value2780= 1 ; fornext_finalvalue2780=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ; fornext_step2780= 1 ; if (fornext_step2780<0) fornext_step_negative2780=1; else fornext_step_negative2780=0; if (new_error) goto fornext_error2780; goto fornext_entrylabel2780; while(1){ fornext_value2780=fornext_step2780+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2780: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2780; if (fornext_step_negative2780){ if (fornext_value2780fornext_finalvalue2780) break; } fornext_error2780:; if(qbevent){evnt(19364);if(r)goto S_22460;} do{ *_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; if(!qbevent)break;evnt(19364);}while(r); fornext_continue_2779:; } fornext_exit_2779:; do{ *_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; if(!qbevent)break;evnt(19364);}while(r); S_22464:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ if(qbevent){evnt(19365);if(r)goto S_22464;} do{ *_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; if(!qbevent)break;evnt(19366);}while(r); S_22466:; fornext_value2782= 1 ; fornext_finalvalue2782=*_FUNC_LINEFORMAT_LONG_VBITN; fornext_step2782= 1 ; if (fornext_step2782<0) fornext_step_negative2782=1; else fornext_step_negative2782=0; if (new_error) goto fornext_error2782; goto fornext_entrylabel2782; while(1){ fornext_value2782=fornext_step2782+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2782: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2782; if (fornext_step_negative2782){ if (fornext_value2782fornext_finalvalue2782) break; } fornext_error2782:; if(qbevent){evnt(19366);if(r)goto S_22466;} do{ *_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; if(!qbevent)break;evnt(19366);}while(r); fornext_continue_2781:; } fornext_exit_2781:; do{ *_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; if(!qbevent)break;evnt(19366);}while(r); S_22470:; if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ if(qbevent){evnt(19367);if(r)goto S_22470;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19367);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19367);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ; if(!qbevent)break;evnt(19368);}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(19369);}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(19375);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19377);}while(r); } } S_22483:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ if(qbevent){evnt(19383);if(r)goto S_22483;} S_22484:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("O",1))))||new_error){ if(qbevent){evnt(19384);if(r)goto S_22484;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19385);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19387);}while(r); LABEL_LFREADOCT:; if(qbevent){evnt(19388);r=0;} S_22487:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19389);if(r)goto S_22487;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19390);}while(r); do{ *_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19390);}while(r); S_22490:; if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||new_error){ if(qbevent){evnt(19391);if(r)goto S_22490;} 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(19391);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19391);}while(r); do{ goto LABEL_LFREADOCT; if(!qbevent)break;evnt(19391);}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(19393);}while(r); S_22497:; 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(19396);if(r)goto S_22497;} 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(19396);}while(r); dl_continue_2783:; } dl_exit_2783:; S_22500:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19397);if(r)goto S_22500;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19397);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19399);}while(r); S_22504:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ if(qbevent){evnt(19401);if(r)goto S_22504;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19402);}while(r); S_22506:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(19403);if(r)goto S_22506;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19403);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19403);}while(r); } S_22510:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(19404);if(r)goto S_22510;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19404);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19404);}while(r); } S_22514:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ if(qbevent){evnt(19405);if(r)goto S_22514;} 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(19405);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19405);}while(r); } } S_22519:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ if(qbevent){evnt(19408);if(r)goto S_22519;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19409);}while(r); S_22521:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(19410);if(r)goto S_22521;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19410);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19410);}while(r); } S_22525:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(19411);if(r)goto S_22525;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19411);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19411);}while(r); } S_22529:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(19412);if(r)goto S_22529;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19412);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19412);}while(r); } S_22533:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(19413);if(r)goto S_22533;} 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(19413);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19413);}while(r); } S_22537:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(19414);if(r)goto S_22537;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19414);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19414);}while(r); } S_22541:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ if(qbevent){evnt(19415);if(r)goto S_22541;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19416);}while(r); do{ goto LABEL_LFOTBITEXT; if(!qbevent)break;evnt(19417);}while(r); } } S_22546:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19421);if(r)goto S_22546;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19422);}while(r); S_22548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(19423);if(r)goto S_22548;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19423);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19423);}while(r); } S_22552:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(19424);if(r)goto S_22552;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19424);}while(r); do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19424);}while(r); } S_22556:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19425);if(r)goto S_22556;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19426);}while(r); LABEL_LFOTBITEXT:; if(qbevent){evnt(19427);r=0;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19428);}while(r); S_22559:; while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19429);if(r)goto S_22559;} do{ *_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19430);}while(r); S_22561:; if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ if(qbevent){evnt(19431);if(r)goto S_22561;} 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(19432);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19433);}while(r); }else{ do{ goto dl_exit_2785; if(!qbevent)break;evnt(19435);}while(r); } dl_continue_2785:; } dl_exit_2785:; S_22568:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19438);if(r)goto S_22568;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19438);}while(r); } S_22571:; 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(19440);if(r)goto S_22571;} 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(19440);}while(r); dl_continue_2786:; } dl_exit_2786:; do{ goto LABEL_LFOTEXT; if(!qbevent)break;evnt(19441);}while(r); } } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19446);}while(r); S_22578:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||new_error){ if(qbevent){evnt(19448);if(r)goto S_22578;} S_22579:; 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(19449);if(r)goto S_22579;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19449);}while(r); } } S_22583:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||new_error){ if(qbevent){evnt(19452);if(r)goto S_22583;} S_22584:; 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(19453);if(r)goto S_22584;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19453);}while(r); } } do{ goto LABEL_LFOTEXT2; if(!qbevent)break;evnt(19456);}while(r); LABEL_LFOTEXT:; if(qbevent){evnt(19457);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(19458);}while(r); LABEL_LFOTEXT2:; if(qbevent){evnt(19459);r=0;} S_22590:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||new_error){ if(qbevent){evnt(19463);if(r)goto S_22590;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19463);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19463);}while(r); } S_22594:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||new_error){ if(qbevent){evnt(19464);if(r)goto S_22594;} S_22595:; 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(19465);if(r)goto S_22595;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19465);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19465);}while(r); } } do{ *_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; if(!qbevent)break;evnt(19468);}while(r); S_22601:; fornext_value2795= 1 ; fornext_finalvalue2795=_FUNC_LINEFORMAT_STRING_HX->len; fornext_step2795= 1 ; if (fornext_step2795<0) fornext_step_negative2795=1; else fornext_step_negative2795=0; if (new_error) goto fornext_error2795; goto fornext_entrylabel2795; while(1){ fornext_value2795=fornext_step2795+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2795: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2795; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2795){ if (fornext_value2795fornext_finalvalue2795) break; } fornext_error2795:; if(qbevent){evnt(19469);if(r)goto S_22601;} do{ *_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19470);}while(r); do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; if(!qbevent)break;evnt(19471);}while(r); do{ *_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2; if(!qbevent)break;evnt(19472);}while(r); fornext_continue_2794:; } fornext_exit_2794:; do{ goto LABEL_FINISHHEXOCTBIN; if(!qbevent)break;evnt(19475);}while(r); } } S_22609:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ if(qbevent){evnt(19481);if(r)goto S_22609;} S_22610:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("B",1))))||new_error){ if(qbevent){evnt(19482);if(r)goto S_22610;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19483);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19485);}while(r); LABEL_LFREADBIN:; if(qbevent){evnt(19486);r=0;} S_22613:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19487);if(r)goto S_22613;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19488);}while(r); do{ *_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19488);}while(r); S_22616:; if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||new_error){ if(qbevent){evnt(19489);if(r)goto S_22616;} 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(19489);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19489);}while(r); do{ goto LABEL_LFREADBIN; if(!qbevent)break;evnt(19489);}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(19491);}while(r); S_22623:; 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(19494);if(r)goto S_22623;} 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(19494);}while(r); dl_continue_2797:; } dl_exit_2797:; S_22626:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19495);if(r)goto S_22626;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19495);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19497);}while(r); S_22630:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ if(qbevent){evnt(19499);if(r)goto S_22630;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19500);}while(r); S_22632:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(19501);if(r)goto S_22632;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19501);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19501);}while(r); } S_22636:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(19502);if(r)goto S_22636;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; if(!qbevent)break;evnt(19502);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19502);}while(r); } S_22640:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ if(qbevent){evnt(19503);if(r)goto S_22640;} 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(19503);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19503);}while(r); } } S_22645:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ if(qbevent){evnt(19506);if(r)goto S_22645;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19507);}while(r); S_22647:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(19508);if(r)goto S_22647;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19508);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19508);}while(r); } S_22651:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(19509);if(r)goto S_22651;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19509);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19509);}while(r); } S_22655:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(19510);if(r)goto S_22655;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19510);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19510);}while(r); } S_22659:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(19511);if(r)goto S_22659;} 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(19511);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19511);}while(r); } S_22663:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(19512);if(r)goto S_22663;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19512);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19512);}while(r); } S_22667:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ if(qbevent){evnt(19513);if(r)goto S_22667;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; if(!qbevent)break;evnt(19514);}while(r); do{ goto LABEL_LFBIBITEXT; if(!qbevent)break;evnt(19515);}while(r); } } S_22672:; if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19521);if(r)goto S_22672;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19522);}while(r); S_22674:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(19523);if(r)goto S_22674;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19523);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19523);}while(r); } S_22678:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(19524);if(r)goto S_22678;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19524);}while(r); do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19524);}while(r); } S_22682:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19525);if(r)goto S_22682;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19526);}while(r); LABEL_LFBIBITEXT:; if(qbevent){evnt(19527);r=0;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19528);}while(r); S_22685:; while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19529);if(r)goto S_22685;} do{ *_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19530);}while(r); S_22687:; if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ if(qbevent){evnt(19531);if(r)goto S_22687;} 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(19532);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19533);}while(r); }else{ do{ goto dl_exit_2799; if(!qbevent)break;evnt(19535);}while(r); } dl_continue_2799:; } dl_exit_2799:; S_22694:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19538);if(r)goto S_22694;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19538);}while(r); } S_22697:; 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(19540);if(r)goto S_22697;} 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(19540);}while(r); dl_continue_2800:; } dl_exit_2800:; do{ goto LABEL_LFBIEXT; if(!qbevent)break;evnt(19541);}while(r); } } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19546);}while(r); S_22704:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||new_error){ if(qbevent){evnt(19547);if(r)goto S_22704;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19547);}while(r); } S_22707:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||new_error){ if(qbevent){evnt(19548);if(r)goto S_22707;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19548);}while(r); } do{ goto LABEL_LFBIEXT2; if(!qbevent)break;evnt(19550);}while(r); LABEL_LFBIEXT:; if(qbevent){evnt(19551);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(19552);}while(r); LABEL_LFBIEXT2:; if(qbevent){evnt(19553);r=0;} S_22712:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||new_error){ if(qbevent){evnt(19556);if(r)goto S_22712;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19556);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19556);}while(r); } do{ *_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; if(!qbevent)break;evnt(19558);}while(r); S_22717:; fornext_value2806= 1 ; fornext_finalvalue2806=_FUNC_LINEFORMAT_STRING_HX->len; fornext_step2806= 1 ; if (fornext_step2806<0) fornext_step_negative2806=1; else fornext_step_negative2806=0; if (new_error) goto fornext_error2806; goto fornext_entrylabel2806; while(1){ fornext_value2806=fornext_step2806+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2806: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2806; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2806){ if (fornext_value2806fornext_finalvalue2806) break; } fornext_error2806:; if(qbevent){evnt(19559);if(r)goto S_22717;} do{ *_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19560);}while(r); do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; if(!qbevent)break;evnt(19561);}while(r); do{ *_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2; if(!qbevent)break;evnt(19562);}while(r); fornext_continue_2805:; } fornext_exit_2805:; do{ goto LABEL_FINISHHEXOCTBIN; if(!qbevent)break;evnt(19565);}while(r); } } S_22725:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ if(qbevent){evnt(19571);if(r)goto S_22725;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19571);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19571);}while(r); } S_22729:; if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||new_error){ if(qbevent){evnt(19575);if(r)goto S_22729;} S_22730:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||new_error){ if(qbevent){evnt(19576);if(r)goto S_22730;} do{ *_FUNC_LINEFORMAT_LONG_P2= 0 ; if(!qbevent)break;evnt(19576);}while(r); }else{ do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; if(!qbevent)break;evnt(19576);}while(r); } S_22735:; fornext_value2809=*_FUNC_LINEFORMAT_LONG_I+ 1 ; fornext_finalvalue2809=*_FUNC_LINEFORMAT_LONG_N; fornext_step2809= 1 ; if (fornext_step2809<0) fornext_step_negative2809=1; else fornext_step_negative2809=0; if (new_error) goto fornext_error2809; goto fornext_entrylabel2809; while(1){ fornext_value2809=fornext_step2809+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2809: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2809; if (fornext_step_negative2809){ if (fornext_value2809fornext_finalvalue2809) break; } fornext_error2809:; if(qbevent){evnt(19577);if(r)goto S_22735;} 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(19578);}while(r); S_22737:; 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(19579);if(r)goto S_22737;} do{ goto fornext_exit_2808; if(!qbevent)break;evnt(19579);}while(r); } S_22740:; if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||new_error){ if(qbevent){evnt(19580);if(r)goto S_22740;} do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; if(!qbevent)break;evnt(19580);}while(r); } fornext_continue_2808:; } fornext_exit_2808:; S_22744:; if ((*_FUNC_LINEFORMAT_LONG_P2)||new_error){ if(qbevent){evnt(19582);if(r)goto S_22744;} do{ *_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19584);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19585);}while(r); S_22747:; if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||new_error){ if(qbevent){evnt(19588);if(r)goto S_22747;} S_22748:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||new_error){ if(qbevent){evnt(19589);if(r)goto S_22748;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; if(!qbevent)break;evnt(19590);}while(r); S_22750:; if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19591);if(r)goto S_22750;} 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(19592);}while(r); S_22752:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ if(qbevent){evnt(19593);if(r)goto S_22752;} 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,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19593);}while(r); do{ goto LABEL_EXTCHECK; if(!qbevent)break;evnt(19593);}while(r); } } S_22757:; 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(19597);if(r)goto S_22757;} 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(19597);}while(r); } do{ qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("REM",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19598);}while(r); do{ goto LABEL_COMMENT; if(!qbevent)break;evnt(19599);}while(r); } } S_22764:; if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||new_error){ if(qbevent){evnt(19604);if(r)goto S_22764;} S_22765:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||new_error){ if(qbevent){evnt(19605);if(r)goto S_22765;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19606);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; if(!qbevent)break;evnt(19607);}while(r); S_22768:; if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19608);if(r)goto S_22768;} 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(19609);}while(r); S_22770:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ if(qbevent){evnt(19610);if(r)goto S_22770;} 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,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19610);}while(r); do{ goto LABEL_EXTCHECK; if(!qbevent)break;evnt(19610);}while(r); } } do{ *_FUNC_LINEFORMAT_LONG_SCAN= 0 ; if(!qbevent)break;evnt(19613);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; if(!qbevent)break;evnt(19614);}while(r); do{ *_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; if(!qbevent)break;evnt(19615);}while(r); do{ *_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ; if(!qbevent)break;evnt(19616);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19617);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P1= 0 ; if(!qbevent)break;evnt(19618);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P2= 0 ; if(!qbevent)break;evnt(19619);}while(r); LABEL_NEXTDATACHR:; if(qbevent){evnt(19620);r=0;} S_22782:; if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19621);if(r)goto S_22782;} 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(19622);}while(r); S_22784:; if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||new_error){ if(qbevent){evnt(19623);if(r)goto S_22784;} S_22785:; if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ if(qbevent){evnt(19624);if(r)goto S_22785;} do{ goto LABEL_SKIPWHITESPACE; if(!qbevent)break;evnt(19624);}while(r); } } S_22789:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||new_error){ if(qbevent){evnt(19627);if(r)goto S_22789;} S_22790:; if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ if(qbevent){evnt(19628);if(r)goto S_22790;} do{ *_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; if(!qbevent)break;evnt(19628);}while(r); do{ goto LABEL_ADDDATA; if(!qbevent)break;evnt(19628);}while(r); } } S_22795:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||new_error){ if(qbevent){evnt(19631);if(r)goto S_22795;} S_22796:; if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ if(qbevent){evnt(19632);if(r)goto S_22796;} LABEL_ADDDATA:; if(qbevent){evnt(19633);r=0;} S_22797:; if ((-(*__LONG_PREPASS== 0 ))||new_error){ if(qbevent){evnt(19634);if(r)goto S_22797;} S_22798:; if ((*_FUNC_LINEFORMAT_LONG_P1)||new_error){ if(qbevent){evnt(19635);if(r)goto S_22798;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19639);}while(r); } S_22801:; if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||new_error){ if(qbevent){evnt(19642);if(r)goto S_22801;} 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(19644);}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(19648);}while(r); } S_22806:; if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||new_error){ if(qbevent){evnt(19650);if(r)goto S_22806;} do{ goto LABEL_FINISHEDDATA; if(!qbevent)break;evnt(19650);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19651);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P1= 0 ; if(!qbevent)break;evnt(19652);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P2= 0 ; if(!qbevent)break;evnt(19653);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; if(!qbevent)break;evnt(19654);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SCAN= 0 ; if(!qbevent)break;evnt(19655);}while(r); do{ *_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; if(!qbevent)break;evnt(19656);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19657);}while(r); do{ goto LABEL_NEXTDATACHR; if(!qbevent)break;evnt(19658);}while(r); } } S_22819:; if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||new_error){ if(qbevent){evnt(19662);if(r)goto S_22819;} S_22820:; if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||new_error){ if(qbevent){evnt(19663);if(r)goto S_22820;} 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(19663);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19663);}while(r); } } S_22825:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ if(qbevent){evnt(19666);if(r)goto S_22825;} S_22826:; if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||new_error){ if(qbevent){evnt(19667);if(r)goto S_22826;} do{ *_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ; if(!qbevent)break;evnt(19668);}while(r); do{ *_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; if(!qbevent)break;evnt(19669);}while(r); } S_22830:; if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ if(qbevent){evnt(19671);if(r)goto S_22830;} do{ *_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ; if(!qbevent)break;evnt(19671);}while(r); } } do{ *_FUNC_LINEFORMAT_LONG_SCAN= 1 ; if(!qbevent)break;evnt(19674);}while(r); S_22835:; if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||new_error){ if(qbevent){evnt(19676);if(r)goto S_22835;} do{ *_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I; if(!qbevent)break;evnt(19676);}while(r); do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; if(!qbevent)break;evnt(19676);}while(r); } S_22839:; if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||new_error){ if(qbevent){evnt(19677);if(r)goto S_22839;} do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; if(!qbevent)break;evnt(19677);}while(r); } LABEL_SKIPWHITESPACE:; if(qbevent){evnt(19679);r=0;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19680);}while(r); do{ goto LABEL_NEXTDATACHR; if(!qbevent)break;evnt(19680);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; if(!qbevent)break;evnt(19682);}while(r); do{ goto LABEL_ADDDATA; if(!qbevent)break;evnt(19682);}while(r); LABEL_FINISHEDDATA:; if(qbevent){evnt(19683);r=0;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19684);}while(r); S_22848:; if ((-(*__LONG_PREPASS== 0 ))||new_error){ if(qbevent){evnt(19685);if(r)goto S_22848;} do{ sub_put2( 16 ,NULL,byte_element((uint64)_FUNC_LINEFORMAT_STRING_X->chr,_FUNC_LINEFORMAT_STRING_X->len,byte_element_2810),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19686);}while(r); do{ *__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19687);}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(19689);}while(r); S_22852:; fornext_value2814= 1 ; fornext_finalvalue2814=_FUNC_LINEFORMAT_STRING_X->len- 1 ; fornext_step2814= 1 ; if (fornext_step2814<0) fornext_step_negative2814=1; else fornext_step_negative2814=0; if (new_error) goto fornext_error2814; goto fornext_entrylabel2814; while(1){ fornext_value2814=fornext_step2814+(*_FUNC_LINEFORMAT_LONG_EC); fornext_entrylabel2814: *_FUNC_LINEFORMAT_LONG_EC=fornext_value2814; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2814){ if (fornext_value2814fornext_finalvalue2814) break; } fornext_error2814:; if(qbevent){evnt(19690);if(r)goto S_22852;} 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(19692);}while(r); do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V1/ 16 ; if(!qbevent)break;evnt(19693);}while(r); S_22855:; if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||new_error){ if(qbevent){evnt(19693);if(r)goto S_22855;} do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ; if(!qbevent)break;evnt(19693);}while(r); }else{ do{ *_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ; if(!qbevent)break;evnt(19693);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ; if(!qbevent)break;evnt(19694);}while(r); S_22861:; if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||new_error){ if(qbevent){evnt(19694);if(r)goto S_22861;} do{ *_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ; if(!qbevent)break;evnt(19694);}while(r); }else{ do{ *_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ; if(!qbevent)break;evnt(19694);}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(19695);}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(19696);}while(r); fornext_continue_2813:; } fornext_exit_2813:; } 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(19701);}while(r); S_22871:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||new_error){ if(qbevent){evnt(19701);if(r)goto S_22871;} 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(19701);}while(r); } do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19702);}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,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19706);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; if(!qbevent)break;evnt(19707);}while(r); LABEL_EXTCHECK:; if(qbevent){evnt(19710);r=0;} S_22879:; if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||new_error){ if(qbevent){evnt(19711);if(r)goto S_22879;} 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(19711);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19711);}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(19712);}while(r); do{ *_FUNC_LINEFORMAT_LONG_M= 0 ; if(!qbevent)break;evnt(19713);}while(r); S_22885:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||new_error){ if(qbevent){evnt(19714);if(r)goto S_22885;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19715);}while(r); S_22887:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(19716);if(r)goto S_22887;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19716);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19716);}while(r); } S_22891:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(19717);if(r)goto S_22891;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19717);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19717);}while(r); } S_22895:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(19718);if(r)goto S_22895;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19718);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19718);}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(19719);}while(r); S_22900:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(19720);if(r)goto S_22900;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19720);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19720);}while(r); } S_22904:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(19721);if(r)goto S_22904;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19721);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19721);}while(r); } S_22908:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||new_error){ if(qbevent){evnt(19722);if(r)goto S_22908;} do{ *_FUNC_LINEFORMAT_LONG_M= 1 ; if(!qbevent)break;evnt(19722);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19722);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19722);}while(r); } } S_22914:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||new_error){ if(qbevent){evnt(19724);if(r)goto S_22914;} 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(19725);}while(r); S_22916:; if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||new_error){ if(qbevent){evnt(19726);if(r)goto S_22916;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19726);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19726);}while(r); } S_22920:; if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ if(qbevent){evnt(19727);if(r)goto S_22920;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19727);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19727);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19728);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19728);}while(r); } S_22927:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||new_error){ if(qbevent){evnt(19730);if(r)goto S_22927;} 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(19731);}while(r); S_22929:; if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ if(qbevent){evnt(19732);if(r)goto S_22929;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19732);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19732);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19733);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19733);}while(r); } S_22936:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||new_error){ if(qbevent){evnt(19735);if(r)goto S_22936;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19735);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19735);}while(r); } S_22940:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||new_error){ if(qbevent){evnt(19736);if(r)goto S_22940;} 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(19737);}while(r); S_22942:; if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||new_error){ if(qbevent){evnt(19738);if(r)goto S_22942;} do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19738);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19738);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19739);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19739);}while(r); } S_22949:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||new_error){ if(qbevent){evnt(19741);if(r)goto S_22949;} do{ *_FUNC_LINEFORMAT_LONG_M= 1 ; if(!qbevent)break;evnt(19741);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19741);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19741);}while(r); } S_22954:; if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||new_error){ if(qbevent){evnt(19742);if(r)goto S_22954;} do{ *_FUNC_LINEFORMAT_LONG_M= 1 ; if(!qbevent)break;evnt(19742);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19742);}while(r); do{ goto LABEL_LFGETVE; if(!qbevent)break;evnt(19742);}while(r); } S_22959:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||new_error){ if(qbevent){evnt(19746);if(r)goto S_22959;} 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(19747);}while(r); S_22961:; if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ if(qbevent){evnt(19748);if(r)goto S_22961;} do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19750);}while(r); S_22963:; fornext_value2818=*_FUNC_LINEFORMAT_LONG_I+ 2 ; fornext_finalvalue2818=*_FUNC_LINEFORMAT_LONG_N; fornext_step2818= 1 ; if (fornext_step2818<0) fornext_step_negative2818=1; else fornext_step_negative2818=0; if (new_error) goto fornext_error2818; goto fornext_entrylabel2818; while(1){ fornext_value2818=fornext_step2818+(*_FUNC_LINEFORMAT_LONG_I2); fornext_entrylabel2818: *_FUNC_LINEFORMAT_LONG_I2=fornext_value2818; if (fornext_step_negative2818){ if (fornext_value2818fornext_finalvalue2818) break; } fornext_error2818:; if(qbevent){evnt(19751);if(r)goto S_22963;} 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(19752);}while(r); S_22965:; 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(19754);if(r)goto S_22965;} do{ goto fornext_exit_2817; if(!qbevent)break;evnt(19754);}while(r); } S_22968:; if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||new_error){ if(qbevent){evnt(19755);if(r)goto S_22968;} do{ *_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; if(!qbevent)break;evnt(19755);}while(r); } fornext_continue_2817:; } fornext_exit_2817:; 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19757);}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(19758);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ; if(!qbevent)break;evnt(19759);}while(r); do{ goto LABEL_EXTCHECK; if(!qbevent)break;evnt(19760);}while(r); } } do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19764);}while(r); LABEL_LFGETVE:; if(qbevent){evnt(19766);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(19767);}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(19768);}while(r); S_22981:; if ((*_FUNC_LINEFORMAT_LONG_M)||new_error){ if(qbevent){evnt(19769);if(r)goto S_22981;} LABEL_LFGETVD:; if(qbevent){evnt(19770);r=0;} S_22982:; if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19771);if(r)goto S_22982;} 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(19772);}while(r); S_22984:; if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(19773);if(r)goto S_22984;} 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(19773);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19773);}while(r); do{ goto LABEL_LFGETVD; if(!qbevent)break;evnt(19773);}while(r); } } } do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19777);}while(r); } } S_22994:; if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||new_error){ if(qbevent){evnt(19784);if(r)goto S_22994;} do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19784);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19784);}while(r); } S_22998:; 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(19788);if(r)goto S_22998;} S_22999:; if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||new_error){ if(qbevent){evnt(19789);if(r)goto S_22999;} do{ *_FUNC_LINEFORMAT_LONG_COUNT= 0 ; if(!qbevent)break;evnt(19790);}while(r); S_23001:; do{ if(qbevent){evnt(19791);if(r)goto S_23001;} do{ *_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19792);}while(r); S_23003:; 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(19793);if(r)goto S_23003;} do{ goto dl_exit_2820; if(!qbevent)break;evnt(19793);}while(r); } S_23006:; dl_continue_2820:; }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_2820:; if(qbevent){evnt(19794);if(r)goto S_23006;} 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(19795);}while(r); S_23008:; if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||new_error){ if(qbevent){evnt(19796);if(r)goto S_23008;} S_23009:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ if(qbevent){evnt(19797);if(r)goto S_23009;} 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(19797);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19797);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19797);}while(r); } S_23014:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ if(qbevent){evnt(19798);if(r)goto S_23014;} 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(19798);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19798);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19798);}while(r); } S_23019:; }else{ if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){ if(qbevent){evnt(19799);if(r)goto S_23019;} S_23020:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ if(qbevent){evnt(19800);if(r)goto S_23020;} 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(19800);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19800);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19800);}while(r); } S_23025:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ if(qbevent){evnt(19801);if(r)goto S_23025;} 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(19801);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19801);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19801);}while(r); } S_23030:; }else{ if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){ if(qbevent){evnt(19802);if(r)goto S_23030;} S_23031:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ if(qbevent){evnt(19803);if(r)goto S_23031;} 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(19803);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19803);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19803);}while(r); } S_23036:; if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ if(qbevent){evnt(19804);if(r)goto S_23036;} 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(19804);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; if(!qbevent)break;evnt(19804);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19804);}while(r); } } } } } S_23043:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||new_error){ if(qbevent){evnt(19808);if(r)goto S_23043;} do{ goto LABEL_BADUSAGE; if(!qbevent)break;evnt(19808);}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(19811);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19812);}while(r); do{ goto LABEL_LINEFORMATNEXT; if(!qbevent)break;evnt(19813);}while(r); } LABEL_BADUSAGE:; if(qbevent){evnt(19815);r=0;} S_23050:; if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||new_error){ if(qbevent){evnt(19817);if(r)goto S_23050;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19817);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19817);}while(r); } do{ qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19820);}while(r); do{ *_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; if(!qbevent)break;evnt(19821);}while(r); LABEL_COMMENT:; if(qbevent){evnt(19822);r=0;} S_23056:; if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ if(qbevent){evnt(19823);if(r)goto S_23056;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19823);}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(19824);}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(19825);}while(r); S_23061:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ if(qbevent){evnt(19826);if(r)goto S_23061;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19826);}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(19827);}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(19829);}while(r); S_23066:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ if(qbevent){evnt(19830);if(r)goto S_23066;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19830);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19831);}while(r); S_23070:; if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||new_error){ if(qbevent){evnt(19832);if(r)goto S_23070;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19832);}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(19833);}while(r); do{ *_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ; if(!qbevent)break;evnt(19834);}while(r); S_23075:; fornext_value2829= 1 ; fornext_finalvalue2829=_FUNC_LINEFORMAT_STRING_C->len; fornext_step2829= 1 ; if (fornext_step2829<0) fornext_step_negative2829=1; else fornext_step_negative2829=0; if (new_error) goto fornext_error2829; goto fornext_entrylabel2829; while(1){ fornext_value2829=fornext_step2829+(*_FUNC_LINEFORMAT_LONG_X); fornext_entrylabel2829: *_FUNC_LINEFORMAT_LONG_X=fornext_value2829; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2829){ if (fornext_value2829fornext_finalvalue2829) break; } fornext_error2829:; if(qbevent){evnt(19835);if(r)goto S_23075;} LABEL_MCNEXT:; if(qbevent){evnt(19836);r=0;} S_23076:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 1 ,1),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(19837);if(r)goto S_23076;} S_23077:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,1),qbs_new_txt_len("$STATIC",7))))||new_error){ if(qbevent){evnt(19841);if(r)goto S_23077;} do{ *_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ; if(!qbevent)break;evnt(19842);}while(r); do{ *_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19843);}while(r); S_23080:; if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ if(qbevent){evnt(19844);if(r)goto S_23080;} do{ goto fornext_exit_2828; if(!qbevent)break;evnt(19844);}while(r); }else{ } do{ *_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; if(!qbevent)break;evnt(19845);}while(r); do{ goto LABEL_MCNEXT; if(!qbevent)break;evnt(19845);}while(r); } S_23087:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$DYNAMIC",8))))||new_error){ if(qbevent){evnt(19848);if(r)goto S_23087;} do{ *_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ; if(!qbevent)break;evnt(19849);}while(r); do{ *_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19850);}while(r); S_23090:; if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ if(qbevent){evnt(19851);if(r)goto S_23090;} do{ goto fornext_exit_2828; if(!qbevent)break;evnt(19851);}while(r); } do{ *_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; if(!qbevent)break;evnt(19852);}while(r); do{ goto LABEL_MCNEXT; if(!qbevent)break;evnt(19852);}while(r); } S_23096:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$INCLUDE",8))))||new_error){ if(qbevent){evnt(19855);if(r)goto S_23096;} S_23097:; fornext_value2832=*_FUNC_LINEFORMAT_LONG_X+ 8 ; fornext_finalvalue2832=_FUNC_LINEFORMAT_STRING_C->len; fornext_step2832= 1 ; if (fornext_step2832<0) fornext_step_negative2832=1; else fornext_step_negative2832=0; if (new_error) goto fornext_error2832; goto fornext_entrylabel2832; while(1){ fornext_value2832=fornext_step2832+(*_FUNC_LINEFORMAT_LONG_XX); fornext_entrylabel2832: *_FUNC_LINEFORMAT_LONG_XX=fornext_value2832; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2832){ if (fornext_value2832fornext_finalvalue2832) break; } fornext_error2832:; if(qbevent){evnt(19859);if(r)goto S_23097;} do{ *_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19860);}while(r); S_23099:; if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||new_error){ if(qbevent){evnt(19861);if(r)goto S_23099;} do{ goto fornext_exit_2831; if(!qbevent)break;evnt(19861);}while(r); } S_23102:; if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ if(qbevent){evnt(19862);if(r)goto S_23102;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19862);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19862);}while(r); } fornext_continue_2831:; } fornext_exit_2831:; do{ *_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; if(!qbevent)break;evnt(19864);}while(r); S_23108:; fornext_value2835=*_FUNC_LINEFORMAT_LONG_X+ 1 ; fornext_finalvalue2835=_FUNC_LINEFORMAT_STRING_C->len; fornext_step2835= 1 ; if (fornext_step2835<0) fornext_step_negative2835=1; else fornext_step_negative2835=0; if (new_error) goto fornext_error2835; goto fornext_entrylabel2835; while(1){ fornext_value2835=fornext_step2835+(*_FUNC_LINEFORMAT_LONG_XX); fornext_entrylabel2835: *_FUNC_LINEFORMAT_LONG_XX=fornext_value2835; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2835){ if (fornext_value2835fornext_finalvalue2835) break; } fornext_error2835:; if(qbevent){evnt(19866);if(r)goto S_23108;} do{ *_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19867);}while(r); S_23110:; if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||new_error){ if(qbevent){evnt(19868);if(r)goto S_23110;} do{ goto fornext_exit_2834; if(!qbevent)break;evnt(19868);}while(r); } S_23113:; if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ if(qbevent){evnt(19869);if(r)goto S_23113;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19869);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19869);}while(r); } fornext_continue_2834:; } fornext_exit_2834:; do{ *_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; if(!qbevent)break;evnt(19871);}while(r); do{ *_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19872);}while(r); S_23120:; if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ if(qbevent){evnt(19873);if(r)goto S_23120;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19873);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19873);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19874);}while(r); S_23125:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19875);if(r)goto S_23125;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19875);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19875);}while(r); } do{ goto LABEL_MCFINAL; if(!qbevent)break;evnt(19876);}while(r); } } fornext_continue_2828:; } fornext_exit_2828:; LABEL_MCFINAL:; if(qbevent){evnt(19883);r=0;} S_23133:; if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||new_error){ if(qbevent){evnt(19885);if(r)goto S_23133;} do{ *__INTEGER_ADDMETASTATIC= 1 ; if(!qbevent)break;evnt(19885);}while(r); } S_23136:; if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||new_error){ if(qbevent){evnt(19886);if(r)goto S_23136;} do{ *__INTEGER_ADDMETADYNAMIC= 1 ; if(!qbevent)break;evnt(19886);}while(r); } do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19888);}while(r); LABEL_LINEFORMATDONE:; if(qbevent){evnt(19892);r=0;} S_23140:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||new_error){ if(qbevent){evnt(19896);if(r)goto S_23140;} S_23141:; 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(19897);if(r)goto S_23141;} do{ *__LONG_LINECONTINUATION= 1 ; if(!qbevent)break;evnt(19899);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19900);}while(r); S_23144:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||new_error){ if(qbevent){evnt(19903);if(r)goto S_23144;} S_23145:; 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(19904);if(r)goto S_23145;} 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(19904);}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(19906);}while(r); S_23150:; if ((*__LONG_INCLEVEL)||new_error){ if(qbevent){evnt(19908);if(r)goto S_23150;} do{ *_FUNC_LINEFORMAT_LONG_FH= 99 +*__LONG_INCLEVEL; if(!qbevent)break;evnt(19909);}while(r); S_23152:; if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||new_error){ if(qbevent){evnt(19910);if(r)goto S_23152;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19910);}while(r); } do{ tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH; if (new_error) goto skip2841; sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A); if (new_error) goto skip2841; skip2841: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19911);}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(19912);}while(r); do{ goto LABEL_INCLUDECONT; if(!qbevent)break;evnt(19913);}while(r); } S_23159:; if ((*__LONG_IDEMODE)||new_error){ if(qbevent){evnt(19916);if(r)goto S_23159;} do{ qbs_set(__STRING_IDECOMMAND,func_chr( 100 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19917);}while(r); do{ *_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass2842= 0 )); if(!qbevent)break;evnt(19918);}while(r); do{ *__LONG_IDEERROR= 0 ; if(!qbevent)break;evnt(19919);}while(r); do{ qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19920);}while(r); S_23164:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19921);if(r)goto S_23164;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19921);}while(r); } }else{ do{ qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19923);}while(r); S_23169:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||new_error){ if(qbevent){evnt(19924);if(r)goto S_23169;} do{ goto LABEL_LINEFORMATDONE2; if(!qbevent)break;evnt(19924);}while(r); } } do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; if(!qbevent)break;evnt(19927);}while(r); LABEL_INCLUDECONT:; if(qbevent){evnt(19929);r=0;} do{ *_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ; if(!qbevent)break;evnt(19931);}while(r); do{ goto LABEL_CONTINUELINE; if(!qbevent)break;evnt(19932);}while(r); } } LABEL_LINEFORMATDONE2:; if(qbevent){evnt(19936);r=0;} S_23178:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||new_error){ if(qbevent){evnt(19937);if(r)goto S_23178;} 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(19937);}while(r); } S_23181:; 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(19940);if(r)goto S_23181;} 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(19940);}while(r); } S_23184:; if (( 0 )||new_error){ if(qbevent){evnt(19942);if(r)goto S_23184;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2844; 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 skip2844; skip2844: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(19942);}while(r); } S_23187:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(19943);if(r)goto S_23187;} do{ goto exit_subfunc; if(!qbevent)break;evnt(19943);}while(r); } do{ qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19944);}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; 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 "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(_SUB_MAKEIDREFER_STRING_REF,FUNC_STR2(__LONG_CURRENTID)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19950);}while(r); do{ *_SUB_MAKEIDREFER_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; if(!qbevent)break;evnt(19951);}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; } 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 "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; S_23193:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_NUMELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(19955);if(r)goto S_23193;} do{ goto exit_subfunc; if(!qbevent)break;evnt(19955);}while(r); } do{ *_FUNC_NUMELEMENTS_LONG_N= 1 ; if(!qbevent)break;evnt(19956);}while(r); do{ *_FUNC_NUMELEMENTS_LONG_P= 1 ; if(!qbevent)break;evnt(19957);}while(r); LABEL_NUMELEMENTSNEXT:; if(qbevent){evnt(19958);r=0;} do{ *_FUNC_NUMELEMENTS_LONG_I=func_instr(*_FUNC_NUMELEMENTS_LONG_P,_FUNC_NUMELEMENTS_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19959);}while(r); S_23199:; if ((-(*_FUNC_NUMELEMENTS_LONG_I== 0 ))||new_error){ if(qbevent){evnt(19960);if(r)goto S_23199;} do{ *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=*_FUNC_NUMELEMENTS_LONG_N; if(!qbevent)break;evnt(19960);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19960);}while(r); } do{ *_FUNC_NUMELEMENTS_LONG_N=*_FUNC_NUMELEMENTS_LONG_N+ 1 ; if(!qbevent)break;evnt(19961);}while(r); do{ *_FUNC_NUMELEMENTS_LONG_P=*_FUNC_NUMELEMENTS_LONG_I+ 1 ; if(!qbevent)break;evnt(19962);}while(r); do{ goto LABEL_NUMELEMENTSNEXT; if(!qbevent)break;evnt(19963);}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; return *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS; } 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(19967);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 7 ; if(!qbevent)break;evnt(19967);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 0 ; if(!qbevent)break;evnt(19967);}while(r); S_23209:; if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(19983);if(r)goto S_23209;} do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 4 ; if(!qbevent)break;evnt(19984);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 4 ; if(!qbevent)break;evnt(19984);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 4 ; if(!qbevent)break;evnt(19985);}while(r); S_23213:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(19986);if(r)goto S_23213;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_add",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19986);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19986);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19986);}while(r); } do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; if(!qbevent)break;evnt(19987);}while(r); S_23219:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(19988);if(r)goto S_23219;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_equal",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19988);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19988);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19988);}while(r); } S_23224:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(19989);if(r)goto S_23224;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_notequal",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19989);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19989);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19989);}while(r); } S_23229:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(19990);if(r)goto S_23229;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterthan",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19990);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19990);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19990);}while(r); } S_23234:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(19991);if(r)goto S_23234;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessthan",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19991);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19991);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19991);}while(r); } S_23239:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(19992);if(r)goto S_23239;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterorequal",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19992);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19992);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19992);}while(r); } S_23244:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(19993);if(r)goto S_23244;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessorequal",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19993);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19993);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19993);}while(r); } S_23249:; if (( 0 )||new_error){ if(qbevent){evnt(19994);if(r)goto S_23249;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2849; sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID STRING OPERATOR!",24), 0 , 0 , 1 ); if (new_error) goto skip2849; skip2849: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(19994);}while(r); do{ sub_end(); if(!qbevent)break;evnt(19994);}while(r); } } do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; if(!qbevent)break;evnt(19998);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; if(!qbevent)break;evnt(19998);}while(r); S_23256:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("^",1))))||new_error){ if(qbevent){evnt(19999);if(r)goto S_23256;} do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; if(!qbevent)break;evnt(19999);}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(19999);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; if(!qbevent)break;evnt(19999);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(19999);}while(r); } S_23262:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,func_chr( 241 ))))||new_error){ if(qbevent){evnt(20000);if(r)goto S_23262;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20000);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; if(!qbevent)break;evnt(20000);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20000);}while(r); } S_23267:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(20001);if(r)goto S_23267;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20002);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20002);}while(r); S_23270:; if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(20005);if(r)goto S_23270;} do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 2 ; if(!qbevent)break;evnt(20007);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; if(!qbevent)break;evnt(20008);}while(r); }else{ do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; if(!qbevent)break;evnt(20011);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 2 ; if(!qbevent)break;evnt(20012);}while(r); } do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; if(!qbevent)break;evnt(20014);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20015);}while(r); } S_23280:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(20017);if(r)goto S_23280;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("*",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20017);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20017);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20017);}while(r); } S_23285:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(20018);if(r)goto S_23285;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("+",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20018);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20018);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20018);}while(r); } S_23290:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(20019);if(r)goto S_23290;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20019);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20019);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20019);}while(r); } do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; if(!qbevent)break;evnt(20021);}while(r); S_23296:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(20022);if(r)goto S_23296;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("==",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20022);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20022);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20022);}while(r); } S_23301:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(20023);if(r)goto S_23301;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20023);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20023);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20023);}while(r); } S_23306:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(20024);if(r)goto S_23306;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20024);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20024);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20024);}while(r); } S_23311:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(20025);if(r)goto S_23311;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("!=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20025);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20025);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20025);}while(r); } S_23316:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(20026);if(r)goto S_23316;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20026);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20026);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20026);}while(r); } S_23321:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(20027);if(r)goto S_23321;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20027);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; if(!qbevent)break;evnt(20027);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20027);}while(r); } do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 1 ; if(!qbevent)break;evnt(20029);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RHS= 1 ; if(!qbevent)break;evnt(20029);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_RESULT= 1 ; if(!qbevent)break;evnt(20029);}while(r); S_23329:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("MOD",3))))||new_error){ if(qbevent){evnt(20030);if(r)goto S_23329;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20030);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20030);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20030);}while(r); } S_23334:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(20031);if(r)goto S_23334;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20031);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20031);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20031);}while(r); } S_23339:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(20032);if(r)goto S_23339;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20032);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; if(!qbevent)break;evnt(20032);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20032);}while(r); } S_23344:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("EQV",3))))||new_error){ if(qbevent){evnt(20033);if(r)goto S_23344;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20033);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; if(!qbevent)break;evnt(20033);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20033);}while(r); } S_23349:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(20034);if(r)goto S_23349;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20034);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20034);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20034);}while(r); } S_23354:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(20035);if(r)goto S_23354;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20035);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20035);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20035);}while(r); } S_23359:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(20036);if(r)goto S_23359;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20036);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; if(!qbevent)break;evnt(20036);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20036);}while(r); } do{ *_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; if(!qbevent)break;evnt(20038);}while(r); S_23365:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("NOT",3))))||new_error){ if(qbevent){evnt(20039);if(r)goto S_23365;} do{ qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("~",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20039);}while(r); do{ *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; if(!qbevent)break;evnt(20039);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20039);}while(r); } S_23370:; if (( 0 )||new_error){ if(qbevent){evnt(20041);if(r)goto S_23370;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2850; sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID NUMBERIC OPERATOR!",26), 0 , 0 , 1 ); if (new_error) goto skip2850; skip2850: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20041);}while(r); do{ sub_end(); if(!qbevent)break;evnt(20041);}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(20046);}while(r); do{ qbs_set(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20050);}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(20053);}while(r); S_23377:; if ((*_FUNC_REFER_LONG_I)||new_error){ if(qbevent){evnt(20054);if(r)goto S_23377;} 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(20055);}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(20055);}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(20057);}while(r); } do{ SUB_GETID(_FUNC_REFER_LONG_IDNUMBER); if(!qbevent)break;evnt(20059);}while(r); S_23384:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(20060);if(r)goto S_23384;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20060);}while(r); } S_23387:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(20063);if(r)goto S_23387;} S_23388:; if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(20064);if(r)goto S_23388;} 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(20065);}while(r); S_23390:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(20066);if(r)goto S_23390;} 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(20066);}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(20067);}while(r); do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20068);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20069);}while(r); } do{ *_FUNC_REFER_LONG_U=qbr(func_val(_FUNC_REFER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20074);}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(20075);}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(20075);}while(r); do{ *__LONG_E=qbr(func_val(_FUNC_REFER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20075);}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(20076);}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(20076);}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(20077);}while(r); S_23404:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(20077);if(r)goto S_23404;} 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(20077);}while(r); } S_23407:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(20078);if(r)goto S_23407;} 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(20078);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20078);}while(r); } S_23411:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(20079);if(r)goto S_23411;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types yet",65)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20079);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20079);}while(r); } S_23415:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(20081);if(r)goto S_23415;} S_23416:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(20082);if(r)goto S_23416;} 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(20083);}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(20084);}while(r); do{ *_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(20085);}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(20087);}while(r); do{ *_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE; if(!qbevent)break;evnt(20088);}while(r); } }else{ do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20091);}while(r); S_23426:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ if(qbevent){evnt(20092);if(r)goto S_23426;} do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISARRAY; if(!qbevent)break;evnt(20092);}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(20093);}while(r); S_23430:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(20094);if(r)goto S_23430;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20094);}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(20095);}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(20096);}while(r); } do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20100);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20101);}while(r); } S_23439:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(20106);if(r)goto S_23439;} 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(20108);}while(r); S_23441:; if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(20109);if(r)goto S_23441;} do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20110);}while(r); do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; if(!qbevent)break;evnt(20111);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20112);}while(r); } do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(20114);}while(r); S_23447:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(20116);if(r)goto S_23447;} S_23448:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(20117);if(r)goto S_23448;} 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(20118);}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(20119);}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(20121);}while(r); } do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(20123);}while(r); do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20124);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20125);}while(r); } S_23458:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(20128);if(r)goto S_23458;} S_23459:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(20131);if(r)goto S_23459;} do{ qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getubits",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20131);}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(20131);}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(&(pass2855=*_FUNC_REFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20132);}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(20133);}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(20134);}while(r); do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20135);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20136);}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(20138);}while(r); S_23471:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(20139);if(r)goto S_23471;} S_23472:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(20140);if(r)goto S_23472;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20140);}while(r); } S_23475:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(20141);if(r)goto S_23475;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20141);}while(r); } S_23478:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 256 ))||new_error){ if(qbevent){evnt(20142);if(r)goto S_23478;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20142);}while(r); } }else{ S_23482:; if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(20144);if(r)goto S_23482;} S_23483:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(20145);if(r)goto S_23483;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint8",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20145);}while(r); } S_23486:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(20146);if(r)goto S_23486;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint16",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20146);}while(r); } S_23489:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(20147);if(r)goto S_23489;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint32",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20147);}while(r); } S_23492:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(20148);if(r)goto S_23492;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint64",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20148);}while(r); } S_23495:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(20149);if(r)goto S_23495;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uptrszint",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20149);}while(r); } }else{ S_23499:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(20151);if(r)goto S_23499;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20151);}while(r); } S_23502:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(20152);if(r)goto S_23502;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20152);}while(r); } S_23505:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(20153);if(r)goto S_23505;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20153);}while(r); } S_23508:; if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(20154);if(r)goto S_23508;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20154);}while(r); } S_23511:; if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(20155);if(r)goto S_23511;} do{ qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20155);}while(r); } } } } S_23517:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(20159);if(r)goto S_23517;} 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(20159);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20159);}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(20160);}while(r); do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20161);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20162);}while(r); } S_23525:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ if(qbevent){evnt(20166);if(r)goto S_23525;} 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(20167);}while(r); do{ *_FUNC_REFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(20168);}while(r); S_23528:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ if(qbevent){evnt(20170);if(r)goto S_23528;} do{ *_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(20170);}while(r); } S_23531:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(20172);if(r)goto S_23531;} S_23532:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(20173);if(r)goto S_23532;} 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(20174);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20174);}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(20176);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20176);}while(r); } S_23539:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(20179);if(r)goto S_23539;} S_23540:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(20180);if(r)goto S_23540;} 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(&(pass2856=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20181);}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(&(pass2857=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20183);}while(r); } do{ goto LABEL_REF; if(!qbevent)break;evnt(20185);}while(r); } S_23547:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_BYTETYPE))||new_error){ if(qbevent){evnt(20187);if(r)goto S_23547;} 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(20187);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20187);}while(r); } S_23551:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ if(qbevent){evnt(20188);if(r)goto S_23551;} 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(20188);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20188);}while(r); } S_23555:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ if(qbevent){evnt(20189);if(r)goto S_23555;} 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(20189);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20189);}while(r); } S_23559:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ if(qbevent){evnt(20190);if(r)goto S_23559;} 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(20190);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20190);}while(r); } S_23563:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_LONGTYPE))||new_error){ if(qbevent){evnt(20191);if(r)goto S_23563;} 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(20191);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20191);}while(r); } S_23567:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ if(qbevent){evnt(20192);if(r)goto S_23567;} 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(20192);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20192);}while(r); } S_23571:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ if(qbevent){evnt(20193);if(r)goto S_23571;} 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(20193);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20193);}while(r); } S_23575:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ if(qbevent){evnt(20194);if(r)goto S_23575;} 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(20194);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20194);}while(r); } S_23579:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ if(qbevent){evnt(20195);if(r)goto S_23579;} 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(20195);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20195);}while(r); } S_23583:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ if(qbevent){evnt(20196);if(r)goto S_23583;} 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(20196);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20196);}while(r); } S_23587:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ if(qbevent){evnt(20197);if(r)goto S_23587;} 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(20197);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20197);}while(r); } S_23591:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ if(qbevent){evnt(20198);if(r)goto S_23591;} 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(20198);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20198);}while(r); } S_23595:; if ((-(*_FUNC_REFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ if(qbevent){evnt(20199);if(r)goto S_23595;} 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(20199);}while(r); do{ goto LABEL_REF; if(!qbevent)break;evnt(20199);}while(r); } LABEL_REF:; if(qbevent){evnt(20200);r=0;} S_23599:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(20201);if(r)goto S_23599;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(20201);}while(r); } S_23602:; if (((*_FUNC_REFER_LONG_T&*__LONG_ISPOINTER))||new_error){ if(qbevent){evnt(20202);if(r)goto S_23602;} do{ *_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20202);}while(r); } do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_T; if(!qbevent)break;evnt(20203);}while(r); S_23606:; if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(20204);if(r)goto S_23606;} S_23607:; 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(20205);if(r)goto S_23607;} 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(20205);}while(r); } do{ *_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; if(!qbevent)break;evnt(20206);}while(r); } do{ qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20208);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20209);}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(20217);}while(r); S_23616:; if ((-(*__LONG_IDN>*__LONG_IDS_MAX))||new_error){ if(qbevent){evnt(20219);if(r)goto S_23616;} do{ *__LONG_IDS_MAX=*__LONG_IDS_MAX* 2 ; if(!qbevent)break;evnt(20220);}while(r); do{ if (__ARRAY_UDT_IDS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_IDS[2]&1){ preserved_elements=__ARRAY_UDT_IDS[5]; } else preserved_elements=0; __ARRAY_UDT_IDS[4]= 1 ; __ARRAY_UDT_IDS[5]=(*__LONG_IDS_MAX)-__ARRAY_UDT_IDS[4]+1; __ARRAY_UDT_IDS[6]=1; if (__ARRAY_UDT_IDS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_IDS[0]),preserved_elements*22888/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); tmp_long=__ARRAY_UDT_IDS[5]; __ARRAY_UDT_IDS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*22888/8+1); memcpy((void*)(__ARRAY_UDT_IDS[0]),redim_preserve_cmem_buffer,preserved_elements*22888/8+1); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_INTEGER_CMEMLIST[2]&1){ preserved_elements=__ARRAY_INTEGER_CMEMLIST[5]; } else preserved_elements=0; __ARRAY_INTEGER_CMEMLIST[4]= 1 ; __ARRAY_INTEGER_CMEMLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_CMEMLIST[4]+1; __ARRAY_INTEGER_CMEMLIST[6]=1; if (__ARRAY_INTEGER_CMEMLIST[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_CMEMLIST[0]),preserved_elements*2); cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); tmp_long=__ARRAY_INTEGER_CMEMLIST[5]; __ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); memcpy((void*)(__ARRAY_INTEGER_CMEMLIST[0]),redim_preserve_cmem_buffer,preserved_elements*2); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ preserved_elements=__ARRAY_STRING100_SFCMEMARGS[5]; } else preserved_elements=0; __ARRAY_STRING100_SFCMEMARGS[4]= 1 ; __ARRAY_STRING100_SFCMEMARGS[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_STRING100_SFCMEMARGS[4]+1; __ARRAY_STRING100_SFCMEMARGS[6]=1; if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING100_SFCMEMARGS[0]),preserved_elements*100); cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); tmp_long=__ARRAY_STRING100_SFCMEMARGS[5]; __ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*100); memcpy((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),redim_preserve_cmem_buffer,preserved_elements*100); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ preserved_elements=__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]; } else preserved_elements=0; __ARRAY_INTEGER_ARRAYELEMENTSLIST[4]= 1 ; __ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=(*__LONG_IDS_MAX+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]+1; __ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=1; if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),preserved_elements*2); cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); tmp_long=__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]; __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); memcpy((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),redim_preserve_cmem_buffer,preserved_elements*2); if (preserved_elementslen== 0 )))||new_error){ if(qbevent){evnt(20317);if(r)goto S_23718;} S_23719:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20318);if(r)goto S_23719;} S_23720:; 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(20320);if(r)goto S_23720;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20320);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20320);}while(r); } }else{ do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20322);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20322);}while(r); } } S_23729:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ if(qbevent){evnt(20325);if(r)goto S_23729;} S_23730:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20326);if(r)goto S_23730;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20326);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20326);}while(r); } }else{ S_23735:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20329);if(r)goto S_23735;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20329);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20329);}while(r); } } } S_23741:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 1024 )||new_error){ if(qbevent){evnt(20334);if(r)goto S_23741;} 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(20335);}while(r); S_23743:; if (((((-(*_SUB_REGID_LONG_SCOPE1== 0 ))&(-(*__LONG_ALLOWLOCALNAME== 0 ))))|(-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2)))||new_error){ if(qbevent){evnt(20336);if(r)goto S_23743;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20336);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20336);}while(r); } } S_23748:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 2048 )||new_error){ if(qbevent){evnt(20340);if(r)goto S_23748;} do{ *_SUB_REGID_LONG_ASTYPE1= 0 ; if(!qbevent)break;evnt(20341);}while(r); S_23750:; 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]))*2861+528)),8,1))== 32 )))||new_error){ if(qbevent){evnt(20341);if(r)goto S_23750;} do{ *_SUB_REGID_LONG_ASTYPE1= 1 ; if(!qbevent)break;evnt(20341);}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]))*2861+2641)); if(!qbevent)break;evnt(20342);}while(r); S_23754:; if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ if(qbevent){evnt(20343);if(r)goto S_23754;} S_23755:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20344);if(r)goto S_23755;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20344);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20344);}while(r); } } S_23760:; 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]))*2861+536))))||new_error){ if(qbevent){evnt(20347);if(r)goto S_23760;} S_23761:; 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]))*2861+540))))||new_error){ if(qbevent){evnt(20348);if(r)goto S_23761;} S_23762:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20349);if(r)goto S_23762;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20349);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20349);}while(r); } } } S_23768:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(20353);if(r)goto S_23768;} S_23769:; if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ if(qbevent){evnt(20354);if(r)goto S_23769;} S_23770:; if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+536))&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(20355);if(r)goto S_23770;} S_23771:; if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+536))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(20356);if(r)goto S_23771;} S_23772:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20357);if(r)goto S_23772;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20357);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20357);}while(r); } } } } } } LABEL_VARNAME_EXCEPTION:; if(qbevent){evnt(20364);r=0;} S_23781:; if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(20365);if(r)goto S_23781;} do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); if(!qbevent)break;evnt(20365);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(20365);}while(r); } dl_continue_2860:; } dl_exit_2860:; } } S_23789:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(20371);if(r)goto S_23789;} do{ *_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 4096 ; if(!qbevent)break;evnt(20372);}while(r); do{ *_SUB_REGID_LONG_ALLOW= 0 ; if(!qbevent)break;evnt(20373);}while(r); LABEL_ARY_RECHECK:; if(qbevent){evnt(20374);r=0;} do{ *_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; if(!qbevent)break;evnt(20375);}while(r); S_23793:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ if(qbevent){evnt(20376);if(r)goto S_23793;} do{ *_SUB_REGID_LONG_ASTYPE2= 1 ; if(!qbevent)break;evnt(20376);}while(r); } do{ *_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 4096 ; if(!qbevent)break;evnt(20377);}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(20378);}while(r); S_23798:; while((*_SUB_REGID_LONG_HASHRES)||new_error){ if(qbevent){evnt(20379);if(r)goto S_23798;} S_23799:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ if(qbevent){evnt(20382);if(r)goto S_23799;} 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(20383);}while(r); S_23801:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ if(qbevent){evnt(20384);if(r)goto S_23801;} }else{ do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20388);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20388);}while(r); } } S_23807:; if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ if(qbevent){evnt(20393);if(r)goto S_23807;} S_23808:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+548))== 0 ))||new_error){ if(qbevent){evnt(20394);if(r)goto S_23808;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20394);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20394);}while(r); } S_23812:; 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]))*2861+544))== 2 ))))||new_error){ if(qbevent){evnt(20395);if(r)goto S_23812;} do{ goto LABEL_ARRAYNAME_EXCEPTION; if(!qbevent)break;evnt(20395);}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(20396);}while(r); S_23816:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ if(qbevent){evnt(20398);if(r)goto S_23816;} S_23817:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20399);if(r)goto S_23817;} S_23818:; 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(20401);if(r)goto S_23818;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20401);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20401);}while(r); } }else{ do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20403);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20403);}while(r); } } S_23827:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ if(qbevent){evnt(20406);if(r)goto S_23827;} S_23828:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20407);if(r)goto S_23828;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20407);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20407);}while(r); } }else{ S_23833:; 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]))*2861+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(20410);if(r)goto S_23833;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20410);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20410);}while(r); } } } S_23839:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 4096 )||new_error){ if(qbevent){evnt(20415);if(r)goto S_23839;} do{ *_SUB_REGID_LONG_ASTYPE1= 0 ; if(!qbevent)break;evnt(20416);}while(r); S_23841:; 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]))*2861+528)),8,1))== 32 )))||new_error){ if(qbevent){evnt(20416);if(r)goto S_23841;} do{ *_SUB_REGID_LONG_ASTYPE1= 1 ; if(!qbevent)break;evnt(20416);}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]))*2861+2641)); if(!qbevent)break;evnt(20417);}while(r); S_23845:; if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ if(qbevent){evnt(20418);if(r)goto S_23845;} S_23846:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20419);if(r)goto S_23846;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20419);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20419);}while(r); } } S_23851:; 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]))*2861+512))))||new_error){ if(qbevent){evnt(20422);if(r)goto S_23851;} S_23852:; 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]))*2861+540))))||new_error){ if(qbevent){evnt(20423);if(r)goto S_23852;} S_23853:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20424);if(r)goto S_23853;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20424);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20424);}while(r); } } } S_23859:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(20428);if(r)goto S_23859;} S_23860:; if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ if(qbevent){evnt(20429);if(r)goto S_23860;} S_23861:; if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+512))&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(20430);if(r)goto S_23861;} S_23862:; if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+512))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ if(qbevent){evnt(20431);if(r)goto S_23862;} S_23863:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ if(qbevent){evnt(20432);if(r)goto S_23863;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20432);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20432);}while(r); } } } } } } LABEL_ARRAYNAME_EXCEPTION:; if(qbevent){evnt(20439);r=0;} S_23872:; if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(20440);if(r)goto S_23872;} do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); if(!qbevent)break;evnt(20440);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(20440);}while(r); } dl_continue_2862:; } dl_exit_2862:; } do{ SUB_HASHADD(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHFLAGS,__LONG_CURRENTID); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20445);}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(20450);}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,29,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,29,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,29,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,31,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,31,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,31,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,33,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,33,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,33,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,35,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,35,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,35,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,37,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,37,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,37,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,39,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,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(20451,39,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,39,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,41,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,41,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,41,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,43,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,43,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,43,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,45,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,45,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,45,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,47,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,47,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,47,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,49,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,49,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,49,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,51,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,51,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,51,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,53,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,53,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,53,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,55,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,55,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,55,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,57,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,57,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,57,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,60,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,60,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,60,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,62,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,62,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,62,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,64,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,64,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,64,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,66,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,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(20451,66,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,66,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,68,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,68,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,68,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,70,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,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(20451,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(20451,70,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,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(20451,70,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,70,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,70,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,72,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,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(20451,72,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,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(20451,72,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,72,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,72,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,74,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,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(20451,74,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,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(20451,74,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,74,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,74,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,76,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,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(20451,76,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,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(20451,76,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,76,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,76,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,78,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,78,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,78,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,80,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,80,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,80,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,82,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,82,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,82,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,84,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,84,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,84,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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(20451,88,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,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(20451,90,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,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(20451,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(20451,93,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,94,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,96,"subs_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(20451,97,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,98,"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(20451,99,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,100,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,101,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,103,"subs_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(20451,104,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,105,"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(20451,106,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,107,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,108,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,110,"subs_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(20451,111,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,112,"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(20451,113,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,114,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,115,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,117,"subs_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(20451,118,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,119,"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(20451,120,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,121,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,122,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,124,"subs_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(20451,125,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,126,"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(20451,127,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,128,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,129,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,132,"subs_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(20451,133,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,134,"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(20451,135,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,136,"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(20451,137,"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(20451,138,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,139,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,141,"subs_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(20451,142,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,143,"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(20451,144,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,145,"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(20451,146,"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(20451,147,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,148,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,150,"subs_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(20451,151,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,152,"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(20451,153,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,154,"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(20451,155,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))= -1 ; if(!qbevent)break;evnt(20451,156,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,157,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,159,"subs_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(20451,160,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,161,"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(20451,162,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,165,"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(20451,166,"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(20451,167,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); if(!qbevent)break;evnt(20451,168,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,169,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,172,"subs_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(20451,173,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,174,"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(20451,175,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,176,"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(20451,177,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); if(!qbevent)break;evnt(20451,178,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,179,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,184,"subs_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(20451,185,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,186,"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(20451,187,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,188,"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(20451,189,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,190,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,192,"subs_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(20451,193,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,194,"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(20451,195,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,196,"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(20451,197,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,198,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,199,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,201,"subs_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(20451,202,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,203,"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(20451,204,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,205,"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(20451,206,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); if(!qbevent)break;evnt(20451,207,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,208,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,210,"subs_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(20451,211,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,212,"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(20451,213,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,214,"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(20451,215,"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(20451,216,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); if(!qbevent)break;evnt(20451,217,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,218,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,220,"subs_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(20451,221,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 3 ; if(!qbevent)break;evnt(20451,221,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,222,"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(20451,223,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,224,"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(20451,225,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); if(!qbevent)break;evnt(20451,226,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,227,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,229,"subs_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(20451,230,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,231,"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(20451,232,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,233,"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(20451,234,"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(20451,235,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,236,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,238,"subs_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(20451,239,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,240,"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(20451,241,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,242,"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(20451,243,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,244,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,246,"subs_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(20451,247,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,248,"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(20451,249,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,250,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,252,"subs_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(20451,253,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,254,"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(20451,255,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,256,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,258,"subs_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(20451,259,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,260,"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(20451,261,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,262,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,263,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,266,"subs_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(20451,267,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,268,"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(20451,269,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,270,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,271,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,273,"subs_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(20451,274,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,275,"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(20451,276,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,277,"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(20451,278,"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(20451,279,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,280,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,282,"subs_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(20451,283,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,284,"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(20451,285,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,286,"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(20451,287,"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(20451,288,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,289,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,291,"subs_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(20451,292,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,293,"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(20451,294,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,295,"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(20451,296,"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(20451,297,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,298,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,300,"subs_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(20451,301,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,302,"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(20451,303,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,304,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,305,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,307,"subs_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(20451,308,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,309,"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(20451,310,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,311,"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(20451,312,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,313,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,314,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,316,"subs_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(20451,317,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,318,"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(20451,319,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,320,"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(20451,321,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,322,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,323,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,327,"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(20451,328,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,328,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,329,"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(20451,330,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,331,"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(20451,332,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,333,"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(20451,334,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,335,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,337,"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(20451,338,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,338,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,339,"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(20451,340,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,341,"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(20451,342,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,343,"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(20451,344,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,345,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,347,"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(20451,348,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,348,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,349,"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(20451,350,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,351,"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(20451,352,"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(20451,353,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,355,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,359,"subs_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(20451,360,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,360,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,361,"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(20451,362,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,363,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,364,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,366,"subs_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(20451,367,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,367,"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(20451,368,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,369,"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(20451,370,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,371,"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(20451,372,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,373,"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(20451,374,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,375,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,377,"subs_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(20451,378,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,378,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,379,"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(20451,380,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,381,"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(20451,382,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,383,"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(20451,384,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,385,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,387,"subs_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(20451,388,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,388,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,389,"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(20451,390,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,391,"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(20451,392,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,393,"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(20451,394,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,395,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,397,"subs_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(20451,398,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,398,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,399,"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(20451,400,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,401,"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(20451,402,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,403,"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(20451,404,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,405,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,407,"subs_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(20451,408,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,408,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,409,"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(20451,410,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,411,"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(20451,412,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,413,"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(20451,414,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,415,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,417,"subs_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(20451,418,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,418,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,419,"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(20451,420,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,421,"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(20451,422,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,423,"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(20451,424,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,425,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,427,"subs_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(20451,428,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,428,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,429,"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(20451,430,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,431,"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(20451,432,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,433,"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(20451,434,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,435,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,437,"subs_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(20451,438,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,438,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,439,"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(20451,440,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,441,"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(20451,442,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,443,"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(20451,444,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,445,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,448,"subs_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(20451,449,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 12 ; if(!qbevent)break;evnt(20451,449,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,450,"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(20451,451,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,452,"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(20451,453,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,454,"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(20451,455,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,456,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,467,"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(20451,468,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,469,"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(20451,470,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,471,"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(20451,472,"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(20451,473,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,474,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("SCREENX",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,477,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,478,"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(20451,479,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,480,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,481,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,483,"subs_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(20451,484,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,485,"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(20451,486,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,487,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,488,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,490,"subs_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(20451,491,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,492,"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(20451,493,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,494,"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(20451,495,"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(20451,496,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,497,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,499,"subs_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(20451,500,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,501,"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(20451,502,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,503,"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(20451,504,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,505,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,507,"subs_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(20451,508,"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(20451,509,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,510,"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(20451,511,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,512,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,513,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,515,"subs_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(20451,516,"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(20451,517,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,518,"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(20451,519,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,520,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,521,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,523,"subs_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(20451,524,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,525,"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(20451,526,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,527,"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(20451,528,"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(20451,529,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,530,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,532,"subs_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(20451,533,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,534,"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(20451,535,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,536,"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(20451,537,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,538,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,539,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,541,"subs_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(20451,542,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,543,"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(20451,544,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,545,"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(20451,546,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,547,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,548,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,550,"subs_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(20451,551,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,552,"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(20451,553,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,554,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,555,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,557,"subs_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(20451,558,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,559,"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(20451,560,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,561,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,562,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,564,"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(20451,565,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,566,"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(20451,567,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,568,"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(20451,569,"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(20451,570,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,571,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,573,"subs_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(20451,574,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 9 ; if(!qbevent)break;evnt(20451,574,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,575,"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(20451,576,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,577,"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(20451,578,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,581,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,585,"subs_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(20451,586,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,587,"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(20451,588,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,589,"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(20451,590,"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(20451,591,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,592,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,594,"subs_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(20451,595,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,596,"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(20451,597,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,598,"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(20451,599,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,600,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,602,"subs_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(20451,603,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 11 ; if(!qbevent)break;evnt(20451,603,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,604,"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(20451,605,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,606,"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(20451,607,"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(20451,608,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,609,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,610,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,616,"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(20451,617,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,618,"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(20451,619,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,620,"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(20451,621,"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(20451,622,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,623,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,625,"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(20451,626,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,627,"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(20451,628,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,629,"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(20451,630,"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(20451,631,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,632,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,634,"subs_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(20451,635,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,636,"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(20451,637,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,638,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,639,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,641,"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(20451,642,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,643,"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(20451,644,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,645,"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(20451,646,"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(20451,647,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,648,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("FULLSCREEN",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,651,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,652,"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(20451,653,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,654,"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(20451,655,"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(20451,656,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,657,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("ALLOWFULLSCREEN",15))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,660,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,661,"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(20451,662,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,663,"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(20451,664,"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(20451,665,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,666,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,668,"subs_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(20451,669,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,670,"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(20451,671,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,672,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,673,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,675,"subs_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(20451,676,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,677,"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(20451,678,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,679,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,680,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,682,"subs_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(20451,683,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,684,"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(20451,685,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,686,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,687,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,689,"subs_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(20451,690,"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(20451,691,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,692,"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(20451,693,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,694,"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(20451,695,"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(20451,696,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,697,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,699,"subs_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(20451,700,"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(20451,701,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,702,"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(20451,703,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,704,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,705,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,707,"subs_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(20451,708,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 11 ; if(!qbevent)break;evnt(20451,708,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,709,"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(20451,710,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,711,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,712,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,714,"subs_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(20451,715,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 11 ; if(!qbevent)break;evnt(20451,715,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,716,"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(20451,717,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,718,"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(20451,719,"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(20451,720,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,721,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,723,"subs_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(20451,724,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,725,"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(20451,726,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,727,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,728,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,730,"subs_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(20451,731,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 8 ; if(!qbevent)break;evnt(20451,731,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,732,"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(20451,733,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,734,"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(20451,735,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,736,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,737,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,739,"subs_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(20451,740,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,741,"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(20451,742,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,743,"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(20451,744,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,745,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,746,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("CONNECTIONADDRESS",17))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,749,"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(20451,750,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,751,"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(20451,752,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,753,"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(20451,754,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,755,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,756,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,758,"subs_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(20451,759,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,760,"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(20451,761,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,762,"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(20451,763,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,764,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,765,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("OPENCLIENT",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,768,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 8 ; if(!qbevent)break;evnt(20451,768,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,769,"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(20451,770,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,771,"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(20451,772,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,773,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,774,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,777,"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(20451,778,"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(20451,779,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,780,"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(20451,781,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,782,"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(20451,783,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,784,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,785,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,787,"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(20451,788,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,789,"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(20451,790,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,791,"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(20451,792,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,793,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,795,"subs_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(20451,796,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,797,"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(20451,798,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,799,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,800,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("INCLERRORLINE",13))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,803,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,804,"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(20451,805,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,806,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,807,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,809,"subs_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(20451,810,"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(20451,811,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,812,"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(20451,813,"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(20451,814,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,815,"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(20451,816,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,817,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,818,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,820,"subs_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(20451,821,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,822,"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(20451,823,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,824,"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(20451,825,"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(20451,826,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,827,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,829,"subs_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(20451,830,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,831,"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(20451,832,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,833,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,835,"subs_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(20451,836,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,837,"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(20451,838,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,839,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,841,"subs_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(20451,842,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,843,"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(20451,844,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,845,"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(20451,846,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,847,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,849,"subs_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(20451,850,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,851,"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(20451,852,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,853,"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(20451,854,"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(20451,855,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,856,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,858,"subs_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(20451,859,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,860,"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(20451,861,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,862,"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(20451,863,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,864,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,866,"subs_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(20451,867,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 10 ; if(!qbevent)break;evnt(20451,867,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,868,"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(20451,869,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,870,"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(20451,871,"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(20451,872,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,873,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,875,"subs_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(20451,876,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,877,"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(20451,878,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,879,"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(20451,880,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,881,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,883,"subs_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(20451,884,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,885,"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(20451,886,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,887,"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(20451,888,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,889,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,891,"subs_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(20451,892,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,893,"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(20451,894,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,895,"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(20451,896,"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(20451,897,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,898,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,900,"subs_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(20451,901,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,902,"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(20451,903,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,904,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,905,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,907,"subs_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(20451,908,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,909,"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(20451,910,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,911,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,913,"subs_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(20451,914,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,915,"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(20451,916,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,917,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,918,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("DROPPEDFILE",11))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,921,"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(20451,922,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,923,"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(20451,924,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,925,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,926,"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(20451,927,"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(20451,928,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,929,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,931,"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(20451,932,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,933,"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(20451,934,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,935,"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(20451,936,"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(20451,937,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,938,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,942,"subs_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(20451,943,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,944,"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(20451,945,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,946,"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(20451,947,"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(20451,948,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,949,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,950,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,952,"subs_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(20451,953,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 6 ; if(!qbevent)break;evnt(20451,953,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,954,"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(20451,955,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,956,"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(20451,957,"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(20451,958,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,959,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,960,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("FREEIMAGE",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,963,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,964,"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(20451,965,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,966,"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(20451,967,"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(20451,968,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,969,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,971,"subs_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(20451,972,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,973,"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(20451,974,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,975,"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(20451,976,"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(20451,977,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,978,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,979,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,983,"subs_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(20451,984,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,985,"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(20451,986,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,987,"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(20451,988,"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(20451,989,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,990,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,992,"subs_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(20451,993,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,994,"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(20451,995,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,996,"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(20451,997,"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(20451,998,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,999,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1001,"subs_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(20451,1002,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1003,"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(20451,1004,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1005,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1006,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("DEST",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1009,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1010,"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(20451,1011,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1012,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1013,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("DISPLAY",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1016,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1017,"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(20451,1018,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1019,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1020,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1024,"subs_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(20451,1025,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1026,"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(20451,1027,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1028,"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(20451,1029,"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(20451,1030,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1031,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1033,"subs_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(20451,1034,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1035,"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(20451,1036,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1037,"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(20451,1038,"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(20451,1039,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1040,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1042,"subs_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(20451,1043,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1044,"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(20451,1045,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1046,"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(20451,1047,"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(20451,1048,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1049,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1053,"subs_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(20451,1054,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1055,"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(20451,1056,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 10 ; if(!qbevent)break;evnt(20451,1057,"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(20451,1058,"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(20451,1059,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1060,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1062,"subs_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(20451,1063,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1064,"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(20451,1065,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 19 ; if(!qbevent)break;evnt(20451,1066,"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(20451,1067,"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(20451,1068,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1069,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1071,"subs_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(20451,1072,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1073,"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(20451,1074,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1075,"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(20451,1076,"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(20451,1077,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1078,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1080,"subs_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(20451,1081,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1082,"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(20451,1083,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,1084,"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(20451,1085,"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(20451,1086,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1087,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1091,"subs_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(20451,1092,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1093,"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(20451,1094,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1095,"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(20451,1096,"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(20451,1097,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1098,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1099,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1101,"subs_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(20451,1102,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1103,"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(20451,1104,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1105,"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(20451,1106,"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(20451,1107,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1108,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1109,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1111,"subs_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(20451,1112,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1113,"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(20451,1114,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1115,"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(20451,1116,"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(20451,1117,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1118,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1119,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1121,"subs_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(20451,1122,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1123,"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(20451,1124,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1125,"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(20451,1126,"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(20451,1127,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1128,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1129,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1131,"subs_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(20451,1132,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1133,"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(20451,1134,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1135,"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(20451,1136,"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(20451,1137,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1138,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1139,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1141,"subs_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(20451,1142,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1143,"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(20451,1144,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1145,"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(20451,1146,"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(20451,1147,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1148,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1149,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1151,"subs_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(20451,1152,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1153,"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(20451,1154,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1155,"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(20451,1156,"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(20451,1157,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1158,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1159,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1163,"subs_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(20451,1164,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1165,"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(20451,1166,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1167,"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(20451,1168,"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(20451,1169,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1170,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1171,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1173,"subs_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(20451,1174,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1175,"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(20451,1176,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1177,"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(20451,1178,"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(20451,1179,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1180,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1182,"subs_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(20451,1183,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1184,"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(20451,1185,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1186,"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(20451,1187,"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(20451,1188,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1189,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1193,"subs_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(20451,1194,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 1 ; if(!qbevent)break;evnt(20451,1194,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1195,"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(20451,1196,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1197,"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(20451,1198,"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(20451,1199,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1200,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1201,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1203,"subs_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(20451,1204,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1205,"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(20451,1206,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1207,"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(20451,1208,"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(20451,1209,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1210,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("FONTWIDTH",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1213,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1214,"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(20451,1215,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,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(20451,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(20451,1218,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1219,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1220,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1222,"subs_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(20451,1223,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1224,"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(20451,1225,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1226,"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(20451,1227,"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(20451,1228,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1229,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1230,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1232,"subs_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(20451,1233,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1234,"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(20451,1235,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1236,"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(20451,1237,"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(20451,1238,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1239,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1240,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1242,"subs_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(20451,1243,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1244,"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(20451,1245,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,1246,"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(20451,1247,"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(20451,1248,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1249,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1251,"subs_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(20451,1252,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1253,"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(20451,1254,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1255,"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(20451,1256,"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(20451,1257,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1258,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1259,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1261,"subs_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(20451,1262,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1263,"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(20451,1264,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1265,"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(20451,1266,"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(20451,1267,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1268,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1270,"subs_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(20451,1271,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1272,"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(20451,1273,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1274,"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(20451,1275,"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(20451,1276,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1277,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1279,"subs_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(20451,1280,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1281,"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(20451,1282,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1283,"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(20451,1284,"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(20451,1285,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1286,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1287,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("RGBA",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1292,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1293,"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(20451,1294,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,1295,"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(20451,1296,"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(20451,1297,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1298,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1299,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1301,"subs_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(20451,1302,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1303,"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(20451,1304,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,1305,"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(20451,1306,"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(20451,1307,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1308,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1309,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1311,"subs_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(20451,1312,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1313,"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(20451,1314,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1315,"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(20451,1316,"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(20451,1317,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1318,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1319,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1321,"subs_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(20451,1322,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1323,"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(20451,1324,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1325,"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(20451,1326,"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(20451,1327,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1328,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1329,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1331,"subs_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(20451,1332,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1333,"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(20451,1334,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1335,"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(20451,1336,"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(20451,1337,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1338,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1339,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1341,"subs_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(20451,1342,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1343,"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(20451,1344,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1345,"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(20451,1346,"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(20451,1347,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1348,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1349,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1351,"subs_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(20451,1352,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1353,"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(20451,1354,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,1355,"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(20451,1356,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1357,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1358,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1360,"subs_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(20451,1361,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1362,"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(20451,1363,"subs_functions.bas");}while(r); do{ *(int8*)(((char*)__UDT_ID)+(808))= -1 ; if(!qbevent)break;evnt(20451,1364,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(811))= 1 ; if(!qbevent)break;evnt(20451,1365,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,1366,"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(20451,1367,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1368,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1369,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1371,"subs_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(20451,1372,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1373,"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(20451,1374,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1375,"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(20451,1376,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1377,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1378,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1380,"subs_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(20451,1381,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1382,"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(20451,1383,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1384,"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(20451,1385,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1386,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1387,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1389,"subs_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(20451,1390,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1391,"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(20451,1392,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1393,"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(20451,1394,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1395,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1396,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1398,"subs_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(20451,1399,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1400,"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(20451,1401,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1402,"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(20451,1403,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1404,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1405,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1408,"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(20451,1409,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1410,"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(20451,1411,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1412,"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(20451,1413,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1414,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1416,"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(20451,1417,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1417,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1418,"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(20451,1419,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1420,"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(20451,1421,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1422,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1424,"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(20451,1425,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1425,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1426,"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(20451,1427,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1428,"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(20451,1429,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1430,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1431,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1434,"subs_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(20451,1435,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1436,"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(20451,1437,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1438,"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(20451,1439,"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(20451,1440,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1441,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("MOUSEHIDE",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1444,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1445,"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(20451,1446,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1447,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1449,"subs_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(20451,1450,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1451,"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(20451,1452,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1453,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1454,"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(20451,1455,"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(20451,1456,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1457,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1459,"subs_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(20451,1460,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1461,"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(20451,1462,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1463,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1464,"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(20451,1465,"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(20451,1466,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1467,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1469,"subs_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(20451,1470,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1471,"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(20451,1472,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1473,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1474,"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(20451,1475,"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(20451,1476,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1477,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1479,"subs_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(20451,1480,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1481,"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(20451,1482,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1483,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1484,"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(20451,1485,"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(20451,1486,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1487,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1489,"subs_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(20451,1490,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1491,"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(20451,1492,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1493,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1494,"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(20451,1495,"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(20451,1496,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1497,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1499,"subs_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(20451,1500,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1501,"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(20451,1502,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1503,"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(20451,1504,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1505,"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(20451,1506,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1507,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1509,"subs_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(20451,1510,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1511,"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(20451,1512,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1513,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1514,"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(20451,1515,"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(20451,1516,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1517,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("MOUSEPIPEOPEN",13))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1521,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1522,"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(20451,1523,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1524,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1525,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1527,"subs_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(20451,1528,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1529,"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(20451,1530,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1531,"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(20451,1532,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1533,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1535,"subs_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(20451,1536,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1537,"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(20451,1538,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1539,"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(20451,1540,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1541,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1543,"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(20451,1544,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1545,"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(20451,1546,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1547,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1548,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1550,"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(20451,1551,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1552,"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(20451,1553,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1554,"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(20451,1555,"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(20451,1556,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1557,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1559,"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(20451,1560,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1561,"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(20451,1562,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1563,"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(20451,1564,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1565,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1567,"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(20451,1568,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1569,"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(20451,1570,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1571,"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(20451,1572,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1573,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1575,"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(20451,1576,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1577,"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(20451,1578,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1579,"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(20451,1580,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1581,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1583,"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(20451,1584,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1585,"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(20451,1586,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1587,"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(20451,1588,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1589,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1591,"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(20451,1592,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1593,"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(20451,1594,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1595,"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(20451,1596,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1597,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1599,"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(20451,1600,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1601,"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(20451,1602,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1603,"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(20451,1604,"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(20451,1605,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1607,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1609,"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(20451,1610,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1611,"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(20451,1612,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1613,"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(20451,1614,"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(20451,1615,"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(20451,1616,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1617,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1619,"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(20451,1620,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1621,"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(20451,1622,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1623,"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(20451,1624,"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(20451,1625,"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(20451,1626,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1627,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1629,"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(20451,1630,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1631,"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(20451,1632,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1633,"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(20451,1634,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1635,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1636,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1638,"subs_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(20451,1639,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1640,"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(20451,1641,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1642,"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(20451,1643,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1644,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1645,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1647,"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(20451,1648,"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(20451,1649,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1650,"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(20451,1651,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1652,"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(20451,1653,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1654,"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(20451,1655,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1656,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1658,"subs_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(20451,1659,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1660,"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(20451,1661,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1662,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1663,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1668,"subs_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(20451,1669,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1669,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1670,"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(20451,1671,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1672,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1673,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1675,"subs_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(20451,1676,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1676,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1677,"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(20451,1678,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1679,"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(20451,1680,"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(20451,1681,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1682,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1684,"subs_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(20451,1685,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1685,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1686,"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(20451,1687,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1688,"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(20451,1689,"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(20451,1690,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1691,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("SNDOPENRAW",10))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1694,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1694,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1695,"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(20451,1696,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1697,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1698,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1700,"subs_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(20451,1701,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1701,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1702,"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(20451,1703,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1704,"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(20451,1705,"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(20451,1706,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1707,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1708,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1710,"subs_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(20451,1711,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1711,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1712,"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(20451,1713,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1714,"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(20451,1715,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1716,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1717,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1719,"subs_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(20451,1720,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1720,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1721,"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(20451,1722,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1723,"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(20451,1724,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1725,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1726,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1728,"subs_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(20451,1729,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 3 ; if(!qbevent)break;evnt(20451,1729,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1730,"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(20451,1731,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1732,"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(20451,1733,"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(20451,1734,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1735,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1737,"subs_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(20451,1738,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1738,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1739,"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(20451,1740,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1741,"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(20451,1742,"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(20451,1743,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1744,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1746,"subs_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(20451,1747,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1747,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1748,"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(20451,1749,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1750,"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(20451,1751,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1752,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1754,"subs_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(20451,1755,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1755,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1756,"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(20451,1757,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1758,"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(20451,1759,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1760,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1762,"subs_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(20451,1763,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1763,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1764,"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(20451,1765,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1766,"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(20451,1767,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1768,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1770,"subs_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(20451,1771,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 3 ; if(!qbevent)break;evnt(20451,1771,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1772,"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(20451,1773,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1774,"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(20451,1775,"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(20451,1776,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1777,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1778,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1780,"subs_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(20451,1781,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1781,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1782,"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(20451,1783,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1784,"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(20451,1785,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1786,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1788,"subs_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(20451,1789,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1789,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1790,"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(20451,1791,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1792,"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(20451,1793,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1794,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1795,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1797,"subs_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(20451,1798,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1798,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1799,"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(20451,1800,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1801,"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(20451,1802,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1803,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1804,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1806,"subs_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(20451,1807,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1807,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1808,"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(20451,1809,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1810,"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(20451,1811,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1812,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1814,"subs_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(20451,1815,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1815,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1816,"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(20451,1817,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,1818,"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(20451,1819,"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(20451,1820,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1821,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1824,"subs_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(20451,1825,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1825,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1826,"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(20451,1827,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1828,"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(20451,1829,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1830,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1832,"subs_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(20451,1833,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1833,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1834,"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(20451,1835,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1836,"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(20451,1837,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1838,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("SNDCOPY",7))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,1841,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1841,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1842,"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(20451,1843,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1844,"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(20451,1845,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1846,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1847,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1849,"subs_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(20451,1850,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,1850,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1851,"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(20451,1852,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1853,"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(20451,1854,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1855,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1857,"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(20451,1858,"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(20451,1859,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1860,"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(20451,1861,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1862,"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(20451,1863,"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(20451,1864,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1865,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1866,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1868,"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(20451,1869,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1870,"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(20451,1871,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1872,"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(20451,1873,"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(20451,1874,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1875,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1877,"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(20451,1878,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1879,"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(20451,1880,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1881,"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(20451,1882,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1883,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1884,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1886,"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(20451,1887,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1888,"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(20451,1889,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1890,"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(20451,1891,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1892,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1893,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1895,"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(20451,1896,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1897,"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(20451,1898,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1899,"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(20451,1900,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1901,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1902,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1904,"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(20451,1905,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1906,"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(20451,1907,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1908,"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(20451,1909,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1910,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1911,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1914,"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(20451,1915,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1916,"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(20451,1917,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1918,"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(20451,1919,"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(20451,1920,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1921,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1922,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1924,"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(20451,1925,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1926,"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(20451,1927,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1928,"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(20451,1929,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1930,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1931,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1934,"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(20451,1935,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1936,"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(20451,1937,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,1938,"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(20451,1939,"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(20451,1940,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1941,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1942,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1945,"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(20451,1946,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1947,"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(20451,1948,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1949,"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(20451,1950,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1951,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1952,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1954,"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(20451,1955,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1956,"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(20451,1957,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1958,"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(20451,1959,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1960,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1961,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1964,"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(20451,1965,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,1966,"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(20451,1967,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,1968,"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(20451,1969,"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(20451,1970,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1971,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1973,"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(20451,1974,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1975,"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(20451,1976,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1977,"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(20451,1978,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1979,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1980,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1982,"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(20451,1983,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1984,"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(20451,1985,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1986,"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(20451,1987,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1988,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1989,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,1991,"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(20451,1992,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,1993,"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(20451,1994,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,1995,"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(20451,1996,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,1997,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,1998,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2000,"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(20451,2001,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2002,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2003,"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(20451,2004,"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(20451,2005,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2006,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2007,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2009,"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(20451,2010,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2011,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2012,"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(20451,2013,"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(20451,2014,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2015,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2016,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2018,"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(20451,2019,"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(20451,2020,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2021,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2022,"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(20451,2023,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2024,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2025,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2027,"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(20451,2028,"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(20451,2029,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2030,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2031,"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(20451,2032,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2033,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2034,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2036,"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(20451,2037,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2038,"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(20451,2039,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2040,"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(20451,2041,"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(20451,2042,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2043,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2045,"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(20451,2046,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2047,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2048,"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(20451,2049,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))= -1 ; if(!qbevent)break;evnt(20451,2050,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2051,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2053,"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(20451,2054,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2055,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2056,"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(20451,2057,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))= -1 ; if(!qbevent)break;evnt(20451,2058,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2059,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2061,"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(20451,2062,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2063,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2064,"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(20451,2065,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))= -1 ; if(!qbevent)break;evnt(20451,2066,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2067,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2069,"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(20451,2070,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2071,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2072,"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(20451,2073,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2074,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2075,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2077,"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(20451,2078,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2079,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2080,"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(20451,2081,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2082,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2083,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2085,"subs_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(20451,2086,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2087,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2088,"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(20451,2089,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2090,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2091,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2093,"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(20451,2094,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2095,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2096,"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(20451,2097,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2098,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2099,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2101,"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(20451,2102,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2103,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2104,"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(20451,2105,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2106,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2107,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2111,"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(20451,2112,"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(20451,2113,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2114,"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(20451,2115,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2116,"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(20451,2117,"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(20451,2118,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2119,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2121,"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(20451,2122,"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(20451,2123,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2124,"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(20451,2125,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2126,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2127,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2131,"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(20451,2132,"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(20451,2133,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2134,"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(20451,2135,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2136,"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(20451,2137,"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(20451,2138,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2139,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2141,"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(20451,2142,"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(20451,2143,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2144,"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(20451,2145,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2146,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2147,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2149,"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(20451,2150,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2151,"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(20451,2152,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2153,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2154,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2157,"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(20451,2158,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2159,"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(20451,2160,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2161,"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(20451,2162,"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(20451,2163,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2165,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2167,"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(20451,2168,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2169,"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(20451,2170,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 7 ; if(!qbevent)break;evnt(20451,2171,"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(20451,2172,"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(20451,2173,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2175,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2177,"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(20451,2178,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2179,"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(20451,2180,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2181,"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(20451,2182,"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(20451,2183,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2184,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2186,"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(20451,2187,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2188,"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(20451,2189,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2190,"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(20451,2191,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2192,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2194,"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(20451,2195,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2196,"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(20451,2197,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2198,"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(20451,2199,"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(20451,2201,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2202,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2204,"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(20451,2205,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2206,"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(20451,2207,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2208,"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(20451,2209,"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(20451,2211,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2212,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2215,"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(20451,2216,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2217,"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(20451,2218,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 6 ; if(!qbevent)break;evnt(20451,2219,"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(20451,2220,"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(20451,2221,"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(20451,2222,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2223,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2225,"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(20451,2226,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2227,"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(20451,2228,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 6 ; if(!qbevent)break;evnt(20451,2229,"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(20451,2230,"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(20451,2231,"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(20451,2232,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2233,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2236,"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(20451,2237,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2238,"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(20451,2239,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2240,"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(20451,2241,"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(20451,2242,"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(20451,2245,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2246,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2247,"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(20451,2248,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2249,"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(20451,2250,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2251,"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(20451,2252,"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(20451,2253,"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(20451,2256,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2257,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2259,"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(20451,2260,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2261,"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(20451,2262,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,2263,"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(20451,2264,"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(20451,2265,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2266,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2267,"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(20451,2268,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2269,"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(20451,2270,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 6 ; if(!qbevent)break;evnt(20451,2271,"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(20451,2272,"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(20451,2273,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2274,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2276,"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(20451,2277,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2278,"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(20451,2279,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2280,"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(20451,2281,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2282,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2283,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2285,"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(20451,2286,"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(20451,2287,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2288,"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(20451,2289,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2290,"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(20451,2291,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2292,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2293,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2294,"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(20451,2295,"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(20451,2296,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2297,"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(20451,2298,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2299,"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(20451,2300,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2301,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2302,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2304,"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(20451,2305,"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(20451,2306,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2307,"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(20451,2308,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2309,"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(20451,2310,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2311,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2312,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2313,"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(20451,2314,"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(20451,2315,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2316,"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(20451,2317,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2318,"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(20451,2319,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2320,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2321,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2322,"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(20451,2323,"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(20451,2324,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2325,"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(20451,2326,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2327,"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(20451,2328,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2329,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2330,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2331,"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(20451,2332,"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(20451,2333,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2334,"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(20451,2335,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2336,"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(20451,2337,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2338,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2339,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2340,"subs_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(20451,2341,"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(20451,2342,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2343,"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(20451,2344,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2345,"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(20451,2346,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2347,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2348,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2350,"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(20451,2351,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2352,"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(20451,2353,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2354,"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(20451,2355,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2356,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2357,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2358,"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(20451,2359,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2360,"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(20451,2361,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2362,"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(20451,2363,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2364,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2365,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2367,"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(20451,2368,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2369,"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(20451,2370,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,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(20451,2372,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2373,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2374,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2375,"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(20451,2376,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2377,"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(20451,2378,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2379,"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(20451,2380,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2381,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2382,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2383,"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(20451,2384,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2385,"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(20451,2386,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2387,"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(20451,2388,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2389,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2390,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2391,"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(20451,2392,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2393,"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(20451,2394,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2395,"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(20451,2396,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2397,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2398,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2399,"subs_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(20451,2400,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2401,"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(20451,2402,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2403,"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(20451,2404,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))= -1 ; if(!qbevent)break;evnt(20451,2405,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2406,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2408,"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(20451,2409,"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(20451,2410,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2411,"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(20451,2412,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2413,"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(20451,2414,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2415,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2416,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2418,"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(20451,2419,"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(20451,2420,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2421,"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(20451,2422,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2423,"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(20451,2424,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2425,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2426,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2428,"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(20451,2429,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2430,"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(20451,2431,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2432,"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(20451,2433,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2434,"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(20451,2435,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2436,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2438,"subs_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(20451,2439,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2440,"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(20451,2441,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2442,"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(20451,2443,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2444,"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(20451,2445,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2446,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2448,"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(20451,2449,"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(20451,2450,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2451,"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(20451,2452,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,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(20451,2454,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2455,"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(20451,2456,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2457,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2459,"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(20451,2460,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2461,"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(20451,2462,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2463,"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(20451,2464,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2465,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2466,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2468,"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(20451,2469,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2470,"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(20451,2471,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2472,"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(20451,2473,"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(20451,2474,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2475,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2477,"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(20451,2478,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2479,"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(20451,2480,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2481,"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(20451,2482,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2483,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2484,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2486,"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(20451,2487,"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(20451,2488,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2489,"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(20451,2490,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2491,"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(20451,2492,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2493,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2494,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2496,"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(20451,2497,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2498,"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(20451,2499,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2500,"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(20451,2501,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2502,"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(20451,2503,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2504,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2506,"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(20451,2507,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2508,"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(20451,2509,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2510,"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(20451,2511,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2512,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2513,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2515,"subs_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(20451,2516,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2517,"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(20451,2518,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2519,"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(20451,2520,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2521,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2522,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2524,"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(20451,2525,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2526,"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(20451,2527,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2528,"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(20451,2529,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2530,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2531,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2533,"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(20451,2534,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2535,"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(20451,2536,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2537,"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(20451,2538,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2539,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2541,"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(20451,2542,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2543,"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(20451,2544,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2545,"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(20451,2546,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2547,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2548,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2550,"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(20451,2551,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2552,"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(20451,2553,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2554,"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(20451,2555,"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(20451,2556,"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(20451,2557,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2558,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2560,"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(20451,2561,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2562,"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(20451,2563,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2564,"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(20451,2565,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2566,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2567,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2569,"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(20451,2570,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2571,"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(20451,2572,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2573,"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(20451,2574,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2575,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2576,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2578,"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(20451,2579,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2580,"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(20451,2581,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2582,"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(20451,2583,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2584,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2585,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2587,"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(20451,2588,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2589,"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(20451,2590,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2591,"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(20451,2592,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2593,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2594,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2596,"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(20451,2597,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2598,"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(20451,2599,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2600,"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(20451,2601,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2602,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2603,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2605,"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(20451,2606,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2607,"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(20451,2608,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2609,"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(20451,2610,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2611,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2612,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2614,"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(20451,2615,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2616,"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(20451,2617,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,2618,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2619,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2620,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2622,"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(20451,2623,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2624,"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(20451,2625,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,2626,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2627,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2628,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2630,"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(20451,2631,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2632,"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(20451,2633,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2634,"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(20451,2635,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2636,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2638,"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(20451,2639,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2640,"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(20451,2641,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 7 ; if(!qbevent)break;evnt(20451,2642,"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(20451,2643,"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(20451,2644,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2645,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2647,"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(20451,2648,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,2648,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2649,"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(20451,2650,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2651,"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(20451,2652,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2653,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2655,"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(20451,2656,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 4 ; if(!qbevent)break;evnt(20451,2656,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2657,"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(20451,2658,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,2659,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2660,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2662,"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(20451,2663,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2664,"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(20451,2665,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2666,"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(20451,2667,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2668,"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(20451,2669,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2670,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2672,"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(20451,2673,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2674,"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(20451,2675,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2676,"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(20451,2677,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2678,"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(20451,2679,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2680,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2682,"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(20451,2683,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2684,"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(20451,2685,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2686,"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(20451,2687,"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(20451,2688,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2689,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2691,"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(20451,2692,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2693,"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(20451,2694,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2695,"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(20451,2696,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2697,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2699,"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(20451,2700,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2701,"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(20451,2702,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2703,"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(20451,2704,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2705,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2707,"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(20451,2708,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2709,"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(20451,2710,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 6 ; if(!qbevent)break;evnt(20451,2711,"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(20451,2712,"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(20451,2713,"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(20451,2714,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2715,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2717,"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(20451,2718,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2719,"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(20451,2720,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2721,"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(20451,2722,"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(20451,2723,"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(20451,2724,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2725,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2727,"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(20451,2728,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2729,"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(20451,2730,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(20451,2731,"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(20451,2732,"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(20451,2733,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2734,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2736,"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(20451,2737,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2738,"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(20451,2739,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2740,"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(20451,2741,"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(20451,2742,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2743,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2745,"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(20451,2746,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2747,"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(20451,2748,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2749,"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(20451,2750,"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(20451,2751,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2752,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2754,"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(20451,2755,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2756,"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(20451,2757,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2758,"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(20451,2759,"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(20451,2760,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2761,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2763,"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(20451,2764,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2765,"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(20451,2766,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2767,"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(20451,2768,"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(20451,2769,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2771,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2774,"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(20451,2775,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2776,"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(20451,2777,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 5 ; if(!qbevent)break;evnt(20451,2778,"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(20451,2779,"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(20451,2783,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2784,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2786,"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(20451,2787,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2788,"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(20451,2789,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2790,"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(20451,2791,"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(20451,2792,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2793,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2795,"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(20451,2796,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2797,"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(20451,2798,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 3 ; if(!qbevent)break;evnt(20451,2799,"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(20451,2800,"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(20451,2801,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2802,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2804,"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(20451,2805,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2806,"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(20451,2807,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2808,"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(20451,2809,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2810,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2811,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2813,"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(20451,2814,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2815,"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(20451,2816,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2817,"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(20451,2818,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2819,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2820,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2822,"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(20451,2823,"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(20451,2824,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2825,"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(20451,2826,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2827,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2828,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2830,"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(20451,2831,"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(20451,2832,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2833,"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(20451,2834,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2835,"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(20451,2836,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2837,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2838,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2840,"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(20451,2841,"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(20451,2842,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2843,"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(20451,2844,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2845,"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(20451,2846,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2847,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2848,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2850,"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(20451,2851,"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(20451,2852,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2853,"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(20451,2854,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2855,"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(20451,2856,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2857,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2858,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2860,"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(20451,2861,"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(20451,2862,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2863,"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(20451,2864,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2865,"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(20451,2866,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2867,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2868,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2870,"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(20451,2871,"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(20451,2872,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2873,"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(20451,2874,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,2875,"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(20451,2876,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2877,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2878,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2880,"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(20451,2881,"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(20451,2882,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2883,"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(20451,2884,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2885,"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(20451,2886,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2887,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2888,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2890,"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(20451,2891,"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(20451,2892,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2893,"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(20451,2894,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2895,"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(20451,2896,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2897,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2898,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2900,"subs_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(20451,2901,"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(20451,2902,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2903,"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(20451,2904,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2905,"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(20451,2906,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2907,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2908,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2910,"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(20451,2911,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2912,"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(20451,2913,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2914,"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(20451,2915,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2916,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2918,"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(20451,2919,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 9 ; if(!qbevent)break;evnt(20451,2919,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2920,"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(20451,2921,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2922,"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(20451,2923,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2924,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2926,"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(20451,2927,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 9 ; if(!qbevent)break;evnt(20451,2927,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2928,"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(20451,2929,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2930,"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(20451,2931,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2932,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2933,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2936,"subs_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(20451,2937,"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(20451,2938,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2939,"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(20451,2940,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2941,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2942,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2945,"subs_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(20451,2946,"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(20451,2947,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2948,"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(20451,2949,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2950,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2951,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2954,"subs_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(20451,2955,"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(20451,2956,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2957,"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(20451,2958,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2959,"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(20451,2960,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2961,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2962,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2965,"subs_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(20451,2966,"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(20451,2967,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2968,"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(20451,2969,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2970,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2971,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2973,"subs_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(20451,2974,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,2975,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2976,"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(20451,2977,"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(20451,2978,"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(20451,2979,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2980,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2982,"subs_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(20451,2983,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2984,"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(20451,2985,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2986,"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(20451,2987,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2988,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2989,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,2991,"subs_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(20451,2992,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,2993,"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(20451,2994,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,2995,"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(20451,2996,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,2997,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,2998,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3000,"subs_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(20451,3001,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3002,"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(20451,3003,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3004,"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(20451,3005,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3006,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3007,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3009,"subs_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(20451,3010,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3011,"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(20451,3012,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3013,"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(20451,3014,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3015,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3016,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3018,"subs_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(20451,3019,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3020,"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(20451,3021,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3022,"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(20451,3023,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3024,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3025,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3027,"subs_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(20451,3028,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3029,"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(20451,3030,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3031,"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(20451,3032,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3033,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3034,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3036,"subs_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(20451,3037,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3038,"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(20451,3039,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3040,"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(20451,3041,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3042,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3043,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3045,"subs_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(20451,3046,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3047,"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(20451,3048,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3049,"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(20451,3050,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3051,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3052,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3054,"subs_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(20451,3055,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3056,"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(20451,3057,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3058,"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(20451,3059,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3060,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3061,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3063,"subs_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(20451,3064,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3065,"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(20451,3066,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3067,"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(20451,3068,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3069,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3070,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3072,"subs_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(20451,3073,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3074,"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(20451,3075,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3076,"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(20451,3077,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3078,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3079,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3081,"subs_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(20451,3082,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3083,"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(20451,3084,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3085,"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(20451,3086,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3087,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3088,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3090,"subs_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(20451,3091,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3092,"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(20451,3093,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3094,"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(20451,3095,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3096,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3097,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3099,"subs_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(20451,3100,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3101,"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(20451,3102,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3103,"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(20451,3104,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3105,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3106,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3108,"subs_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(20451,3109,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3110,"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(20451,3111,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3112,"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(20451,3113,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3114,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3115,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3117,"subs_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(20451,3118,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3119,"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(20451,3120,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3121,"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(20451,3122,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3123,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3124,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3126,"subs_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(20451,3127,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3128,"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(20451,3129,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3130,"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(20451,3131,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3132,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3133,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3135,"subs_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(20451,3136,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3137,"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(20451,3138,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3139,"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(20451,3140,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3141,"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(20451,3142,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3143,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3145,"subs_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(20451,3146,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3147,"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(20451,3148,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3149,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3150,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3151,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3153,"subs_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(20451,3154,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3155,"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(20451,3156,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3157,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3158,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3159,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3161,"subs_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(20451,3162,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3163,"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(20451,3164,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3165,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3167,"subs_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(20451,3168,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3169,"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(20451,3170,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3171,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3173,"subs_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(20451,3174,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3175,"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(20451,3176,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3177,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3178,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3179,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3181,"subs_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(20451,3182,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3183,"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(20451,3184,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3185,"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(20451,3186,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3187,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3188,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3190,"subs_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(20451,3191,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3192,"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(20451,3193,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3194,"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(20451,3195,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3196,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3197,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3199,"subs_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(20451,3200,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3201,"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(20451,3202,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3203,"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(20451,3204,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3205,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3206,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3208,"subs_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(20451,3209,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3210,"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(20451,3211,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3212,"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(20451,3213,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3214,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3215,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3217,"subs_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(20451,3218,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3219,"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(20451,3220,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3221,"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(20451,3222,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3223,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3224,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3226,"subs_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(20451,3227,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3228,"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(20451,3229,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3230,"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(20451,3231,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3232,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3233,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3235,"subs_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(20451,3236,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3237,"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(20451,3238,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3239,"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(20451,3240,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3241,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3242,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3244,"subs_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(20451,3245,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3246,"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(20451,3247,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3248,"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(20451,3249,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3250,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3251,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3253,"subs_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(20451,3254,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3255,"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(20451,3256,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3257,"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(20451,3258,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3259,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3260,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3262,"subs_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(20451,3263,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3264,"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(20451,3265,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3266,"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(20451,3267,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3268,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3269,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3271,"subs_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(20451,3272,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3273,"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(20451,3274,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3275,"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(20451,3276,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3277,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3278,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3280,"subs_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(20451,3281,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3282,"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(20451,3283,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3284,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3285,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3286,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3288,"subs_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(20451,3289,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3290,"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(20451,3291,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3292,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3293,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3294,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3296,"subs_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(20451,3297,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3298,"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(20451,3299,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3300,"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(20451,3301,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3302,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3303,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3305,"subs_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(20451,3306,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3307,"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(20451,3308,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3309,"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(20451,3310,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3311,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3312,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3314,"subs_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(20451,3315,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 13 ; if(!qbevent)break;evnt(20451,3316,"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(20451,3317,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3318,"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(20451,3319,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3320,"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(20451,3321,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3322,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3323,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3325,"subs_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(20451,3326,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(546))= 13 ; if(!qbevent)break;evnt(20451,3327,"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(20451,3328,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3329,"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(20451,3330,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3331,"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(20451,3332,"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(20451,3333,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3334,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3335,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3337,"subs_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(20451,3338,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3339,"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(20451,3340,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3341,"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(20451,3342,"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(20451,3343,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3344,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3345,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3347,"subs_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(20451,3348,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3349,"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(20451,3350,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3351,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3352,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3353,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3355,"subs_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(20451,3356,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3357,"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(20451,3358,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3359,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3360,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3361,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3363,"subs_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(20451,3364,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3365,"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(20451,3366,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3367,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3368,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3369,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3371,"subs_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(20451,3372,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3373,"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(20451,3374,"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(20451,3375,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3376,"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(20451,3377,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3378,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3380,"subs_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(20451,3381,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3382,"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(20451,3383,"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(20451,3384,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3385,"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(20451,3386,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3387,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3389,"subs_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(20451,3390,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3391,"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(20451,3392,"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(20451,3393,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 1 ; if(!qbevent)break;evnt(20451,3394,"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(20451,3395,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3396,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3398,"subs_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(20451,3399,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3400,"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(20451,3401,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3402,"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(20451,3403,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3404,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3406,"subs_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(20451,3407,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(20451,3408,"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(20451,3409,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3410,"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(20451,3411,"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(20451,3412,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3413,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3415,"subs_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(20451,3416,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3417,"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(20451,3418,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 0 ; if(!qbevent)break;evnt(20451,3419,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3420,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3421,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3423,"subs_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(20451,3424,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3425,"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(20451,3426,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3427,"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(20451,3428,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3429,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3430,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,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("SETBIT",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20451,3433,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3434,"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(20451,3435,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3436,"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(20451,3437,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3438,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3439,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3441,"subs_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(20451,3442,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3443,"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(20451,3444,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3445,"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(20451,3446,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3447,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3448,"subs_functions.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(20451,3450,"subs_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(20451,3451,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; if(!qbevent)break;evnt(20451,3452,"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(20451,3453,"subs_functions.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 2 ; if(!qbevent)break;evnt(20451,3454,"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(20451,3455,"subs_functions.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20451,3456,"subs_functions.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(20451,3457,"subs_functions.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; if(!qbevent)break;evnt(20452);}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_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 "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{ qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20479);}while(r); do{ *_SUB_REMOVEELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_REMOVEELEMENTS_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20484);}while(r); S_27018:; fornext_value2866= 1 ; fornext_finalvalue2866=*_SUB_REMOVEELEMENTS_LONG_N; fornext_step2866= 1 ; if (fornext_step2866<0) fornext_step_negative2866=1; else fornext_step_negative2866=0; if (new_error) goto fornext_error2866; goto fornext_entrylabel2866; while(1){ fornext_value2866=fornext_step2866+(*_SUB_REMOVEELEMENTS_LONG_I); fornext_entrylabel2866: *_SUB_REMOVEELEMENTS_LONG_I=fornext_value2866; if (fornext_step_negative2866){ if (fornext_value2866fornext_finalvalue2866) break; } fornext_error2866:; if(qbevent){evnt(20485);if(r)goto S_27018;} S_27019:; if (((-(*_SUB_REMOVEELEMENTS_LONG_I<*_SUB_REMOVEELEMENTS_LONG_FIRST))|(-(*_SUB_REMOVEELEMENTS_LONG_I>*_SUB_REMOVEELEMENTS_LONG_LAST)))||new_error){ if(qbevent){evnt(20486);if(r)goto S_27019;} 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(20487);}while(r); }else{ S_27022:; if ((*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING)||new_error){ if(qbevent){evnt(20489);if(r)goto S_27022;} 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(20489);}while(r); } } fornext_continue_2865:; } fornext_exit_2865:; S_27027:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_REMOVEELEMENTS_STRING_A2, 1 ),__STRING1_SP)))||new_error){ if(qbevent){evnt(20492);if(r)goto S_27027;} 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(20492);}while(r); } do{ qbs_set(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20494);}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_27031:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||new_error){ if(qbevent){evnt(20503);if(r)goto S_27031;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20503);}while(r); } do{ *_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20505);}while(r); do{ *_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20506);}while(r); S_27036:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ if(qbevent){evnt(20507);if(r)goto S_27036;} S_27037:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20508);if(r)goto S_27037;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ; if(!qbevent)break;evnt(20508);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20508);}while(r); } S_27041:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ if(qbevent){evnt(20509);if(r)goto S_27041;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20509);}while(r); } S_27044:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||new_error){ if(qbevent){evnt(20510);if(r)goto S_27044;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ; if(!qbevent)break;evnt(20510);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20510);}while(r); } S_27048:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ if(qbevent){evnt(20511);if(r)goto S_27048;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20511);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20511);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20512);}while(r); } S_27054:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ if(qbevent){evnt(20514);if(r)goto S_27054;} S_27055:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20515);if(r)goto S_27055;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ; if(!qbevent)break;evnt(20515);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20515);}while(r); } S_27059:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ if(qbevent){evnt(20516);if(r)goto S_27059;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20516);}while(r); } S_27062:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ if(qbevent){evnt(20517);if(r)goto S_27062;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ; if(!qbevent)break;evnt(20517);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20517);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20518);}while(r); } S_27068:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||new_error){ if(qbevent){evnt(20520);if(r)goto S_27068;} S_27069:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20521);if(r)goto S_27069;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(20521);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20521);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20522);}while(r); } S_27075:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||new_error){ if(qbevent){evnt(20524);if(r)goto S_27075;} S_27076:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20525);if(r)goto S_27076;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(20525);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20525);}while(r); } S_27080:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ if(qbevent){evnt(20526);if(r)goto S_27080;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20526);}while(r); } S_27083:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||new_error){ if(qbevent){evnt(20527);if(r)goto S_27083;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; if(!qbevent)break;evnt(20527);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20527);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20528);}while(r); } S_27089:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||new_error){ if(qbevent){evnt(20530);if(r)goto S_27089;} S_27090:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20531);if(r)goto S_27090;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING; if(!qbevent)break;evnt(20531);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20531);}while(r); } S_27094:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ if(qbevent){evnt(20532);if(r)goto S_27094;} S_27095:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||new_error){ if(qbevent){evnt(20533);if(r)goto S_27095;} S_27096:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||new_error){ if(qbevent){evnt(20534);if(r)goto S_27096;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20534);}while(r); } S_27099:; if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||new_error){ if(qbevent){evnt(20535);if(r)goto S_27099;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20535);}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(20537);}while(r); do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(20538);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20539);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20541);}while(r); } S_27109:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ if(qbevent){evnt(20543);if(r)goto S_27109;} S_27110:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20544);if(r)goto S_27110;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(20544);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20544);}while(r); } S_27114:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ if(qbevent){evnt(20545);if(r)goto S_27114;} S_27115:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ if(qbevent){evnt(20546);if(r)goto S_27115;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20546);}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(20547);}while(r); S_27119:; if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 56 ))||new_error){ if(qbevent){evnt(20548);if(r)goto S_27119;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20548);}while(r); } do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(20549);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20549);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20551);}while(r); } S_27127:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||new_error){ if(qbevent){evnt(20553);if(r)goto S_27127;} S_27128:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ if(qbevent){evnt(20554);if(r)goto S_27128;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20554);}while(r); } do{ *_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 ); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20555);}while(r); S_27132:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ if(qbevent){evnt(20556);if(r)goto S_27132;} S_27133:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ if(qbevent){evnt(20557);if(r)goto S_27133;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20557);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20557);}while(r); } S_27137:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ if(qbevent){evnt(20558);if(r)goto S_27137;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20558);}while(r); } S_27140:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||new_error){ if(qbevent){evnt(20559);if(r)goto S_27140;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20559);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20559);}while(r); } S_27144:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ if(qbevent){evnt(20560);if(r)goto S_27144;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(20560);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20560);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20561);}while(r); } S_27150:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ if(qbevent){evnt(20563);if(r)goto S_27150;} S_27151:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ if(qbevent){evnt(20564);if(r)goto S_27151;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20564);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20564);}while(r); } S_27155:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ if(qbevent){evnt(20565);if(r)goto S_27155;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20565);}while(r); } S_27158:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ if(qbevent){evnt(20566);if(r)goto S_27158;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20566);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20566);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20567);}while(r); } S_27164:; if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ if(qbevent){evnt(20569);if(r)goto S_27164;} S_27165:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ if(qbevent){evnt(20570);if(r)goto S_27165;} do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20570);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20570);}while(r); } S_27169:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||new_error){ if(qbevent){evnt(20571);if(r)goto S_27169;} S_27170:; if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||new_error){ if(qbevent){evnt(20572);if(r)goto S_27170;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20572);}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(20573);}while(r); S_27174:; if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 56 ))||new_error){ if(qbevent){evnt(20574);if(r)goto S_27174;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20574);}while(r); } do{ *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(20575);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20575);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20577);}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(20583);}while(r); S_27184:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20583);if(r)goto S_27184;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20583);}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(20584);}while(r); S_27188:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20584);if(r)goto S_27188;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20584);}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(20585);}while(r); S_27192:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20585);if(r)goto S_27192;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20585);}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(20586);}while(r); S_27196:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20586);if(r)goto S_27196;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20586);}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(20587);}while(r); S_27200:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20587);if(r)goto S_27200;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20587);}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(20588);}while(r); S_27204:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20588);if(r)goto S_27204;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20588);}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(20589);}while(r); S_27208:; if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ if(qbevent){evnt(20589);if(r)goto S_27208;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(20589);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(20590);}while(r); LABEL_FOUNDSYMBOL:; if(qbevent){evnt(20591);r=0;} S_27212:; if ((-(*_FUNC_REMOVESYMBOL_LONG_I== 1 ))||new_error){ if(qbevent){evnt(20592);if(r)goto S_27212;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name before symbol",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20592);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20592);}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(20593);}while(r); S_27217:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_REMOVESYMBOL_STRING_SYMBOL)== 0 )))||new_error){ if(qbevent){evnt(20594);if(r)goto S_27217;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20594);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20594);}while(r); } do{ qbs_set(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL,_FUNC_REMOVESYMBOL_STRING_SYMBOL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20595);}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(20596);}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_27223:; if ((*(int16*)(((char*)__UDT_ID)+(2645)))||new_error){ if(qbevent){evnt(20600);if(r)goto S_27223;} 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(20600);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(20600);}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(20601);}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(20605);}while(r); S_27229:; fornext_value2876= 1 ; fornext_finalvalue2876=*__LONG_OPTMAX; fornext_step2876= 1 ; if (fornext_step2876<0) fornext_step_negative2876=1; else fornext_step_negative2876=0; if (new_error) goto fornext_error2876; goto fornext_entrylabel2876; while(1){ fornext_value2876=fornext_step2876+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2876: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2876; if (fornext_step_negative2876){ if (fornext_value2876fornext_finalvalue2876) break; } fornext_error2876:; if(qbevent){evnt(20607);if(r)goto S_27229;} 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(20607);}while(r); fornext_continue_2875:; } fornext_exit_2875:; S_27232:; fornext_value2878= 1 ; fornext_finalvalue2878=*__LONG_OPTMAX+ 1 ; fornext_step2878= 1 ; if (fornext_step2878<0) fornext_step_negative2878=1; else fornext_step_negative2878=0; if (new_error) goto fornext_error2878; goto fornext_entrylabel2878; while(1){ fornext_value2878=fornext_step2878+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2878: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2878; if (fornext_step_negative2878){ if (fornext_value2878fornext_finalvalue2878) break; } fornext_error2878:; if(qbevent){evnt(20608);if(r)goto S_27232;} 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(20608);}while(r); fornext_continue_2877:; } fornext_exit_2877:; S_27235:; fornext_value2880= 1 ; fornext_finalvalue2880=*__LONG_OPTMAX; fornext_step2880= 1 ; if (fornext_step2880<0) fornext_step_negative2880=1; else fornext_step_negative2880=0; if (new_error) goto fornext_error2880; goto fornext_entrylabel2880; while(1){ fornext_value2880=fornext_step2880+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2880: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2880; if (fornext_step_negative2880){ if (fornext_value2880fornext_finalvalue2880) break; } fornext_error2880:; if(qbevent){evnt(20609);if(r)goto S_27235;} 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(20610);}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(20611);}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(20612);}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(20613);}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(20614);}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(20615);}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(20616);}while(r); fornext_continue_2879:; } fornext_exit_2879:; do{ if(!qbevent)break;evnt(20619);}while(r); do{ memcpy(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2861); if(!qbevent)break;evnt(20621);}while(r); S_27246:; if ((-(*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809))== 0 ))||new_error){ if(qbevent){evnt(20623);if(r)goto S_27246;} do{ goto exit_subfunc; if(!qbevent)break;evnt(20623);}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(20626);}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(20627);}while(r); S_27251:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(20630);if(r)goto S_27251;} S_27252:; fornext_value2882= 1 ; fornext_finalvalue2882=*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809)); fornext_step2882= 1 ; if (fornext_step2882<0) fornext_step_negative2882=1; else fornext_step_negative2882=0; if (new_error) goto fornext_error2882; goto fornext_entrylabel2882; while(1){ fornext_value2882=fornext_step2882+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2882: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2882; if (fornext_step_negative2882){ if (fornext_value2882fornext_finalvalue2882) break; } fornext_error2882:; if(qbevent){evnt(20631);if(r)goto S_27252;} S_27253:; if ((-(*_FUNC_SEPERATEARGS_LONG_I!= 1 ))||new_error){ if(qbevent){evnt(20632);if(r)goto S_27253;} 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(20632);}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(20632);}while(r); } fornext_continue_2881:; } fornext_exit_2881:; } do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG= 1 ; if(!qbevent)break;evnt(20638);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL= 0 ; if(!qbevent)break;evnt(20639);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET= 1 ; if(!qbevent)break;evnt(20640);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; if(!qbevent)break;evnt(20641);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LASTT= 0 ; if(!qbevent)break;evnt(20642);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL= 0 ; if(!qbevent)break;evnt(20643);}while(r); S_27266:; fornext_value2884= 1 ; fornext_finalvalue2884=_FUNC_SEPERATEARGS_STRING_S->len; fornext_step2884= 1 ; if (fornext_step2884<0) fornext_step_negative2884=1; else fornext_step_negative2884=0; if (new_error) goto fornext_error2884; goto fornext_entrylabel2884; while(1){ fornext_value2884=fornext_step2884+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2884: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2884; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative2884){ if (fornext_value2884fornext_finalvalue2884) break; } fornext_error2884:; if(qbevent){evnt(20644);if(r)goto S_27266;} do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S2,func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20645);}while(r); S_27268:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("[",1))))||new_error){ if(qbevent){evnt(20647);if(r)goto S_27268;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL+ 1 ; if(!qbevent)break;evnt(20648);}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(20649);}while(r); do{ goto LABEL_NEXTSYMBOL; if(!qbevent)break;evnt(20650);}while(r); } S_27273:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("]",1))))||new_error){ if(qbevent){evnt(20653);if(r)goto S_27273;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; if(!qbevent)break;evnt(20654);}while(r); S_27275:; if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL<*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL))||new_error){ if(qbevent){evnt(20655);if(r)goto S_27275;} do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; if(!qbevent)break;evnt(20655);}while(r); } do{ goto LABEL_NEXTSYMBOL; if(!qbevent)break;evnt(20656);}while(r); } S_27280:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("{",1))))||new_error){ if(qbevent){evnt(20659);if(r)goto S_27280;} do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; if(!qbevent)break;evnt(20660);}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(20660);}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(20660);}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(20661);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; if(!qbevent)break;evnt(20661);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+ 1 ; if(!qbevent)break;evnt(20662);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I2=func_instr(*_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("}",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20663);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NUMOPTS= 0 ; if(!qbevent)break;evnt(20664);}while(r); LABEL_NEXTOPT:; if(qbevent){evnt(20665);r=0;} do{ *_FUNC_SEPERATEARGS_LONG_NUMOPTS=*_FUNC_SEPERATEARGS_LONG_NUMOPTS+ 1 ; if(!qbevent)break;evnt(20666);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I3=func_instr(*_FUNC_SEPERATEARGS_LONG_I+ 1 ,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("|",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20667);}while(r); S_27291:; if (((-(*_FUNC_SEPERATEARGS_LONG_I3!= 0 ))&(-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_I2)))||new_error){ if(qbevent){evnt(20668);if(r)goto S_27291;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20669);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I3+ 1 ; if(!qbevent)break;evnt(20670);}while(r); do{ goto LABEL_NEXTOPT; if(!qbevent)break;evnt(20670);}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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20672);}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(20673);}while(r); S_27298:; fornext_value2887= 1 ; fornext_finalvalue2887=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; fornext_step2887= 1 ; if (fornext_step2887<0) fornext_step_negative2887=1; else fornext_step_negative2887=0; if (new_error) goto fornext_error2887; goto fornext_entrylabel2887; while(1){ fornext_value2887=fornext_step2887+(*_FUNC_SEPERATEARGS_LONG_X); fornext_entrylabel2887: *_FUNC_SEPERATEARGS_LONG_X=fornext_value2887; if (fornext_step_negative2887){ if (fornext_value2887fornext_finalvalue2887) break; } fornext_error2887:; if(qbevent){evnt(20675);if(r)goto S_27298;} do{ *_FUNC_SEPERATEARGS_LONG_W= 1 ; if(!qbevent)break;evnt(20676);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X2= 1 ; if(!qbevent)break;evnt(20677);}while(r); LABEL_NEWWORD:; if(qbevent){evnt(20678);r=0;} S_27301:; 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),1)))||new_error){ if(qbevent){evnt(20679);if(r)goto S_27301;} do{ *_FUNC_SEPERATEARGS_LONG_W=*_FUNC_SEPERATEARGS_LONG_W+ 1 ; if(!qbevent)break;evnt(20679);}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),1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20679);}while(r); do{ goto LABEL_NEWWORD; if(!qbevent)break;evnt(20679);}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(20680);}while(r); fornext_continue_2886:; } fornext_exit_2886:; do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I2; if(!qbevent)break;evnt(20682);}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(20685);}while(r); S_27310:; 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(20686);if(r)goto S_27310;} 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(20687);}while(r); S_27312:; fornext_value2889= 1 ; fornext_finalvalue2889=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; 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_SEPERATEARGS_LONG_I2); fornext_entrylabel2889: *_FUNC_SEPERATEARGS_LONG_I2=fornext_value2889; if (fornext_step_negative2889){ if (fornext_value2889fornext_finalvalue2889) break; } fornext_error2889:; if(qbevent){evnt(20688);if(r)goto S_27312;} S_27313:; 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(20689);if(r)goto S_27313;} 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(20689);}while(r); } fornext_continue_2888:; } fornext_exit_2888:; } 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(20692);}while(r); do{ goto LABEL_NEXTSYMBOL; if(!qbevent)break;evnt(20694);}while(r); } S_27321:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("?",1))))||new_error){ if(qbevent){evnt(20697);if(r)goto S_27321;} do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; if(!qbevent)break;evnt(20698);}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(20698);}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(20698);}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(20699);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; if(!qbevent)break;evnt(20699);}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(20700);}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(20702);}while(r); S_27329:; 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(20703);if(r)goto S_27329;} 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(20704);}while(r); S_27331:; fornext_value2891= 1 ; fornext_finalvalue2891=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; fornext_step2891= 1 ; if (fornext_step2891<0) fornext_step_negative2891=1; else fornext_step_negative2891=0; if (new_error) goto fornext_error2891; goto fornext_entrylabel2891; while(1){ fornext_value2891=fornext_step2891+(*_FUNC_SEPERATEARGS_LONG_I2); fornext_entrylabel2891: *_FUNC_SEPERATEARGS_LONG_I2=fornext_value2891; if (fornext_step_negative2891){ if (fornext_value2891fornext_finalvalue2891) break; } fornext_error2891:; if(qbevent){evnt(20705);if(r)goto S_27331;} S_27332:; 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(20706);if(r)goto S_27332;} 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(20706);}while(r); } fornext_continue_2890:; } fornext_exit_2890:; } 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(20709);}while(r); do{ goto LABEL_NEXTSYMBOL; if(!qbevent)break;evnt(20711);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; if(!qbevent)break;evnt(20715);}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(20715);}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(20715);}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(20716);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; if(!qbevent)break;evnt(20716);}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(20717);}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(20717);}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(20717);}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(20717);}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(20720);}while(r); S_27350:; 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(20721);if(r)goto S_27350;} 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(20722);}while(r); S_27352:; fornext_value2893= 1 ; fornext_finalvalue2893=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; fornext_step2893= 1 ; if (fornext_step2893<0) fornext_step_negative2893=1; else fornext_step_negative2893=0; if (new_error) goto fornext_error2893; goto fornext_entrylabel2893; while(1){ fornext_value2893=fornext_step2893+(*_FUNC_SEPERATEARGS_LONG_I2); fornext_entrylabel2893: *_FUNC_SEPERATEARGS_LONG_I2=fornext_value2893; if (fornext_step_negative2893){ if (fornext_value2893fornext_finalvalue2893) break; } fornext_error2893:; if(qbevent){evnt(20723);if(r)goto S_27352;} S_27353:; 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(20724);if(r)goto S_27353;} 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(20724);}while(r); } fornext_continue_2892:; } fornext_exit_2892:; } 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(20727);}while(r); do{ goto LABEL_NEXTSYMBOL; if(!qbevent)break;evnt(20729);}while(r); LABEL_NEXTSYMBOL:; if(qbevent){evnt(20731);r=0;} fornext_continue_2883:; } fornext_exit_2883:; S_27361:; if (( 0 )||new_error){ if(qbevent){evnt(20735);if(r)goto S_27361;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2894; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:1--------",46), 0 , 0 , 1 ); if (new_error) goto skip2894; skip2894: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20736);}while(r); S_27363:; fornext_value2896= 1 ; fornext_finalvalue2896=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2896= 1 ; if (fornext_step2896<0) fornext_step_negative2896=1; else fornext_step_negative2896=0; if (new_error) goto fornext_error2896; goto fornext_entrylabel2896; while(1){ fornext_value2896=fornext_step2896+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2896: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2896; if (fornext_step_negative2896){ if (fornext_value2896fornext_finalvalue2896) break; } fornext_error2896:; if(qbevent){evnt(20737);if(r)goto S_27363;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2897; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2897; 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 skip2897; skip2897: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20738);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2898; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2898; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); if (new_error) goto skip2898; 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 skip2898; skip2898: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20739);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2899; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2899; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); if (new_error) goto skip2899; 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 skip2899; skip2899: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20740);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2900; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2900; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); if (new_error) goto skip2900; 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 skip2900; skip2900: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20741);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2901; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2901; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); if (new_error) goto skip2901; 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 skip2901; skip2901: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20742);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2902; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2902; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); if (new_error) goto skip2902; 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 skip2902; skip2902: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20743);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2903; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2903; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); if (new_error) goto skip2903; 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 skip2903; skip2903: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20744);}while(r); fornext_continue_2895:; } fornext_exit_2895:; } S_27373:; fornext_value2905= 1 ; fornext_finalvalue2905=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2905= 1 ; if (fornext_step2905<0) fornext_step_negative2905=1; else fornext_step_negative2905=0; if (new_error) goto fornext_error2905; goto fornext_entrylabel2905; while(1){ fornext_value2905=fornext_step2905+(*_FUNC_SEPERATEARGS_LONG_X); fornext_entrylabel2905: *_FUNC_SEPERATEARGS_LONG_X=fornext_value2905; if (fornext_step_negative2905){ if (fornext_value2905fornext_finalvalue2905) break; } fornext_error2905:; if(qbevent){evnt(20752);if(r)goto S_27373;} S_27374:; 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(20753);if(r)goto S_27374;} S_27375:; 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(20754);if(r)goto S_27375;} 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(20754);}while(r); } } fornext_continue_2904:; } fornext_exit_2904:; S_27380:; if (( 0 )||new_error){ if(qbevent){evnt(20758);if(r)goto S_27380;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2906; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:2--------",46), 0 , 0 , 1 ); if (new_error) goto skip2906; skip2906: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20759);}while(r); S_27382:; fornext_value2908= 1 ; fornext_finalvalue2908=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2908= 1 ; if (fornext_step2908<0) fornext_step_negative2908=1; else fornext_step_negative2908=0; if (new_error) goto fornext_error2908; goto fornext_entrylabel2908; while(1){ fornext_value2908=fornext_step2908+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2908: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2908; if (fornext_step_negative2908){ if (fornext_value2908fornext_finalvalue2908) break; } fornext_error2908:; if(qbevent){evnt(20760);if(r)goto S_27382;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2909; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2909; 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 skip2909; skip2909: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20761);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2910; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2910; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); if (new_error) goto skip2910; 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 skip2910; skip2910: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20762);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2911; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2911; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); if (new_error) goto skip2911; 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 skip2911; skip2911: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20763);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2912; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2912; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); if (new_error) goto skip2912; 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 skip2912; skip2912: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20764);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2913; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2913; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); if (new_error) goto skip2913; 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 skip2913; skip2913: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20765);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2914; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2914; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); if (new_error) goto skip2914; 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 skip2914; skip2914: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20766);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2915; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2915; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); if (new_error) goto skip2915; 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 skip2915; skip2915: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20767);}while(r); fornext_continue_2907:; } fornext_exit_2907:; } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; if(!qbevent)break;evnt(20774);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; if(!qbevent)break;evnt(20775);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; if(!qbevent)break;evnt(20776);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; if(!qbevent)break;evnt(20781);}while(r); S_27396:; fornext_value2917= 1 ; fornext_finalvalue2917= 32767 ; fornext_step2917= 1 ; if (fornext_step2917<0) fornext_step_negative2917=1; else fornext_step_negative2917=0; if (new_error) goto fornext_error2917; goto fornext_entrylabel2917; while(1){ fornext_value2917=fornext_step2917+(*_FUNC_SEPERATEARGS_LONG_L); fornext_entrylabel2917: *_FUNC_SEPERATEARGS_LONG_L=fornext_value2917; if (fornext_step_negative2917){ if (fornext_value2917fornext_finalvalue2917) break; } fornext_error2917:; if(qbevent){evnt(20782);if(r)goto S_27396;} do{ *_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 0 ; if(!qbevent)break;evnt(20783);}while(r); S_27398:; fornext_value2919= 1 ; fornext_finalvalue2919=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2919= 1 ; if (fornext_step2919<0) fornext_step_negative2919=1; else fornext_step_negative2919=0; if (new_error) goto fornext_error2919; goto fornext_entrylabel2919; while(1){ fornext_value2919=fornext_step2919+(*_FUNC_SEPERATEARGS_LONG_X); fornext_entrylabel2919: *_FUNC_SEPERATEARGS_LONG_X=fornext_value2919; if (fornext_step_negative2919){ if (fornext_value2919fornext_finalvalue2919) break; } fornext_error2919:; if(qbevent){evnt(20784);if(r)goto S_27398;} S_27399:; 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(20785);if(r)goto S_27399;} do{ *_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 1 ; if(!qbevent)break;evnt(20785);}while(r); } S_27402:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ if(qbevent){evnt(20787);if(r)goto S_27402;} S_27403:; 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(20788);if(r)goto S_27403;} S_27404:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ if(qbevent){evnt(20789);if(r)goto S_27404;} S_27405:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ if(qbevent){evnt(20792);if(r)goto S_27405;} S_27406:; fornext_value2921= 1 ; fornext_finalvalue2921=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; 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_SEPERATEARGS_LONG_X2); fornext_entrylabel2921: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2921; if (fornext_step_negative2921){ if (fornext_value2921fornext_finalvalue2921) break; } fornext_error2921:; if(qbevent){evnt(20794);if(r)goto S_27406;} 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(20795);}while(r); fornext_continue_2920:; } fornext_exit_2920:; do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; if(!qbevent)break;evnt(20797);}while(r); }else{ S_27411:; fornext_value2923= 1 ; fornext_finalvalue2923=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; fornext_step2923= 1 ; if (fornext_step2923<0) fornext_step_negative2923=1; else fornext_step_negative2923=0; if (new_error) goto fornext_error2923; goto fornext_entrylabel2923; while(1){ fornext_value2923=fornext_step2923+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2923: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2923; if (fornext_step_negative2923){ if (fornext_value2923fornext_finalvalue2923) break; } fornext_error2923:; if(qbevent){evnt(20801);if(r)goto S_27411;} S_27412:; 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(20802);if(r)goto S_27412;} 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(20802);}while(r); } fornext_continue_2922:; } fornext_exit_2922:; } }else{ S_27418:; fornext_value2925= 1 ; fornext_finalvalue2925=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; fornext_step2925= 1 ; if (fornext_step2925<0) fornext_step_negative2925=1; else fornext_step_negative2925=0; if (new_error) goto fornext_error2925; goto fornext_entrylabel2925; while(1){ fornext_value2925=fornext_step2925+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2925: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2925; if (fornext_step_negative2925){ if (fornext_value2925fornext_finalvalue2925) break; } fornext_error2925:; if(qbevent){evnt(20807);if(r)goto S_27418;} 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(20807);}while(r); fornext_continue_2924:; } fornext_exit_2924:; S_27421:; if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ if(qbevent){evnt(20808);if(r)goto S_27421;} do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; if(!qbevent)break;evnt(20808);}while(r); } } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; if(!qbevent)break;evnt(20810);}while(r); } } S_27428:; 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(20815);if(r)goto S_27428;} S_27429:; 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(20816);if(r)goto S_27429;} do{ *_FUNC_SEPERATEARGS_LONG_X1=*_FUNC_SEPERATEARGS_LONG_X; if(!qbevent)break;evnt(20817);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; if(!qbevent)break;evnt(20818);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; if(!qbevent)break;evnt(20819);}while(r); } } S_27435:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ if(qbevent){evnt(20823);if(r)goto S_27435;} S_27436:; 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(20824);if(r)goto S_27436;} S_27437:; 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(20826);if(r)goto S_27437;} S_27438:; if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT== 0 ))||new_error){ if(qbevent){evnt(20828);if(r)goto S_27438;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; if(!qbevent)break;evnt(20829);}while(r); S_27440:; 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(20830);if(r)goto S_27440;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 1 ; if(!qbevent)break;evnt(20830);}while(r); }else{ do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; if(!qbevent)break;evnt(20830);}while(r); } }else{ S_27446:; if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG== 1 ))||new_error){ if(qbevent){evnt(20834);if(r)goto S_27446;} S_27447:; 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(20835);if(r)goto S_27447;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; if(!qbevent)break;evnt(20836);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; if(!qbevent)break;evnt(20836);}while(r); } } } do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; if(!qbevent)break;evnt(20841);}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(20841);}while(r); } S_27456:; 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(20844);if(r)goto S_27456;} S_27457:; 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(20850);if(r)goto S_27457;} do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; if(!qbevent)break;evnt(20850);}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(20850);}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(20850);}while(r); } } } } fornext_continue_2918:; } fornext_exit_2918:; S_27466:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ if(qbevent){evnt(20859);if(r)goto S_27466;} S_27467:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ if(qbevent){evnt(20860);if(r)goto S_27467;} S_27468:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ if(qbevent){evnt(20863);if(r)goto S_27468;} S_27469:; fornext_value2927= 1 ; fornext_finalvalue2927=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; fornext_step2927= 1 ; if (fornext_step2927<0) fornext_step_negative2927=1; else fornext_step_negative2927=0; if (new_error) goto fornext_error2927; goto fornext_entrylabel2927; while(1){ fornext_value2927=fornext_step2927+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2927: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2927; if (fornext_step_negative2927){ if (fornext_value2927fornext_finalvalue2927) break; } fornext_error2927:; if(qbevent){evnt(20865);if(r)goto S_27469;} 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(20866);}while(r); fornext_continue_2926:; } fornext_exit_2926:; do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; if(!qbevent)break;evnt(20868);}while(r); }else{ S_27474:; fornext_value2929= 1 ; fornext_finalvalue2929=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; fornext_step2929= 1 ; if (fornext_step2929<0) fornext_step_negative2929=1; else fornext_step_negative2929=0; if (new_error) goto fornext_error2929; goto fornext_entrylabel2929; while(1){ fornext_value2929=fornext_step2929+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2929: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2929; if (fornext_step_negative2929){ if (fornext_value2929fornext_finalvalue2929) break; } fornext_error2929:; if(qbevent){evnt(20872);if(r)goto S_27474;} S_27475:; 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(20873);if(r)goto S_27475;} 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(20873);}while(r); } fornext_continue_2928:; } fornext_exit_2928:; } }else{ S_27481:; fornext_value2931= 1 ; fornext_finalvalue2931=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; fornext_step2931= 1 ; if (fornext_step2931<0) fornext_step_negative2931=1; else fornext_step_negative2931=0; if (new_error) goto fornext_error2931; goto fornext_entrylabel2931; while(1){ fornext_value2931=fornext_step2931+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2931: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2931; if (fornext_step_negative2931){ if (fornext_value2931fornext_finalvalue2931) break; } fornext_error2931:; if(qbevent){evnt(20878);if(r)goto S_27481;} 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(20878);}while(r); fornext_continue_2930:; } fornext_exit_2930:; S_27484:; if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ if(qbevent){evnt(20879);if(r)goto S_27484;} do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; if(!qbevent)break;evnt(20879);}while(r); } } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; if(!qbevent)break;evnt(20881);}while(r); } S_27490:; if ((-(*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL== 0 ))||new_error){ if(qbevent){evnt(20884);if(r)goto S_27490;} do{ goto fornext_exit_2916; if(!qbevent)break;evnt(20884);}while(r); } fornext_continue_2916:; } fornext_exit_2916:; S_27494:; if (( 0 )||new_error){ if(qbevent){evnt(20887);if(r)goto S_27494;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2932; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:3--------",46), 0 , 0 , 1 ); if (new_error) goto skip2932; skip2932: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20888);}while(r); S_27496:; fornext_value2934= 1 ; fornext_finalvalue2934=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2934= 1 ; if (fornext_step2934<0) fornext_step_negative2934=1; else fornext_step_negative2934=0; if (new_error) goto fornext_error2934; goto fornext_entrylabel2934; while(1){ fornext_value2934=fornext_step2934+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2934: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2934; if (fornext_step_negative2934){ if (fornext_value2934fornext_finalvalue2934) break; } fornext_error2934:; if(qbevent){evnt(20889);if(r)goto S_27496;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2935; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2935; 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 skip2935; skip2935: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20890);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2936; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2936; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); if (new_error) goto skip2936; 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 skip2936; skip2936: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20891);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2937; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2937; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); if (new_error) goto skip2937; 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 skip2937; skip2937: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20892);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2938; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2938; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); if (new_error) goto skip2938; 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 skip2938; skip2938: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20893);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2939; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2939; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); if (new_error) goto skip2939; 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 skip2939; skip2939: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20894);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2940; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2940; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); if (new_error) goto skip2940; 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 skip2940; skip2940: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20895);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2941; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2941; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); if (new_error) goto skip2941; 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 skip2941; skip2941: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(20896);}while(r); fornext_continue_2933:; } fornext_exit_2933:; } S_27506:; fornext_value2943= 1 ; fornext_finalvalue2943=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2943= 1 ; if (fornext_step2943<0) fornext_step_negative2943=1; else fornext_step_negative2943=0; if (new_error) goto fornext_error2943; goto fornext_entrylabel2943; while(1){ fornext_value2943=fornext_step2943+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2943: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2943; if (fornext_step_negative2943){ if (fornext_value2943fornext_finalvalue2943) break; } fornext_error2943:; if(qbevent){evnt(20902);if(r)goto S_27506;} 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(20902);}while(r); fornext_continue_2942:; } fornext_exit_2942:; do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES= 0 ; if(!qbevent)break;evnt(20920);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){ error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]+1; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[6]=1; if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&4){ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]*4); memset((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]),0,_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]*4); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]=(ptrszint)calloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]*4,1); if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]|=1; } } if(!qbevent)break;evnt(20921);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&1){ error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]+1; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[6]=1; if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&4){ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]*4); memset((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]),0,_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]*4); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]=(ptrszint)calloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]*4,1); if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]|=1; } } if(!qbevent)break;evnt(20922);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&1){ error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]+1; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[6]=1; if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&4){ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]*4); memset((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]),0,_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]*4); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]=(ptrszint)calloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]*4,1); if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]|=1; } } if(!qbevent)break;evnt(20925);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&1){ error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]+1; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[6]=1; if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&4){ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]*4); memset((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]),0,_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]*4); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]=(ptrszint)calloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]*4,1); if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]|=1; } } if(!qbevent)break;evnt(20926);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&1){ error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]+1; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[6]=1; if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&4){ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]*4); memset((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]),0,_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]*4); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]=(ptrszint)calloc(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]*4,1); if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]|=1; } } if(!qbevent)break;evnt(20929);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_N=FUNC_NUMELEMENTS(_FUNC_SEPERATEARGS_STRING_CA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(20931);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I= 1 ; if(!qbevent)break;evnt(20932);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; if(!qbevent)break;evnt(20934);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; if(!qbevent)break;evnt(20935);}while(r); S_27519:; fornext_value2945= 1 ; fornext_finalvalue2945=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2945= 1 ; if (fornext_step2945<0) fornext_step_negative2945=1; else fornext_step_negative2945=0; if (new_error) goto fornext_error2945; goto fornext_entrylabel2945; while(1){ fornext_value2945=fornext_step2945+(*_FUNC_SEPERATEARGS_LONG_X); fornext_entrylabel2945: *_FUNC_SEPERATEARGS_LONG_X=fornext_value2945; if (fornext_step_negative2945){ if (fornext_value2945fornext_finalvalue2945) break; } fornext_error2945:; if(qbevent){evnt(20936);if(r)goto S_27519;} LABEL_CONTINUESCAN:; if(qbevent){evnt(20938);r=0;} S_27520:; 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(20940);if(r)goto S_27520;} 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(20942);}while(r); } S_27523:; 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(20945);if(r)goto S_27523;} S_27524:; 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(20948);if(r)goto S_27524;} do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 1 ; if(!qbevent)break;evnt(20949);}while(r); S_27526:; 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(20950);if(r)goto S_27526;} do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; if(!qbevent)break;evnt(20950);}while(r); } }else{ do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; if(!qbevent)break;evnt(20953);}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(20956);}while(r); S_27533:; if ((-(*_FUNC_SEPERATEARGS_LONG_T== 0 ))||new_error){ if(qbevent){evnt(20958);if(r)goto S_27533;} S_27534:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ if(qbevent){evnt(20959);if(r)goto S_27534;} do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(20962);}while(r); } S_27537:; if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ if(qbevent){evnt(20965);if(r)goto S_27537;} do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; if(!qbevent)break;evnt(20966);}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(20967);}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(20968);}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(20969);}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(20970);}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(20971);}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(20972);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION=*_FUNC_SEPERATEARGS_LONG_X; if(!qbevent)break;evnt(20974);}while(r); } S_27548:; if ((*_FUNC_SEPERATEARGS_LONG_T)||new_error){ if(qbevent){evnt(20977);if(r)goto S_27548;} do{ *_FUNC_SEPERATEARGS_LONG_CURRENTLEV=*_FUNC_SEPERATEARGS_LONG_LEVEL; if(!qbevent)break;evnt(20979);}while(r); S_27550:; if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ if(qbevent){evnt(20982);if(r)goto S_27550;} do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; if(!qbevent)break;evnt(20983);}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(20984);}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(20985);}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(20986);}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(20987);}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(20988);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_I1=*_FUNC_SEPERATEARGS_LONG_I; if(!qbevent)break;evnt(20992);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_I; if(!qbevent)break;evnt(20992);}while(r); S_27560:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ if(qbevent){evnt(20993);if(r)goto S_27560;} do{ *_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_N; if(!qbevent)break;evnt(20993);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_OUTOFRANGE= 2147483647 ; if(!qbevent)break;evnt(20997);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE; if(!qbevent)break;evnt(20998);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_WHICH= 0 ; if(!qbevent)break;evnt(20999);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 0 ; if(!qbevent)break;evnt(21000);}while(r); S_27567:; if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ if(qbevent){evnt(21001);if(r)goto S_27567;} S_27568:; fornext_value2947= 1 ; fornext_finalvalue2947=*_FUNC_SEPERATEARGS_LONG_T; fornext_step2947= 1 ; if (fornext_step2947<0) fornext_step_negative2947=1; else fornext_step_negative2947=0; if (new_error) goto fornext_error2947; goto fornext_entrylabel2947; while(1){ fornext_value2947=fornext_step2947+(*_FUNC_SEPERATEARGS_LONG_O); fornext_entrylabel2947: *_FUNC_SEPERATEARGS_LONG_O=fornext_value2947; if (fornext_step_negative2947){ if (fornext_value2947fornext_finalvalue2947) break; } fornext_error2947:; if(qbevent){evnt(21002);if(r)goto S_27568;} 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(21003);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_B= 0 ; if(!qbevent)break;evnt(21004);}while(r); S_27571:; fornext_value2949=*_FUNC_SEPERATEARGS_LONG_I1; fornext_finalvalue2949=*_FUNC_SEPERATEARGS_LONG_I2; fornext_step2949= 1 ; if (fornext_step2949<0) fornext_step_negative2949=1; else fornext_step_negative2949=0; if (new_error) goto fornext_error2949; goto fornext_entrylabel2949; while(1){ fornext_value2949=fornext_step2949+(*_FUNC_SEPERATEARGS_LONG_I3); fornext_entrylabel2949: *_FUNC_SEPERATEARGS_LONG_I3=fornext_value2949; if (fornext_step_negative2949){ if (fornext_value2949fornext_finalvalue2949) break; } fornext_error2949:; if(qbevent){evnt(21005);if(r)goto S_27571;} S_27572:; if ((-((*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_WORDS- 1 )<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ if(qbevent){evnt(21006);if(r)goto S_27572;} 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(21007);}while(r); S_27574:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))||new_error){ if(qbevent){evnt(21008);if(r)goto S_27574;} S_27575:; fornext_value2951= 2 ; fornext_finalvalue2951=*_FUNC_SEPERATEARGS_LONG_WORDS; 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_SEPERATEARGS_LONG_W); fornext_entrylabel2951: *_FUNC_SEPERATEARGS_LONG_W=fornext_value2951; if (fornext_step_negative2951){ if (fornext_value2951fornext_finalvalue2951) break; } fornext_error2951:; if(qbevent){evnt(21010);if(r)goto S_27575;} 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,&(pass2952=*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_W- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21011);}while(r); fornext_continue_2950:; } fornext_exit_2950:; 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,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(21014);}while(r); S_27579:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,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(21015);if(r)goto S_27579;} S_27580:; if ((-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_POSITION))||new_error){ if(qbevent){evnt(21017);if(r)goto S_27580;} do{ *_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_I3; if(!qbevent)break;evnt(21018);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_WHICH=*_FUNC_SEPERATEARGS_LONG_O; if(!qbevent)break;evnt(21019);}while(r); S_27583:; if ((*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH)||new_error){ if(qbevent){evnt(21020);if(r)goto S_27583;} do{ *_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 1 ; if(!qbevent)break;evnt(21020);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_BVALUE=*_FUNC_SEPERATEARGS_LONG_B; if(!qbevent)break;evnt(21021);}while(r); do{ goto fornext_exit_2948; if(!qbevent)break;evnt(21022);}while(r); } } } S_27591:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ if(qbevent){evnt(21027);if(r)goto S_27591;} do{ goto fornext_exit_2948; if(!qbevent)break;evnt(21028);}while(r); } S_27594:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ if(qbevent){evnt(21031);if(r)goto S_27594;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; if(!qbevent)break;evnt(21032);}while(r); } S_27597:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ if(qbevent){evnt(21034);if(r)goto S_27597;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; if(!qbevent)break;evnt(21035);}while(r); S_27599:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ if(qbevent){evnt(21036);if(r)goto S_27599;} do{ goto fornext_exit_2948; if(!qbevent)break;evnt(21036);}while(r); } } } fornext_continue_2948:; } fornext_exit_2948:; fornext_continue_2946:; } fornext_exit_2946:; } S_27607:; if ((-(*_FUNC_SEPERATEARGS_LONG_POSITION!=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE))||new_error){ if(qbevent){evnt(21044);if(r)goto S_27607;} 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(21046);}while(r); S_27609:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ if(qbevent){evnt(21047);if(r)goto S_27609;} S_27610:; if (((-(*_FUNC_SEPERATEARGS_LONG_POSITION>*_FUNC_SEPERATEARGS_LONG_I))&(-(*_FUNC_SEPERATEARGS_LONG_BVALUE== 0 )))||new_error){ if(qbevent){evnt(21050);if(r)goto S_27610;} 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,&(pass2953=*_FUNC_SEPERATEARGS_LONG_POSITION- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21052);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; if(!qbevent)break;evnt(21053);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_POSITION; if(!qbevent)break;evnt(21054);}while(r); }else{ do{ goto LABEL_OPTCHECKBACKTRACK; if(!qbevent)break;evnt(21058);}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(21062);}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_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(21063);}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(21064);}while(r); }else{ LABEL_OPTCHECKBACKTRACK:; if(qbevent){evnt(21068);r=0;} S_27622:; 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(21070);if(r)goto S_27622;} 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(21073);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_CURRENTLEV; if(!qbevent)break;evnt(21074);}while(r); }else{ LABEL_BACKTRACK:; if(qbevent){evnt(21076);r=0;} S_27626:; fornext_value2955=*_FUNC_SEPERATEARGS_LONG_BRANCHES; fornext_finalvalue2955= 1 ; fornext_step2955= -1 ; if (fornext_step2955<0) fornext_step_negative2955=1; else fornext_step_negative2955=0; if (new_error) goto fornext_error2955; goto fornext_entrylabel2955; while(1){ fornext_value2955=fornext_step2955+(*_FUNC_SEPERATEARGS_LONG_BRANCH); fornext_entrylabel2955: *_FUNC_SEPERATEARGS_LONG_BRANCH=fornext_value2955; if (fornext_step_negative2955){ if (fornext_value2955fornext_finalvalue2955) break; } fornext_error2955:; if(qbevent){evnt(21079);if(r)goto S_27626;} S_27627:; 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(21080);if(r)goto S_27627;} do{ goto fornext_exit_2954; if(!qbevent)break;evnt(21080);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES- 1 ; if(!qbevent)break;evnt(21081);}while(r); fornext_continue_2954:; } fornext_exit_2954:; S_27632:; if ((-(*_FUNC_SEPERATEARGS_LONG_BRANCHES== 0 ))||new_error){ if(qbevent){evnt(21083);if(r)goto S_27632;} do{ *__LONG_SEPERATEARGS_ERROR= 1 ; if(!qbevent)break;evnt(21084);}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(21085);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21086);}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(21089);}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(21090);}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(21091);}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(21092);}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(21093);}while(r); S_27642:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ if(qbevent){evnt(21095);if(r)goto S_27642;} 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(21095);}while(r); } S_27645:; fornext_value2957=*_FUNC_SEPERATEARGS_LONG_X; fornext_finalvalue2957=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2957= 1 ; if (fornext_step2957<0) fornext_step_negative2957=1; else fornext_step_negative2957=0; if (new_error) goto fornext_error2957; goto fornext_entrylabel2957; while(1){ fornext_value2957=fornext_step2957+(*_FUNC_SEPERATEARGS_LONG_X2); fornext_entrylabel2957: *_FUNC_SEPERATEARGS_LONG_X2=fornext_value2957; if (fornext_step_negative2957){ if (fornext_value2957fornext_finalvalue2957) break; } fornext_error2957:; if(qbevent){evnt(21096);if(r)goto S_27645;} 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(21097);}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(21098);}while(r); fornext_continue_2956:; } fornext_exit_2956:; } } } } fornext_continue_2944:; } fornext_exit_2944:; S_27654:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ if(qbevent){evnt(21112);if(r)goto S_27654;} S_27655:; if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ if(qbevent){evnt(21113);if(r)goto S_27655;} 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(21114);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_B= 0 ; if(!qbevent)break;evnt(21118);}while(r); S_27658:; fornext_value2959=*_FUNC_SEPERATEARGS_LONG_I; fornext_finalvalue2959=*_FUNC_SEPERATEARGS_LONG_N; fornext_step2959= 1 ; if (fornext_step2959<0) fornext_step_negative2959=1; else fornext_step_negative2959=0; if (new_error) goto fornext_error2959; goto fornext_entrylabel2959; while(1){ fornext_value2959=fornext_step2959+(*_FUNC_SEPERATEARGS_LONG_I2); fornext_entrylabel2959: *_FUNC_SEPERATEARGS_LONG_I2=fornext_value2959; if (fornext_step_negative2959){ if (fornext_value2959fornext_finalvalue2959) break; } fornext_error2959:; if(qbevent){evnt(21119);if(r)goto S_27658;} 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(21120);}while(r); S_27660:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ if(qbevent){evnt(21121);if(r)goto S_27660;} do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(21122);}while(r); } S_27663:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ if(qbevent){evnt(21124);if(r)goto S_27663;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; if(!qbevent)break;evnt(21125);}while(r); } S_27666:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ if(qbevent){evnt(21127);if(r)goto S_27666;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; if(!qbevent)break;evnt(21128);}while(r); S_27668:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ if(qbevent){evnt(21129);if(r)goto S_27668;} do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(21129);}while(r); } } fornext_continue_2958:; } fornext_exit_2958:; S_27673:; if ((-(*_FUNC_SEPERATEARGS_LONG_B!= 0 ))||new_error){ if(qbevent){evnt(21132);if(r)goto S_27673;} do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(21132);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_N+ 1 ; if(!qbevent)break;evnt(21134);}while(r); }else{ do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(21136);}while(r); } } S_27681:; if ((-(*_FUNC_SEPERATEARGS_LONG_I!=(*_FUNC_SEPERATEARGS_LONG_N+ 1 )))||new_error){ if(qbevent){evnt(21140);if(r)goto S_27681;} do{ goto LABEL_BACKTRACK; if(!qbevent)break;evnt(21140);}while(r); } S_27684:; if (( 0 )||new_error){ if(qbevent){evnt(21142);if(r)goto S_27684;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2960; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #2--------",44), 0 , 0 , 1 ); if (new_error) goto skip2960; skip2960: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21143);}while(r); S_27686:; fornext_value2962= 1 ; fornext_finalvalue2962=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2962= 1 ; if (fornext_step2962<0) fornext_step_negative2962=1; else fornext_step_negative2962=0; if (new_error) goto fornext_error2962; goto fornext_entrylabel2962; while(1){ fornext_value2962=fornext_step2962+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2962: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2962; if (fornext_step_negative2962){ if (fornext_value2962fornext_finalvalue2962) break; } fornext_error2962:; if(qbevent){evnt(21144);if(r)goto S_27686;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip2963; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip2963; 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 skip2963; skip2963: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21145);}while(r); fornext_continue_2961:; } fornext_exit_2961:; } S_27690:; if ((-(*_FUNC_SEPERATEARGS_LONG_PASSFLAG!= 1 ))||new_error){ if(qbevent){evnt(21156);if(r)goto S_27690;} do{ *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS= 1 ; if(!qbevent)break;evnt(21156);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_PASS= 0 ; if(!qbevent)break;evnt(21157);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X= 1 ; if(!qbevent)break;evnt(21160);}while(r); S_27695:; fornext_value2965= 1 ; fornext_finalvalue2965=*_FUNC_SEPERATEARGS_LONG_LASTT; fornext_step2965= 1 ; if (fornext_step2965<0) fornext_step_negative2965=1; else fornext_step_negative2965=0; if (new_error) goto fornext_error2965; goto fornext_entrylabel2965; while(1){ fornext_value2965=fornext_step2965+(*_FUNC_SEPERATEARGS_LONG_I); fornext_entrylabel2965: *_FUNC_SEPERATEARGS_LONG_I=fornext_value2965; if (fornext_step_negative2965){ if (fornext_value2965fornext_finalvalue2965) break; } fornext_error2965:; if(qbevent){evnt(21162);if(r)goto S_27695;} S_27696:; 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(21164);if(r)goto S_27696;} S_27697:; 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(21166);if(r)goto S_27697;} S_27698:; 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(21167);if(r)goto S_27698;} 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(21167);}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(21170);}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(21171);}while(r); S_27704:; 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(21173);if(r)goto S_27704;} S_27705:; 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(21174);if(r)goto S_27705;} 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(21176);}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(21177);}while(r); } } S_27710:; 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(21181);if(r)goto S_27710;} 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(21181);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_X=*_FUNC_SEPERATEARGS_LONG_X+ 1 ; if(!qbevent)break;evnt(21182);}while(r); }else{ S_27715:; 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(21189);if(r)goto S_27715;} S_27716:; 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(21190);if(r)goto S_27716;} 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(21190);}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(21193);}while(r); } fornext_continue_2964:; } fornext_exit_2964:; 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(21197);}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(21207);}while(r); do{ *_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2; if(!qbevent)break;evnt(21207);}while(r); do{ qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21207);}while(r); S_27727:; if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||new_error){ if(qbevent){evnt(21208);if(r)goto S_27727;} do{ qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21208);}while(r); } S_27730:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21209);if(r)goto S_27730;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21209);}while(r); } do{ qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21210);}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(21218);}while(r); S_27735:; if ((*_SUB_SETREFER_LONG_I)||new_error){ if(qbevent){evnt(21219);if(r)goto S_27735;} 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(21220);}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(21220);}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(21222);}while(r); } do{ SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER); if(!qbevent)break;evnt(21224);}while(r); S_27742:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21225);if(r)goto S_27742;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21225);}while(r); } S_27745:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(21228);if(r)goto S_27745;} do{ *_SUB_SETREFER_LONG_U=qbr(func_val(_SUB_SETREFER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21231);}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(21232);}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(21232);}while(r); do{ *__LONG_E=qbr(func_val(_SUB_SETREFER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21232);}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(21233);}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(21233);}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(21234);}while(r); S_27753:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(21234);if(r)goto S_27753;} 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(21234);}while(r); } S_27756:; if (((-(*__LONG_E!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||new_error){ if(qbevent){evnt(21236);if(r)goto S_27756;} 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(21237);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21237);}while(r); } S_27760:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(21240);if(r)goto S_27760;} S_27761:; if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||new_error){ if(qbevent){evnt(21243);if(r)goto S_27761;} 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(21243);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21243);}while(r); } do{ qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21244);}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(21245);}while(r); S_27767:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21246);if(r)goto S_27767;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21246);}while(r); } S_27770:; if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ if(qbevent){evnt(21247);if(r)goto S_27770;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21247);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21247);}while(r); } S_27774:; if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(21249);if(r)goto S_27774;} S_27775:; if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||new_error){ if(qbevent){evnt(21250);if(r)goto S_27775;} 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(21251);}while(r); do{ *_SUB_SETREFER_LONG_E2= 0 ; if(!qbevent)break;evnt(21252);}while(r); do{ *_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; if(!qbevent)break;evnt(21252);}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(21254);}while(r); do{ *_SUB_SETREFER_LONG_E2= 0 ; if(!qbevent)break;evnt(21255);}while(r); do{ *_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; if(!qbevent)break;evnt(21255);}while(r); } do{ goto LABEL_DIRECTUDT; if(!qbevent)break;evnt(21257);}while(r); } do{ *_SUB_SETREFER_LONG_IDNUMBER2=qbr(func_val(_SUB_SETREFER_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21261);}while(r); do{ SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2); if(!qbevent)break;evnt(21262);}while(r); S_27788:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21265);if(r)goto S_27788;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21265);}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(21266);}while(r); S_27792:; if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ if(qbevent){evnt(21266);if(r)goto S_27792;} 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(21266);}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(21267);}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(21267);}while(r); do{ *_SUB_SETREFER_LONG_U2=qbr(func_val(_SUB_SETREFER_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21267);}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(21268);}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(21268);}while(r); do{ *_SUB_SETREFER_LONG_E2=qbr(func_val(_SUB_SETREFER_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21268);}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(21269);}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(21269);}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(21274);}while(r); LABEL_DIRECTUDT:; if(qbevent){evnt(21275);r=0;} S_27804:; if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||new_error){ if(qbevent){evnt(21276);if(r)goto S_27804;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21276);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21276);}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(21277);}while(r); do{ SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,&(pass2976= 12 ),&(pass2977= 0 ),_SUB_SETREFER_LONG_U); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21279);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21283);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21284);}while(r); } S_27813:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(21288);if(r)goto S_27813;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types yet",65)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21288);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21288);}while(r); } S_27817:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(21289);if(r)goto S_27817;} S_27818:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(21290);if(r)goto S_27818;} 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(21291);}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(21292);}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(21294);}while(r); } S_27824:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21296);if(r)goto S_27824;} do{ qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass2978=*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21296);}while(r); } S_27827:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21297);if(r)goto S_27827;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21297);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2979; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2979; skip2979: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21298);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2980; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip2980; skip2980: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21299);}while(r); }else{ do{ *_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(21301);}while(r); S_27834:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ if(qbevent){evnt(21302);if(r)goto S_27834;} do{ *_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY; if(!qbevent)break;evnt(21302);}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(21303);}while(r); S_27838:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21304);if(r)goto S_27838;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21304);}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(21305);}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(21306);}while(r); S_27843:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21307);if(r)goto S_27843;} 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(21307);}while(r); } S_27846:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21308);if(r)goto S_27846;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21308);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2981; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2981; skip2981: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21309);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21313);}while(r); S_27852:; 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(21314);if(r)goto S_27852;} 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(21314);}while(r); } do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(FUNC_SCOPE(),_SUB_SETREFER_STRING_N),&(pass2982= 7 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21315);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21316);}while(r); } S_27858:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ if(qbevent){evnt(21321);if(r)goto S_27858;} 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(21322);}while(r); do{ *_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(21323);}while(r); S_27861:; if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(21325);if(r)goto S_27861;} S_27862:; if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(21326);if(r)goto S_27862;} 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(21327);}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(21328);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2983; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2983; skip2983: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21329);}while(r); S_27866:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21330);if(r)goto S_27866;} 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(21331);}while(r); S_27868:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21332);if(r)goto S_27868;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21332);}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(21334);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2984; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip2984; skip2984: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21336);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2985; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2985; skip2985: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21338);}while(r); S_27877:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21339);if(r)goto S_27877;} 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(21340);}while(r); S_27879:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21341);if(r)goto S_27879;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21341);}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(21343);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2986; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip2986; skip2986: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21345);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2987; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip2987; skip2987: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21347);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21348);}while(r); S_27889:; 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(21349);if(r)goto S_27889;} 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(21349);}while(r); } do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass2988= 8 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21350);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21351);}while(r); } S_27895:; if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(21354);if(r)goto S_27895;} do{ qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),FUNC_STR2(&(pass2989=*_SUB_SETREFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21356);}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(21357);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2990; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2990; skip2990: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21358);}while(r); S_27899:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21359);if(r)goto S_27899;} 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(21360);}while(r); S_27901:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21361);if(r)goto S_27901;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21361);}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(21363);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2991; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip2991; skip2991: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21365);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21366);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21367);}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(21369);}while(r); S_27912:; if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(21370);if(r)goto S_27912;} S_27913:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(21371);if(r)goto S_27913;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21371);}while(r); } S_27916:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(21372);if(r)goto S_27916;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21372);}while(r); } S_27919:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 256 ))||new_error){ if(qbevent){evnt(21373);if(r)goto S_27919;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21373);}while(r); } }else{ S_27923:; if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21375);if(r)goto S_27923;} S_27924:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(21376);if(r)goto S_27924;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21376);}while(r); } S_27927:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(21377);if(r)goto S_27927;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21377);}while(r); } S_27930:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(21378);if(r)goto S_27930;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21378);}while(r); } S_27933:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(21379);if(r)goto S_27933;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21379);}while(r); } S_27936:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(21380);if(r)goto S_27936;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21380);}while(r); } }else{ S_27940:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ if(qbevent){evnt(21382);if(r)goto S_27940;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21382);}while(r); } S_27943:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ if(qbevent){evnt(21383);if(r)goto S_27943;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21383);}while(r); } S_27946:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(21384);if(r)goto S_27946;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21384);}while(r); } S_27949:; if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(21385);if(r)goto S_27949;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21385);}while(r); } S_27952:; if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(21386);if(r)goto S_27952;} do{ qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21386);}while(r); } } } } S_27958:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21390);if(r)goto S_27958;} 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(21390);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21390);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2992; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip2992; skip2992: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21391);}while(r); S_27963:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21392);if(r)goto S_27963;} 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(21393);}while(r); S_27965:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21394);if(r)goto S_27965;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21394);}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(21396);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2993; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip2993; skip2993: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21399);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21400);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21401);}while(r); } S_27975:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ if(qbevent){evnt(21405);if(r)goto S_27975;} 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(21406);}while(r); do{ *_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); if(!qbevent)break;evnt(21407);}while(r); S_27978:; if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ if(qbevent){evnt(21409);if(r)goto S_27978;} do{ *_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(21409);}while(r); } do{ *_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T; if(!qbevent)break;evnt(21410);}while(r); S_27982:; if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(21413);if(r)goto S_27982;} S_27983:; if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ if(qbevent){evnt(21414);if(r)goto S_27983;} 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(21415);}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(21417);}while(r); } S_27988:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21419);if(r)goto S_27988;} 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(21419);}while(r); } S_27991:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21420);if(r)goto S_27991;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21420);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2994; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip2994; skip2994: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21421);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip2995; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip2995; skip2995: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21422);}while(r); S_27996:; if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(21423);if(r)goto S_27996;} do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(21423);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21424);}while(r); S_28000:; 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(21425);if(r)goto S_28000;} 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(21425);}while(r); } do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass2996= 9 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21426);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21427);}while(r); } S_28006:; if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(21431);if(r)goto S_28006;} do{ *_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 511 ; if(!qbevent)break;evnt(21432);}while(r); S_28008:; if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21433);if(r)goto S_28008;} 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(&(pass2997=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21434);}while(r); S_28010:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21435);if(r)goto S_28010;} do{ qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass2998= 64 +*__LONG_ISUNSIGNED))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21435);}while(r); } S_28013:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21436);if(r)goto S_28013;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21436);}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(&(pass2999=((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(21437);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3000; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip3000; skip3000: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21438);}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(&(pass3001=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21440);}while(r); S_28020:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21441);if(r)goto S_28020;} do{ qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3002= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21441);}while(r); } S_28023:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21442);if(r)goto S_28023;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21442);}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(&(pass3003=qbr(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 )))))),qbs_new_txt_len("){",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21443);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3004; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip3004; skip3004: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21444);}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(&(pass3005=((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(21446);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3006; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip3006; skip3006: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21447);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3007; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip3007; skip3007: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21448);}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(&(pass3008=((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(21450);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3009; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip3009; skip3009: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21451);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3010; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip3010; skip3010: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21452);}while(r); } S_28035:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(21454);if(r)goto S_28035;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3011; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3011; skip3011: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21454);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(21454);}while(r); } S_28039:; if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(21455);if(r)goto S_28039;} do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(21455);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21456);}while(r); S_28043:; 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(21457);if(r)goto S_28043;} 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(21457);}while(r); } do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass3012= 10 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21458);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21459);}while(r); } S_28049:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||new_error){ if(qbevent){evnt(21463);if(r)goto S_28049;} 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(21463);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21463);}while(r); } S_28053:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ if(qbevent){evnt(21464);if(r)goto S_28053;} 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(21464);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21464);}while(r); } S_28057:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ if(qbevent){evnt(21465);if(r)goto S_28057;} 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(21465);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21465);}while(r); } S_28061:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ if(qbevent){evnt(21466);if(r)goto S_28061;} 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(21466);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21466);}while(r); } S_28065:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||new_error){ if(qbevent){evnt(21467);if(r)goto S_28065;} 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(21467);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21467);}while(r); } S_28069:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ if(qbevent){evnt(21468);if(r)goto S_28069;} 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(21468);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21468);}while(r); } S_28073:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ if(qbevent){evnt(21469);if(r)goto S_28073;} 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(21469);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21469);}while(r); } S_28077:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ if(qbevent){evnt(21470);if(r)goto S_28077;} 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(21470);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21470);}while(r); } S_28081:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ if(qbevent){evnt(21471);if(r)goto S_28081;} 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(21471);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21471);}while(r); } S_28085:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ if(qbevent){evnt(21472);if(r)goto S_28085;} 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(21472);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21472);}while(r); } S_28089:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ if(qbevent){evnt(21473);if(r)goto S_28089;} 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(21473);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21473);}while(r); } S_28093:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ if(qbevent){evnt(21474);if(r)goto S_28093;} 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(21474);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21474);}while(r); } S_28097:; if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ if(qbevent){evnt(21475);if(r)goto S_28097;} 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(21475);}while(r); do{ goto LABEL_SREF; if(!qbevent)break;evnt(21475);}while(r); } LABEL_SREF:; if(qbevent){evnt(21476);r=0;} do{ *_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(21477);}while(r); S_28102:; if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(21478);if(r)goto S_28102;} 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(21478);}while(r); } S_28105:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21479);if(r)goto S_28105;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21479);}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(21480);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3013; sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); if (new_error) goto skip3013; skip3013: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21481);}while(r); S_28110:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(21482);if(r)goto S_28110;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3014; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3014; skip3014: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21482);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(21482);}while(r); } S_28114:; if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(21483);if(r)goto S_28114;} do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; if(!qbevent)break;evnt(21483);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21484);}while(r); S_28118:; 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(21486);if(r)goto S_28118;} 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(21486);}while(r); } do{ SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass3015= 11 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21487);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21489);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21492);}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(21496);}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(21500);}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(21504);}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(21508);}while(r); S_28129:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TSTR,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21513);if(r)goto S_28129;} S_28130:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISARRAY))||new_error){ if(qbevent){evnt(21514);if(r)goto S_28130;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21514);}while(r); } S_28133:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(21515);if(r)goto S_28133;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("qbs",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21515);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21515);}while(r); } do{ *_FUNC_TYP2CTYP_LONG_B=*_FUNC_TYP2CTYP_LONG_T& 511 ; if(!qbevent)break;evnt(21516);}while(r); S_28138:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUDT))||new_error){ if(qbevent){evnt(21517);if(r)goto S_28138;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("void",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21517);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21517);}while(r); } S_28142:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(21518);if(r)goto S_28142;} S_28143:; if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ if(qbevent){evnt(21519);if(r)goto S_28143;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21519);}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(21519);}while(r); } S_28148:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21520);if(r)goto S_28148;} 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(21520);}while(r); } do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21521);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21521);}while(r); } S_28154:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(21523);if(r)goto S_28154;} S_28155:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ if(qbevent){evnt(21524);if(r)goto S_28155;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21524);}while(r); } S_28158:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ if(qbevent){evnt(21525);if(r)goto S_28158;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21525);}while(r); } S_28161:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 256 ))||new_error){ if(qbevent){evnt(21526);if(r)goto S_28161;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21526);}while(r); } }else{ S_28165:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 8 ))||new_error){ if(qbevent){evnt(21528);if(r)goto S_28165;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21528);}while(r); } S_28168:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 16 ))||new_error){ if(qbevent){evnt(21529);if(r)goto S_28168;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21529);}while(r); } S_28171:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ if(qbevent){evnt(21530);if(r)goto S_28171;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21530);}while(r); } S_28174:; if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ if(qbevent){evnt(21531);if(r)goto S_28174;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21531);}while(r); } S_28177:; if ((*_FUNC_TYP2CTYP_LONG_TYP&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(21532);if(r)goto S_28177;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21532);}while(r); } S_28180:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21533);if(r)goto S_28180;} 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(21533);}while(r); } } S_28184:; if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ if(qbevent){evnt(21535);if(r)goto S_28184;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21536);}while(r); S_28186:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21536);if(r)goto S_28186;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("uptrszint",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21536);}while(r); } } do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21538);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21538);}while(r); } do{ qbs_set(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TSTR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21541);}while(r); S_28194:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(21543);if(r)goto S_28194;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("qbs",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21543);}while(r); } S_28197:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(21544);if(r)goto S_28197;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21544);}while(r); } S_28200:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(21545);if(r)goto S_28200;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21545);}while(r); } S_28203:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(21546);if(r)goto S_28203;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21546);}while(r); } S_28206:; 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(21547);if(r)goto S_28206;} do{ *_FUNC_TYP2CTYP_LONG_UNSGN= 1 ; if(!qbevent)break;evnt(21547);}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(21547);}while(r); } S_28210:; 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(21548);if(r)goto S_28210;} 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(21549);}while(r); do{ *_FUNC_TYP2CTYP_LONG_B= 1 ; if(!qbevent)break;evnt(21550);}while(r); S_28213:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21551);if(r)goto S_28213;} S_28214:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYP2CTYP_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(21552);if(r)goto S_28214;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21552);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21552);}while(r); } do{ *_FUNC_TYP2CTYP_LONG_B=qbr(func_val(_FUNC_TYP2CTYP_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21553);}while(r); S_28219:; if ((-(*_FUNC_TYP2CTYP_LONG_B> 57 ))||new_error){ if(qbevent){evnt(21554);if(r)goto S_28219;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21554);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21554);}while(r); } } S_28224:; if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ if(qbevent){evnt(21556);if(r)goto S_28224;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21556);}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(21556);}while(r); } S_28229:; if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ if(qbevent){evnt(21557);if(r)goto S_28229;} 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(21557);}while(r); } do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21558);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21558);}while(r); } S_28235:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(21560);if(r)goto S_28235;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21561);}while(r); S_28237:; if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(21561);if(r)goto S_28237;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("uptrszint",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21561);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(21562);}while(r); } S_28242:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(21564);if(r)goto S_28242;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21564);}while(r); } S_28245:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(21565);if(r)goto S_28245;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21565);}while(r); } S_28248:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(21566);if(r)goto S_28248;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21566);}while(r); } S_28251:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(21567);if(r)goto S_28251;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21567);}while(r); } S_28254:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21568);if(r)goto S_28254;} S_28255:; if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ if(qbevent){evnt(21569);if(r)goto S_28255;} 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(21569);}while(r); } do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21570);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21570);}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(21573);}while(r); S_28262:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21574);if(r)goto S_28262;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21574);}while(r); } S_28265:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_TYP2CTYP_STRING_S->len))||new_error){ if(qbevent){evnt(21575);if(r)goto S_28265;} do{ qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,FUNC_TYP2CTYP(&(pass3020= 0 ),_FUNC_TYP2CTYP_STRING_S)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21576);}while(r); S_28267:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21577);if(r)goto S_28267;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21577);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(21578);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid type",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21581);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21581);}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(21586);}while(r); S_28275:; fornext_value3023= 1 ; fornext_finalvalue3023=_FUNC_TYPE2SYMBOL_STRING_T->len; fornext_step3023= 1 ; if (fornext_step3023<0) fornext_step_negative3023=1; else fornext_step_negative3023=0; if (new_error) goto fornext_error3023; goto fornext_entrylabel3023; while(1){ fornext_value3023=fornext_step3023+(*_FUNC_TYPE2SYMBOL_LONG_I); fornext_entrylabel3023: *_FUNC_TYPE2SYMBOL_LONG_I=fornext_value3023; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3023){ if (fornext_value3023fornext_finalvalue3023) break; } fornext_error3023:; if(qbevent){evnt(21587);if(r)goto S_28275;} S_28276:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(21588);if(r)goto S_28276;} do{ sub_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(21588);}while(r); } fornext_continue_3022:; } fornext_exit_3022:; 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(21590);}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(21591);}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(21591);}while(r); S_28283:; 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(21591);if(r)goto S_28283;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21591);}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(21592);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21592);}while(r); S_28288:; 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(21592);if(r)goto S_28288;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21592);}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(21593);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21593);}while(r); S_28293:; 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(21593);if(r)goto S_28293;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21593);}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(21594);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21594);}while(r); S_28298:; 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(21594);if(r)goto S_28298;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21594);}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(21595);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21595);}while(r); S_28303:; 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(21595);if(r)goto S_28303;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21595);}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(21596);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21596);}while(r); S_28308:; 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(21596);if(r)goto S_28308;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21596);}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(21597);}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(21597);}while(r); S_28313:; 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(21597);if(r)goto S_28313;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21597);}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(21598);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21598);}while(r); S_28318:; 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(21598);if(r)goto S_28318;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21598);}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(21599);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21599);}while(r); S_28323:; 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(21599);if(r)goto S_28323;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21599);}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(21600);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21600);}while(r); S_28328:; 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(21600);if(r)goto S_28328;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21600);}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(21601);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21601);}while(r); S_28333:; 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(21601);if(r)goto S_28333;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21601);}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(21602);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21602);}while(r); S_28338:; 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(21602);if(r)goto S_28338;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21602);}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(21603);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21603);}while(r); S_28343:; 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(21603);if(r)goto S_28343;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21603);}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(21604);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21604);}while(r); S_28348:; 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(21604);if(r)goto S_28348;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21604);}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(21605);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21605);}while(r); S_28353:; 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(21605);if(r)goto S_28353;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21605);}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(21606);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21606);}while(r); S_28358:; 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(21606);if(r)goto S_28358;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21606);}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(21607);}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(21607);}while(r); S_28363:; 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(21607);if(r)goto S_28363;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21607);}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(21608);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21608);}while(r); S_28368:; 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(21608);if(r)goto S_28368;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21608);}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(21609);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21609);}while(r); S_28373:; 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(21609);if(r)goto S_28373;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21609);}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(21610);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21610);}while(r); S_28378:; 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(21610);if(r)goto S_28378;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21610);}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(21611);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21611);}while(r); S_28383:; 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(21611);if(r)goto S_28383;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21611);}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(21612);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21612);}while(r); S_28388:; 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(21612);if(r)goto S_28388;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21612);}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(21613);}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(21613);}while(r); S_28393:; 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(21613);if(r)goto S_28393;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21613);}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(21614);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21614);}while(r); S_28398:; 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(21614);if(r)goto S_28398;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21614);}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(21615);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21615);}while(r); S_28403:; 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(21615);if(r)goto S_28403;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21615);}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(21616);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21616);}while(r); S_28408:; 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(21616);if(r)goto S_28408;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21616);}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(21617);}while(r); do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21617);}while(r); S_28413:; 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(21617);if(r)goto S_28413;} do{ goto LABEL_T2SFOUND; if(!qbevent)break;evnt(21617);}while(r); } do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21618);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21618);}while(r); LABEL_T2SFOUND:; if(qbevent){evnt(21619);r=0;} do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21620);}while(r); S_28419:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_TYPE2SYMBOL_STRING_T2->len!=_FUNC_TYPE2SYMBOL_STRING_T->len)))||new_error){ if(qbevent){evnt(21621);if(r)goto S_28419;} S_28420:; 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(21622);if(r)goto S_28420;} do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21622);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21622);}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(21623);}while(r); S_28425:; 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(21624);if(r)goto S_28425;} do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21624);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21624);}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(21625);}while(r); S_28430:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPE2SYMBOL_STRING_T)== 0 )))||new_error){ if(qbevent){evnt(21626);if(r)goto S_28430;} do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21626);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21626);}while(r); } do{ *_FUNC_TYPE2SYMBOL_LONG_V=qbr(func_val(_FUNC_TYPE2SYMBOL_STRING_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21627);}while(r); S_28435:; if ((-(*_FUNC_TYPE2SYMBOL_LONG_V== 0 ))||new_error){ if(qbevent){evnt(21628);if(r)goto S_28435;} do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21628);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21628);}while(r); } S_28439:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(-(*_FUNC_TYPE2SYMBOL_LONG_V> 56 ))))||new_error){ if(qbevent){evnt(21629);if(r)goto S_28439;} do{ SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21629);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21629);}while(r); } S_28443:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(21630);if(r)goto S_28443;} 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(21631);}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(21633);}while(r); } do{ qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21635);}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(21641);}while(r); S_28451:; if (((*_FUNC_TYPECOMP_LONG_TYP2&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ if(qbevent){evnt(21642);if(r)goto S_28451;} do{ *_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP2-*__LONG_ISINCONVENTIONALMEMORY; if(!qbevent)break;evnt(21642);}while(r); } do{ *_FUNC_TYPECOMP_LONG_TYPECOMP=*_FUNC_TYPECOMP_LONG_TYP2; if(!qbevent)break;evnt(21643);}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(21647);}while(r); do{ qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21649);}while(r); do{ qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21652);}while(r); S_28458:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(21653);if(r)goto S_28458;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; if(!qbevent)break;evnt(21653);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21653);}while(r); } S_28462:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(21654);if(r)goto S_28462;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; if(!qbevent)break;evnt(21654);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21654);}while(r); } S_28466:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(21655);if(r)goto S_28466;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; if(!qbevent)break;evnt(21655);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21655);}while(r); } S_28470:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(21656);if(r)goto S_28470;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; if(!qbevent)break;evnt(21656);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21656);}while(r); } S_28474:; 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(21659);if(r)goto S_28474;} 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(21660);}while(r); S_28476:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(21661);if(r)goto S_28476;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21661);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21661);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21662);}while(r); S_28481:; if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||new_error){ if(qbevent){evnt(21663);if(r)goto S_28481;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21663);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21663);}while(r); } do{ *__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; if(!qbevent)break;evnt(21664);}while(r); do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(21665);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21666);}while(r); } S_28489:; 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(21670);if(r)goto S_28489;} do{ *_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ; if(!qbevent)break;evnt(21670);}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(21670);}while(r); } S_28493:; 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(21673);if(r)goto S_28493;} 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(21674);}while(r); do{ *_FUNC_TYPNAME2TYP_LONG_B= 1 ; if(!qbevent)break;evnt(21675);}while(r); S_28496:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21676);if(r)goto S_28496;} S_28497:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(21677);if(r)goto S_28497;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21677);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21677);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21678);}while(r); S_28502:; if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 56 ))||new_error){ if(qbevent){evnt(21679);if(r)goto S_28502;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21679);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21679);}while(r); } } S_28507:; if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ if(qbevent){evnt(21681);if(r)goto S_28507;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); if(!qbevent)break;evnt(21681);}while(r); }else{ do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); if(!qbevent)break;evnt(21681);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(21682);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_T= 0 ; if(!qbevent)break;evnt(21685);}while(r); S_28515:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(21686);if(r)goto S_28515;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; if(!qbevent)break;evnt(21686);}while(r); } S_28518:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(21687);if(r)goto S_28518;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; if(!qbevent)break;evnt(21687);}while(r); } S_28521:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(21688);if(r)goto S_28521;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; if(!qbevent)break;evnt(21688);}while(r); } S_28524:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(21689);if(r)goto S_28524;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; if(!qbevent)break;evnt(21689);}while(r); } S_28527:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(21690);if(r)goto S_28527;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; if(!qbevent)break;evnt(21690);}while(r); } S_28530:; if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ if(qbevent){evnt(21692);if(r)goto S_28530;} S_28531:; if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ if(qbevent){evnt(21693);if(r)goto S_28531;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(21693);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; if(!qbevent)break;evnt(21694);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21694);}while(r); } S_28537:; fornext_value3063= 1 ; fornext_finalvalue3063=_FUNC_TYPNAME2TYP_STRING_T->len; 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_TYPNAME2TYP_LONG_I); fornext_entrylabel3063: *_FUNC_TYPNAME2TYP_LONG_I=fornext_value3063; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3063){ if (fornext_value3063fornext_finalvalue3063) break; } fornext_error3063:; if(qbevent){evnt(21699);if(r)goto S_28537;} S_28538:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(21700);if(r)goto S_28538;} do{ sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(21700);}while(r); } fornext_continue_3062:; } fornext_exit_3062:; S_28542:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||new_error){ if(qbevent){evnt(21702);if(r)goto S_28542;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; if(!qbevent)break;evnt(21702);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21702);}while(r); } S_28546:; 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(21704);if(r)goto S_28546;} 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(21706);}while(r); do{ *_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ; if(!qbevent)break;evnt(21709);}while(r); do{ qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21710);}while(r); do{ *_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024 ; if(!qbevent)break;evnt(21711);}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(21712);}while(r); S_28552:; while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||new_error){ if(qbevent){evnt(21713);if(r)goto S_28552;} S_28553:; 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(21714);if(r)goto S_28553;} S_28554:; 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(21715);if(r)goto S_28554;} do{ *_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ; if(!qbevent)break;evnt(21716);}while(r); do{ goto dl_exit_3066; if(!qbevent)break;evnt(21717);}while(r); } } S_28559:; if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(21720);if(r)goto S_28559;} do{ *_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); if(!qbevent)break;evnt(21720);}while(r); }else{ do{ *_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(21720);}while(r); } dl_continue_3066:; } dl_exit_3066:; S_28565:; if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||new_error){ if(qbevent){evnt(21722);if(r)goto S_28565;} do{ *_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF; if(!qbevent)break;evnt(21723);}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(21724);}while(r); S_28568:; if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(21725);if(r)goto S_28568;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21725);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21725);}while(r); } S_28572:; if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(21727);if(r)goto S_28572;} 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(21728);}while(r); do{ *_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V); if(!qbevent)break;evnt(21729);}while(r); do{ *_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; if(!qbevent)break;evnt(21730);}while(r); }else{ S_28577:; if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(21732);if(r)goto S_28577;} 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(21733);}while(r); do{ *_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V; if(!qbevent)break;evnt(21734);}while(r); do{ *_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; if(!qbevent)break;evnt(21735);}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(21737);}while(r); do{ *_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; if(!qbevent)break;evnt(21738);}while(r); do{ *_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; if(!qbevent)break;evnt(21739);}while(r); } } S_28587:; if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||new_error){ if(qbevent){evnt(21742);if(r)goto S_28587;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21742);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21742);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V; if(!qbevent)break;evnt(21743);}while(r); do{ goto LABEL_CONSTANTLENSTR; if(!qbevent)break;evnt(21744);}while(r); } S_28594:; if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ if(qbevent){evnt(21747);if(r)goto S_28594;} 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(21747);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21747);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21748);}while(r); S_28599:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ if(qbevent){evnt(21749);if(r)goto S_28599;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21749);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21749);}while(r); } LABEL_CONSTANTLENSTR:; if(qbevent){evnt(21750);r=0;} do{ *__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; if(!qbevent)break;evnt(21751);}while(r); do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; if(!qbevent)break;evnt(21752);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21753);}while(r); } S_28607:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||new_error){ if(qbevent){evnt(21756);if(r)goto S_28607;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; if(!qbevent)break;evnt(21756);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21756);}while(r); } S_28611:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||new_error){ if(qbevent){evnt(21757);if(r)goto S_28611;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; if(!qbevent)break;evnt(21757);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21757);}while(r); } S_28615:; 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(21758);if(r)goto S_28615;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; if(!qbevent)break;evnt(21758);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21758);}while(r); } S_28619:; 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(21759);if(r)goto S_28619;} do{ *_FUNC_TYPNAME2TYP_LONG_U= 1 ; if(!qbevent)break;evnt(21760);}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(21761);}while(r); } S_28623:; 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(21763);if(r)goto S_28623;} S_28624:; 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(21764);if(r)goto S_28624;} S_28625:; if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ if(qbevent){evnt(21765);if(r)goto S_28625;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE; if(!qbevent)break;evnt(21765);}while(r); }else{ do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE; if(!qbevent)break;evnt(21765);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(21766);}while(r); } S_28632:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 6 ),qbs_new_txt_len("BIT * ",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ if(qbevent){evnt(21768);if(r)goto S_28632;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21768);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21768);}while(r); } 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(21770);}while(r); S_28637:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(21771);if(r)goto S_28637;} 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(21771);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21771);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21772);}while(r); S_28642:; if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 56 )))||new_error){ if(qbevent){evnt(21773);if(r)goto S_28642;} 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(21773);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21773);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B; if(!qbevent)break;evnt(21774);}while(r); S_28647:; if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ if(qbevent){evnt(21774);if(r)goto S_28647;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(21774);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; if(!qbevent)break;evnt(21775);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21776);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_T= 0 ; if(!qbevent)break;evnt(21779);}while(r); S_28654:; 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(21780);if(r)goto S_28654;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; if(!qbevent)break;evnt(21780);}while(r); } S_28657:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||new_error){ if(qbevent){evnt(21781);if(r)goto S_28657;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; if(!qbevent)break;evnt(21781);}while(r); } S_28660:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||new_error){ if(qbevent){evnt(21782);if(r)goto S_28660;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; if(!qbevent)break;evnt(21782);}while(r); } S_28663:; 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(21783);if(r)goto S_28663;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; if(!qbevent)break;evnt(21783);}while(r); } S_28666:; 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(21784);if(r)goto S_28666;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; if(!qbevent)break;evnt(21784);}while(r); } S_28669:; if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ if(qbevent){evnt(21785);if(r)goto S_28669;} S_28670:; if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ if(qbevent){evnt(21786);if(r)goto S_28670;} do{ *_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(21786);}while(r); } do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; if(!qbevent)break;evnt(21787);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21788);}while(r); } S_28676:; if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ if(qbevent){evnt(21790);if(r)goto S_28676;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21790);}while(r); } S_28679:; fornext_value3071= 1 ; fornext_finalvalue3071=*__LONG_LASTTYPE; fornext_step3071= 1 ; if (fornext_step3071<0) fornext_step_negative3071=1; else fornext_step_negative3071=0; if (new_error) goto fornext_error3071; goto fornext_entrylabel3071; while(1){ fornext_value3071=fornext_step3071+(*_FUNC_TYPNAME2TYP_LONG_I); fornext_entrylabel3071: *_FUNC_TYPNAME2TYP_LONG_I=fornext_value3071; if (fornext_step_negative3071){ if (fornext_value3071fornext_finalvalue3071) break; } fornext_error3071:; if(qbevent){evnt(21793);if(r)goto S_28679;} S_28680:; 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(21794);if(r)goto S_28680;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; if(!qbevent)break;evnt(21795);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21796);}while(r); S_28683:; }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(21797);if(r)goto S_28683;} do{ *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; if(!qbevent)break;evnt(21798);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21799);}while(r); } } fornext_continue_3070:; } fornext_exit_3070:; 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(21807);}while(r); do{ *_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER=*__LONG_UNIQUENUMBERN; if(!qbevent)break;evnt(21808);}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(21812);}while(r); do{ *__LONG_CREATINGLABEL= 0 ; if(!qbevent)break;evnt(21812);}while(r); do{ *_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ; if(!qbevent)break;evnt(21813);}while(r); S_28693:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||new_error){ if(qbevent){evnt(21814);if(r)goto S_28693;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21814);}while(r); } do{ qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21815);}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(21816);}while(r); do{ *_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21818);}while(r); S_28699:; if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||new_error){ if(qbevent){evnt(21820);if(r)goto S_28699;} do{ *_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3074= 8 + 64 + 128 ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21823);}while(r); S_28701:; while((*_FUNC_VALIDLABEL_LONG_HASHRES)||new_error){ if(qbevent){evnt(21824);if(r)goto S_28701;} S_28702:; if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ if(qbevent){evnt(21825);if(r)goto S_28702;} S_28703:; if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+548)))||new_error){ if(qbevent){evnt(21826);if(r)goto S_28703;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21826);}while(r); } S_28706:; if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64 )||new_error){ if(qbevent){evnt(21828);if(r)goto S_28706;} S_28707:; 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]))*2861+1613)),256,1))== 32 )))||new_error){ if(qbevent){evnt(21831);if(r)goto S_28707;} S_28708:; if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2861+809))== 0 ))||new_error){ if(qbevent){evnt(21832);if(r)goto S_28708;} do{ *_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; if(!qbevent)break;evnt(21832);}while(r); }else{ do{ *_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; if(!qbevent)break;evnt(21832);}while(r); } }else{ S_28714:; 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]))*2861+1613)),256,1))!= 91 )))||new_error){ if(qbevent){evnt(21834);if(r)goto S_28714;} do{ *_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; if(!qbevent)break;evnt(21835);}while(r); }else{ do{ *_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; if(!qbevent)break;evnt(21837);}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]))*2861+1613)),256,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21838);}while(r); do{ *_FUNC_VALIDLABEL_LONG_B= 1 ; if(!qbevent)break;evnt(21839);}while(r); S_28720:; fornext_value3077= 2 ; fornext_finalvalue3077=_FUNC_VALIDLABEL_STRING_A->len; fornext_step3077= 1 ; if (fornext_step3077<0) fornext_step_negative3077=1; else fornext_step_negative3077=0; if (new_error) goto fornext_error3077; goto fornext_entrylabel3077; while(1){ fornext_value3077=fornext_step3077+(*_FUNC_VALIDLABEL_LONG_X); fornext_entrylabel3077: *_FUNC_VALIDLABEL_LONG_X=fornext_value3077; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3077){ if (fornext_value3077fornext_finalvalue3077) break; } fornext_error3077:; if(qbevent){evnt(21840);if(r)goto S_28720;} 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(21841);}while(r); S_28722:; if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||new_error){ if(qbevent){evnt(21842);if(r)goto S_28722;} do{ *_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ; if(!qbevent)break;evnt(21842);}while(r); } S_28725:; if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||new_error){ if(qbevent){evnt(21843);if(r)goto S_28725;} do{ *_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ; if(!qbevent)break;evnt(21843);}while(r); } S_28728:; 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(21844);if(r)goto S_28728;} do{ *_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; if(!qbevent)break;evnt(21844);}while(r); do{ goto fornext_exit_3076; if(!qbevent)break;evnt(21844);}while(r); } fornext_continue_3076:; } fornext_exit_3076:; } } S_28735:; if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||new_error){ if(qbevent){evnt(21848);if(r)goto S_28735;} S_28736:; 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(21849);if(r)goto S_28736;} 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(21849);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21849);}while(r); } } } }else{ do{ goto exit_subfunc; if(!qbevent)break;evnt(21856);}while(r); } S_28745:; if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||new_error){ if(qbevent){evnt(21858);if(r)goto S_28745;} do{ *_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); if(!qbevent)break;evnt(21858);}while(r); }else{ do{ *_FUNC_VALIDLABEL_LONG_HASHRES= 0 ; if(!qbevent)break;evnt(21858);}while(r); } dl_continue_3075:; } dl_exit_3075:; do{ qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21865);}while(r); do{ *_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21867);}while(r); S_28753:; if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||new_error){ if(qbevent){evnt(21868);if(r)goto S_28753;} 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(21871);}while(r); S_28755:; if ((*_FUNC_VALIDLABEL_LONG_X)||new_error){ if(qbevent){evnt(21872);if(r)goto S_28755;} 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(21873);}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(21878);}while(r); S_28759:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21879);if(r)goto S_28759;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21879);}while(r); } S_28762:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||new_error){ if(qbevent){evnt(21880);if(r)goto S_28762;} S_28763:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||new_error){ if(qbevent){evnt(21881);if(r)goto S_28763;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21881);}while(r); } S_28766:; 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(21882);if(r)goto S_28766;} do{ qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21882);}while(r); } } S_28770:; if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ if(qbevent){evnt(21885);if(r)goto S_28770;} do{ *_FUNC_VALIDLABEL_LONG_DP= 1 ; if(!qbevent)break;evnt(21885);}while(r); } S_28773:; fornext_value3083= 2 ; fornext_finalvalue3083=_FUNC_VALIDLABEL_STRING_T->len; fornext_step3083= 1 ; if (fornext_step3083<0) fornext_step_negative3083=1; else fornext_step_negative3083=0; if (new_error) goto fornext_error3083; goto fornext_entrylabel3083; while(1){ fornext_value3083=fornext_step3083+(*_FUNC_VALIDLABEL_LONG_X); fornext_entrylabel3083: *_FUNC_VALIDLABEL_LONG_X=fornext_value3083; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3083){ if (fornext_value3083fornext_finalvalue3083) break; } fornext_error3083:; if(qbevent){evnt(21886);if(r)goto S_28773;} do{ *_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21887);}while(r); S_28775:; if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ if(qbevent){evnt(21888);if(r)goto S_28775;} do{ *_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ; if(!qbevent)break;evnt(21888);}while(r); } S_28778:; if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||new_error){ if(qbevent){evnt(21889);if(r)goto S_28778;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21889);}while(r); } fornext_continue_3082:; } fornext_exit_3082:; S_28782:; if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||new_error){ if(qbevent){evnt(21891);if(r)goto S_28782;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21891);}while(r); } S_28785:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||new_error){ if(qbevent){evnt(21892);if(r)goto S_28785;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21892);}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(21894);}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(21896);}while(r); S_28790:; if ((*_FUNC_VALIDLABEL_LONG_I)||new_error){ if(qbevent){evnt(21896);if(r)goto S_28790;} do{ sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1); if(!qbevent)break;evnt(21896);}while(r); } S_28793:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(21897);if(r)goto S_28793;} 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(21897);}while(r); } S_28796:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(21898);if(r)goto S_28796;} 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(21898);}while(r); } S_28799:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||new_error){ if(qbevent){evnt(21900);if(r)goto S_28799;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21900);}while(r); } do{ qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21902);}while(r); do{ *_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; if(!qbevent)break;evnt(21903);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21904);}while(r); } } S_28807:; if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||new_error){ if(qbevent){evnt(21913);if(r)goto S_28807;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21913);}while(r); } S_28810:; fornext_value3088= 2 ; fornext_finalvalue3088=*_FUNC_VALIDLABEL_LONG_N- 1 ; fornext_step3088= 2 ; 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_VALIDLABEL_LONG_NX); fornext_entrylabel3088: *_FUNC_VALIDLABEL_LONG_NX=fornext_value3088; if (fornext_step_negative3088){ if (fornext_value3088fornext_finalvalue3088) break; } fornext_error3088:; if(qbevent){evnt(21914);if(r)goto S_28810;} 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(21915);}while(r); S_28812:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||new_error){ if(qbevent){evnt(21916);if(r)goto S_28812;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21916);}while(r); } fornext_continue_3087:; } fornext_exit_3087:; do{ *_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21920);}while(r); S_28817:; if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(21920);if(r)goto S_28817;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21920);}while(r); } do{ qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21923);}while(r); S_28821:; fornext_value3090= 1 ; fornext_finalvalue3090=*_FUNC_VALIDLABEL_LONG_N; fornext_step3090= 2 ; 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_VALIDLABEL_LONG_NX); fornext_entrylabel3090: *_FUNC_VALIDLABEL_LONG_NX=fornext_value3090; if (fornext_step_negative3090){ if (fornext_value3090fornext_finalvalue3090) break; } fornext_error3090:; if(qbevent){evnt(21924);if(r)goto S_28821;} 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(21925);}while(r); S_28823:; fornext_value3092= 1 ; fornext_finalvalue3092=_FUNC_VALIDLABEL_STRING_LABEL->len; 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_VALIDLABEL_LONG_X); fornext_entrylabel3092: *_FUNC_VALIDLABEL_LONG_X=fornext_value3092; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3092){ if (fornext_value3092fornext_finalvalue3092) break; } fornext_error3092:; if(qbevent){evnt(21928);if(r)goto S_28823;} S_28824:; 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(21929);if(r)goto S_28824;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21929);}while(r); } fornext_continue_3091:; } fornext_exit_3091:; S_28828:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21933);if(r)goto S_28828;} do{ qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21933);}while(r); do{ qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21933);}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(21933);}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(21933);}while(r); } fornext_continue_3089:; } fornext_exit_3089:; do{ *_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; if(!qbevent)break;evnt(21936);}while(r); do{ qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21937);}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; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3094; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_end();",10), 0 , 0 , 1 ); if (new_error) goto skip3094; skip3094: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21943);}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(&(pass3097=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21947);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3098; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=2;",18), 0 , 0 , 1 ); if (new_error) goto skip3098; skip3098: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21948);}while(r); S_28841:; if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||new_error){ if(qbevent){evnt(21949);if(r)goto S_28841;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21949);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21949);}while(r); } do{ qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21950);}while(r); do{ *_SUB_XFILEPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(21951);}while(r); S_28847:; fornext_value3100= 3 ; fornext_finalvalue3100=*_SUB_XFILEPRINT_LONG_N; fornext_step3100= 1 ; if (fornext_step3100<0) fornext_step_negative3100=1; else fornext_step_negative3100=0; if (new_error) goto fornext_error3100; goto fornext_entrylabel3100; while(1){ fornext_value3100=fornext_step3100+(*_SUB_XFILEPRINT_LONG_I); fornext_entrylabel3100: *_SUB_XFILEPRINT_LONG_I=fornext_value3100; if (fornext_step_negative3100){ if (fornext_value3100fornext_finalvalue3100) break; } fornext_error3100:; if(qbevent){evnt(21952);if(r)goto S_28847;} 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(21953);}while(r); S_28849:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(21954);if(r)goto S_28849;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(21954);}while(r); } S_28852:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(21955);if(r)goto S_28852;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(21955);}while(r); } S_28855:; 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(21956);if(r)goto S_28855;} S_28856:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21957);if(r)goto S_28856;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21957);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21957);}while(r); } do{ goto LABEL_PRINTGOTFN; if(!qbevent)break;evnt(21958);}while(r); } S_28862:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(21960);if(r)goto S_28862;} do{ qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21960);}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(21960);}while(r); } fornext_continue_3099:; } fornext_exit_3099:; do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21962);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21962);}while(r); LABEL_PRINTGOTFN:; if(qbevent){evnt(21963);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(21964);}while(r); S_28871:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21965);if(r)goto S_28871;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21965);}while(r); } do{ qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(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(21966);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3101= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21967);}while(r); S_28876:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21968);if(r)goto S_28876;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21968);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3102; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3102; skip3102: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21969);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3103; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3103; skip3103: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(21970);}while(r); do{ *_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ; if(!qbevent)break;evnt(21971);}while(r); S_28882:; if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||new_error){ if(qbevent){evnt(21974);if(r)goto S_28882;} S_28883:; 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(21975);if(r)goto S_28883;} LABEL_FPUJUMP:; if(qbevent){evnt(21977);r=0;} do{ qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),qbs_new_txt_len("USING",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21978);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21979);}while(r); do{ *_SUB_XFILEPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(21979);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21979);}while(r); S_28888:; fornext_value3105=*_SUB_XFILEPRINT_LONG_I+ 1 ; fornext_finalvalue3105=*_SUB_XFILEPRINT_LONG_N; fornext_step3105= 1 ; if (fornext_step3105<0) fornext_step_negative3105=1; else fornext_step_negative3105=0; if (new_error) goto fornext_error3105; goto fornext_entrylabel3105; while(1){ fornext_value3105=fornext_step3105+(*_SUB_XFILEPRINT_LONG_I); fornext_entrylabel3105: *_SUB_XFILEPRINT_LONG_I=fornext_value3105; if (fornext_step_negative3105){ if (fornext_value3105fornext_finalvalue3105) break; } fornext_error3105:; if(qbevent){evnt(21980);if(r)goto S_28888;} 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(21981);}while(r); S_28890:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(21982);if(r)goto S_28890;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(21982);}while(r); } S_28893:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(21983);if(r)goto S_28893;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(21983);}while(r); } S_28896:; if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(21984);if(r)goto S_28896;} S_28897:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(21985);if(r)goto S_28897;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21985);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21985);}while(r); } S_28901:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(21986);if(r)goto S_28901;} do{ qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21987);}while(r); S_28903:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21988);if(r)goto S_28903;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21988);}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(21989);}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(21990);}while(r); S_28908:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21991);if(r)goto S_28908;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21991);}while(r); } S_28911:; if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(21992);if(r)goto S_28911;} do{ qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3106= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21992);}while(r); } S_28914:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(21993);if(r)goto S_28914;} do{ goto exit_subfunc; if(!qbevent)break;evnt(21993);}while(r); } S_28917:; if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(21994);if(r)goto S_28917;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21994);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(21994);}while(r); } do{ qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21995);}while(r); do{ goto fornext_exit_3104; if(!qbevent)break;evnt(21996);}while(r); } } S_28925:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(21999);if(r)goto S_28925;} 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(21999);}while(r); }else{ do{ qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(21999);}while(r); } fornext_continue_3104:; } fornext_exit_3104:; S_28931:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22001);if(r)goto S_28931;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22001);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22001);}while(r); } S_28935:; if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||new_error){ if(qbevent){evnt(22002);if(r)goto S_28935;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22002);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22002);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3108; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); if (new_error) goto skip3108; skip3108: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22004);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3109; sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); if (new_error) goto skip3109; skip3109: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22006);}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(22008);}while(r); S_28942:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22009);if(r)goto S_28942;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3110; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3110; skip3110: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22010);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3111; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3111; skip3111: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22012);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3112; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3112; skip3112: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22014);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3113; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3113; skip3113: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22015);}while(r); do{ *_SUB_XFILEPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(22017);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22018);}while(r); do{ *_SUB_XFILEPRINT_LONG_LAST= 0 ; if(!qbevent)break;evnt(22019);}while(r); S_28952:; fornext_value3115=*_SUB_XFILEPRINT_LONG_I+ 1 ; fornext_finalvalue3115=*_SUB_XFILEPRINT_LONG_N; fornext_step3115= 1 ; if (fornext_step3115<0) fornext_step_negative3115=1; else fornext_step_negative3115=0; if (new_error) goto fornext_error3115; goto fornext_entrylabel3115; while(1){ fornext_value3115=fornext_step3115+(*_SUB_XFILEPRINT_LONG_I); fornext_entrylabel3115: *_SUB_XFILEPRINT_LONG_I=fornext_value3115; if (fornext_step_negative3115){ if (fornext_value3115fornext_finalvalue3115) break; } fornext_error3115:; if(qbevent){evnt(22020);if(r)goto S_28952;} 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(22021);}while(r); S_28954:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22022);if(r)goto S_28954;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(22022);}while(r); } S_28957:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22023);if(r)goto S_28957;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(22023);}while(r); } S_28960:; if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22024);if(r)goto S_28960;} S_28961:; 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(22025);if(r)goto S_28961;} LABEL_FPRINTULAST:; if(qbevent){evnt(22026);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(22027);}while(r); S_28963:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22028);if(r)goto S_28963;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22028);}while(r); } S_28966:; if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22029);if(r)goto S_28966;} 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(22029);}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(22029);}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(22030);}while(r); S_28972:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22031);if(r)goto S_28972;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22031);}while(r); } S_28975:; if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22032);if(r)goto S_28975;} do{ qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3116= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22032);}while(r); } S_28978:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22033);if(r)goto S_28978;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22033);}while(r); } S_28981:; if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(22034);if(r)goto S_28981;} S_28982:; 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(22036);if(r)goto S_28982;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3117; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); if (new_error) goto skip3117; skip3117: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22041);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3118; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip3118; skip3118: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22043);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3119; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3119; skip3119: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22044);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3120; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); if (new_error) goto skip3120; skip3120: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22045);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3121; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); if (new_error) goto skip3121; skip3121: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22047);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3122; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3122; skip3122: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22052);}while(r); } }else{ S_28992:; if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(22057);if(r)goto S_28992;} S_28993:; if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(22058);if(r)goto S_28993;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3123; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3123; skip3123: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22058);}while(r); } S_28996:; if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(22059);if(r)goto S_28996;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3124; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3124; skip3124: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22059);}while(r); } S_28999:; if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||new_error){ if(qbevent){evnt(22060);if(r)goto S_28999;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3125; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3125; skip3125: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22060);}while(r); } }else{ S_29003:; if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ if(qbevent){evnt(22062);if(r)goto S_29003;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3126; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3126; skip3126: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22063);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3127; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3127; skip3127: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22065);}while(r); } } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3128; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3128; skip3128: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22069);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22070);}while(r); S_29012:; if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22071);if(r)goto S_29012;} do{ goto fornext_exit_3114; if(!qbevent)break;evnt(22071);}while(r); } do{ goto LABEL_FPRINTUNEXT; if(!qbevent)break;evnt(22072);}while(r); } } S_29018:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22075);if(r)goto S_29018;} 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(22075);}while(r); }else{ do{ qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22075);}while(r); } LABEL_FPRINTUNEXT:; if(qbevent){evnt(22076);r=0;} fornext_continue_3114:; } fornext_exit_3114:; S_29024:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22078);if(r)goto S_29024;} do{ qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22078);}while(r); do{ *_SUB_XFILEPRINT_LONG_LAST= 1 ; if(!qbevent)break;evnt(22078);}while(r); do{ goto LABEL_FPRINTULAST; if(!qbevent)break;evnt(22078);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3130; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3130; skip3130: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22079);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3131; sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); if (new_error) goto skip3131; skip3131: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22081);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3132; sub_file_print(tmp_fileno,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), 0 , 0 , 1 ); if (new_error) goto skip3132; skip3132: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22082);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3133; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip3133; skip3133: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22083);}while(r); S_29033:; 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(22084);if(r)goto S_29033;} do{ *_SUB_XFILEPRINT_LONG_NL= 0 ; if(!qbevent)break;evnt(22084);}while(r); }else{ do{ *_SUB_XFILEPRINT_LONG_NL= 1 ; if(!qbevent)break;evnt(22084);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3134; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3134; skip3134: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22085);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3135; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip3135; skip3135: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22086);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3136; sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); if (new_error) goto skip3136; skip3136: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22087);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3137; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip3137; skip3137: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22088);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3138; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3138; skip3138: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22089);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3139; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3139; skip3139: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22090);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3140; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); if (new_error) goto skip3140; skip3140: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22091);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22092);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22093);}while(r); } } S_29049:; if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||new_error){ if(qbevent){evnt(22098);if(r)goto S_29049;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3141; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); if (new_error) goto skip3141; skip3141: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22099);}while(r); do{ goto LABEL_PRINTBLANKLINE; if(!qbevent)break;evnt(22100);}while(r); } do{ *_SUB_XFILEPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(22102);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22103);}while(r); do{ *_SUB_XFILEPRINT_LONG_LAST= 0 ; if(!qbevent)break;evnt(22104);}while(r); S_29056:; fornext_value3143=*_SUB_XFILEPRINT_LONG_I; fornext_finalvalue3143=*_SUB_XFILEPRINT_LONG_N; fornext_step3143= 1 ; if (fornext_step3143<0) fornext_step_negative3143=1; else fornext_step_negative3143=0; if (new_error) goto fornext_error3143; goto fornext_entrylabel3143; while(1){ fornext_value3143=fornext_step3143+(*_SUB_XFILEPRINT_LONG_I); fornext_entrylabel3143: *_SUB_XFILEPRINT_LONG_I=fornext_value3143; if (fornext_step_negative3143){ if (fornext_value3143fornext_finalvalue3143) break; } fornext_error3143:; if(qbevent){evnt(22105);if(r)goto S_29056;} 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(22106);}while(r); S_29058:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22107);if(r)goto S_29058;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(22107);}while(r); } S_29061:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22108);if(r)goto S_29061;} do{ *_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(22108);}while(r); } S_29064:; if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22109);if(r)goto S_29064;} S_29065:; 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(22110);if(r)goto S_29065;} LABEL_PRINTFILELAST:; if(qbevent){evnt(22111);r=0;} S_29066:; 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(22113);if(r)goto S_29066;} S_29067:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22114);if(r)goto S_29067;} do{ *_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ; if(!qbevent)break;evnt(22114);}while(r); }else{ do{ goto LABEL_FPUJUMP; if(!qbevent)break;evnt(22114);}while(r); } } S_29073:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22117);if(r)goto S_29073;} do{ *_SUB_XFILEPRINT_LONG_USETAB= 1 ; if(!qbevent)break;evnt(22117);}while(r); }else{ do{ *_SUB_XFILEPRINT_LONG_USETAB= 0 ; if(!qbevent)break;evnt(22117);}while(r); } S_29078:; if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||new_error){ if(qbevent){evnt(22118);if(r)goto S_29078;} do{ *_SUB_XFILEPRINT_LONG_NEWLINE= 1 ; if(!qbevent)break;evnt(22118);}while(r); }else{ do{ *_SUB_XFILEPRINT_LONG_NEWLINE= 0 ; if(!qbevent)break;evnt(22118);}while(r); } do{ *_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ; if(!qbevent)break;evnt(22119);}while(r); S_29084:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22121);if(r)goto S_29084;} do{ qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22122);}while(r); do{ *_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ; if(!qbevent)break;evnt(22123);}while(r); LABEL_PRINTFILENUMBER:; if(qbevent){evnt(22124);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(22125);}while(r); S_29088:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22126);if(r)goto S_29088;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22126);}while(r); } S_29091:; if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||new_error){ if(qbevent){evnt(22127);if(r)goto S_29091;} S_29092:; if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22128);if(r)goto S_29092;} 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(22128);}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(22128);}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(22130);}while(r); S_29099:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22131);if(r)goto S_29099;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22131);}while(r); } S_29102:; if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(22132);if(r)goto S_29102;} 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(22133);}while(r); do{ *_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ; if(!qbevent)break;evnt(22134);}while(r); do{ *_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ; if(!qbevent)break;evnt(22135);}while(r); do{ goto LABEL_PRINTFILENUMBER; if(!qbevent)break;evnt(22136);}while(r); } S_29108:; if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22138);if(r)goto S_29108;} do{ qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3145= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22138);}while(r); } S_29111:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22139);if(r)goto S_29111;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22139);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE)), 1 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB)), 1 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE)), 1 , 0 , 0 ); if (new_error) goto skip3146; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip3146; skip3146: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22141);}while(r); }else{ S_29116:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22143);if(r)goto S_29116;} 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(22143);}while(r); } S_29119:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(22144);if(r)goto S_29119;} S_29120:; 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(22145);if(r)goto S_29120;} 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(22145);}while(r); } } S_29124:; if ((*_SUB_XFILEPRINT_LONG_USETAB)||new_error){ if(qbevent){evnt(22147);if(r)goto S_29124;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3147; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47), 0 , 0 , 1 ); if (new_error) goto skip3147; skip3147: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22147);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3148; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3148; skip3148: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22149);}while(r); do{ qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22151);}while(r); S_29130:; if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||new_error){ if(qbevent){evnt(22152);if(r)goto S_29130;} do{ goto LABEL_FPUJUMP; if(!qbevent)break;evnt(22152);}while(r); } S_29133:; if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22153);if(r)goto S_29133;} do{ goto fornext_exit_3142; if(!qbevent)break;evnt(22153);}while(r); } do{ goto LABEL_PRINTFILENEXT; if(!qbevent)break;evnt(22154);}while(r); } } S_29139:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22157);if(r)goto S_29139;} 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(22157);}while(r); }else{ do{ qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22157);}while(r); } LABEL_PRINTFILENEXT:; if(qbevent){evnt(22158);r=0;} fornext_continue_3142:; } fornext_exit_3142:; S_29145:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22160);if(r)goto S_29145;} do{ qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22160);}while(r); do{ *_SUB_XFILEPRINT_LONG_LAST= 1 ; if(!qbevent)break;evnt(22160);}while(r); do{ goto LABEL_PRINTFILELAST; if(!qbevent)break;evnt(22160);}while(r); } LABEL_PRINTBLANKLINE:; if(qbevent){evnt(22161);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3149; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3149; skip3149: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22162);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3150; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3150; skip3150: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22163);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3151; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); if (new_error) goto skip3151; skip3151: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22164);}while(r); do{ qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22165);}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(qbs_new_txt_len("WRITE",5),__STRING1_SP),qbs_new_txt_len("#",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22169);}while(r); do{ qbs_set(_SUB_XFILEWRITE_STRING_U,FUNC_STR2(&(pass3153=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22170);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3154; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=2;",18), 0 , 0 , 1 ); if (new_error) goto skip3154; skip3154: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22171);}while(r); S_29157:; if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||new_error){ if(qbevent){evnt(22172);if(r)goto S_29157;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22172);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22172);}while(r); } do{ qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22173);}while(r); do{ *_SUB_XFILEWRITE_LONG_B= 0 ; if(!qbevent)break;evnt(22174);}while(r); S_29163:; fornext_value3156= 3 ; fornext_finalvalue3156=*_SUB_XFILEWRITE_LONG_N; fornext_step3156= 1 ; if (fornext_step3156<0) fornext_step_negative3156=1; else fornext_step_negative3156=0; if (new_error) goto fornext_error3156; goto fornext_entrylabel3156; while(1){ fornext_value3156=fornext_step3156+(*_SUB_XFILEWRITE_LONG_I); fornext_entrylabel3156: *_SUB_XFILEWRITE_LONG_I=fornext_value3156; if (fornext_step_negative3156){ if (fornext_value3156fornext_finalvalue3156) break; } fornext_error3156:; if(qbevent){evnt(22175);if(r)goto S_29163;} 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(22176);}while(r); S_29165:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22177);if(r)goto S_29165;} do{ *_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; if(!qbevent)break;evnt(22177);}while(r); } S_29168:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22178);if(r)goto S_29168;} do{ *_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; if(!qbevent)break;evnt(22178);}while(r); } S_29171:; 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(22179);if(r)goto S_29171;} S_29172:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22180);if(r)goto S_29172;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22180);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22180);}while(r); } do{ goto LABEL_WRITEGOTFN; if(!qbevent)break;evnt(22181);}while(r); } S_29178:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22183);if(r)goto S_29178;} do{ qbs_set(_SUB_XFILEWRITE_STRING_A3,_SUB_XFILEWRITE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22183);}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(22183);}while(r); } fornext_continue_3155:; } fornext_exit_3155:; do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22185);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22185);}while(r); LABEL_WRITEGOTFN:; if(qbevent){evnt(22186);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(22187);}while(r); S_29187:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22188);if(r)goto S_29187;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22188);}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(22189);}while(r); do{ qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEWRITE_STRING_E,&(pass3157= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22190);}while(r); S_29192:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22191);if(r)goto S_29192;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22191);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3158; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3158; skip3158: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22192);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3159; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3159; skip3159: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22193);}while(r); do{ *_SUB_XFILEWRITE_LONG_I=*_SUB_XFILEWRITE_LONG_I+ 1 ; if(!qbevent)break;evnt(22194);}while(r); S_29198:; if ((-(*_SUB_XFILEWRITE_LONG_I>*_SUB_XFILEWRITE_LONG_N))||new_error){ if(qbevent){evnt(22195);if(r)goto S_29198;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3160; sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); if (new_error) goto skip3160; skip3160: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22196);}while(r); do{ goto LABEL_WRITEBLANKLINE; if(!qbevent)break;evnt(22197);}while(r); } do{ *_SUB_XFILEWRITE_LONG_B= 0 ; if(!qbevent)break;evnt(22199);}while(r); do{ qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22200);}while(r); do{ *_SUB_XFILEWRITE_LONG_LAST= 0 ; if(!qbevent)break;evnt(22201);}while(r); S_29205:; fornext_value3162=*_SUB_XFILEWRITE_LONG_I; fornext_finalvalue3162=*_SUB_XFILEWRITE_LONG_N; fornext_step3162= 1 ; if (fornext_step3162<0) fornext_step_negative3162=1; else fornext_step_negative3162=0; if (new_error) goto fornext_error3162; goto fornext_entrylabel3162; while(1){ fornext_value3162=fornext_step3162+(*_SUB_XFILEWRITE_LONG_I); fornext_entrylabel3162: *_SUB_XFILEWRITE_LONG_I=fornext_value3162; if (fornext_step_negative3162){ if (fornext_value3162fornext_finalvalue3162) break; } fornext_error3162:; if(qbevent){evnt(22202);if(r)goto S_29205;} 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(22203);}while(r); S_29207:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22204);if(r)goto S_29207;} do{ *_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; if(!qbevent)break;evnt(22204);}while(r); } S_29210:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22205);if(r)goto S_29210;} do{ *_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; if(!qbevent)break;evnt(22205);}while(r); } S_29213:; if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22206);if(r)goto S_29213;} S_29214:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22207);if(r)goto S_29214;} LABEL_WRITEFILELAST:; if(qbevent){evnt(22208);r=0;} S_29215:; if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||new_error){ if(qbevent){evnt(22209);if(r)goto S_29215;} do{ *_SUB_XFILEWRITE_LONG_NEWLINE= 1 ; if(!qbevent)break;evnt(22209);}while(r); }else{ do{ *_SUB_XFILEWRITE_LONG_NEWLINE= 0 ; if(!qbevent)break;evnt(22209);}while(r); } do{ qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22210);}while(r); do{ *_SUB_XFILEWRITE_LONG_REEVALED= 0 ; if(!qbevent)break;evnt(22211);}while(r); LABEL_WRITEFILENUMBER:; if(qbevent){evnt(22212);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(22213);}while(r); S_29223:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22214);if(r)goto S_29223;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22214);}while(r); } S_29226:; if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ if(qbevent){evnt(22215);if(r)goto S_29226;} 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(22216);}while(r); S_29228:; if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22217);if(r)goto S_29228;} 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(22217);}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(22219);}while(r); S_29233:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22220);if(r)goto S_29233;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22220);}while(r); } S_29236:; if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ if(qbevent){evnt(22221);if(r)goto S_29236;} S_29237:; if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(22222);if(r)goto S_29237;} 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(22223);}while(r); S_29239:; if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22224);if(r)goto S_29239;} 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(22224);}while(r); } do{ *_SUB_XFILEWRITE_LONG_REEVALED= 1 ; if(!qbevent)break;evnt(22225);}while(r); do{ goto LABEL_WRITEFILENUMBER; if(!qbevent)break;evnt(22226);}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(22228);}while(r); S_29246:; if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22229);if(r)goto S_29246;} 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(22229);}while(r); } do{ *_SUB_XFILEWRITE_LONG_REEVALED= 1 ; if(!qbevent)break;evnt(22230);}while(r); do{ goto LABEL_WRITEFILENUMBER; if(!qbevent)break;evnt(22231);}while(r); } } S_29253:; if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22234);if(r)goto S_29253;} do{ qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3163= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22234);}while(r); } S_29256:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22235);if(r)goto S_29256;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22235);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3164; sub_file_print(tmp_fileno,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)), 0 , 0 , 0 ); if (new_error) goto skip3164; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); if (new_error) goto skip3164; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip3164; skip3164: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22237);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3165; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3165; skip3165: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22238);}while(r); do{ qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22239);}while(r); S_29262:; if ((*_SUB_XFILEWRITE_LONG_LAST)||new_error){ if(qbevent){evnt(22240);if(r)goto S_29262;} do{ goto fornext_exit_3161; if(!qbevent)break;evnt(22240);}while(r); } do{ goto LABEL_WRITEFILENEXT; if(!qbevent)break;evnt(22241);}while(r); } } S_29268:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22244);if(r)goto S_29268;} 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(22244);}while(r); }else{ do{ qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22244);}while(r); } LABEL_WRITEFILENEXT:; if(qbevent){evnt(22245);r=0;} fornext_continue_3161:; } fornext_exit_3161:; S_29274:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22247);if(r)goto S_29274;} do{ qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22247);}while(r); do{ *_SUB_XFILEWRITE_LONG_LAST= 1 ; if(!qbevent)break;evnt(22247);}while(r); do{ goto LABEL_WRITEFILELAST; if(!qbevent)break;evnt(22247);}while(r); } LABEL_WRITEBLANKLINE:; if(qbevent){evnt(22248);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3166; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3166; skip3166: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22250);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3167; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3167; skip3167: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22251);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3168; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); if (new_error) goto skip3168; skip3168: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22252);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(22253);}while(r); S_29283:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(22253);if(r)goto S_29283;} 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(22253);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22253);}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,&(pass3171= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22257);}while(r); S_29289:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XGOSUB_STRING_A2)== 0 )))||new_error){ if(qbevent){evnt(22258);if(r)goto S_29289;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22258);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22258);}while(r); } do{ *_SUB_XGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XGOSUB_STRING_A2,&(pass3172= 2 ),_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22260);}while(r); do{ *_SUB_XGOSUB_LONG_X= 1 ; if(!qbevent)break;evnt(22261);}while(r); LABEL_LABCHK200:; if(qbevent){evnt(22262);r=0;} S_29295:; if ((*_SUB_XGOSUB_LONG_V)||new_error){ if(qbevent){evnt(22263);if(r)goto S_29295;} 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(22264);}while(r); S_29297:; if (((-(*_SUB_XGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XGOSUB_LONG_S== -1 )))||new_error){ if(qbevent){evnt(22265);if(r)goto S_29297;} S_29298:; if ((-(*_SUB_XGOSUB_LONG_S== -1 ))||new_error){ if(qbevent){evnt(22266);if(r)goto S_29298;} 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(22266);}while(r); } do{ *_SUB_XGOSUB_LONG_X= 0 ; if(!qbevent)break;evnt(22267);}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(22268);}while(r); }else{ S_29304:; if ((-(*_SUB_XGOSUB_LONG_V== 2 ))||new_error){ if(qbevent){evnt(22270);if(r)goto S_29304;} do{ *_SUB_XGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); if(!qbevent)break;evnt(22270);}while(r); do{ goto LABEL_LABCHK200; if(!qbevent)break;evnt(22270);}while(r); } } } S_29310:; if ((*_SUB_XGOSUB_LONG_X)||new_error){ if(qbevent){evnt(22273);if(r)goto S_29310;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(22275);}while(r); S_29312:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(22275);if(r)goto S_29312;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(22275);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elementslen))||new_error){ if(qbevent){evnt(22286);if(r)goto S_29326;} 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(22286);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,_SUB_XGOSUB_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22286);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3175; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3175; skip3175: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22289);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3176; sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); if (new_error) goto skip3176; skip3176: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22290);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3177; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XGOSUB_STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3177; skip3177: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22291);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3178; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3178; skip3178: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22293);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3179; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3179; skip3179: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22294);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3180; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip3180; skip3180: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22295);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3181; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip3181; skip3181: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22296);}while(r); do{ *__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; if(!qbevent)break;evnt(22297);}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_29339:; if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||new_error){ if(qbevent){evnt(22301);if(r)goto S_29339;} 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(22301);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22301);}while(r); } do{ qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_new_txt_len("ON",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22302);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_B= 0 ; if(!qbevent)break;evnt(22303);}while(r); S_29345:; fornext_value3185= 2 ; fornext_finalvalue3185=*_SUB_XONGOTOGOSUB_LONG_N; fornext_step3185= 1 ; if (fornext_step3185<0) fornext_step_negative3185=1; else fornext_step_negative3185=0; if (new_error) goto fornext_error3185; goto fornext_entrylabel3185; while(1){ fornext_value3185=fornext_step3185+(*_SUB_XONGOTOGOSUB_LONG_I); fornext_entrylabel3185: *_SUB_XONGOTOGOSUB_LONG_I=fornext_value3185; if (fornext_step_negative3185){ if (fornext_value3185fornext_finalvalue3185) break; } fornext_error3185:; if(qbevent){evnt(22304);if(r)goto S_29345;} 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(22305);}while(r); S_29347:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22306);if(r)goto S_29347;} do{ *_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ; if(!qbevent)break;evnt(22306);}while(r); } S_29350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22307);if(r)goto S_29350;} do{ *_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ; if(!qbevent)break;evnt(22307);}while(r); } S_29353:; 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(22308);if(r)goto S_29353;} do{ goto fornext_exit_3184; if(!qbevent)break;evnt(22308);}while(r); } fornext_continue_3184:; } fornext_exit_3184:; S_29357:; if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||new_error){ if(qbevent){evnt(22310);if(r)goto S_29357;} 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(22310);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22310);}while(r); } do{ qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3186= 2 ),&(pass3187=*_SUB_XONGOTOGOSUB_LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22311);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_G= 0 ; if(!qbevent)break;evnt(22313);}while(r); S_29363:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||new_error){ if(qbevent){evnt(22313);if(r)goto S_29363;} do{ *_SUB_XONGOTOGOSUB_LONG_G= 1 ; if(!qbevent)break;evnt(22313);}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(22314);}while(r); S_29367:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22315);if(r)goto S_29367;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22315);}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(22316);}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(22317);}while(r); S_29372:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22318);if(r)goto S_29372;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22318);}while(r); } S_29375:; if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22319);if(r)goto S_29375;} do{ qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3188= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22319);}while(r); } S_29378:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22320);if(r)goto S_29378;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22320);}while(r); } S_29381:; if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(22321);if(r)goto S_29381;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22321);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22321);}while(r); } S_29385:; if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||new_error){ if(qbevent){evnt(22322);if(r)goto S_29385;} 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(22323);}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(22325);}while(r); do{ qbs_set(_SUB_XONGOTOGOSUB_STRING_U,FUNC_STR2(&(pass3189=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22326);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3190; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); if (new_error) goto skip3190; skip3190: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22327);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3191; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3191; skip3191: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22328);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_LN= 1 ; if(!qbevent)break;evnt(22329);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; if(!qbevent)break;evnt(22330);}while(r); S_29394:; fornext_value3193=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ; fornext_finalvalue3193=*_SUB_XONGOTOGOSUB_LONG_N; fornext_step3193= 1 ; if (fornext_step3193<0) fornext_step_negative3193=1; else fornext_step_negative3193=0; if (new_error) goto fornext_error3193; goto fornext_entrylabel3193; while(1){ fornext_value3193=fornext_step3193+(*_SUB_XONGOTOGOSUB_LONG_I); fornext_entrylabel3193: *_SUB_XONGOTOGOSUB_LONG_I=fornext_value3193; if (fornext_step_negative3193){ if (fornext_value3193fornext_finalvalue3193) break; } fornext_error3193:; if(qbevent){evnt(22331);if(r)goto S_29394;} 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(22332);}while(r); S_29396:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22333);if(r)goto S_29396;} 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(22334);}while(r); S_29398:; if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||new_error){ if(qbevent){evnt(22335);if(r)goto S_29398;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22335);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22335);}while(r); } do{ *_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ; if(!qbevent)break;evnt(22336);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; if(!qbevent)break;evnt(22337);}while(r); }else{ S_29405:; if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||new_error){ if(qbevent){evnt(22339);if(r)goto S_29405;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22339);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22339);}while(r); } S_29409:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||new_error){ if(qbevent){evnt(22340);if(r)goto S_29409;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22340);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22340);}while(r); } do{ *_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3194= 2 ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22342);}while(r); do{ *_SUB_XONGOTOGOSUB_LONG_X= 1 ; if(!qbevent)break;evnt(22343);}while(r); LABEL_LABCHK507:; if(qbevent){evnt(22344);r=0;} S_29415:; if ((*_SUB_XONGOTOGOSUB_LONG_V)||new_error){ if(qbevent){evnt(22345);if(r)goto S_29415;} 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(22346);}while(r); S_29417:; if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||new_error){ if(qbevent){evnt(22347);if(r)goto S_29417;} S_29418:; if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||new_error){ if(qbevent){evnt(22348);if(r)goto S_29418;} 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(22348);}while(r); } do{ *_SUB_XONGOTOGOSUB_LONG_X= 0 ; if(!qbevent)break;evnt(22349);}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(22350);}while(r); }else{ S_29424:; if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||new_error){ if(qbevent){evnt(22352);if(r)goto S_29424;} do{ *_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); if(!qbevent)break;evnt(22352);}while(r); do{ goto LABEL_LABCHK507; if(!qbevent)break;evnt(22352);}while(r); } } } S_29430:; if ((*_SUB_XONGOTOGOSUB_LONG_X)||new_error){ if(qbevent){evnt(22355);if(r)goto S_29430;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; if(!qbevent)break;evnt(22357);}while(r); S_29432:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ if(qbevent){evnt(22357);if(r)goto S_29432;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; if(!qbevent)break;evnt(22357);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_LABELS[2]&1){ preserved_elements=__ARRAY_UDT_LABELS[5]; } else preserved_elements=0; __ARRAY_UDT_LABELS[4]= 1 ; __ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; __ARRAY_UDT_LABELS[6]=1; if (__ARRAY_UDT_LABELS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); tmp_long=__ARRAY_UDT_LABELS[5]; __ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); if (new_error) goto skip3198; skip3198: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22374);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3199; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3199; skip3199: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22375);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3200; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3200; skip3200: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22377);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3201; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3201; skip3201: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22378);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; if (new_error) goto skip3202; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip3202; skip3202: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22379);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3203; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip3203; skip3203: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22380);}while(r); do{ *__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; if(!qbevent)break;evnt(22381);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3204; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6)), 0 , 0 , 1 ); if (new_error) goto skip3204; skip3204: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22382);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3205; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip3205; skip3205: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22383);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3206; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3206; skip3206: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22385);}while(r); } do{ *_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ; if(!qbevent)break;evnt(22387);}while(r); } fornext_continue_3192:; } fornext_exit_3192:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3207; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13)), 0 , 0 , 1 ); if (new_error) goto skip3207; skip3207: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22390);}while(r); S_29465:; if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||new_error){ if(qbevent){evnt(22391);if(r)goto S_29465;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3208; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7)), 0 , 0 , 1 ); if (new_error) goto skip3208; skip3208: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22391);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(22392);}while(r); S_29469:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(22392);if(r)goto S_29469;} 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(22392);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22392);}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(&(pass3212=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22396);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_L,qbs_new_txt_len("PRINT",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22398);}while(r); S_29476:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||new_error){ if(qbevent){evnt(22399);if(r)goto S_29476;} do{ *_SUB_XPRINT_LONG_LP= 1 ; if(!qbevent)break;evnt(22399);}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(22399);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_L,qbs_new_txt_len("LPRINT",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22399);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3213; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=1;",13), 0 , 0 , 1 ); if (new_error) goto skip3213; skip3213: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22399);}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(22399);}while(r); } S_29483:; if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||new_error){ if(qbevent){evnt(22402);if(r)goto S_29483;} S_29484:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3214= 2 )),qbs_new_txt_len("USING",5))))||new_error){ if(qbevent){evnt(22403);if(r)goto S_29484;} do{ *_SUB_XPRINT_LONG_I= 3 ; if(!qbevent)break;evnt(22405);}while(r); LABEL_PUJUMP:; if(qbevent){evnt(22406);r=0;} do{ qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),qbs_new_txt_len("USING",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22407);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22408);}while(r); do{ *_SUB_XPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(22408);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22408);}while(r); S_29490:; fornext_value3216=*_SUB_XPRINT_LONG_I; fornext_finalvalue3216=*_SUB_XPRINT_LONG_N; fornext_step3216= 1 ; if (fornext_step3216<0) fornext_step_negative3216=1; else fornext_step_negative3216=0; if (new_error) goto fornext_error3216; goto fornext_entrylabel3216; while(1){ fornext_value3216=fornext_step3216+(*_SUB_XPRINT_LONG_I); fornext_entrylabel3216: *_SUB_XPRINT_LONG_I=fornext_value3216; if (fornext_step_negative3216){ if (fornext_value3216fornext_finalvalue3216) break; } fornext_error3216:; if(qbevent){evnt(22409);if(r)goto S_29490;} 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(22410);}while(r); S_29492:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22411);if(r)goto S_29492;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(22411);}while(r); } S_29495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22412);if(r)goto S_29495;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(22412);}while(r); } S_29498:; if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22413);if(r)goto S_29498;} S_29499:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22414);if(r)goto S_29499;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22414);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22414);}while(r); } S_29503:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(22415);if(r)goto S_29503;} do{ qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22416);}while(r); S_29505:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22417);if(r)goto S_29505;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22417);}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(22418);}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(22419);}while(r); S_29510:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22420);if(r)goto S_29510;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22420);}while(r); } S_29513:; if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22421);if(r)goto S_29513;} do{ qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3217= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22421);}while(r); } S_29516:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22422);if(r)goto S_29516;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22422);}while(r); } S_29519:; if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(22423);if(r)goto S_29519;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22423);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22423);}while(r); } do{ qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22424);}while(r); do{ goto fornext_exit_3215; if(!qbevent)break;evnt(22425);}while(r); } } S_29527:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22428);if(r)goto S_29527;} 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(22428);}while(r); }else{ do{ qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22428);}while(r); } fornext_continue_3215:; } fornext_exit_3215:; S_29533:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22430);if(r)goto S_29533;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22430);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22430);}while(r); } S_29537:; if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||new_error){ if(qbevent){evnt(22431);if(r)goto S_29537;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22431);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22431);}while(r); } S_29541:; if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||new_error){ if(qbevent){evnt(22433);if(r)goto S_29541;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3219; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); if (new_error) goto skip3219; skip3219: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22434);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3220; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3220; skip3220: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22436);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3221; sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); if (new_error) goto skip3221; skip3221: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22439);}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(22443);}while(r); S_29548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22444);if(r)goto S_29548;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3222; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3222; skip3222: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22445);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3223; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3223; skip3223: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22447);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3224; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3224; skip3224: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22449);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3225; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3225; skip3225: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22450);}while(r); do{ *_SUB_XPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(22453);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22454);}while(r); do{ *_SUB_XPRINT_LONG_LAST= 0 ; if(!qbevent)break;evnt(22455);}while(r); S_29558:; fornext_value3227=*_SUB_XPRINT_LONG_I+ 1 ; fornext_finalvalue3227=*_SUB_XPRINT_LONG_N; fornext_step3227= 1 ; if (fornext_step3227<0) fornext_step_negative3227=1; else fornext_step_negative3227=0; if (new_error) goto fornext_error3227; goto fornext_entrylabel3227; while(1){ fornext_value3227=fornext_step3227+(*_SUB_XPRINT_LONG_I); fornext_entrylabel3227: *_SUB_XPRINT_LONG_I=fornext_value3227; if (fornext_step_negative3227){ if (fornext_value3227fornext_finalvalue3227) break; } fornext_error3227:; if(qbevent){evnt(22456);if(r)goto S_29558;} 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(22457);}while(r); S_29560:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22458);if(r)goto S_29560;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(22458);}while(r); } S_29563:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22459);if(r)goto S_29563;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(22459);}while(r); } S_29566:; if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22460);if(r)goto S_29566;} S_29567:; 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(22461);if(r)goto S_29567;} LABEL_PRINTULAST:; if(qbevent){evnt(22462);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(22463);}while(r); S_29569:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22464);if(r)goto S_29569;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22464);}while(r); } S_29572:; if ((*_SUB_XPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22465);if(r)goto S_29572;} 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(22465);}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(22465);}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(22466);}while(r); S_29578:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22467);if(r)goto S_29578;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22467);}while(r); } S_29581:; if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22468);if(r)goto S_29581;} do{ qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3228= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22468);}while(r); } S_29584:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22469);if(r)goto S_29584;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22469);}while(r); } S_29587:; if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(22470);if(r)goto S_29587;} S_29588:; 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(22472);if(r)goto S_29588;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3229; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); if (new_error) goto skip3229; skip3229: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22477);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3230; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip3230; skip3230: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22479);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3231; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3231; skip3231: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22480);}while(r); S_29592:; if ((*_SUB_XPRINT_LONG_LP)||new_error){ if(qbevent){evnt(22481);if(r)goto S_29592;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3232; sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); if (new_error) goto skip3232; skip3232: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22481);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3233; sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); if (new_error) goto skip3233; skip3233: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22481);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3234; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); if (new_error) goto skip3234; skip3234: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22482);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3235; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); if (new_error) goto skip3235; skip3235: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22484);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3236; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3236; skip3236: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22489);}while(r); } }else{ S_29603:; if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(22496);if(r)goto S_29603;} S_29604:; if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 32 ))||new_error){ if(qbevent){evnt(22497);if(r)goto S_29604;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3237; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3237; skip3237: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22497);}while(r); } S_29607:; if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 ))||new_error){ if(qbevent){evnt(22498);if(r)goto S_29607;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3238; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3238; skip3238: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22498);}while(r); } S_29610:; if ((-((*_SUB_XPRINT_LONG_TYP& 511 )> 64 ))||new_error){ if(qbevent){evnt(22499);if(r)goto S_29610;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3239; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3239; skip3239: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22499);}while(r); } }else{ S_29614:; if ((((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ if(qbevent){evnt(22501);if(r)goto S_29614;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3240; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3240; skip3240: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22502);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3241; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3241; skip3241: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22504);}while(r); } } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3242; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3242; skip3242: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22508);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22509);}while(r); S_29623:; if ((*_SUB_XPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22510);if(r)goto S_29623;} do{ goto fornext_exit_3226; if(!qbevent)break;evnt(22510);}while(r); } do{ goto LABEL_PRINTUNEXT; if(!qbevent)break;evnt(22511);}while(r); } } S_29629:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22514);if(r)goto S_29629;} 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(22514);}while(r); }else{ do{ qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22514);}while(r); } LABEL_PRINTUNEXT:; if(qbevent){evnt(22515);r=0;} fornext_continue_3226:; } fornext_exit_3226:; S_29635:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22517);if(r)goto S_29635;} do{ qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22517);}while(r); do{ *_SUB_XPRINT_LONG_LAST= 1 ; if(!qbevent)break;evnt(22517);}while(r); do{ goto LABEL_PRINTULAST; if(!qbevent)break;evnt(22517);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3244; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3244; skip3244: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22518);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3245; sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); if (new_error) goto skip3245; skip3245: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22520);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3246; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3246; skip3246: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22521);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3247; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); if (new_error) goto skip3247; skip3247: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22522);}while(r); S_29644:; 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(22523);if(r)goto S_29644;} do{ *_SUB_XPRINT_LONG_NL= 0 ; if(!qbevent)break;evnt(22523);}while(r); }else{ do{ *_SUB_XPRINT_LONG_NL= 1 ; if(!qbevent)break;evnt(22523);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3248; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3248; skip3248: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22524);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3249; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip3249; skip3249: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22525);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3250; sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); if (new_error) goto skip3250; skip3250: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22526);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3251; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip3251; skip3251: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22527);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3252; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3252; skip3252: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22528);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3253; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3253; skip3253: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22529);}while(r); S_29655:; if ((*_SUB_XPRINT_LONG_LP)||new_error){ if(qbevent){evnt(22530);if(r)goto S_29655;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3254; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); if (new_error) goto skip3254; skip3254: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22530);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22531);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22532);}while(r); } } do{ *_SUB_XPRINT_LONG_B= 0 ; if(!qbevent)break;evnt(22537);}while(r); do{ qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22538);}while(r); do{ *_SUB_XPRINT_LONG_LAST= 0 ; if(!qbevent)break;evnt(22539);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3255; sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); if (new_error) goto skip3255; skip3255: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22540);}while(r); do{ *_SUB_XPRINT_LONG_TQBSSET= -1 ; if(!qbevent)break;evnt(22541);}while(r); S_29667:; fornext_value3257= 2 ; fornext_finalvalue3257=*_SUB_XPRINT_LONG_N; fornext_step3257= 1 ; if (fornext_step3257<0) fornext_step_negative3257=1; else fornext_step_negative3257=0; if (new_error) goto fornext_error3257; goto fornext_entrylabel3257; while(1){ fornext_value3257=fornext_step3257+(*_SUB_XPRINT_LONG_I); fornext_entrylabel3257: *_SUB_XPRINT_LONG_I=fornext_value3257; if (fornext_step_negative3257){ if (fornext_value3257fornext_finalvalue3257) break; } fornext_error3257:; if(qbevent){evnt(22542);if(r)goto S_29667;} 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(22543);}while(r); S_29669:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22544);if(r)goto S_29669;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; if(!qbevent)break;evnt(22544);}while(r); } S_29672:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22545);if(r)goto S_29672;} do{ *_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; if(!qbevent)break;evnt(22545);}while(r); } S_29675:; if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22546);if(r)goto S_29675;} S_29676:; 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(22547);if(r)goto S_29676;} LABEL_PRINTLAST:; if(qbevent){evnt(22548);r=0;} S_29677:; 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(22550);if(r)goto S_29677;} S_29678:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22551);if(r)goto S_29678;} do{ *_SUB_XPRINT_LONG_GOTOPU= 1 ; if(!qbevent)break;evnt(22551);}while(r); }else{ do{ *_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; if(!qbevent)break;evnt(22551);}while(r); do{ goto LABEL_PUJUMP; if(!qbevent)break;evnt(22551);}while(r); } } S_29685:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22554);if(r)goto S_29685;} do{ qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22555);}while(r); do{ *_SUB_XPRINT_LONG_PNRTNUM= 0 ; if(!qbevent)break;evnt(22556);}while(r); LABEL_PRINTNUMBER:; if(qbevent){evnt(22557);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(22558);}while(r); S_29689:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22559);if(r)goto S_29689;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22559);}while(r); } S_29692:; if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||new_error){ if(qbevent){evnt(22560);if(r)goto S_29692;} S_29693:; if ((*_SUB_XPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22561);if(r)goto S_29693;} 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(22561);}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(22561);}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(22563);}while(r); S_29700:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22564);if(r)goto S_29700;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22564);}while(r); } S_29703:; if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(22565);if(r)goto S_29703;} 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(22567);}while(r); do{ *_SUB_XPRINT_LONG_PNRTNUM= 1 ; if(!qbevent)break;evnt(22568);}while(r); do{ goto LABEL_PRINTNUMBER; if(!qbevent)break;evnt(22569);}while(r); } S_29708:; if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22571);if(r)goto S_29708;} do{ qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3259= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22571);}while(r); } S_29711:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22572);if(r)goto S_29711;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22572);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3260; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip3260; skip3260: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22573);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3261; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3261; skip3261: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22574);}while(r); S_29716:; if ((*_SUB_XPRINT_LONG_LP)||new_error){ if(qbevent){evnt(22575);if(r)goto S_29716;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3262; sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); if (new_error) goto skip3262; skip3262: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22575);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3263; sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); if (new_error) goto skip3263; skip3263: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22575);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3264; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); if (new_error) goto skip3264; skip3264: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22576);}while(r); }else{ S_29723:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22578);if(r)goto S_29723;} 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(22578);}while(r); } S_29726:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ if(qbevent){evnt(22579);if(r)goto S_29726;} S_29727:; 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(22580);if(r)goto S_29727;} 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(22580);}while(r); } } } S_29732:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22583);if(r)goto S_29732;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3265; sub_file_print(tmp_fileno,qbs_new_txt_len("tab();",6), 0 , 0 , 1 ); if (new_error) goto skip3265; skip3265: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22583);}while(r); } do{ qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22584);}while(r); S_29736:; if ((*_SUB_XPRINT_LONG_GOTOPU)||new_error){ if(qbevent){evnt(22586);if(r)goto S_29736;} do{ *_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; if(!qbevent)break;evnt(22586);}while(r); do{ goto LABEL_PUJUMP; if(!qbevent)break;evnt(22586);}while(r); } S_29740:; if ((*_SUB_XPRINT_LONG_LAST)||new_error){ if(qbevent){evnt(22588);if(r)goto S_29740;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3266; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); if (new_error) goto skip3266; skip3266: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22589);}while(r); do{ goto fornext_exit_3256; if(!qbevent)break;evnt(22590);}while(r); } do{ goto LABEL_PRINTNEXT; if(!qbevent)break;evnt(22593);}while(r); } } S_29747:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22597);if(r)goto S_29747;} 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(22597);}while(r); }else{ do{ qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22597);}while(r); } LABEL_PRINTNEXT:; if(qbevent){evnt(22598);r=0;} fornext_continue_3256:; } fornext_exit_3256:; S_29753:; if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ if(qbevent){evnt(22600);if(r)goto S_29753;} do{ qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22600);}while(r); do{ *_SUB_XPRINT_LONG_LAST= 1 ; if(!qbevent)break;evnt(22600);}while(r); do{ goto LABEL_PRINTLAST; if(!qbevent)break;evnt(22600);}while(r); } S_29758:; if ((-(*_SUB_XPRINT_LONG_N== 1 ))||new_error){ if(qbevent){evnt(22601);if(r)goto S_29758;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3269; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); if (new_error) goto skip3269; skip3269: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22601);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3270; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3270; skip3270: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22602);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3271; sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); if (new_error) goto skip3271; skip3271: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22603);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3272; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3272; skip3272: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22604);}while(r); S_29764:; if ((*_SUB_XPRINT_LONG_LP)||new_error){ if(qbevent){evnt(22605);if(r)goto S_29764;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3273; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); if (new_error) goto skip3273; skip3273: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22605);}while(r); } do{ qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22606);}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,qbs_new_txt_len("READ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22613);}while(r); S_29769:; if ((-(*_SUB_XREAD_LONG_N== 1 ))||new_error){ if(qbevent){evnt(22614);if(r)goto S_29769;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22614);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22614);}while(r); } do{ *_SUB_XREAD_LONG_I= 2 ; if(!qbevent)break;evnt(22615);}while(r); S_29774:; if ((-(*_SUB_XREAD_LONG_I>*_SUB_XREAD_LONG_N))||new_error){ if(qbevent){evnt(22616);if(r)goto S_29774;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22616);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22616);}while(r); } do{ qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22617);}while(r); do{ *_SUB_XREAD_LONG_B= 0 ; if(!qbevent)break;evnt(22618);}while(r); S_29780:; fornext_value3276=*_SUB_XREAD_LONG_I; fornext_finalvalue3276=*_SUB_XREAD_LONG_N; fornext_step3276= 1 ; if (fornext_step3276<0) fornext_step_negative3276=1; else fornext_step_negative3276=0; if (new_error) goto fornext_error3276; goto fornext_entrylabel3276; while(1){ fornext_value3276=fornext_step3276+(*_SUB_XREAD_LONG_I); fornext_entrylabel3276: *_SUB_XREAD_LONG_I=fornext_value3276; if (fornext_step_negative3276){ if (fornext_value3276fornext_finalvalue3276) break; } fornext_error3276:; if(qbevent){evnt(22619);if(r)goto S_29780;} 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(22620);}while(r); S_29782:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22621);if(r)goto S_29782;} do{ *_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B+ 1 ; if(!qbevent)break;evnt(22621);}while(r); } S_29785:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22622);if(r)goto S_29785;} do{ *_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B- 1 ; if(!qbevent)break;evnt(22622);}while(r); } S_29788:; 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(22623);if(r)goto S_29788;} S_29789:; if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ if(qbevent){evnt(22624);if(r)goto S_29789;} S_29790:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22625);if(r)goto S_29790;} do{ qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22625);}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(22625);}while(r); } } S_29796:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22627);if(r)goto S_29796;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22627);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22627);}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(22628);}while(r); S_29801:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22629);if(r)goto S_29801;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22629);}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(22630);}while(r); S_29805:; if ((-(*_SUB_XREAD_LONG_I!=*_SUB_XREAD_LONG_N))||new_error){ if(qbevent){evnt(22630);if(r)goto S_29805;} 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(22630);}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(22631);}while(r); S_29809:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22632);if(r)goto S_29809;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22632);}while(r); } S_29812:; if ((-((*_SUB_XREAD_LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ if(qbevent){evnt(22633);if(r)goto S_29812;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22633);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22633);}while(r); } S_29816:; if (((*_SUB_XREAD_LONG_T&*__LONG_ISSTRING))||new_error){ if(qbevent){evnt(22635);if(r)goto S_29816;} do{ qbs_set(_SUB_XREAD_STRING_E,FUNC_REFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,&(pass3277= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22636);}while(r); S_29818:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22637);if(r)goto S_29818;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22637);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3278; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3278; skip3278: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22638);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; if(!qbevent)break;evnt(22639);}while(r); }else{ S_29824:; if (((-((*_SUB_XREAD_LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*_SUB_XREAD_LONG_T& 511 )!= 64 )))||new_error){ if(qbevent){evnt(22642);if(r)goto S_29824;} S_29825:; if (((*_SUB_XREAD_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ if(qbevent){evnt(22643);if(r)goto S_29825;} 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)),&(pass3279= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22644);}while(r); S_29827:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22645);if(r)goto S_29827;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22645);}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)),&(pass3280= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22647);}while(r); S_29832:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22648);if(r)goto S_29832;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22648);}while(r); } } }else{ S_29837:; if ((*_SUB_XREAD_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(22651);if(r)goto S_29837;} do{ SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_uint64(data,&data_offset,data_size)",45),&(pass3281= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22652);}while(r); S_29839:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22653);if(r)goto S_29839;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22653);}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),&(pass3282= 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22655);}while(r); S_29844:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22656);if(r)goto S_29844;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22656);}while(r); } } } } S_29850:; if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ if(qbevent){evnt(22660);if(r)goto S_29850;} do{ goto fornext_exit_3275; if(!qbevent)break;evnt(22660);}while(r); } do{ qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22661);}while(r); do{ qbs_set(_SUB_XREAD_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22661);}while(r); } S_29856:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22663);if(r)goto S_29856;} do{ qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22663);}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(22663);}while(r); } fornext_continue_3275:; } fornext_exit_3275:; S_29862:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ if(qbevent){evnt(22665);if(r)goto S_29862;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3283; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3283; skip3283: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22665);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(22666);}while(r); S_29866:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(22666);if(r)goto S_29866;} 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(22666);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,_SUB_XREAD_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22666);}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,qbs_new_txt_len("WRITE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22670);}while(r); do{ qbs_set(_SUB_XWRITE_STRING_U,FUNC_STR2(&(pass3286=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22671);}while(r); S_29873:; if ((-(*_SUB_XWRITE_LONG_N== 1 ))||new_error){ if(qbevent){evnt(22672);if(r)goto S_29873;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3287; sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_print(nothingstring,1);",27), 0 , 0 , 1 ); if (new_error) goto skip3287; skip3287: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22673);}while(r); do{ goto LABEL_WRITEBLANKLINE2; if(!qbevent)break;evnt(22674);}while(r); } do{ *_SUB_XWRITE_LONG_B= 0 ; if(!qbevent)break;evnt(22676);}while(r); do{ qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22677);}while(r); do{ *_SUB_XWRITE_LONG_LAST= 0 ; if(!qbevent)break;evnt(22678);}while(r); S_29880:; fornext_value3289= 2 ; fornext_finalvalue3289=*_SUB_XWRITE_LONG_N; fornext_step3289= 1 ; if (fornext_step3289<0) fornext_step_negative3289=1; else fornext_step_negative3289=0; if (new_error) goto fornext_error3289; goto fornext_entrylabel3289; while(1){ fornext_value3289=fornext_step3289+(*_SUB_XWRITE_LONG_I); fornext_entrylabel3289: *_SUB_XWRITE_LONG_I=fornext_value3289; if (fornext_step_negative3289){ if (fornext_value3289fornext_finalvalue3289) break; } fornext_error3289:; if(qbevent){evnt(22679);if(r)goto S_29880;} 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(22680);}while(r); S_29882:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(22681);if(r)goto S_29882;} do{ *_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ; if(!qbevent)break;evnt(22681);}while(r); } S_29885:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(22682);if(r)goto S_29885;} do{ *_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ; if(!qbevent)break;evnt(22682);}while(r); } S_29888:; if ((-(*_SUB_XWRITE_LONG_B== 0 ))||new_error){ if(qbevent){evnt(22683);if(r)goto S_29888;} S_29889:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(22684);if(r)goto S_29889;} LABEL_WRITELAST:; if(qbevent){evnt(22685);r=0;} S_29890:; if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||new_error){ if(qbevent){evnt(22686);if(r)goto S_29890;} do{ *_SUB_XWRITE_LONG_NEWLINE= 1 ; if(!qbevent)break;evnt(22686);}while(r); }else{ do{ *_SUB_XWRITE_LONG_NEWLINE= 0 ; if(!qbevent)break;evnt(22686);}while(r); } do{ qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22687);}while(r); do{ *_SUB_XWRITE_LONG_REEVALED= 0 ; if(!qbevent)break;evnt(22688);}while(r); LABEL_WRITECHECKED:; if(qbevent){evnt(22689);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(22690);}while(r); S_29898:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22691);if(r)goto S_29898;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22691);}while(r); } S_29901:; if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ if(qbevent){evnt(22692);if(r)goto S_29901;} 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(22693);}while(r); S_29903:; if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22694);if(r)goto S_29903;} 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(22694);}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(22696);}while(r); S_29908:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22697);if(r)goto S_29908;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22697);}while(r); } S_29911:; if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ if(qbevent){evnt(22698);if(r)goto S_29911;} S_29912:; if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ if(qbevent){evnt(22699);if(r)goto S_29912;} 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(22700);}while(r); S_29914:; if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22701);if(r)goto S_29914;} 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(22701);}while(r); } do{ *_SUB_XWRITE_LONG_REEVALED= 1 ; if(!qbevent)break;evnt(22702);}while(r); do{ goto LABEL_WRITECHECKED; if(!qbevent)break;evnt(22703);}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(22705);}while(r); S_29921:; if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ if(qbevent){evnt(22706);if(r)goto S_29921;} 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(22706);}while(r); } do{ *_SUB_XWRITE_LONG_REEVALED= 1 ; if(!qbevent)break;evnt(22707);}while(r); do{ goto LABEL_WRITECHECKED; if(!qbevent)break;evnt(22708);}while(r); } } S_29928:; if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ if(qbevent){evnt(22711);if(r)goto S_29928;} do{ qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3290= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22711);}while(r); } S_29931:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22712);if(r)goto S_29931;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22712);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3291; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip3291; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); if (new_error) goto skip3291; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); if (new_error) goto skip3291; skip3291: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22714);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3292; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip3292; skip3292: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22715);}while(r); do{ qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22716);}while(r); S_29937:; if ((*_SUB_XWRITE_LONG_LAST)||new_error){ if(qbevent){evnt(22717);if(r)goto S_29937;} do{ goto fornext_exit_3288; if(!qbevent)break;evnt(22717);}while(r); } do{ goto LABEL_WRITENEXT; if(!qbevent)break;evnt(22718);}while(r); } } S_29943:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22721);if(r)goto S_29943;} 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(22721);}while(r); }else{ do{ qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22721);}while(r); } LABEL_WRITENEXT:; if(qbevent){evnt(22722);r=0;} fornext_continue_3288:; } fornext_exit_3288:; S_29949:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(22724);if(r)goto S_29949;} do{ qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22724);}while(r); do{ *_SUB_XWRITE_LONG_LAST= 1 ; if(!qbevent)break;evnt(22724);}while(r); do{ goto LABEL_WRITELAST; if(!qbevent)break;evnt(22724);}while(r); } LABEL_WRITEBLANKLINE2:; if(qbevent){evnt(22725);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3293; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip3293; skip3293: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22726);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip3294; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); if (new_error) goto skip3294; skip3294: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22727);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(22728);}while(r); S_29957:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(22728);if(r)goto S_29957;} 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(22728);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22728);}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(22732);}while(r); S_29963:; if (( 0 )||new_error){ if(qbevent){evnt(22733);if(r)goto S_29963;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip3297; 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 skip3297; skip3297: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(22733);}while(r); } do{ if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&1){ error(10); }else{ _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]+1; _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[6]=1; _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]=(ptrszint)malloc(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]*8); if (!_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]) error(257); _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]|=1; tmp_long=_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]; if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(22736);}while(r); do{ if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&1){ error(10); }else{ _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]+1; _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[6]=1; if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&4){ _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]*2); memset((void*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]),0,_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]*2); }else{ _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]=(ptrszint)calloc(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]*2,1); if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]) error(257); } _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]|=1; } } if(!qbevent)break;evnt(22737);}while(r); do{ if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&1){ error(10); }else{ _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]+1; _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[6]=1; if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&4){ _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]*4); memset((void*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]),0,_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]*4); }else{ _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]=(ptrszint)calloc(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]*4,1); if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]) error(257); } _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]|=1; } } if(!qbevent)break;evnt(22740);}while(r); do{ *_FUNC_EVALUATECONST_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATECONST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22743);}while(r); S_29970:; fornext_value3299= 1 ; fornext_finalvalue3299=*_FUNC_EVALUATECONST_LONG_N; fornext_step3299= 1 ; if (fornext_step3299<0) fornext_step_negative3299=1; else fornext_step_negative3299=0; if (new_error) goto fornext_error3299; goto fornext_entrylabel3299; while(1){ fornext_value3299=fornext_step3299+(*_FUNC_EVALUATECONST_LONG_I); fornext_entrylabel3299: *_FUNC_EVALUATECONST_LONG_I=fornext_value3299; if (fornext_step_negative3299){ if (fornext_value3299fornext_finalvalue3299) break; } fornext_error3299:; if(qbevent){evnt(22744);if(r)goto S_29970;} 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(22745);}while(r); fornext_continue_3298:; } fornext_exit_3298:; LABEL_EVALCONSTEVALBRACK:; if(qbevent){evnt(22748);r=0;} do{ *_FUNC_EVALUATECONST_LONG_L= 0 ; if(!qbevent)break;evnt(22751);}while(r); do{ *_FUNC_EVALUATECONST_LONG_B= 0 ; if(!qbevent)break;evnt(22752);}while(r); S_29975:; fornext_value3301= 1 ; fornext_finalvalue3301=*_FUNC_EVALUATECONST_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+(*_FUNC_EVALUATECONST_LONG_I); fornext_entrylabel3301: *_FUNC_EVALUATECONST_LONG_I=fornext_value3301; if (fornext_step_negative3301){ if (fornext_value3301fornext_finalvalue3301) break; } fornext_error3301:; if(qbevent){evnt(22753);if(r)goto S_29975;} S_29976:; 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(22754);if(r)goto S_29976;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; if(!qbevent)break;evnt(22754);}while(r); } S_29979:; 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(22755);if(r)goto S_29979;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; if(!qbevent)break;evnt(22755);}while(r); } S_29982:; if ((-(*_FUNC_EVALUATECONST_LONG_B>*_FUNC_EVALUATECONST_LONG_L))||new_error){ if(qbevent){evnt(22756);if(r)goto S_29982;} do{ *_FUNC_EVALUATECONST_LONG_L=*_FUNC_EVALUATECONST_LONG_B; if(!qbevent)break;evnt(22756);}while(r); } fornext_continue_3300:; } fornext_exit_3300:; S_29986:; if ((*_FUNC_EVALUATECONST_LONG_L)||new_error){ if(qbevent){evnt(22760);if(r)goto S_29986;} do{ *_FUNC_EVALUATECONST_LONG_B= 0 ; if(!qbevent)break;evnt(22762);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22763);}while(r); S_29989:; fornext_value3303= 1 ; fornext_finalvalue3303=*_FUNC_EVALUATECONST_LONG_N; fornext_step3303= 1 ; if (fornext_step3303<0) fornext_step_negative3303=1; else fornext_step_negative3303=0; if (new_error) goto fornext_error3303; goto fornext_entrylabel3303; while(1){ fornext_value3303=fornext_step3303+(*_FUNC_EVALUATECONST_LONG_I); fornext_entrylabel3303: *_FUNC_EVALUATECONST_LONG_I=fornext_value3303; if (fornext_step_negative3303){ if (fornext_value3303fornext_finalvalue3303) break; } fornext_error3303:; if(qbevent){evnt(22764);if(r)goto S_29989;} S_29990:; 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(22766);if(r)goto S_29990;} S_29991:; if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ if(qbevent){evnt(22767);if(r)goto S_29991;} 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(22767);}while(r); do{ goto fornext_exit_3302; if(!qbevent)break;evnt(22767);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; if(!qbevent)break;evnt(22768);}while(r); } S_29997:; if ((-(*_FUNC_EVALUATECONST_LONG_B>=*_FUNC_EVALUATECONST_LONG_L))||new_error){ if(qbevent){evnt(22771);if(r)goto S_29997;} S_29998:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATECONST_STRING_E->len== 0 )))||new_error){ if(qbevent){evnt(22772);if(r)goto S_29998;} 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(22772);}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(22772);}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(22773);}while(r); } S_30005:; 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(22776);if(r)goto S_30005;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; if(!qbevent)break;evnt(22777);}while(r); S_30007:; if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ if(qbevent){evnt(22778);if(r)goto S_30007;} do{ *_FUNC_EVALUATECONST_LONG_I2=*_FUNC_EVALUATECONST_LONG_I; if(!qbevent)break;evnt(22778);}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(22778);}while(r); } } fornext_continue_3302:; } fornext_exit_3302:; 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(22783);}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(22784);}while(r); S_30015:; if ((*__LONG_ERROR_HAPPENED)||new_error){ if(qbevent){evnt(22785);if(r)goto S_30015;} do{ goto exit_subfunc; if(!qbevent)break;evnt(22785);}while(r); } do{ goto LABEL_EVALCONSTEVALBRACK; if(!qbevent)break;evnt(22786);}while(r); } S_30020:; fornext_value3306= 1 ; fornext_finalvalue3306=*_FUNC_EVALUATECONST_LONG_N; fornext_step3306= 1 ; if (fornext_step3306<0) fornext_step_negative3306=1; else fornext_step_negative3306=0; if (new_error) goto fornext_error3306; goto fornext_entrylabel3306; while(1){ fornext_value3306=fornext_step3306+(*_FUNC_EVALUATECONST_LONG_I); fornext_entrylabel3306: *_FUNC_EVALUATECONST_LONG_I=fornext_value3306; if (fornext_step_negative3306){ if (fornext_value3306fornext_finalvalue3306) break; } fornext_error3306:; if(qbevent){evnt(22799);if(r)goto S_30020;} S_30021:; 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(22800);if(r)goto S_30021;} S_30022:; 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(22801);if(r)goto S_30022;} 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(22803);}while(r); S_30024:; 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(22804);if(r)goto S_30024;} 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(22807);}while(r); S_30026:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ if(qbevent){evnt(22808);if(r)goto S_30026;} 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(22808);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22808);}while(r); } S_30030:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ if(qbevent){evnt(22809);if(r)goto S_30030;} 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(22809);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22809);}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(22810);}while(r); S_30035:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(22811);if(r)goto S_30035;} 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(22811);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22811);}while(r); } S_30039:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(22812);if(r)goto S_30039;} 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(22812);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22812);}while(r); } S_30043:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ if(qbevent){evnt(22813);if(r)goto S_30043;} 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(22813);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22813);}while(r); } S_30047:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ if(qbevent){evnt(22814);if(r)goto S_30047;} 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(22814);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22814);}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(22815);}while(r); S_30052:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(22816);if(r)goto S_30052;} 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(22816);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22816);}while(r); } S_30056:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(22817);if(r)goto S_30056;} 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(22817);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; if(!qbevent)break;evnt(22817);}while(r); } S_30060:; 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(22820);if(r)goto S_30060;} 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(22821);}while(r); S_30062:; 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(22822);if(r)goto S_30062;} 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(22822);}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(22823);}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(22824);}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(22825);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; if(!qbevent)break;evnt(22826);}while(r); } S_30070:; 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(22830);if(r)goto S_30070;} 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(22831);}while(r); S_30072:; 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(22832);if(r)goto S_30072;} 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(22832);}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(22833);}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(22834);}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(22835);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; if(!qbevent)break;evnt(22836);}while(r); } S_30080:; 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(22840);if(r)goto S_30080;} 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(22841);}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(22842);}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(22843);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; if(!qbevent)break;evnt(22844);}while(r); } S_30086:; 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(22846);if(r)goto S_30086;} 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(22847);}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(22848);}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(22849);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; if(!qbevent)break;evnt(22850);}while(r); } S_30092:; 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(22852);if(r)goto S_30092;} 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(22853);}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(22854);}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(22855);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; if(!qbevent)break;evnt(22856);}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(22859);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22859);}while(r); LABEL_GOTCONSTBLKITYP:; if(qbevent){evnt(22861);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(22862);}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(22863);}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(22864);}while(r); LABEL_GOTCONSTBLKTYP:; if(qbevent){evnt(22865);r=0;} } S_30104:; if ((-(*_FUNC_EVALUATECONST_LONG_A== 34 ))||new_error){ if(qbevent){evnt(22869);if(r)goto S_30104;} 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(22871);}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(22872);}while(r); } } } fornext_continue_3305:; } fornext_exit_3305:; do{ *_FUNC_EVALUATECONST_LONG_N2= 0 ; if(!qbevent)break;evnt(22880);}while(r); S_30112:; fornext_value3316= 1 ; fornext_finalvalue3316=*_FUNC_EVALUATECONST_LONG_N; fornext_step3316= 1 ; if (fornext_step3316<0) fornext_step_negative3316=1; else fornext_step_negative3316=0; if (new_error) goto fornext_error3316; goto fornext_entrylabel3316; while(1){ fornext_value3316=fornext_step3316+(*_FUNC_EVALUATECONST_LONG_I); fornext_entrylabel3316: *_FUNC_EVALUATECONST_LONG_I=fornext_value3316; if (fornext_step_negative3316){ if (fornext_value3316fornext_finalvalue3316) break; } fornext_error3316:; if(qbevent){evnt(22881);if(r)goto S_30112;} S_30113:; 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(22882);if(r)goto S_30113;} do{ *_FUNC_EVALUATECONST_LONG_N2=*_FUNC_EVALUATECONST_LONG_N2+ 1 ; if(!qbevent)break;evnt(22883);}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(22884);}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(22885);}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(22886);}while(r); } fornext_continue_3315:; } fornext_exit_3315:; do{ *_FUNC_EVALUATECONST_LONG_N=*_FUNC_EVALUATECONST_LONG_N2; if(!qbevent)break;evnt(22889);}while(r); S_30121:; if ((-(*_FUNC_EVALUATECONST_LONG_N== 1 ))||new_error){ if(qbevent){evnt(22892);if(r)goto S_30121;} S_30122:; 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(22893);if(r)goto S_30122;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.2",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22893);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22893);}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(22894);}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(22895);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22896);}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(22902);}while(r); S_30131:; 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(22903);if(r)goto S_30131;} S_30132:; if ((-(*_FUNC_EVALUATECONST_LONG_N!= 2 ))||new_error){ if(qbevent){evnt(22904);if(r)goto S_30132;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.4",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22904);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22904);}while(r); } S_30136:; 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(22905);if(r)goto S_30136;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.5",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22905);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22905);}while(r); } S_30140:; 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(22906);if(r)goto S_30140;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.6",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22906);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22906);}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(22907);}while(r); S_30145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,func_chr( 241 ))))||new_error){ if(qbevent){evnt(22909);if(r)goto S_30145;} S_30146:; 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(22910);if(r)goto S_30146;} 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(22911);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22912);}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(22914);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22915);}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(22917);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22918);}while(r); } S_30156:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("NOT",3))))||new_error){ if(qbevent){evnt(22921);if(r)goto S_30156;} S_30157:; 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(22922);if(r)goto S_30157;} 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(22923);}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(22925);}while(r); } do{ *_FUNC_EVALUATECONST_INTEGER64_R=~(*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(22927);}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(22928);}while(r); S_30164:; if ((*_FUNC_EVALUATECONST_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(22929);if(r)goto S_30164;} do{ *_FUNC_EVALUATECONST_LONG_T=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(22929);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22930);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22931);}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(22934);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22934);}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(22940);}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(22941);}while(r); do{ *_FUNC_EVALUATECONST_LONG_I= 2 ; if(!qbevent)break;evnt(22943);}while(r); LABEL_EVALCONSTEQU:; if(qbevent){evnt(22945);r=0;} S_30176:; if ((-(*_FUNC_EVALUATECONST_LONG_I>=*_FUNC_EVALUATECONST_LONG_N))||new_error){ if(qbevent){evnt(22948);if(r)goto S_30176;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.8",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22948);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22948);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_O,((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(22949);}while(r); do{ *_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; if(!qbevent)break;evnt(22950);}while(r); S_30182:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATECONST_STRING_O)== 0 )))||new_error){ if(qbevent){evnt(22951);if(r)goto S_30182;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.9",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22951);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22951);}while(r); } S_30186:; if ((-(*_FUNC_EVALUATECONST_LONG_I>*_FUNC_EVALUATECONST_LONG_N))||new_error){ if(qbevent){evnt(22952);if(r)goto S_30186;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.10",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22952);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22952);}while(r); } S_30190:; 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(22955);if(r)goto S_30190;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.11",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22955);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22955);}while(r); } S_30194:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(22957);if(r)goto S_30194;} S_30195:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(22958);if(r)goto S_30195;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.12",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22958);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(22958);}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(22960);}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(22961);}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(22962);}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(22963);}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(22964);}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(22965);}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(&(pass3323=*_FUNC_EVALUATECONST_LONG_S1SIZE+*_FUNC_EVALUATECONST_LONG_S2SIZE)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22966);}while(r); do{ goto LABEL_ECONSTMARKEDUP; if(!qbevent)break;evnt(22967);}while(r); } S_30208:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(22971);if(r)goto S_30208;} do{ *_FUNC_EVALUATECONST_LONG_LINTEGER= 0 ; if(!qbevent)break;evnt(22972);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_L=string2f(_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22973);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_L=qbr(*_FUNC_EVALUATECONST_FLOAT_L); if(!qbevent)break;evnt(22974);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_LINTEGER= 1 ; if(!qbevent)break;evnt(22976);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_L=string2i64(_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(22977);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_L=*_FUNC_EVALUATECONST_INTEGER64_L; if(!qbevent)break;evnt(22978);}while(r); } S_30217:; 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(22980);if(r)goto S_30217;} do{ *_FUNC_EVALUATECONST_LONG_RINTEGER= 0 ; if(!qbevent)break;evnt(22981);}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(22982);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(22983);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_RINTEGER= 1 ; if(!qbevent)break;evnt(22985);}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(22986);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22987);}while(r); } S_30226:; if (((-(*_FUNC_EVALUATECONST_LONG_LINTEGER== 1 ))&(-(*_FUNC_EVALUATECONST_LONG_RINTEGER== 1 )))||new_error){ if(qbevent){evnt(22990);if(r)goto S_30226;} S_30227:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(22991);if(r)goto S_30227;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L+*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22991);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(22991);}while(r); } S_30231:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(22992);if(r)goto S_30231;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L-*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22992);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(22992);}while(r); } S_30235:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(22993);if(r)goto S_30235;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L**_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22993);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(22993);}while(r); } S_30239:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ if(qbevent){evnt(22994);if(r)goto S_30239;} do{ *_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_INTEGER64_L,*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(22994);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(22994);}while(r); } S_30243:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(22995);if(r)goto S_30243;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_L/ ((long double)(*_FUNC_EVALUATECONST_INTEGER64_R)); if(!qbevent)break;evnt(22995);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(22995);}while(r); } S_30247:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(22996);if(r)goto S_30247;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L/ *_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22996);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(22996);}while(r); } S_30251:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ if(qbevent){evnt(22997);if(r)goto S_30251;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L%*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(22997);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(22997);}while(r); } S_30255:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(22998);if(r)goto S_30255;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L==*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(22998);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(22998);}while(r); } S_30259:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(22999);if(r)goto S_30259;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(22999);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(22999);}while(r); } S_30263:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(23000);if(r)goto S_30263;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(23000);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23000);}while(r); } S_30267:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(23001);if(r)goto S_30267;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>=*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(23001);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23001);}while(r); } S_30271:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(23002);if(r)goto S_30271;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<=*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(23002);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23002);}while(r); } S_30275:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(23003);if(r)goto S_30275;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L!=*_FUNC_EVALUATECONST_INTEGER64_R); if(!qbevent)break;evnt(23003);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23003);}while(r); } S_30279:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(23004);if(r)goto S_30279;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(23004);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(23004);}while(r); } S_30283:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ if(qbevent){evnt(23005);if(r)goto S_30283;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(23005);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(23005);}while(r); } S_30287:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(23006);if(r)goto S_30287;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(23006);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(23006);}while(r); } S_30291:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(23007);if(r)goto S_30291;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(23007);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(23007);}while(r); } S_30295:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(23008);if(r)goto S_30295;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L&*_FUNC_EVALUATECONST_INTEGER64_R; if(!qbevent)break;evnt(23008);}while(r); do{ goto LABEL_ECONSTMARKUPI; if(!qbevent)break;evnt(23008);}while(r); } } S_30300:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(23011);if(r)goto S_30300;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L+*_FUNC_EVALUATECONST_FLOAT_R; if(!qbevent)break;evnt(23011);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(23011);}while(r); } S_30304:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23012);if(r)goto S_30304;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L-*_FUNC_EVALUATECONST_FLOAT_R; if(!qbevent)break;evnt(23012);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(23012);}while(r); } S_30308:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(23013);if(r)goto S_30308;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L**_FUNC_EVALUATECONST_FLOAT_R; if(!qbevent)break;evnt(23013);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(23013);}while(r); } S_30312:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ if(qbevent){evnt(23014);if(r)goto S_30312;} do{ *_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_FLOAT_L,*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23014);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(23014);}while(r); } S_30316:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(23015);if(r)goto S_30316;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L/ *_FUNC_EVALUATECONST_FLOAT_R; if(!qbevent)break;evnt(23015);}while(r); do{ goto LABEL_ECONSTMARKUPF; if(!qbevent)break;evnt(23015);}while(r); } S_30320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(23016);if(r)goto S_30320;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)/ qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23016);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23016);}while(r); } S_30324:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ if(qbevent){evnt(23017);if(r)goto S_30324;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)%qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23017);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23017);}while(r); } S_30328:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(23018);if(r)goto S_30328;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L==*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23018);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23018);}while(r); } S_30332:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(23019);if(r)goto S_30332;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23019);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23019);}while(r); } S_30336:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(23020);if(r)goto S_30336;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23020);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23020);}while(r); } S_30340:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ if(qbevent){evnt(23021);if(r)goto S_30340;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>=*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23021);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23021);}while(r); } S_30344:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ if(qbevent){evnt(23022);if(r)goto S_30344;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<=*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23022);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23022);}while(r); } S_30348:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(23023);if(r)goto S_30348;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L!=*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23023);}while(r); do{ goto LABEL_ECONSTMARKUPI16; if(!qbevent)break;evnt(23023);}while(r); } S_30352:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(23024);if(r)goto S_30352;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23024);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23024);}while(r); } S_30356:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ if(qbevent){evnt(23025);if(r)goto S_30356;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23025);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23025);}while(r); } S_30360:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(23026);if(r)goto S_30360;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23026);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23026);}while(r); } S_30364:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(23027);if(r)goto S_30364;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23027);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23027);}while(r); } S_30368:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(23028);if(r)goto S_30368;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)&qbr(*_FUNC_EVALUATECONST_FLOAT_R); if(!qbevent)break;evnt(23028);}while(r); do{ goto LABEL_ECONSTMARKUPI32; if(!qbevent)break;evnt(23028);}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(23030);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23030);}while(r); LABEL_ECONSTMARKUPI16:; if(qbevent){evnt(23032);r=0;} do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(23033);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23034);}while(r); do{ goto LABEL_ECONSTMARKEDUP; if(!qbevent)break;evnt(23035);}while(r); LABEL_ECONSTMARKUPI32:; if(qbevent){evnt(23037);r=0;} do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(23038);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23039);}while(r); do{ goto LABEL_ECONSTMARKEDUP; if(!qbevent)break;evnt(23040);}while(r); LABEL_ECONSTMARKUPI:; if(qbevent){evnt(23042);r=0;} S_30380:; 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(23043);if(r)goto S_30380;} do{ *_FUNC_EVALUATECONST_LONG_U= 0 ; if(!qbevent)break;evnt(23045);}while(r); S_30382:; 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(23045);if(r)goto S_30382;} do{ *_FUNC_EVALUATECONST_LONG_U= 1 ; if(!qbevent)break;evnt(23045);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_LB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; if(!qbevent)break;evnt(23046);}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(23046);}while(r); do{ *_FUNC_EVALUATECONST_LONG_OB= 0 ; if(!qbevent)break;evnt(23047);}while(r); S_30388:; if ((-(*_FUNC_EVALUATECONST_LONG_LB==*_FUNC_EVALUATECONST_LONG_RB))||new_error){ if(qbevent){evnt(23048);if(r)goto S_30388;} S_30389:; 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(23049);if(r)goto S_30389;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; if(!qbevent)break;evnt(23049);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; if(!qbevent)break;evnt(23050);}while(r); } S_30394:; if ((-(*_FUNC_EVALUATECONST_LONG_LB>*_FUNC_EVALUATECONST_LONG_RB))||new_error){ if(qbevent){evnt(23052);if(r)goto S_30394;} S_30395:; if ((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ if(qbevent){evnt(23053);if(r)goto S_30395;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; if(!qbevent)break;evnt(23053);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; if(!qbevent)break;evnt(23054);}while(r); } S_30400:; if ((-(*_FUNC_EVALUATECONST_LONG_LB<*_FUNC_EVALUATECONST_LONG_RB))||new_error){ if(qbevent){evnt(23056);if(r)goto S_30400;} S_30401:; 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(23057);if(r)goto S_30401;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; if(!qbevent)break;evnt(23057);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_RB; if(!qbevent)break;evnt(23058);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_B; if(!qbevent)break;evnt(23060);}while(r); S_30407:; if ((*_FUNC_EVALUATECONST_LONG_OB)||new_error){ if(qbevent){evnt(23061);if(r)goto S_30407;} do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(23061);}while(r); } S_30410:; if ((*_FUNC_EVALUATECONST_LONG_U)||new_error){ if(qbevent){evnt(23062);if(r)goto S_30410;} do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(23062);}while(r); } } do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23064);}while(r); do{ goto LABEL_ECONSTMARKEDUP; if(!qbevent)break;evnt(23065);}while(r); LABEL_ECONSTMARKUPF:; if(qbevent){evnt(23067);r=0;} do{ *_FUNC_EVALUATECONST_LONG_LFB= 0 ; if(!qbevent)break;evnt(23068);}while(r); do{ *_FUNC_EVALUATECONST_LONG_RFB= 0 ; if(!qbevent)break;evnt(23068);}while(r); do{ *_FUNC_EVALUATECONST_LONG_LIB= 0 ; if(!qbevent)break;evnt(23069);}while(r); do{ *_FUNC_EVALUATECONST_LONG_RIB= 0 ; if(!qbevent)break;evnt(23069);}while(r); S_30420:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(23070);if(r)goto S_30420;} do{ *_FUNC_EVALUATECONST_LONG_LFB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; if(!qbevent)break;evnt(23070);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_LIB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; if(!qbevent)break;evnt(23070);}while(r); } S_30425:; 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(23071);if(r)goto S_30425;} 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(23071);}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(23071);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_F= 32 ; if(!qbevent)break;evnt(23072);}while(r); S_30431:; if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 16 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 16 )))||new_error){ if(qbevent){evnt(23073);if(r)goto S_30431;} do{ *_FUNC_EVALUATECONST_LONG_F= 64 ; if(!qbevent)break;evnt(23073);}while(r); } S_30434:; if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 32 )))||new_error){ if(qbevent){evnt(23074);if(r)goto S_30434;} do{ *_FUNC_EVALUATECONST_LONG_F= 64 ; if(!qbevent)break;evnt(23074);}while(r); } S_30437:; if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 32 )))||new_error){ if(qbevent){evnt(23075);if(r)goto S_30437;} do{ *_FUNC_EVALUATECONST_LONG_F= 256 ; if(!qbevent)break;evnt(23075);}while(r); } S_30440:; if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 64 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 64 )))||new_error){ if(qbevent){evnt(23076);if(r)goto S_30440;} do{ *_FUNC_EVALUATECONST_LONG_F= 256 ; if(!qbevent)break;evnt(23076);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_ISFLOAT+*_FUNC_EVALUATECONST_LONG_F; if(!qbevent)break;evnt(23077);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23078);}while(r); LABEL_ECONSTMARKEDUP:; if(qbevent){evnt(23080);r=0;} do{ *_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; if(!qbevent)break;evnt(23082);}while(r); S_30446:; if ((-(*_FUNC_EVALUATECONST_LONG_I<=*_FUNC_EVALUATECONST_LONG_N))||new_error){ if(qbevent){evnt(23084);if(r)goto S_30446;} do{ goto LABEL_EVALCONSTEQU; if(!qbevent)break;evnt(23084);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_T=*_FUNC_EVALUATECONST_LONG_ET; if(!qbevent)break;evnt(23086);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23087);}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_30451:; if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(23093);if(r)goto S_30451;} S_30452:; if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(23094);if(r)goto S_30452;} 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(23094);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23094);}while(r); } do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,qbs_new_txt_len("$",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23095);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23096);}while(r); } do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23099);}while(r); S_30460:; if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(23101);if(r)goto S_30460;} do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("~",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23101);}while(r); } do{ *_FUNC_TYPEVALUE2SYMBOL_LONG_B=*_FUNC_TYPEVALUE2SYMBOL_LONG_T& 511 ; if(!qbevent)break;evnt(23103);}while(r); S_30464:; if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(23105);if(r)goto S_30464;} S_30465:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B> 1 ))||new_error){ if(qbevent){evnt(23106);if(r)goto S_30465;} 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(23106);}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(23106);}while(r); } do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23107);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23108);}while(r); } S_30473:; if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(23111);if(r)goto S_30473;} S_30474:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ if(qbevent){evnt(23112);if(r)goto S_30474;} do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23112);}while(r); } S_30477:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ if(qbevent){evnt(23113);if(r)goto S_30477;} do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23113);}while(r); } S_30480:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 256 ))||new_error){ if(qbevent){evnt(23114);if(r)goto S_30480;} do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23114);}while(r); } do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23115);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23116);}while(r); } S_30486:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 8 ))||new_error){ if(qbevent){evnt(23119);if(r)goto S_30486;} 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(23119);}while(r); } S_30489:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 16 ))||new_error){ if(qbevent){evnt(23120);if(r)goto S_30489;} 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(23120);}while(r); } S_30492:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ if(qbevent){evnt(23121);if(r)goto S_30492;} 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(23121);}while(r); } S_30495:; if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ if(qbevent){evnt(23122);if(r)goto S_30495;} 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(23122);}while(r); } do{ qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23123);}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(23129);}while(r); S_30500:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_T== 0 ))||new_error){ if(qbevent){evnt(23130);if(r)goto S_30500;} do{ *_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(23130);}while(r); } do{ *_FUNC_ID2FULLTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(23131);}while(r); do{ *_FUNC_ID2FULLTYPENAME_LONG_BITS=*_FUNC_ID2FULLTYPENAME_LONG_T& 511 ; if(!qbevent)break;evnt(23132);}while(r); S_30505:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(23133);if(r)goto S_30505;} 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(23134);}while(r); do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23135);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23135);}while(r); } S_30510:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(23137);if(r)goto S_30510;} S_30511:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(23138);if(r)goto S_30511;} 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(23138);}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(23138);}while(r); } do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23139);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23139);}while(r); } S_30519:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(23141);if(r)goto S_30519;} S_30520:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS> 1 ))||new_error){ if(qbevent){evnt(23142);if(r)goto S_30520;} 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(23142);}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(23142);}while(r); } S_30525:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(23143);if(r)goto S_30525;} 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(23143);}while(r); } do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23144);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23144);}while(r); } S_30531:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(23146);if(r)goto S_30531;} S_30532:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(23147);if(r)goto S_30532;} do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23147);}while(r); } S_30535:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(23148);if(r)goto S_30535;} do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23148);}while(r); } S_30538:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 256 ))||new_error){ if(qbevent){evnt(23149);if(r)goto S_30538;} 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(23149);}while(r); } }else{ S_30542:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 8 ))||new_error){ if(qbevent){evnt(23151);if(r)goto S_30542;} 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(23151);}while(r); } S_30545:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 16 ))||new_error){ if(qbevent){evnt(23152);if(r)goto S_30545;} do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23152);}while(r); } S_30548:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(23153);if(r)goto S_30548;} do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23153);}while(r); } S_30551:; if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(23154);if(r)goto S_30551;} 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(23154);}while(r); } S_30554:; if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(23155);if(r)goto S_30554;} 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(23155);}while(r); } } do{ qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23157);}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(23161);}while(r); S_30560:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||new_error){ if(qbevent){evnt(23162);if(r)goto S_30560;} do{ *_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(23162);}while(r); } do{ *_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(23163);}while(r); do{ *_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ; if(!qbevent)break;evnt(23164);}while(r); S_30565:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ if(qbevent){evnt(23165);if(r)goto S_30565;} 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(23166);}while(r); do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23167);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23167);}while(r); } S_30570:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(23169);if(r)goto S_30570;} S_30571:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ if(qbevent){evnt(23170);if(r)goto S_30571;} 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(23170);}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(23170);}while(r); } do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23171);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23171);}while(r); } S_30579:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ if(qbevent){evnt(23173);if(r)goto S_30579;} S_30580:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(23174);if(r)goto S_30580;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23174);}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(23174);}while(r); } S_30585:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||new_error){ if(qbevent){evnt(23175);if(r)goto S_30585;} 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(23175);}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(23175);}while(r); } do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23176);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23176);}while(r); } S_30593:; if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(23178);if(r)goto S_30593;} S_30594:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(23179);if(r)goto S_30594;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23179);}while(r); } S_30597:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(23180);if(r)goto S_30597;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23180);}while(r); } S_30600:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||new_error){ if(qbevent){evnt(23181);if(r)goto S_30600;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23181);}while(r); } }else{ S_30604:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||new_error){ if(qbevent){evnt(23183);if(r)goto S_30604;} S_30605:; if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(23184);if(r)goto S_30605;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23184);}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(23184);}while(r); } } S_30611:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||new_error){ if(qbevent){evnt(23186);if(r)goto S_30611;} S_30612:; if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(23187);if(r)goto S_30612;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23187);}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(23187);}while(r); } } S_30618:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ if(qbevent){evnt(23189);if(r)goto S_30618;} S_30619:; if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(23190);if(r)goto S_30619;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23190);}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(23190);}while(r); } } S_30625:; if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ if(qbevent){evnt(23192);if(r)goto S_30625;} S_30626:; if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ if(qbevent){evnt(23193);if(r)goto S_30626;} do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23193);}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(23193);}while(r); } } } do{ qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23196);}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(23201);}while(r); S_30635:; 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(23203);if(r)goto S_30635;} do{ *_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ; if(!qbevent)break;evnt(23204);}while(r); S_30637:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||new_error){ if(qbevent){evnt(23205);if(r)goto S_30637;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23205);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23205);}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(23206);}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(23207);}while(r); } S_30644:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||new_error){ if(qbevent){evnt(23210);if(r)goto S_30644;} 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(23210);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23210);}while(r); } S_30648:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||new_error){ if(qbevent){evnt(23211);if(r)goto S_30648;} 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(23211);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23211);}while(r); } S_30652:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||new_error){ if(qbevent){evnt(23212);if(r)goto S_30652;} 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(23212);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23212);}while(r); } S_30656:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||new_error){ if(qbevent){evnt(23213);if(r)goto S_30656;} 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(23213);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23213);}while(r); } S_30660:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||new_error){ if(qbevent){evnt(23214);if(r)goto S_30660;} 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(23214);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23214);}while(r); } S_30664:; 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(23216);if(r)goto S_30664;} S_30665:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||new_error){ if(qbevent){evnt(23217);if(r)goto S_30665;} 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(23218);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23219);}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(23221);}while(r); S_30670:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(23222);if(r)goto S_30670;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23222);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23222);}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(23223);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23224);}while(r); } S_30677:; if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||new_error){ if(qbevent){evnt(23227);if(r)goto S_30677;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23227);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23227);}while(r); } S_30681:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||new_error){ if(qbevent){evnt(23229);if(r)goto S_30681;} do{ qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23229);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23229);}while(r); } S_30685:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(23230);if(r)goto S_30685;} do{ qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23230);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23230);}while(r); } S_30689:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||new_error){ if(qbevent){evnt(23231);if(r)goto S_30689;} 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(23231);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23231);}while(r); } S_30693:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(23232);if(r)goto S_30693;} do{ qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23232);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23232);}while(r); } S_30697:; 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(23234);if(r)goto S_30697;} 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(23235);}while(r); S_30699:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ if(qbevent){evnt(23236);if(r)goto S_30699;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23236);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23236);}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(23237);}while(r); do{ goto LABEL_GOTSYM2TYP; if(!qbevent)break;evnt(23238);}while(r); } do{ qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23241);}while(r); LABEL_GOTSYM2TYP:; if(qbevent){evnt(23243);r=0;} S_30707:; 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(23245);if(r)goto S_30707;} 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(23245);}while(r); } S_30710:; fornext_value3331= 1 ; fornext_finalvalue3331=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len; fornext_step3331= 1 ; if (fornext_step3331<0) fornext_step_negative3331=1; else fornext_step_negative3331=0; if (new_error) goto fornext_error3331; goto fornext_entrylabel3331; while(1){ fornext_value3331=fornext_step3331+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I); fornext_entrylabel3331: *_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value3331; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3331){ if (fornext_value3331fornext_finalvalue3331) break; } fornext_error3331:; if(qbevent){evnt(23247);if(r)goto S_30710;} S_30711:; 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(23248);if(r)goto S_30711;} 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(23248);}while(r); } fornext_continue_3330:; } fornext_exit_3330:; do{ qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23251);}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(23256);}while(r); do{ *_SUB_LINEINPUT3LOAD_LONG_L=func_lof( 1 ); if(!qbevent)break;evnt(23257);}while(r); do{ qbs_set(__STRING_LINEINPUT3BUFFER,func_space(*_SUB_LINEINPUT3LOAD_LONG_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23258);}while(r); do{ sub_get2( 1 ,NULL,__STRING_LINEINPUT3BUFFER,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23259);}while(r); S_30720:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LINEINPUT3BUFFER->len))||new_error){ if(qbevent){evnt(23260);if(r)goto S_30720;} S_30721:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_LINEINPUT3BUFFER, 1 ),func_chr( 26 ))))||new_error){ if(qbevent){evnt(23260);if(r)goto S_30721;} do{ qbs_set(__STRING_LINEINPUT3BUFFER,qbs_left(__STRING_LINEINPUT3BUFFER,__STRING_LINEINPUT3BUFFER->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23260);}while(r); } } do{ sub_close( 1 ,1); if(!qbevent)break;evnt(23261);}while(r); do{ *__LONG_LINEINPUT3INDEX= 1 ; if(!qbevent)break;evnt(23262);}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(23267);}while(r); S_30728:; if ((-(*__LONG_LINEINPUT3INDEX>*_FUNC_LINEINPUT3_LONG_L))||new_error){ if(qbevent){evnt(23268);if(r)goto S_30728;} do{ qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_chr( 13 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23268);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23268);}while(r); } do{ *_FUNC_LINEINPUT3_LONG_C13=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 13 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23269);}while(r); do{ *_FUNC_LINEINPUT3_LONG_C10=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 10 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23270);}while(r); S_30734:; if (((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))&(-(*_FUNC_LINEINPUT3_LONG_C13== 0 )))||new_error){ if(qbevent){evnt(23271);if(r)goto S_30734;} do{ qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_L-*__LONG_LINEINPUT3INDEX+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23272);}while(r); do{ *__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_L+ 1 ; if(!qbevent)break;evnt(23273);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23274);}while(r); } S_30739:; if ((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))||new_error){ if(qbevent){evnt(23276);if(r)goto S_30739;} do{ *_FUNC_LINEINPUT3_LONG_C10= 2147483647 ; if(!qbevent)break;evnt(23276);}while(r); } S_30742:; if ((-(*_FUNC_LINEINPUT3_LONG_C13== 0 ))||new_error){ if(qbevent){evnt(23277);if(r)goto S_30742;} do{ *_FUNC_LINEINPUT3_LONG_C13= 2147483647 ; if(!qbevent)break;evnt(23277);}while(r); } S_30745:; if ((-(*_FUNC_LINEINPUT3_LONG_C10<*_FUNC_LINEINPUT3_LONG_C13))||new_error){ if(qbevent){evnt(23278);if(r)goto S_30745;} do{ qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C10-*__LONG_LINEINPUT3INDEX,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23280);}while(r); do{ *__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C10+ 1 ; if(!qbevent)break;evnt(23281);}while(r); S_30748:; if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ if(qbevent){evnt(23282);if(r)goto S_30748;} S_30749:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 13 )))||new_error){ if(qbevent){evnt(23283);if(r)goto S_30749;} do{ *__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; if(!qbevent)break;evnt(23283);}while(r); } } }else{ do{ qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C13-*__LONG_LINEINPUT3INDEX,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23287);}while(r); do{ *__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C13+ 1 ; if(!qbevent)break;evnt(23288);}while(r); S_30756:; if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ if(qbevent){evnt(23289);if(r)goto S_30756;} S_30757:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 10 )))||new_error){ if(qbevent){evnt(23290);if(r)goto S_30757;} do{ *__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; if(!qbevent)break;evnt(23290);}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_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 "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_30762:; fornext_value3339=_FUNC_GETFILEPATH_STRING_F->len; fornext_finalvalue3339= 1 ; fornext_step3339= -1 ; if (fornext_step3339<0) fornext_step_negative3339=1; else fornext_step_negative3339=0; if (new_error) goto fornext_error3339; goto fornext_entrylabel3339; while(1){ fornext_value3339=fornext_step3339+(*_FUNC_GETFILEPATH_LONG_I); fornext_entrylabel3339: *_FUNC_GETFILEPATH_LONG_I=fornext_value3339; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3339){ if (fornext_value3339fornext_finalvalue3339) break; } fornext_error3339:; if(qbevent){evnt(23296);if(r)goto S_30762;} do{ qbs_set(_FUNC_GETFILEPATH_STRING_A,func_mid(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23297);}while(r); S_30764:; 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(23298);if(r)goto S_30764;} 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(23299);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23300);}while(r); } fornext_continue_3338:; } fornext_exit_3338:; do{ qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23303);}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_GETFILEPATH_STRING_GETFILEPATH);return _FUNC_GETFILEPATH_STRING_GETFILEPATH; } 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 "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_30770:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(23309);if(r)goto S_30770;} do{ goto exit_subfunc; if(!qbevent)break;evnt(23309);}while(r); } do{ *_FUNC_ELEUCASE_LONG_I= 1 ; if(!qbevent)break;evnt(23310);}while(r); S_30774:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||new_error){ if(qbevent){evnt(23311);if(r)goto S_30774;} 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(23312);}while(r); S_30776:; if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||new_error){ if(qbevent){evnt(23313);if(r)goto S_30776;} do{ qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23313);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23313);}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(23314);}while(r); do{ *_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2; if(!qbevent)break;evnt(23315);}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(23318);}while(r); S_30784:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||new_error){ if(qbevent){evnt(23319);if(r)goto S_30784;} S_30785:; while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1)))||new_error){ if(qbevent){evnt(23320);if(r)goto S_30785;} do{ *_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23321);}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 ,1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23322);}while(r); do{ *_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23323);}while(r); S_30789:; if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||new_error){ if(qbevent){evnt(23323);if(r)goto S_30789;} do{ *_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23323);}while(r); }else{ do{ *_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ; if(!qbevent)break;evnt(23323);}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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23324);}while(r); do{ *_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ; if(!qbevent)break;evnt(23325);}while(r); S_30796:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||new_error){ if(qbevent){evnt(23326);if(r)goto S_30796;} do{ goto dl_exit_3344; if(!qbevent)break;evnt(23326);}while(r); } dl_continue_3344:; } dl_exit_3344:; } 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 ,1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23329);}while(r); do{ qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23330);}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_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 "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; S_30803:; if ((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)||new_error){ if(qbevent){evnt(23335);if(r)goto S_30803;} 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(23336);}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; } void SUB_BUILD(qbs*_SUB_BUILD_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 "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{ qbs_set(_SUB_BUILD_STRING_PREVIOUS_DIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23341);}while(r); do{ *_SUB_BUILD_LONG_DEPTH= 1 ; if(!qbevent)break;evnt(23344);}while(r); S_30808:; fornext_value3350= 1 ; fornext_finalvalue3350=_SUB_BUILD_STRING_PATH->len; fornext_step3350= 1 ; if (fornext_step3350<0) fornext_step_negative3350=1; else fornext_step_negative3350=0; if (new_error) goto fornext_error3350; goto fornext_entrylabel3350; while(1){ fornext_value3350=fornext_step3350+(*_SUB_BUILD_LONG_X); fornext_entrylabel3350: *_SUB_BUILD_LONG_X=fornext_value3350; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3350){ if (fornext_value3350fornext_finalvalue3350) break; } fornext_error3350:; if(qbevent){evnt(23345);if(r)goto S_30808;} S_30809:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 92 ))|(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 47 ))))||new_error){ if(qbevent){evnt(23346);if(r)goto S_30809;} do{ *_SUB_BUILD_LONG_DEPTH=*_SUB_BUILD_LONG_DEPTH+ 1 ; if(!qbevent)break;evnt(23346);}while(r); } fornext_continue_3349:; } fornext_exit_3349:; do{ sub_chdir(_SUB_BUILD_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23348);}while(r); do{ qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("..",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23350);}while(r); S_30815:; fornext_value3353= 2 ; fornext_finalvalue3353=*_SUB_BUILD_LONG_DEPTH; fornext_step3353= 1 ; if (fornext_step3353<0) fornext_step_negative3353=1; else fornext_step_negative3353=0; if (new_error) goto fornext_error3353; goto fornext_entrylabel3353; while(1){ fornext_value3353=fornext_step3353+(*_SUB_BUILD_LONG_X); fornext_entrylabel3353: *_SUB_BUILD_LONG_X=fornext_value3353; if (fornext_step_negative3353){ if (fornext_value3353fornext_finalvalue3353) break; } fornext_error3353:; if(qbevent){evnt(23351);if(r)goto S_30815;} do{ qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_add(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("\\..",3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23352);}while(r); fornext_continue_3352:; } fornext_exit_3352:; do{ *_SUB_BUILD_LONG_BFH=func_freefile(); if(!qbevent)break;evnt(23355);}while(r); do{ sub_open(qbs_add(qbs_new_txt_len("build",5),__STRING_BATCHFILE_EXTENSION), 2 ,NULL,NULL,*_SUB_BUILD_LONG_BFH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23356);}while(r); S_30820:; while((!(func_eof(*_SUB_BUILD_LONG_BFH)))||new_error){ if(qbevent){evnt(23357);if(r)goto S_30820;} do{ tmp_fileno=*_SUB_BUILD_LONG_BFH; if (new_error) goto skip3355; sub_file_line_input_string(tmp_fileno,_SUB_BUILD_STRING_C); if (new_error) goto skip3355; skip3355: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23358);}while(r); do{ *_SUB_BUILD_LONG_USE= 0 ; if(!qbevent)break;evnt(23359);}while(r); S_30823:; if ((qbs_cleanup(qbs_tmp_base,_SUB_BUILD_STRING_C->len))||new_error){ if(qbevent){evnt(23360);if(r)goto S_30823;} do{ *_SUB_BUILD_LONG_USE= 1 ; if(!qbevent)break;evnt(23360);}while(r); } S_30826:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_BUILD_STRING_C,qbs_new_txt_len("pause",5))))||new_error){ if(qbevent){evnt(23361);if(r)goto S_30826;} do{ *_SUB_BUILD_LONG_USE= 0 ; if(!qbevent)break;evnt(23361);}while(r); } S_30829:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_BUILD_STRING_C, 1 ),qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(23362);if(r)goto S_30829;} do{ *_SUB_BUILD_LONG_USE= 0 ; if(!qbevent)break;evnt(23362);}while(r); } S_30832:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_SUB_BUILD_STRING_C, 13 )),(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname",9))))))||new_error){ if(qbevent){evnt(23363);if(r)goto S_30832;} do{ *_SUB_BUILD_LONG_USE= 0 ; if(!qbevent)break;evnt(23363);}while(r); } S_30835:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_lcase(_SUB_BUILD_STRING_C),qbs_new_txt_len("press any key",13),0)))||new_error){ if(qbevent){evnt(23364);if(r)goto S_30835;} do{ goto dl_exit_3354; if(!qbevent)break;evnt(23364);}while(r); } do{ qbs_set(_SUB_BUILD_STRING_C,FUNC_GDB_FIX(_SUB_BUILD_STRING_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23365);}while(r); S_30839:; if ((*_SUB_BUILD_LONG_USE)||new_error){ if(qbevent){evnt(23366);if(r)goto S_30839;} S_30840:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(23367);if(r)goto S_30840;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /C ",7),_SUB_BUILD_STRING_C),qbs_new_txt_len(" 2>> ",5)),_SUB_BUILD_STRING_RETURN_PATH),qbs_new_txt_len("\\",1)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23368);}while(r); }else{ do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_BUILD_STRING_C,qbs_new_txt_len(" 2>> ",5)),_SUB_BUILD_STRING_PREVIOUS_DIR),qbs_new_txt_len("/",1)),__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23370);}while(r); } } dl_continue_3354:; } dl_exit_3354:; do{ sub_close(*_SUB_BUILD_LONG_BFH,1); if(!qbevent)break;evnt(23374);}while(r); S_30848:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(23376);if(r)goto S_30848;} do{ sub_chdir(_SUB_BUILD_STRING_RETURN_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23377);}while(r); }else{ do{ sub_chdir(_SUB_BUILD_STRING_PREVIOUS_DIR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23379);}while(r); } 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; } qbs* FUNC_GDB_FIX(qbs*_FUNC_GDB_FIX_STRING_G_COMMAND){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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{ qbs_set(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_G_COMMAND); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23384);}while(r); S_30854:; if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ if(qbevent){evnt(23385);if(r)goto S_30854;} S_30855:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("gcc ",4)))|(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("g++ ",4)))))||new_error){ if(qbevent){evnt(23386);if(r)goto S_30855;} do{ qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len- 4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23387);}while(r); do{ goto LABEL_ADDED_GDB_FLAG; if(!qbevent)break;evnt(23388);}while(r); } S_30859:; fornext_value3360= 1 ; fornext_finalvalue3360= 6 ; fornext_step3360= 1 ; if (fornext_step3360<0) fornext_step_negative3360=1; else fornext_step_negative3360=0; if (new_error) goto fornext_error3360; goto fornext_entrylabel3360; while(1){ fornext_value3360=fornext_step3360+(*_FUNC_GDB_FIX_LONG_O); fornext_entrylabel3360: *_FUNC_GDB_FIX_LONG_O=fornext_value3360; if (fornext_step_negative3360){ if (fornext_value3360fornext_finalvalue3360) break; } fornext_error3360:; if(qbevent){evnt(23390);if(r)goto S_30859;} S_30860:; if ((-(*_FUNC_GDB_FIX_LONG_O== 1 ))||new_error){ if(qbevent){evnt(23391);if(r)goto S_30860;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\g++ ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23391);}while(r); } S_30863:; if ((-(*_FUNC_GDB_FIX_LONG_O== 2 ))||new_error){ if(qbevent){evnt(23392);if(r)goto S_30863;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/g++ ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23392);}while(r); } S_30866:; if ((-(*_FUNC_GDB_FIX_LONG_O== 3 ))||new_error){ if(qbevent){evnt(23393);if(r)goto S_30866;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\gcc ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23393);}while(r); } S_30869:; if ((-(*_FUNC_GDB_FIX_LONG_O== 4 ))||new_error){ if(qbevent){evnt(23394);if(r)goto S_30869;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/gcc ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23394);}while(r); } S_30872:; if ((-(*_FUNC_GDB_FIX_LONG_O== 5 ))||new_error){ if(qbevent){evnt(23395);if(r)goto S_30872;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" gcc ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23395);}while(r); } S_30875:; if ((-(*_FUNC_GDB_FIX_LONG_O== 6 ))||new_error){ if(qbevent){evnt(23396);if(r)goto S_30875;} do{ qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" g++ ",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23396);}while(r); } do{ *_FUNC_GDB_FIX_LONG_X=func_instr(NULL,qbs_ucase(_FUNC_GDB_FIX_STRING_C),qbs_ucase(_FUNC_GDB_FIX_STRING_O),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23397);}while(r); S_30879:; if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ if(qbevent){evnt(23399);if(r)goto S_30879;} do{ qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),_FUNC_GDB_FIX_STRING_O),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X-(_FUNC_GDB_FIX_STRING_O->len- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23399);}while(r); do{ goto fornext_exit_3359; if(!qbevent)break;evnt(23399);}while(r); } fornext_continue_3359:; } fornext_exit_3359:; LABEL_ADDED_GDB_FLAG:; if(qbevent){evnt(23401);r=0;} do{ *_FUNC_GDB_FIX_LONG_X=func_instr(NULL,_FUNC_GDB_FIX_STRING_C,qbs_new_txt_len(" -s ",4),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23403);}while(r); S_30885:; if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ if(qbevent){evnt(23403);if(r)goto S_30885;} do{ qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),qbs_new_txt_len(" ",1)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X- 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23403);}while(r); } } do{ qbs_set(_FUNC_GDB_FIX_STRING_GDB_FIX,_FUNC_GDB_FIX_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23405);}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_maketmp(_FUNC_GDB_FIX_STRING_GDB_FIX);return _FUNC_GDB_FIX_STRING_GDB_FIX; } 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 "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; S_30890:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(23410);if(r)goto S_30890;} S_30891:; fornext_value3366= 1 ; fornext_finalvalue3366=_SUB_PATH_SLASH_CORRECT_STRING_A->len; fornext_step3366= 1 ; if (fornext_step3366<0) fornext_step_negative3366=1; else fornext_step_negative3366=0; if (new_error) goto fornext_error3366; goto fornext_entrylabel3366; while(1){ fornext_value3366=fornext_step3366+(*_SUB_PATH_SLASH_CORRECT_LONG_X); fornext_entrylabel3366: *_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3366; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3366){ if (fornext_value3366fornext_finalvalue3366) break; } fornext_error3366:; if(qbevent){evnt(23411);if(r)goto S_30891;} S_30892:; 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(23412);if(r)goto S_30892;} 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(23412);}while(r); } fornext_continue_3365:; } fornext_exit_3365:; }else{ S_30897:; fornext_value3369= 1 ; fornext_finalvalue3369=_SUB_PATH_SLASH_CORRECT_STRING_A->len; fornext_step3369= 1 ; if (fornext_step3369<0) fornext_step_negative3369=1; else fornext_step_negative3369=0; if (new_error) goto fornext_error3369; goto fornext_entrylabel3369; while(1){ fornext_value3369=fornext_step3369+(*_SUB_PATH_SLASH_CORRECT_LONG_X); fornext_entrylabel3369: *_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3369; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3369){ if (fornext_value3369fornext_finalvalue3369) break; } fornext_error3369:; if(qbevent){evnt(23415);if(r)goto S_30897;} S_30898:; 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(23416);if(r)goto S_30898;} 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(23416);}while(r); } fornext_continue_3368:; } fornext_exit_3368:; } 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* 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 "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_EVALUATE_EXPRESSION_STRING_T,_FUNC_EVALUATE_EXPRESSION_STRING_E); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23423);}while(r); do{ SUB_PREPARSE(_FUNC_EVALUATE_EXPRESSION_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23424);}while(r); S_30905:; 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(23427);if(r)goto S_30905;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23427);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23427);}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(23430);}while(r); S_30910:; do{ if(qbevent){evnt(23432);if(r)goto S_30910;} 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(23433);}while(r); S_30912:; if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E> 0 ))||new_error){ if(qbevent){evnt(23434);if(r)goto S_30912;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; if(!qbevent)break;evnt(23435);}while(r); S_30914:; while((!(-((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C)<=( 0 ))))||new_error){ if(qbevent){evnt(23436);if(r)goto S_30914;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; if(!qbevent)break;evnt(23437);}while(r); S_30916:; if ((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E)||new_error){ if(qbevent){evnt(23438);if(r)goto S_30916;} S_30917:; 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 ,1),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(23439);if(r)goto S_30917;} do{ goto dl_exit_3373; if(!qbevent)break;evnt(23439);}while(r); } } dl_continue_3373:; } dl_exit_3373:; do{ *_FUNC_EVALUATE_EXPRESSION_LONG_S=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; if(!qbevent)break;evnt(23442);}while(r); S_30923:; if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_S< 1 ))||new_error){ if(qbevent){evnt(23443);if(r)goto S_30923;} 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(23443);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23443);}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,1)),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23444);}while(r); do{ SUB_PARSEEXPRESSION(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23446);}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(23447);}while(r); S_30930:; 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(23448);if(r)goto S_30930;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23448);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23448);}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(23449);}while(r); S_30935:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 , 1 ,1),qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(23450);if(r)goto S_30935;} do{ sub_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 ,0,qbs_new_txt_len("-",1),0); if(!qbevent)break;evnt(23450);}while(r); } } S_30939:; dl_continue_3372:; }while((!(-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E== 0 )))&&(!new_error)); dl_exit_3372:; if(qbevent){evnt(23452);if(r)goto S_30939;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; if(!qbevent)break;evnt(23453);}while(r); S_30941:; do{ if(qbevent){evnt(23454);if(r)goto S_30941;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; if(!qbevent)break;evnt(23455);}while(r); S_30943:; qbs_set(sc_3375,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(23456);if(r)goto S_30943;} S_30944:; if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(sc_3375,qbs_new_txt_len("0",1))&&qbs_lessorequal(sc_3375,qbs_new_txt_len("9",1)))||qbs_equal(sc_3375,qbs_new_txt_len(".",1))||qbs_equal(sc_3375,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23457);if(r)goto S_30944;} sc_ec_60_end:; goto sc_3375_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(23458);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23458);}while(r); sc_3375_end:; S_30949:; dl_continue_3374:; }while((!(qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATE_EXPRESSION_LONG_C>=_FUNC_EVALUATE_EXPRESSION_STRING_EXP->len))))&&(!new_error)); dl_exit_3374:; if(qbevent){evnt(23460);if(r)goto S_30949;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23462);}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_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 "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 (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&2){ error(10); }else{ if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&1){ error(10); }else{ _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4]= 0 ; _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]=( 10 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4]+1; _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[6]=1; _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]=(ptrszint)malloc(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]*8); if (!_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]) error(257); _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]|=1; tmp_long=_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]; if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&4){ while(tmp_long--) ((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(23468);}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(23470);}while(r); S_30953:; fornext_value3379= 1 ; fornext_finalvalue3379= 250 ; fornext_step3379= 1 ; if (fornext_step3379<0) fornext_step_negative3379=1; else fornext_step_negative3379=0; if (new_error) goto fornext_error3379; goto fornext_entrylabel3379; while(1){ fornext_value3379=fornext_step3379+(*_SUB_PARSEEXPRESSION_LONG_J); fornext_entrylabel3379: *_SUB_PARSEEXPRESSION_LONG_J=fornext_value3379; if (fornext_step_negative3379){ if (fornext_value3379fornext_finalvalue3379) break; } fornext_error3379:; if(qbevent){evnt(23473);if(r)goto S_30953;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST= 0 ; if(!qbevent)break;evnt(23474);}while(r); S_30955:; while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_PARSEEXPRESSION_LONG_LOWEST==_SUB_PARSEEXPRESSION_STRING_EXP->len))))||new_error){ if(qbevent){evnt(23475);if(r)goto S_30955;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST=_SUB_PARSEEXPRESSION_STRING_EXP->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23476);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_OPON= 0 ; if(!qbevent)break;evnt(23476);}while(r); S_30958:; fornext_value3384= 1 ; fornext_finalvalue3384=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3384= 1 ; if (fornext_step3384<0) fornext_step_negative3384=1; else fornext_step_negative3384=0; if (new_error) goto fornext_error3384; goto fornext_entrylabel3384; while(1){ fornext_value3384=fornext_step3384+(*_SUB_PARSEEXPRESSION_LONG_P); fornext_entrylabel3384: *_SUB_PARSEEXPRESSION_LONG_P=fornext_value3384; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3384){ if (fornext_value3384fornext_finalvalue3384) break; } fornext_error3384:; if(qbevent){evnt(23477);if(r)goto S_30958;} S_30959:; 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(23479);if(r)goto S_30959;} S_30960:; 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(23480);if(r)goto S_30960;} do{ *_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; if(!qbevent)break;evnt(23480);}while(r); }else{ do{ *_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; if(!qbevent)break;evnt(23480);}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])])),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23481);}while(r); S_30966:; 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(23482);if(r)goto S_30966;} 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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23484);}while(r); S_30968:; if ((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))||new_error){ if(qbevent){evnt(23485);if(r)goto S_30968;} 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(23486);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_LOWEST+ 1 ; if(!qbevent)break;evnt(23487);}while(r); } } S_30973:; if (((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))&(-(*_SUB_PARSEEXPRESSION_LONG_OP<*_SUB_PARSEEXPRESSION_LONG_LOWEST)))||new_error){ if(qbevent){evnt(23490);if(r)goto S_30973;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_OP; if(!qbevent)break;evnt(23490);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_OPON=*_SUB_PARSEEXPRESSION_LONG_P; if(!qbevent)break;evnt(23490);}while(r); } } fornext_continue_3383:; } fornext_exit_3383:; S_30979:; if ((-(*_SUB_PARSEEXPRESSION_LONG_OPON== 0 ))||new_error){ if(qbevent){evnt(23493);if(r)goto S_30979;} do{ goto dl_exit_3381; if(!qbevent)break;evnt(23493);}while(r); } S_30982:; 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(23494);if(r)goto S_30982;} do{ *_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; if(!qbevent)break;evnt(23494);}while(r); }else{ do{ *_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; if(!qbevent)break;evnt(23494);}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])])),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23495);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; if(!qbevent)break;evnt(23497);}while(r); S_30989:; 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(23500);if(r)goto S_30989;} S_30990:; qbs_set(sc_3385,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(23501);if(r)goto S_30990;} S_30991:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3385,qbs_new_txt_len("NOT",3))||qbs_equal(sc_3385,qbs_new_txt_len("XOR",3))||qbs_equal(sc_3385,qbs_new_txt_len("AND",3))||qbs_equal(sc_3385,qbs_new_txt_len("EQV",3))||qbs_equal(sc_3385,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(23502);if(r)goto S_30991;} do{ goto dl_exit_3381; if(!qbevent)break;evnt(23503);}while(r); sc_ec_61_end:; goto sc_3385_end; } sc_3385_end:; S_30994:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 2 ,1),qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(23505);if(r)goto S_30994;} do{ goto dl_exit_3381; if(!qbevent)break;evnt(23505);}while(r); } } S_30998:; if ((*_SUB_PARSEEXPRESSION_LONG_OP)||new_error){ if(qbevent){evnt(23508);if(r)goto S_30998;} 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(23509);}while(r); S_31000:; do{ if(qbevent){evnt(23510);if(r)goto S_31000;} S_31001:; qbs_set(sc_3388,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C+ 1 , 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(23511);if(r)goto S_31001;} S_31002:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3388,qbs_new_txt_len("0",1))||qbs_equal(sc_3388,qbs_new_txt_len("1",1))||qbs_equal(sc_3388,qbs_new_txt_len("2",1))||qbs_equal(sc_3388,qbs_new_txt_len("3",1))||qbs_equal(sc_3388,qbs_new_txt_len("4",1))||qbs_equal(sc_3388,qbs_new_txt_len("5",1))||qbs_equal(sc_3388,qbs_new_txt_len("6",1))||qbs_equal(sc_3388,qbs_new_txt_len("7",1))||qbs_equal(sc_3388,qbs_new_txt_len("8",1))||qbs_equal(sc_3388,qbs_new_txt_len("9",1))||qbs_equal(sc_3388,qbs_new_txt_len(".",1))||qbs_equal(sc_3388,qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(23512);if(r)goto S_31002;} do{ *_SUB_PARSEEXPRESSION_LONG_NUMSET= -1 ; if(!qbevent)break;evnt(23512);}while(r); sc_ec_62_end:; goto sc_3388_end; } S_31004:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3388,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23513);if(r)goto S_31004;} S_31005:; 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(23514);if(r)goto S_31005;} do{ goto dl_exit_3387; if(!qbevent)break;evnt(23514);}while(r); } sc_ec_63_end:; goto sc_3388_end; } S_31008:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3388,qbs_new_txt_len(",",1))))||new_error){ if(qbevent){evnt(23515);if(r)goto S_31008;} do{ *_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; if(!qbevent)break;evnt(23515);}while(r); sc_ec_64_end:; goto sc_3388_end; } do{ goto dl_exit_3387; if(!qbevent)break;evnt(23517);}while(r); sc_3388_end:; do{ *_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; if(!qbevent)break;evnt(23519);}while(r); S_31014:; dl_continue_3387:; }while((!(qbs_cleanup(qbs_tmp_base,-((*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C)>=(_SUB_PARSEEXPRESSION_STRING_EXP->len)))))&&(!new_error)); dl_exit_3387:; if(qbevent){evnt(23520);if(r)goto S_31014;} do{ *__LONG_E=*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C; if(!qbevent)break;evnt(23521);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_C= 0 ; if(!qbevent)break;evnt(23523);}while(r); S_31017:; do{ if(qbevent){evnt(23524);if(r)goto S_31017;} do{ *_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; if(!qbevent)break;evnt(23525);}while(r); S_31019:; qbs_set(sc_3391,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(23526);if(r)goto S_31019;} S_31020:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3391,qbs_new_txt_len("0",1))||qbs_equal(sc_3391,qbs_new_txt_len("1",1))||qbs_equal(sc_3391,qbs_new_txt_len("2",1))||qbs_equal(sc_3391,qbs_new_txt_len("3",1))||qbs_equal(sc_3391,qbs_new_txt_len("4",1))||qbs_equal(sc_3391,qbs_new_txt_len("5",1))||qbs_equal(sc_3391,qbs_new_txt_len("6",1))||qbs_equal(sc_3391,qbs_new_txt_len("7",1))||qbs_equal(sc_3391,qbs_new_txt_len("8",1))||qbs_equal(sc_3391,qbs_new_txt_len("9",1))||qbs_equal(sc_3391,qbs_new_txt_len(".",1))||qbs_equal(sc_3391,qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(23527);if(r)goto S_31020;} sc_ec_65_end:; goto sc_3391_end; } S_31021:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3391,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23528);if(r)goto S_31021;} do{ *_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C; if(!qbevent)break;evnt(23529);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_BAD= 0 ; if(!qbevent)break;evnt(23530);}while(r); S_31024:; do{ if(qbevent){evnt(23531);if(r)goto S_31024;} do{ *_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C1+ 1 ; if(!qbevent)break;evnt(23532);}while(r); S_31026:; qbs_set(sc_3393,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(23533);if(r)goto S_31026;} S_31027:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3393,qbs_new_txt_len("0",1))||qbs_equal(sc_3393,qbs_new_txt_len("1",1))||qbs_equal(sc_3393,qbs_new_txt_len("2",1))||qbs_equal(sc_3393,qbs_new_txt_len("3",1))||qbs_equal(sc_3393,qbs_new_txt_len("4",1))||qbs_equal(sc_3393,qbs_new_txt_len("5",1))||qbs_equal(sc_3393,qbs_new_txt_len("6",1))||qbs_equal(sc_3393,qbs_new_txt_len("7",1))||qbs_equal(sc_3393,qbs_new_txt_len("8",1))||qbs_equal(sc_3393,qbs_new_txt_len("9",1))||qbs_equal(sc_3393,qbs_new_txt_len(".",1))))||new_error){ if(qbevent){evnt(23534);if(r)goto S_31027;} do{ *_SUB_PARSEEXPRESSION_LONG_BAD= -1 ; if(!qbevent)break;evnt(23535);}while(r); do{ goto dl_exit_3392; if(!qbevent)break;evnt(23536);}while(r); sc_ec_66_end:; goto sc_3393_end; } sc_3393_end:; S_31032:; dl_continue_3392:; }while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1)<=( 0 ))))&&(!new_error)); dl_exit_3392:; if(qbevent){evnt(23540);if(r)goto S_31032;} S_31033:; if ((*_SUB_PARSEEXPRESSION_LONG_BAD)||new_error){ if(qbevent){evnt(23541);if(r)goto S_31033;} do{ goto dl_exit_3390; if(!qbevent)break;evnt(23541);}while(r); } sc_ec_67_end:; goto sc_3391_end; } do{ goto dl_exit_3390; if(!qbevent)break;evnt(23543);}while(r); sc_3391_end:; S_31039:; dl_continue_3390:; }while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C)<=( 0 ))))&&(!new_error)); dl_exit_3390:; if(qbevent){evnt(23545);if(r)goto S_31039;} do{ *_SUB_PARSEEXPRESSION_LONG_S=*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C; if(!qbevent)break;evnt(23546);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23547);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23548);}while(r); S_31043:; 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 ,1),qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(23549);if(r)goto S_31043;} 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(23549);}while(r); } S_31046:; 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 ,1),qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(23550);if(r)goto S_31046;} 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(23550);}while(r); } S_31049:; 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(23551);if(r)goto S_31049;} 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(23552);}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(23554);}while(r); } S_31054:; 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 ,1),qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23556);if(r)goto S_31054;} 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(23556);}while(r); } S_31057:; 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(23557);if(r)goto S_31057;} 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(23557);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23557);}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(23558);}while(r); } do{ *_SUB_PARSEEXPRESSION_LONG_OP= 0 ; if(!qbevent)break;evnt(23560);}while(r); dl_continue_3381:; } dl_exit_3381:; fornext_continue_3378:; } fornext_exit_3378:; 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_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 "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{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_ONAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_ONAME[2]&1){ tmp_long=__ARRAY_STRING_ONAME[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]); free((void*)(__ARRAY_STRING_ONAME[0])); } __ARRAY_STRING_ONAME[4]= 0 ; __ARRAY_STRING_ONAME[5]=( 10000 )-__ARRAY_STRING_ONAME[4]+1; __ARRAY_STRING_ONAME[6]=1; __ARRAY_STRING_ONAME[0]=(ptrszint)malloc(__ARRAY_STRING_ONAME[5]*8); if (!__ARRAY_STRING_ONAME[0]) error(257); __ARRAY_STRING_ONAME[2]|=1; tmp_long=__ARRAY_STRING_ONAME[5]; if (__ARRAY_STRING_ONAME[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if (__ARRAY_INTEGER_PL[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); if (__ARRAY_INTEGER_PL[2]&1){ if (__ARRAY_INTEGER_PL[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); }else{ free((void*)(__ARRAY_INTEGER_PL[0])); } } __ARRAY_INTEGER_PL[4]= 0 ; __ARRAY_INTEGER_PL[5]=( 10000 )-__ARRAY_INTEGER_PL[4]+1; __ARRAY_INTEGER_PL[6]=1; if (__ARRAY_INTEGER_PL[2]&4){ __ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_PL[5]*2); memset((void*)(__ARRAY_INTEGER_PL[0]),0,__ARRAY_INTEGER_PL[5]*2); }else{ __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(23572);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23575);}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(23575);}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(23575);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23576);}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(23576);}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(23576);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23577);}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(23577);}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(23577);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23578);}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(23578);}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(23578);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23579);}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(23579);}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(23579);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23580);}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(23580);}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(23580);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23581);}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(23581);}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(23581);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23582);}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(23582);}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(23582);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23583);}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(23583);}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(23583);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23584);}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(23584);}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(23584);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23585);}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(23585);}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(23585);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23586);}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(23586);}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(23586);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23587);}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(23587);}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(23587);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23588);}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(23588);}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(23588);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23589);}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(23589);}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(23589);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23592);}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(23592);}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(23592);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23593);}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(23593);}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(23593);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23594);}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(23594);}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(23594);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23595);}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(23595);}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(23595);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23596);}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(23596);}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(23596);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23597);}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(23597);}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(23597);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23598);}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(23598);}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(23598);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23599);}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(23599);}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(23599);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23600);}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(23600);}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(23600);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23601);}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(23601);}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(23601);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23602);}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(23602);}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(23602);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23603);}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(23603);}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(23603);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23604);}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(23604);}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(23604);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23605);}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(23605);}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(23605);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23606);}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(23606);}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(23606);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23607);}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(23607);}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(23607);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23608);}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(23608);}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(23608);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23609);}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(23609);}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(23609);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23610);}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(23610);}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(23610);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23611);}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(23611);}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(23611);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23612);}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(23612);}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(23612);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23613);}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(23613);}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(23613);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23614);}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(23614);}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(23614);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23615);}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(23615);}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(23615);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23616);}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(23616);}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(23616);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23617);}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(23617);}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(23617);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23618);}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(23618);}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(23618);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23619);}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(23619);}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(23619);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23620);}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(23620);}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(23620);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23621);}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(23621);}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(23621);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23622);}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(23622);}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(23622);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23623);}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("CHR$",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23623);}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(23623);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23624);}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(23624);}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(23624);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23625);}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(23625);}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(23625);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23626);}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(23626);}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(23626);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23627);}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(23627);}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(23627);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23628);}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(23628);}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(23628);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23629);}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(23629);}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(23629);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23630);}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(23630);}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(23630);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23631);}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(23631);}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(23631);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23632);}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(23632);}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(23632);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23633);}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(23633);}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(23633);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23634);}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(23634);}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(23634);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23635);}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(23635);}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(23635);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23638);}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(23638);}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(23638);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23639);}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(23639);}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(23639);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23640);}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(23640);}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(23640);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23642);}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(23642);}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(23642);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23643);}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(23643);}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(23643);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23645);}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(23645);}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(23645);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23647);}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(23647);}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(23647);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23649);}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(23649);}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(23649);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23650);}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(23650);}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(23650);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23653);}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(23653);}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(23653);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23654);}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(23654);}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(23654);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23655);}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(23655);}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(23655);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23656);}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(23656);}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(23656);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23657);}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(23657);}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(23657);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23658);}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(23658);}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(23658);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23659);}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(23659);}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(23659);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23660);}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(23660);}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(23660);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23661);}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(23661);}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(23661);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23663);}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(23663);}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(23663);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23664);}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(23664);}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(23664);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23665);}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(23665);}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(23665);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23666);}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(23666);}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(23666);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23667);}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(23667);}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(23667);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23668);}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(23668);}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(23668);}while(r); do{ *_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; if(!qbevent)break;evnt(23669);}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(23669);}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(23669);}while(r); do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_ONAME)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_ONAME[2]&1){ preserved_elements=__ARRAY_STRING_ONAME[5]; } else preserved_elements=0; __ARRAY_STRING_ONAME[4]= 0 ; __ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; __ARRAY_STRING_ONAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_ONAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_INTEGER_PL[2]&1){ preserved_elements=__ARRAY_INTEGER_PL[5]; } else preserved_elements=0; __ARRAY_INTEGER_PL[4]= 0 ; __ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; __ARRAY_INTEGER_PL[6]=1; if (__ARRAY_INTEGER_PL[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); tmp_long=__ARRAY_INTEGER_PL[5]; __ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); if (preserved_elements=mem_static)&&(tmp_mem_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 "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{ if(!qbevent)break;evnt(23675);}while(r); S_31321:; 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(23678);if(r)goto S_31321;} 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(23678);}while(r); } S_31324:; 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(23680);if(r)goto S_31324;} 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(23681);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23681);}while(r); } S_31328:; 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(23684);if(r)goto S_31328;} 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(23685);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23685);}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(23687);}while(r); S_31333:; if ((*_FUNC_EVALUATENUMBERS_LONG_L2)||new_error){ if(qbevent){evnt(23688);if(r)goto S_31333;} S_31334:; qbs_set(sc_3396,((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(23689);if(r)goto S_31334;} S_31335:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3396,qbs_new_txt_len("C_RG",4))||qbs_equal(sc_3396,qbs_new_txt_len("C_RA",4))||qbs_equal(sc_3396,qbs_new_txt_len("_RGB",4))||qbs_equal(sc_3396,qbs_new_txt_len("_RGBA",5))||qbs_equal(sc_3396,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3396,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3396,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3396,qbs_new_txt_len("_ALPHA",6))))||new_error){ if(qbevent){evnt(23690);if(r)goto S_31335;} sc_ec_68_end:; goto sc_3396_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(23692);}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(23693);}while(r); sc_3396_end:; } S_31341:; sc_3397=((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]; if(qbevent){evnt(23697);if(r)goto S_31341;} S_31342:; if (((sc_3397==( 5 )))||new_error){ if(qbevent){evnt(23698);if(r)goto S_31342;} S_31343:; qbs_set(sc_3398,((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(23700);if(r)goto S_31343;} S_31344:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_UOF",5))))||new_error){ if(qbevent){evnt(23701);if(r)goto S_31344;} 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(23701);}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(23701);}while(r); sc_ec_69_end:; goto sc_3398_end; } S_31347:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_ULO",5))))||new_error){ if(qbevent){evnt(23702);if(r)goto S_31347;} 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(23702);}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(23702);}while(r); sc_ec_70_end:; goto sc_3398_end; } S_31350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_UBY",5))))||new_error){ if(qbevent){evnt(23703);if(r)goto S_31350;} 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(23703);}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(23703);}while(r); sc_ec_71_end:; goto sc_3398_end; } S_31353:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_UIN",5))))||new_error){ if(qbevent){evnt(23704);if(r)goto S_31353;} 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(23704);}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(23704);}while(r); sc_ec_72_end:; goto sc_3398_end; } S_31356:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_BY",4))))||new_error){ if(qbevent){evnt(23705);if(r)goto S_31356;} 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(23705);}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(23705);}while(r); sc_ec_73_end:; goto sc_3398_end; } S_31359:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_IN",4))))||new_error){ if(qbevent){evnt(23706);if(r)goto S_31359;} 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(23706);}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(23706);}while(r); sc_ec_74_end:; goto sc_3398_end; } S_31362:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_UIF",5))))||new_error){ if(qbevent){evnt(23707);if(r)goto S_31362;} 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(23707);}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(23707);}while(r); sc_ec_75_end:; goto sc_3398_end; } S_31365:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_OF",4))))||new_error){ if(qbevent){evnt(23708);if(r)goto S_31365;} 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(23708);}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(23708);}while(r); sc_ec_76_end:; goto sc_3398_end; } S_31368:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_IF",4))))||new_error){ if(qbevent){evnt(23709);if(r)goto S_31368;} 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(23709);}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(23709);}while(r); sc_ec_77_end:; goto sc_3398_end; } S_31371:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_LO",4))))||new_error){ if(qbevent){evnt(23710);if(r)goto S_31371;} 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(23710);}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(23710);}while(r); sc_ec_78_end:; goto sc_3398_end; } S_31374:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_UBI",5))))||new_error){ if(qbevent){evnt(23711);if(r)goto S_31374;} 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(23711);}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(23711);}while(r); sc_ec_79_end:; goto sc_3398_end; } S_31377:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_BI",4))))||new_error){ if(qbevent){evnt(23712);if(r)goto S_31377;} 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(23712);}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(23712);}while(r); sc_ec_80_end:; goto sc_3398_end; } S_31380:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_FL",4))))||new_error){ if(qbevent){evnt(23713);if(r)goto S_31380;} 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(23713);}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(23713);}while(r); sc_ec_81_end:; goto sc_3398_end; } S_31383:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_DO",4))))||new_error){ if(qbevent){evnt(23714);if(r)goto S_31383;} 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(23714);}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(23714);}while(r); sc_ec_82_end:; goto sc_3398_end; } S_31386:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3398,qbs_new_txt_len("C_SI",4))))||new_error){ if(qbevent){evnt(23715);if(r)goto S_31386;} 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(23715);}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(23715);}while(r); sc_ec_83_end:; goto sc_3398_end; } sc_3398_end:; do{ goto exit_subfunc; if(!qbevent)break;evnt(23717);}while(r); sc_ec_84_end:; goto sc_3397_end; } S_31391:; if (((sc_3397==( 10 )))||new_error){ if(qbevent){evnt(23718);if(r)goto S_31391;} S_31392:; qbs_set(sc_3399,((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(23719);if(r)goto S_31392;} S_31393:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_PI",3))))||new_error){ if(qbevent){evnt(23720);if(r)goto S_31393;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1= 3.14159265358979323846264338327950288E+0L ; if(!qbevent)break;evnt(23721);}while(r); S_31395:; 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(23722);if(r)goto S_31395;} 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(23722);}while(r); } sc_ec_85_end:; goto sc_3399_end; } S_31398:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ACOS",5))))||new_error){ if(qbevent){evnt(23723);if(r)goto S_31398;} 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(23723);}while(r); sc_ec_86_end:; goto sc_3399_end; } S_31400:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ASIN",5))))||new_error){ if(qbevent){evnt(23724);if(r)goto S_31400;} 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(23724);}while(r); sc_ec_87_end:; goto sc_3399_end; } S_31402:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ARCSEC",7))))||new_error){ if(qbevent){evnt(23725);if(r)goto S_31402;} 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(23725);}while(r); sc_ec_88_end:; goto sc_3399_end; } S_31404:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ARCCSC",7))))||new_error){ if(qbevent){evnt(23726);if(r)goto S_31404;} 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(23726);}while(r); sc_ec_89_end:; goto sc_3399_end; } S_31406:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ARCCOT",7))))||new_error){ if(qbevent){evnt(23727);if(r)goto S_31406;} 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(23727);}while(r); sc_ec_90_end:; goto sc_3399_end; } S_31408:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_SECH",5))))||new_error){ if(qbevent){evnt(23728);if(r)goto S_31408;} 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(23728);}while(r); sc_ec_91_end:; goto sc_3399_end; } S_31410:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_CSCH",5))))||new_error){ if(qbevent){evnt(23729);if(r)goto S_31410;} 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(23729);}while(r); sc_ec_92_end:; goto sc_3399_end; } S_31412:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_COTH",5))))||new_error){ if(qbevent){evnt(23730);if(r)goto S_31412;} 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(23730);}while(r); sc_ec_93_end:; goto sc_3399_end; } S_31414:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("C_RG",4))))||new_error){ if(qbevent){evnt(23731);if(r)goto S_31414;} 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(23732);}while(r); S_31416:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23733);if(r)goto S_31416;} 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(23733);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23733);}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(23734);}while(r); S_31421:; if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ if(qbevent){evnt(23735);if(r)goto S_31421;} do{ *_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23735);}while(r); } S_31424:; if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ if(qbevent){evnt(23736);if(r)goto S_31424;} do{ *_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23736);}while(r); } S_31427:; if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ if(qbevent){evnt(23737);if(r)goto S_31427;} do{ *_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23737);}while(r); } S_31430:; if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ if(qbevent){evnt(23738);if(r)goto S_31430;} 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(23739);}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(23740);}while(r); S_31433:; }else{ if (-(*_FUNC_EVALUATENUMBERS_LONG_C2== 0 )){ if(qbevent){evnt(23741);if(r)goto S_31433;} 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(23742);}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(23743);}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(23744);}while(r); S_31437:; }else{ if (-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 )){ if(qbevent){evnt(23745);if(r)goto S_31437;} 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(23746);}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(23747);}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(23748);}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(23749);}while(r); S_31442:; }else{ if (-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 )){ if(qbevent){evnt(23750);if(r)goto S_31442;} 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(23751);}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(23752);}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(23753);}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(23754);}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(23755);}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(23757);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23757);}while(r); } } } } sc_ec_94_end:; goto sc_3399_end; } S_31452:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("C_RA",4))))||new_error){ if(qbevent){evnt(23759);if(r)goto S_31452;} 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(23760);}while(r); S_31454:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23761);if(r)goto S_31454;} 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(23761);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23761);}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(23762);}while(r); S_31459:; if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ if(qbevent){evnt(23763);if(r)goto S_31459;} do{ *_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23763);}while(r); } S_31462:; if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ if(qbevent){evnt(23764);if(r)goto S_31462;} do{ *_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23764);}while(r); } S_31465:; if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ if(qbevent){evnt(23765);if(r)goto S_31465;} do{ *_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23765);}while(r); } S_31468:; if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ if(qbevent){evnt(23766);if(r)goto S_31468;} 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(23766);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23766);}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(23768);}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(23769);}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(23770);}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(23771);}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(23772);}while(r); sc_ec_95_end:; goto sc_3399_end; } S_31477:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_RGB",4))))||new_error){ if(qbevent){evnt(23773);if(r)goto S_31477;} 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(23774);}while(r); S_31479:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23775);if(r)goto S_31479;} 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(23775);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23775);}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(23776);}while(r); S_31484:; if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ if(qbevent){evnt(23777);if(r)goto S_31484;} do{ *_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23777);}while(r); } S_31487:; if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ if(qbevent){evnt(23778);if(r)goto S_31487;} do{ *_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23778);}while(r); } S_31490:; if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ if(qbevent){evnt(23779);if(r)goto S_31490;} do{ *_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23779);}while(r); } S_31493:; if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ if(qbevent){evnt(23780);if(r)goto S_31493;} 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(23780);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23780);}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(23782);}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(23783);}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(23784);}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(23785);}while(r); S_31501:; if(qbevent){evnt(23786);if(r)goto S_31501;} S_31502:; 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(23787);if(r)goto S_31502;} sc_ec_96_end:; goto sc_3400_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(23789);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23789);}while(r); sc_3400_end:; do{ *_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,1); if(!qbevent)break;evnt(23791);}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,1); if(!qbevent)break;evnt(23792);}while(r); do{ sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23793);}while(r); sc_ec_97_end:; goto sc_3399_end; } S_31510:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_RGBA",5))))||new_error){ if(qbevent){evnt(23794);if(r)goto S_31510;} 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(23795);}while(r); S_31512:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23796);if(r)goto S_31512;} 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(23796);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23796);}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(23797);}while(r); S_31517:; if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ if(qbevent){evnt(23798);if(r)goto S_31517;} do{ *_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23798);}while(r); } S_31520:; if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ if(qbevent){evnt(23799);if(r)goto S_31520;} do{ *_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23799);}while(r); } S_31523:; if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ if(qbevent){evnt(23800);if(r)goto S_31523;} do{ *_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23800);}while(r); } S_31526:; if ((*_FUNC_EVALUATENUMBERS_LONG_C4)||new_error){ if(qbevent){evnt(23801);if(r)goto S_31526;} do{ *_FUNC_EVALUATENUMBERS_LONG_C5=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23801);}while(r); } S_31529:; if (((-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C5!= 0 )))||new_error){ if(qbevent){evnt(23802);if(r)goto S_31529;} 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(23802);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23802);}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(23804);}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(23805);}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(23806);}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(23807);}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(23808);}while(r); S_31538:; if(qbevent){evnt(23809);if(r)goto S_31538;} S_31539:; 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(23810);if(r)goto S_31539;} sc_ec_98_end:; goto sc_3401_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(23812);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23812);}while(r); sc_3401_end:; do{ *_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N5,1); if(!qbevent)break;evnt(23814);}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,1); if(!qbevent)break;evnt(23815);}while(r); do{ sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23816);}while(r); sc_ec_99_end:; goto sc_3399_end; } S_31547:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3399,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3399,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3399,qbs_new_txt_len("_ALPHA",6))))||new_error){ if(qbevent){evnt(23817);if(r)goto S_31547;} 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(23818);}while(r); S_31549:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23819);if(r)goto S_31549;} 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(23819);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23819);}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(23820);}while(r); S_31554:; if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ if(qbevent){evnt(23821);if(r)goto S_31554;} 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(23821);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23821);}while(r); } S_31558:; if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ if(qbevent){evnt(23822);if(r)goto S_31558;} do{ *_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23822);}while(r); } S_31561:; if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ if(qbevent){evnt(23823);if(r)goto S_31561;} 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(23823);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23823);}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(23824);}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(23825);}while(r); S_31567:; if(qbevent){evnt(23826);if(r)goto S_31567;} S_31568:; 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(23827);if(r)goto S_31568;} sc_ec_100_end:; goto sc_3402_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(23829);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23829);}while(r); sc_3402_end:; do{ *_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,1); if(!qbevent)break;evnt(23831);}while(r); S_31574:; qbs_set(sc_3403,((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(23832);if(r)goto S_31574;} S_31575:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3403,qbs_new_txt_len("_RED",4))))||new_error){ if(qbevent){evnt(23833);if(r)goto S_31575;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23833);}while(r); sc_ec_101_end:; goto sc_3403_end; } S_31577:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3403,qbs_new_txt_len("_BLUE",5))))||new_error){ if(qbevent){evnt(23834);if(r)goto S_31577;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23834);}while(r); sc_ec_102_end:; goto sc_3403_end; } S_31579:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3403,qbs_new_txt_len("_GREEN",6))))||new_error){ if(qbevent){evnt(23835);if(r)goto S_31579;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23835);}while(r); sc_ec_103_end:; goto sc_3403_end; } S_31581:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3403,qbs_new_txt_len("_ALPHA",6))))||new_error){ if(qbevent){evnt(23836);if(r)goto S_31581;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23836);}while(r); sc_ec_104_end:; goto sc_3403_end; } sc_3403_end:; do{ sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); if(!qbevent)break;evnt(23838);}while(r); sc_ec_105_end:; goto sc_3399_end; } S_31585:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("C_RX",4))||qbs_equal(sc_3399,qbs_new_txt_len("C_GR",4))||qbs_equal(sc_3399,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3399,qbs_new_txt_len("C_AL",4))))||new_error){ if(qbevent){evnt(23839);if(r)goto S_31585;} 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(23840);}while(r); S_31587:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(23841);if(r)goto S_31587;} 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(23841);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23841);}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(23842);}while(r); S_31592:; qbs_set(sc_3404,((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(23843);if(r)goto S_31592;} S_31593:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3404,qbs_new_txt_len("C_RX",4))))||new_error){ if(qbevent){evnt(23844);if(r)goto S_31593;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red32(*_FUNC_EVALUATENUMBERS_LONG_N); if(!qbevent)break;evnt(23844);}while(r); sc_ec_106_end:; goto sc_3404_end; } S_31595:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3404,qbs_new_txt_len("C_BL",4))))||new_error){ if(qbevent){evnt(23845);if(r)goto S_31595;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue32(*_FUNC_EVALUATENUMBERS_LONG_N); if(!qbevent)break;evnt(23845);}while(r); sc_ec_107_end:; goto sc_3404_end; } S_31597:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3404,qbs_new_txt_len("C_GR",4))))||new_error){ if(qbevent){evnt(23846);if(r)goto S_31597;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green32(*_FUNC_EVALUATENUMBERS_LONG_N); if(!qbevent)break;evnt(23846);}while(r); sc_ec_108_end:; goto sc_3404_end; } S_31599:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3404,qbs_new_txt_len("C_AL",4))))||new_error){ if(qbevent){evnt(23847);if(r)goto S_31599;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha32(*_FUNC_EVALUATENUMBERS_LONG_N); if(!qbevent)break;evnt(23847);}while(r); sc_ec_109_end:; goto sc_3404_end; } sc_3404_end:; sc_ec_110_end:; goto sc_3399_end; } S_31602:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("COS",3))))||new_error){ if(qbevent){evnt(23849);if(r)goto S_31602;} 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(23849);}while(r); sc_ec_111_end:; goto sc_3399_end; } S_31604:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("SIN",3))))||new_error){ if(qbevent){evnt(23850);if(r)goto S_31604;} 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(23850);}while(r); sc_ec_112_end:; goto sc_3399_end; } S_31606:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("TAN",3))))||new_error){ if(qbevent){evnt(23851);if(r)goto S_31606;} 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(23851);}while(r); sc_ec_113_end:; goto sc_3399_end; } S_31608:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("LOG",3))))||new_error){ if(qbevent){evnt(23852);if(r)goto S_31608;} 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(23852);}while(r); sc_ec_114_end:; goto sc_3399_end; } S_31610:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("EXP",3))))||new_error){ if(qbevent){evnt(23853);if(r)goto S_31610;} 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(23853);}while(r); sc_ec_115_end:; goto sc_3399_end; } S_31612:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("ATN",3))))||new_error){ if(qbevent){evnt(23854);if(r)goto S_31612;} 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(23854);}while(r); sc_ec_116_end:; goto sc_3399_end; } S_31614:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_D2R",4))))||new_error){ if(qbevent){evnt(23855);if(r)goto S_31614;} 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(23855);}while(r); sc_ec_117_end:; goto sc_3399_end; } S_31616:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_D2G",4))))||new_error){ if(qbevent){evnt(23856);if(r)goto S_31616;} 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(23856);}while(r); sc_ec_118_end:; goto sc_3399_end; } S_31618:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_R2D",4))))||new_error){ if(qbevent){evnt(23857);if(r)goto S_31618;} 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(23857);}while(r); sc_ec_119_end:; goto sc_3399_end; } S_31620:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_R2G",4))))||new_error){ if(qbevent){evnt(23858);if(r)goto S_31620;} 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(23858);}while(r); sc_ec_120_end:; goto sc_3399_end; } S_31622:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_G2D",4))))||new_error){ if(qbevent){evnt(23859);if(r)goto S_31622;} 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(23859);}while(r); sc_ec_121_end:; goto sc_3399_end; } S_31624:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_G2R",4))))||new_error){ if(qbevent){evnt(23860);if(r)goto S_31624;} 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(23860);}while(r); sc_ec_122_end:; goto sc_3399_end; } S_31626:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("ABS",3))))||new_error){ if(qbevent){evnt(23861);if(r)goto S_31626;} 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(23861);}while(r); sc_ec_123_end:; goto sc_3399_end; } S_31628:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("SGN",3))))||new_error){ if(qbevent){evnt(23862);if(r)goto S_31628;} 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(23862);}while(r); sc_ec_124_end:; goto sc_3399_end; } S_31630:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("INT",3))))||new_error){ if(qbevent){evnt(23863);if(r)goto S_31630;} 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(23863);}while(r); sc_ec_125_end:; goto sc_3399_end; } S_31632:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_ROUND",6))))||new_error){ if(qbevent){evnt(23864);if(r)goto S_31632;} 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(23864);}while(r); sc_ec_126_end:; goto sc_3399_end; } S_31634:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_CEIL",5))))||new_error){ if(qbevent){evnt(23865);if(r)goto S_31634;} 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(23865);}while(r); sc_ec_127_end:; goto sc_3399_end; } S_31636:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("FIX",3))))||new_error){ if(qbevent){evnt(23866);if(r)goto S_31636;} 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(23866);}while(r); sc_ec_128_end:; goto sc_3399_end; } S_31638:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_SEC",4))))||new_error){ if(qbevent){evnt(23867);if(r)goto S_31638;} 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(23867);}while(r); sc_ec_129_end:; goto sc_3399_end; } S_31640:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_CSC",4))))||new_error){ if(qbevent){evnt(23868);if(r)goto S_31640;} 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(23868);}while(r); sc_ec_130_end:; goto sc_3399_end; } S_31642:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3399,qbs_new_txt_len("_COT",4))))||new_error){ if(qbevent){evnt(23869);if(r)goto S_31642;} 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(23869);}while(r); sc_ec_131_end:; goto sc_3399_end; } sc_3399_end:; sc_ec_132_end:; goto sc_3397_end; } S_31645:; if ((((sc_3397>=( 20 ))&&(sc_3397<=( 60 ))))||new_error){ if(qbevent){evnt(23871);if(r)goto S_31645;} S_31646:; qbs_set(sc_3405,((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(23872);if(r)goto S_31646;} S_31647:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("^",1))))||new_error){ if(qbevent){evnt(23873);if(r)goto S_31647;} 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(23873);}while(r); sc_ec_133_end:; goto sc_3405_end; } S_31649:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("SQR",3))))||new_error){ if(qbevent){evnt(23874);if(r)goto S_31649;} 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(23874);}while(r); sc_ec_134_end:; goto sc_3405_end; } S_31651:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("ROOT",4))))||new_error){ if(qbevent){evnt(23875);if(r)goto S_31651;} 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(23876);}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(23876);}while(r); S_31654:; if ((-(*_FUNC_EVALUATENUMBERS_FLOAT_N2== 1 ))||new_error){ if(qbevent){evnt(23877);if(r)goto S_31654;} 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(23877);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23877);}while(r); } S_31658:; if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N1< 0 ))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2>= 1 )))||new_error){ if(qbevent){evnt(23878);if(r)goto S_31658;} do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN= -1 ; if(!qbevent)break;evnt(23878);}while(r); do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(*_FUNC_EVALUATENUMBERS_FLOAT_N1); if(!qbevent)break;evnt(23878);}while(r); }else{ do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN= 1 ; if(!qbevent)break;evnt(23878);}while(r); } do{ *_FUNC_EVALUATENUMBERS_FLOAT_N3= 1E+0L / *_FUNC_EVALUATENUMBERS_FLOAT_N2; if(!qbevent)break;evnt(23879);}while(r); S_31665:; if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N3!=floor(*_FUNC_EVALUATENUMBERS_FLOAT_N3)))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2< 1 )))||new_error){ if(qbevent){evnt(23880);if(r)goto S_31665;} do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN=func_sgn((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); if(!qbevent)break;evnt(23880);}while(r); do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); if(!qbevent)break;evnt(23880);}while(r); } do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_LONG_SIGN*(pow2(*_FUNC_EVALUATENUMBERS_FLOAT_N1,*_FUNC_EVALUATENUMBERS_FLOAT_N3)); if(!qbevent)break;evnt(23881);}while(r); sc_ec_135_end:; goto sc_3405_end; } S_31670:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(23882);if(r)goto S_31670;} 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(23882);}while(r); sc_ec_136_end:; goto sc_3405_end; } S_31672:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(23883);if(r)goto S_31672;} S_31673:; 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(23884);if(r)goto S_31673;} 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(23885);}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(23887);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23888);}while(r); } sc_ec_137_end:; goto sc_3405_end; } S_31679:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(23890);if(r)goto S_31679;} S_31680:; 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(23891);if(r)goto S_31680;} 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(23892);}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(23894);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23895);}while(r); } sc_ec_138_end:; goto sc_3405_end; } S_31686:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("MOD",3))))||new_error){ if(qbevent){evnt(23897);if(r)goto S_31686;} S_31687:; 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(23898);if(r)goto S_31687;} 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(23899);}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(23901);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(23902);}while(r); } sc_ec_139_end:; goto sc_3405_end; } S_31693:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("+",1))))||new_error){ if(qbevent){evnt(23904);if(r)goto S_31693;} 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(23904);}while(r); sc_ec_140_end:; goto sc_3405_end; } S_31695:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3405,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(23905);if(r)goto S_31695;} 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(23906);}while(r); sc_ec_141_end:; goto sc_3405_end; } sc_3405_end:; sc_ec_142_end:; goto sc_3397_end; } S_31698:; if (((sc_3397==( 70 )))||new_error){ if(qbevent){evnt(23908);if(r)goto S_31698;} S_31699:; qbs_set(sc_3406,((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(23909);if(r)goto S_31699;} S_31700:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3406,qbs_new_txt_len("=",1))))||new_error){ if(qbevent){evnt(23910);if(r)goto S_31700;} 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(23910);}while(r); sc_ec_143_end:; goto sc_3406_end; } S_31702:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3406,qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(23911);if(r)goto S_31702;} 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(23911);}while(r); sc_ec_144_end:; goto sc_3406_end; } S_31704:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3406,qbs_new_txt_len("<",1))))||new_error){ if(qbevent){evnt(23912);if(r)goto S_31704;} 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_3406,qbs_new_txt_len("><",2))))||new_error){ if(qbevent){evnt(23913);if(r)goto S_31706;} 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(23913);}while(r); sc_ec_146_end:; goto sc_3406_end; } S_31708:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3406,qbs_new_txt_len("<=",2))||qbs_equal(sc_3406,qbs_new_txt_len("=<",2))))||new_error){ if(qbevent){evnt(23914);if(r)goto S_31708;} 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(23914);}while(r); sc_ec_147_end:; goto sc_3406_end; } S_31710:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3406,qbs_new_txt_len(">=",2))||qbs_equal(sc_3406,qbs_new_txt_len("=>",2))))||new_error){ if(qbevent){evnt(23915);if(r)goto S_31710;} 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(23915);}while(r); sc_ec_148_end:; goto sc_3406_end; } sc_3406_end:; sc_ec_149_end:; goto sc_3397_end; } S_31714:; qbs_set(sc_3407,((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(23918);if(r)goto S_31714;} S_31715:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("NOT",3))))||new_error){ if(qbevent){evnt(23919);if(r)goto S_31715;} 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(23919);}while(r); sc_ec_150_end:; goto sc_3407_end; } S_31717:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(23920);if(r)goto S_31717;} 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(23920);}while(r); sc_ec_151_end:; goto sc_3407_end; } S_31719:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(23921);if(r)goto S_31719;} 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(23921);}while(r); sc_ec_152_end:; goto sc_3407_end; } S_31721:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(23922);if(r)goto S_31721;} 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(23922);}while(r); sc_ec_153_end:; goto sc_3407_end; } S_31723:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("EQV",3))))||new_error){ if(qbevent){evnt(23923);if(r)goto S_31723;} 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(23923);}while(r); sc_ec_154_end:; goto sc_3407_end; } S_31725:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3407,qbs_new_txt_len("IMP",3))))||new_error){ if(qbevent){evnt(23924);if(r)goto S_31725;} 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(23924);}while(r); sc_ec_155_end:; goto sc_3407_end; } sc_3407_end:; sc_3397_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(23928);}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_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 "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; do{ qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23937);}while(r); S_31731:; do{ if(qbevent){evnt(23938);if(r)goto S_31731;} do{ *_FUNC_DWD_LONG_BAD= 0 ; if(!qbevent)break;evnt(23939);}while(r); S_31733:; do{ if(qbevent){evnt(23940);if(r)goto S_31733;} 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(23941);}while(r); S_31735:; if ((*_FUNC_DWD_LONG_L)||new_error){ if(qbevent){evnt(23942);if(r)goto S_31735;} 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(23942);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; if(!qbevent)break;evnt(23942);}while(r); } S_31739:; dl_continue_3410:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); dl_exit_3410:; if(qbevent){evnt(23943);if(r)goto S_31739;} S_31740:; do{ if(qbevent){evnt(23944);if(r)goto S_31740;} 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(23945);}while(r); S_31742:; if ((*_FUNC_DWD_LONG_L)||new_error){ if(qbevent){evnt(23946);if(r)goto S_31742;} 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(23946);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; if(!qbevent)break;evnt(23946);}while(r); } S_31746:; dl_continue_3411:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); dl_exit_3411:; if(qbevent){evnt(23947);if(r)goto S_31746;} S_31747:; do{ if(qbevent){evnt(23948);if(r)goto S_31747;} 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(23949);}while(r); S_31749:; if ((*_FUNC_DWD_LONG_L)||new_error){ if(qbevent){evnt(23950);if(r)goto S_31749;} 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(23950);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; if(!qbevent)break;evnt(23950);}while(r); } S_31753:; dl_continue_3412:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); dl_exit_3412:; if(qbevent){evnt(23951);if(r)goto S_31753;} S_31754:; do{ if(qbevent){evnt(23952);if(r)goto S_31754;} 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(23953);}while(r); S_31756:; if ((*_FUNC_DWD_LONG_L)||new_error){ if(qbevent){evnt(23954);if(r)goto S_31756;} 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(23954);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; if(!qbevent)break;evnt(23954);}while(r); } S_31760:; dl_continue_3413:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); dl_exit_3413:; if(qbevent){evnt(23955);if(r)goto S_31760;} S_31761:; dl_continue_3409:; }while((!(~(*_FUNC_DWD_LONG_BAD)))&&(!new_error)); dl_exit_3409:; if(qbevent){evnt(23956);if(r)goto S_31761;} do{ qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(23957);}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_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 "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{ if(!qbevent)break;evnt(23961);}while(r); do{ if(!qbevent)break;evnt(23962);}while(r); S_31765:; 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(23964);if(r)goto S_31765;} do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]); free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); } __ARRAY_STRING_PP_TYPEMOD[4]= 0 ; __ARRAY_STRING_PP_TYPEMOD[5]=( 100 )-__ARRAY_STRING_PP_TYPEMOD[4]+1; __ARRAY_STRING_PP_TYPEMOD[6]=1; __ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_TYPEMOD[5]*8); if (!__ARRAY_STRING_PP_TYPEMOD[0]) error(257); __ARRAY_STRING_PP_TYPEMOD[2]|=1; tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; if (__ARRAY_STRING_PP_TYPEMOD[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }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); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]); free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); } __ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; __ARRAY_STRING_PP_CONVERTEDMOD[5]=( 100 )-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; __ARRAY_STRING_PP_CONVERTEDMOD[6]=1; __ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_CONVERTEDMOD[5]*8); if (!__ARRAY_STRING_PP_CONVERTEDMOD[0]) error(257); __ARRAY_STRING_PP_CONVERTEDMOD[2]|=1; tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(23965);}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(23966);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23968);}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(23968);}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(23968);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23969);}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(23969);}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(23969);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23970);}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(23970);}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(23970);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23971);}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(23971);}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(23971);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23972);}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(23972);}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(23972);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23973);}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(23973);}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(23973);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23974);}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(23974);}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(23974);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23975);}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(23975);}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(23975);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23976);}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(23976);}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(23976);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23977);}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(23977);}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(23977);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23978);}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(23978);}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(23978);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23979);}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(23979);}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(23979);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23980);}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(23980);}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(23980);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23981);}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(23981);}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(23981);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23982);}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(23982);}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(23982);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23983);}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(23983);}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(23983);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23984);}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(23984);}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(23984);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23985);}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(23985);}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(23985);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23986);}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(23986);}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(23986);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23987);}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(23987);}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(23987);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23988);}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(23988);}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(23988);}while(r); do{ *_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; if(!qbevent)break;evnt(23989);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23990);}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(23990);}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(23990);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23991);}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(23991);}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(23991);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23992);}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(23992);}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(23992);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23993);}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(23993);}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(23993);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23994);}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(23994);}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(23994);}while(r); do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(23995);}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(23995);}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(23995);}while(r); do{ *_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; if(!qbevent)break;evnt(23996);}while(r); do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ preserved_elements=__ARRAY_STRING_PP_TYPEMOD[5]; } else preserved_elements=0; __ARRAY_STRING_PP_TYPEMOD[4]= 0 ; __ARRAY_STRING_PP_TYPEMOD[5]=(*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4]+1; __ARRAY_STRING_PP_TYPEMOD[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_PP_TYPEMOD[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ preserved_elements=__ARRAY_STRING_PP_CONVERTEDMOD[5]; } else preserved_elements=0; __ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; __ARRAY_STRING_PP_CONVERTEDMOD[5]=(*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; __ARRAY_STRING_PP_CONVERTEDMOD[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_PP_CONVERTEDMOD[5]; if (tmp_long2len; fornext_step3416= 1 ; if (fornext_step3416<0) fornext_step_negative3416=1; else fornext_step_negative3416=0; if (new_error) goto fornext_error3416; goto fornext_entrylabel3416; while(1){ fornext_value3416=fornext_step3416+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3416: *_SUB_PREPARSE_LONG_I=fornext_value3416; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3416){ if (fornext_value3416fornext_finalvalue3416) break; } fornext_error3416:; if(qbevent){evnt(24003);if(r)goto S_31855;} S_31856:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,1),qbs_new_txt_len(" ",1))))||new_error){ if(qbevent){evnt(24004);if(r)goto S_31856;} do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(_SUB_PREPARSE_STRING_T,func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24004);}while(r); } fornext_continue_3415:; } fornext_exit_3415:; do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_ucase(_SUB_PREPARSE_STRING_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24007);}while(r); S_31861:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(24008);if(r)goto S_31861;} 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(24008);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24008);}while(r); } do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24011);}while(r); S_31866:; do{ if(qbevent){evnt(24012);if(r)goto S_31866;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24013);}while(r); S_31868:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ if(qbevent){evnt(24013);if(r)goto S_31868;} do{ *_SUB_PREPARSE_LONG_C=*_SUB_PREPARSE_LONG_C+ 1 ; if(!qbevent)break;evnt(24013);}while(r); } S_31871:; dl_continue_3418:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3418:; if(qbevent){evnt(24014);if(r)goto S_31871;} do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24015);}while(r); S_31873:; do{ if(qbevent){evnt(24016);if(r)goto S_31873;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24017);}while(r); S_31875:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ if(qbevent){evnt(24017);if(r)goto S_31875;} do{ *_SUB_PREPARSE_LONG_C1=*_SUB_PREPARSE_LONG_C1+ 1 ; if(!qbevent)break;evnt(24017);}while(r); } S_31878:; dl_continue_3419:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3419:; if(qbevent){evnt(24018);if(r)goto S_31878;} S_31879:; if ((-(*_SUB_PREPARSE_LONG_C!=*_SUB_PREPARSE_LONG_C1))||new_error){ if(qbevent){evnt(24019);if(r)goto S_31879;} 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(24019);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24019);}while(r); } do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24022);}while(r); S_31884:; do{ if(qbevent){evnt(24023);if(r)goto S_31884;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("NOT",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24024);}while(r); S_31886:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ if(qbevent){evnt(24025);if(r)goto S_31886;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("AND",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24029);}while(r); S_31888:; 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),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ if(qbevent){evnt(24030);if(r)goto S_31888;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24030);}while(r); } S_31891:; 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),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ if(qbevent){evnt(24031);if(r)goto S_31891;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24031);}while(r); } S_31894:; 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),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ if(qbevent){evnt(24032);if(r)goto S_31894;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24032);}while(r); } S_31897:; 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),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ if(qbevent){evnt(24033);if(r)goto S_31897;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24033);}while(r); } S_31900:; if ((-(*_SUB_PREPARSE_LONG_L1== 0 ))||new_error){ if(qbevent){evnt(24034);if(r)goto S_31900;} do{ *_SUB_PREPARSE_LONG_L1=_SUB_PREPARSE_STRING_T->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24034);}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,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(24035);}while(r); do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 3 ; if(!qbevent)break;evnt(24036);}while(r); } S_31906:; dl_continue_3420:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3420:; if(qbevent){evnt(24039);if(r)goto S_31906;} do{ *_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD; if(!qbevent)break;evnt(24041);}while(r); S_31908:; if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ if(qbevent){evnt(24042);if(r)goto S_31908;} do{ *_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD; if(!qbevent)break;evnt(24042);}while(r); } S_31911:; fornext_value3423= 1 ; fornext_finalvalue3423=*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD; fornext_step3423= 1 ; if (fornext_step3423<0) fornext_step_negative3423=1; else fornext_step_negative3423=0; if (new_error) goto fornext_error3423; goto fornext_entrylabel3423; while(1){ fornext_value3423=fornext_step3423+(*_SUB_PREPARSE_LONG_J); fornext_entrylabel3423: *_SUB_PREPARSE_LONG_J=fornext_value3423; if (fornext_step_negative3423){ if (fornext_value3423fornext_finalvalue3423) break; } fornext_error3423:; if(qbevent){evnt(24043);if(r)goto S_31911;} do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24044);}while(r); S_31913:; do{ if(qbevent){evnt(24045);if(r)goto S_31913;} 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])])),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24046);}while(r); S_31915:; if ((-(*_SUB_PREPARSE_LONG_L== 0 ))||new_error){ if(qbevent){evnt(24047);if(r)goto S_31915;} do{ goto dl_exit_3424; if(!qbevent)break;evnt(24047);}while(r); } do{ *_SUB_PREPARSE_LONG_I= 0 ; if(!qbevent)break;evnt(24048);}while(r); do{ *_SUB_PREPARSE_LONG_L1= 0 ; if(!qbevent)break;evnt(24048);}while(r); do{ *_SUB_PREPARSE_LONG_L2= 0 ; if(!qbevent)break;evnt(24048);}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(24048);}while(r); S_31922:; do{ if(qbevent){evnt(24049);if(r)goto S_31922;} S_31923:; 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(24050);if(r)goto S_31923;} 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])])),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24051);}while(r); S_31925:; if (((-(*_SUB_PREPARSE_LONG_L2> 0 ))&(-(*_SUB_PREPARSE_LONG_L2>*_SUB_PREPARSE_LONG_L1)))||new_error){ if(qbevent){evnt(24052);if(r)goto S_31925;} do{ *_SUB_PREPARSE_LONG_L1=*_SUB_PREPARSE_LONG_L2; if(!qbevent)break;evnt(24052);}while(r); } } do{ *_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+*_SUB_PREPARSE_LONG_LO; if(!qbevent)break;evnt(24054);}while(r); S_31930:; dl_continue_3426:; }while((!(-(*_SUB_PREPARSE_LONG_I>func_ubound(__ARRAY_INTEGER_PL,1,1))))&&(!new_error)); dl_exit_3426:; if(qbevent){evnt(24055);if(r)goto S_31930;} 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(24056);}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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24057);}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(24058);}while(r); S_31934:; if ((-(*_SUB_PREPARSE_LONG_J> 15 ))||new_error){ if(qbevent){evnt(24059);if(r)goto S_31934;} 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(24060);}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(24063);}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(24065);}while(r); dl_continue_3424:; }while(1); dl_exit_3424:; fornext_continue_3422:; } fornext_exit_3422:; do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24072);}while(r); S_31943:; do{ if(qbevent){evnt(24073);if(r)goto S_31943;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24074);}while(r); S_31945:; if (((-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L> 2 )))||new_error){ if(qbevent){evnt(24075);if(r)goto S_31945;} do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; if(!qbevent)break;evnt(24076);}while(r); S_31947:; fornext_value3430= 1 ; fornext_finalvalue3430=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3430= 1 ; if (fornext_step3430<0) fornext_step_negative3430=1; else fornext_step_negative3430=0; if (new_error) goto fornext_error3430; goto fornext_entrylabel3430; while(1){ fornext_value3430=fornext_step3430+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3430: *_SUB_PREPARSE_LONG_I=fornext_value3430; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3430){ if (fornext_value3430fornext_finalvalue3430) break; } fornext_error3430:; if(qbevent){evnt(24077);if(r)goto S_31947;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24078);}while(r); S_31949:; 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(24079);if(r)goto S_31949;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24080);}while(r); do{ goto fornext_exit_3429; if(!qbevent)break;evnt(24080);}while(r); }else{ S_31953:; 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(24082);if(r)goto S_31953;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24084);}while(r); S_31955:; 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(24085);if(r)goto S_31955;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24085);}while(r); do{ goto fornext_exit_3429; if(!qbevent)break;evnt(24085);}while(r); } } } fornext_continue_3429:; } fornext_exit_3429:; S_31962:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ if(qbevent){evnt(24089);if(r)goto S_31962;} 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(24089);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24089);}while(r); } do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; if(!qbevent)break;evnt(24090);}while(r); } S_31968:; dl_continue_3428:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3428:; if(qbevent){evnt(24092);if(r)goto S_31968;} do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24095);}while(r); S_31970:; do{ if(qbevent){evnt(24096);if(r)goto S_31970;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24097);}while(r); S_31972:; 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(24098);if(r)goto S_31972;} do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; if(!qbevent)break;evnt(24099);}while(r); S_31974:; fornext_value3438= 1 ; fornext_finalvalue3438=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3438= 1 ; if (fornext_step3438<0) fornext_step_negative3438=1; else fornext_step_negative3438=0; if (new_error) goto fornext_error3438; goto fornext_entrylabel3438; while(1){ fornext_value3438=fornext_step3438+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3438: *_SUB_PREPARSE_LONG_I=fornext_value3438; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3438){ if (fornext_value3438fornext_finalvalue3438) break; } fornext_error3438:; if(qbevent){evnt(24100);if(r)goto S_31974;} 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)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24101);}while(r); S_31976:; 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(24102);if(r)goto S_31976;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24103);}while(r); do{ goto fornext_exit_3437; if(!qbevent)break;evnt(24103);}while(r); }else{ S_31980:; 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(24105);if(r)goto S_31980;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24107);}while(r); S_31982:; 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(24108);if(r)goto S_31982;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24108);}while(r); do{ goto fornext_exit_3437; if(!qbevent)break;evnt(24108);}while(r); } } } fornext_continue_3437:; } fornext_exit_3437:; S_31989:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 , 1 ,1),qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(24112);if(r)goto S_31989;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24112);}while(r); } S_31992:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ if(qbevent){evnt(24113);if(r)goto S_31992;} 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(24113);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24113);}while(r); } do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; if(!qbevent)break;evnt(24114);}while(r); } S_31998:; dl_continue_3435:; }while((!(qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L== 0 ))|(-(*_SUB_PREPARSE_LONG_L==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); dl_exit_3435:; if(qbevent){evnt(24116);if(r)goto S_31998;} do{ qbs_set(_SUB_PREPARSE_STRING_SEP,qbs_new_txt_len("()+-*/\\><=^",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24119);}while(r); S_32000:; fornext_value3443= 0 ; fornext_finalvalue3443=*__LONG_CONSTLAST; fornext_step3443= 1 ; if (fornext_step3443<0) fornext_step_negative3443=1; else fornext_step_negative3443=0; if (new_error) goto fornext_error3443; goto fornext_entrylabel3443; while(1){ fornext_value3443=fornext_step3443+(*_SUB_PREPARSE_LONG_I2); fornext_entrylabel3443: *_SUB_PREPARSE_LONG_I2=fornext_value3443; if (fornext_step_negative3443){ if (fornext_value3443fornext_finalvalue3443) break; } fornext_error3443:; if(qbevent){evnt(24120);if(r)goto S_32000;} do{ *_SUB_PREPARSE_LONG_FOUND= 0 ; if(!qbevent)break;evnt(24121);}while(r); S_32002:; do{ if(qbevent){evnt(24122);if(r)goto S_32002;} do{ *_SUB_PREPARSE_LONG_FOUND=func_instr(*_SUB_PREPARSE_LONG_FOUND+ 1 ,qbs_ucase(_SUB_PREPARSE_STRING_T),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])])),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24123);}while(r); S_32004:; if ((*_SUB_PREPARSE_LONG_FOUND)||new_error){ if(qbevent){evnt(24124);if(r)goto S_32004;} S_32005:; if ((-(*_SUB_PREPARSE_LONG_FOUND> 1 ))||new_error){ if(qbevent){evnt(24125);if(r)goto S_32005;} S_32006:; 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 ,1),0)== 0 )))||new_error){ if(qbevent){evnt(24126);if(r)goto S_32006;} do{ goto dl_continue_3444; if(!qbevent)break;evnt(24126);}while(r); } } S_32010:; if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_PREPARSE_LONG_FOUND+((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))->len)<=(_SUB_PREPARSE_STRING_T->len))))||new_error){ if(qbevent){evnt(24128);if(r)goto S_32010;} S_32011:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))->len, 1 ,1),0)== 0 )))||new_error){ if(qbevent){evnt(24129);if(r)goto S_32011;} do{ goto dl_continue_3444; if(!qbevent)break;evnt(24129);}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(24131);}while(r); S_32016:; if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISSTRING)||new_error){ if(qbevent){evnt(24132);if(r)goto S_32016;} 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(24133);}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(24134);}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(24135);}while(r); }else{ S_32021:; if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISFLOAT)||new_error){ if(qbevent){evnt(24137);if(r)goto S_32021;} 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(24138);}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(24139);}while(r); }else{ S_32025:; if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISUNSIGNED)||new_error){ if(qbevent){evnt(24141);if(r)goto S_32025;} 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(24141);}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(24141);}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+((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))->len,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24144);}while(r); } S_32034:; dl_continue_3444:; }while((!(-(*_SUB_PREPARSE_LONG_FOUND== 0 )))&&(!new_error)); dl_exit_3444:; if(qbevent){evnt(24146);if(r)goto S_32034;} fornext_continue_3442:; } fornext_exit_3442:; do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24150);}while(r); S_32037:; do{ if(qbevent){evnt(24151);if(r)goto S_32037;} 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(24152);}while(r); S_32039:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ if(qbevent){evnt(24153);if(r)goto S_32039;} do{ *__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; if(!qbevent)break;evnt(24154);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= 0 ; if(!qbevent)break;evnt(24154);}while(r); S_32042:; do{ if(qbevent){evnt(24155);if(r)goto S_32042;} do{ *__LONG_E=*__LONG_E+ 1 ; if(!qbevent)break;evnt(24156);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24157);}while(r); S_32045:; if(qbevent){evnt(24158);if(r)goto S_32045;} S_32046:; 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(24159);if(r)goto S_32046;} sc_ec_156_end:; goto sc_3451_end; } do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; if(!qbevent)break;evnt(24161);}while(r); S_32049:; fornext_value3453= 1 ; fornext_finalvalue3453=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3453= 1 ; if (fornext_step3453<0) fornext_step_negative3453=1; else fornext_step_negative3453=0; if (new_error) goto fornext_error3453; goto fornext_entrylabel3453; while(1){ fornext_value3453=fornext_step3453+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3453: *_SUB_PREPARSE_LONG_I=fornext_value3453; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3453){ if (fornext_value3453fornext_finalvalue3453) break; } fornext_error3453:; if(qbevent){evnt(24162);if(r)goto S_32049;} S_32050:; 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,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(24163);if(r)goto S_32050;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24163);}while(r); do{ goto fornext_exit_3452; if(!qbevent)break;evnt(24163);}while(r); } fornext_continue_3452:; } fornext_exit_3452:; S_32055:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ if(qbevent){evnt(24165);if(r)goto S_32055;} 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(24165);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24165);}while(r); } do{ *__LONG_E=*__LONG_E- 1 ; if(!qbevent)break;evnt(24166);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= -1 ; if(!qbevent)break;evnt(24167);}while(r); sc_3451_end:; S_32062:; dl_continue_3450:; }while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); dl_exit_3450:; if(qbevent){evnt(24169);if(r)goto S_32062;} 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 ,1))))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24170);}while(r); } S_32065:; dl_continue_3449:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3449:; if(qbevent){evnt(24172);if(r)goto S_32065;} do{ *_SUB_PREPARSE_LONG_L= 0 ; if(!qbevent)break;evnt(24175);}while(r); S_32067:; do{ if(qbevent){evnt(24176);if(r)goto S_32067;} 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(24177);}while(r); S_32069:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ if(qbevent){evnt(24178);if(r)goto S_32069;} do{ *__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; if(!qbevent)break;evnt(24179);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= 0 ; if(!qbevent)break;evnt(24179);}while(r); S_32072:; do{ if(qbevent){evnt(24180);if(r)goto S_32072;} do{ *__LONG_E=*__LONG_E+ 1 ; if(!qbevent)break;evnt(24181);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24182);}while(r); S_32075:; if(qbevent){evnt(24183);if(r)goto S_32075;} S_32076:; 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(24184);if(r)goto S_32076;} sc_ec_157_end:; goto sc_3458_end; } do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; if(!qbevent)break;evnt(24186);}while(r); S_32079:; fornext_value3460= 1 ; fornext_finalvalue3460=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3460= 1 ; if (fornext_step3460<0) fornext_step_negative3460=1; else fornext_step_negative3460=0; if (new_error) goto fornext_error3460; goto fornext_entrylabel3460; while(1){ fornext_value3460=fornext_step3460+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3460: *_SUB_PREPARSE_LONG_I=fornext_value3460; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3460){ if (fornext_value3460fornext_finalvalue3460) break; } fornext_error3460:; if(qbevent){evnt(24187);if(r)goto S_32079;} S_32080:; 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,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(24188);if(r)goto S_32080;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24188);}while(r); do{ goto fornext_exit_3459; if(!qbevent)break;evnt(24188);}while(r); } fornext_continue_3459:; } fornext_exit_3459:; S_32085:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ if(qbevent){evnt(24190);if(r)goto S_32085;} 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(24190);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24190);}while(r); } do{ *__LONG_E=*__LONG_E- 1 ; if(!qbevent)break;evnt(24191);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= -1 ; if(!qbevent)break;evnt(24192);}while(r); sc_3458_end:; S_32092:; dl_continue_3457:; }while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); dl_exit_3457:; if(qbevent){evnt(24194);if(r)goto S_32092;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24195);}while(r); S_32094:; fornext_value3464= 1 ; fornext_finalvalue3464=_SUB_PREPARSE_STRING_BIN->len; fornext_step3464= 1 ; if (fornext_step3464<0) fornext_step_negative3464=1; else fornext_step_negative3464=0; if (new_error) goto fornext_error3464; goto fornext_entrylabel3464; while(1){ fornext_value3464=fornext_step3464+(*_SUB_PREPARSE_LONG_I); fornext_entrylabel3464: *_SUB_PREPARSE_LONG_I=fornext_value3464; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3464){ if (fornext_value3464fornext_finalvalue3464) break; } fornext_error3464:; if(qbevent){evnt(24196);if(r)goto S_32094;} S_32095:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_BIN,*_SUB_PREPARSE_LONG_I, 1 ,1),qbs_new_txt_len("1",1))))||new_error){ if(qbevent){evnt(24197);if(r)goto S_32095;} 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(24197);}while(r); } fornext_continue_3463:; } fornext_exit_3463:; 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(24199);}while(r); } S_32101:; dl_continue_3456:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); dl_exit_3456:; if(qbevent){evnt(24201);if(r)goto S_32101;} do{ SUB_VERIFYSTRING(_SUB_PREPARSE_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24205);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_E,_SUB_PREPARSE_STRING_T); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24206);}while(r); 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; } 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 "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; do{ *_SUB_VERIFYSTRING_LONG_J= 1 ; if(!qbevent)break;evnt(24213);}while(r); S_32105:; do{ if(qbevent){evnt(24214);if(r)goto S_32105;} do{ qbs_set(_SUB_VERIFYSTRING_STRING_COMP,func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24215);}while(r); S_32107:; if(qbevent){evnt(24216);if(r)goto S_32107;} S_32108:; 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(24217);if(r)goto S_32108;} do{ *_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+ 1 ; if(!qbevent)break;evnt(24217);}while(r); sc_ec_158_end:; goto sc_3469_end; } do{ *_SUB_VERIFYSTRING_LONG_GOOD= 0 ; if(!qbevent)break;evnt(24219);}while(r); do{ *_SUB_VERIFYSTRING_LONG_EXTRACHAR= 0 ; if(!qbevent)break;evnt(24220);}while(r); S_32113:; fornext_value3471= 1 ; fornext_finalvalue3471=func_ubound(__ARRAY_STRING_ONAME,1,1); fornext_step3471= 1 ; if (fornext_step3471<0) fornext_step_negative3471=1; else fornext_step_negative3471=0; if (new_error) goto fornext_error3471; goto fornext_entrylabel3471; while(1){ fornext_value3471=fornext_step3471+(*_SUB_VERIFYSTRING_LONG_I); fornext_entrylabel3471: *_SUB_VERIFYSTRING_LONG_I=fornext_value3471; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3471){ if (fornext_value3471fornext_finalvalue3471) break; } fornext_error3471:; if(qbevent){evnt(24221);if(r)goto S_32113;} S_32114:; 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),((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(24222);if(r)goto S_32114;} do{ *_SUB_VERIFYSTRING_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24223);}while(r); do{ goto fornext_exit_3470; if(!qbevent)break;evnt(24223);}while(r); }else{ S_32118:; 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(24225);if(r)goto S_32118;} S_32119:; 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 ,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(24227);if(r)goto S_32119;} do{ *_SUB_VERIFYSTRING_LONG_GOOD= -1 ; if(!qbevent)break;evnt(24228);}while(r); do{ *_SUB_VERIFYSTRING_LONG_EXTRACHAR= 1 ; if(!qbevent)break;evnt(24228);}while(r); do{ goto fornext_exit_3470; if(!qbevent)break;evnt(24228);}while(r); } } } fornext_continue_3470:; } fornext_exit_3470:; S_32127:; if ((~(*_SUB_VERIFYSTRING_LONG_GOOD))||new_error){ if(qbevent){evnt(24233);if(r)goto S_32127;} 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(24233);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24233);}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(24234);}while(r); sc_3469_end:; S_32133:; dl_continue_3468:; }while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_VERIFYSTRING_LONG_J>_SUB_VERIFYSTRING_STRING_T->len))))&&(!new_error)); dl_exit_3468:; if(qbevent){evnt(24236);if(r)goto S_32133;} 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; } 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 "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{ qbs_set(_FUNC_N2S_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_N2S_STRING_EXP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24241);}while(r); S_32135:; 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(24242);if(r)goto S_32135;} do{ qbs_set(_FUNC_N2S_STRING_SIGN,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24242);}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(24242);}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(24244);}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(24244);}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(24245);}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(24245);}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(24246);}while(r); S_32144:; if (((-(*_FUNC_N2S_LONG_CHECK1< 1 ))|(-(*_FUNC_N2S_LONG_CHECK1> 1 )))||new_error){ if(qbevent){evnt(24247);if(r)goto S_32144;} do{ qbs_set(_FUNC_N2S_STRING_N2S,_FUNC_N2S_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24247);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24247);}while(r); } S_32148:; if(qbevent){evnt(24249);if(r)goto S_32148;} S_32149:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DP)))||new_error){ if(qbevent){evnt(24250);if(r)goto S_32149;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DP; if(!qbevent)break;evnt(24250);}while(r); sc_ec_159_end:; goto sc_3477_end; } S_32151:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DM)))||new_error){ if(qbevent){evnt(24251);if(r)goto S_32151;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DM; if(!qbevent)break;evnt(24251);}while(r); sc_ec_160_end:; goto sc_3477_end; } S_32153:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EP)))||new_error){ if(qbevent){evnt(24252);if(r)goto S_32153;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EP; if(!qbevent)break;evnt(24252);}while(r); sc_ec_161_end:; goto sc_3477_end; } S_32155:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EM)))||new_error){ if(qbevent){evnt(24253);if(r)goto S_32155;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EM; if(!qbevent)break;evnt(24253);}while(r); sc_ec_162_end:; goto sc_3477_end; } sc_3477_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(24256);}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(24257);}while(r); do{ *_FUNC_N2S_INTEGER64_R=qbr(func_val(_FUNC_N2S_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24257);}while(r); S_32161:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_N2S_STRING_L,qbs_new_txt_len(".",1),0)))||new_error){ if(qbevent){evnt(24260);if(r)goto S_32161;} S_32162:; if ((-(*_FUNC_N2S_INTEGER64_R> 0 ))||new_error){ if(qbevent){evnt(24261);if(r)goto S_32162;} 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(24262);}while(r); }else{ do{ *_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R+ 1 ; if(!qbevent)break;evnt(24264);}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(24266);}while(r); } S_32169:; if(qbevent){evnt(24269);if(r)goto S_32169;} S_32170:; if (((*_FUNC_N2S_INTEGER64_R==( 0 )))||new_error){ if(qbevent){evnt(24270);if(r)goto S_32170;} sc_ec_163_end:; goto sc_3479_end; } S_32171:; if (((*_FUNC_N2S_INTEGER64_R<( 0 )))||new_error){ if(qbevent){evnt(24272);if(r)goto S_32171;} S_32172:; fornext_value3481= 1 ; fornext_finalvalue3481=-(*_FUNC_N2S_INTEGER64_R); fornext_step3481= 1 ; if (fornext_step3481<0) fornext_step_negative3481=1; else fornext_step_negative3481=0; if (new_error) goto fornext_error3481; goto fornext_entrylabel3481; while(1){ fornext_value3481=fornext_step3481+(*_FUNC_N2S_LONG_I); fornext_entrylabel3481: *_FUNC_N2S_LONG_I=fornext_value3481; if (fornext_step_negative3481){ if (fornext_value3481fornext_finalvalue3481) break; } fornext_error3481:; if(qbevent){evnt(24273);if(r)goto S_32172;} 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(24274);}while(r); fornext_continue_3480:; } fornext_exit_3480:; 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(24276);}while(r); sc_ec_164_end:; goto sc_3479_end; } S_32177:; fornext_value3483= 1 ; fornext_finalvalue3483=*_FUNC_N2S_INTEGER64_R; fornext_step3483= 1 ; if (fornext_step3483<0) fornext_step_negative3483=1; else fornext_step_negative3483=0; if (new_error) goto fornext_error3483; goto fornext_entrylabel3483; while(1){ fornext_value3483=fornext_step3483+(*_FUNC_N2S_LONG_I); fornext_entrylabel3483: *_FUNC_N2S_LONG_I=fornext_value3483; if (fornext_step_negative3483){ if (fornext_value3483fornext_finalvalue3483) break; } fornext_error3483:; if(qbevent){evnt(24278);if(r)goto S_32177;} 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(24279);}while(r); fornext_continue_3482:; } fornext_exit_3482:; sc_3479_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(24283);}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; 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 "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; S_32182:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(24289);if(r)goto S_32182;} 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(24290);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24291);}while(r); } S_32186:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(24294);if(r)goto S_32186;} 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(24295);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24296);}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; 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 "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; do{ *_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24304);}while(r); S_32191:; if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||new_error){ if(qbevent){evnt(24305);if(r)goto S_32191;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24305);}while(r); } do{ *_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24306);}while(r); S_32195:; if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||new_error){ if(qbevent){evnt(24307);if(r)goto S_32195;} S_32196:; if(qbevent){evnt(24308);if(r)goto S_32196;} S_32197:; if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ if(qbevent){evnt(24309);if(r)goto S_32197;} 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(24310);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24311);}while(r); sc_ec_165_end:; goto sc_3487_end; } S_32200:; if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ if(qbevent){evnt(24312);if(r)goto S_32200;} 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(24313);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24314);}while(r); sc_ec_166_end:; goto sc_3487_end; } S_32203:; if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ if(qbevent){evnt(24315);if(r)goto S_32203;} 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(24316);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24317);}while(r); sc_ec_167_end:; goto sc_3487_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(24319);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24320);}while(r); sc_3487_end:; }else{ S_32211:; if(qbevent){evnt(24323);if(r)goto S_32211;} S_32212:; if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ if(qbevent){evnt(24324);if(r)goto S_32212;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 ); if(!qbevent)break;evnt(24325);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24325);}while(r); sc_ec_168_end:; goto sc_3488_end; } S_32215:; if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ if(qbevent){evnt(24326);if(r)goto S_32215;} 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(24327);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24328);}while(r); sc_ec_169_end:; goto sc_3488_end; } S_32218:; if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ if(qbevent){evnt(24329);if(r)goto S_32218;} 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(24330);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24331);}while(r); sc_ec_170_end:; goto sc_3488_end; } S_32221:; if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||new_error){ if(qbevent){evnt(24332);if(r)goto S_32221;} 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(24333);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24334);}while(r); sc_ec_171_end:; goto sc_3488_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(24336);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24337);}while(r); sc_3488_end:; } 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_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 "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; S_32229:; if ((-(*__LONG_HASHLISTFREELAST> 0 ))||new_error){ if(qbevent){evnt(24345);if(r)goto S_32229;} 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(24347);}while(r); do{ *__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST- 1 ; if(!qbevent)break;evnt(24348);}while(r); }else{ S_32233:; if ((-(*__LONG_HASHLISTNEXT>*__LONG_HASHLISTSIZE))||new_error){ if(qbevent){evnt(24350);if(r)goto S_32233;} do{ *__LONG_HASHLISTSIZE=*__LONG_HASHLISTSIZE* 2 ; if(!qbevent)break;evnt(24352);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_HASHLIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_HASHLIST[2]&1){ preserved_elements=__ARRAY_UDT_HASHLIST[5]; } else preserved_elements=0; __ARRAY_UDT_HASHLIST[4]= 1 ; __ARRAY_UDT_HASHLIST[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_UDT_HASHLIST[4]+1; __ARRAY_UDT_HASHLIST[6]=1; if (__ARRAY_UDT_HASHLIST[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_HASHLIST[0]),preserved_elements*160/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_HASHLIST[0])); tmp_long=__ARRAY_UDT_HASHLIST[5]; __ARRAY_UDT_HASHLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*160/8+1); memcpy((void*)(__ARRAY_UDT_HASHLIST[0]),redim_preserve_cmem_buffer,preserved_elements*160/8+1); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING256_HASHLISTNAME[2]&1){ preserved_elements=__ARRAY_STRING256_HASHLISTNAME[5]; } else preserved_elements=0; __ARRAY_STRING256_HASHLISTNAME[4]= 1 ; __ARRAY_STRING256_HASHLISTNAME[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_STRING256_HASHLISTNAME[4]+1; __ARRAY_STRING256_HASHLISTNAME[6]=1; if (__ARRAY_STRING256_HASHLISTNAME[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING256_HASHLISTNAME[0]),preserved_elements*256); cmem_dynamic_free((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0])); tmp_long=__ARRAY_STRING256_HASHLISTNAME[5]; __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*256); memcpy((void*)(__ARRAY_STRING256_HASHLISTNAME[0]),redim_preserve_cmem_buffer,preserved_elements*256); if (preserved_elements=mem_static)&&(tmp_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 "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{ *_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(24387);}while(r); S_32258:; if ((*_FUNC_HASHFIND_LONG_I)||new_error){ if(qbevent){evnt(24388);if(r)goto S_32258;} 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(24389);}while(r); LABEL_HASHFIND_NEXT:; if(qbevent){evnt(24390);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(24391);}while(r); S_32261:; if ((*_FUNC_HASHFIND_LONG_SEARCHFLAGS&*_FUNC_HASHFIND_LONG_F)||new_error){ if(qbevent){evnt(24392);if(r)goto S_32261;} S_32262:; 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(24393);if(r)goto S_32262;} do{ *_FUNC_HASHFIND_LONG_RESULTFLAGS=*_FUNC_HASHFIND_LONG_F; if(!qbevent)break;evnt(24394);}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(24395);}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(24396);}while(r); S_32266:; if ((*_FUNC_HASHFIND_LONG_I2)||new_error){ if(qbevent){evnt(24397);if(r)goto S_32266;} do{ *_FUNC_HASHFIND_LONG_HASHFIND= 2 ; if(!qbevent)break;evnt(24398);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFIND_LONG_I2; if(!qbevent)break;evnt(24399);}while(r); do{ *__LONG_HASHFIND_REVERSE= 0 ; if(!qbevent)break;evnt(24400);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFIND_LONG_SEARCHFLAGS; if(!qbevent)break;evnt(24401);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFIND_STRING_UA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24402);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; if(!qbevent)break;evnt(24403);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24404);}while(r); }else{ do{ *_FUNC_HASHFIND_LONG_HASHFIND= 1 ; if(!qbevent)break;evnt(24406);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; if(!qbevent)break;evnt(24407);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24408);}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(24412);}while(r); S_32282:; if ((*_FUNC_HASHFIND_LONG_I)||new_error){ if(qbevent){evnt(24413);if(r)goto S_32282;} do{ goto LABEL_HASHFIND_NEXT; if(!qbevent)break;evnt(24413);}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; 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 "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{ *_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(24422);}while(r); S_32287:; if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ if(qbevent){evnt(24423);if(r)goto S_32287;} 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(24424);}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(24425);}while(r); LABEL_HASHFINDREV_NEXT:; if(qbevent){evnt(24426);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(24427);}while(r); S_32291:; if ((*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS&*_FUNC_HASHFINDREV_LONG_F)||new_error){ if(qbevent){evnt(24428);if(r)goto S_32291;} S_32292:; 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(24429);if(r)goto S_32292;} do{ *_FUNC_HASHFINDREV_LONG_RESULTFLAGS=*_FUNC_HASHFINDREV_LONG_F; if(!qbevent)break;evnt(24430);}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(24431);}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(24432);}while(r); S_32296:; if ((*_FUNC_HASHFINDREV_LONG_I2)||new_error){ if(qbevent){evnt(24433);if(r)goto S_32296;} do{ *_FUNC_HASHFINDREV_LONG_HASHFINDREV= 2 ; if(!qbevent)break;evnt(24434);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDREV_LONG_I2; if(!qbevent)break;evnt(24435);}while(r); do{ *__LONG_HASHFIND_REVERSE= 1 ; if(!qbevent)break;evnt(24436);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS; if(!qbevent)break;evnt(24437);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFINDREV_STRING_UA); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24438);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; if(!qbevent)break;evnt(24439);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24440);}while(r); }else{ do{ *_FUNC_HASHFINDREV_LONG_HASHFINDREV= 1 ; if(!qbevent)break;evnt(24442);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; if(!qbevent)break;evnt(24443);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24444);}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(24448);}while(r); S_32312:; if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ if(qbevent){evnt(24449);if(r)goto S_32312;} do{ goto LABEL_HASHFINDREV_NEXT; if(!qbevent)break;evnt(24449);}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; 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 "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; S_32316:; if ((*__LONG_HASHFIND_REVERSE)||new_error){ if(qbevent){evnt(24458);if(r)goto S_32316;} do{ *_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; if(!qbevent)break;evnt(24460);}while(r); LABEL_HASHFINDREVC_NEXT:; if(qbevent){evnt(24461);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(24462);}while(r); S_32319:; if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ if(qbevent){evnt(24463);if(r)goto S_32319;} S_32320:; 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(24464);if(r)goto S_32320;} do{ *_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; if(!qbevent)break;evnt(24465);}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(24466);}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(24467);}while(r); S_32324:; if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ if(qbevent){evnt(24468);if(r)goto S_32324;} do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; if(!qbevent)break;evnt(24469);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; if(!qbevent)break;evnt(24470);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; if(!qbevent)break;evnt(24471);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24472);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; if(!qbevent)break;evnt(24474);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; if(!qbevent)break;evnt(24475);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24476);}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(24480);}while(r); S_32337:; if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ if(qbevent){evnt(24481);if(r)goto S_32337;} do{ goto LABEL_HASHFINDREVC_NEXT; if(!qbevent)break;evnt(24481);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(24482);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; if(!qbevent)break;evnt(24486);}while(r); LABEL_HASHFINDC_NEXT:; if(qbevent){evnt(24487);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(24488);}while(r); S_32344:; if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ if(qbevent){evnt(24489);if(r)goto S_32344;} S_32345:; 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(24490);if(r)goto S_32345;} do{ *_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; if(!qbevent)break;evnt(24491);}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(24492);}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(24493);}while(r); S_32349:; if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ if(qbevent){evnt(24494);if(r)goto S_32349;} do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; if(!qbevent)break;evnt(24495);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; if(!qbevent)break;evnt(24496);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; if(!qbevent)break;evnt(24497);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24498);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; if(!qbevent)break;evnt(24500);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; if(!qbevent)break;evnt(24501);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24502);}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(24506);}while(r); S_32362:; if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ if(qbevent){evnt(24507);if(r)goto S_32362;} do{ goto LABEL_HASHFINDC_NEXT; if(!qbevent)break;evnt(24507);}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(24508);}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; 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 "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; do{ *_SUB_HASHREMOVE_LONG_I=*__LONG_HASHREMOVE_LASTFOUND; if(!qbevent)break;evnt(24515);}while(r); do{ *__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST+ 1 ; if(!qbevent)break;evnt(24518);}while(r); S_32369:; if ((-(*__LONG_HASHLISTFREELAST>*__LONG_HASHLISTFREESIZE))||new_error){ if(qbevent){evnt(24519);if(r)goto S_32369;} do{ *__LONG_HASHLISTFREESIZE=*__LONG_HASHLISTFREESIZE* 2 ; if(!qbevent)break;evnt(24520);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHLISTFREE)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_HASHLISTFREE[2]&1){ preserved_elements=__ARRAY_LONG_HASHLISTFREE[5]; } else preserved_elements=0; __ARRAY_LONG_HASHLISTFREE[4]= 1 ; __ARRAY_LONG_HASHLISTFREE[5]=(*__LONG_HASHLISTFREESIZE)-__ARRAY_LONG_HASHLISTFREE[4]+1; __ARRAY_LONG_HASHLISTFREE[6]=1; if (__ARRAY_LONG_HASHLISTFREE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_HASHLISTFREE[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHLISTFREE[0])); tmp_long=__ARRAY_LONG_HASHLISTFREE[5]; __ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_HASHLISTFREE[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elements=mem_static)&&(tmp_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 "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{ *_SUB_HASHDUMP_LONG_FH=func_freefile(); if(!qbevent)break;evnt(24558);}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(24559);}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(24560);}while(r); S_32399:; fornext_value3495= 0 ; fornext_finalvalue3495= 16777215 ; fornext_step3495= 1 ; if (fornext_step3495<0) fornext_step_negative3495=1; else fornext_step_negative3495=0; if (new_error) goto fornext_error3495; goto fornext_entrylabel3495; while(1){ fornext_value3495=fornext_step3495+(*_SUB_HASHDUMP_LONG_X); fornext_entrylabel3495: *_SUB_HASHDUMP_LONG_X=fornext_value3495; if (fornext_step_negative3495){ if (fornext_value3495fornext_finalvalue3495) break; } fornext_error3495:; if(qbevent){evnt(24561);if(r)goto S_32399;} S_32400:; 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(24562);if(r)goto S_32400;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; if (new_error) goto skip3496; sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0 , 0 , 0 ); if (new_error) goto skip3496; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1 , 0 , 0 ); if (new_error) goto skip3496; sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0 , 0 , 1 ); if (new_error) goto skip3496; skip3496: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24564);}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(24565);}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(24568);}while(r); S_32404:; 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(24569);if(r)goto S_32404;} do{ goto LABEL_CORRUPT; if(!qbevent)break;evnt(24569);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; if (new_error) goto skip3497; sub_file_print(tmp_fileno,qbs_new_txt_len(" HashList(",11), 0 , 0 , 0 ); if (new_error) goto skip3497; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1 , 0 , 0 ); if (new_error) goto skip3497; sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0 , 0 , 0 ); if (new_error) goto skip3497; 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 skip3497; skip3497: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24571);}while(r); LABEL_HASHDUMPNEXTITEM:; if(qbevent){evnt(24572);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(24573);}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(24575);}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(24576);}while(r); S_32411:; fornext_value3499= 1 ; fornext_finalvalue3499= 32 ; fornext_step3499= 1 ; if (fornext_step3499<0) fornext_step_negative3499=1; else fornext_step_negative3499=0; if (new_error) goto fornext_error3499; goto fornext_entrylabel3499; while(1){ fornext_value3499=fornext_step3499+(*_SUB_HASHDUMP_LONG_Z); fornext_entrylabel3499: *_SUB_HASHDUMP_LONG_Z=fornext_value3499; if (fornext_step_negative3499){ if (fornext_value3499fornext_finalvalue3499) break; } fornext_error3499:; if(qbevent){evnt(24577);if(r)goto S_32411;} 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(24578);}while(r); do{ *_SUB_HASHDUMP_LONG_F=*_SUB_HASHDUMP_LONG_F/ 2 ; if(!qbevent)break;evnt(24579);}while(r); fornext_continue_3498:; } fornext_exit_3498:; 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(24581);}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(24583);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; if (new_error) goto skip3500; sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0 , 0 , 1 ); if (new_error) goto skip3500; skip3500: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24585);}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(24588);}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(24589);}while(r); S_32420:; if ((*_SUB_HASHDUMP_LONG_I1)||new_error){ if(qbevent){evnt(24590);if(r)goto S_32420;} S_32421:; 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(24591);if(r)goto S_32421;} do{ goto LABEL_CORRUPT; if(!qbevent)break;evnt(24591);}while(r); } } S_32425:; if ((*_SUB_HASHDUMP_LONG_I2)||new_error){ if(qbevent){evnt(24593);if(r)goto S_32425;} S_32426:; 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(24594);if(r)goto S_32426;} do{ goto LABEL_CORRUPT; if(!qbevent)break;evnt(24594);}while(r); } } S_32430:; if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||new_error){ if(qbevent){evnt(24596);if(r)goto S_32430;} S_32431:; if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||new_error){ if(qbevent){evnt(24597);if(r)goto S_32431;} do{ goto LABEL_CORRUPT; if(!qbevent)break;evnt(24597);}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(24600);}while(r); S_32436:; if ((*_SUB_HASHDUMP_LONG_I)||new_error){ if(qbevent){evnt(24601);if(r)goto S_32436;} do{ goto LABEL_HASHDUMPNEXTITEM; if(!qbevent)break;evnt(24601);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; if (new_error) goto skip3501; sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0 , 0 , 0 ); if (new_error) goto skip3501; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1 , 0 , 0 ); if (new_error) goto skip3501; sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0 , 0 , 1 ); if (new_error) goto skip3501; skip3501: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24603);}while(r); } fornext_continue_3494:; } fornext_exit_3494:; do{ sub_close(*_SUB_HASHDUMP_LONG_FH,1); if(!qbevent)break;evnt(24606);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24608);}while(r); LABEL_CORRUPT:; if(qbevent){evnt(24609);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; if (new_error) goto skip3502; sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0 , 0 , 1 ); if (new_error) goto skip3502; skip3502: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24610);}while(r); do{ sub_close(*_SUB_HASHDUMP_LONG_FH,1); if(!qbevent)break;evnt(24611);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free87.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_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 "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{ *__LONG_HASHLISTSIZE= 65536 ; if(!qbevent)break;evnt(24617);}while(r); do{ *__LONG_HASHLISTNEXT= 1 ; if(!qbevent)break;evnt(24618);}while(r); do{ *__LONG_HASHLISTFREESIZE= 1024 ; if(!qbevent)break;evnt(24619);}while(r); do{ *__LONG_HASHLISTFREELAST= 0 ; if(!qbevent)break;evnt(24620);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_HASHLIST)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_HASHLIST[2]&1){ if (__ARRAY_UDT_HASHLIST[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_HASHLIST[0])); }else{ free((void*)(__ARRAY_UDT_HASHLIST[0])); } } __ARRAY_UDT_HASHLIST[4]= 1 ; __ARRAY_UDT_HASHLIST[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_UDT_HASHLIST[4]+1; __ARRAY_UDT_HASHLIST[6]=1; if (__ARRAY_UDT_HASHLIST[2]&4){ __ARRAY_UDT_HASHLIST[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_HASHLIST[5]*160/8+1); memset((void*)(__ARRAY_UDT_HASHLIST[0]),0,__ARRAY_UDT_HASHLIST[5]*160/8+1); }else{ __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(24621);}while(r); do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING256_HASHLISTNAME)[8])->id=(++mem_lock_id); if (__ARRAY_STRING256_HASHLISTNAME[2]&1){ if (__ARRAY_STRING256_HASHLISTNAME[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0])); }else{ free((void*)(__ARRAY_STRING256_HASHLISTNAME[0])); } } __ARRAY_STRING256_HASHLISTNAME[4]= 1 ; __ARRAY_STRING256_HASHLISTNAME[5]=(*__LONG_HASHLISTSIZE)-__ARRAY_STRING256_HASHLISTNAME[4]+1; __ARRAY_STRING256_HASHLISTNAME[6]=1; if (__ARRAY_STRING256_HASHLISTNAME[2]&4){ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_HASHLISTNAME[5]*256); memset((void*)(__ARRAY_STRING256_HASHLISTNAME[0]),0,__ARRAY_STRING256_HASHLISTNAME[5]*256); }else{ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_HASHLISTNAME[5]*256,1); if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; } if(!qbevent)break;evnt(24622);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHLISTFREE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HASHLISTFREE[2]&1){ if (__ARRAY_LONG_HASHLISTFREE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHLISTFREE[0])); }else{ free((void*)(__ARRAY_LONG_HASHLISTFREE[0])); } } __ARRAY_LONG_HASHLISTFREE[4]= 1 ; __ARRAY_LONG_HASHLISTFREE[5]=(*__LONG_HASHLISTFREESIZE)-__ARRAY_LONG_HASHLISTFREE[4]+1; __ARRAY_LONG_HASHLISTFREE[6]=1; if (__ARRAY_LONG_HASHLISTFREE[2]&4){ __ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHLISTFREE[5]*4); memset((void*)(__ARRAY_LONG_HASHLISTFREE[0]),0,__ARRAY_LONG_HASHLISTFREE[5]*4); }else{ __ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHLISTFREE[5]*4,1); if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } __ARRAY_LONG_HASHLISTFREE[2]|=1; } if(!qbevent)break;evnt(24623);}while(r); do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHTABLE)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HASHTABLE[2]&1){ if (__ARRAY_LONG_HASHTABLE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HASHTABLE[0])); }else{ free((void*)(__ARRAY_LONG_HASHTABLE[0])); } } __ARRAY_LONG_HASHTABLE[4]= 0 ; __ARRAY_LONG_HASHTABLE[5]=( 16777215 )-__ARRAY_LONG_HASHTABLE[4]+1; __ARRAY_LONG_HASHTABLE[6]=1; if (__ARRAY_LONG_HASHTABLE[2]&4){ __ARRAY_LONG_HASHTABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HASHTABLE[5]*4); memset((void*)(__ARRAY_LONG_HASHTABLE[0]),0,__ARRAY_LONG_HASHTABLE[5]*4); }else{ __ARRAY_LONG_HASHTABLE[0]=(ptrszint)calloc(__ARRAY_LONG_HASHTABLE[5]*4,1); if (!__ARRAY_LONG_HASHTABLE[0]) error(257); } __ARRAY_LONG_HASHTABLE[2]|=1; } if(!qbevent)break;evnt(24624);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM= 0 ; if(!qbevent)break;evnt(24626);}while(r); do{ *__LONG_HASHFIND_REVERSE= 0 ; if(!qbevent)break;evnt(24627);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS= 0 ; if(!qbevent)break;evnt(24628);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24629);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND= 0 ; if(!qbevent)break;evnt(24630);}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; } 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 "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; do{ qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,_FUNC_REMOVECAST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24635);}while(r); S_32460:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)))||new_error){ if(qbevent){evnt(24636);if(r)goto S_32460;} 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(24637);}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_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 "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; S_32463:; if ((*__LONG_IDEAUTOINDENT)||new_error){ if(qbevent){evnt(24642);if(r)goto S_32463;} do{ *_FUNC_CONVERTTABS_LONG_S=*__LONG_IDEAUTOINDENTSIZE; if(!qbevent)break;evnt(24642);}while(r); }else{ do{ *_FUNC_CONVERTTABS_LONG_S= 4 ; if(!qbevent)break;evnt(24642);}while(r); } do{ qbs_set(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24643);}while(r); S_32469:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0)))||new_error){ if(qbevent){evnt(24644);if(r)goto S_32469;} 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(24645);}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(24646);}while(r); dl_continue_3506:; } dl_exit_3506:; do{ qbs_set(_FUNC_CONVERTTABS_STRING_CONVERTTABS,_FUNC_CONVERTTABS_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24648);}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; 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 "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{ qbs_set(_FUNC_NEWBYTEELEMENT_STRING_A,qbs_add(qbs_new_txt_len("byte_element_",13),FUNC_STR2(&(pass3508=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24653);}while(r); do{ qbs_set(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT,_FUNC_NEWBYTEELEMENT_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24654);}while(r); S_32476:; if ((*__LONG_USE_GLOBAL_BYTE_ELEMENTS)||new_error){ if(qbevent){evnt(24655);if(r)goto S_32476;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip3509; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3509; skip3509: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24656);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3510; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); if (new_error) goto skip3510; skip3510: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24658);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3511; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); if (new_error) goto skip3511; skip3511: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24659);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip3512; sub_file_print(tmp_fileno,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 "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{ *_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24671);}while(r); S_32485:; if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||new_error){ if(qbevent){evnt(24673);if(r)goto S_32485;} S_32486:; if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||new_error){ if(qbevent){evnt(24674);if(r)goto S_32486;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24674);}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(24676);}while(r); S_32490:; while((*_FUNC_VALIDNAME_LONG_I)||new_error){ if(qbevent){evnt(24677);if(r)goto S_32490;} do{ *_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24678);}while(r); do{ *_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24679);}while(r); dl_continue_3516:; } dl_exit_3516:; S_32494:; if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||new_error){ if(qbevent){evnt(24681);if(r)goto S_32494;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24681);}while(r); } do{ *_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24682);}while(r); } S_32499:; if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||new_error){ if(qbevent){evnt(24686);if(r)goto S_32499;} S_32500:; 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(24687);if(r)goto S_32500;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24687);}while(r); } } S_32504:; fornext_value3520= 1 ; fornext_finalvalue3520=*_FUNC_VALIDNAME_LONG_L; fornext_step3520= 1 ; if (fornext_step3520<0) fornext_step_negative3520=1; else fornext_step_negative3520=0; if (new_error) goto fornext_error3520; goto fornext_entrylabel3520; while(1){ fornext_value3520=fornext_step3520+(*_FUNC_VALIDNAME_LONG_I); fornext_entrylabel3520: *_FUNC_VALIDNAME_LONG_I=fornext_value3520; if (fornext_step_negative3520){ if (fornext_value3520fornext_finalvalue3520) break; } fornext_error3520:; if(qbevent){evnt(24690);if(r)goto S_32504;} 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(24691);}while(r); S_32506:; 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(24692);if(r)goto S_32506;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24692);}while(r); } S_32509:; 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(24693);if(r)goto S_32509;} do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; if(!qbevent)break;evnt(24694);}while(r); S_32511:; if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||new_error){ if(qbevent){evnt(24695);if(r)goto S_32511;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24695);}while(r); } }else{ S_32515:; if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||new_error){ if(qbevent){evnt(24697);if(r)goto S_32515;} do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ; if(!qbevent)break;evnt(24698);}while(r); }else{ do{ *_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ; if(!qbevent)break;evnt(24700);}while(r); do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; if(!qbevent)break;evnt(24701);}while(r); } } fornext_continue_3519:; } fornext_exit_3519:; S_32523:; if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||new_error){ if(qbevent){evnt(24705);if(r)goto S_32523;} do{ goto exit_subfunc; if(!qbevent)break;evnt(24705);}while(r); } do{ *_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ; if(!qbevent)break;evnt(24706);}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_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 "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; S_32527:; if ((-(*_FUNC_STR_NTH_LONG_X== 1 ))||new_error){ if(qbevent){evnt(24710);if(r)goto S_32527;} 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(24710);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24710);}while(r); } S_32531:; if ((-(*_FUNC_STR_NTH_LONG_X== 2 ))||new_error){ if(qbevent){evnt(24711);if(r)goto S_32531;} 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(24711);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24711);}while(r); } S_32535:; if ((-(*_FUNC_STR_NTH_LONG_X== 3 ))||new_error){ if(qbevent){evnt(24712);if(r)goto S_32535;} 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(24712);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24712);}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(24713);}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; 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 "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{ *__LONG_ERROR_HAPPENED= 1 ; if(!qbevent)break;evnt(24717);}while(r); do{ qbs_set(__STRING_ERROR_MESSAGE,_SUB_GIVE_ERROR_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24718);}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; } void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_HEADING,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_TVALUE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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(_SUB_WRITECONFIGSETTING_STRING_VALUE,_SUB_WRITECONFIGSETTING_STRING_TVALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24722);}while(r); do{ if(!qbevent)break;evnt(24723);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_INFILE=func_freefile(); if(!qbevent)break;evnt(24725);}while(r); do{ sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_INFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24725);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_OUTFILE=func_freefile(); if(!qbevent)break;evnt(24726);}while(r); do{ sub_open(__STRING_CONFIGBAK, 4 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24726);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_PLACED= 0 ; if(!qbevent)break;evnt(24727);}while(r); S_32549:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_rtrim(_SUB_WRITECONFIGSETTING_STRING_ITEM), 1 ),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(24730);if(r)goto S_32549;} S_32550:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_WRITECONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(24731);if(r)goto S_32550;} do{ qbs_set(_SUB_WRITECONFIGSETTING_STRING_VALUE,qbs_add(func_chr( 34 ),_SUB_WRITECONFIGSETTING_STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24731);}while(r); } S_32553:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_WRITECONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(24732);if(r)goto S_32553;} do{ qbs_set(_SUB_WRITECONFIGSETTING_STRING_VALUE,qbs_add(_SUB_WRITECONFIGSETTING_STRING_VALUE,func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24732);}while(r); } } S_32557:; if ((func_lof(*_SUB_WRITECONFIGSETTING_LONG_INFILE))||new_error){ if(qbevent){evnt(24735);if(r)goto S_32557;} S_32558:; while((!(func_eof(*_SUB_WRITECONFIGSETTING_LONG_INFILE)))||new_error){ if(qbevent){evnt(24736);if(r)goto S_32558;} do{ tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_INFILE; if (new_error) goto skip3526; sub_file_line_input_string(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_JUNK); if (new_error) goto skip3526; skip3526: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24737);}while(r); do{ qbs_set(_SUB_WRITECONFIGSETTING_STRING_JUNK,qbs_ltrim(qbs_rtrim(_SUB_WRITECONFIGSETTING_STRING_JUNK))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24739);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_L=func_instr(NULL,_SUB_WRITECONFIGSETTING_STRING_JUNK,qbs_new_txt_len("=",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24740);}while(r); do{ qbs_set(_SUB_WRITECONFIGSETTING_STRING_COMPARE,qbs_rtrim(qbs_left(_SUB_WRITECONFIGSETTING_STRING_JUNK,*_SUB_WRITECONFIGSETTING_LONG_L- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24741);}while(r); S_32563:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_WRITECONFIGSETTING_STRING_COMPARE),qbs_ucase(_SUB_WRITECONFIGSETTING_STRING_ITEM))))||new_error){ if(qbevent){evnt(24743);if(r)goto S_32563;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3527; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_ITEM, 0 , 0 , 0 ); if (new_error) goto skip3527; sub_file_print(tmp_fileno,qbs_new_txt_len(" = ",3), 0 , 0 , 0 ); if (new_error) goto skip3527; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_VALUE, 0 , 0 , 1 ); if (new_error) goto skip3527; skip3527: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24744);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_PLACED= -1 ; if(!qbevent)break;evnt(24745);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3528; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_JUNK, 0 , 0 , 1 ); if (new_error) goto skip3528; skip3528: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24747);}while(r); } dl_continue_3525:; } dl_exit_3525:; } do{ sub_close(*_SUB_WRITECONFIGSETTING_LONG_INFILE,1); sub_close(*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,1); if(!qbevent)break;evnt(24752);}while(r); do{ sub_kill(__STRING_CONFIGFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24753);}while(r); S_32573:; if ((~(*_SUB_WRITECONFIGSETTING_LONG_PLACED))||new_error){ if(qbevent){evnt(24754);if(r)goto S_32573;} do{ sub_open(__STRING_CONFIGBAK, 2 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_INFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24760);}while(r); do{ sub_open(qbs_new_txt_len("internal/config.tmp",19), 4 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24761);}while(r); do{ qbs_set(_SUB_WRITECONFIGSETTING_STRING_OUT,qbs_add(qbs_add(_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs_new_txt_len(" = ",3)),_SUB_WRITECONFIGSETTING_STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24762);}while(r); S_32577:; while((!((func_eof(*_SUB_WRITECONFIGSETTING_LONG_INFILE))|(-(func_lof(*_SUB_WRITECONFIGSETTING_LONG_INFILE)== 0 ))))||new_error){ if(qbevent){evnt(24763);if(r)goto S_32577;} do{ tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_INFILE; if (new_error) goto skip3530; sub_file_line_input_string(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_TEMP); if (new_error) goto skip3530; skip3530: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24764);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3531; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_TEMP, 0 , 0 , 1 ); if (new_error) goto skip3531; skip3531: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24765);}while(r); S_32580:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WRITECONFIGSETTING_STRING_TEMP,_SUB_WRITECONFIGSETTING_STRING_HEADING,0)))||new_error){ if(qbevent){evnt(24766);if(r)goto S_32580;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3532; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_OUT, 0 , 0 , 1 ); if (new_error) goto skip3532; skip3532: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24766);}while(r); do{ *_SUB_WRITECONFIGSETTING_LONG_PLACED= -1 ; if(!qbevent)break;evnt(24766);}while(r); } dl_continue_3529:; } dl_exit_3529:; S_32585:; if ((~(*_SUB_WRITECONFIGSETTING_LONG_PLACED))||new_error){ if(qbevent){evnt(24768);if(r)goto S_32585;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3533; sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); if (new_error) goto skip3533; skip3533: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24769);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3534; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_HEADING, 0 , 0 , 1 ); if (new_error) goto skip3534; skip3534: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24770);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; if (new_error) goto skip3535; sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_OUT, 0 , 0 , 1 ); if (new_error) goto skip3535; skip3535: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(24771);}while(r); } do{ sub_close(*_SUB_WRITECONFIGSETTING_LONG_INFILE,1); sub_close(*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,1); if(!qbevent)break;evnt(24773);}while(r); do{ sub_kill(__STRING_CONFIGBAK); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24774);}while(r); do{ sub_name(qbs_new_txt_len("internal/config.tmp",19),__STRING_CONFIGFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24775);}while(r); }else{ do{ sub_name(__STRING_CONFIGBAK,__STRING_CONFIGFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24777);}while(r); } 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; } int32 FUNC_READCONFIGSETTING(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 "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{ if(!qbevent)break;evnt(24782);}while(r); do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24783);}while(r); do{ *_FUNC_READCONFIGSETTING_LONG_INFILE=func_freefile(); if(!qbevent)break;evnt(24784);}while(r); do{ sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*_FUNC_READCONFIGSETTING_LONG_INFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24784);}while(r); S_32600:; if ((func_lof(*_FUNC_READCONFIGSETTING_LONG_INFILE))||new_error){ if(qbevent){evnt(24786);if(r)goto S_32600;} do{ *_FUNC_READCONFIGSETTING_LONG_FOUND= 0 ; if(!qbevent)break;evnt(24787);}while(r); S_32602:; while((!(func_eof(*_FUNC_READCONFIGSETTING_LONG_INFILE)))||new_error){ if(qbevent){evnt(24788);if(r)goto S_32602;} do{ tmp_fileno=*_FUNC_READCONFIGSETTING_LONG_INFILE; if (new_error) goto skip3539; sub_file_line_input_string(tmp_fileno,_FUNC_READCONFIGSETTING_STRING_TEMP); if (new_error) goto skip3539; skip3539: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24789);}while(r); do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_TEMP,qbs_ltrim(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_TEMP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24790);}while(r); do{ *_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_TEMP,qbs_new_txt_len("=",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24791);}while(r); do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_COMPARE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READCONFIGSETTING_STRING_TEMP,*_FUNC_READCONFIGSETTING_LONG_L- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24792);}while(r); S_32607:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_READCONFIGSETTING_STRING_COMPARE),qbs_ucase(_FUNC_READCONFIGSETTING_STRING_ITEM))))||new_error){ if(qbevent){evnt(24793);if(r)goto S_32607;} do{ *_FUNC_READCONFIGSETTING_LONG_FOUND= -1 ; if(!qbevent)break;evnt(24793);}while(r); do{ goto dl_exit_3538; if(!qbevent)break;evnt(24793);}while(r); } dl_continue_3538:; } dl_exit_3538:; do{ sub_close(*_FUNC_READCONFIGSETTING_LONG_INFILE,1); if(!qbevent)break;evnt(24795);}while(r); S_32613:; if ((*_FUNC_READCONFIGSETTING_LONG_FOUND)||new_error){ if(qbevent){evnt(24796);if(r)goto S_32613;} S_32614:; if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ if(qbevent){evnt(24797);if(r)goto S_32614;} do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,func_mid(_FUNC_READCONFIGSETTING_STRING_TEMP,*_FUNC_READCONFIGSETTING_LONG_L+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24798);}while(r); do{ *_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_VALUE,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24799);}while(r); S_32617:; if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ if(qbevent){evnt(24800);if(r)goto S_32617;} do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,*_FUNC_READCONFIGSETTING_LONG_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24800);}while(r); } do{ *_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_VALUE,func_chr( 10 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24801);}while(r); S_32621:; if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ if(qbevent){evnt(24803);if(r)goto S_32621;} do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,*_FUNC_READCONFIGSETTING_LONG_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24803);}while(r); } do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_ltrim(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_VALUE))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24804);}while(r); S_32625:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_ITEM), 1 ),qbs_new_txt_len("$",1))))||new_error){ if(qbevent){evnt(24806);if(r)goto S_32625;} S_32626:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(24807);if(r)goto S_32626;} do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,func_mid(_FUNC_READCONFIGSETTING_STRING_VALUE, 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24807);}while(r); } S_32629:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_READCONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ if(qbevent){evnt(24808);if(r)goto S_32629;} do{ qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,_FUNC_READCONFIGSETTING_STRING_VALUE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24808);}while(r); } } do{ *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING= -1 ; if(!qbevent)break;evnt(24810);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24811);}while(r); } } } do{ sub_close(*_FUNC_READCONFIGSETTING_LONG_INFILE,1); if(!qbevent)break;evnt(24815);}while(r); do{ *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING= 0 ; if(!qbevent)break;evnt(24816);}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_READCONFIGSETTING_LONG_READCONFIGSETTING; } int32 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 "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; do{ *_FUNC_VRGBS_LONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR; if(!qbevent)break;evnt(24825);}while(r); S_32641:; 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(24826);if(r)goto S_32641;} 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(24827);}while(r); do{ *_FUNC_VRGBS_LONG_GPOS=func_instr(*_FUNC_VRGBS_LONG_RPOS,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24828);}while(r); do{ *_FUNC_VRGBS_LONG_BPOS=func_instr(*_FUNC_VRGBS_LONG_GPOS+ 1 ,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24829);}while(r); S_32645:; if (((-(*_FUNC_VRGBS_LONG_RPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_BPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_GPOS!= 0 )))||new_error){ if(qbevent){evnt(24830);if(r)goto S_32645;} do{ *_FUNC_VRGBS_LONG_RED=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24831);}while(r); do{ *_FUNC_VRGBS_LONG_GREEN=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24832);}while(r); do{ *_FUNC_VRGBS_LONG_BLUE=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24833);}while(r); do{ *_FUNC_VRGBS_LONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE); if(!qbevent)break;evnt(24834);}while(r); } } 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; return *_FUNC_VRGBS_LONG_VRGBS; } 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 "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; do{ qbs_set(_FUNC_EVALPREIF_STRING_TEMP,_FUNC_EVALPREIF_STRING_TEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24840);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24841);}while(r); do{ if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&2){ error(10); }else{ if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&1){ error(10); }else{ _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]= 0 ; _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]=( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]+1; _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[6]=1; _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]=(ptrszint)malloc(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]*8); if (!_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]) error(257); _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]|=1; tmp_long=_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]; if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(24843);}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(24844);}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(24845);}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(24846);}while(r); S_32658:; do{ if(qbevent){evnt(24847);if(r)goto S_32658;} do{ qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24849);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRST= 0 ; if(!qbevent)break;evnt(24849);}while(r); S_32661:; fornext_value3546= 1 ; fornext_finalvalue3546=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1); fornext_step3546= 1 ; if (fornext_step3546<0) fornext_step_negative3546=1; else fornext_step_negative3546=0; if (new_error) goto fornext_error3546; goto fornext_entrylabel3546; while(1){ fornext_value3546=fornext_step3546+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3546: *_FUNC_EVALPREIF_LONG_I=fornext_value3546; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3546){ if (fornext_value3546fornext_finalvalue3546) break; } fornext_error3546:; if(qbevent){evnt(24850);if(r)goto S_32661;} 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(24851);}while(r); S_32663:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ if(qbevent){evnt(24852);if(r)goto S_32663;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; if(!qbevent)break;evnt(24852);}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(24852);}while(r); } S_32667:; if (((-(*_FUNC_EVALPREIF_LONG_TEMP!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_TEMP<*_FUNC_EVALPREIF_LONG_FIRST)))||new_error){ if(qbevent){evnt(24853);if(r)goto S_32667;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; if(!qbevent)break;evnt(24853);}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(24853);}while(r); } fornext_continue_3545:; } fornext_exit_3545:; S_32672:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(24855);if(r)goto S_32672;} do{ *_FUNC_EVALPREIF_LONG_SECONDSYMBOL= 0 ; if(!qbevent)break;evnt(24856);}while(r); do{ *_FUNC_EVALPREIF_LONG_SECOND= 0 ; if(!qbevent)break;evnt(24856);}while(r); S_32675:; fornext_value3548=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; fornext_finalvalue3548=_FUNC_EVALPREIF_STRING_TEMP->len; fornext_step3548= 1 ; if (fornext_step3548<0) fornext_step_negative3548=1; else fornext_step_negative3548=0; if (new_error) goto fornext_error3548; goto fornext_entrylabel3548; while(1){ fornext_value3548=fornext_step3548+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3548: *_FUNC_EVALPREIF_LONG_I=fornext_value3548; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3548){ if (fornext_value3548fornext_finalvalue3548) break; } fornext_error3548:; if(qbevent){evnt(24857);if(r)goto S_32675;} do{ qbs_set(_FUNC_EVALPREIF_STRING_A,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24858);}while(r); S_32677:; if(qbevent){evnt(24859);if(r)goto S_32677;} S_32678:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(" ",1))))||new_error){ if(qbevent){evnt(24860);if(r)goto S_32678;} sc_ec_172_end:; goto sc_3550_end; } S_32679:; 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(24861);if(r)goto S_32679;} S_32680:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)))||new_error){ if(qbevent){evnt(24862);if(r)goto S_32680;} 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(24862);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(24862);}while(r); } do{ *_FUNC_EVALPREIF_LONG_SECOND=*_FUNC_EVALPREIF_LONG_I; if(!qbevent)break;evnt(24863);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_SECONDSYMBOL,_FUNC_EVALPREIF_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24863);}while(r); sc_ec_173_end:; goto sc_3550_end; } do{ goto fornext_exit_3547; if(!qbevent)break;evnt(24865);}while(r); sc_3550_end:; fornext_continue_3547:; } fornext_exit_3547:; } S_32691:; if ((*_FUNC_EVALPREIF_LONG_FIRST)||new_error){ if(qbevent){evnt(24869);if(r)goto S_32691;} 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(24870);}while(r); S_32693:; if ((*_FUNC_EVALPREIF_LONG_SECOND)||new_error){ if(qbevent){evnt(24871);if(r)goto S_32693;} do{ *_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_SECOND+ 1 ; if(!qbevent)break;evnt(24871);}while(r); }else{ do{ *_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; if(!qbevent)break;evnt(24871);}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(24873);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_add(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST, 1 ,1),func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_SECOND, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24874);}while(r); S_32700:; fornext_value3552=_FUNC_EVALPREIF_STRING_L->len; fornext_finalvalue3552= 1 ; fornext_step3552= -1 ; if (fornext_step3552<0) fornext_step_negative3552=1; else fornext_step_negative3552=0; if (new_error) goto fornext_error3552; goto fornext_entrylabel3552; while(1){ fornext_value3552=fornext_step3552+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3552: *_FUNC_EVALPREIF_LONG_I=fornext_value3552; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3552){ if (fornext_value3552fornext_finalvalue3552) break; } fornext_error3552:; if(qbevent){evnt(24876);if(r)goto S_32700;} S_32701:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_L,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ if(qbevent){evnt(24877);if(r)goto S_32701;} do{ goto fornext_exit_3551; if(!qbevent)break;evnt(24877);}while(r); } fornext_continue_3551:; } fornext_exit_3551:; 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(24879);}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,1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24880);}while(r); do{ *_FUNC_EVALPREIF_LONG_RIGHTSTOP=_FUNC_EVALPREIF_STRING_R->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24881);}while(r); S_32708:; fornext_value3557= 1 ; fornext_finalvalue3557=_FUNC_EVALPREIF_STRING_R->len; 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+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3557: *_FUNC_EVALPREIF_LONG_I=fornext_value3557; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3557){ if (fornext_value3557fornext_finalvalue3557) break; } fornext_error3557:; if(qbevent){evnt(24882);if(r)goto S_32708;} S_32709:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ if(qbevent){evnt(24883);if(r)goto S_32709;} do{ goto fornext_exit_3556; if(!qbevent)break;evnt(24883);}while(r); } fornext_continue_3556:; } fornext_exit_3556:; 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(24885);}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(24886);}while(r); S_32715:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=<",2))))||new_error){ if(qbevent){evnt(24887);if(r)goto S_32715;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24887);}while(r); } S_32718:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=>",2))))||new_error){ if(qbevent){evnt(24888);if(r)goto S_32718;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">=",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24888);}while(r); } S_32721:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("><",2))))||new_error){ if(qbevent){evnt(24889);if(r)goto S_32721;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24889);}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(24890);}while(r); S_32725:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2))))||new_error){ if(qbevent){evnt(24891);if(r)goto S_32725;} S_32726:; fornext_value3560= 0 ; fornext_finalvalue3560=*__INTEGER_USERDEFINECOUNT; fornext_step3560= 1 ; if (fornext_step3560<0) fornext_step_negative3560=1; else fornext_step_negative3560=0; if (new_error) goto fornext_error3560; goto fornext_entrylabel3560; while(1){ fornext_value3560=fornext_step3560+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3560: *_FUNC_EVALPREIF_LONG_I=fornext_value3560; if (fornext_step_negative3560){ if (fornext_value3560fornext_finalvalue3560) break; } fornext_error3560:; if(qbevent){evnt(24892);if(r)goto S_32726;} S_32727:; 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(24893);if(r)goto S_32727;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24893);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24893);}while(r); } fornext_continue_3559:; } fornext_exit_3559:; } S_32733:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=",1),0)))||new_error){ if(qbevent){evnt(24896);if(r)goto S_32733;} do{ *_FUNC_EVALPREIF_LONG_USERFOUND= 0 ; if(!qbevent)break;evnt(24897);}while(r); S_32735:; fornext_value3562= 0 ; fornext_finalvalue3562=*__INTEGER_USERDEFINECOUNT; fornext_step3562= 1 ; if (fornext_step3562<0) fornext_step_negative3562=1; else fornext_step_negative3562=0; if (new_error) goto fornext_error3562; goto fornext_entrylabel3562; while(1){ fornext_value3562=fornext_step3562+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3562: *_FUNC_EVALPREIF_LONG_I=fornext_value3562; if (fornext_step_negative3562){ if (fornext_value3562fornext_finalvalue3562) break; } fornext_error3562:; if(qbevent){evnt(24898);if(r)goto S_32735;} S_32736:; 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(24899);if(r)goto S_32736;} do{ *_FUNC_EVALPREIF_LONG_USERFOUND= -1 ; if(!qbevent)break;evnt(24900);}while(r); S_32738:; 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(24901);if(r)goto S_32738;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24901);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24901);}while(r); } } fornext_continue_3561:; } fornext_exit_3561:; S_32744:; 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(24904);if(r)goto S_32744;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24904);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24904);}while(r); } S_32748:; 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(24905);if(r)goto S_32748;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24905);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24905);}while(r); } } S_32753:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">",1),0)))||new_error){ if(qbevent){evnt(24908);if(r)goto S_32753;} S_32754:; fornext_value3564= 0 ; fornext_finalvalue3564=*__INTEGER_USERDEFINECOUNT; fornext_step3564= 1 ; if (fornext_step3564<0) fornext_step_negative3564=1; else fornext_step_negative3564=0; if (new_error) goto fornext_error3564; goto fornext_entrylabel3564; while(1){ fornext_value3564=fornext_step3564+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3564: *_FUNC_EVALPREIF_LONG_I=fornext_value3564; if (fornext_step_negative3564){ if (fornext_value3564fornext_finalvalue3564) break; } fornext_error3564:; if(qbevent){evnt(24909);if(r)goto S_32754;} S_32755:; 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(24910);if(r)goto S_32755;} S_32756:; 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(24911);if(r)goto S_32756;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24911);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24911);}while(r); } }else{ S_32761:; 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(24913);if(r)goto S_32761;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24913);}while(r); do{ goto LABEL_FINISHEDCHECK; if(!qbevent)break;evnt(24913);}while(r); } } fornext_continue_3563:; } fornext_exit_3563:; } S_32768:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<",1),0)))||new_error){ if(qbevent){evnt(24917);if(r)goto S_32768;} S_32769:; fornext_value3566= 0 ; fornext_finalvalue3566=*__INTEGER_USERDEFINECOUNT; fornext_step3566= 1 ; if (fornext_step3566<0) fornext_step_negative3566=1; else fornext_step_negative3566=0; if (new_error) goto fornext_error3566; goto fornext_entrylabel3566; while(1){ fornext_value3566=fornext_step3566+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3566: *_FUNC_EVALPREIF_LONG_I=fornext_value3566; if (fornext_step_negative3566){ if (fornext_value3566fornext_finalvalue3566) break; } fornext_error3566:; if(qbevent){evnt(24918);if(r)goto S_32769;} S_32770:; 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(24919);if(r)goto S_32770;} S_32771:; 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_finalvalue3569) break; } fornext_error3569:; if(qbevent){evnt(24942);if(r)goto S_32791;} S_32792:; 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(24943);if(r)goto S_32792;} 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(24944);}while(r); S_32794:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST!= 0 ))||new_error){ if(qbevent){evnt(24945);if(r)goto S_32794;} S_32795:; if (((-(*_FUNC_EVALPREIF_LONG_T<*_FUNC_EVALPREIF_LONG_FIRST))&(-(*_FUNC_EVALPREIF_LONG_T!= 0 )))||new_error){ if(qbevent){evnt(24946);if(r)goto S_32795;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; if(!qbevent)break;evnt(24946);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; if(!qbevent)break;evnt(24946);}while(r); } }else{ do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; if(!qbevent)break;evnt(24948);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; if(!qbevent)break;evnt(24948);}while(r); } } fornext_continue_3568:; } fornext_exit_3568:; S_32805:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ if(qbevent){evnt(24952);if(r)goto S_32805;} do{ goto dl_exit_3567; if(!qbevent)break;evnt(24952);}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(24953);}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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24954);}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(24955);}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(24956);}while(r); S_32812:; if ((*_FUNC_EVALPREIF_LONG_T)||new_error){ if(qbevent){evnt(24957);if(r)goto S_32812;} 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(24958);}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(24959);}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(24961);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24962);}while(r); } do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= 0 ; if(!qbevent)break;evnt(24964);}while(r); S_32820:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ if(qbevent){evnt(24965);if(r)goto S_32820;} S_32821:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_LEFTSIDE)!= 0 )))||new_error){ if(qbevent){evnt(24966);if(r)goto S_32821;} do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; if(!qbevent)break;evnt(24966);}while(r); } }else{ S_32825:; fornext_value3573= 0 ; fornext_finalvalue3573=*__INTEGER_USERDEFINECOUNT; 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+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3573: *_FUNC_EVALPREIF_LONG_I=fornext_value3573; if (fornext_step_negative3573){ if (fornext_value3573fornext_finalvalue3573) break; } fornext_error3573:; if(qbevent){evnt(24968);if(r)goto S_32825;} S_32826:; 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(24969);if(r)goto S_32826;} 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(24970);}while(r); S_32828:; 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(24971);if(r)goto S_32828;} do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; if(!qbevent)break;evnt(24971);}while(r); do{ goto fornext_exit_3572; if(!qbevent)break;evnt(24971);}while(r); } } fornext_continue_3572:; } fornext_exit_3572:; } do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= 0 ; if(!qbevent)break;evnt(24975);}while(r); S_32836:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_M)))||new_error){ if(qbevent){evnt(24976);if(r)goto S_32836;} S_32837:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_M)!= 0 )))||new_error){ if(qbevent){evnt(24977);if(r)goto S_32837;} do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; if(!qbevent)break;evnt(24977);}while(r); } }else{ S_32841:; fornext_value3575= 0 ; fornext_finalvalue3575=*__INTEGER_USERDEFINECOUNT; fornext_step3575= 1 ; if (fornext_step3575<0) fornext_step_negative3575=1; else fornext_step_negative3575=0; if (new_error) goto fornext_error3575; goto fornext_entrylabel3575; while(1){ fornext_value3575=fornext_step3575+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3575: *_FUNC_EVALPREIF_LONG_I=fornext_value3575; if (fornext_step_negative3575){ if (fornext_value3575fornext_finalvalue3575) break; } fornext_error3575:; if(qbevent){evnt(24979);if(r)goto S_32841;} S_32842:; 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(24980);if(r)goto S_32842;} 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(24981);}while(r); S_32844:; 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(24982);if(r)goto S_32844;} do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; if(!qbevent)break;evnt(24982);}while(r); do{ goto fornext_exit_3574; if(!qbevent)break;evnt(24982);}while(r); } } fornext_continue_3574:; } fornext_exit_3574:; } S_32851:; qbs_set(sc_3576,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL))); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(24986);if(r)goto S_32851;} S_32852:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3576,qbs_new_txt_len("AND",3))))||new_error){ if(qbevent){evnt(24987);if(r)goto S_32852;} S_32853:; if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ if(qbevent){evnt(24988);if(r)goto S_32853;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24988);}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(24988);}while(r); } sc_ec_174_end:; goto sc_3576_end; } S_32858:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3576,qbs_new_txt_len("OR",2))))||new_error){ if(qbevent){evnt(24989);if(r)goto S_32858;} S_32859:; if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))|(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ if(qbevent){evnt(24990);if(r)goto S_32859;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24990);}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(24990);}while(r); } sc_ec_175_end:; goto sc_3576_end; } S_32864:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3576,qbs_new_txt_len("XOR",3))))||new_error){ if(qbevent){evnt(24991);if(r)goto S_32864;} S_32865:; if ((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!=*_FUNC_EVALPREIF_LONG_RIGHTRESULT))||new_error){ if(qbevent){evnt(24992);if(r)goto S_32865;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24992);}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(24992);}while(r); } sc_ec_176_end:; goto sc_3576_end; } sc_3576_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(24994);}while(r); dl_continue_3567:; }while(1); dl_exit_3567:; S_32873:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ if(qbevent){evnt(24997);if(r)goto S_32873;} do{ *_FUNC_EVALPREIF_LONG_EVALPREIF=qbr(func_val(_FUNC_EVALPREIF_STRING_TEMP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(24998);}while(r); }else{ S_32876:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(25000);if(r)goto S_32876;} 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(25000);}while(r); } S_32879:; fornext_value3578= 0 ; fornext_finalvalue3578=*__INTEGER_USERDEFINECOUNT; fornext_step3578= 1 ; if (fornext_step3578<0) fornext_step_negative3578=1; else fornext_step_negative3578=0; if (new_error) goto fornext_error3578; goto fornext_entrylabel3578; while(1){ fornext_value3578=fornext_step3578+(*_FUNC_EVALPREIF_LONG_I); fornext_entrylabel3578: *_FUNC_EVALPREIF_LONG_I=fornext_value3578; if (fornext_step_negative3578){ if (fornext_value3578fornext_finalvalue3578) break; } fornext_error3578:; if(qbevent){evnt(25001);if(r)goto S_32879;} S_32880:; 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(25002);if(r)goto S_32880;} 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(25003);}while(r); S_32882:; 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(25004);if(r)goto S_32882;} do{ *_FUNC_EVALPREIF_LONG_EVALPREIF= -1 ; if(!qbevent)break;evnt(25004);}while(r); do{ goto fornext_exit_3577; if(!qbevent)break;evnt(25004);}while(r); } } fornext_continue_3577:; } fornext_exit_3577:; } 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; 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 "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; 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(25012);}while(r); do{ *_FUNC_VERIFYNUMBER_LONG_V=qbr(func_val(_FUNC_VERIFYNUMBER_STRING_T)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25013);}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(25014);}while(r); S_32892:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VERIFYNUMBER_STRING_T,_FUNC_VERIFYNUMBER_STRING_T1)))||new_error){ if(qbevent){evnt(25015);if(r)goto S_32892;} do{ *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER= -1 ; if(!qbevent)break;evnt(25015);}while(r); } 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; 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_FILE,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 "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_32895:; 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(25019);if(r)goto S_32895;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25019);}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(25020);}while(r); do{ *_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; if(!qbevent)break;evnt(25021);}while(r); S_32900:; while((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ if(qbevent){evnt(25022);if(r)goto S_32900;} S_32901:; 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(25023);if(r)goto S_32901;} S_32902:; 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(25024);if(r)goto S_32902;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE; if (new_error) goto skip3582; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3582; skip3582: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25025);}while(r); } S_32905:; }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(25027);if(r)goto S_32905;} do{ SUB_INITIALISE_UDT_VARSTRINGS(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,&(pass3583=((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_FILE,_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25028);}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(25030);}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(25031);}while(r); dl_continue_3581:; } dl_exit_3581:; 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_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,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 "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_32911:; 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(25036);if(r)goto S_32911;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25036);}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(25037);}while(r); do{ *_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; if(!qbevent)break;evnt(25038);}while(r); S_32916:; while((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ if(qbevent){evnt(25039);if(r)goto S_32916;} S_32917:; 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(25040);if(r)goto S_32917;} S_32918:; 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(25041);if(r)goto S_32918;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE; if (new_error) goto skip3586; sub_file_print(tmp_fileno,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)), 0 , 0 , 1 ); if (new_error) goto skip3586; skip3586: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25042);}while(r); } S_32921:; }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(25044);if(r)goto S_32921;} do{ SUB_INITIALISE_UDT_VARSTRINGS(_SUB_FREE_UDT_VARSTRINGS_STRING_N,&(pass3587=((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_FILE,_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25045);}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(25047);}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(25048);}while(r); dl_continue_3585:; } dl_exit_3585:; 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_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 "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_32927:; 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(25053);if(r)goto S_32927;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25053);}while(r); } do{ *_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; if(!qbevent)break;evnt(25054);}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(25055);}while(r); S_32932:; while((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ if(qbevent){evnt(25056);if(r)goto S_32932;} S_32933:; 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(25057);if(r)goto S_32933;} S_32934:; 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(25058);if(r)goto S_32934;} 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(25059);}while(r); } S_32937:; }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(25061);if(r)goto S_32937;} do{ SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3592=((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(25062);}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(25064);}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(25065);}while(r); dl_continue_3591:; } dl_exit_3591:; 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_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 "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; S_32943:; 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(25070);if(r)goto S_32943;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25070);}while(r); } do{ *_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; if(!qbevent)break;evnt(25071);}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(25072);}while(r); S_32948:; while((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ if(qbevent){evnt(25073);if(r)goto S_32948;} S_32949:; 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(25074);if(r)goto S_32949;} S_32950:; 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(25075);if(r)goto S_32950;} 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(25076);}while(r); } S_32953:; }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(25078);if(r)goto S_32953;} do{ SUB_FREE_ARRAY_UDT_VARSTRINGS(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3597=((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(25079);}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(25081);}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(25082);}while(r); dl_continue_3596:; } dl_exit_3596:; 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_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_FILE,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 "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; S_32959:; 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(25087);if(r)goto S_32959;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; if (new_error) goto skip3600; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip3600; skip3600: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25088);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25089);}while(r); } do{ *_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET; if(!qbevent)break;evnt(25091);}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(25092);}while(r); S_32965:; while((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)||new_error){ if(qbevent){evnt(25093);if(r)goto S_32965;} S_32966:; 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(25094);if(r)goto S_32966;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; if (new_error) goto skip3602; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip3602; skip3602: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25095);}while(r); S_32968:; }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(25096);if(r)goto S_32968;} do{ SUB_COPY_FULL_UDT(_SUB_COPY_FULL_UDT_STRING_DST,_SUB_COPY_FULL_UDT_STRING_SRC,&(pass3603= 12 ),_SUB_COPY_FULL_UDT_LONG_OFFSET,&(pass3604=((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(25097);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; if (new_error) goto skip3605; 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("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)), 0 , 0 , 1 ); if (new_error) goto skip3605; skip3605: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25099);}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(25101);}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(25102);}while(r); dl_continue_3601:; } dl_exit_3601:; 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_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 "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{ *_SUB_DUMP_UDTS_LONG_F=func_freefile(); if(!qbevent)break;evnt(25107);}while(r); do{ sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25108);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; if (new_error) goto skip3606; sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Var?",32), 0 , 0 , 1 ); if (new_error) goto skip3606; skip3606: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25109);}while(r); S_32979:; fornext_value3608= 1 ; fornext_finalvalue3608=*__LONG_LASTTYPE; fornext_step3608= 1 ; if (fornext_step3608<0) fornext_step_negative3608=1; else fornext_step_negative3608=0; if (new_error) goto fornext_error3608; goto fornext_entrylabel3608; while(1){ fornext_value3608=fornext_step3608+(*_SUB_DUMP_UDTS_LONG_I); fornext_entrylabel3608: *_SUB_DUMP_UDTS_LONG_I=fornext_value3608; if (fornext_step_negative3608){ if (fornext_value3608fornext_finalvalue3608) break; } fornext_error3608:; if(qbevent){evnt(25110);if(r)goto S_32979;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; if (new_error) goto skip3609; 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 skip3609; 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 skip3609; 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 skip3609; 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 skip3609; 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 skip3609; skip3609: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25111);}while(r); fornext_continue_3607:; } fornext_exit_3607:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; if (new_error) goto skip3610; sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Type Tsize Arr",45), 0 , 0 , 1 ); if (new_error) goto skip3610; skip3610: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25113);}while(r); S_32983:; fornext_value3612= 1 ; fornext_finalvalue3612=*__LONG_LASTTYPEELEMENT; fornext_step3612= 1 ; if (fornext_step3612<0) fornext_step_negative3612=1; else fornext_step_negative3612=0; if (new_error) goto fornext_error3612; goto fornext_entrylabel3612; while(1){ fornext_value3612=fornext_step3612+(*_SUB_DUMP_UDTS_LONG_I); fornext_entrylabel3612: *_SUB_DUMP_UDTS_LONG_I=fornext_value3612; if (fornext_step_negative3612){ if (fornext_value3612fornext_finalvalue3612) break; } fornext_error3612:; if(qbevent){evnt(25114);if(r)goto S_32983;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; if (new_error) goto skip3613; 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 skip3613; 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 skip3613; 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 skip3613; 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 skip3613; 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 skip3613; 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 skip3613; 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 skip3613; skip3613: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25115);}while(r); fornext_continue_3611:; } fornext_exit_3611:; do{ sub_close(*_SUB_DUMP_UDTS_LONG_F,1); if(!qbevent)break;evnt(25117);}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; } void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,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 "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; do{ if(!qbevent)break;evnt(25121);}while(r); do{ qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,_SUB_MANAGEVARIABLELIST_STRING___CNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25122);}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(25124);}while(r); S_32990:; if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ if(qbevent){evnt(25125);if(r)goto S_32990;} 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(25126);}while(r); } do{ *_SUB_MANAGEVARIABLELIST_LONG_FOUND= 0 ; if(!qbevent)break;evnt(25129);}while(r); S_32994:; fornext_value3617= 1 ; fornext_finalvalue3617=*__LONG_TOTALVARIABLESCREATED; fornext_step3617= 1 ; if (fornext_step3617<0) fornext_step_negative3617=1; else fornext_step_negative3617=0; if (new_error) goto fornext_error3617; goto fornext_entrylabel3617; while(1){ fornext_value3617=fornext_step3617+(*_SUB_MANAGEVARIABLELIST_LONG_I); fornext_entrylabel3617: *_SUB_MANAGEVARIABLELIST_LONG_I=fornext_value3617; if (fornext_step_negative3617){ if (fornext_value3617fornext_finalvalue3617) break; } fornext_error3617:; if(qbevent){evnt(25130);if(r)goto S_32994;} S_32995:; 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]))*37+21))),_SUB_MANAGEVARIABLELIST_STRING_CNAME)))||new_error){ if(qbevent){evnt(25131);if(r)goto S_32995;} do{ *_SUB_MANAGEVARIABLELIST_LONG_FOUND= -1 ; if(!qbevent)break;evnt(25131);}while(r); do{ goto fornext_exit_3616; if(!qbevent)break;evnt(25131);}while(r); } fornext_continue_3616:; } fornext_exit_3616:; S_33000:; if(qbevent){evnt(25134);if(r)goto S_33000;} S_33001:; if (((*_SUB_MANAGEVARIABLELIST_BYTE_ACTION==( 0 )))||new_error){ if(qbevent){evnt(25135);if(r)goto S_33001;} S_33002:; if ((-(*_SUB_MANAGEVARIABLELIST_LONG_FOUND== 0 ))||new_error){ if(qbevent){evnt(25136);if(r)goto S_33002;} S_33003:; if ((-(*_SUB_MANAGEVARIABLELIST_LONG_I>func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)))||new_error){ if(qbevent){evnt(25137);if(r)goto S_33003;} do{ if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ preserved_elements=__ARRAY_UDT_USEDVARIABLELIST[5]; } else preserved_elements=0; __ARRAY_UDT_USEDVARIABLELIST[4]= 0 ; __ARRAY_UDT_USEDVARIABLELIST[5]=(func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)+ 999 )-__ARRAY_UDT_USEDVARIABLELIST[4]+1; __ARRAY_UDT_USEDVARIABLELIST[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_UDT_USEDVARIABLELIST[5]; if (tmp_long2 0 ))||new_error){ if(qbevent){evnt(25143);if(r)goto S_33009;} do{ *(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+9))=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; if(!qbevent)break;evnt(25144);}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(25145);}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(25146);}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]))*37+13))),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25147);}while(r); }else{ do{ *(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37+9))= 0 ; if(!qbevent)break;evnt(25149);}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]))*37+13))),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25150);}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]))*37+21))),_SUB_MANAGEVARIABLELIST_STRING_CNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25152);}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]))*37+29))),_SUB_MANAGEVARIABLELIST_STRING_NAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25153);}while(r); do{ *__LONG_TOTALVARIABLESCREATED=*__LONG_TOTALVARIABLESCREATED+ 1 ; if(!qbevent)break;evnt(25154);}while(r); } sc_ec_177_end:; goto sc_3618_end; } S_33023:; if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ if(qbevent){evnt(25157);if(r)goto S_33023;} do{ *(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*37))= -1 ; if(!qbevent)break;evnt(25158);}while(r); } sc_3618_end:; 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; } 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 "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{ *__BYTE_WARNINGSISSUED= -1 ; if(!qbevent)break;evnt(25164);}while(r); do{ *__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ; if(!qbevent)break;evnt(25165);}while(r); S_33029:; if (((-(*__LONG_IDEMODE== 0 ))&*__BYTE_SHOWWARNINGS)||new_error){ if(qbevent){evnt(25167);if(r)goto S_33029;} do{ qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,FUNC_GETFILEPATH(__STRING_CMDLINEFILE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25168);}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(25169);}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(25170);}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(25171);}while(r); S_33034:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(25173);if(r)goto S_33034;} do{ qbg_sub_color( 15 ,NULL,NULL,1); if(!qbevent)break;evnt(25173);}while(r); } S_33037:; if (((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))&(-(*_SUB_ADDWARNING_LONG_INCLINENUMBER> 0 )))||new_error){ if(qbevent){evnt(25174);if(r)goto S_33037;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISINCNAME); if (new_error) goto skip3625; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len(":",1)); if (new_error) goto skip3625; makefit(tqbs); qbs_print(tqbs,0); skip3625: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25175);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_INCLINENUMBER)); if (new_error) goto skip3626; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len(": ",2)); if (new_error) goto skip3626; makefit(tqbs); qbs_print(tqbs,0); skip3626: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25176);}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISSOURCE); if (new_error) goto skip3627; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len(":",1)); if (new_error) goto skip3627; makefit(tqbs); qbs_print(tqbs,0); skip3627: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25178);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_WHICHLINENUMBER)); if (new_error) goto skip3628; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,qbs_new_txt_len(": ",2)); if (new_error) goto skip3628; makefit(tqbs); qbs_print(tqbs,0); skip3628: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25179);}while(r); } S_33044:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(25182);if(r)goto S_33044;} do{ qbg_sub_color( 13 ,NULL,NULL,1); if(!qbevent)break;evnt(25182);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("warning: ",9)); if (new_error) goto skip3629; makefit(tqbs); qbs_print(tqbs,0); skip3629: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25183);}while(r); S_33048:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(25184);if(r)goto S_33048;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(25184);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_ADDWARNING_STRING_HEADER); if (new_error) goto skip3630; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip3630: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25185);}while(r); S_33052:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_ADDWARNING_STRING_TEXT->len> 0 )))||new_error){ if(qbevent){evnt(25187);if(r)goto S_33052;} S_33053:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(25188);if(r)goto S_33053;} do{ qbg_sub_color( 2 ,NULL,NULL,1); if(!qbevent)break;evnt(25188);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space( 4 )); if (new_error) goto skip3632; makefit(tqbs); qbs_print(tqbs,0); qbs_set(tqbs,_SUB_ADDWARNING_STRING_TEXT); if (new_error) goto skip3632; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip3632: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25189);}while(r); S_33057:; if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ if(qbevent){evnt(25190);if(r)goto S_33057;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(25190);}while(r); } } S_33061:; }else{ if (*__LONG_IDEMODE){ if(qbevent){evnt(25192);if(r)goto S_33061;} S_33062:; if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ if(qbevent){evnt(25193);if(r)goto S_33062;} S_33063:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER)))||new_error){ if(qbevent){evnt(25194);if(r)goto S_33063;} do{ qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25195);}while(r); do{ return_point[next_return_point++]=5; if (next_return_point>=return_points) more_return_points(); goto LABEL_INCREASEWARNINGCOUNT; RETURN_5:; if(!qbevent)break;evnt(25196);}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])),qbs_add(qbs_add(l2string( 0 ),func_chr( 2 )),_SUB_ADDWARNING_STRING_HEADER)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25197);}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(25200);}while(r); S_33069:; if ((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))||new_error){ if(qbevent){evnt(25201);if(r)goto S_33069;} do{ qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25202);}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(25203);}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])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER),l2string(*_SUB_ADDWARNING_LONG_INCLUDELEVEL)),l2string(*_SUB_ADDWARNING_LONG_INCLINENUMBER)),_SUB_ADDWARNING_STRING_THISINCNAME),func_chr( 2 )),_SUB_ADDWARNING_STRING_TEXT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25204);}while(r); }else{ 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])),qbs_add(qbs_add(qbs_add(l2string(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER),l2string( 0 )),func_chr( 2 )),_SUB_ADDWARNING_STRING_TEXT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25206);}while(r); } } } } do{ goto exit_subfunc; if(!qbevent)break;evnt(25210);}while(r); LABEL_INCREASEWARNINGCOUNT:; if(qbevent){evnt(25211);r=0;} do{ *__LONG_WARNINGLISTITEMS=*__LONG_WARNINGLISTITEMS+ 1 ; if(!qbevent)break;evnt(25212);}while(r); S_33080:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_WARNINGLISTITEMS>func_ubound(__ARRAY_STRING_WARNING,1,1))))||new_error){ if(qbevent){evnt(25213);if(r)goto S_33080;} do{ if (__ARRAY_STRING_WARNING[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_WARNING[2]&1){ preserved_elements=__ARRAY_STRING_WARNING[5]; } else preserved_elements=0; __ARRAY_STRING_WARNING[4]= 0 ; __ARRAY_STRING_WARNING[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-__ARRAY_STRING_WARNING[4]+1; __ARRAY_STRING_WARNING[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_WARNING[5]; if (tmp_long2=mem_static)&&(tmp_mem_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_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 "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{ qbs_set(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_MYSTRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25217,6,"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(25217,7,"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(25217,8,"strings.bas");}while(r); S_33087:; while((*_FUNC_STRREMOVE_LONG_I)||new_error){ if(qbevent){evnt(25217,9,"strings.bas");if(r)goto S_33087;} 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(25217,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(25217,11,"strings.bas");}while(r); dl_continue_3636:; } dl_exit_3636:; do{ qbs_set(_FUNC_STRREMOVE_STRING_STRREMOVE,_FUNC_STRREMOVE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25217,13,"strings.bas");}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; 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 "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; S_33092:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_STRREPLACE_STRING_MYSTRING->len== 0 )))||new_error){ if(qbevent){evnt(25217,17,"strings.bas");if(r)goto S_33092;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25217,17,"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(25217,18,"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(25217,19,"strings.bas");}while(r); do{ *_FUNC_STRREPLACE_LONG_BASEI= 1 ; if(!qbevent)break;evnt(25217,20,"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,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25217,21,"strings.bas");}while(r); S_33099:; while((*_FUNC_STRREPLACE_LONG_I)||new_error){ if(qbevent){evnt(25217,22,"strings.bas");if(r)goto S_33099;} 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(25217,23,"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(25217,24,"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,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25217,25,"strings.bas");}while(r); dl_continue_3643:; } dl_exit_3643:; do{ qbs_set(_FUNC_STRREPLACE_STRING_STRREPLACE,_FUNC_STRREPLACE_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25217,27,"strings.bas");}while(r); 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; qbs_maketmp(_FUNC_STRREPLACE_STRING_STRREPLACE);return _FUNC_STRREPLACE_STRING_STRREPLACE; } 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 "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{ qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,2,"opengl_methods.bas");}while(r); S_33106:; 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(25219,5,"opengl_methods.bas");if(r)goto S_33106;} 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(25219,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(25219,5,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,5,"opengl_methods.bas");}while(r); } S_33112:; 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(25219,6,"opengl_methods.bas");if(r)goto S_33112;} 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(25219,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(25219,6,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,6,"opengl_methods.bas");}while(r); } S_33118:; 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(25219,7,"opengl_methods.bas");if(r)goto S_33118;} 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(25219,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(25219,7,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,7,"opengl_methods.bas");}while(r); } S_33124:; 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(25219,10,"opengl_methods.bas");if(r)goto S_33124;} 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(25219,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(25219,10,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,10,"opengl_methods.bas");}while(r); } S_33130:; 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(25219,11,"opengl_methods.bas");if(r)goto S_33130;} 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(25219,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(25219,11,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,11,"opengl_methods.bas");}while(r); } S_33136:; 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(25219,14,"opengl_methods.bas");if(r)goto S_33136;} 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(25219,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(25219,14,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,14,"opengl_methods.bas");}while(r); } S_33142:; 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(25219,15,"opengl_methods.bas");if(r)goto S_33142;} 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(25219,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(25219,15,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,15,"opengl_methods.bas");}while(r); } S_33148:; 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(25219,18,"opengl_methods.bas");if(r)goto S_33148;} 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(25219,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(25219,18,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,18,"opengl_methods.bas");}while(r); } S_33154:; 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(25219,21,"opengl_methods.bas");if(r)goto S_33154;} 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(25219,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(25219,21,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,21,"opengl_methods.bas");}while(r); } S_33160:; 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(25219,24,"opengl_methods.bas");if(r)goto S_33160;} 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(25219,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(25219,24,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,24,"opengl_methods.bas");}while(r); } S_33166:; 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(25219,27,"opengl_methods.bas");if(r)goto S_33166;} 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(25219,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(25219,27,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,27,"opengl_methods.bas");}while(r); } S_33172:; 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(25219,28,"opengl_methods.bas");if(r)goto S_33172;} 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(25219,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(25219,28,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,28,"opengl_methods.bas");}while(r); } S_33178:; 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(25219,31,"opengl_methods.bas");if(r)goto S_33178;} 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(25219,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(25219,31,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,31,"opengl_methods.bas");}while(r); } S_33184:; 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(25219,32,"opengl_methods.bas");if(r)goto S_33184;} 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(25219,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(25219,32,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,32,"opengl_methods.bas");}while(r); } S_33190:; 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(25219,35,"opengl_methods.bas");if(r)goto S_33190;} 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(25219,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(25219,35,"opengl_methods.bas");}while(r); do{ *_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(25219,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(25219,35,"opengl_methods.bas");}while(r); } S_33196:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25219,53,"opengl_methods.bas");if(r)goto S_33196;} 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 skip3650; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip3650: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,53,"opengl_methods.bas");}while(r); do{ sub_end(); if(!qbevent)break;evnt(25219,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(25219,54,"opengl_methods.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_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 "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{ qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_READCHUNK_STRING_A))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,58,"opengl_methods.bas");}while(r); S_33202:; fornext_value3654= 1 ; fornext_finalvalue3654=_FUNC_READCHUNK_STRING_A->len; 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_READCHUNK_LONG_X); fornext_entrylabel3654: *_FUNC_READCHUNK_LONG_X=fornext_value3654; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3654){ if (fornext_value3654fornext_finalvalue3654) break; } fornext_error3654:; if(qbevent){evnt(25219,59,"opengl_methods.bas");if(r)goto S_33202;} 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(25219,60,"opengl_methods.bas");}while(r); S_33204:; 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(25219,61,"opengl_methods.bas");if(r)goto S_33204;} do{ qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,func_chr(*_FUNC_READCHUNK_LONG_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,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(25219,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(25219,61,"opengl_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25219,61,"opengl_methods.bas");}while(r); } fornext_continue_3653:; } fornext_exit_3653:; do{ qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,_FUNC_READCHUNK_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,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(25219,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(25219,63,"opengl_methods.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_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 "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; S_33214:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,69,"opengl_methods.bas");if(r)goto S_33214;} do{ *_SUB_GL_SCAN_HEADER_LONG_HK=func_freefile(); if(!qbevent)break;evnt(25219,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(25219,69,"opengl_methods.bas");}while(r); } S_33218:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,70,"opengl_methods.bas");if(r)goto S_33218;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3657; sub_file_print(tmp_fileno,qbs_new_txt_len("DECLARE LIBRARY",15), 0 , 0 , 1 ); if (new_error) goto skip3657; skip3657: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,70,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_D= 0 ; if(!qbevent)break;evnt(25219,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(25219,72,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_H=func_freefile(); if(!qbevent)break;evnt(25219,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(25219,74,"opengl_methods.bas");}while(r); S_33225:; while((!(func_eof(*_SUB_GL_SCAN_HEADER_LONG_H)))||new_error){ if(qbevent){evnt(25219,75,"opengl_methods.bas");if(r)goto S_33225;} do{ tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_H; if (new_error) goto skip3659; sub_file_line_input_string(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_A); if (new_error) goto skip3659; skip3659: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,76,"opengl_methods.bas");}while(r); S_33227:; if ((qbs_cleanup(qbs_tmp_base,_SUB_GL_SCAN_HEADER_STRING_A->len))||new_error){ if(qbevent){evnt(25219,77,"opengl_methods.bas");if(r)goto S_33227;} 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(25219,78,"opengl_methods.bas");}while(r); S_33229:; 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(25219,79,"opengl_methods.bas");if(r)goto S_33229;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,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(25219,81,"opengl_methods.bas");}while(r); S_33232:; fornext_value3662= 1 ; fornext_finalvalue3662=_SUB_GL_SCAN_HEADER_STRING_A->len; fornext_step3662= 1 ; if (fornext_step3662<0) fornext_step_negative3662=1; else fornext_step_negative3662=0; if (new_error) goto fornext_error3662; goto fornext_entrylabel3662; while(1){ fornext_value3662=fornext_step3662+(*_SUB_GL_SCAN_HEADER_LONG_X); fornext_entrylabel3662: *_SUB_GL_SCAN_HEADER_LONG_X=fornext_value3662; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3662){ if (fornext_value3662fornext_finalvalue3662) break; } fornext_error3662:; if(qbevent){evnt(25219,82,"opengl_methods.bas");if(r)goto S_33232;} 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(25219,83,"opengl_methods.bas");}while(r); S_33234:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_C== 32 ))||new_error){ if(qbevent){evnt(25219,84,"opengl_methods.bas");if(r)goto S_33234;} S_33235:; fornext_value3665= 1 ; fornext_finalvalue3665=_SUB_GL_SCAN_HEADER_STRING_A2->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+(*_SUB_GL_SCAN_HEADER_LONG_X2); fornext_entrylabel3665: *_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value3665; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3665){ if (fornext_value3665fornext_finalvalue3665) break; } fornext_error3665:; if(qbevent){evnt(25219,85,"opengl_methods.bas");if(r)goto S_33235;} 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(25219,86,"opengl_methods.bas");}while(r); S_33237:; if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 65 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 90 )))||new_error){ if(qbevent){evnt(25219,87,"opengl_methods.bas");if(r)goto S_33237;} do{ goto LABEL_DEFINE_OK; if(!qbevent)break;evnt(25219,87,"opengl_methods.bas");}while(r); } S_33240:; 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(25219,88,"opengl_methods.bas");if(r)goto S_33240;} do{ goto LABEL_DEFINE_OK; if(!qbevent)break;evnt(25219,88,"opengl_methods.bas");}while(r); } S_33243:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_C2== 95 ))||new_error){ if(qbevent){evnt(25219,89,"opengl_methods.bas");if(r)goto S_33243;} do{ goto LABEL_DEFINE_OK; if(!qbevent)break;evnt(25219,89,"opengl_methods.bas");}while(r); } do{ goto LABEL_DEFINE_NOT_OK; if(!qbevent)break;evnt(25219,90,"opengl_methods.bas");}while(r); LABEL_DEFINE_OK:; if(qbevent){evnt(25219,91,"opengl_methods.bas");r=0;} fornext_continue_3664:; } fornext_exit_3664:; 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(25219,93,"opengl_methods.bas");}while(r); S_33249:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_GL_SCAN_HEADER_STRING_VALUE->len== 0 )))||new_error){ if(qbevent){evnt(25219,94,"opengl_methods.bas");if(r)goto S_33249;} do{ goto LABEL_DEFINE_NOT_OK; if(!qbevent)break;evnt(25219,94,"opengl_methods.bas");}while(r); } S_33252:; 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(25219,96,"opengl_methods.bas");if(r)goto S_33252;} 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(25219,97,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; if(!qbevent)break;evnt(25219,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(25219,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(25219,99,"opengl_methods.bas");}while(r); S_33257:; }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(25219,100,"opengl_methods.bas");if(r)goto S_33257;} 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(25219,101,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; if(!qbevent)break;evnt(25219,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(25219,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(25219,103,"opengl_methods.bas");}while(r); }else{ S_33263:; fornext_value3671= 1 ; fornext_finalvalue3671=*_SUB_GL_SCAN_HEADER_LONG_D; fornext_step3671= 1 ; if (fornext_step3671<0) fornext_step_negative3671=1; else fornext_step_negative3671=0; if (new_error) goto fornext_error3671; goto fornext_entrylabel3671; while(1){ fornext_value3671=fornext_step3671+(*_SUB_GL_SCAN_HEADER_LONG_I); fornext_entrylabel3671: *_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3671; if (fornext_step_negative3671){ if (fornext_value3671fornext_finalvalue3671) break; } fornext_error3671:; if(qbevent){evnt(25219,106,"opengl_methods.bas");if(r)goto S_33263;} S_33264:; 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(25219,107,"opengl_methods.bas");if(r)goto S_33264;} do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; if(!qbevent)break;evnt(25219,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(25219,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(25219,108,"opengl_methods.bas");}while(r); do{ goto fornext_exit_3670; if(!qbevent)break;evnt(25219,110,"opengl_methods.bas");}while(r); } fornext_continue_3670:; } fornext_exit_3670:; } } do{ goto LABEL_GOT_DEFINE; if(!qbevent)break;evnt(25219,114,"opengl_methods.bas");}while(r); LABEL_DEFINE_NOT_OK:; if(qbevent){evnt(25219,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(25219,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(25219,118,"opengl_methods.bas");}while(r); } fornext_continue_3661:; } fornext_exit_3661:; LABEL_GOT_DEFINE:; if(qbevent){evnt(25219,121,"opengl_methods.bas");r=0;} } S_33279:; 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(25219,125,"opengl_methods.bas");if(r)goto S_33279;} 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(25219,126,"opengl_methods.bas");}while(r); S_33281:; 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(25219,126,"opengl_methods.bas");if(r)goto S_33281;} do{ goto LABEL_DISCARD; if(!qbevent)break;evnt(25219,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(25219,127,"opengl_methods.bas");}while(r); S_33285:; 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(25219,128,"opengl_methods.bas");if(r)goto S_33285;} 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(25219,128,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 0 ; if(!qbevent)break;evnt(25219,130,"opengl_methods.bas");}while(r); S_33289:; 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(25219,130,"opengl_methods.bas");if(r)goto S_33289;} do{ *_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 1 ; if(!qbevent)break;evnt(25219,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(25219,132,"opengl_methods.bas");}while(r); S_33293:; 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(25219,133,"opengl_methods.bas");if(r)goto S_33293;} 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(25219,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(25219,133,"opengl_methods.bas");}while(r); } S_33297:; 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(25219,134,"opengl_methods.bas");if(r)goto S_33297;} do{ goto LABEL_DISCARD; if(!qbevent)break;evnt(25219,134,"opengl_methods.bas");}while(r); } do{ *__LONG_GL_COMMANDS_LAST=*__LONG_GL_COMMANDS_LAST+ 1 ; if(!qbevent)break;evnt(25219,136,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_C=*__LONG_GL_COMMANDS_LAST; if(!qbevent)break;evnt(25219,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(25219,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(25219,140,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 0 ; if(!qbevent)break;evnt(25219,141,"opengl_methods.bas");}while(r); S_33305:; if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ if(qbevent){evnt(25219,143,"opengl_methods.bas");if(r)goto S_33305;} 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(25219,144,"opengl_methods.bas");}while(r); S_33307:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,145,"opengl_methods.bas");if(r)goto S_33307;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3672; sub_file_print(tmp_fileno,qbs_new_txt_len("FUNCTION ",9), 0 , 0 , 0 ); if (new_error) goto skip3672; skip3672: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,147,"opengl_methods.bas");}while(r); S_33312:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,148,"opengl_methods.bas");if(r)goto S_33312;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3673; sub_file_print(tmp_fileno,qbs_new_txt_len("SUB ",4), 0 , 0 , 0 ); if (new_error) goto skip3673; skip3673: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,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(25219,153,"opengl_methods.bas");}while(r); S_33318:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,153,"opengl_methods.bas");if(r)goto S_33318;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3674; sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME, 0 , 0 , 0 ); if (new_error) goto skip3674; skip3674: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,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(25219,156,"opengl_methods.bas");}while(r); S_33323:; if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ if(qbevent){evnt(25219,157,"opengl_methods.bas");if(r)goto S_33323;} do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; if(!qbevent)break;evnt(25219,158,"opengl_methods.bas");}while(r); S_33325:; 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(25219,158,"opengl_methods.bas");if(r)goto S_33325;} do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; if(!qbevent)break;evnt(25219,158,"opengl_methods.bas");}while(r); } S_33328:; if ((*_SUB_GL_SCAN_HEADER_LONG_POINTER)||new_error){ if(qbevent){evnt(25219,159,"opengl_methods.bas");if(r)goto S_33328;} 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(25219,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(25219,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(25219,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(25219,162,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; if(!qbevent)break;evnt(25219,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(25219,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(25219,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(25219,167,"opengl_methods.bas");}while(r); } S_33339:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,169,"opengl_methods.bas");if(r)goto S_33339;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3675; sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_S, 0 , 0 , 0 ); if (new_error) goto skip3675; skip3675: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,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(25219,172,"opengl_methods.bas");}while(r); } S_33346:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,175,"opengl_methods.bas");if(r)goto S_33346;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3676; sub_file_print(tmp_fileno,qbs_new_txt_len("(",1), 0 , 0 , 0 ); if (new_error) goto skip3676; skip3676: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,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(25219,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(25219,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(25219,182,"opengl_methods.bas");}while(r); S_33353:; do{ if(qbevent){evnt(25219,184,"opengl_methods.bas");if(r)goto S_33353;} 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(25219,186,"opengl_methods.bas");}while(r); S_33355:; 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(25219,187,"opengl_methods.bas");if(r)goto S_33355;} 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(25219,187,"opengl_methods.bas");}while(r); } S_33358:; 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(25219,188,"opengl_methods.bas");if(r)goto S_33358;} 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(25219,188,"opengl_methods.bas");}while(r); } S_33361:; 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(25219,189,"opengl_methods.bas");if(r)goto S_33361;} do{ goto LABEL_NO_ARGUMENTS; if(!qbevent)break;evnt(25219,189,"opengl_methods.bas");}while(r); } S_33364:; 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(25219,190,"opengl_methods.bas");if(r)goto S_33364;} 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(25219,191,"opengl_methods.bas");}while(r); S_33366:; 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(25219,192,"opengl_methods.bas");if(r)goto S_33366;} 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(25219,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(25219,192,"opengl_methods.bas");}while(r); } S_33370:; 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(25219,193,"opengl_methods.bas");if(r)goto S_33370;} 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(25219,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(25219,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(25219,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(25219,199,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; if(!qbevent)break;evnt(25219,201,"opengl_methods.bas");}while(r); S_33379:; 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(25219,203,"opengl_methods.bas");if(r)goto S_33379;} 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(25219,204,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; if(!qbevent)break;evnt(25219,205,"opengl_methods.bas");}while(r); } S_33383:; 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(25219,207,"opengl_methods.bas");if(r)goto S_33383;} 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(25219,208,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 2 ; if(!qbevent)break;evnt(25219,209,"opengl_methods.bas");}while(r); } S_33387:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ if(qbevent){evnt(25219,212,"opengl_methods.bas");if(r)goto S_33387;} 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(25219,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(25219,215,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; if(!qbevent)break;evnt(25219,219,"opengl_methods.bas");}while(r); S_33393:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,221,"opengl_methods.bas");if(r)goto S_33393;} S_33394:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ if(qbevent){evnt(25219,222,"opengl_methods.bas");if(r)goto S_33394;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3682; sub_file_print(tmp_fileno,qbs_new_txt_len("BYVAL ",6), 0 , 0 , 0 ); if (new_error) goto skip3682; skip3682: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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 skip3683; 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 skip3683; skip3683: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,223,"opengl_methods.bas");}while(r); S_33398:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(25219,224,"opengl_methods.bas");if(r)goto S_33398;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3684; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); if (new_error) goto skip3684; skip3684: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,224,"opengl_methods.bas");}while(r); } } S_33402:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ if(qbevent){evnt(25219,227,"opengl_methods.bas");if(r)goto S_33402;} 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(25219,228,"opengl_methods.bas");}while(r); } S_33405:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 1 ))||new_error){ if(qbevent){evnt(25219,230,"opengl_methods.bas");if(r)goto S_33405;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,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(25219,232,"opengl_methods.bas");}while(r); } S_33409:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ if(qbevent){evnt(25219,234,"opengl_methods.bas");if(r)goto S_33409;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25219,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(25219,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(25219,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(25219,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(25219,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(25219,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(25219,253,"opengl_methods.bas");}while(r); S_33418:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ if(qbevent){evnt(25219,257,"opengl_methods.bas");if(r)goto S_33418;} 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(25219,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(25219,257,"opengl_methods.bas");}while(r); } S_33422:; dl_continue_3677:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))&&(!new_error)); dl_exit_3677:; if(qbevent){evnt(25219,259,"opengl_methods.bas");if(r)goto S_33422;} LABEL_NO_ARGUMENTS:; if(qbevent){evnt(25219,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(25219,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(25219,264,"opengl_methods.bas");}while(r); S_33425:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,265,"opengl_methods.bas");if(r)goto S_33425;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3685; sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0 , 0 , 1 ); if (new_error) goto skip3685; skip3685: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,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(25219,266,"opengl_methods.bas");}while(r); S_33429:; if ((*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION)||new_error){ if(qbevent){evnt(25219,268,"opengl_methods.bas");if(r)goto S_33429;} 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(25219,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(25219,270,"opengl_methods.bas");}while(r); } S_33433:; 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(25219,274,"opengl_methods.bas");if(r)goto S_33433;} 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(25219,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(25219,276,"opengl_methods.bas");}while(r); } } } LABEL_DISCARD:; if(qbevent){evnt(25219,290,"opengl_methods.bas");r=0;} dl_continue_3658:; } dl_exit_3658:; do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_H,1); if(!qbevent)break;evnt(25219,292,"opengl_methods.bas");}while(r); S_33441:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,294,"opengl_methods.bas");if(r)goto S_33441;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3686; sub_file_print(tmp_fileno,qbs_new_txt_len("END DECLARE",11), 0 , 0 , 1 ); if (new_error) goto skip3686; skip3686: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,294,"opengl_methods.bas");}while(r); } do{ *__LONG_GL_DEFINES_LAST=*_SUB_GL_SCAN_HEADER_LONG_D; if(!qbevent)break;evnt(25219,296,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_GL_DEFINES[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_GL_DEFINES)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_GL_DEFINES[2]&1){ preserved_elements=__ARRAY_STRING_GL_DEFINES[5]; } else preserved_elements=0; __ARRAY_STRING_GL_DEFINES[4]= 0 ; __ARRAY_STRING_GL_DEFINES[5]=(*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4]+1; __ARRAY_STRING_GL_DEFINES[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_GL_DEFINES[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_GL_COMMANDS[2]&1){ preserved_elements=__ARRAY_UDT_GL_COMMANDS[5]; } else preserved_elements=0; __ARRAY_UDT_GL_COMMANDS[4]= 0 ; __ARRAY_UDT_GL_COMMANDS[5]=(*__LONG_GL_COMMANDS_LAST)-__ARRAY_UDT_GL_COMMANDS[4]+1; __ARRAY_UDT_GL_COMMANDS[6]=1; if (__ARRAY_UDT_GL_COMMANDS[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_GL_COMMANDS[0]),preserved_elements*1728/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_GL_COMMANDS[0])); tmp_long=__ARRAY_UDT_GL_COMMANDS[5]; __ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1728/8+1); memcpy((void*)(__ARRAY_UDT_GL_COMMANDS[0]),redim_preserve_cmem_buffer,preserved_elements*1728/8+1); if (preserved_elementsfornext_finalvalue3688) break; } fornext_error3688:; if(qbevent){evnt(25219,304,"opengl_methods.bas");if(r)goto S_33448;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; if (new_error) goto skip3689; 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 skip3689; 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 skip3689; skip3689: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,305,"opengl_methods.bas");}while(r); fornext_continue_3687:; } fornext_exit_3687:; } S_33452:; if ((*__LONG_GL_KIT)||new_error){ if(qbevent){evnt(25219,320,"opengl_methods.bas");if(r)goto S_33452;} do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_HK,1); if(!qbevent)break;evnt(25219,320,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25219,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(25219,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 skip3690; sub_file_print(tmp_fileno,__STRING_GL_HELPER_CODE, 0 , 0 , 1 ); if (new_error) goto skip3690; skip3690: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25219,325,"opengl_methods.bas");}while(r); do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_FH,1); if(!qbevent)break;evnt(25219,326,"opengl_methods.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; } 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 "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_33459:; fornext_value3692= 1 ; fornext_finalvalue3692=*__LONG_GL_DEFINES_LAST; fornext_step3692= 1 ; if (fornext_step3692<0) fornext_step_negative3692=1; else fornext_step_negative3692=0; if (new_error) goto fornext_error3692; goto fornext_entrylabel3692; while(1){ fornext_value3692=fornext_step3692+(*_SUB_GL_INCLUDE_CONTENT_LONG_D); fornext_entrylabel3692: *_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value3692; if (fornext_step_negative3692){ if (fornext_value3692fornext_finalvalue3692) break; } fornext_error3692:; if(qbevent){evnt(25219,334,"opengl_methods.bas");if(r)goto S_33459;} do{ *__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; if(!qbevent)break;evnt(25219,338,"opengl_methods.bas");}while(r); S_33461:; if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ if(qbevent){evnt(25219,339,"opengl_methods.bas");if(r)goto S_33461;} do{ *__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; if(!qbevent)break;evnt(25219,340,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTNAME[2]&1){ preserved_elements=__ARRAY_STRING_CONSTNAME[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTNAME[4]= 0 ; __ARRAY_STRING_CONSTNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAME[4]+1; __ARRAY_STRING_CONSTNAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTNAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTCNAME[2]&1){ preserved_elements=__ARRAY_STRING_CONSTCNAME[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTCNAME[4]= 0 ; __ARRAY_STRING_CONSTCNAME[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTCNAME[4]+1; __ARRAY_STRING_CONSTCNAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTCNAME[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){ preserved_elements=__ARRAY_STRING_CONSTNAMESYMBOL[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTNAMESYMBOL[4]= 0 ; __ARRAY_STRING_CONSTNAMESYMBOL[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTNAMESYMBOL[4]+1; __ARRAY_STRING_CONSTNAMESYMBOL[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTNAMESYMBOL[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTTYPE[2]&1){ preserved_elements=__ARRAY_LONG_CONSTTYPE[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTTYPE[4]= 0 ; __ARRAY_LONG_CONSTTYPE[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTTYPE[4]+1; __ARRAY_LONG_CONSTTYPE[6]=1; if (__ARRAY_LONG_CONSTTYPE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTTYPE[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTTYPE[0])); tmp_long=__ARRAY_LONG_CONSTTYPE[5]; __ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTTYPE[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){ preserved_elements=__ARRAY_INTEGER64_CONSTINTEGER[5]; } else preserved_elements=0; __ARRAY_INTEGER64_CONSTINTEGER[4]= 0 ; __ARRAY_INTEGER64_CONSTINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_INTEGER64_CONSTINTEGER[4]+1; __ARRAY_INTEGER64_CONSTINTEGER[6]=1; if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),preserved_elements*8); cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_CONSTINTEGER[0])); tmp_long=__ARRAY_INTEGER64_CONSTINTEGER[5]; __ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8); memcpy((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){ preserved_elements=__ARRAY_UINTEGER64_CONSTUINTEGER[5]; } else preserved_elements=0; __ARRAY_UINTEGER64_CONSTUINTEGER[4]= 0 ; __ARRAY_UINTEGER64_CONSTUINTEGER[5]=(*__LONG_CONSTMAX)-__ARRAY_UINTEGER64_CONSTUINTEGER[4]+1; __ARRAY_UINTEGER64_CONSTUINTEGER[6]=1; if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),preserved_elements*8); cmem_dynamic_free((uint8*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0])); tmp_long=__ARRAY_UINTEGER64_CONSTUINTEGER[5]; __ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*8); memcpy((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),redim_preserve_cmem_buffer,preserved_elements*8); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){ preserved_elements=__ARRAY_FLOAT_CONSTFLOAT[5]; } else preserved_elements=0; __ARRAY_FLOAT_CONSTFLOAT[4]= 0 ; __ARRAY_FLOAT_CONSTFLOAT[5]=(*__LONG_CONSTMAX)-__ARRAY_FLOAT_CONSTFLOAT[4]+1; __ARRAY_FLOAT_CONSTFLOAT[6]=1; if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),preserved_elements*32); cmem_dynamic_free((uint8*)(__ARRAY_FLOAT_CONSTFLOAT[0])); tmp_long=__ARRAY_FLOAT_CONSTFLOAT[5]; __ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*32); memcpy((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),redim_preserve_cmem_buffer,preserved_elements*32); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_CONSTSTRING[2]&1){ preserved_elements=__ARRAY_STRING_CONSTSTRING[5]; } else preserved_elements=0; __ARRAY_STRING_CONSTSTRING[4]= 0 ; __ARRAY_STRING_CONSTSTRING[5]=(*__LONG_CONSTMAX)-__ARRAY_STRING_CONSTSTRING[4]+1; __ARRAY_STRING_CONSTSTRING[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_CONSTSTRING[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){ preserved_elements=__ARRAY_LONG_CONSTSUBFUNC[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTSUBFUNC[4]= 0 ; __ARRAY_LONG_CONSTSUBFUNC[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTSUBFUNC[4]+1; __ARRAY_LONG_CONSTSUBFUNC[6]=1; if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTSUBFUNC[0])); tmp_long=__ARRAY_LONG_CONSTSUBFUNC[5]; __ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_CONSTDEFINED[2]&1){ preserved_elements=__ARRAY_LONG_CONSTDEFINED[5]; } else preserved_elements=0; __ARRAY_LONG_CONSTDEFINED[4]= 0 ; __ARRAY_LONG_CONSTDEFINED[5]=(*__LONG_CONSTMAX)-__ARRAY_LONG_CONSTDEFINED[4]+1; __ARRAY_LONG_CONSTDEFINED[6]=1; if (__ARRAY_LONG_CONSTDEFINED[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_CONSTDEFINED[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONSTDEFINED[0])); tmp_long=__ARRAY_LONG_CONSTDEFINED[5]; __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_CONSTDEFINED[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elementsfornext_finalvalue3695) break; } fornext_error3695:; if(qbevent){evnt(25219,366,"opengl_methods.bas");if(r)goto S_33484;} do{ if(!qbevent)break;evnt(25219,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(25219,376,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 1 ; if(!qbevent)break;evnt(25219,378,"opengl_methods.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(25219,379,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; if(!qbevent)break;evnt(25219,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(25219,381,"opengl_methods.bas");}while(r); S_33491:; if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ if(qbevent){evnt(25219,382,"opengl_methods.bas");if(r)goto S_33491;} 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(25219,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(25219,383,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))=*_SUB_GL_INCLUDE_CONTENT_LONG_S; if(!qbevent)break;evnt(25219,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(25219,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(25219,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(25219,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(25219,388,"opengl_methods.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(25219,389,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; if(!qbevent)break;evnt(25219,390,"opengl_methods.bas");}while(r); fornext_continue_3694:; } fornext_exit_3694:; do{ *__LONG_REGINTERNALSUBFUNC= 1 ; if(!qbevent)break;evnt(25219,396,"opengl_methods.bas");}while(r); do{ SUB_CLEARID(); if(!qbevent)break;evnt(25219,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(25219,398,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; if(!qbevent)break;evnt(25219,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(25219,400,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; if(!qbevent)break;evnt(25219,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(25219,402,"opengl_methods.bas");}while(r); do{ SUB_REGID(); if(!qbevent)break;evnt(25219,403,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; if(!qbevent)break;evnt(25219,404,"opengl_methods.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; } 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 "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{ *_FUNC_IDE_LONG_IGNORE=*_FUNC_IDE_LONG_IGNORE; if(!qbevent)break;evnt(25224,4,"ide_methods.bas");}while(r); S_33513:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMMAND,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5,"ide_methods.bas");if(r)goto S_33513;} do{ *_FUNC_IDE_LONG_CMD=qbs_asc(__STRING_IDECOMMAND); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5,"ide_methods.bas");}while(r); } S_33516:; if ((-(*_FUNC_IDE_LONG_CMD== 3 ))||new_error){ if(qbevent){evnt(25224,6,"ide_methods.bas");if(r)goto S_33516;} S_33517:; if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,7,"ide_methods.bas");if(r)goto S_33517;} S_33518:; if (((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDESY))|(-(*__LONG_IDECOMPILEDLINE>(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ if(qbevent){evnt(25224,8,"ide_methods.bas");if(r)goto S_33518;} S_33519:; if ((func__exit()& 1 )||new_error){ if(qbevent){evnt(25224,9,"ide_methods.bas");if(r)goto S_33519;} do{ *__LONG_IDEEXIT= 1 ; if(!qbevent)break;evnt(25224,9,"ide_methods.bas");}while(r); } S_33522:; if ((-(*__LONG_IDEEXIT== 0 ))||new_error){ if(qbevent){evnt(25224,10,"ide_methods.bas");if(r)goto S_33522;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,11,"ide_methods.bas");}while(r); S_33524:; if (((-(*__LONG_ICHANGED== 0 ))&(-(*__LONG_MB== 0 )))||new_error){ if(qbevent){evnt(25224,12,"ide_methods.bas");if(r)goto S_33524;} S_33525:; if (((-(*__LONG_IDEAUTOLAYOUT!= 0 ))|(-(*__LONG_IDEAUTOINDENT!= 0 )))||new_error){ if(qbevent){evnt(25224,16,"ide_methods.bas");if(r)goto S_33525;} S_33526:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(25224,17,"ide_methods.bas");if(r)goto S_33526;} do{ *_FUNC_IDE_LONG_L=__STRING_LAYOUT->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,20,"ide_methods.bas");}while(r); S_33528:; fornext_value3699= 1 ; fornext_finalvalue3699=*_FUNC_IDE_LONG_L; fornext_step3699= 1 ; if (fornext_step3699<0) fornext_step_negative3699=1; else fornext_step_negative3699=0; if (new_error) goto fornext_error3699; goto fornext_entrylabel3699; while(1){ fornext_value3699=fornext_step3699+(*_FUNC_IDE_LONG_I); fornext_entrylabel3699: *_FUNC_IDE_LONG_I=fornext_value3699; if (fornext_step_negative3699){ if (fornext_value3699fornext_finalvalue3699) break; } fornext_error3699:; if(qbevent){evnt(25224,21,"ide_methods.bas");if(r)goto S_33528;} S_33529:; 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(25224,22,"ide_methods.bas");if(r)goto S_33529;} S_33530:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)== 32 )))||new_error){ if(qbevent){evnt(25224,23,"ide_methods.bas");if(r)goto S_33530;} do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,24,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I; if(!qbevent)break;evnt(25224,24,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; if(!qbevent)break;evnt(25224,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(25224,27,"ide_methods.bas");}while(r); } do{ goto fornext_exit_3698; if(!qbevent)break;evnt(25224,29,"ide_methods.bas");}while(r); } fornext_continue_3698:; } fornext_exit_3698:; S_33540:; if ((*__LONG_IDEAUTOLAYOUT)||new_error){ if(qbevent){evnt(25224,33,"ide_methods.bas");if(r)goto S_33540;} do{ qbs_set(_FUNC_IDE_STRING_LAYOUT2,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,34,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_I2= 1 ; if(!qbevent)break;evnt(25224,34,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_IGNORESP= 0 ; if(!qbevent)break;evnt(25224,35,"ide_methods.bas");}while(r); S_33544:; fornext_value3702= 1 ; fornext_finalvalue3702=__STRING_LAYOUT->len; fornext_step3702= 1 ; if (fornext_step3702<0) fornext_step_negative3702=1; else fornext_step_negative3702=0; if (new_error) goto fornext_error3702; goto fornext_entrylabel3702; while(1){ fornext_value3702=fornext_step3702+(*_FUNC_IDE_LONG_I); fornext_entrylabel3702: *_FUNC_IDE_LONG_I=fornext_value3702; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3702){ if (fornext_value3702fornext_finalvalue3702) break; } fornext_error3702:; if(qbevent){evnt(25224,36,"ide_methods.bas");if(r)goto S_33544;} do{ *_FUNC_IDE_LONG_A=qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,37,"ide_methods.bas");}while(r); S_33546:; if ((-(*_FUNC_IDE_LONG_A== 34 ))||new_error){ if(qbevent){evnt(25224,38,"ide_methods.bas");if(r)goto S_33546;} do{ *_FUNC_IDE_LONG_IGNORESP=*_FUNC_IDE_LONG_IGNORESP+ 1 ; if(!qbevent)break;evnt(25224,39,"ide_methods.bas");}while(r); S_33548:; if ((-(*_FUNC_IDE_LONG_IGNORESP== 2 ))||new_error){ if(qbevent){evnt(25224,39,"ide_methods.bas");if(r)goto S_33548;} do{ *_FUNC_IDE_LONG_IGNORESP= 0 ; if(!qbevent)break;evnt(25224,39,"ide_methods.bas");}while(r); } } S_33552:; if ((-(*_FUNC_IDE_LONG_IGNORESP== 0 ))||new_error){ if(qbevent){evnt(25224,41,"ide_methods.bas");if(r)goto S_33552;} S_33553:; if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP_ASC))||new_error){ if(qbevent){evnt(25224,42,"ide_methods.bas");if(r)goto S_33553;} 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(25224,42,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; if(!qbevent)break;evnt(25224,42,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPCHAR; if(!qbevent)break;evnt(25224,42,"ide_methods.bas");}while(r); } S_33558:; if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP2_ASC))||new_error){ if(qbevent){evnt(25224,43,"ide_methods.bas");if(r)goto S_33558;} do{ goto LABEL_SKIPCHAR; if(!qbevent)break;evnt(25224,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(25224,45,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; if(!qbevent)break;evnt(25224,45,"ide_methods.bas");}while(r); LABEL_SKIPCHAR:; if(qbevent){evnt(25224,46,"ide_methods.bas");r=0;} fornext_continue_3701:; } fornext_exit_3701:; 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(25224,48,"ide_methods.bas");}while(r); } S_33567:; if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ if(qbevent){evnt(25224,51,"ide_methods.bas");if(r)goto S_33567;} do{ *_FUNC_IDE_LONG_INDENT= 0 ; if(!qbevent)break;evnt(25224,54,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,55,"ide_methods.bas");}while(r); S_33570:; fornext_value3706= 1 ; fornext_finalvalue3706=*_FUNC_IDE_LONG_L; fornext_step3706= 1 ; if (fornext_step3706<0) fornext_step_negative3706=1; else fornext_step_negative3706=0; if (new_error) goto fornext_error3706; goto fornext_entrylabel3706; while(1){ fornext_value3706=fornext_step3706+(*_FUNC_IDE_LONG_I); fornext_entrylabel3706: *_FUNC_IDE_LONG_I=fornext_value3706; if (fornext_step_negative3706){ if (fornext_value3706fornext_finalvalue3706) break; } fornext_error3706:; if(qbevent){evnt(25224,56,"ide_methods.bas");if(r)goto S_33570;} S_33571:; 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(25224,57,"ide_methods.bas");if(r)goto S_33571;} do{ *_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; if(!qbevent)break;evnt(25224,58,"ide_methods.bas");}while(r); do{ goto fornext_exit_3705; if(!qbevent)break;evnt(25224,59,"ide_methods.bas");}while(r); } fornext_continue_3705:; } fornext_exit_3705:; do{ qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,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(25224,64,"ide_methods.bas");}while(r); } S_33580:; if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ if(qbevent){evnt(25224,67,"ide_methods.bas");if(r)goto S_33580;} do{ *_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,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(25224,70,"ide_methods.bas");}while(r); S_33583:; fornext_value3709= 1 ; fornext_finalvalue3709=*_FUNC_IDE_LONG_L; fornext_step3709= 1 ; if (fornext_step3709<0) fornext_step_negative3709=1; else fornext_step_negative3709=0; if (new_error) goto fornext_error3709; goto fornext_entrylabel3709; while(1){ fornext_value3709=fornext_step3709+(*_FUNC_IDE_LONG_I); fornext_entrylabel3709: *_FUNC_IDE_LONG_I=fornext_value3709; if (fornext_step_negative3709){ if (fornext_value3709fornext_finalvalue3709) break; } fornext_error3709:; if(qbevent){evnt(25224,71,"ide_methods.bas");if(r)goto S_33583;} S_33584:; 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(25224,72,"ide_methods.bas");if(r)goto S_33584;} 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(25224,73,"ide_methods.bas");}while(r); do{ goto fornext_exit_3708; if(!qbevent)break;evnt(25224,74,"ide_methods.bas");}while(r); } fornext_continue_3708:; } fornext_exit_3708:; } S_33590:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(25224,79,"ide_methods.bas");if(r)goto S_33590;} do{ qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE_STRING_INDENT,__STRING_LAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,80,"ide_methods.bas");}while(r); S_33592:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ if(qbevent){evnt(25224,81,"ide_methods.bas");if(r)goto S_33592;} do{ SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,82,"ide_methods.bas");}while(r); } } } } do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; if(!qbevent)break;evnt(25224,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(25224,92,"ide_methods.bas");}while(r); do{ *_FUNC_IDE_LONG_IDE= 4 ; if(!qbevent)break;evnt(25224,93,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,94,"ide_methods.bas");}while(r); S_33602:; if ((-(*__LONG_IDEAUTORUN!= 0 ))||new_error){ if(qbevent){evnt(25224,97,"ide_methods.bas");if(r)goto S_33602;} S_33603:; if ((*__LONG_PREPASS)||new_error){ if(qbevent){evnt(25224,98,"ide_methods.bas");if(r)goto S_33603;} do{ qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3711=qbr(floor((*__LONG_IDECOMPILEDLINE* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,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(25224,100,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3713=qbr(floor(((*__LONG_IDEN+*__LONG_IDECOMPILEDLINE)* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,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(25224,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(25224,105,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,107,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,109,"ide_methods.bas");}while(r); } S_33615:; if ((*__LONG_ICHANGED)||new_error){ if(qbevent){evnt(25224,111,"ide_methods.bas");if(r)goto S_33615;} do{ *__LONG_ICHECKLATER= 1 ; if(!qbevent)break;evnt(25224,111,"ide_methods.bas");}while(r); } } } }else{ S_33621:; 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(25224,115,"ide_methods.bas");if(r)goto S_33621;} do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,115,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,116,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE_LONG_IDE=FUNC_IDE2(&(pass3715= 0 )); if(!qbevent)break;evnt(25224,120,"ide_methods.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_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 "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(25224,124,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,125,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,126,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,127,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,128,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,129,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,130,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,131,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,132,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,133,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,134,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,135,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IGNORE=*_FUNC_IDE2_LONG_IGNORE; if(!qbevent)break;evnt(25224,137,"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(25224,140,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_C,__STRING_IDECOMMAND); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,142,"ide_methods.bas");}while(r); S_33643:; if ((*__LONG_IDEERROR)||new_error){ if(qbevent){evnt(25224,145,"ide_methods.bas");if(r)goto S_33643;} do{ *_FUNC_IDE2_LONG_MUSTDISPLAY= 1 ; if(!qbevent)break;evnt(25224,146,"ide_methods.bas");}while(r); S_33645:; if ((-(*__LONG_IDEERROR== 1 ))||new_error){ if(qbevent){evnt(25224,147,"ide_methods.bas");if(r)goto S_33645;} do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,func__errormessage(NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,147,"ide_methods.bas");}while(r); } S_33648:; if ((-(*__LONG_IDEERROR== 2 ))||new_error){ if(qbevent){evnt(25224,148,"ide_methods.bas");if(r)goto S_33648;} 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(25224,148,"ide_methods.bas");}while(r); } S_33651:; if ((-(*__LONG_IDEERROR== 3 ))||new_error){ if(qbevent){evnt(25224,149,"ide_methods.bas");if(r)goto S_33651;} 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(25224,149,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,149,"ide_methods.bas");}while(r); } S_33655:; if ((-(*__LONG_IDEERROR== 4 ))||new_error){ if(qbevent){evnt(25224,150,"ide_methods.bas");if(r)goto S_33655;} 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(25224,150,"ide_methods.bas");}while(r); } S_33658:; if ((-(*__LONG_IDEERROR== 5 ))||new_error){ if(qbevent){evnt(25224,151,"ide_methods.bas");if(r)goto S_33658;} 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(25224,151,"ide_methods.bas");}while(r); } S_33661:; if ((-(*__LONG_IDEERROR== 6 ))||new_error){ if(qbevent){evnt(25224,152,"ide_methods.bas");if(r)goto S_33661;} 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(25224,152,"ide_methods.bas");}while(r); } S_33664:; if ((-(*__LONG_IDEERROR== -1 ))||new_error){ if(qbevent){evnt(25224,153,"ide_methods.bas");if(r)goto S_33664;} do{ goto LABEL_ERRORREPORTDONE; if(!qbevent)break;evnt(25224,153,"ide_methods.bas");}while(r); } do{ *__INTEGER_QBERRORCODE=get_error_err(); if(!qbevent)break;evnt(25224,155,"ide_methods.bas");}while(r); S_33668:; if ((*__INTEGER_QBERRORCODE)||new_error){ if(qbevent){evnt(25224,156,"ide_methods.bas");if(r)goto S_33668;} do{ qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_new_txt_len("Error ",6),FUNC_STR2(&(pass3716=*__INTEGER_QBERRORCODE)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,157,"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(25224,159,"ide_methods.bas");}while(r); } S_33673:; if (((-(*__LONG_IDEERROR> 1 )))||new_error){ if(qbevent){evnt(25224,162,"ide_methods.bas");if(r)goto S_33673;} do{ qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(" (",2)),FUNC_STR2(&(pass3717=func__errorline()))),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass3718=func__inclerrorline()))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,164,"ide_methods.bas");}while(r); S_33675:; if ((-(*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT== -1 ))||new_error){ if(qbevent){evnt(25224,165,"ide_methods.bas");if(r)goto S_33675;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,167,"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(25224,168,"ide_methods.bas");}while(r); S_33678:; if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(25224,169,"ide_methods.bas");if(r)goto S_33678;} do{ return_point[next_return_point++]=7; if (next_return_point>=return_points) more_return_points(); goto LABEL_CLEANUPRECENTLIST; RETURN_7:; if(!qbevent)break;evnt(25224,170,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,172,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,172,"ide_methods.bas");}while(r); do{ goto LABEL_ERRORREPORTDONE; if(!qbevent)break;evnt(25224,173,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDE2_LONG_INCLERRORLINE=func__inclerrorline(); if(!qbevent)break;evnt(25224,177,"ide_methods.bas");}while(r); S_33687:; if ((*_FUNC_IDE2_LONG_INCLERRORLINE)||new_error){ if(qbevent){evnt(25224,178,"ide_methods.bas");if(r)goto S_33687;} 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(25224,180,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", on line: ",11)),FUNC_STR2(_FUNC_IDE2_LONG_INCLERRORLINE)),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,181,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(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(&(pass3719=func__errorline()))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,183,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,187,"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(25224,188,"ide_methods.bas");}while(r); LABEL_ERRORREPORTDONE:; if(qbevent){evnt(25224,189,"ide_methods.bas");r=0;} } do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,192,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; if(!qbevent)break;evnt(25224,193,"ide_methods.bas");}while(r); S_33699:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 12 ))))||new_error){ if(qbevent){evnt(25224,195,"ide_methods.bas");if(r)goto S_33699;} 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(25224,196,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,197,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,198,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3721= 1 )); if(!qbevent)break;evnt(25224,200,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; if(!qbevent)break;evnt(25224,201,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,201,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=8; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_8:; if(!qbevent)break;evnt(25224,201,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; if(!qbevent)break;evnt(25224,201,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,202,"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(25224,202,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,203,"ide_methods.bas");}while(r); S_33711:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,205,"ide_methods.bas");if(r)goto S_33711;} 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(25224,206,"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 .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(25224,208,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,211,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 9 ; if(!qbevent)break;evnt(25224,212,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,212,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,213,"ide_methods.bas");}while(r); } S_33721:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 100 ))))||new_error){ if(qbevent){evnt(25224,216,"ide_methods.bas");if(r)goto S_33721;} do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; if(!qbevent)break;evnt(25224,217,"ide_methods.bas");}while(r); S_33723:; if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,218,"ide_methods.bas");if(r)goto S_33723;} do{ qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,219,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,220,"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(25224,222,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,223,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,225,"ide_methods.bas");}while(r); } S_33732:; if ((-(*__LONG_IDELAUNCHED== 0 ))||new_error){ if(qbevent){evnt(25224,228,"ide_methods.bas");if(r)goto S_33732;} do{ *__LONG_IDELAUNCHED= 1 ; if(!qbevent)break;evnt(25224,229,"ide_methods.bas");}while(r); do{ qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); if(!qbevent)break;evnt(25224,231,"ide_methods.bas");}while(r); S_33735:; if ((*__BYTE_IDE_USEFONT8)||new_error){ if(qbevent){evnt(25224,232,"ide_methods.bas");if(r)goto S_33735;} do{ sub__font( 8 ,NULL,0); if(!qbevent)break;evnt(25224,232,"ide_methods.bas");}while(r); }else{ do{ sub__font( 16 ,NULL,0); if(!qbevent)break;evnt(25224,232,"ide_methods.bas");}while(r); } S_33740:; if ((*__LONG_IDECPINDEX)||new_error){ if(qbevent){evnt(25224,235,"ide_methods.bas");if(r)goto S_33740;} S_33741:; fornext_value3723= 128 ; fornext_finalvalue3723= 255 ; fornext_step3723= 1 ; if (fornext_step3723<0) fornext_step_negative3723=1; else fornext_step_negative3723=0; if (new_error) goto fornext_error3723; goto fornext_entrylabel3723; while(1){ fornext_value3723=fornext_step3723+(*_FUNC_IDE2_LONG_X); fornext_entrylabel3723: *_FUNC_IDE2_LONG_X=fornext_value3723; if (fornext_step_negative3723){ if (fornext_value3723fornext_finalvalue3723) break; } fornext_error3723:; if(qbevent){evnt(25224,236,"ide_methods.bas");if(r)goto S_33741;} 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 ,1)),qbs_new_txt_len("&",1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,237,"ide_methods.bas");}while(r); S_33743:; if ((-(*_FUNC_IDE2_LONG_U== 0 ))||new_error){ if(qbevent){evnt(25224,238,"ide_methods.bas");if(r)goto S_33743;} do{ *_FUNC_IDE2_LONG_U= 9744 ; if(!qbevent)break;evnt(25224,238,"ide_methods.bas");}while(r); } do{ sub__mapunicode(*_FUNC_IDE2_LONG_U,*_FUNC_IDE2_LONG_X); if(!qbevent)break;evnt(25224,239,"ide_methods.bas");}while(r); fornext_continue_3722:; } fornext_exit_3722:; } S_33749:; if ((*__LONG_IDECUSTOMFONT)||new_error){ if(qbevent){evnt(25224,243,"ide_methods.bas");if(r)goto S_33749;} do{ *__LONG_IDECUSTOMFONTHANDLE=func__loadfont(__STRING_IDECUSTOMFONTFILE,*__LONG_IDECUSTOMFONTHEIGHT,qbs_new_txt_len("MONOSPACE",9),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,244,"ide_methods.bas");}while(r); S_33751:; if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ if(qbevent){evnt(25224,245,"ide_methods.bas");if(r)goto S_33751;} do{ *__LONG_IDECUSTOMFONT= 0 ; if(!qbevent)break;evnt(25224,247,"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(25224,247,"ide_methods.bas");}while(r); do{ *__LONG_IDECUSTOMFONTHEIGHT= 21 ; if(!qbevent)break;evnt(25224,247,"ide_methods.bas");}while(r); }else{ do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); if(!qbevent)break;evnt(25224,249,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_M= 1 ; if(!qbevent)break;evnt(25224,253,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,253,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); if(!qbevent)break;evnt(25224,254,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,256,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,256,"ide_methods.bas");}while(r); do{ *__INTEGER_IDEEDITMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,257,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEEDITMENU(); if(!qbevent)break;evnt(25224,258,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,260,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,260,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,260,"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(25224,261,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,261,"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(25224,262,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,262,"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(25224,263,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,263,"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(25224,264,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,264,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUCOMPILERWARNINGS=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,266,"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(25224,267,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,267,"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(25224,268,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,270,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,270,"ide_methods.bas");}while(r); do{ *__INTEGER_SEARCHMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,270,"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(25224,271,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,271,"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(25224,272,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,272,"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(25224,273,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,273,"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(25224,274,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,274,"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(25224,275,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,275,"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(25224,276,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,276,"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(25224,277,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,277,"ide_methods.bas");}while(r); do{ *__INTEGER_SEARCHMENUENABLEQUICKNAV=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,279,"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("Enable #Quick Navigation (Back Arrow)",37)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,280,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,280,"ide_methods.bas");}while(r); S_33801:; if ((*__BYTE_ENABLEQUICKNAV)||new_error){ if(qbevent){evnt(25224,281,"ide_methods.bas");if(r)goto S_33801;} 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(25224,282,"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(25224,284,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,284,"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(25224,285,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,285,"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(25224,286,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,286,"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(25224,287,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,288,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Go To Line... Ctrl+G",22)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,289,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,289,"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(25224,291,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,293,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,293,"ide_methods.bas");}while(r); do{ *__INTEGER_RUNMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,293,"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(25224,294,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,294,"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(25224,295,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,295,"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(25224,296,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,296,"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(25224,297,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,297,"ide_methods.bas");}while(r); do{ *__INTEGER_RUNMENUSAVEEXEWITHSOURCE=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,299,"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(25224,300,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,300,"ide_methods.bas");}while(r); S_33831:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(25224,301,"ide_methods.bas");if(r)goto S_33831;} 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(25224,302,"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(25224,304,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,304,"ide_methods.bas");}while(r); S_33836:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,307,"ide_methods.bas");if(r)goto S_33836;} 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(25224,308,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,308,"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(25224,310,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,310,"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(25224,313,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,315,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,315,"ide_methods.bas");}while(r); do{ *__INTEGER_OPTIONSMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,315,"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(25224,316,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,316,"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(25224,317,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("IDE C#olors...",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,318,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,318,"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(25224,319,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,320,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,320,"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(25224,321,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Backup/Undo...",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,322,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,322,"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("#Advanced...",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,323,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,324,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,324,"ide_methods.bas");}while(r); do{ *__INTEGER_OPTIONSMENUDISABLESYNTAX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,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("Disable Syntax #Highlighter",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,327,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,327,"ide_methods.bas");}while(r); S_33868:; if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ if(qbevent){evnt(25224,328,"ide_methods.bas");if(r)goto S_33868;} 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(25224,329,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUSWAPMOUSE=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,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("#Swap Mouse Buttons",19)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,333,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,333,"ide_methods.bas");}while(r); S_33874:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ if(qbevent){evnt(25224,334,"ide_methods.bas");if(r)goto S_33874;} 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(25224,335,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUPASTECURSOR=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,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("Cursor After #Pasted Content",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,339,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,339,"ide_methods.bas");}while(r); S_33880:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,340,"ide_methods.bas");if(r)goto S_33880;} 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(25224,341,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,344,"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("Show Compilation #Errors Immediately",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,345,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,345,"ide_methods.bas");}while(r); S_33886:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ if(qbevent){evnt(25224,346,"ide_methods.bas");if(r)goto S_33886;} 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(25224,347,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUIGNOREWARNINGS=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,350,"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(25224,351,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,351,"ide_methods.bas");}while(r); S_33892:; if ((*__BYTE_IGNOREWARNINGS)||new_error){ if(qbevent){evnt(25224,352,"ide_methods.bas");if(r)goto S_33892;} 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(25224,352,"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(25224,354,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,356,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,356,"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(25224,357,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,357,"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(25224,358,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,358,"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(25224,359,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,359,"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(25224,360,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,360,"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(25224,361,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,361,"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(25224,362,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,365,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,365,"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(25224,366,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#View Shift+F1",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,367,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Contents Page",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,368,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,368,"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(25224,369,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Keywords by Usage",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,370,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,370,"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(25224,371,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Update Current Page",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,372,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,372,"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(25224,373,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("-",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,374,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,374,"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(25224,375,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,375,"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(25224,376,"ide_methods.bas");}while(r); do{ *__INTEGER_MENUS=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,378,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,381,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECONTEXTUALMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,382,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,385,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,385,"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(25224,386,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,386,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,387,"ide_methods.bas");}while(r); S_33940:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ if(qbevent){evnt(25224,388,"ide_methods.bas");if(r)goto S_33940;} 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(25224,388,"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(25224,388,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("#Background Color",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,390,"ide_methods.bas");}while(r); S_33947:; if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ if(qbevent){evnt(25224,390,"ide_methods.bas");if(r)goto S_33947;} 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(25224,390,"ide_methods.bas");}while(r); } do{ *__INTEGER_VIEWMENUSHOWBGID=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,391,"ide_methods.bas");}while(r); S_33951:; if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ if(qbevent){evnt(25224,392,"ide_methods.bas");if(r)goto S_33951;} 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(25224,392,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,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("Sho#w Separator",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,394,"ide_methods.bas");}while(r); S_33956:; if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ if(qbevent){evnt(25224,394,"ide_methods.bas");if(r)goto S_33956;} 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(25224,394,"ide_methods.bas");}while(r); } do{ *__INTEGER_VIEWMENUSHOWSEPARATORID=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,395,"ide_methods.bas");}while(r); S_33960:; if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ if(qbevent){evnt(25224,396,"ide_methods.bas");if(r)goto S_33960;} 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(25224,396,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,397,"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(25224,398,"ide_methods.bas");}while(r); S_33965:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,400,"ide_methods.bas");if(r)goto S_33965;} do{ qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,401,"ide_methods.bas");}while(r); } S_33968:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,403,"ide_methods.bas");if(r)goto S_33968;} do{ qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,404,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDEROOT,FUNC_IDEZGETROOT()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,407,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,func__startdir()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,408,"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(25224,411,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; if(!qbevent)break;evnt(25224,411,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; if(!qbevent)break;evnt(25224,411,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; if(!qbevent)break;evnt(25224,411,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; if(!qbevent)break;evnt(25224,411,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= -1 ; if(!qbevent)break;evnt(25224,412,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,413,"ide_methods.bas");}while(r); LABEL_REDRAWEVERYTHING:; if(qbevent){evnt(25224,415,"ide_methods.bas");r=0;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,416,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,417,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; if(!qbevent)break;evnt(25224,418,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,419,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,420,"ide_methods.bas");}while(r); LABEL_REDRAWEVERYTHING2:; if(qbevent){evnt(25224,422,"ide_methods.bas");r=0;} do{ return_point[next_return_point++]=9; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_9:; if(!qbevent)break;evnt(25224,423,"ide_methods.bas");}while(r); S_33986:; if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ if(qbevent){evnt(25224,425,"ide_methods.bas");if(r)goto S_33986;} do{ goto LABEL_SKIPLOAD; if(!qbevent)break;evnt(25224,425,"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(25224,429,"ide_methods.bas");}while(r); S_33990:; if ((-(func_lof( 150 )== 1 ))||new_error){ if(qbevent){evnt(25224,430,"ide_methods.bas");if(r)goto S_33990;} do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,431,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDERESTORE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,432,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,433,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,433,"ide_methods.bas");}while(r); S_33995:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,434,"ide_methods.bas");if(r)goto S_33995;} 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(25224,436,"ide_methods.bas");}while(r); S_33997:; if ((func_lof( 150 ))||new_error){ if(qbevent){evnt(25224,437,"ide_methods.bas");if(r)goto S_33997;} do{ *__LONG_IDEUNSAVED= 1 ; if(!qbevent)break;evnt(25224,438,"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(25224,439,"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(25224,439,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,439,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,439,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,439,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_P2); if(!qbevent)break;evnt(25224,441,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L,4,byte_element_3724),0); if(!qbevent)break;evnt(25224,442,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_3725),0); if(!qbevent)break;evnt(25224,443,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_3726),0); if(!qbevent)break;evnt(25224,443,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_3727),0); if(!qbevent)break;evnt(25224,444,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_3728),0); if(!qbevent)break;evnt(25224,444,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_3729),0); if(!qbevent)break;evnt(25224,445,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_3730),0); if(!qbevent)break;evnt(25224,445,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_3731),0); if(!qbevent)break;evnt(25224,445,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_3732),0); if(!qbevent)break;evnt(25224,446,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_3733),0); if(!qbevent)break;evnt(25224,447,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_3734),0); if(!qbevent)break;evnt(25224,448,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_3735),0); if(!qbevent)break;evnt(25224,450,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); }else{ free((void*)(__ARRAY_UDT_IDEBMK[0])); } } __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*__LONG_IDEBMKN+ 1 )-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDEBMK[5]*128/8+1); memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*128/8+1); }else{ __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(25224,450,"ide_methods.bas");}while(r); S_34018:; fornext_value3737= 1 ; fornext_finalvalue3737=*__LONG_IDEBMKN; fornext_step3737= 1 ; if (fornext_step3737<0) fornext_step_negative3737=1; else fornext_step_negative3737=0; if (new_error) goto fornext_error3737; goto fornext_entrylabel3737; while(1){ fornext_value3737=fornext_step3737+(*_FUNC_IDE2_LONG_BI); fornext_entrylabel3737: *_FUNC_IDE2_LONG_BI=fornext_value3737; if (fornext_step_negative3737){ if (fornext_value3737fornext_finalvalue3737) break; } fornext_error3737:; if(qbevent){evnt(25224,451,"ide_methods.bas");if(r)goto S_34018;} 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_3738),0); if(!qbevent)break;evnt(25224,451,"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_3739),0); if(!qbevent)break;evnt(25224,451,"ide_methods.bas");}while(r); fornext_continue_3736:; } fornext_exit_3736:; do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_3740),0); if(!qbevent)break;evnt(25224,452,"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(25224,452,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,452,"ide_methods.bas");}while(r); } do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,454,"ide_methods.bas");}while(r); } }else{ do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,457,"ide_methods.bas");}while(r); } S_34031:; if ((-(*__LONG_IDEUNSAVED!= 1 ))||new_error){ if(qbevent){evnt(25224,460,"ide_methods.bas");if(r)goto S_34031;} S_34032:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 1 ))))||new_error){ if(qbevent){evnt(25224,461,"ide_methods.bas");if(r)goto S_34032;} 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(25224,462,"ide_methods.bas");}while(r); S_34034:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ if(qbevent){evnt(25224,463,"ide_methods.bas");if(r)goto S_34034;} 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(25224,463,"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(25224,464,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 2 ; if(!qbevent)break;evnt(25224,467,"ide_methods.bas");}while(r); do{ sub_open(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,468,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,468,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,469,"ide_methods.bas");}while(r); S_34042:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDE2_STRING_F)> 0 )))||new_error){ if(qbevent){evnt(25224,470,"ide_methods.bas");if(r)goto S_34042;} do{ goto LABEL_SKIPLOAD; if(!qbevent)break;evnt(25224,470,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 3 ; if(!qbevent)break;evnt(25224,471,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,_FUNC_IDE2_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,472,"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(25224,473,"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(25224,474,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I2= 1 ; if(!qbevent)break;evnt(25224,475,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_N= 0 ; if(!qbevent)break;evnt(25224,476,"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(25224,477,"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(25224,478,"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(25224,478,"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(25224,478,"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(25224,478,"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(25224,479,"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(25224,479,"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(25224,479,"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(25224,479,"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(25224,479,"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(25224,479,"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(25224,479,"ide_methods.bas");}while(r); S_34063:; do{ if(qbevent){evnt(25224,480,"ide_methods.bas");if(r)goto S_34063;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,481,"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(25224,482,"ide_methods.bas");}while(r); S_34066:; if ((*_FUNC_IDE2_LONG_L)||new_error){ if(qbevent){evnt(25224,483,"ide_methods.bas");if(r)goto S_34066;} do{ *_FUNC_IDE2_LONG_ASCA=qbs_asc(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,483,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_ASCA= -1 ; if(!qbevent)break;evnt(25224,483,"ide_methods.bas");}while(r); } S_34071:; if ((-(*_FUNC_IDE2_LONG_ASCA!= 13 ))||new_error){ if(qbevent){evnt(25224,484,"ide_methods.bas");if(r)goto S_34071;} S_34072:; if ((-(*_FUNC_IDE2_LONG_ASCA!= -1 ))||new_error){ if(qbevent){evnt(25224,485,"ide_methods.bas");if(r)goto S_34072;} LABEL_IDEOPENFIXTABSX:; if(qbevent){evnt(25224,487,"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(25224,488,"ide_methods.bas");}while(r); S_34074:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,489,"ide_methods.bas");if(r)goto S_34074;} do{ *_FUNC_IDE2_LONG_X2=(*_FUNC_IDE2_LONG_X- 1 )% 4 ; if(!qbevent)break;evnt(25224,490,"ide_methods.bas");}while(r); S_34076:; if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ if(qbevent){evnt(25224,491,"ide_methods.bas");if(r)goto S_34076;} 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(25224,491,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 3 ; if(!qbevent)break;evnt(25224,491,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; if(!qbevent)break;evnt(25224,491,"ide_methods.bas");}while(r); } S_34081:; if ((-(*_FUNC_IDE2_LONG_X2== 1 ))||new_error){ if(qbevent){evnt(25224,492,"ide_methods.bas");if(r)goto S_34081;} 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(25224,492,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; if(!qbevent)break;evnt(25224,492,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; if(!qbevent)break;evnt(25224,492,"ide_methods.bas");}while(r); } S_34086:; if ((-(*_FUNC_IDE2_LONG_X2== 2 ))||new_error){ if(qbevent){evnt(25224,493,"ide_methods.bas");if(r)goto S_34086;} 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(25224,493,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; if(!qbevent)break;evnt(25224,493,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; if(!qbevent)break;evnt(25224,493,"ide_methods.bas");}while(r); } S_34091:; if ((-(*_FUNC_IDE2_LONG_X2== 3 ))||new_error){ if(qbevent){evnt(25224,494,"ide_methods.bas");if(r)goto S_34091;} 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(25224,494,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; if(!qbevent)break;evnt(25224,494,"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(25224,497,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I2=*_FUNC_IDE2_LONG_I2+*_FUNC_IDE2_LONG_L+ 8 ; if(!qbevent)break;evnt(25224,497,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_N=*_FUNC_IDE2_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,497,"ide_methods.bas");}while(r); } S_34101:; dl_continue_3743:; }while((!(-(*_FUNC_IDE2_LONG_ASCA== 13 )))&&(!new_error)); dl_exit_3743:; if(qbevent){evnt(25224,499,"ide_methods.bas");if(r)goto S_34101;} do{ qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,500,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*_FUNC_IDE2_LONG_N; if(!qbevent)break;evnt(25224,501,"ide_methods.bas");}while(r); S_34104:; if ((-(*_FUNC_IDE2_LONG_N== 0 ))||new_error){ if(qbevent){evnt(25224,501,"ide_methods.bas");if(r)goto S_34104;} do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,501,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; if(!qbevent)break;evnt(25224,501,"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(25224,501,"ide_methods.bas");}while(r); } S_34110:; if (((-(*__LONG_IDESTARTATLINE> 0 ))&(-(*__LONG_IDESTARTATLINE<=*__LONG_IDEN)))||new_error){ if(qbevent){evnt(25224,502,"ide_methods.bas");if(r)goto S_34110;} do{ *__LONG_IDECY=*__LONG_IDESTARTATLINE; if(!qbevent)break;evnt(25224,503,"ide_methods.bas");}while(r); S_34112:; if ((-((*__LONG_IDECY- 10 )>=( 1 )))||new_error){ if(qbevent){evnt(25224,504,"ide_methods.bas");if(r)goto S_34112;} do{ *__LONG_IDESY=*__LONG_IDECY- 10 ; if(!qbevent)break;evnt(25224,504,"ide_methods.bas");}while(r); } do{ *__LONG_IDEGOTOBOX_LASTLINENUM=*__LONG_IDESTARTATLINE; if(!qbevent)break;evnt(25224,505,"ide_methods.bas");}while(r); do{ *__LONG_IDESTARTATLINE= 0 ; if(!qbevent)break;evnt(25224,506,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBMKN= 0 ; if(!qbevent)break;evnt(25224,508,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,509,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,510,"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(25224,510,"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(25224,511,"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(25224,512,"ide_methods.bas");}while(r); } } LABEL_SKIPLOAD:; if(qbevent){evnt(25224,517,"ide_methods.bas");r=0;} } S_34127:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ if(qbevent){evnt(25224,531,"ide_methods.bas");if(r)goto S_34127;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; if(!qbevent)break;evnt(25224,532,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; if(!qbevent)break;evnt(25224,533,"ide_methods.bas");}while(r); S_34130:; if (((-(*__LONG_IDEAUTOLAYOUT== 0 ))&(-(*__LONG_IDEAUTOINDENT== 0 )))||new_error){ if(qbevent){evnt(25224,537,"ide_methods.bas");if(r)goto S_34130;} do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,539,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 0 ; if(!qbevent)break;evnt(25224,540,"ide_methods.bas");}while(r); }else{ S_34134:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ if(qbevent){evnt(25224,544,"ide_methods.bas");if(r)goto S_34134;} S_34135:; fornext_value3747= 1 ; fornext_finalvalue3747=__STRING_LAYOUT->len; fornext_step3747= 1 ; if (fornext_step3747<0) fornext_step_negative3747=1; else fornext_step_negative3747=0; if (new_error) goto fornext_error3747; goto fornext_entrylabel3747; while(1){ fornext_value3747=fornext_step3747+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3747: *_FUNC_IDE2_LONG_I=fornext_value3747; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3747){ if (fornext_value3747fornext_finalvalue3747) break; } fornext_error3747:; if(qbevent){evnt(25224,547,"ide_methods.bas");if(r)goto S_34135;} S_34136:; 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(25224,548,"ide_methods.bas");if(r)goto S_34136;} do{ *_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,549,"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(25224,550,"ide_methods.bas");}while(r); do{ goto fornext_exit_3746; if(!qbevent)break;evnt(25224,551,"ide_methods.bas");}while(r); } fornext_continue_3746:; } fornext_exit_3746:; S_34142:; if ((*__LONG_IDEAUTOLAYOUT)||new_error){ if(qbevent){evnt(25224,555,"ide_methods.bas");if(r)goto S_34142;} LABEL_SPACELAYOUT:; if(qbevent){evnt(25224,556,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_IGNORESP= 0 ; if(!qbevent)break;evnt(25224,557,"ide_methods.bas");}while(r); S_34144:; fornext_value3752= 1 ; fornext_finalvalue3752=__STRING_LAYOUT->len; fornext_step3752= 1 ; if (fornext_step3752<0) fornext_step_negative3752=1; else fornext_step_negative3752=0; if (new_error) goto fornext_error3752; goto fornext_entrylabel3752; while(1){ fornext_value3752=fornext_step3752+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3752: *_FUNC_IDE2_LONG_I=fornext_value3752; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3752){ if (fornext_value3752fornext_finalvalue3752) break; } fornext_error3752:; if(qbevent){evnt(25224,558,"ide_methods.bas");if(r)goto S_34144;} S_34145:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)== 34 )))||new_error){ if(qbevent){evnt(25224,559,"ide_methods.bas");if(r)goto S_34145;} do{ *_FUNC_IDE2_LONG_IGNORESP=*_FUNC_IDE2_LONG_IGNORESP+ 1 ; if(!qbevent)break;evnt(25224,560,"ide_methods.bas");}while(r); S_34147:; if ((-(*_FUNC_IDE2_LONG_IGNORESP== 2 ))||new_error){ if(qbevent){evnt(25224,560,"ide_methods.bas");if(r)goto S_34147;} do{ *_FUNC_IDE2_LONG_IGNORESP= 0 ; if(!qbevent)break;evnt(25224,560,"ide_methods.bas");}while(r); } } S_34151:; if ((-(*_FUNC_IDE2_LONG_IGNORESP== 0 ))||new_error){ if(qbevent){evnt(25224,562,"ide_methods.bas");if(r)goto S_34151;} S_34152:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(25224,563,"ide_methods.bas");if(r)goto S_34152;} do{ sub_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(25224,563,"ide_methods.bas");}while(r); } S_34155:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP2)))||new_error){ if(qbevent){evnt(25224,564,"ide_methods.bas");if(r)goto S_34155;} 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(25224,564,"ide_methods.bas");}while(r); do{ goto LABEL_SPACELAYOUT; if(!qbevent)break;evnt(25224,564,"ide_methods.bas");}while(r); } } fornext_continue_3751:; } fornext_exit_3751:; } S_34162:; if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ if(qbevent){evnt(25224,569,"ide_methods.bas");if(r)goto S_34162;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,572,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_INDENT= 0 ; if(!qbevent)break;evnt(25224,573,"ide_methods.bas");}while(r); S_34165:; fornext_value3756= 1 ; fornext_finalvalue3756=_FUNC_IDE2_STRING_A->len; fornext_step3756= 1 ; if (fornext_step3756<0) fornext_step_negative3756=1; else fornext_step_negative3756=0; if (new_error) goto fornext_error3756; goto fornext_entrylabel3756; while(1){ fornext_value3756=fornext_step3756+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3756: *_FUNC_IDE2_LONG_I=fornext_value3756; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3756){ if (fornext_value3756fornext_finalvalue3756) break; } fornext_error3756:; if(qbevent){evnt(25224,574,"ide_methods.bas");if(r)goto S_34165;} S_34166:; 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(25224,575,"ide_methods.bas");if(r)goto S_34166;} do{ *_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,576,"ide_methods.bas");}while(r); do{ goto fornext_exit_3755; if(!qbevent)break;evnt(25224,577,"ide_methods.bas");}while(r); } fornext_continue_3755:; } fornext_exit_3755:; do{ qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,580,"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(25224,582,"ide_methods.bas");}while(r); } S_34175:; if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ if(qbevent){evnt(25224,585,"ide_methods.bas");if(r)goto S_34175;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,587,"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(25224,588,"ide_methods.bas");}while(r); S_34178:; fornext_value3760= 1 ; fornext_finalvalue3760=_FUNC_IDE2_STRING_A->len; fornext_step3760= 1 ; if (fornext_step3760<0) fornext_step_negative3760=1; else fornext_step_negative3760=0; if (new_error) goto fornext_error3760; goto fornext_entrylabel3760; while(1){ fornext_value3760=fornext_step3760+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3760: *_FUNC_IDE2_LONG_I=fornext_value3760; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3760){ if (fornext_value3760fornext_finalvalue3760) break; } fornext_error3760:; if(qbevent){evnt(25224,589,"ide_methods.bas");if(r)goto S_34178;} S_34179:; 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(25224,590,"ide_methods.bas");if(r)goto S_34179;} 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(25224,591,"ide_methods.bas");}while(r); do{ goto fornext_exit_3759; if(!qbevent)break;evnt(25224,592,"ide_methods.bas");}while(r); } fornext_continue_3759:; } fornext_exit_3759:; } do{ qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE2_STRING_INDENT,__STRING_LAYOUT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,597,"ide_methods.bas");}while(r); S_34186:; if (((-(*__LONG_IDECY!=*__LONG_IDECOMPILEDLINE))|(-(*__LONG_IDELAYOUTALLOW!= 0 )))||new_error){ if(qbevent){evnt(25224,599,"ide_methods.bas");if(r)goto S_34186;} do{ *__LONG_IDELAYOUTALLOW= 0 ; if(!qbevent)break;evnt(25224,600,"ide_methods.bas");}while(r); S_34188:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ if(qbevent){evnt(25224,602,"ide_methods.bas");if(r)goto S_34188;} do{ SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,603,"ide_methods.bas");}while(r); S_34190:; if (((-(*__LONG_IDECOMPILEDLINE>=*__LONG_IDESY))&(-(*__LONG_IDECOMPILEDLINE<=(*__LONG_IDESY+ 16 ))))||new_error){ if(qbevent){evnt(25224,604,"ide_methods.bas");if(r)goto S_34190;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,604,"ide_methods.bas");}while(r); } } }else{ S_34195:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ if(qbevent){evnt(25224,609,"ide_methods.bas");if(r)goto S_34195;} do{ qbs_set(__STRING_IDECURRENTLINELAYOUT,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,610,"ide_methods.bas");}while(r); do{ *__LONG_IDECURRENTLINELAYOUTI=*__LONG_IDECY; if(!qbevent)break;evnt(25224,611,"ide_methods.bas");}while(r); } } } } } S_34203:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 6 ))))||new_error){ if(qbevent){evnt(25224,622,"ide_methods.bas");if(r)goto S_34203;} do{ *__LONG_IDECOMPILING= 0 ; if(!qbevent)break;evnt(25224,623,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_READY= 1 ; if(!qbevent)break;evnt(25224,624,"ide_methods.bas");}while(r); S_34206:; if ((*__LONG_IDEAUTORUN)||new_error){ if(qbevent){evnt(25224,625,"ide_methods.bas");if(r)goto S_34206;} do{ *__LONG_IDEAUTORUN= 0 ; if(!qbevent)break;evnt(25224,625,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUNSPECIAL; if(!qbevent)break;evnt(25224,625,"ide_methods.bas");}while(r); } } S_34211:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 11 ))))||new_error){ if(qbevent){evnt(25224,628,"ide_methods.bas");if(r)goto S_34211;} do{ *__LONG_IDECOMPILING= 0 ; if(!qbevent)break;evnt(25224,629,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_READY= 1 ; if(!qbevent)break;evnt(25224,630,"ide_methods.bas");}while(r); do{ *__LONG_IDEAUTORUN= 0 ; if(!qbevent)break;evnt(25224,631,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SHOWEXECREATED= 1 ; if(!qbevent)break;evnt(25224,632,"ide_methods.bas");}while(r); } S_34217:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 7 ))))||new_error){ if(qbevent){evnt(25224,635,"ide_methods.bas");if(r)goto S_34217;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; if(!qbevent)break;evnt(25224,636,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILEDLINE= 0 ; if(!qbevent)break;evnt(25224,637,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; if(!qbevent)break;evnt(25224,638,"ide_methods.bas");}while(r); } S_34222:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 8 ))))||new_error){ if(qbevent){evnt(25224,641,"ide_methods.bas");if(r)goto S_34222;} do{ *__LONG_IDECOMPILING= 0 ; if(!qbevent)break;evnt(25224,642,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FAILED= 1 ; if(!qbevent)break;evnt(25224,643,"ide_methods.bas");}while(r); do{ *__LONG_IDEAUTORUN= 0 ; if(!qbevent)break;evnt(25224,644,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_PASSBACK= 0 ; if(!qbevent)break;evnt(25224,647,"ide_methods.bas");}while(r); S_34228:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 10 ))))||new_error){ if(qbevent){evnt(25224,648,"ide_methods.bas");if(r)goto S_34228;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; if(!qbevent)break;evnt(25224,649,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; if(!qbevent)break;evnt(25224,650,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE- 1 ; if(!qbevent)break;evnt(25224,651,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PASSBACK= 1 ; if(!qbevent)break;evnt(25224,652,"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(25224,653,"ide_methods.bas");}while(r); } S_34235:; if ((*_FUNC_IDE2_LONG_MUSTDISPLAY)||new_error){ if(qbevent){evnt(25224,656,"ide_methods.bas");if(r)goto S_34235;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,656,"ide_methods.bas");}while(r); } S_34238:; if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ if(qbevent){evnt(25224,658,"ide_methods.bas");if(r)goto S_34238;} do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,660,"ide_methods.bas");}while(r); S_34240:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ if(qbevent){evnt(25224,665,"ide_methods.bas");if(r)goto S_34240;} do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,666,"ide_methods.bas");}while(r); S_34242:; if ((*_FUNC_IDE2_LONG_READY)||new_error){ if(qbevent){evnt(25224,667,"ide_methods.bas");if(r)goto S_34242;} S_34243:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ if(qbevent){evnt(25224,668,"ide_methods.bas");if(r)goto S_34243;} 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(25224,669,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 0 ; if(!qbevent)break;evnt(25224,670,"ide_methods.bas");}while(r); S_34246:; if (((-(*__LONG_TOTALWARNINGS> 0 ))&(-(*_FUNC_IDE2_LONG_SHOWEXECREATED== 0 )))||new_error){ if(qbevent){evnt(25224,671,"ide_methods.bas");if(r)goto S_34246;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,672,"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(25224,673,"ide_methods.bas");}while(r); S_34249:; if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ if(qbevent){evnt(25224,674,"ide_methods.bas");if(r)goto S_34249;} 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(25224,674,"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(25224,675,"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(25224,676,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 4 ; if(!qbevent)break;evnt(25224,677,"ide_methods.bas");}while(r); } } } S_34258:; if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ if(qbevent){evnt(25224,681,"ide_methods.bas");if(r)goto S_34258;} do{ *_FUNC_IDE2_LONG_SHOWEXECREATED= 0 ; if(!qbevent)break;evnt(25224,682,"ide_methods.bas");}while(r); S_34260:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,684,"ide_methods.bas");if(r)goto S_34260;} 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(25224,685,"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(25224,687,"ide_methods.bas");}while(r); } S_34265:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(25224,690,"ide_methods.bas");if(r)goto S_34265;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,691,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,692,"ide_methods.bas");}while(r); S_34268:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,693,"ide_methods.bas");if(r)goto S_34268;} 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(25224,693,"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(25224,694,"ide_methods.bas");}while(r); S_34272:; if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,695,"ide_methods.bas");if(r)goto S_34272;} 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(25224,696,"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(25224,698,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 3 ; if(!qbevent)break;evnt(25224,699,"ide_methods.bas");}while(r); } } } } do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,707,"ide_methods.bas");}while(r); S_34282:; do{ if(qbevent){evnt(25224,738,"ide_methods.bas");if(r)goto S_34282;} LABEL_IDELOOP:; if(qbevent){evnt(25224,739,"ide_methods.bas");r=0;} S_34283:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ if(qbevent){evnt(25224,740,"ide_methods.bas");if(r)goto S_34283;} do{ *__LONG_MAXLINENUMBERLENGTH=((int32)(qbs_str((int32)(*__LONG_IDEN)))->len)+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,740,"ide_methods.bas");}while(r); }else{ do{ *__LONG_MAXLINENUMBERLENGTH= 0 ; if(!qbevent)break;evnt(25224,740,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,741,"ide_methods.bas");}while(r); do{ SUB_IDEDELTXT(); if(!qbevent)break;evnt(25224,742,"ide_methods.bas");}while(r); S_34290:; if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ if(qbevent){evnt(25224,743,"ide_methods.bas");if(r)goto S_34290;} do{ sub__resize( 2 ,NULL); if(!qbevent)break;evnt(25224,743,"ide_methods.bas");}while(r); }else{ do{ sub__resize( 1 ,NULL); if(!qbevent)break;evnt(25224,743,"ide_methods.bas");}while(r); } S_34295:; if ((((func__resize()|*_FUNC_IDE2_LONG_FORCERESIZE))&(-(((float)(FUNC_TIMEELAPSEDSINCE(__SINGLE_QB64_UPTIME)))>((float)( 1.5E+0 )))))||new_error){ if(qbevent){evnt(25224,745,"ide_methods.bas");if(r)goto S_34295;} S_34296:; if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ if(qbevent){evnt(25224,746,"ide_methods.bas");if(r)goto S_34296;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,747,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_RETVAL= 0 ; if(!qbevent)break;evnt(25224,749,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FORCERESIZE= 0 ; if(!qbevent)break;evnt(25224,750,"ide_methods.bas");}while(r); S_34301:; do{ if(qbevent){evnt(25224,751,"ide_methods.bas");if(r)goto S_34301;} do{ *_FUNC_IDE2_BYTE_TOOSMALL= 0 ; if(!qbevent)break;evnt(25224,752,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_INTEGER_V=func__resizewidth()/ func__fontwidth(NULL,0); if(!qbevent)break;evnt(25224,753,"ide_methods.bas");}while(r); S_34304:; if (((-(*_FUNC_IDE2_INTEGER_V< 80 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ if(qbevent){evnt(25224,753,"ide_methods.bas");if(r)goto S_34304;} do{ *_FUNC_IDE2_INTEGER_V= 80 ; if(!qbevent)break;evnt(25224,753,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_TOOSMALL= -1 ; if(!qbevent)break;evnt(25224,753,"ide_methods.bas");}while(r); } S_34308:; if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,754,"ide_methods.bas");if(r)goto S_34308;} do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,754,"ide_methods.bas");}while(r); do{ *__LONG_IDEWX=*_FUNC_IDE2_INTEGER_V; if(!qbevent)break;evnt(25224,754,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_INTEGER_V=func__resizeheight()/ func__fontheight(NULL,0); if(!qbevent)break;evnt(25224,755,"ide_methods.bas");}while(r); S_34313:; if (((-(*_FUNC_IDE2_INTEGER_V< 25 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ if(qbevent){evnt(25224,755,"ide_methods.bas");if(r)goto S_34313;} do{ *_FUNC_IDE2_INTEGER_V= 25 ; if(!qbevent)break;evnt(25224,755,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_TOOSMALL= -1 ; if(!qbevent)break;evnt(25224,755,"ide_methods.bas");}while(r); } S_34317:; if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWY))||new_error){ if(qbevent){evnt(25224,756,"ide_methods.bas");if(r)goto S_34317;} do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,756,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*_FUNC_IDE2_INTEGER_V; if(!qbevent)break;evnt(25224,756,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_TEMPF=func__font(NULL,0); if(!qbevent)break;evnt(25224,758,"ide_methods.bas");}while(r); do{ qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); if(!qbevent)break;evnt(25224,759,"ide_methods.bas");}while(r); do{ sub__font(*_FUNC_IDE2_LONG_TEMPF,NULL,0); if(!qbevent)break;evnt(25224,760,"ide_methods.bas");}while(r); do{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,762,"ide_methods.bas");}while(r); do{ sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); if(!qbevent)break;evnt(25224,763,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,764,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); if(!qbevent)break;evnt(25224,765,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,766,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,767,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,768,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,769,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,770,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); if(!qbevent)break;evnt(25224,771,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,774,"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(25224,775,"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(25224,776,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,777,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(&(pass3768= 1 ),&(pass3769= 2 ),__LONG_IDEWX,&(pass3770=*__LONG_IDEWY- 5 )); if(!qbevent)break;evnt(25224,777,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,779,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(&(pass3771= 1 ),&(pass3772=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass3773= 5 )); if(!qbevent)break;evnt(25224,779,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,781,"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(25224,781,"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(25224,781,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=10; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_10:; if(!qbevent)break;evnt(25224,783,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,786,"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(25224,786,"ide_methods.bas");}while(r); do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,787,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3774=*__LONG_IDEWY- 3 ),&(pass3775= 3 ),&(pass3776= 1 ),&(pass3777= 1 )); if(!qbevent)break;evnt(25224,788,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3778= 3 ),&(pass3779=*__LONG_IDEWY- 8 ),&(pass3780= 1 ),&(pass3781= 1 )); if(!qbevent)break;evnt(25224,789,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass3782= 2 ),&(pass3783=*__LONG_IDEWY- 5 ),&(pass3784=*__LONG_IDEWX- 2 ),&(pass3785= 1 ),&(pass3786= 1 )); if(!qbevent)break;evnt(25224,790,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=11; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_11:; if(!qbevent)break;evnt(25224,792,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,794,"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(25224,795,"ide_methods.bas");}while(r); S_34354:; if ((*_FUNC_IDE2_BYTE_TOOSMALL)||new_error){ if(qbevent){evnt(25224,796,"ide_methods.bas");if(r)goto S_34354;} do{ qbg_sub_color( 14 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,797,"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(25224,798,"ide_methods.bas");}while(r); }else{ do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,800,"ide_methods.bas");}while(r); } do{ sub__display(); if(!qbevent)break;evnt(25224,803,"ide_methods.bas");}while(r); do{ sub__limit( 30 ); if(!qbevent)break;evnt(25224,804,"ide_methods.bas");}while(r); S_34362:; dl_continue_3767:; }while((func__resize())&&(!new_error)); dl_exit_3767:; if(qbevent){evnt(25224,805,"ide_methods.bas");if(r)goto S_34362;} S_34363:; if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ if(qbevent){evnt(25224,807,"ide_methods.bas");if(r)goto S_34363;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,808,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,809,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,812,"ide_methods.bas");}while(r); do{ sub__autodisplay(); if(!qbevent)break;evnt(25224,813,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=12; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_12:; if(!qbevent)break;evnt(25224,814,"ide_methods.bas");}while(r); } }else{ do{ sub__autodisplay(); if(!qbevent)break;evnt(25224,817,"ide_methods.bas");}while(r); } S_34374:; if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ if(qbevent){evnt(25224,820,"ide_methods.bas");if(r)goto S_34374;} do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,822,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SFNAME,FUNC_FINDCURRENTSF(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,824,"ide_methods.bas");}while(r); do{ SUB_CLEANSUBNAME(_FUNC_IDE2_STRING_SFNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,825,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=13; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_13:; if(!qbevent)break;evnt(25224,828,"ide_methods.bas");}while(r); S_34379:; if ((*__BYTE_ENABLEQUICKNAV)||new_error){ if(qbevent){evnt(25224,831,"ide_methods.bas");if(r)goto S_34379;} do{ return_point[next_return_point++]=14; if (next_return_point>=return_points) more_return_points(); goto LABEL_DRAWQUICKNAV; RETURN_14:; if(!qbevent)break;evnt(25224,831,"ide_methods.bas");}while(r); } do{ return_point[next_return_point++]=15; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_15:; if(!qbevent)break;evnt(25224,834,"ide_methods.bas");}while(r); S_34383:; if ((*__INTEGER_IDEINSERT)||new_error){ if(qbevent){evnt(25224,837,"ide_methods.bas");if(r)goto S_34383;} do{ qbg_sub_locate(NULL,NULL,NULL, 0 , 31 ,24); if(!qbevent)break;evnt(25224,837,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); if(!qbevent)break;evnt(25224,837,"ide_methods.bas");}while(r); } S_34388:; if ((*_FUNC_IDE2_LONG_FAILED)||new_error){ if(qbevent){evnt(25224,840,"ide_methods.bas");if(r)goto S_34388;} S_34389:; if (((-(*__BYTE_IDESHOWERRORSIMMEDIATELY!= 0 ))|(-(*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED!= 0 ))|(-(*__LONG_COMPFAILED!= 0 )))||new_error){ if(qbevent){evnt(25224,841,"ide_methods.bas");if(r)goto S_34389;} S_34390:; 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(25224,842,"ide_methods.bas");if(r)goto S_34390;} do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,842,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,843,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,845,"ide_methods.bas");}while(r); S_34395:; if ((*__LONG_COMPFAILED)||new_error){ if(qbevent){evnt(25224,847,"ide_methods.bas");if(r)goto S_34395;} do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,848,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 1 ; if(!qbevent)break;evnt(25224,850,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; if(!qbevent)break;evnt(25224,851,"ide_methods.bas");}while(r); S_34399:; fornext_value3789= 1 ; fornext_finalvalue3789=_FUNC_IDE2_STRING_A->len; fornext_step3789= 1 ; if (fornext_step3789<0) fornext_step_negative3789=1; else fornext_step_negative3789=0; if (new_error) goto fornext_error3789; goto fornext_entrylabel3789; while(1){ fornext_value3789=fornext_step3789+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3789: *_FUNC_IDE2_LONG_I=fornext_value3789; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3789){ if (fornext_value3789fornext_finalvalue3789) break; } fornext_error3789:; if(qbevent){evnt(25224,852,"ide_methods.bas");if(r)goto S_34399;} S_34400:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)== 0 )))||new_error){ if(qbevent){evnt(25224,853,"ide_methods.bas");if(r)goto S_34400;} S_34401:; if ((-(func__defaultcolor(NULL,0)== 7 ))||new_error){ if(qbevent){evnt(25224,854,"ide_methods.bas");if(r)goto S_34401;} do{ qbg_sub_color( 11 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,854,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,854,"ide_methods.bas");}while(r); } do{ goto fornext_continue_3788; if(!qbevent)break;evnt(25224,855,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,857,"ide_methods.bas");}while(r); S_34409:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,857,"ide_methods.bas");if(r)goto S_34409;} do{ *_FUNC_IDE2_LONG_X= 2 ; if(!qbevent)break;evnt(25224,857,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,857,"ide_methods.bas");}while(r); } S_34413:; if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ if(qbevent){evnt(25224,858,"ide_methods.bas");if(r)goto S_34413;} do{ goto fornext_exit_3788; if(!qbevent)break;evnt(25224,858,"ide_methods.bas");}while(r); } do{ sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,859,"ide_methods.bas");}while(r); fornext_continue_3788:; } fornext_exit_3788:; do{ *__INTEGER_STATUSAREALINK= 1 ; if(!qbevent)break;evnt(25224,861,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,863,"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(25224,866,"ide_methods.bas");}while(r); S_34422:; if ((-(*_FUNC_IDE2_LONG_L!= 0 ))||new_error){ if(qbevent){evnt(25224,866,"ide_methods.bas");if(r)goto S_34422;} do{ *__LONG_IDEFOCUSLINE=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,866,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X= 1 ; if(!qbevent)break;evnt(25224,868,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; if(!qbevent)break;evnt(25224,869,"ide_methods.bas");}while(r); S_34427:; if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY==*_FUNC_IDE2_LONG_L)))||new_error){ if(qbevent){evnt(25224,871,"ide_methods.bas");if(r)goto S_34427;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" on current line",16))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,871,"ide_methods.bas");}while(r); } S_34430:; fornext_value3793= 1 ; fornext_finalvalue3793=_FUNC_IDE2_STRING_A->len; fornext_step3793= 1 ; if (fornext_step3793<0) fornext_step_negative3793=1; else fornext_step_negative3793=0; if (new_error) goto fornext_error3793; goto fornext_entrylabel3793; while(1){ fornext_value3793=fornext_step3793+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3793: *_FUNC_IDE2_LONG_I=fornext_value3793; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3793){ if (fornext_value3793fornext_finalvalue3793) break; } fornext_error3793:; if(qbevent){evnt(25224,873,"ide_methods.bas");if(r)goto S_34430;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,874,"ide_methods.bas");}while(r); S_34432:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,874,"ide_methods.bas");if(r)goto S_34432;} do{ *_FUNC_IDE2_LONG_X= 2 ; if(!qbevent)break;evnt(25224,874,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,874,"ide_methods.bas");}while(r); } S_34436:; if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ if(qbevent){evnt(25224,875,"ide_methods.bas");if(r)goto S_34436;} do{ goto fornext_exit_3792; if(!qbevent)break;evnt(25224,875,"ide_methods.bas");}while(r); } do{ sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,876,"ide_methods.bas");}while(r); fornext_continue_3792:; } fornext_exit_3792:; S_34441:; if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY!=*_FUNC_IDE2_LONG_L)))||new_error){ if(qbevent){evnt(25224,879,"ide_methods.bas");if(r)goto S_34441;} 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(25224,880,"ide_methods.bas");}while(r); do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,881,"ide_methods.bas");}while(r); S_34444:; fornext_value3796= 1 ; fornext_finalvalue3796=_FUNC_IDE2_STRING_A->len; 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_IDE2_LONG_I); fornext_entrylabel3796: *_FUNC_IDE2_LONG_I=fornext_value3796; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3796){ if (fornext_value3796fornext_finalvalue3796) break; } fornext_error3796:; if(qbevent){evnt(25224,882,"ide_methods.bas");if(r)goto S_34444;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,883,"ide_methods.bas");}while(r); S_34446:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,883,"ide_methods.bas");if(r)goto S_34446;} do{ *_FUNC_IDE2_LONG_X= 2 ; if(!qbevent)break;evnt(25224,883,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,883,"ide_methods.bas");}while(r); } S_34450:; if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ if(qbevent){evnt(25224,884,"ide_methods.bas");if(r)goto S_34450;} do{ goto fornext_exit_3795; if(!qbevent)break;evnt(25224,884,"ide_methods.bas");}while(r); } do{ sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,885,"ide_methods.bas");}while(r); fornext_continue_3795:; } fornext_exit_3795:; do{ *__INTEGER_STATUSAREALINK= 2 ; if(!qbevent)break;evnt(25224,887,"ide_methods.bas");}while(r); } S_34457:; 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(25224,890,"ide_methods.bas");if(r)goto S_34457;} do{ qbs_set(_FUNC_IDE2_STRING_TEMP,__STRING_LINEFRAGMENT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,891,"ide_methods.bas");}while(r); S_34459:; fornext_value3799= 1 ; fornext_finalvalue3799=_FUNC_IDE2_STRING_TEMP->len; fornext_step3799= 1 ; if (fornext_step3799<0) fornext_step_negative3799=1; else fornext_step_negative3799=0; if (new_error) goto fornext_error3799; goto fornext_entrylabel3799; while(1){ fornext_value3799=fornext_step3799+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3799: *_FUNC_IDE2_LONG_I=fornext_value3799; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3799){ if (fornext_value3799fornext_finalvalue3799) break; } fornext_error3799:; if(qbevent){evnt(25224,892,"ide_methods.bas");if(r)goto S_34459;} S_34460:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ if(qbevent){evnt(25224,893,"ide_methods.bas");if(r)goto S_34460;} do{ sub_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); if(!qbevent)break;evnt(25224,893,"ide_methods.bas");}while(r); } fornext_continue_3798:; } fornext_exit_3798:; do{ qbs_set(_FUNC_IDE2_STRING_TEMP,qbs__trim(_FUNC_IDE2_STRING_TEMP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,895,"ide_methods.bas");}while(r); S_34465:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_TEMP->len))||new_error){ if(qbevent){evnt(25224,896,"ide_methods.bas");if(r)goto S_34465;} do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,897,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 1 ; if(!qbevent)break;evnt(25224,897,"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(25224,898,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,900,"ide_methods.bas");}while(r); S_34470:; fornext_value3803= 1 ; fornext_finalvalue3803=_FUNC_IDE2_STRING_TEMP->len; fornext_step3803= 1 ; if (fornext_step3803<0) fornext_step_negative3803=1; else fornext_step_negative3803=0; if (new_error) goto fornext_error3803; goto fornext_entrylabel3803; while(1){ fornext_value3803=fornext_step3803+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3803: *_FUNC_IDE2_LONG_I=fornext_value3803; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3803){ if (fornext_value3803fornext_finalvalue3803) break; } fornext_error3803:; if(qbevent){evnt(25224,901,"ide_methods.bas");if(r)goto S_34470;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,902,"ide_methods.bas");}while(r); S_34472:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,902,"ide_methods.bas");if(r)goto S_34472;} do{ *_FUNC_IDE2_LONG_X= 2 ; if(!qbevent)break;evnt(25224,902,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,902,"ide_methods.bas");}while(r); } S_34476:; if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ if(qbevent){evnt(25224,903,"ide_methods.bas");if(r)goto S_34476;} do{ goto fornext_exit_3802; if(!qbevent)break;evnt(25224,903,"ide_methods.bas");}while(r); } S_34479:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)== 1 )))||new_error){ if(qbevent){evnt(25224,904,"ide_methods.bas");if(r)goto S_34479;} do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,904,"ide_methods.bas");}while(r); do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,904,"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(25224,905,"ide_methods.bas");}while(r); fornext_continue_3802:; } fornext_exit_3802:; } } } } } S_34490:; if ((*__INTEGER_IDECHANGEMADE)||new_error){ if(qbevent){evnt(25224,914,"ide_methods.bas");if(r)goto S_34490;} S_34491:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ if(qbevent){evnt(25224,915,"ide_methods.bas");if(r)goto S_34491;} do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,916,"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(25224,917,"ide_methods.bas");}while(r); do{ sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("...",3),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,918,"ide_methods.bas");}while(r); } } do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,922,"ide_methods.bas");}while(r); S_34498:; if ((*__LONG_IDEHELP)||new_error){ if(qbevent){evnt(25224,924,"ide_methods.bas");if(r)goto S_34498;} do{ SUB_HELP_SHOWTEXT(); if(!qbevent)break;evnt(25224,929,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass3805= 2 ),&(pass3806=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3807=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3808=*__LONG_HELP_W+ 1 )); if(!qbevent)break;evnt(25224,931,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3809=*__LONG_IDEWY+ 1 ),&(pass3810=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3811=*__LONG_HELP_H+ 1 )); if(!qbevent)break;evnt(25224,932,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=16; if (next_return_point>=return_points) more_return_points(); goto LABEL_HELPAREASHOWBACKLINKS; RETURN_16:; if(!qbevent)break;evnt(25224,936,"ide_methods.bas");}while(r); S_34503:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM== 3 ))&(qbs_notequal(qbs_left(__STRING_IDEINFO, 1 ),func_chr( 0 )))))||new_error){ if(qbevent){evnt(25224,939,"ide_methods.bas");if(r)goto S_34503;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,940,"ide_methods.bas");}while(r); S_34505:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ if(qbevent){evnt(25224,941,"ide_methods.bas");if(r)goto S_34505;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_HELP_SEARCH_STR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,942,"ide_methods.bas");}while(r); S_34507:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ if(qbevent){evnt(25224,943,"ide_methods.bas");if(r)goto S_34507;} 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(25224,943,"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(25224,944,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEINFO,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,945,"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(25224,947,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,949,"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(25224,952,"ide_methods.bas");}while(r); } S_34520:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,955,"ide_methods.bas");if(r)goto S_34520;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,956,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,957,"ide_methods.bas");}while(r); S_34523:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len> 20 )))||new_error){ if(qbevent){evnt(25224,958,"ide_methods.bas");if(r)goto S_34523;} S_34524:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ if(qbevent){evnt(25224,959,"ide_methods.bas");if(r)goto S_34524;} do{ *_FUNC_IDE2_LONG_TX= 20 ; if(!qbevent)break;evnt(25224,960,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,962,"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(25224,965,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,966,"ide_methods.bas");}while(r); } S_34533:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,969,"ide_methods.bas");if(r)goto S_34533;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,970,"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(25224,971,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,972,"ide_methods.bas");}while(r); } do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,975,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,978,"ide_methods.bas");}while(r); } S_34541:; if ((-(*__BYTE_WHITELISTQB64FIRSTTIMEMSG== 0 ))||new_error){ if(qbevent){evnt(25224,982,"ide_methods.bas");if(r)goto S_34541;} do{ *_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Welcome to QB64",15),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 is an independently distributed program, and as such",57),func_chr( 10 )),qbs_new_txt_len("both 'qb64",10)),__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 QB64 folder to avoid",60)),func_chr( 10 )),qbs_new_txt_len("operation errors.",17)),qbs_new_txt_len("#OK;#Don't show this again",26)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,988,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,990,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,990,"ide_methods.bas");}while(r); S_34545:; if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ if(qbevent){evnt(25224,991,"ide_methods.bas");if(r)goto S_34545;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,992,"ide_methods.bas");}while(r); } do{ *__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; if(!qbevent)break;evnt(25224,994,"ide_methods.bas");}while(r); } S_34550:; if ((*__INTEGER_IDECHANGEMADE)||new_error){ if(qbevent){evnt(25224,997,"ide_methods.bas");if(r)goto S_34550;} S_34551:; if ((*__LONG_IDELAYOUTALLOW)||new_error){ if(qbevent){evnt(25224,999,"ide_methods.bas");if(r)goto S_34551;} do{ *__LONG_IDELAYOUTALLOW=*__LONG_IDELAYOUTALLOW- 1 ; if(!qbevent)break;evnt(25224,999,"ide_methods.bas");}while(r); } do{ *__LONG_IDECURRENTLINELAYOUTI= 0 ; if(!qbevent)break;evnt(25224,1001,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,1002,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 0 ; if(!qbevent)break;evnt(25224,1003,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= 0 ; if(!qbevent)break;evnt(25224,1004,"ide_methods.bas");}while(r); do{ *__LONG_COMPFAILED= 0 ; if(!qbevent)break;evnt(25224,1005,"ide_methods.bas");}while(r); S_34559:; if ((-(*__LONG_IDEUNSAVED== -1 ))||new_error){ if(qbevent){evnt(25224,1006,"ide_methods.bas");if(r)goto S_34559;} do{ *__LONG_IDEUNSAVED= 0 ; if(!qbevent)break;evnt(25224,1006,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNSAVED= 1 ; if(!qbevent)break;evnt(25224,1006,"ide_methods.bas");}while(r); } S_34564:; if ((-(*__LONG_IDENOUNDO== 0 ))||new_error){ if(qbevent){evnt(25224,1008,"ide_methods.bas");if(r)goto S_34564;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1012,"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(25224,1013,"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(25224,1014,"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(25224,1015,"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(25224,1016,"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(25224,1017,"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(25224,1018,"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(25224,1020,"ide_methods.bas");}while(r); S_34573:; fornext_value3816= 1 ; fornext_finalvalue3816=*__LONG_IDEBMKN; fornext_step3816= 1 ; if (fornext_step3816<0) fornext_step_negative3816=1; else fornext_step_negative3816=0; if (new_error) goto fornext_error3816; goto fornext_entrylabel3816; while(1){ fornext_value3816=fornext_step3816+(*_FUNC_IDE2_LONG_BI); fornext_entrylabel3816: *_FUNC_IDE2_LONG_BI=fornext_value3816; if (fornext_step_negative3816){ if (fornext_value3816fornext_finalvalue3816) break; } fornext_error3816:; if(qbevent){evnt(25224,1021,"ide_methods.bas");if(r)goto S_34573;} 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(25224,1021,"ide_methods.bas");}while(r); fornext_continue_3815:; } fornext_exit_3815:; do{ *_FUNC_IDE2_LONG_L=__STRING_IDET->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1022,"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(25224,1023,"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(25224,1024,"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(25224,1028,"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(25224,1030,"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(25224,1030,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1030,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1030,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1030,"ide_methods.bas");}while(r); S_34585:; if ((*__LONG_IDEMERGEUNDO)||new_error){ if(qbevent){evnt(25224,1032,"ide_methods.bas");if(r)goto S_34585;} do{ *__LONG_IDEMERGEUNDO= 0 ; if(!qbevent)break;evnt(25224,1033,"ide_methods.bas");}while(r); S_34587:; if ((-(*_FUNC_IDE2_LONG_P2!=*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,1034,"ide_methods.bas");if(r)goto S_34587;} S_34588:; if ((-(*_FUNC_IDE2_LONG_P2== 13 ))||new_error){ if(qbevent){evnt(25224,1035,"ide_methods.bas");if(r)goto S_34588;} do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_PLAST; if(!qbevent)break;evnt(25224,1036,"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_3820),1); if(!qbevent)break;evnt(25224,1039,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2- 4 -*_FUNC_IDE2_LONG_PP2L- 4 ; if(!qbevent)break;evnt(25224,1040,"ide_methods.bas");}while(r); } } } S_34596:; if ((-(*_FUNC_IDE2_LONG_P1== 0 ))||new_error){ if(qbevent){evnt(25224,1045,"ide_methods.bas");if(r)goto S_34596;} do{ *_FUNC_IDE2_LONG_P1= 13 ; if(!qbevent)break;evnt(25224,1046,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; if(!qbevent)break;evnt(25224,1046,"ide_methods.bas");}while(r); }else{ S_34600:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,1048,"ide_methods.bas");if(r)goto S_34600;} S_34601:; if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ if(qbevent){evnt(25224,1051,"ide_methods.bas");if(r)goto S_34601;} do{ *_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_P2; if(!qbevent)break;evnt(25224,1054,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; if(!qbevent)break;evnt(25224,1055,"ide_methods.bas");}while(r); S_34604:; 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(25224,1057,"ide_methods.bas");if(r)goto S_34604;} S_34605:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ if(qbevent){evnt(25224,1058,"ide_methods.bas");if(r)goto S_34605;} do{ *__LONG_IDEUNDOBASE= -1 ; if(!qbevent)break;evnt(25224,1058,"ide_methods.bas");}while(r); } do{ sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3823),1); if(!qbevent)break;evnt(25224,1061,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; if(!qbevent)break;evnt(25224,1062,"ide_methods.bas");}while(r); dl_continue_3822:; } dl_exit_3822:; }else{ do{ sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_3824),1); if(!qbevent)break;evnt(25224,1068,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; if(!qbevent)break;evnt(25224,1069,"ide_methods.bas");}while(r); } }else{ do{ sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_3825),1); if(!qbevent)break;evnt(25224,1075,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OP2=*_FUNC_IDE2_LONG_P2; if(!qbevent)break;evnt(25224,1076,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; if(!qbevent)break;evnt(25224,1077,"ide_methods.bas");}while(r); S_34619:; 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(25224,1079,"ide_methods.bas");if(r)goto S_34619;} S_34620:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ if(qbevent){evnt(25224,1080,"ide_methods.bas");if(r)goto S_34620;} do{ *__LONG_IDEUNDOBASE= -1 ; if(!qbevent)break;evnt(25224,1080,"ide_methods.bas");}while(r); } S_34623:; if ((-(*_FUNC_IDE2_LONG_P1==*_FUNC_IDE2_LONG_PLAST))||new_error){ if(qbevent){evnt(25224,1082,"ide_methods.bas");if(r)goto S_34623;} do{ *_FUNC_IDE2_LONG_P1= 13 ; if(!qbevent)break;evnt(25224,1083,"ide_methods.bas");}while(r); do{ goto dl_exit_3827; if(!qbevent)break;evnt(25224,1084,"ide_methods.bas");}while(r); }else{ do{ sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3828),1); if(!qbevent)break;evnt(25224,1086,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; if(!qbevent)break;evnt(25224,1087,"ide_methods.bas");}while(r); } dl_continue_3827:; } dl_exit_3827:; S_34631:; if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ if(qbevent){evnt(25224,1091,"ide_methods.bas");if(r)goto S_34631;} do{ *_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_OP2; if(!qbevent)break;evnt(25224,1094,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; if(!qbevent)break;evnt(25224,1095,"ide_methods.bas");}while(r); S_34634:; 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(25224,1097,"ide_methods.bas");if(r)goto S_34634;} S_34635:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ if(qbevent){evnt(25224,1098,"ide_methods.bas");if(r)goto S_34635;} do{ *__LONG_IDEUNDOBASE= -1 ; if(!qbevent)break;evnt(25224,1098,"ide_methods.bas");}while(r); } do{ sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3831),1); if(!qbevent)break;evnt(25224,1101,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; if(!qbevent)break;evnt(25224,1102,"ide_methods.bas");}while(r); dl_continue_3830:; } dl_exit_3830:; } } } 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(25224,1110,"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_3832),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1111,"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_3833),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1114,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,1116,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_P2; if(!qbevent)break;evnt(25224,1118,"ide_methods.bas");}while(r); S_34649:; if ((-(*__LONG_IDEUNDOBASE== 0 ))||new_error){ if(qbevent){evnt(25224,1119,"ide_methods.bas");if(r)goto S_34649;} do{ *__LONG_IDEUNDOBASE=*__LONG_IDEUNDOPOS; if(!qbevent)break;evnt(25224,1119,"ide_methods.bas");}while(r); } S_34652:; if ((-(*__LONG_IDEUNDOFLAG== 0 ))||new_error){ if(qbevent){evnt(25224,1124,"ide_methods.bas");if(r)goto S_34652;} do{ *__LONG_IDEUNDOFLAG= 1 ; if(!qbevent)break;evnt(25224,1125,"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(25224,1126,"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(25224,1126,"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_3834),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1126,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,1126,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_IDENOUNDO= 0 ; if(!qbevent)break;evnt(25224,1130,"ide_methods.bas");}while(r); } S_34662:; if ((-(*__LONG_IDEBUILDMODECHANGED== 0 ))||new_error){ if(qbevent){evnt(25224,1134,"ide_methods.bas");if(r)goto S_34662;} do{ *__LONG_IDEAUTORUN= 0 ; if(!qbevent)break;evnt(25224,1135,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBUILDMODECHANGED= 0 ; if(!qbevent)break;evnt(25224,1137,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILING= 1 ; if(!qbevent)break;evnt(25224,1139,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 2 ; if(!qbevent)break;evnt(25224,1140,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(&(pass3835= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1141,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1142,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILEDLINE= 1 ; if(!qbevent)break;evnt(25224,1143,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,1144,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,1148,"ide_methods.bas");}while(r); LABEL_WAITFORINPUT:; if(qbevent){evnt(25224,1149,"ide_methods.bas");r=0;} S_34674:; if ((*__LONG_IDECURRENTLINELAYOUTI)||new_error){ if(qbevent){evnt(25224,1151,"ide_methods.bas");if(r)goto S_34674;} S_34675:; if ((-(*__LONG_IDECY!=*__LONG_IDECURRENTLINELAYOUTI))||new_error){ if(qbevent){evnt(25224,1152,"ide_methods.bas");if(r)goto S_34675;} do{ SUB_IDESETLINE(__LONG_IDECURRENTLINELAYOUTI,__STRING_IDECURRENTLINELAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1153,"ide_methods.bas");}while(r); do{ *__LONG_IDECURRENTLINELAYOUTI= 0 ; if(!qbevent)break;evnt(25224,1154,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1155,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_EXITVALUE=func__exit(); if(!qbevent)break;evnt(25224,1159,"ide_methods.bas");}while(r); S_34682:; if (((-((*_FUNC_IDE2_LONG_EXITVALUE& 1 )!= 0 ))|(-(*__LONG_IDEEXIT!= 0 )))||new_error){ if(qbevent){evnt(25224,1160,"ide_methods.bas");if(r)goto S_34682;} do{ *__LONG_IDEEXIT= 0 ; if(!qbevent)break;evnt(25224,1160,"ide_methods.bas");}while(r); do{ goto LABEL_QUICKEXIT; if(!qbevent)break;evnt(25224,1160,"ide_methods.bas");}while(r); } do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,1162,"ide_methods.bas");}while(r); S_34687:; if ((*__LONG_ICHANGED)||new_error){ if(qbevent){evnt(25224,1163,"ide_methods.bas");if(r)goto S_34687;} do{ if(!qbevent)break;evnt(25224,1164,"ide_methods.bas");}while(r); S_34689:; if (((((-(*__LONG_MX!=*_FUNC_IDE2_LONG_MOX))|(-(*__LONG_MY!=*_FUNC_IDE2_LONG_MOY))))&(-(*__LONG_MB!= 0 )))||new_error){ if(qbevent){evnt(25224,1165,"ide_methods.bas");if(r)goto S_34689;} do{ *_FUNC_IDE2_LONG_MOX=*__LONG_MX; if(!qbevent)break;evnt(25224,1166,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_MOY=*__LONG_MY; if(!qbevent)break;evnt(25224,1167,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1168,"ide_methods.bas");}while(r); } S_34694:; if ((-(*__LONG_MB!=*__LONG_MOB))||new_error){ if(qbevent){evnt(25224,1170,"ide_methods.bas");if(r)goto S_34694;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1170,"ide_methods.bas");}while(r); } S_34697:; if ((-(*__LONG_MB2!=*__LONG_MOB2))||new_error){ if(qbevent){evnt(25224,1171,"ide_methods.bas");if(r)goto S_34697;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1171,"ide_methods.bas");}while(r); } S_34700:; if (((-(*__LONG_MCLICK!= 0 ))|(-(*__LONG_MCLICK2!= 0 )))||new_error){ if(qbevent){evnt(25224,1172,"ide_methods.bas");if(r)goto S_34700;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1172,"ide_methods.bas");}while(r); } S_34703:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,1173,"ide_methods.bas");if(r)goto S_34703;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1173,"ide_methods.bas");}while(r); } S_34706:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,1174,"ide_methods.bas");if(r)goto S_34706;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1174,"ide_methods.bas");}while(r); } S_34709:; if ((*__LONG_KSTATECHANGED)||new_error){ if(qbevent){evnt(25224,1175,"ide_methods.bas");if(r)goto S_34709;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1175,"ide_methods.bas");}while(r); } } S_34713:; if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_IDEMBMONITOR== 1 )))||new_error){ if(qbevent){evnt(25224,1177,"ide_methods.bas");if(r)goto S_34713;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,1177,"ide_methods.bas");}while(r); } S_34716:; if ((-(*__LONG_MB== 0 ))||new_error){ if(qbevent){evnt(25224,1178,"ide_methods.bas");if(r)goto S_34716;} do{ *__LONG_IDEMOUSESELECT= 0 ; if(!qbevent)break;evnt(25224,1178,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 0 ; if(!qbevent)break;evnt(25224,1178,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; if(!qbevent)break;evnt(25224,1178,"ide_methods.bas");}while(r); } S_34721:; if ((func__resize())||new_error){ if(qbevent){evnt(25224,1180,"ide_methods.bas");if(r)goto S_34721;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,1181,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,1181,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1181,"ide_methods.bas");}while(r); } S_34726:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ if(qbevent){evnt(25224,1184,"ide_methods.bas");if(r)goto S_34726;} S_34727:; if (((-(*__INTEGER_IDE_TOPPOSITION!=func__screeny()))|(-(*__INTEGER_IDE_LEFTPOSITION!=func__screenx())))||new_error){ if(qbevent){evnt(25224,1185,"ide_methods.bas");if(r)goto S_34727;} S_34728:; 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(25224,1186,"ide_methods.bas");if(r)goto S_34728;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_TopPosition",15),qbs_str((int32)(func__screeny()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1187,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_LeftPosition",16),qbs_str((int32)(func__screenx()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1188,"ide_methods.bas");}while(r); do{ *__INTEGER_IDE_TOPPOSITION=func__screeny(); if(!qbevent)break;evnt(25224,1189,"ide_methods.bas");}while(r); do{ *__INTEGER_IDE_LEFTPOSITION=func__screenx(); if(!qbevent)break;evnt(25224,1189,"ide_methods.bas");}while(r); } } } S_34736:; if ((-(func__totaldroppedfiles()> 0 ))||new_error){ if(qbevent){evnt(25224,1194,"ide_methods.bas");if(r)goto S_34736;} S_34737:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(func__droppedfile( 1 ,1))))||new_error){ if(qbevent){evnt(25224,1195,"ide_methods.bas");if(r)goto S_34737;} do{ qbs_set(__STRING_IDEOPENFILE,func__droppedfile( 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1196,"ide_methods.bas");}while(r); do{ sub__finishdrop(); if(!qbevent)break;evnt(25224,1197,"ide_methods.bas");}while(r); do{ goto LABEL_CTRLOPEN; if(!qbevent)break;evnt(25224,1198,"ide_methods.bas");}while(r); } do{ sub__finishdrop(); if(!qbevent)break;evnt(25224,1200,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_UPDATEHOVER= 0 ; if(!qbevent)break;evnt(25224,1204,"ide_methods.bas");}while(r); S_34745:; if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ if(qbevent){evnt(25224,1205,"ide_methods.bas");if(r)goto S_34745;} S_34746:; while((!(-(((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]<=*__LONG_IDEN)))||new_error){ if(qbevent){evnt(25224,1206,"ide_methods.bas");if(r)goto S_34746;} do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; if(!qbevent)break;evnt(25224,1208,"ide_methods.bas");}while(r); S_34748:; if ((-(*__LONG_QUICKNAVTOTAL== 0 ))||new_error){ if(qbevent){evnt(25224,1209,"ide_methods.bas");if(r)goto S_34748;} do{ goto dl_exit_3836; if(!qbevent)break;evnt(25224,1209,"ide_methods.bas");}while(r); } dl_continue_3836:; } dl_exit_3836:; } S_34753:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 ))&*__BYTE_ENABLEQUICKNAV)||new_error){ if(qbevent){evnt(25224,1213,"ide_methods.bas");if(r)goto S_34753;} S_34754:; if ((-(*__LONG_MY== 2 ))||new_error){ if(qbevent){evnt(25224,1214,"ide_methods.bas");if(r)goto S_34754;} S_34755:; if (((-(*__LONG_MX>= 4 ))&(-(*__LONG_MX<= 6 )))||new_error){ if(qbevent){evnt(25224,1215,"ide_methods.bas");if(r)goto S_34755;} S_34756:; if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== 0 ))||new_error){ if(qbevent){evnt(25224,1216,"ide_methods.bas");if(r)goto S_34756;} do{ *_FUNC_IDE2_BYTE_QUICKNAVHOVER= -1 ; if(!qbevent)break;evnt(25224,1217,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,1218,"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*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])])))),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1219,"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(25224,1220,"ide_methods.bas");}while(r); do{ qbg_sub_color( 2 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,1223,"ide_methods.bas");}while(r); S_34762:; fornext_value3838= 6 ; fornext_finalvalue3838= 4 +_FUNC_IDE2_STRING_POPUP->len; fornext_step3838= 1 ; if (fornext_step3838<0) fornext_step_negative3838=1; else fornext_step_negative3838=0; if (new_error) goto fornext_error3838; goto fornext_entrylabel3838; while(1){ fornext_value3838=fornext_step3838+(*_FUNC_IDE2_LONG_X2); fornext_entrylabel3838: *_FUNC_IDE2_LONG_X2=fornext_value3838; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3838){ if (fornext_value3838fornext_finalvalue3838) break; } fornext_error3838:; if(qbevent){evnt(25224,1224,"ide_methods.bas");if(r)goto S_34762;} 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(25224,1225,"ide_methods.bas");}while(r); fornext_continue_3837:; } fornext_exit_3837:; do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1227,"ide_methods.bas");}while(r); } S_34767:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1230,"ide_methods.bas");if(r)goto S_34767;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,1231,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]; if(!qbevent)break;evnt(25224,1232,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; if(!qbevent)break;evnt(25224,1233,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1234,"ide_methods.bas");}while(r); } }else{ do{ goto LABEL_RESTOREBGQUICKNAV; if(!qbevent)break;evnt(25224,1237,"ide_methods.bas");}while(r); } }else{ LABEL_RESTOREBGQUICKNAV:; if(qbevent){evnt(25224,1240,"ide_methods.bas");r=0;} S_34777:; if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== -1 ))||new_error){ if(qbevent){evnt(25224,1241,"ide_methods.bas");if(r)goto S_34777;} do{ *_FUNC_IDE2_BYTE_QUICKNAVHOVER= 0 ; if(!qbevent)break;evnt(25224,1242,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=17; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_17:; if(!qbevent)break;evnt(25224,1243,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=18; if (next_return_point>=return_points) more_return_points(); goto LABEL_DRAWQUICKNAV; RETURN_18:; if(!qbevent)break;evnt(25224,1244,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,1245,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1246,"ide_methods.bas");}while(r); } } } S_34786:; if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 ))))||new_error){ if(qbevent){evnt(25224,1251,"ide_methods.bas");if(r)goto S_34786;} S_34787:; if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== 0 ))||new_error){ if(qbevent){evnt(25224,1252,"ide_methods.bas");if(r)goto S_34787;} do{ qbg_sub_color( 1 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,1254,"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(25224,1255,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1256,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_FINDFIELDHOVER= -1 ; if(!qbevent)break;evnt(25224,1257,"ide_methods.bas");}while(r); } }else{ S_34794:; if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== -1 ))||new_error){ if(qbevent){evnt(25224,1260,"ide_methods.bas");if(r)goto S_34794;} do{ *_FUNC_IDE2_BYTE_FINDFIELDHOVER= 0 ; if(!qbevent)break;evnt(25224,1262,"ide_methods.bas");}while(r); do{ qbg_sub_color( 3 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,1263,"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(25224,1264,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1265,"ide_methods.bas");}while(r); } } S_34801:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 22 -__STRING_VERSIONSTRINGSTATUS->len)))&(-(*__LONG_MX<(*__LONG_IDEWX- 22 )))))||new_error){ if(qbevent){evnt(25224,1269,"ide_methods.bas");if(r)goto S_34801;} S_34802:; if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== 0 ))||new_error){ if(qbevent){evnt(25224,1271,"ide_methods.bas");if(r)goto S_34802;} do{ qbg_sub_color( 13 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,1272,"ide_methods.bas");}while(r); do{ sub__printstring(*__LONG_IDEWX- 22 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1273,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1274,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_VERSIONINFOHOVER= -1 ; if(!qbevent)break;evnt(25224,1275,"ide_methods.bas");}while(r); } S_34808:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1277,"ide_methods.bas");if(r)goto S_34808;} do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,1277,"ide_methods.bas");}while(r); do{ goto LABEL_HELPABOUT; if(!qbevent)break;evnt(25224,1277,"ide_methods.bas");}while(r); } }else{ S_34813:; if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== -1 ))||new_error){ if(qbevent){evnt(25224,1279,"ide_methods.bas");if(r)goto S_34813;} do{ *_FUNC_IDE2_BYTE_VERSIONINFOHOVER= 0 ; if(!qbevent)break;evnt(25224,1281,"ide_methods.bas");}while(r); do{ qbg_sub_color( 2 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,1282,"ide_methods.bas");}while(r); do{ sub__printstring(*__LONG_IDEWX- 22 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1283,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1284,"ide_methods.bas");}while(r); } } S_34820:; if (((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 20 )))&(-(*__LONG_MX<=*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,1288,"ide_methods.bas");if(r)goto S_34820;} S_34821:; if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== 0 ))||new_error){ if(qbevent){evnt(25224,1290,"ide_methods.bas");if(r)goto S_34821;} do{ qbg_sub_color( 13 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,1291,"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(25224,1292,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_LINENUMBERHOVER= -1 ; if(!qbevent)break;evnt(25224,1293,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1294,"ide_methods.bas");}while(r); } S_34827:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1296,"ide_methods.bas");if(r)goto S_34827;} do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,1297,"ide_methods.bas");}while(r); do{ SUB_IDEGOTOBOX(); if(!qbevent)break;evnt(25224,1298,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1299,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,1299,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1300,"ide_methods.bas");}while(r); } }else{ S_34835:; if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== -1 ))||new_error){ if(qbevent){evnt(25224,1303,"ide_methods.bas");if(r)goto S_34835;} do{ *_FUNC_IDE2_BYTE_LINENUMBERHOVER= 0 ; if(!qbevent)break;evnt(25224,1305,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,1306,"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(25224,1307,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; if(!qbevent)break;evnt(25224,1308,"ide_methods.bas");}while(r); } } S_34842:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))||new_error){ if(qbevent){evnt(25224,1312,"ide_methods.bas");if(r)goto S_34842;} S_34843:; if ((func__hasfocus())||new_error){ if(qbevent){evnt(25224,1313,"ide_methods.bas");if(r)goto S_34843;} do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1314,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,1315,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); if(!qbevent)break;evnt(25224,1316,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1318,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,1319,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,1320,"ide_methods.bas");}while(r); } } S_34853:; if ((*__LONG_KALT)||new_error){ if(qbevent){evnt(25224,1324,"ide_methods.bas");if(r)goto S_34853;} S_34854:; if (((-(*__LONG_IDEALTHIGHLIGHT== 0 ))&(-(*__LONG_KALTPRESS== -1 ))&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,1326,"ide_methods.bas");if(r)goto S_34854;} do{ *__LONG_IDEALTHIGHLIGHT= 1 ; if(!qbevent)break;evnt(25224,1328,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1329,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1329,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 4 ; if(!qbevent)break;evnt(25224,1329,"ide_methods.bas");}while(r); S_34859:; fornext_value3844= 1 ; fornext_finalvalue3844=*__INTEGER_MENUS; fornext_step3844= 1 ; if (fornext_step3844<0) fornext_step_negative3844=1; else fornext_step_negative3844=0; if (new_error) goto fornext_error3844; goto fornext_entrylabel3844; while(1){ fornext_value3844=fornext_step3844+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3844: *_FUNC_IDE2_LONG_I=fornext_value3844; if (fornext_step_negative3844){ if (fornext_value3844fornext_finalvalue3844) break; } fornext_error3844:; if(qbevent){evnt(25224,1330,"ide_methods.bas");if(r)goto S_34859;} 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(25224,1331,"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(25224,1332,"ide_methods.bas");}while(r); S_34862:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ if(qbevent){evnt(25224,1333,"ide_methods.bas");if(r)goto S_34862;} 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(25224,1333,"ide_methods.bas");}while(r); } fornext_continue_3843:; } fornext_exit_3843:; do{ *__LONG_IDEENTERMENU= 1 ; if(!qbevent)break;evnt(25224,1335,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,1337,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1337,"ide_methods.bas");}while(r); } }else{ S_34871:; if ((-(*__LONG_IDEALTHIGHLIGHT== 1 ))||new_error){ if(qbevent){evnt(25224,1341,"ide_methods.bas");if(r)goto S_34871;} do{ *__LONG_IDEALTHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,1343,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1344,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1344,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1344,"ide_methods.bas");}while(r); S_34876:; if (((-(*__LONG_IDEENTERMENU== 1 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ if(qbevent){evnt(25224,1345,"ide_methods.bas");if(r)goto S_34876;} S_34877:; if ((qbs_cleanup(qbs_tmp_base,(func__hasfocus())|(qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))))||new_error){ if(qbevent){evnt(25224,1346,"ide_methods.bas");if(r)goto S_34877;} do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); if(!qbevent)break;evnt(25224,1347,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,1348,"ide_methods.bas");}while(r); do{ *__LONG_IDEENTERMENU= 0 ; if(!qbevent)break;evnt(25224,1349,"ide_methods.bas");}while(r); do{ goto LABEL_STARTMENU; if(!qbevent)break;evnt(25224,1350,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1352,"ide_methods.bas");}while(r); } } } } S_34888:; if ((*_FUNC_IDE2_LONG_UPDATEHOVER)||new_error){ if(qbevent){evnt(25224,1359,"ide_methods.bas");if(r)goto S_34888;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1359,"ide_methods.bas");}while(r); } S_34891:; if ((-(*_FUNC_IDE2_LONG_CHANGE== 0 ))||new_error){ if(qbevent){evnt(25224,1361,"ide_methods.bas");if(r)goto S_34891;} S_34892:; if ((*__LONG_IDECOMPILING)||new_error){ if(qbevent){evnt(25224,1364,"ide_methods.bas");if(r)goto S_34892;} S_34893:; if ((*_FUNC_IDE2_LONG_SENDNEXTLINE)||new_error){ if(qbevent){evnt(25224,1365,"ide_methods.bas");if(r)goto S_34893;} S_34894:; if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,1366,"ide_methods.bas");if(r)goto S_34894;} do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; if(!qbevent)break;evnt(25224,1367,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 4 ; if(!qbevent)break;evnt(25224,1368,"ide_methods.bas");}while(r); S_34897:; if ((*_FUNC_IDE2_LONG_PASSBACK)||new_error){ if(qbevent){evnt(25224,1369,"ide_methods.bas");if(r)goto S_34897;} do{ qbs_set(__STRING_IDECOMPILEDLINE,_FUNC_IDE2_STRING_PASSBACK); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1370,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1371,"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(25224,1373,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1374,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,1376,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_IDE2= 5 ; if(!qbevent)break;evnt(25224,1379,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,1383,"ide_methods.bas");}while(r); } } } do{ sub__limit( 16 ); if(!qbevent)break;evnt(25224,1388,"ide_methods.bas");}while(r); do{ goto LABEL_WAITFORINPUT; if(!qbevent)break;evnt(25224,1390,"ide_methods.bas");}while(r); } do{ *__LONG_IDEENTERMENU= 0 ; if(!qbevent)break;evnt(25224,1393,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO- 1 ; if(!qbevent)break;evnt(25224,1395,"ide_methods.bas");}while(r); S_34916:; if ((-(*__LONG_IDEUNDOCOMBO< 0 ))||new_error){ if(qbevent){evnt(25224,1396,"ide_methods.bas");if(r)goto S_34916;} do{ *__LONG_IDEUNDOCOMBO= 0 ; if(!qbevent)break;evnt(25224,1396,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,1398,"ide_methods.bas");}while(r); S_34920:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1402,"ide_methods.bas");if(r)goto S_34920;} S_34921:; if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=*__LONG_IDEWX))&(-(*__LONG_MY>=(*__LONG_IDEWY- 3 )))&(-(*__LONG_MY<=(*__LONG_IDEWY- 1 ))))||new_error){ if(qbevent){evnt(25224,1403,"ide_methods.bas");if(r)goto S_34921;} S_34922:; if ((-((func_screen(*__LONG_MY,*__LONG_MX, 1 ,1))==(( 11 )+( 1 * 16 ))))||new_error){ if(qbevent){evnt(25224,1404,"ide_methods.bas");if(r)goto S_34922;} S_34923:; if(qbevent){evnt(25224,1406,"ide_methods.bas");if(r)goto S_34923;} S_34924:; if (((*__INTEGER_STATUSAREALINK==( 1 )))||new_error){ if(qbevent){evnt(25224,1407,"ide_methods.bas");if(r)goto S_34924;} S_34925:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(25224,1409,"ide_methods.bas");if(r)goto S_34925;} do{ sub_shell3(FUNC_QUOTEDFILENAME(__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1410,"ide_methods.bas");}while(r); S_34927:; }else{ if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ if(qbevent){evnt(25224,1411,"ide_methods.bas");if(r)goto S_34927;} 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(25224,1412,"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(25224,1414,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1416,"ide_methods.bas");}while(r); sc_ec_178_end:; goto sc_3847_end; } S_34933:; if (((*__INTEGER_STATUSAREALINK==( 2 )))||new_error){ if(qbevent){evnt(25224,1417,"ide_methods.bas");if(r)goto S_34933;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,1419,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,1420,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEFOCUSLINE; if(!qbevent)break;evnt(25224,1421,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,1422,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1423,"ide_methods.bas");}while(r); sc_ec_179_end:; goto sc_3847_end; } S_34939:; if (((*__INTEGER_STATUSAREALINK==( 3 )))||new_error){ if(qbevent){evnt(25224,1424,"ide_methods.bas");if(r)goto S_34939;} S_34940:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(25224,1426,"ide_methods.bas");if(r)goto S_34940;} 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(25224,1427,"ide_methods.bas");}while(r); S_34942:; }else{ if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ if(qbevent){evnt(25224,1428,"ide_methods.bas");if(r)goto S_34942;} 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(25224,1429,"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(25224,1431,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1433,"ide_methods.bas");}while(r); sc_ec_180_end:; goto sc_3847_end; } S_34948:; if (((*__INTEGER_STATUSAREALINK==( 4 )))||new_error){ if(qbevent){evnt(25224,1434,"ide_methods.bas");if(r)goto S_34948;} do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); if(!qbevent)break;evnt(25224,1436,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1438,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,1438,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1439,"ide_methods.bas");}while(r); sc_ec_181_end:; goto sc_3847_end; } sc_3847_end:; } } } S_34957:; if ((-(*__LONG_KB== 34048 ))||new_error){ if(qbevent){evnt(25224,1445,"ide_methods.bas");if(r)goto S_34957;} LABEL_IDEMEXE:; if(qbevent){evnt(25224,1446,"ide_methods.bas");r=0;} do{ *__LONG_IDERUNMODE= 2 ; if(!qbevent)break;evnt(25224,1447,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUNSPECIAL; if(!qbevent)break;evnt(25224,1448,"ide_methods.bas");}while(r); } S_34961:; if ((-(*__LONG_KB== 16128 ))||new_error){ if(qbevent){evnt(25224,1451,"ide_methods.bas");if(r)goto S_34961;} LABEL_IDEMRUN:; if(qbevent){evnt(25224,1452,"ide_methods.bas");r=0;} do{ *__LONG_IDERUNMODE= 1 ; if(!qbevent)break;evnt(25224,1453,"ide_methods.bas");}while(r); LABEL_IDEMRUNSPECIAL:; if(qbevent){evnt(25224,1454,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= -1 ; if(!qbevent)break;evnt(25224,1456,"ide_methods.bas");}while(r); S_34964:; if ((-(*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG== 0 ))||new_error){ if(qbevent){evnt(25224,1458,"ide_methods.bas");if(r)goto S_34964;} S_34965:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(25224,1459,"ide_methods.bas");if(r)goto S_34965;} 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(25224,1462,"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 QB64 folder. You can",58),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(25224,1466,"ide_methods.bas");}while(r); } S_34970:; if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ if(qbevent){evnt(25224,1468,"ide_methods.bas");if(r)goto S_34970;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1469,"ide_methods.bas");}while(r); do{ *__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; if(!qbevent)break;evnt(25224,1470,"ide_methods.bas");}while(r); S_34973:; }else{ if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ if(qbevent){evnt(25224,1471,"ide_methods.bas");if(r)goto S_34973;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1472,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,1472,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1473,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,1474,"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(25224,1475,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1476,"ide_methods.bas");}while(r); } } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1479,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,1479,"ide_methods.bas");}while(r); S_34984:; if (((-(*_FUNC_IDE2_LONG_READY!= 0 ))&(-(*__INTEGER_IDECHANGEMADE== 0 )))||new_error){ if(qbevent){evnt(25224,1482,"ide_methods.bas");if(r)goto S_34984;} do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1484,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,1485,"ide_methods.bas");}while(r); S_34987:; if ((*__LONG_IDECOMPILED)||new_error){ if(qbevent){evnt(25224,1487,"ide_methods.bas");if(r)goto S_34987;} S_34988:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDERUNMODE== 2 ))&(func__fileexists(__STRING_LASTBINARYGENERATED))))||new_error){ if(qbevent){evnt(25224,1489,"ide_methods.bas");if(r)goto S_34988;} S_34989:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,1490,"ide_methods.bas");if(r)goto S_34989;} 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(25224,1491,"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(25224,1493,"ide_methods.bas");}while(r); } do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,1496,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1497,"ide_methods.bas");}while(r); S_34996:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,1498,"ide_methods.bas");if(r)goto S_34996;} 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(25224,1498,"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(25224,1499,"ide_methods.bas");}while(r); S_35000:; if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,1500,"ide_methods.bas");if(r)goto S_35000;} 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(25224,1501,"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(25224,1503,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 3 ; if(!qbevent)break;evnt(25224,1504,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1507,"ide_methods.bas");}while(r); S_35006:; }else{ if (qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_LASTBINARYGENERATED)== 0 ))){ if(qbevent){evnt(25224,1508,"ide_methods.bas");if(r)goto S_35006;} do{ *__LONG_IDECOMPILED= 0 ; if(!qbevent)break;evnt(25224,1509,"ide_methods.bas");}while(r); do{ goto LABEL_MUSTGENERATEEXE; if(!qbevent)break;evnt(25224,1510,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3849= 1 )); if(!qbevent)break;evnt(25224,1513,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; if(!qbevent)break;evnt(25224,1514,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,1514,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=19; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_19:; if(!qbevent)break;evnt(25224,1514,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; if(!qbevent)break;evnt(25224,1514,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1515,"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(25224,1515,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,1516,"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(25224,1517,"ide_methods.bas");}while(r); }else{ LABEL_MUSTGENERATEEXE:; if(qbevent){evnt(25224,1519,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3850= 1 )); if(!qbevent)break;evnt(25224,1520,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; if(!qbevent)break;evnt(25224,1521,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,1521,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=20; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_20:; if(!qbevent)break;evnt(25224,1521,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; if(!qbevent)break;evnt(25224,1521,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1522,"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(25224,1522,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,1523,"ide_methods.bas");}while(r); S_35028:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,1524,"ide_methods.bas");if(r)goto S_35028;} 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(25224,1525,"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(25224,1527,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1531,"ide_methods.bas");}while(r); S_35035:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,1535,"ide_methods.bas");if(r)goto S_35035;} 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(25224,1536,"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(25224,1538,"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(25224,1539,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_IDE2= 9 ; if(!qbevent)break;evnt(25224,1541,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1541,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,1542,"ide_methods.bas");}while(r); } S_35045:; if ((-(*_FUNC_IDE2_LONG_FAILED== 1 ))||new_error){ if(qbevent){evnt(25224,1545,"ide_methods.bas");if(r)goto S_35045;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1545,"ide_methods.bas");}while(r); } do{ *__LONG_IDEAUTORUN= 1 ; if(!qbevent)break;evnt(25224,1547,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1550,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,1551,"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(25224,1553,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,1556,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1557,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1558,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1560,"ide_methods.bas");}while(r); } do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1563,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); if(!qbevent)break;evnt(25224,1564,"ide_methods.bas");}while(r); S_35059:; if ((((*__LONG_MCLICK|*__LONG_MCLICK2))&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ if(qbevent){evnt(25224,1566,"ide_methods.bas");if(r)goto S_35059;} S_35060:; if ((-(*__LONG_MY== 1 ))||new_error){ if(qbevent){evnt(25224,1567,"ide_methods.bas");if(r)goto S_35060;} do{ *_FUNC_IDE2_LONG_X= 3 ; if(!qbevent)break;evnt(25224,1568,"ide_methods.bas");}while(r); S_35062:; fornext_value3852= 1 ; fornext_finalvalue3852=*__INTEGER_MENUS; fornext_step3852= 1 ; if (fornext_step3852<0) fornext_step_negative3852=1; else fornext_step_negative3852=0; if (new_error) goto fornext_error3852; goto fornext_entrylabel3852; while(1){ fornext_value3852=fornext_step3852+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3852: *_FUNC_IDE2_LONG_I=fornext_value3852; if (fornext_step_negative3852){ if (fornext_value3852fornext_finalvalue3852) break; } fornext_error3852:; if(qbevent){evnt(25224,1569,"ide_methods.bas");if(r)goto S_35062;} 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(25224,1570,"ide_methods.bas");}while(r); S_35064:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ if(qbevent){evnt(25224,1571,"ide_methods.bas");if(r)goto S_35064;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,1572,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,1573,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; if(!qbevent)break;evnt(25224,1575,"ide_methods.bas");}while(r); S_35069:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ if(qbevent){evnt(25224,1576,"ide_methods.bas");if(r)goto S_35069;} 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(25224,1576,"ide_methods.bas");}while(r); } fornext_continue_3851:; } fornext_exit_3851:; } } S_35075:; fornext_value3856= 1 ; fornext_finalvalue3856=*__INTEGER_MENUS; 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_IDE2_LONG_I); fornext_entrylabel3856: *_FUNC_IDE2_LONG_I=fornext_value3856; if (fornext_step_negative3856){ if (fornext_value3856fornext_finalvalue3856) break; } fornext_error3856:; if(qbevent){evnt(25224,1581,"ide_methods.bas");if(r)goto S_35075;} 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(25224,1582,"ide_methods.bas");}while(r); S_35077:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KALT&(qbs_equal(qbs_ucase(__STRING_K),_FUNC_IDE2_STRING_A))))||new_error){ if(qbevent){evnt(25224,1583,"ide_methods.bas");if(r)goto S_35077;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,1584,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1585,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1585,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1586,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,1587,"ide_methods.bas");}while(r); } fornext_continue_3855:; } fornext_exit_3855:; S_35085:; 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(25224,1591,"ide_methods.bas");if(r)goto S_35085;} do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1592,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,1593,"ide_methods.bas");}while(r); S_35088:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ if(qbevent){evnt(25224,1594,"ide_methods.bas");if(r)goto S_35088;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; if(!qbevent)break;evnt(25224,1594,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; if(!qbevent)break;evnt(25224,1594,"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(25224,1594,"ide_methods.bas");}while(r); } } S_35094:; 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(25224,1597,"ide_methods.bas");if(r)goto S_35094;} do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1598,"ide_methods.bas");}while(r); do{ goto LABEL_IDEQUICKKEYCODE; if(!qbevent)break;evnt(25224,1599,"ide_methods.bas");}while(r); } S_35098:; if ((*__LONG_KCTRL&(-(*__LONG_KB== 15616 )))||new_error){ if(qbevent){evnt(25224,1603,"ide_methods.bas");if(r)goto S_35098;} S_35099:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1604,"ide_methods.bas");if(r)goto S_35099;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1604,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDJMP; if(!qbevent)break;evnt(25224,1605,"ide_methods.bas");}while(r); } S_35104:; if ((*__LONG_KALT&(-(*__LONG_KB== 15616 )))||new_error){ if(qbevent){evnt(25224,1608,"ide_methods.bas");if(r)goto S_35104;} S_35105:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1609,"ide_methods.bas");if(r)goto S_35105;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1609,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDCHANGEJMP; if(!qbevent)break;evnt(25224,1610,"ide_methods.bas");}while(r); } S_35110:; if ((-(*__LONG_KB== 15616 ))||new_error){ if(qbevent){evnt(25224,1613,"ide_methods.bas");if(r)goto S_35110;} S_35111:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1614,"ide_methods.bas");if(r)goto S_35111;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1614,"ide_methods.bas");}while(r); } LABEL_IDEMF3:; if(qbevent){evnt(25224,1615,"ide_methods.bas");r=0;} S_35114:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,1616,"ide_methods.bas");if(r)goto S_35114;} S_35115:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,1617,"ide_methods.bas");if(r)goto S_35115;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; if(!qbevent)break;evnt(25224,1618,"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(25224,1619,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; if(!qbevent)break;evnt(25224,1620,"ide_methods.bas");}while(r); } do{ return_point[next_return_point++]=21; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_21:; if(!qbevent)break;evnt(25224,1622,"ide_methods.bas");}while(r); S_35121:; if ((*__LONG_KSHIFT)||new_error){ if(qbevent){evnt(25224,1623,"ide_methods.bas");if(r)goto S_35121;} do{ *__INTEGER_IDEFINDINVERT= 1 ; if(!qbevent)break;evnt(25224,1623,"ide_methods.bas");}while(r); } do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1624,"ide_methods.bas");}while(r); do{ SUB_IDEFINDAGAIN(&(pass3860= -1 )); if(!qbevent)break;evnt(25224,1625,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDEFINDJMP; if(!qbevent)break;evnt(25224,1627,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1629,"ide_methods.bas");}while(r); } S_35131:; if ((*__LONG_KSHIFT&(-(*__LONG_KB== 15104 )))||new_error){ if(qbevent){evnt(25224,1632,"ide_methods.bas");if(r)goto S_35131;} S_35132:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,1633,"ide_methods.bas");if(r)goto S_35132;} do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; if(!qbevent)break;evnt(25224,1634,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,1634,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; if(!qbevent)break;evnt(25224,1635,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; if(!qbevent)break;evnt(25224,1636,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,1637,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,1638,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,1639,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=22; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_22:; if(!qbevent)break;evnt(25224,1639,"ide_methods.bas");}while(r); } do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,1641,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1642,"ide_methods.bas");}while(r); } do{ if(!qbevent)break;evnt(25224,1647,"ide_methods.bas");}while(r); S_35151:; if ((-(*__LONG_MB== 0 ))||new_error){ if(qbevent){evnt(25224,1649,"ide_methods.bas");if(r)goto S_35151;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 0 ; if(!qbevent)break;evnt(25224,1649,"ide_methods.bas");}while(r); } S_35154:; if ((*__LONG_IDEHELP)||new_error){ if(qbevent){evnt(25224,1650,"ide_methods.bas");if(r)goto S_35154;} S_35155:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1651,"ide_methods.bas");if(r)goto S_35155;} S_35156:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1654,"ide_methods.bas");if(r)goto S_35156;} S_35157:; if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))&(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ))))||new_error){ if(qbevent){evnt(25224,1655,"ide_methods.bas");if(r)goto S_35157;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 1 ; if(!qbevent)break;evnt(25224,1656,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass3861= 2 ),&(pass3862=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3863=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3864=*__LONG_HELP_W+ 1 )); if(!qbevent)break;evnt(25224,1657,"ide_methods.bas");}while(r); S_35160:; if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MX))||new_error){ if(qbevent){evnt(25224,1658,"ide_methods.bas");if(r)goto S_35160;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; if(!qbevent)break;evnt(25224,1658,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; if(!qbevent)break;evnt(25224,1658,"ide_methods.bas");}while(r); } S_35165:; if ((-(*__LONG_MX== 2 ))||new_error){ if(qbevent){evnt(25224,1659,"ide_methods.bas");if(r)goto S_35165;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; if(!qbevent)break;evnt(25224,1659,"ide_methods.bas");}while(r); } S_35168:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ if(qbevent){evnt(25224,1660,"ide_methods.bas");if(r)goto S_35168;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; if(!qbevent)break;evnt(25224,1660,"ide_methods.bas");}while(r); } } S_35172:; if (((-(*__LONG_MY>=(*__LONG_IDEWY+ 1 )))&(-(*__LONG_MY<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))&(-(*__LONG_MX==*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,1662,"ide_methods.bas");if(r)goto S_35172;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 2 ; if(!qbevent)break;evnt(25224,1663,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3865=*__LONG_IDEWY+ 1 ),&(pass3866=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3867=*__LONG_HELP_H+ 1 )); if(!qbevent)break;evnt(25224,1664,"ide_methods.bas");}while(r); S_35175:; if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MY))||new_error){ if(qbevent){evnt(25224,1665,"ide_methods.bas");if(r)goto S_35175;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; if(!qbevent)break;evnt(25224,1665,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; if(!qbevent)break;evnt(25224,1665,"ide_methods.bas");}while(r); } S_35180:; if ((-(*__LONG_MY==(*__LONG_IDEWY+ 1 )))||new_error){ if(qbevent){evnt(25224,1666,"ide_methods.bas");if(r)goto S_35180;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; if(!qbevent)break;evnt(25224,1666,"ide_methods.bas");}while(r); } S_35183:; if ((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))||new_error){ if(qbevent){evnt(25224,1667,"ide_methods.bas");if(r)goto S_35183;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; if(!qbevent)break;evnt(25224,1667,"ide_methods.bas");}while(r); } } } S_35188:; if ((*_FUNC_IDE2_LONG_HELP_SCROLLBAR)||new_error){ if(qbevent){evnt(25224,1671,"ide_methods.bas");if(r)goto S_35188;} do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,1672,"ide_methods.bas");}while(r); S_35190:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 1 ))||new_error){ if(qbevent){evnt(25224,1673,"ide_methods.bas");if(r)goto S_35190;} S_35191:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ if(qbevent){evnt(25224,1674,"ide_methods.bas");if(r)goto S_35191;} do{ *__LONG_KB= 19200 ; if(!qbevent)break;evnt(25224,1674,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1674,"ide_methods.bas");}while(r); } S_35195:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ if(qbevent){evnt(25224,1675,"ide_methods.bas");if(r)goto S_35195;} do{ *__LONG_KB= 18432 ; if(!qbevent)break;evnt(25224,1675,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1675,"ide_methods.bas");}while(r); } } S_35200:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 2 ))||new_error){ if(qbevent){evnt(25224,1677,"ide_methods.bas");if(r)goto S_35200;} S_35201:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ if(qbevent){evnt(25224,1678,"ide_methods.bas");if(r)goto S_35201;} do{ *__LONG_KB= 19712 ; if(!qbevent)break;evnt(25224,1678,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1678,"ide_methods.bas");}while(r); } S_35205:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ if(qbevent){evnt(25224,1679,"ide_methods.bas");if(r)goto S_35205;} do{ *__LONG_KB= 20480 ; if(!qbevent)break;evnt(25224,1679,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1679,"ide_methods.bas");}while(r); } } S_35210:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 3 ))||new_error){ if(qbevent){evnt(25224,1681,"ide_methods.bas");if(r)goto S_35210;} S_35211:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ if(qbevent){evnt(25224,1682,"ide_methods.bas");if(r)goto S_35211;} do{ *_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass3868= 2 ),&(pass3869=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3870=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3871=*__LONG_HELP_W+ 1 )); if(!qbevent)break;evnt(25224,1683,"ide_methods.bas");}while(r); S_35213:; if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_V))||new_error){ if(qbevent){evnt(25224,1684,"ide_methods.bas");if(r)goto S_35213;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 8 ; if(!qbevent)break;evnt(25224,1685,"ide_methods.bas");}while(r); S_35215:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ if(qbevent){evnt(25224,1686,"ide_methods.bas");if(r)goto S_35215;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,1686,"ide_methods.bas");}while(r); } S_35218:; if ((-(*__LONG_HELP_SX>*__LONG_HELP_CX))||new_error){ if(qbevent){evnt(25224,1687,"ide_methods.bas");if(r)goto S_35218;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,1687,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1688,"ide_methods.bas");}while(r); } S_35223:; if ((-(*__LONG_MX>*_FUNC_IDE2_LONG_V))||new_error){ if(qbevent){evnt(25224,1690,"ide_methods.bas");if(r)goto S_35223;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 8 ; if(!qbevent)break;evnt(25224,1691,"ide_methods.bas");}while(r); S_35225:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ if(qbevent){evnt(25224,1692,"ide_methods.bas");if(r)goto S_35225;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; if(!qbevent)break;evnt(25224,1692,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1693,"ide_methods.bas");}while(r); } } S_35231:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ if(qbevent){evnt(25224,1696,"ide_methods.bas");if(r)goto S_35231;} do{ *_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3872=*__LONG_IDEWY+ 1 ),&(pass3873=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3874=*__LONG_HELP_H+ 1 )); if(!qbevent)break;evnt(25224,1697,"ide_methods.bas");}while(r); S_35233:; if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_V))||new_error){ if(qbevent){evnt(25224,1698,"ide_methods.bas");if(r)goto S_35233;} do{ *__LONG_KB= 18688 ; if(!qbevent)break;evnt(25224,1698,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1698,"ide_methods.bas");}while(r); } S_35237:; if ((-(*__LONG_MY>*_FUNC_IDE2_LONG_V))||new_error){ if(qbevent){evnt(25224,1699,"ide_methods.bas");if(r)goto S_35237;} do{ *__LONG_KB= 20736 ; if(!qbevent)break;evnt(25224,1699,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,1699,"ide_methods.bas");}while(r); } } } S_35243:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 4 ))||new_error){ if(qbevent){evnt(25224,1706,"ide_methods.bas");if(r)goto S_35243;} S_35244:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ if(qbevent){evnt(25224,1707,"ide_methods.bas");if(r)goto S_35244;} S_35245:; if ((-(*__LONG_HELP_W> 1 ))||new_error){ if(qbevent){evnt(25224,1708,"ide_methods.bas");if(r)goto S_35245;} S_35246:; if ((-(*__LONG_MX<= 3 ))||new_error){ if(qbevent){evnt(25224,1709,"ide_methods.bas");if(r)goto S_35246;} do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(25224,1710,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,1710,"ide_methods.bas");}while(r); S_35249:; }else{ if (-(*__LONG_MX>=(*__LONG_IDEWX- 2 ))){ if(qbevent){evnt(25224,1711,"ide_methods.bas");if(r)goto S_35249;} do{ *__LONG_HELP_SX=*__LONG_HELP_W+ 1 ; if(!qbevent)break;evnt(25224,1712,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; if(!qbevent)break;evnt(25224,1712,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X=*__LONG_MX; if(!qbevent)break;evnt(25224,1714,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 4 + 0.5E+0 ; if(!qbevent)break;evnt(25224,1715,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDEWX- 3 - 3 ); if(!qbevent)break;evnt(25224,1716,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_W)+( 1 )); if(!qbevent)break;evnt(25224,1717,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,1718,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,1718,"ide_methods.bas");}while(r); } } } } S_35262:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ if(qbevent){evnt(25224,1722,"ide_methods.bas");if(r)goto S_35262;} S_35263:; if ((-(*__LONG_HELP_H> 1 ))||new_error){ if(qbevent){evnt(25224,1723,"ide_methods.bas");if(r)goto S_35263;} S_35264:; if ((-(*__LONG_MY<=(*__LONG_IDEWY+ 2 )))||new_error){ if(qbevent){evnt(25224,1725,"ide_methods.bas");if(r)goto S_35264;} do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,1726,"ide_methods.bas");}while(r); S_35266:; }else{ if (-(*__LONG_MY>=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 3 ))){ if(qbevent){evnt(25224,1727,"ide_methods.bas");if(r)goto S_35266;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,1728,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY; if(!qbevent)break;evnt(25224,1730,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y-*__LONG_IDEWY- 3 + 0.5E+0 ; if(!qbevent)break;evnt(25224,1731,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDESUBWINDOW- 3 - 3 ); if(!qbevent)break;evnt(25224,1732,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_H)+( 1 )); if(!qbevent)break;evnt(25224,1733,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,1734,"ide_methods.bas");}while(r); } } S_35275:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ if(qbevent){evnt(25224,1737,"ide_methods.bas");if(r)goto S_35275;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,1737,"ide_methods.bas");}while(r); } S_35278:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ if(qbevent){evnt(25224,1738,"ide_methods.bas");if(r)goto S_35278;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; if(!qbevent)break;evnt(25224,1738,"ide_methods.bas");}while(r); } S_35281:; if ((-(*__LONG_HELP_CY< 1 ))||new_error){ if(qbevent){evnt(25224,1739,"ide_methods.bas");if(r)goto S_35281;} do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,1739,"ide_methods.bas");}while(r); } S_35284:; if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ if(qbevent){evnt(25224,1740,"ide_methods.bas");if(r)goto S_35284;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,1740,"ide_methods.bas");}while(r); } S_35287:; if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ if(qbevent){evnt(25224,1742,"ide_methods.bas");if(r)goto S_35287;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,1742,"ide_methods.bas");}while(r); } S_35290:; if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ if(qbevent){evnt(25224,1743,"ide_methods.bas");if(r)goto S_35290;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; if(!qbevent)break;evnt(25224,1743,"ide_methods.bas");}while(r); } S_35293:; if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ if(qbevent){evnt(25224,1744,"ide_methods.bas");if(r)goto S_35293;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,1744,"ide_methods.bas");}while(r); } S_35296:; if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ if(qbevent){evnt(25224,1745,"ide_methods.bas");if(r)goto S_35296;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; if(!qbevent)break;evnt(25224,1745,"ide_methods.bas");}while(r); } S_35299:; if ((-(*__LONG_HELP_SX< 1 ))||new_error){ if(qbevent){evnt(25224,1747,"ide_methods.bas");if(r)goto S_35299;} do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(25224,1747,"ide_methods.bas");}while(r); } S_35302:; if ((-(*__LONG_HELP_SY< 1 ))||new_error){ if(qbevent){evnt(25224,1748,"ide_methods.bas");if(r)goto S_35302;} do{ *__LONG_HELP_SY= 1 ; if(!qbevent)break;evnt(25224,1748,"ide_methods.bas");}while(r); } } } } S_35308:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1769,"ide_methods.bas");if(r)goto S_35308;} do{ *__LONG_MCLICK= 0 ; if(!qbevent)break;evnt(25224,1769,"ide_methods.bas");}while(r); } } } } S_35314:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,1780,"ide_methods.bas");if(r)goto S_35314;} S_35315:; if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ if(qbevent){evnt(25224,1781,"ide_methods.bas");if(r)goto S_35315;} S_35316:; if ((-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 )))||new_error){ if(qbevent){evnt(25224,1782,"ide_methods.bas");if(r)goto S_35316;} S_35317:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len== 0 )))||new_error){ if(qbevent){evnt(25224,1783,"ide_methods.bas");if(r)goto S_35317;} do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,1784,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1785,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; if(!qbevent)break;evnt(25224,1785,"ide_methods.bas");}while(r); }else{ do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1787,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1788,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; if(!qbevent)break;evnt(25224,1788,"ide_methods.bas");}while(r); } }else{ S_35327:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 3 )))||new_error){ if(qbevent){evnt(25224,1791,"ide_methods.bas");if(r)goto S_35327;} LABEL_SHOWRECENTLYSEARCHEDBOX:; if(qbevent){evnt(25224,1792,"ide_methods.bas");r=0;} do{ sub_pcopy( 0 , 3 ); if(!qbevent)break;evnt(25224,1793,"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(25224,1794,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDESEARCHEDBOX()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1795,"ide_methods.bas");}while(r); S_35331:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ if(qbevent){evnt(25224,1796,"ide_methods.bas");if(r)goto S_35331;} do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1796,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,1797,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,1797,"ide_methods.bas");}while(r); do{ *__LONG_IDEALTHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,1798,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,1799,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,1799,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1799,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1800,"ide_methods.bas");}while(r); S_35341:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ if(qbevent){evnt(25224,1801,"ide_methods.bas");if(r)goto S_35341;} do{ goto LABEL_IDEMF3; if(!qbevent)break;evnt(25224,1801,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,1802,"ide_methods.bas");}while(r); }else{ S_35346:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,1804,"ide_methods.bas");if(r)goto S_35346;} S_35347:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1805,"ide_methods.bas");if(r)goto S_35347;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1805,"ide_methods.bas");}while(r); } S_35350:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len<= 20 )))||new_error){ if(qbevent){evnt(25224,1807,"ide_methods.bas");if(r)goto S_35350;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); if(!qbevent)break;evnt(25224,1808,"ide_methods.bas");}while(r); }else{ S_35353:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ if(qbevent){evnt(25224,1810,"ide_methods.bas");if(r)goto S_35353;} 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(25224,1811,"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(25224,1813,"ide_methods.bas");}while(r); } } }else{ do{ *__LONG_IDESYSTEM= 2 ; if(!qbevent)break;evnt(25224,1817,"ide_methods.bas");}while(r); S_35361:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ if(qbevent){evnt(25224,1818,"ide_methods.bas");if(r)goto S_35361;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; if(!qbevent)break;evnt(25224,1818,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; if(!qbevent)break;evnt(25224,1818,"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(25224,1818,"ide_methods.bas");}while(r); } } } } } } S_35371:; if ((-(*__LONG_KB== 16384 ))||new_error){ if(qbevent){evnt(25224,1827,"ide_methods.bas");if(r)goto S_35371;} S_35372:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ if(qbevent){evnt(25224,1828,"ide_methods.bas");if(r)goto S_35372;} S_35373:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1829,"ide_methods.bas");if(r)goto S_35373;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1830,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,1832,"ide_methods.bas");}while(r); } } } S_35380:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ if(qbevent){evnt(25224,1837,"ide_methods.bas");if(r)goto S_35380;} S_35381:; if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,1838,"ide_methods.bas");if(r)goto S_35381;} S_35382:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,1839,"ide_methods.bas");if(r)goto S_35382;} S_35383:; if (((-(*__LONG_MY>= 2 ))&(-(*__LONG_MY<*__LONG_IDEWY)))||new_error){ if(qbevent){evnt(25224,1840,"ide_methods.bas");if(r)goto S_35383;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1841,"ide_methods.bas");}while(r); } }else{ S_35387:; if (((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ if(qbevent){evnt(25224,1844,"ide_methods.bas");if(r)goto S_35387;} do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,1845,"ide_methods.bas");}while(r); } } S_35391:; if ((*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,1849,"ide_methods.bas");if(r)goto S_35391;} do{ goto LABEL_INVOKECONTEXTUALMENU; if(!qbevent)break;evnt(25224,1850,"ide_methods.bas");}while(r); } } } S_35396:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,1855,"ide_methods.bas");if(r)goto S_35396;} do{ *_FUNC_IDE2_LONG_Z= 0 ; if(!qbevent)break;evnt(25224,1856,"ide_methods.bas");}while(r); S_35398:; if (((*__LONG_KALT&(-(*__LONG_KB== 18432 )))|(*__LONG_KALT&(-(*__LONG_KB== 20480 ))))||new_error){ if(qbevent){evnt(25224,1857,"ide_methods.bas");if(r)goto S_35398;} do{ goto LABEL_SHOWRECENTLYSEARCHEDBOX; if(!qbevent)break;evnt(25224,1857,"ide_methods.bas");}while(r); } S_35401:; if ((-(*__LONG_KB== 18432 ))||new_error){ if(qbevent){evnt(25224,1858,"ide_methods.bas");if(r)goto S_35401;} do{ *_FUNC_IDE2_LONG_Z= 1 ; if(!qbevent)break;evnt(25224,1858,"ide_methods.bas");}while(r); } S_35404:; if ((-(*__LONG_KB== 20480 ))||new_error){ if(qbevent){evnt(25224,1859,"ide_methods.bas");if(r)goto S_35404;} do{ *_FUNC_IDE2_LONG_Z= 1 ; if(!qbevent)break;evnt(25224,1859,"ide_methods.bas");}while(r); } S_35407:; if ((-(*__LONG_KB== 18688 ))||new_error){ if(qbevent){evnt(25224,1860,"ide_methods.bas");if(r)goto S_35407;} do{ *_FUNC_IDE2_LONG_Z= 1 ; if(!qbevent)break;evnt(25224,1860,"ide_methods.bas");}while(r); } S_35410:; if ((-(*__LONG_KB== 20736 ))||new_error){ if(qbevent){evnt(25224,1861,"ide_methods.bas");if(r)goto S_35410;} do{ *_FUNC_IDE2_LONG_Z= 1 ; if(!qbevent)break;evnt(25224,1861,"ide_methods.bas");}while(r); } S_35413:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,1862,"ide_methods.bas");if(r)goto S_35413;} do{ *_FUNC_IDE2_LONG_Z= 1 ; if(!qbevent)break;evnt(25224,1862,"ide_methods.bas");}while(r); } S_35416:; if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ if(qbevent){evnt(25224,1863,"ide_methods.bas");if(r)goto S_35416;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1863,"ide_methods.bas");}while(r); } } S_35420:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,1866,"ide_methods.bas");if(r)goto S_35420;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1867,"ide_methods.bas");}while(r); S_35422:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,1868,"ide_methods.bas");if(r)goto S_35422;} do{ *_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1869,"ide_methods.bas");}while(r); S_35424:; 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(25224,1870,"ide_methods.bas");if(r)goto S_35424;} LABEL_PASTEINTOSEARCHFIELD:; if(qbevent){evnt(25224,1871,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1872,"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(25224,1873,"ide_methods.bas");}while(r); S_35427:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,1874,"ide_methods.bas");if(r)goto S_35427;} 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(25224,1874,"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(25224,1875,"ide_methods.bas");}while(r); S_35431:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,1876,"ide_methods.bas");if(r)goto S_35431;} 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(25224,1876,"ide_methods.bas");}while(r); } S_35434:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ if(qbevent){evnt(25224,1877,"ide_methods.bas");if(r)goto S_35434;} S_35435:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1878,"ide_methods.bas");if(r)goto S_35435;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1879,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1879,"ide_methods.bas");}while(r); S_35438:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1880,"ide_methods.bas");if(r)goto S_35438;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1880,"ide_methods.bas");}while(r); } S_35441:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1881,"ide_methods.bas");if(r)goto S_35441;} 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(25224,1882,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; if(!qbevent)break;evnt(25224,1883,"ide_methods.bas");}while(r); S_35444:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,1884,"ide_methods.bas");if(r)goto S_35444;} 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(25224,1885,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1887,"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(25224,1890,"ide_methods.bas");}while(r); S_35451:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,1891,"ide_methods.bas");if(r)goto S_35451;} 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(25224,1891,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_K= 255 ; if(!qbevent)break;evnt(25224,1894,"ide_methods.bas");}while(r); } S_35458:; 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(25224,1897,"ide_methods.bas");if(r)goto S_35458;} LABEL_SELECTALLINSEARCHFIELD:; if(qbevent){evnt(25224,1898,"ide_methods.bas");r=0;} S_35459:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 0 )))||new_error){ if(qbevent){evnt(25224,1899,"ide_methods.bas");if(r)goto S_35459;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; if(!qbevent)break;evnt(25224,1900,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; if(!qbevent)break;evnt(25224,1901,"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(25224,1902,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_K= 255 ; if(!qbevent)break;evnt(25224,1904,"ide_methods.bas");}while(r); } S_35466:; 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(25224,1907,"ide_methods.bas");if(r)goto S_35466;} LABEL_COPYSEARCHTERM2CLIP:; if(qbevent){evnt(25224,1908,"ide_methods.bas");r=0;} S_35467:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1909,"ide_methods.bas");if(r)goto S_35467;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1910,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1910,"ide_methods.bas");}while(r); S_35470:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1911,"ide_methods.bas");if(r)goto S_35470;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1911,"ide_methods.bas");}while(r); } S_35473:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1912,"ide_methods.bas");if(r)goto S_35473;} do{ sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1912,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_K= 255 ; if(!qbevent)break;evnt(25224,1914,"ide_methods.bas");}while(r); } S_35479:; 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(25224,1917,"ide_methods.bas");if(r)goto S_35479;} LABEL_CUTTOCLIPBOARDSEARCHFIELD:; if(qbevent){evnt(25224,1918,"ide_methods.bas");r=0;} S_35480:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1919,"ide_methods.bas");if(r)goto S_35480;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1920,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1920,"ide_methods.bas");}while(r); S_35483:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1921,"ide_methods.bas");if(r)goto S_35483;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1921,"ide_methods.bas");}while(r); } S_35486:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1922,"ide_methods.bas");if(r)goto S_35486;} do{ sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1923,"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(25224,1925,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; if(!qbevent)break;evnt(25224,1926,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1927,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_K= 255 ; if(!qbevent)break;evnt(25224,1930,"ide_methods.bas");}while(r); } S_35495:; if ((-(*_FUNC_IDE2_LONG_K== 8 ))||new_error){ if(qbevent){evnt(25224,1933,"ide_methods.bas");if(r)goto S_35495;} S_35496:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1934,"ide_methods.bas");if(r)goto S_35496;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1935,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1935,"ide_methods.bas");}while(r); S_35499:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1936,"ide_methods.bas");if(r)goto S_35499;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1936,"ide_methods.bas");}while(r); } S_35502:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1937,"ide_methods.bas");if(r)goto S_35502;} 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(25224,1939,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1940,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; if(!qbevent)break;evnt(25224,1941,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1942,"ide_methods.bas");}while(r); } S_35508:; }else{ if (-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 )){ if(qbevent){evnt(25224,1944,"ide_methods.bas");if(r)goto S_35508;} 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(25224,1945,"ide_methods.bas");}while(r); S_35510:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,1946,"ide_methods.bas");if(r)goto S_35510;} 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(25224,1946,"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(25224,1946,"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(25224,1947,"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(25224,1947,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1948,"ide_methods.bas");}while(r); } } } S_35520:; if ((-(*_FUNC_IDE2_LONG_K== 27 ))||new_error){ if(qbevent){evnt(25224,1951,"ide_methods.bas");if(r)goto S_35520;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1952,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1953,"ide_methods.bas");}while(r); } S_35524:; if ((-(*_FUNC_IDE2_LONG_K== 9 ))||new_error){ if(qbevent){evnt(25224,1955,"ide_methods.bas");if(r)goto S_35524;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1956,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1957,"ide_methods.bas");}while(r); } S_35528:; if ((-(*_FUNC_IDE2_LONG_K== 13 ))||new_error){ if(qbevent){evnt(25224,1959,"ide_methods.bas");if(r)goto S_35528;} S_35529:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ if(qbevent){evnt(25224,1960,"ide_methods.bas");if(r)goto S_35529;} do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1961,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; if(!qbevent)break;evnt(25224,1962,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,1964,"ide_methods.bas");}while(r); } S_35535:; 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(25224,1966,"ide_methods.bas");if(r)goto S_35535;} S_35536:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1967,"ide_methods.bas");if(r)goto S_35536;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1968,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1968,"ide_methods.bas");}while(r); S_35539:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1969,"ide_methods.bas");if(r)goto S_35539;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1969,"ide_methods.bas");}while(r); } S_35542:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1970,"ide_methods.bas");if(r)goto S_35542;} 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(25224,1972,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1973,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,1974,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; if(!qbevent)break;evnt(25224,1975,"ide_methods.bas");}while(r); } } S_35549:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ if(qbevent){evnt(25224,1978,"ide_methods.bas");if(r)goto S_35549;} 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(25224,1978,"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(25224,1978,"ide_methods.bas");}while(r); } S_35554:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,1979,"ide_methods.bas");if(r)goto S_35554;} 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(25224,1979,"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(25224,1979,"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(25224,1980,"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(25224,1980,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1982,"ide_methods.bas");}while(r); } S_35564:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ if(qbevent){evnt(25224,1985,"ide_methods.bas");if(r)goto S_35564;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,1986,"ide_methods.bas");}while(r); do{ goto LABEL_IDESUBSJMP; if(!qbevent)break;evnt(25224,1987,"ide_methods.bas");}while(r); } S_35568:; 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(25224,1990,"ide_methods.bas");if(r)goto S_35568;} LABEL_DELETESELECTIONSEARCHFIELD:; if(qbevent){evnt(25224,1991,"ide_methods.bas");r=0;} S_35569:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ if(qbevent){evnt(25224,1992,"ide_methods.bas");if(r)goto S_35569;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,1993,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,1993,"ide_methods.bas");}while(r); S_35572:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,1994,"ide_methods.bas");if(r)goto S_35572;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,1994,"ide_methods.bas");}while(r); } S_35575:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,1995,"ide_methods.bas");if(r)goto S_35575;} 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(25224,1997,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,1998,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; if(!qbevent)break;evnt(25224,1999,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,2000,"ide_methods.bas");}while(r); } }else{ S_35582:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ if(qbevent){evnt(25224,2003,"ide_methods.bas");if(r)goto S_35582;} 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(25224,2003,"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(25224,2003,"ide_methods.bas");}while(r); } S_35587:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,2004,"ide_methods.bas");if(r)goto S_35587;} 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(25224,2004,"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(25224,2004,"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(25224,2005,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2006,"ide_methods.bas");}while(r); } } S_35596:; 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(25224,2011,"ide_methods.bas");if(r)goto S_35596;} do{ return_point[next_return_point++]=24; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_24:; if(!qbevent)break;evnt(25224,2011,"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(25224,2011,"ide_methods.bas");}while(r); } S_35600:; 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(25224,2012,"ide_methods.bas");if(r)goto S_35600;} do{ return_point[next_return_point++]=25; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_25:; if(!qbevent)break;evnt(25224,2012,"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(25224,2012,"ide_methods.bas");}while(r); } S_35604:; 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(25224,2013,"ide_methods.bas");if(r)goto S_35604;} 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(25224,2013,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; if(!qbevent)break;evnt(25224,2013,"ide_methods.bas");}while(r); } S_35608:; 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(25224,2014,"ide_methods.bas");if(r)goto S_35608;} 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(25224,2014,"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(25224,2014,"ide_methods.bas");}while(r); } S_35612:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1< 0 ))||new_error){ if(qbevent){evnt(25224,2015,"ide_methods.bas");if(r)goto S_35612;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; if(!qbevent)break;evnt(25224,2015,"ide_methods.bas");}while(r); } S_35615:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1>_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,2016,"ide_methods.bas");if(r)goto S_35615;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2016,"ide_methods.bas");}while(r); } S_35618:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1==*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1))||new_error){ if(qbevent){evnt(25224,2017,"ide_methods.bas");if(r)goto S_35618;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,2017,"ide_methods.bas");}while(r); } S_35621:; if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,2019,"ide_methods.bas");if(r)goto S_35621;} S_35622:; if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ if(qbevent){evnt(25224,2020,"ide_methods.bas");if(r)goto S_35622;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,2021,"ide_methods.bas");}while(r); S_35624:; if ((*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,2022,"ide_methods.bas");if(r)goto S_35624;} do{ goto LABEL_INVOKECONTEXTUALMENU; if(!qbevent)break;evnt(25224,2022,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,2022,"ide_methods.bas");}while(r); } S_35629:; }else{ if ((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ if(qbevent){evnt(25224,2023,"ide_methods.bas");if(r)goto S_35629;} do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2024,"ide_methods.bas");}while(r); S_35631:; if ((*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,2025,"ide_methods.bas");if(r)goto S_35631;} do{ goto LABEL_INVOKECONTEXTUALMENU; if(!qbevent)break;evnt(25224,2025,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,2025,"ide_methods.bas");}while(r); } } } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2029,"ide_methods.bas");}while(r); } S_35640:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,2032,"ide_methods.bas");if(r)goto S_35640;} S_35641:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ if(qbevent){evnt(25224,2034,"ide_methods.bas");if(r)goto S_35641;} S_35642:; if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_MY==*__LONG_IDEWY))&(-(*__LONG_MX==(*__LONG_IDEWX- 2 )))))|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ if(qbevent){evnt(25224,2035,"ide_methods.bas");if(r)goto S_35642;} LABEL_CLOSEHELP:; if(qbevent){evnt(25224,2040,"ide_methods.bas");r=0;} do{ *__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,2041,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 0 ; if(!qbevent)break;evnt(25224,2042,"ide_methods.bas");}while(r); do{ *__LONG_IDESUBWINDOW= 0 ; if(!qbevent)break;evnt(25224,2043,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,2044,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,2045,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,2046,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=28; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_28:; if(!qbevent)break;evnt(25224,2046,"ide_methods.bas");}while(r); } } S_35652:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,2052,"ide_methods.bas");if(r)goto S_35652;} S_35653:; if ((-(*__LONG_MY==*__LONG_IDEWY))||new_error){ if(qbevent){evnt(25224,2053,"ide_methods.bas");if(r)goto S_35653;} do{ *_FUNC_IDE2_LONG_SX= 2 ; if(!qbevent)break;evnt(25224,2055,"ide_methods.bas");}while(r); S_35655:; fornext_value3904=*_FUNC_IDE2_LONG_BACK_STR_POS; fornext_finalvalue3904=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; fornext_step3904= 1 ; if (fornext_step3904<0) fornext_step_negative3904=1; else fornext_step_negative3904=0; if (new_error) goto fornext_error3904; goto fornext_entrylabel3904; while(1){ fornext_value3904=fornext_step3904+(*_FUNC_IDE2_LONG_X); fornext_entrylabel3904: *_FUNC_IDE2_LONG_X=fornext_value3904; if (fornext_step_negative3904){ if (fornext_value3904fornext_finalvalue3904) break; } fornext_error3904:; if(qbevent){evnt(25224,2056,"ide_methods.bas");if(r)goto S_35655;} S_35656:; if ((-(*__LONG_MX==*_FUNC_IDE2_LONG_SX))||new_error){ if(qbevent){evnt(25224,2057,"ide_methods.bas");if(r)goto S_35656;} do{ *_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2058,"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(25224,2059,"ide_methods.bas");}while(r); S_35659:; if (((-(*_FUNC_IDE2_LONG_A!= 0 ))&(-(*_FUNC_IDE2_LONG_I!=*__LONG_HELP_BACK_POS)))||new_error){ if(qbevent){evnt(25224,2060,"ide_methods.bas");if(r)goto S_35659;} 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(25224,2061,"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(25224,2062,"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(25224,2063,"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(25224,2064,"ide_methods.bas");}while(r); do{ *__LONG_HELP_BACK_POS=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,2065,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 0 ; if(!qbevent)break;evnt(25224,2066,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; if(!qbevent)break;evnt(25224,2066,"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(25224,2067,"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(25224,2068,"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(25224,2069,"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(25224,2070,"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(25224,2071,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2072,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; if(!qbevent)break;evnt(25224,2073,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_SX=*_FUNC_IDE2_LONG_SX+ 1 ; if(!qbevent)break;evnt(25224,2076,"ide_methods.bas");}while(r); fornext_continue_3903:; } fornext_exit_3903:; } } S_35680:; 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(25224,2098,"ide_methods.bas");if(r)goto S_35680;} LABEL_SELECTALLINHELP:; if(qbevent){evnt(25224,2099,"ide_methods.bas");r=0;} S_35681:; if ((*__LONG_HELP_H)||new_error){ if(qbevent){evnt(25224,2100,"ide_methods.bas");if(r)goto S_35681;} do{ *__LONG_HELP_SELECT= 2 ; if(!qbevent)break;evnt(25224,2101,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX1= 1 ; if(!qbevent)break;evnt(25224,2102,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY1= 1 ; if(!qbevent)break;evnt(25224,2103,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2= 10000000 ; if(!qbevent)break;evnt(25224,2104,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_H; if(!qbevent)break;evnt(25224,2105,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2106,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,2106,"ide_methods.bas");}while(r); do{ goto LABEL_KEEP_SELECT; if(!qbevent)break;evnt(25224,2107,"ide_methods.bas");}while(r); } } S_35692:; 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(25224,2111,"ide_methods.bas");if(r)goto S_35692;} LABEL_COPYHELP2CLIP:; if(qbevent){evnt(25224,2112,"ide_methods.bas");r=0;} do{ *__LONG_IDEERROR= -1 ; if(!qbevent)break;evnt(25224,2113,"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(25224,2114,"ide_methods.bas");}while(r); S_35695:; fornext_value3906=*__LONG_HELP_SELY1; fornext_finalvalue3906=*__LONG_HELP_SELY2; 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_IDE2_LONG_Y); fornext_entrylabel3906: *_FUNC_IDE2_LONG_Y=fornext_value3906; if (fornext_step_negative3906){ if (fornext_value3906fornext_finalvalue3906) break; } fornext_error3906:; if(qbevent){evnt(25224,2115,"ide_methods.bas");if(r)goto S_35695;} S_35696:; if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_HELP_SELY1))||new_error){ if(qbevent){evnt(25224,2116,"ide_methods.bas");if(r)goto S_35696;} 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(25224,2116,"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(25224,2117,"ide_methods.bas");}while(r); S_35700:; if ((-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_H))||new_error){ if(qbevent){evnt(25224,2118,"ide_methods.bas");if(r)goto S_35700;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_Y- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2119,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,2120,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3= 1 ; if(!qbevent)break;evnt(25224,2121,"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(25224,2122,"ide_methods.bas");}while(r); S_35705:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,2123,"ide_methods.bas");if(r)goto S_35705;} S_35706:; if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ if(qbevent){evnt(25224,2124,"ide_methods.bas");if(r)goto S_35706;} S_35707:; if (((-(*_FUNC_IDE2_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ if(qbevent){evnt(25224,2125,"ide_methods.bas");if(r)goto S_35707;} S_35708:; if (((-(*_FUNC_IDE2_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_FUNC_IDE2_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ if(qbevent){evnt(25224,2126,"ide_methods.bas");if(r)goto S_35708;} 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(25224,2127,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X3+ 1 ; if(!qbevent)break;evnt(25224,2131,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,2131,"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(25224,2131,"ide_methods.bas");}while(r); dl_continue_3907:; } dl_exit_3907:; } 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(25224,2134,"ide_methods.bas");}while(r); fornext_continue_3905:; } fornext_exit_3905:; S_35720:; if (((-(*__LONG_HELP_SELY1==*__LONG_HELP_SELY2))&(-(*__LONG_HELP_CY>*__LONG_HELP_CY1)))||new_error){ if(qbevent){evnt(25224,2136,"ide_methods.bas");if(r)goto S_35720;} 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(25224,2136,"ide_methods.bas");}while(r); } S_35723:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,2137,"ide_methods.bas");if(r)goto S_35723;} do{ sub__clipboard(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2137,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,2138,"ide_methods.bas");}while(r); do{ goto LABEL_KEEP_SELECT; if(!qbevent)break;evnt(25224,2139,"ide_methods.bas");}while(r); } S_35729:; 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(25224,2143,"ide_methods.bas");if(r)goto S_35729;} S_35730:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,2144,"ide_methods.bas");if(r)goto S_35730;} do{ *__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); if(!qbevent)break;evnt(25224,2145,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); if(!qbevent)break;evnt(25224,2146,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 1 ; if(!qbevent)break;evnt(25224,2147,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 1 ; if(!qbevent)break;evnt(25224,2148,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,2149,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2149,"ide_methods.bas");}while(r); do{ goto LABEL_KEEP_SELECT; if(!qbevent)break;evnt(25224,2150,"ide_methods.bas");}while(r); } S_35739:; if (((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))||new_error){ if(qbevent){evnt(25224,2152,"ide_methods.bas");if(r)goto S_35739;} do{ *__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); if(!qbevent)break;evnt(25224,2153,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); if(!qbevent)break;evnt(25224,2154,"ide_methods.bas");}while(r); S_35742:; if ((*__LONG_HELP_SELECT)||new_error){ if(qbevent){evnt(25224,2155,"ide_methods.bas");if(r)goto S_35742;} do{ goto LABEL_KEEP_SELECT; if(!qbevent)break;evnt(25224,2155,"ide_methods.bas");}while(r); } } }else{ S_35747:; if ((((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))&(-(*__LONG_HELP_MSELECT== 1 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,2159,"ide_methods.bas");if(r)goto S_35747;} S_35748:; if ((-(*__LONG_MX<*__LONG_HELP_WX1))||new_error){ if(qbevent){evnt(25224,2160,"ide_methods.bas");if(r)goto S_35748;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; if(!qbevent)break;evnt(25224,2160,"ide_methods.bas");}while(r); } S_35751:; if ((-(*__LONG_MX>*__LONG_HELP_WX2))||new_error){ if(qbevent){evnt(25224,2161,"ide_methods.bas");if(r)goto S_35751;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; if(!qbevent)break;evnt(25224,2161,"ide_methods.bas");}while(r); } S_35754:; if ((-(*__LONG_MY<*__LONG_HELP_WY1))||new_error){ if(qbevent){evnt(25224,2162,"ide_methods.bas");if(r)goto S_35754;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; if(!qbevent)break;evnt(25224,2162,"ide_methods.bas");}while(r); } S_35757:; if ((-(*__LONG_MY>*__LONG_HELP_WY2))||new_error){ if(qbevent){evnt(25224,2163,"ide_methods.bas");if(r)goto S_35757;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; if(!qbevent)break;evnt(25224,2163,"ide_methods.bas");}while(r); } do{ goto LABEL_KEEP_SELECT; if(!qbevent)break;evnt(25224,2164,"ide_methods.bas");}while(r); } } S_35763:; if ((*__LONG_KSHIFT)||new_error){ if(qbevent){evnt(25224,2168,"ide_methods.bas");if(r)goto S_35763;} S_35764:; if ((-(*__LONG_HELP_SELECT== 0 ))||new_error){ if(qbevent){evnt(25224,2169,"ide_methods.bas");if(r)goto S_35764;} do{ *__LONG_HELP_SELECT= 1 ; if(!qbevent)break;evnt(25224,2170,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; if(!qbevent)break;evnt(25224,2171,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,2172,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2172,"ide_methods.bas");}while(r); } }else{ S_35771:; if (((((-(*__LONG_KB> 0 ))|(-(*__LONG_MWHEEL!= 0 ))))&(-(*__LONG_KSTATECHANGED== 0 )))||new_error){ if(qbevent){evnt(25224,2175,"ide_methods.bas");if(r)goto S_35771;} do{ *__LONG_HELP_SELECT= 0 ; if(!qbevent)break;evnt(25224,2175,"ide_methods.bas");}while(r); } } LABEL_KEEP_SELECT:; if(qbevent){evnt(25224,2177,"ide_methods.bas");r=0;} S_35775:; if ((-(*__LONG_KB== 9 ))||new_error){ if(qbevent){evnt(25224,2179,"ide_methods.bas");if(r)goto S_35775;} S_35776:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ if(qbevent){evnt(25224,2180,"ide_methods.bas");if(r)goto S_35776;} do{ *_FUNC_IDE2_LONG_NOREP= 1 ; if(!qbevent)break;evnt(25224,2180,"ide_methods.bas");}while(r); do{ goto LABEL_DELSRCHAGAIN; if(!qbevent)break;evnt(25224,2180,"ide_methods.bas");}while(r); } } S_35781:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))&(-(*__LONG_KCONTROL== 0 ))))||new_error){ if(qbevent){evnt(25224,2183,"ide_methods.bas");if(r)goto S_35781;} do{ *_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2184,"ide_methods.bas");}while(r); S_35783:; 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(25224,2185,"ide_methods.bas");if(r)goto S_35783;} do{ *_FUNC_IDE2_LONG_NOREP= 0 ; if(!qbevent)break;evnt(25224,2186,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_DOUBLE_T=func_timer( 0.001E+0 ,1); if(!qbevent)break;evnt(25224,2187,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDK= 0 ; if(!qbevent)break;evnt(25224,2188,"ide_methods.bas");}while(r); S_35787:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ if(qbevent){evnt(25224,2188,"ide_methods.bas");if(r)goto S_35787;} 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(25224,2188,"ide_methods.bas");}while(r); } S_35790:; 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(25224,2189,"ide_methods.bas");if(r)goto S_35790;} S_35791:; if ((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))||new_error){ if(qbevent){evnt(25224,2190,"ide_methods.bas");if(r)goto S_35791;} do{ *_FUNC_IDE2_LONG_NOREP= 1 ; if(!qbevent)break;evnt(25224,2190,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_HELP_SEARCH_STR,__STRING_K); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2191,"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(25224,2193,"ide_methods.bas");}while(r); } do{ *__DOUBLE_HELP_SEARCH_TIME=*_FUNC_IDE2_DOUBLE_T; if(!qbevent)break;evnt(25224,2195,"ide_methods.bas");}while(r); LABEL_DELSRCHAGAIN:; if(qbevent){evnt(25224,2197,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_OX=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,2198,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OY=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2199,"ide_methods.bas");}while(r); S_35801:; if ((-(*_FUNC_IDE2_LONG_OY>*__LONG_HELP_H))||new_error){ if(qbevent){evnt(25224,2200,"ide_methods.bas");if(r)goto S_35801;} do{ *_FUNC_IDE2_LONG_OY= 1 ; if(!qbevent)break;evnt(25224,2200,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_OY; if(!qbevent)break;evnt(25224,2201,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_OX; if(!qbevent)break;evnt(25224,2202,"ide_methods.bas");}while(r); S_35806:; if ((-(*_FUNC_IDE2_LONG_NOREP== 1 ))||new_error){ if(qbevent){evnt(25224,2203,"ide_methods.bas");if(r)goto S_35806;} do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_CX+ 1 ; if(!qbevent)break;evnt(25224,2203,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_LOOPED= 0 ; if(!qbevent)break;evnt(25224,2204,"ide_methods.bas");}while(r); S_35810:; do{ if(qbevent){evnt(25224,2205,"ide_methods.bas");if(r)goto S_35810;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2207,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,2208,"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(25224,2209,"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(25224,2210,"ide_methods.bas");}while(r); S_35815:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,2211,"ide_methods.bas");if(r)goto S_35815;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2212,"ide_methods.bas");}while(r); S_35817:; if ((*_FUNC_IDE2_LONG_LNK)||new_error){ if(qbevent){evnt(25224,2213,"ide_methods.bas");if(r)goto S_35817;} 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(25224,2213,"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(25224,2213,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,2214,"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(25224,2214,"ide_methods.bas");}while(r); dl_continue_3914:; } dl_exit_3914:; LABEL_HELPSCANROW:; if(qbevent){evnt(25224,2217,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2218,"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)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2219,"ide_methods.bas");}while(r); S_35827:; 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(25224,2220,"ide_methods.bas");if(r)goto S_35827;} do{ *_FUNC_IDE2_LONG_PX=*_FUNC_IDE2_LONG_PX2; if(!qbevent)break;evnt(25224,2220,"ide_methods.bas");}while(r); } S_35830:; if (((-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_CY==*_FUNC_IDE2_LONG_OY))&(-(*_FUNC_IDE2_LONG_PX== 0 )))||new_error){ if(qbevent){evnt(25224,2222,"ide_methods.bas");if(r)goto S_35830;} do{ goto LABEL_STRNOTFOUND; if(!qbevent)break;evnt(25224,2222,"ide_methods.bas");}while(r); } S_35833:; if ((*_FUNC_IDE2_LONG_PX)||new_error){ if(qbevent){evnt(25224,2223,"ide_methods.bas");if(r)goto S_35833;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2225,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,2226,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2= 1 ; if(!qbevent)break;evnt(25224,2227,"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(25224,2228,"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(25224,2229,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDLNK= 0 ; if(!qbevent)break;evnt(25224,2230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKX1= 0 ; if(!qbevent)break;evnt(25224,2231,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKX2= 0 ; if(!qbevent)break;evnt(25224,2231,"ide_methods.bas");}while(r); S_35842:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,2232,"ide_methods.bas");if(r)goto S_35842;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2233,"ide_methods.bas");}while(r); S_35844:; 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(25224,2234,"ide_methods.bas");if(r)goto S_35844;} do{ *_FUNC_IDE2_LONG_LNKX1=*_FUNC_IDE2_LONG_X2; if(!qbevent)break;evnt(25224,2234,"ide_methods.bas");}while(r); } S_35847:; if (((-(*_FUNC_IDE2_LONG_LNKX1!= 0 ))&(-(*_FUNC_IDE2_LONG_LNK== 0 ))&(-(*_FUNC_IDE2_LONG_LNKX2== 0 )))||new_error){ if(qbevent){evnt(25224,2235,"ide_methods.bas");if(r)goto S_35847;} do{ *_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; if(!qbevent)break;evnt(25224,2235,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,2236,"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(25224,2236,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,2237,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDLNK=*_FUNC_IDE2_LONG_LNK; if(!qbevent)break;evnt(25224,2238,"ide_methods.bas");}while(r); dl_continue_3915:; } dl_exit_3915:; S_35855:; 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(25224,2241,"ide_methods.bas");if(r)goto S_35855;} S_35856:; if ((-(*_FUNC_IDE2_LONG_LNKX1!= 3 ))||new_error){ if(qbevent){evnt(25224,2242,"ide_methods.bas");if(r)goto S_35856;} do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; if(!qbevent)break;evnt(25224,2243,"ide_methods.bas");}while(r); do{ goto LABEL_HELPSCANROW; if(!qbevent)break;evnt(25224,2244,"ide_methods.bas");}while(r); } } S_35861:; if ((*_FUNC_IDE2_LONG_LNKX1)||new_error){ if(qbevent){evnt(25224,2248,"ide_methods.bas");if(r)goto S_35861;} S_35862:; if ((-(*_FUNC_IDE2_LONG_LNKX2== 0 ))||new_error){ if(qbevent){evnt(25224,2249,"ide_methods.bas");if(r)goto S_35862;} do{ *_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; if(!qbevent)break;evnt(25224,2249,"ide_methods.bas");}while(r); } do{ *__LONG_HELP_SELECT= 2 ; if(!qbevent)break;evnt(25224,2250,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*_FUNC_IDE2_LONG_LNKX2+ 1 ; if(!qbevent)break;evnt(25224,2251,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*_FUNC_IDE2_LONG_LNKX1; if(!qbevent)break;evnt(25224,2252,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*_FUNC_IDE2_LONG_CY; if(!qbevent)break;evnt(25224,2253,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*_FUNC_IDE2_LONG_CY; if(!qbevent)break;evnt(25224,2254,"ide_methods.bas");}while(r); do{ goto LABEL_FOUNDSSTR; if(!qbevent)break;evnt(25224,2255,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; if(!qbevent)break;evnt(25224,2258,"ide_methods.bas");}while(r); do{ goto LABEL_HELPSCANROW; if(!qbevent)break;evnt(25224,2259,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CX= 1 ; if(!qbevent)break;evnt(25224,2261,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_CY+ 1 ; if(!qbevent)break;evnt(25224,2262,"ide_methods.bas");}while(r); S_35877:; if ((-(*_FUNC_IDE2_LONG_CY>*__LONG_HELP_H))||new_error){ if(qbevent){evnt(25224,2263,"ide_methods.bas");if(r)goto S_35877;} do{ *_FUNC_IDE2_LONG_CY= 1 ; if(!qbevent)break;evnt(25224,2263,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; if(!qbevent)break;evnt(25224,2263,"ide_methods.bas");}while(r); } dl_continue_3913:; }while(1); dl_exit_3913:; } } LABEL_FOUNDSSTR:; if(qbevent){evnt(25224,2267,"ide_methods.bas");r=0;} LABEL_STRNOTFOUND:; if(qbevent){evnt(25224,2268,"ide_methods.bas");r=0;} S_35884:; if (((-(*__LONG_KB== 18176 ))&*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,2270,"ide_methods.bas");if(r)goto S_35884;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2271,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,2271,"ide_methods.bas");}while(r); } S_35888:; if (((-(*__LONG_KB== 20224 ))&*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,2273,"ide_methods.bas");if(r)goto S_35888;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2274,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,2274,"ide_methods.bas");}while(r); } S_35892:; if (((-(*__LONG_KB== 18176 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ if(qbevent){evnt(25224,2277,"ide_methods.bas");if(r)goto S_35892;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2277,"ide_methods.bas");}while(r); } S_35895:; if (((-(*__LONG_KB== 20224 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ if(qbevent){evnt(25224,2278,"ide_methods.bas");if(r)goto S_35895;} 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(25224,2279,"ide_methods.bas");}while(r); } S_35898:; if ((-(*__LONG_KB== 18688 ))||new_error){ if(qbevent){evnt(25224,2282,"ide_methods.bas");if(r)goto S_35898;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY-(*__LONG_HELP_WH- 1 ); if(!qbevent)break;evnt(25224,2283,"ide_methods.bas");}while(r); } S_35901:; if ((-(*__LONG_KB== 20736 ))||new_error){ if(qbevent){evnt(25224,2286,"ide_methods.bas");if(r)goto S_35901;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_HELP_WH- 1 ); if(!qbevent)break;evnt(25224,2287,"ide_methods.bas");}while(r); } S_35904:; if ((-(*__LONG_KB== 20480 ))||new_error){ if(qbevent){evnt(25224,2290,"ide_methods.bas");if(r)goto S_35904;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; if(!qbevent)break;evnt(25224,2290,"ide_methods.bas");}while(r); } S_35907:; if ((-(*__LONG_KB== 18432 ))||new_error){ if(qbevent){evnt(25224,2291,"ide_methods.bas");if(r)goto S_35907;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; if(!qbevent)break;evnt(25224,2291,"ide_methods.bas");}while(r); } S_35910:; if ((-(*__LONG_KB== 19200 ))||new_error){ if(qbevent){evnt(25224,2292,"ide_methods.bas");if(r)goto S_35910;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; if(!qbevent)break;evnt(25224,2292,"ide_methods.bas");}while(r); } S_35913:; if ((-(*__LONG_KB== 19712 ))||new_error){ if(qbevent){evnt(25224,2293,"ide_methods.bas");if(r)goto S_35913;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; if(!qbevent)break;evnt(25224,2293,"ide_methods.bas");}while(r); } S_35916:; if ((-(*__LONG_MWHEEL< 0 ))||new_error){ if(qbevent){evnt(25224,2296,"ide_methods.bas");if(r)goto S_35916;} do{ *__LONG_HELP_CY=*__LONG_HELP_SY; if(!qbevent)break;evnt(25224,2296,"ide_methods.bas");}while(r); } S_35919:; if ((-(*__LONG_MWHEEL> 0 ))||new_error){ if(qbevent){evnt(25224,2297,"ide_methods.bas");if(r)goto S_35919;} do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_HELP_WH- 1 ); if(!qbevent)break;evnt(25224,2297,"ide_methods.bas");}while(r); } do{ *__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_MWHEEL* 3 ); if(!qbevent)break;evnt(25224,2298,"ide_methods.bas");}while(r); S_35923:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ if(qbevent){evnt(25224,2301,"ide_methods.bas");if(r)goto S_35923;} do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2301,"ide_methods.bas");}while(r); } S_35926:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ if(qbevent){evnt(25224,2302,"ide_methods.bas");if(r)goto S_35926;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; if(!qbevent)break;evnt(25224,2302,"ide_methods.bas");}while(r); } S_35929:; if ((-(*__LONG_HELP_CY< 1 ))||new_error){ if(qbevent){evnt(25224,2303,"ide_methods.bas");if(r)goto S_35929;} do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,2303,"ide_methods.bas");}while(r); } S_35932:; if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ if(qbevent){evnt(25224,2304,"ide_methods.bas");if(r)goto S_35932;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,2304,"ide_methods.bas");}while(r); } S_35935:; if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ if(qbevent){evnt(25224,2307,"ide_methods.bas");if(r)goto S_35935;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,2307,"ide_methods.bas");}while(r); } S_35938:; if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ if(qbevent){evnt(25224,2308,"ide_methods.bas");if(r)goto S_35938;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; if(!qbevent)break;evnt(25224,2308,"ide_methods.bas");}while(r); } S_35941:; if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ if(qbevent){evnt(25224,2310,"ide_methods.bas");if(r)goto S_35941;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2310,"ide_methods.bas");}while(r); } S_35944:; if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ if(qbevent){evnt(25224,2311,"ide_methods.bas");if(r)goto S_35944;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; if(!qbevent)break;evnt(25224,2311,"ide_methods.bas");}while(r); } S_35947:; if ((-(*__LONG_HELP_SX< 1 ))||new_error){ if(qbevent){evnt(25224,2314,"ide_methods.bas");if(r)goto S_35947;} do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(25224,2314,"ide_methods.bas");}while(r); } S_35950:; if ((-(*__LONG_HELP_SY< 1 ))||new_error){ if(qbevent){evnt(25224,2315,"ide_methods.bas");if(r)goto S_35950;} do{ *__LONG_HELP_SY= 1 ; if(!qbevent)break;evnt(25224,2315,"ide_methods.bas");}while(r); } S_35953:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ if(qbevent){evnt(25224,2317,"ide_methods.bas");if(r)goto S_35953;} S_35954:; if ((-(*__LONG_HELP_BACK_POS> 1 ))||new_error){ if(qbevent){evnt(25224,2318,"ide_methods.bas");if(r)goto S_35954;} 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(25224,2319,"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(25224,2320,"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(25224,2321,"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(25224,2322,"ide_methods.bas");}while(r); do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; if(!qbevent)break;evnt(25224,2323,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 0 ; if(!qbevent)break;evnt(25224,2324,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; if(!qbevent)break;evnt(25224,2324,"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(25224,2325,"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(25224,2326,"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(25224,2327,"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(25224,2328,"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(25224,2329,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2330,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; if(!qbevent)break;evnt(25224,2331,"ide_methods.bas");}while(r); } } S_35971:; if (((-(*__LONG_HELP_CY>= 1 ))&(-(*__LONG_HELP_CY<=*__LONG_HELP_H)))||new_error){ if(qbevent){evnt(25224,2335,"ide_methods.bas");if(r)goto S_35971;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*__LONG_HELP_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2336,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,2337,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2= 1 ; if(!qbevent)break;evnt(25224,2338,"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(25224,2339,"ide_methods.bas");}while(r); S_35976:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,2340,"ide_methods.bas");if(r)goto S_35976;} S_35977:; if ((-(*_FUNC_IDE2_LONG_X2==*__LONG_HELP_CX))||new_error){ if(qbevent){evnt(25224,2342,"ide_methods.bas");if(r)goto S_35977;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2343,"ide_methods.bas");}while(r); S_35979:; if ((*_FUNC_IDE2_LONG_LNK)||new_error){ if(qbevent){evnt(25224,2344,"ide_methods.bas");if(r)goto S_35979;} do{ *_FUNC_IDE2_LONG_L1= 1 ; if(!qbevent)break;evnt(25224,2346,"ide_methods.bas");}while(r); S_35981:; fornext_value3918= 1 ; fornext_finalvalue3918=*_FUNC_IDE2_LONG_LNK- 1 ; fornext_step3918= 1 ; if (fornext_step3918<0) fornext_step_negative3918=1; else fornext_step_negative3918=0; if (new_error) goto fornext_error3918; goto fornext_entrylabel3918; while(1){ fornext_value3918=fornext_step3918+(*_FUNC_IDE2_LONG_LX); fornext_entrylabel3918: *_FUNC_IDE2_LONG_LX=fornext_value3918; if (fornext_step_negative3918){ if (fornext_value3918fornext_finalvalue3918) break; } fornext_error3918:; if(qbevent){evnt(25224,2347,"ide_methods.bas");if(r)goto S_35981;} do{ *_FUNC_IDE2_LONG_L1=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2348,"ide_methods.bas");}while(r); fornext_continue_3917:; } fornext_exit_3917:; do{ *_FUNC_IDE2_LONG_L2=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)- 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2350,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2351,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len- 5 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2353,"ide_methods.bas");}while(r); S_35987:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ if(qbevent){evnt(25224,2355,"ide_methods.bas");if(r)goto S_35987;} do{ *__LONG_MCLICK= 0 ; if(!qbevent)break;evnt(25224,2356,"ide_methods.bas");}while(r); S_35989:; 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(25224,2358,"ide_methods.bas");if(r)goto S_35989;} do{ *__LONG_HELP_SELECT= 0 ; if(!qbevent)break;evnt(25224,2359,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; if(!qbevent)break;evnt(25224,2359,"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(25224,2362,"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(25224,2363,"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(25224,2364,"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(25224,2365,"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(25224,2367,"ide_methods.bas");}while(r); S_35997:; if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ if(qbevent){evnt(25224,2369,"ide_methods.bas");if(r)goto S_35997;} S_35998:; 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(25224,2370,"ide_methods.bas");if(r)goto S_35998;} do{ goto LABEL_USENEXTENTRY; if(!qbevent)break;evnt(25224,2371,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; if(!qbevent)break;evnt(25224,2375,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_BACK[2]&1){ preserved_elements=__ARRAY_STRING_BACK[5]; } else preserved_elements=0; __ARRAY_STRING_BACK[4]= 0 ; __ARRAY_STRING_BACK[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_STRING_BACK[4]+1; __ARRAY_STRING_BACK[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_BACK[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_HELP_BACK[2]&1){ preserved_elements=__ARRAY_UDT_HELP_BACK[5]; } else preserved_elements=0; __ARRAY_UDT_HELP_BACK[4]= 0 ; __ARRAY_UDT_HELP_BACK[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_UDT_HELP_BACK[4]+1; __ARRAY_UDT_HELP_BACK[6]=1; if (__ARRAY_UDT_HELP_BACK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_HELP_BACK[0]),preserved_elements*128/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_HELP_BACK[0])); tmp_long=__ARRAY_UDT_HELP_BACK[5]; __ARRAY_UDT_HELP_BACK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*128/8+1); memcpy((void*)(__ARRAY_UDT_HELP_BACK[0]),redim_preserve_cmem_buffer,preserved_elements*128/8+1); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_BACK_NAME[2]&1){ preserved_elements=__ARRAY_STRING_BACK_NAME[5]; } else preserved_elements=0; __ARRAY_STRING_BACK_NAME[4]= 0 ; __ARRAY_STRING_BACK_NAME[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_STRING_BACK_NAME[4]+1; __ARRAY_STRING_BACK_NAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_BACK_NAME[5]; if (tmp_long2fornext_finalvalue3921) break; } fornext_error3921:; if(qbevent){evnt(25224,2380,"ide_methods.bas");if(r)goto S_36006;} 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(25224,2381,"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(25224,2382,"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(25224,2383,"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(25224,2384,"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(25224,2385,"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(25224,2386,"ide_methods.bas");}while(r); fornext_continue_3920:; } fornext_exit_3920:; LABEL_USENEXTENTRY:; if(qbevent){evnt(25224,2388,"ide_methods.bas");r=0;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; if(!qbevent)break;evnt(25224,2389,"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(25224,2390,"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(25224,2391,"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(25224,2392,"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(25224,2393,"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(25224,2394,"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(25224,2395,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(25224,2396,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; if(!qbevent)break;evnt(25224,2396,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2396,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,2396,"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(25224,2397,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2398,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; if(!qbevent)break;evnt(25224,2399,"ide_methods.bas");}while(r); } } } } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,2405,"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(25224,2405,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,2406,"ide_methods.bas");}while(r); dl_continue_3916:; } dl_exit_3916:; } S_36037:; if ((*__LONG_HELP_SELECT)||new_error){ if(qbevent){evnt(25224,2410,"ide_methods.bas");if(r)goto S_36037;} do{ *__LONG_HELP_SELECT= 1 ; if(!qbevent)break;evnt(25224,2411,"ide_methods.bas");}while(r); S_36039:; if (((-(*__LONG_HELP_CX!=*__LONG_HELP_CX1))|(-(*__LONG_HELP_CY!=*__LONG_HELP_CY1)))||new_error){ if(qbevent){evnt(25224,2412,"ide_methods.bas");if(r)goto S_36039;} do{ *__LONG_HELP_SELECT= 2 ; if(!qbevent)break;evnt(25224,2412,"ide_methods.bas");}while(r); } } S_36043:; if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ if(qbevent){evnt(25224,2416,"ide_methods.bas");if(r)goto S_36043;} S_36044:; if ((-(*__LONG_HELP_CY==*__LONG_HELP_CY1))||new_error){ if(qbevent){evnt(25224,2417,"ide_methods.bas");if(r)goto S_36044;} do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2418,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2418,"ide_methods.bas");}while(r); S_36047:; if ((-(*__LONG_HELP_CX>*__LONG_HELP_CX1))||new_error){ if(qbevent){evnt(25224,2419,"ide_methods.bas");if(r)goto S_36047;} do{ *__LONG_HELP_SELX1=*__LONG_HELP_CX1; if(!qbevent)break;evnt(25224,2420,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2=*__LONG_HELP_CX- 1 ; if(!qbevent)break;evnt(25224,2420,"ide_methods.bas");}while(r); }else{ do{ *__LONG_HELP_SELX1=*__LONG_HELP_CX; if(!qbevent)break;evnt(25224,2422,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2=*__LONG_HELP_CX1- 1 ; if(!qbevent)break;evnt(25224,2422,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_HELP_SELX1= 1 ; if(!qbevent)break;evnt(25224,2425,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2= 10000000 ; if(!qbevent)break;evnt(25224,2425,"ide_methods.bas");}while(r); S_36057:; if ((-(*__LONG_HELP_CY>*__LONG_HELP_CY1))||new_error){ if(qbevent){evnt(25224,2426,"ide_methods.bas");if(r)goto S_36057;} do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY1; if(!qbevent)break;evnt(25224,2427,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2427,"ide_methods.bas");}while(r); S_36060:; if ((-(*__LONG_HELP_CX== 1 ))||new_error){ if(qbevent){evnt(25224,2428,"ide_methods.bas");if(r)goto S_36060;} do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY- 1 ; if(!qbevent)break;evnt(25224,2428,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY; if(!qbevent)break;evnt(25224,2430,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY1; if(!qbevent)break;evnt(25224,2430,"ide_methods.bas");}while(r); } } } LABEL_NEWPAGEPARSED:; if(qbevent){evnt(25224,2435,"ide_methods.bas");r=0;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2436,"ide_methods.bas");}while(r); } S_36071:; if ((-(*__LONG_KB== 15104 ))||new_error){ if(qbevent){evnt(25224,2441,"ide_methods.bas");if(r)goto S_36071;} LABEL_CONTEXTUALHELP:; if(qbevent){evnt(25224,2442,"ide_methods.bas");r=0;} do{ *__BYTE_IDECONTEXTHELPSF= 0 ; if(!qbevent)break;evnt(25224,2443,"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(25224,2445,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*__LONG_IDECX; if(!qbevent)break;evnt(25224,2446,"ide_methods.bas");}while(r); S_36075:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDE2_STRING_A->len> 0 ))&(-(*_FUNC_IDE2_LONG_X==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ if(qbevent){evnt(25224,2447,"ide_methods.bas");if(r)goto S_36075;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X- 1 ; if(!qbevent)break;evnt(25224,2447,"ide_methods.bas");}while(r); } S_36078:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,2448,"ide_methods.bas");if(r)goto S_36078;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2449,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,2451,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2452,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKS= 0 ; if(!qbevent)break;evnt(25224,2453,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LNKS,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2453,"ide_methods.bas");}while(r); S_36084:; while((!(func_eof(*_FUNC_IDE2_LONG_FH)))||new_error){ if(qbevent){evnt(25224,2454,"ide_methods.bas");if(r)goto S_36084;} do{ tmp_fileno=*_FUNC_IDE2_LONG_FH; if (new_error) goto skip3926; sub_file_line_input_string(tmp_fileno,_FUNC_IDE2_STRING_L); if (new_error) goto skip3926; skip3926: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2455,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=func_instr(NULL,_FUNC_IDE2_STRING_L,qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2456,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_L1,qbs_left(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_C- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2456,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_L2,qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*_FUNC_IDE2_LONG_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2456,"ide_methods.bas");}while(r); S_36089:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDE2_STRING_A2,qbs_ucase(_FUNC_IDE2_STRING_L1)))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_IDE2_STRING_L1, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_L1, 2 ,NULL,0)))))))||new_error){ if(qbevent){evnt(25224,2457,"ide_methods.bas");if(r)goto S_36089;} S_36090:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDE2_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ if(qbevent){evnt(25224,2458,"ide_methods.bas");if(r)goto S_36090;} do{ *_FUNC_IDE2_LONG_LNKS=*_FUNC_IDE2_LONG_LNKS+ 1 ; if(!qbevent)break;evnt(25224,2459,"ide_methods.bas");}while(r); S_36092:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_L2,_FUNC_IDE2_STRING_L1)))||new_error){ if(qbevent){evnt(25224,2460,"ide_methods.bas");if(r)goto S_36092;} do{ qbs_set(_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDE2_STRING_L2),_FUNC_IDE2_STRING_LNKS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2461,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(_FUNC_IDE2_STRING_LNKS,_FUNC_IDE2_STRING_L2),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2463,"ide_methods.bas");}while(r); } } } dl_continue_3925:; } dl_exit_3925:; do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,2468,"ide_methods.bas");}while(r); S_36101:; if ((*_FUNC_IDE2_LONG_LNKS)||new_error){ if(qbevent){evnt(25224,2470,"ide_methods.bas");if(r)goto S_36101;} do{ qbs_set(_FUNC_IDE2_STRING_LNKS,func_mid(_FUNC_IDE2_STRING_LNKS, 2 ,_FUNC_IDE2_STRING_LNKS->len- 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2471,"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(25224,2472,"ide_methods.bas");}while(r); S_36104:; if ((-(*_FUNC_IDE2_LONG_LNKS> 1 ))||new_error){ if(qbevent){evnt(25224,2473,"ide_methods.bas");if(r)goto S_36104;} 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(25224,2475,"ide_methods.bas");}while(r); S_36106:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,2476,"ide_methods.bas");if(r)goto S_36106;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,2476,"ide_methods.bas");}while(r); } } LABEL_OPENHELPLNK:; if(qbevent){evnt(25224,2480,"ide_methods.bas");r=0;} 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(25224,2483,"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(25224,2484,"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(25224,2485,"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(25224,2486,"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(25224,2488,"ide_methods.bas");}while(r); S_36115:; 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(25224,2491,"ide_methods.bas");if(r)goto S_36115;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; if(!qbevent)break;evnt(25224,2491,"ide_methods.bas");}while(r); do{ goto LABEL_USENEXTENTRY2; if(!qbevent)break;evnt(25224,2491,"ide_methods.bas");}while(r); } S_36119:; if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ if(qbevent){evnt(25224,2492,"ide_methods.bas");if(r)goto S_36119;} S_36120:; 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(25224,2493,"ide_methods.bas");if(r)goto S_36120;} do{ goto LABEL_USENEXTENTRY2; if(!qbevent)break;evnt(25224,2494,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; if(!qbevent)break;evnt(25224,2499,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_BACK[2]&1){ preserved_elements=__ARRAY_STRING_BACK[5]; } else preserved_elements=0; __ARRAY_STRING_BACK[4]= 0 ; __ARRAY_STRING_BACK[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_STRING_BACK[4]+1; __ARRAY_STRING_BACK[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_BACK[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_HELP_BACK[2]&1){ preserved_elements=__ARRAY_UDT_HELP_BACK[5]; } else preserved_elements=0; __ARRAY_UDT_HELP_BACK[4]= 0 ; __ARRAY_UDT_HELP_BACK[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_UDT_HELP_BACK[4]+1; __ARRAY_UDT_HELP_BACK[6]=1; if (__ARRAY_UDT_HELP_BACK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_HELP_BACK[0]),preserved_elements*128/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_HELP_BACK[0])); tmp_long=__ARRAY_UDT_HELP_BACK[5]; __ARRAY_UDT_HELP_BACK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*128/8+1); memcpy((void*)(__ARRAY_UDT_HELP_BACK[0]),redim_preserve_cmem_buffer,preserved_elements*128/8+1); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_BACK_NAME[2]&1){ preserved_elements=__ARRAY_STRING_BACK_NAME[5]; } else preserved_elements=0; __ARRAY_STRING_BACK_NAME[4]= 0 ; __ARRAY_STRING_BACK_NAME[5]=(*_FUNC_IDE2_LONG_TOP)-__ARRAY_STRING_BACK_NAME[4]+1; __ARRAY_STRING_BACK_NAME[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_BACK_NAME[5]; if (tmp_long2fornext_finalvalue3930) break; } fornext_error3930:; if(qbevent){evnt(25224,2504,"ide_methods.bas");if(r)goto S_36128;} 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(25224,2505,"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(25224,2506,"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(25224,2507,"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(25224,2508,"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(25224,2509,"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(25224,2510,"ide_methods.bas");}while(r); fornext_continue_3929:; } fornext_exit_3929:; LABEL_USENEXTENTRY2:; if(qbevent){evnt(25224,2512,"ide_methods.bas");r=0;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; if(!qbevent)break;evnt(25224,2513,"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(25224,2514,"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(25224,2515,"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(25224,2516,"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(25224,2517,"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(25224,2518,"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(25224,2519,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; if(!qbevent)break;evnt(25224,2520,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; if(!qbevent)break;evnt(25224,2520,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; if(!qbevent)break;evnt(25224,2520,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; if(!qbevent)break;evnt(25224,2520,"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(25224,2522,"ide_methods.bas");}while(r); S_36148:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,2524,"ide_methods.bas");if(r)goto S_36148;} S_36149:; if ((*__LONG_IDESUBWINDOW)||new_error){ if(qbevent){evnt(25224,2525,"ide_methods.bas");if(r)goto S_36149;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2525,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,2525,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,2525,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; if(!qbevent)break;evnt(25224,2526,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,2526,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; if(!qbevent)break;evnt(25224,2527,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2528,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; if(!qbevent)break;evnt(25224,2529,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,2530,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2531,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,2532,"ide_methods.bas");}while(r); } do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2535,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2536,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=29; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_29:; if(!qbevent)break;evnt(25224,2537,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2538,"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(25224,2542,"ide_methods.bas");}while(r); S_36174:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,2543,"ide_methods.bas");if(r)goto S_36174;} S_36175:; 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(25224,2544,"ide_methods.bas");if(r)goto S_36175;} 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(25224,2545,"ide_methods.bas");}while(r); S_36177:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len== 0 )))||new_error){ if(qbevent){evnt(25224,2546,"ide_methods.bas");if(r)goto S_36177;} do{ goto LABEL_NOKEYWORDFOUND; if(!qbevent)break;evnt(25224,2546,"ide_methods.bas");}while(r); } dl_continue_3932:; } dl_exit_3932:; S_36181:; fornext_value3936= 1 ; fornext_finalvalue3936=*__LONG_IDEN; 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+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel3936: *_FUNC_IDE2_LONG_Y=fornext_value3936; if (fornext_step_negative3936){ if (fornext_value3936fornext_finalvalue3936) break; } fornext_error3936:; if(qbevent){evnt(25224,2549,"ide_methods.bas");if(r)goto S_36181;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2550,"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(25224,2551,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SF= 0 ; if(!qbevent)break;evnt(25224,2552,"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(25224,2553,"ide_methods.bas");}while(r); S_36186:; 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(25224,2554,"ide_methods.bas");if(r)goto S_36186;} do{ *_FUNC_IDE2_LONG_SF= 1 ; if(!qbevent)break;evnt(25224,2554,"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(25224,2554,"ide_methods.bas");}while(r); } S_36190:; 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(25224,2555,"ide_methods.bas");if(r)goto S_36190;} do{ *_FUNC_IDE2_LONG_SF= 2 ; if(!qbevent)break;evnt(25224,2555,"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(25224,2555,"ide_methods.bas");}while(r); } S_36194:; if ((*_FUNC_IDE2_LONG_SF)||new_error){ if(qbevent){evnt(25224,2556,"ide_methods.bas");if(r)goto S_36194;} S_36195:; 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(25224,2557,"ide_methods.bas");if(r)goto S_36195;} 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(25224,2558,"ide_methods.bas");}while(r); } S_36198:; if ((-(*_FUNC_IDE2_LONG_SF== 1 ))||new_error){ if(qbevent){evnt(25224,2561,"ide_methods.bas");if(r)goto S_36198;} 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(25224,2562,"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(25224,2564,"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(25224,2566,"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(25224,2567,"ide_methods.bas");}while(r); S_36205:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,2568,"ide_methods.bas");if(r)goto S_36205;} 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(25224,2569,"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(25224,2570,"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(25224,2571,"ide_methods.bas");}while(r); S_36209:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,2571,"ide_methods.bas");if(r)goto S_36209;} 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(25224,2571,"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(25224,2573,"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(25224,2574,"ide_methods.bas");}while(r); do{ SUB_CLEANSUBNAME(_FUNC_IDE2_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2575,"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(25224,2578,"ide_methods.bas");}while(r); S_36218:; 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(25224,2580,"ide_methods.bas");if(r)goto S_36218;} 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(25224,2581,"ide_methods.bas");}while(r); dl_continue_3941:; } dl_exit_3941:; S_36221:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_IDE2_STRING_N),_FUNC_IDE2_STRING_A2)))||new_error){ if(qbevent){evnt(25224,2584,"ide_methods.bas");if(r)goto S_36221;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("'''",3),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' is a symbol that is used in your program as follows:",56))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2585,"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(25224,2586,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(": ",2)),_FUNC_IDE2_STRING_SF),qbs_new_txt_len("'''",3)),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' ",4)),_FUNC_IDE2_STRING_ARGS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2587,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),qbs_new_txt_len("{{PageNavigation}}",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2588,"ide_methods.bas");}while(r); do{ *__BYTE_IDECONTEXTHELPSF= -1 ; if(!qbevent)break;evnt(25224,2590,"ide_methods.bas");}while(r); S_36227:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,2592,"ide_methods.bas");if(r)goto S_36227;} S_36228:; if ((*__LONG_IDESUBWINDOW)||new_error){ if(qbevent){evnt(25224,2593,"ide_methods.bas");if(r)goto S_36228;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2593,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,2593,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,2593,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; if(!qbevent)break;evnt(25224,2594,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,2594,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; if(!qbevent)break;evnt(25224,2595,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2596,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; if(!qbevent)break;evnt(25224,2597,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,2598,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2599,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,2600,"ide_methods.bas");}while(r); } do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2603,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2604,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2605,"ide_methods.bas");}while(r); do{ goto fornext_exit_3935; if(!qbevent)break;evnt(25224,2607,"ide_methods.bas");}while(r); } } fornext_continue_3935:; } fornext_exit_3935:; } LABEL_NOKEYWORDFOUND:; if(qbevent){evnt(25224,2612,"ide_methods.bas");r=0;} } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2616,"ide_methods.bas");}while(r); } S_36259:; if ((*__LONG_KALT&(-(*__LONG_KB== 19200 )))||new_error){ if(qbevent){evnt(25224,2621,"ide_methods.bas");if(r)goto S_36259;} do{ *_FUNC_IDE2_LONG_BMKREMOVED= 0 ; if(!qbevent)break;evnt(25224,2622,"ide_methods.bas");}while(r); LABEL_BMKREMOVE:; if(qbevent){evnt(25224,2623,"ide_methods.bas");r=0;} S_36261:; fornext_value3944= 1 ; fornext_finalvalue3944=*__LONG_IDEBMKN; fornext_step3944= 1 ; if (fornext_step3944<0) fornext_step_negative3944=1; else fornext_step_negative3944=0; if (new_error) goto fornext_error3944; goto fornext_entrylabel3944; while(1){ fornext_value3944=fornext_step3944+(*_FUNC_IDE2_LONG_B); fornext_entrylabel3944: *_FUNC_IDE2_LONG_B=fornext_value3944; if (fornext_step_negative3944){ if (fornext_value3944fornext_finalvalue3944) break; } fornext_error3944:; if(qbevent){evnt(25224,2624,"ide_methods.bas");if(r)goto S_36261;} S_36262:; 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(25224,2625,"ide_methods.bas");if(r)goto S_36262;} S_36263:; fornext_value3946=*_FUNC_IDE2_LONG_B; fornext_finalvalue3946=*__LONG_IDEBMKN- 1 ; fornext_step3946= 1 ; if (fornext_step3946<0) fornext_step_negative3946=1; else fornext_step_negative3946=0; if (new_error) goto fornext_error3946; goto fornext_entrylabel3946; while(1){ fornext_value3946=fornext_step3946+(*_FUNC_IDE2_LONG_B2); fornext_entrylabel3946: *_FUNC_IDE2_LONG_B2=fornext_value3946; if (fornext_step_negative3946){ if (fornext_value3946fornext_finalvalue3946) break; } fornext_error3946:; if(qbevent){evnt(25224,2626,"ide_methods.bas");if(r)goto S_36263;} 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(25224,2627,"ide_methods.bas");}while(r); fornext_continue_3945:; } fornext_exit_3945:; do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; if(!qbevent)break;evnt(25224,2629,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 1 ; if(!qbevent)break;evnt(25224,2630,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; if(!qbevent)break;evnt(25224,2631,"ide_methods.bas");}while(r); do{ goto LABEL_BMKREMOVE; if(!qbevent)break;evnt(25224,2632,"ide_methods.bas");}while(r); } fornext_continue_3943:; } fornext_exit_3943:; S_36272:; if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ if(qbevent){evnt(25224,2635,"ide_methods.bas");if(r)goto S_36272;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; if(!qbevent)break;evnt(25224,2636,"ide_methods.bas");}while(r); S_36274:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ if(qbevent){evnt(25224,2637,"ide_methods.bas");if(r)goto S_36274;} do{ *_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; if(!qbevent)break;evnt(25224,2637,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_IDEBMK[2]&1){ preserved_elements=__ARRAY_UDT_IDEBMK[5]; } else preserved_elements=0; __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_IDEBMK[0]),preserved_elements*128/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); tmp_long=__ARRAY_UDT_IDEBMK[5]; __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*128/8+1); memcpy((void*)(__ARRAY_UDT_IDEBMK[0]),redim_preserve_cmem_buffer,preserved_elements*128/8+1); if (preserved_elements*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2667,"ide_methods.bas");if(r)goto S_36317;} do{ *_FUNC_IDE2_LONG_L= 1 ; if(!qbevent)break;evnt(25224,2667,"ide_methods.bas");}while(r); } S_36320:; fornext_value3949= 1 ; fornext_finalvalue3949=*__LONG_IDEBMKN; fornext_step3949= 1 ; if (fornext_step3949<0) fornext_step_negative3949=1; else fornext_step_negative3949=0; if (new_error) goto fornext_error3949; goto fornext_entrylabel3949; while(1){ fornext_value3949=fornext_step3949+(*_FUNC_IDE2_LONG_B); fornext_entrylabel3949: *_FUNC_IDE2_LONG_B=fornext_value3949; if (fornext_step_negative3949){ if (fornext_value3949fornext_finalvalue3949) break; } fornext_error3949:; if(qbevent){evnt(25224,2668,"ide_methods.bas");if(r)goto S_36320;} S_36321:; 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(25224,2669,"ide_methods.bas");if(r)goto S_36321;} do{ goto dl_exit_3947; if(!qbevent)break;evnt(25224,2669,"ide_methods.bas");}while(r); } fornext_continue_3948:; } fornext_exit_3948:; dl_continue_3947:; }while(1); dl_exit_3947:; do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,2672,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,2673,"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(25224,2674,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2675,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2676,"ide_methods.bas");}while(r); } S_36332:; if ((*__LONG_KALT&(-(*__LONG_KB== 19712 )))||new_error){ if(qbevent){evnt(25224,2679,"ide_methods.bas");if(r)goto S_36332;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2681,"ide_methods.bas");}while(r); } S_36335:; if ((*__LONG_KALT&(-(*__LONG_KB>= 48 ))&(-(*__LONG_KB<= 57 )))||new_error){ if(qbevent){evnt(25224,2685,"ide_methods.bas");if(r)goto S_36335;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,2685,"ide_methods.bas");}while(r); } S_36338:; 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(25224,2687,"ide_methods.bas");if(r)goto S_36338;} S_36339:; if ((-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -2 ))||new_error){ if(qbevent){evnt(25224,2691,"ide_methods.bas");if(r)goto S_36339;} do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; if(!qbevent)break;evnt(25224,2694,"ide_methods.bas");}while(r); do{ *__LONG_IDEMOUSESELECT= 0 ; if(!qbevent)break;evnt(25224,2695,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1; if(!qbevent)break;evnt(25224,2696,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX; if(!qbevent)break;evnt(25224,2697,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1; if(!qbevent)break;evnt(25224,2698,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY; if(!qbevent)break;evnt(25224,2699,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_NEWPOSITION=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2701,"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(25224,2702,"ide_methods.bas");}while(r); S_36349:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_NEWPOSITION>_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,2703,"ide_methods.bas");if(r)goto S_36349;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_NEWPOSITION; if(!qbevent)break;evnt(25224,2703,"ide_methods.bas");}while(r); do{ goto LABEL_DONEWHOLEWORD; if(!qbevent)break;evnt(25224,2703,"ide_methods.bas");}while(r); } S_36353:; if ((-(*_FUNC_IDE2_LONG_NEWPOSITION== 1 ))||new_error){ if(qbevent){evnt(25224,2704,"ide_methods.bas");if(r)goto S_36353;} do{ *__LONG_IDESELECTX1= 1 ; if(!qbevent)break;evnt(25224,2704,"ide_methods.bas");}while(r); do{ goto LABEL_DONEWHOLEWORD; if(!qbevent)break;evnt(25224,2704,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2705,"ide_methods.bas");}while(r); S_36358:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 )))||new_error){ if(qbevent){evnt(25224,2706,"ide_methods.bas");if(r)goto S_36358;} S_36359:; if ((-(*_FUNC_IDE2_LONG_NEWPOSITION<*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX))||new_error){ if(qbevent){evnt(25224,2707,"ide_methods.bas");if(r)goto S_36359;} S_36360:; fornext_value3953=*_FUNC_IDE2_LONG_NEWPOSITION; fornext_finalvalue3953= 1 ; fornext_step3953= -1 ; if (fornext_step3953<0) fornext_step_negative3953=1; else fornext_step_negative3953=0; if (new_error) goto fornext_error3953; goto fornext_entrylabel3953; while(1){ fornext_value3953=fornext_step3953+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3953: *_FUNC_IDE2_LONG_I=fornext_value3953; if (fornext_step_negative3953){ if (fornext_value3953fornext_finalvalue3953) break; } fornext_error3953:; if(qbevent){evnt(25224,2709,"ide_methods.bas");if(r)goto S_36360;} S_36361:; 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 ,1),0)))||new_error){ if(qbevent){evnt(25224,2710,"ide_methods.bas");if(r)goto S_36361;} do{ goto fornext_exit_3952; if(!qbevent)break;evnt(25224,2710,"ide_methods.bas");}while(r); } fornext_continue_3952:; } fornext_exit_3952:; do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,2712,"ide_methods.bas");}while(r); S_36366:; }else{ if (-(*_FUNC_IDE2_LONG_NEWPOSITION>*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1)){ if(qbevent){evnt(25224,2713,"ide_methods.bas");if(r)goto S_36366;} S_36367:; fornext_value3955=*_FUNC_IDE2_LONG_NEWPOSITION; fornext_finalvalue3955=_FUNC_IDE2_STRING_A->len; fornext_step3955= 1 ; if (fornext_step3955<0) fornext_step_negative3955=1; else fornext_step_negative3955=0; if (new_error) goto fornext_error3955; goto fornext_entrylabel3955; while(1){ fornext_value3955=fornext_step3955+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3955: *_FUNC_IDE2_LONG_I=fornext_value3955; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3955){ if (fornext_value3955fornext_finalvalue3955) break; } fornext_error3955:; if(qbevent){evnt(25224,2715,"ide_methods.bas");if(r)goto S_36367;} S_36368:; 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 ,1),0)))||new_error){ if(qbevent){evnt(25224,2716,"ide_methods.bas");if(r)goto S_36368;} do{ goto fornext_exit_3954; if(!qbevent)break;evnt(25224,2716,"ide_methods.bas");}while(r); } fornext_continue_3954:; } fornext_exit_3954:; do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,2718,"ide_methods.bas");}while(r); } } } S_36375:; }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(25224,2721,"ide_methods.bas");if(r)goto S_36375;} do{ *__LONG_IDEMOUSESELECT= 1 ; if(!qbevent)break;evnt(25224,2722,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -2 ; if(!qbevent)break;evnt(25224,2723,"ide_methods.bas");}while(r); } } S_36379:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,2726,"ide_methods.bas");if(r)goto S_36379;} S_36380:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ if(qbevent){evnt(25224,2727,"ide_methods.bas");if(r)goto S_36380;} S_36381:; 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(25224,2728,"ide_methods.bas");if(r)goto S_36381;} S_36382:; if ((-(((float)(FUNC_TIMEELAPSEDSINCE(&(pass3957=*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK))))>((float)( 0.5E+0 ))))||new_error){ if(qbevent){evnt(25224,2729,"ide_methods.bas");if(r)goto S_36382;} do{ goto LABEL_REGULARTEXTBOX_CLICK; if(!qbevent)break;evnt(25224,2729,"ide_methods.bas");}while(r); } do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2731,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2732,"ide_methods.bas");}while(r); S_36387:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2733,"ide_methods.bas");if(r)goto S_36387;} do{ goto LABEL_REGULARTEXTBOX_CLICK; if(!qbevent)break;evnt(25224,2734,"ide_methods.bas");}while(r); S_36389:; }else{ if (-(*__LONG_ACTIVEINCLUDELINK> 0 )){ if(qbevent){evnt(25224,2735,"ide_methods.bas");if(r)goto S_36389;} do{ qbs_set(_FUNC_IDE2_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2738,"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(25224,2739,"ide_methods.bas");}while(r); S_36392:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ if(qbevent){evnt(25224,2740,"ide_methods.bas");if(r)goto S_36392;} do{ *_FUNC_IDE2_LONG_BACKUPINCLUDEFILE=func_freefile(); if(!qbevent)break;evnt(25224,2741,"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(25224,2742,"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(25224,2743,"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(25224,2744,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); if(!qbevent)break;evnt(25224,2745,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2747,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2748,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2749,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,2751,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,2752,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,2753,"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(25224,2754,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3958= 1 )); if(!qbevent)break;evnt(25224,2755,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2756,"ide_methods.bas");}while(r); do{ sub__delay( 0.2E+0 ); if(!qbevent)break;evnt(25224,2758,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(FUNC_QUOTEDFILENAME(func_command( 0 ,1)),qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(_FUNC_IDE2_STRING_F))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2759,"ide_methods.bas");}while(r); S_36409:; if (((-(*__LONG_ERRORLINEININCLUDE> 0 ))&(-(*__LONG_IDEFOCUSLINE==*__LONG_IDECY)))||new_error){ if(qbevent){evnt(25224,2760,"ide_methods.bas");if(r)goto S_36409;} 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(25224,2761,"ide_methods.bas");}while(r); S_36411:; }else{ if ((-(*__LONG_WARNINGININCLUDELINE> 0 ))&(-(*__LONG_WARNINGININCLUDE==*__LONG_IDECY))){ if(qbevent){evnt(25224,2762,"ide_methods.bas");if(r)goto S_36411;} 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(25224,2763,"ide_methods.bas");}while(r); } } do{ sub_shell(_FUNC_IDE2_STRING_P,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2765,"ide_methods.bas");}while(r); S_36415:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ if(qbevent){evnt(25224,2767,"ide_methods.bas");if(r)goto S_36415;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2768,"ide_methods.bas");}while(r); } do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2770,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2771,"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(25224,2773,"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(25224,2774,"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(25224,2775,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); if(!qbevent)break;evnt(25224,2776,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3959= 0 )); if(!qbevent)break;evnt(25224,2778,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,2779,"ide_methods.bas");}while(r); S_36426:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_TEMPINCLUDE1,_FUNC_IDE2_STRING_TEMPINCLUDE2)))||new_error){ if(qbevent){evnt(25224,2781,"ide_methods.bas");if(r)goto S_36426;} S_36427:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ if(qbevent){evnt(25224,2782,"ide_methods.bas");if(r)goto S_36427;} S_36428:; if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ if(qbevent){evnt(25224,2783,"ide_methods.bas");if(r)goto S_36428;} do{ sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("...",3),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2784,"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(25224,2786,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 0 ; if(!qbevent)break;evnt(25224,2787,"ide_methods.bas");}while(r); S_36433:; if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ if(qbevent){evnt(25224,2788,"ide_methods.bas");if(r)goto S_36433;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,2789,"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(25224,2790,"ide_methods.bas");}while(r); S_36436:; if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ if(qbevent){evnt(25224,2791,"ide_methods.bas");if(r)goto S_36436;} 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(25224,2791,"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(25224,2792,"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(25224,2793,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 4 ; if(!qbevent)break;evnt(25224,2794,"ide_methods.bas");}while(r); } } } }else{ do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,2799,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2802,"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(25224,2804,"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(25224,2805,"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(25224,2808,"ide_methods.bas");}while(r); S_36454:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(25224,2809,"ide_methods.bas");if(r)goto S_36454;} do{ goto LABEL_REGULARTEXTBOX_CLICK; if(!qbevent)break;evnt(25224,2809,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2810,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,2811,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2812,"ide_methods.bas");}while(r); S_36460:; 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(25224,2813,"ide_methods.bas");if(r)goto S_36460;} S_36461:; fornext_value3963=*__LONG_IDECX; fornext_finalvalue3963= 1 ; fornext_step3963= -1 ; if (fornext_step3963<0) fornext_step_negative3963=1; else fornext_step_negative3963=0; if (new_error) goto fornext_error3963; goto fornext_entrylabel3963; while(1){ fornext_value3963=fornext_step3963+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3963: *_FUNC_IDE2_LONG_I=fornext_value3963; if (fornext_step_negative3963){ if (fornext_value3963fornext_finalvalue3963) break; } fornext_error3963:; if(qbevent){evnt(25224,2814,"ide_methods.bas");if(r)goto S_36461;} S_36462:; 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 ,1),0)))||new_error){ if(qbevent){evnt(25224,2815,"ide_methods.bas");if(r)goto S_36462;} do{ goto fornext_exit_3962; if(!qbevent)break;evnt(25224,2815,"ide_methods.bas");}while(r); } fornext_continue_3962:; } fornext_exit_3962:; do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,2817,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,2818,"ide_methods.bas");}while(r); S_36468:; fornext_value3965=*__LONG_IDECX; fornext_finalvalue3965=_FUNC_IDE2_STRING_A->len; fornext_step3965= 1 ; if (fornext_step3965<0) fornext_step_negative3965=1; else fornext_step_negative3965=0; if (new_error) goto fornext_error3965; goto fornext_entrylabel3965; while(1){ fornext_value3965=fornext_step3965+(*_FUNC_IDE2_LONG_I); fornext_entrylabel3965: *_FUNC_IDE2_LONG_I=fornext_value3965; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative3965){ if (fornext_value3965fornext_finalvalue3965) break; } fornext_error3965:; if(qbevent){evnt(25224,2819,"ide_methods.bas");if(r)goto S_36468;} S_36469:; 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 ,1),0)))||new_error){ if(qbevent){evnt(25224,2820,"ide_methods.bas");if(r)goto S_36469;} do{ goto fornext_exit_3964; if(!qbevent)break;evnt(25224,2820,"ide_methods.bas");}while(r); } fornext_continue_3964:; } fornext_exit_3964:; do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,2822,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX=*__LONG_IDECX; if(!qbevent)break;evnt(25224,2823,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; if(!qbevent)break;evnt(25224,2824,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2825,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,2826,"ide_methods.bas");}while(r); } } } }else{ LABEL_REGULARTEXTBOX_CLICK:; if(qbevent){evnt(25224,2830,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX=*__LONG_MX; if(!qbevent)break;evnt(25224,2831,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY=*__LONG_MY; if(!qbevent)break;evnt(25224,2831,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK=func_timer(NULL,0); if(!qbevent)break;evnt(25224,2831,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,2832,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2833,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2834,"ide_methods.bas");}while(r); S_36487:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2835,"ide_methods.bas");if(r)goto S_36487;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2835,"ide_methods.bas");}while(r); } do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,2836,"ide_methods.bas");}while(r); S_36491:; if (((~(*__LONG_KSHIFT)))||new_error){ if(qbevent){evnt(25224,2837,"ide_methods.bas");if(r)goto S_36491;} do{ *__LONG_IDESELECTX1=*__LONG_IDECX; if(!qbevent)break;evnt(25224,2837,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2837,"ide_methods.bas");}while(r); } do{ *__LONG_IDEMOUSESELECT= 1 ; if(!qbevent)break;evnt(25224,2838,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; if(!qbevent)break;evnt(25224,2839,"ide_methods.bas");}while(r); } S_36498:; }else{ if ((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS){ if(qbevent){evnt(25224,2841,"ide_methods.bas");if(r)goto S_36498;} do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,2843,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2844,"ide_methods.bas");}while(r); S_36501:; if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2845,"ide_methods.bas");if(r)goto S_36501;} S_36502:; if (((~(*__LONG_KSHIFT)))||new_error){ if(qbevent){evnt(25224,2846,"ide_methods.bas");if(r)goto S_36502;} do{ *__LONG_IDESELECTX1= 1 ; if(!qbevent)break;evnt(25224,2846,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2846,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,2847,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,2848,"ide_methods.bas");}while(r); S_36508:; }else{ if (-(*__LONG_IDECY==*__LONG_IDEN)){ if(qbevent){evnt(25224,2849,"ide_methods.bas");if(r)goto S_36508;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2850,"ide_methods.bas");}while(r); S_36510:; if (((~(*__LONG_KSHIFT)))||new_error){ if(qbevent){evnt(25224,2851,"ide_methods.bas");if(r)goto S_36510;} do{ *__LONG_IDESELECTX1= 1 ; if(!qbevent)break;evnt(25224,2851,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2851,"ide_methods.bas");}while(r); } do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2852,"ide_methods.bas");}while(r); S_36515:; }else{ if (-(*__LONG_IDECY>*__LONG_IDEN)){ if(qbevent){evnt(25224,2853,"ide_methods.bas");if(r)goto S_36515;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2854,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2855,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,2856,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; if(!qbevent)break;evnt(25224,2858,"ide_methods.bas");}while(r); do{ *__LONG_IDEMOUSESELECT= 0 ; if(!qbevent)break;evnt(25224,2859,"ide_methods.bas");}while(r); } } } LABEL_DONEWHOLEWORD:; if(qbevent){evnt(25224,2863,"ide_methods.bas");r=0;} S_36524:; if ((*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,2865,"ide_methods.bas");if(r)goto S_36524;} LABEL_INVOKECONTEXTUALMENU:; if(qbevent){evnt(25224,2866,"ide_methods.bas");r=0;} S_36525:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ if(qbevent){evnt(25224,2867,"ide_methods.bas");if(r)goto S_36525;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,2868,"ide_methods.bas");}while(r); S_36527:; if ((-(*__LONG_IDESELECT== 0 ))||new_error){ if(qbevent){evnt(25224,2869,"ide_methods.bas");if(r)goto S_36527;} do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2870,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2871,"ide_methods.bas");}while(r); S_36530:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2872,"ide_methods.bas");if(r)goto S_36530;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2872,"ide_methods.bas");}while(r); } }else{ S_36534:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,2874,"ide_methods.bas");if(r)goto S_36534;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2875,"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(25224,2876,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,2877,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,2877,"ide_methods.bas");}while(r); S_36539:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ if(qbevent){evnt(25224,2878,"ide_methods.bas");if(r)goto S_36539;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,2878,"ide_methods.bas");}while(r); } S_36542:; fornext_value3969=*_FUNC_IDE2_LONG_SX1; fornext_finalvalue3969=*_FUNC_IDE2_LONG_SX2- 1 ; fornext_step3969= 1 ; if (fornext_step3969<0) fornext_step_negative3969=1; else fornext_step_negative3969=0; if (new_error) goto fornext_error3969; goto fornext_entrylabel3969; while(1){ fornext_value3969=fornext_step3969+(*_FUNC_IDE2_LONG_X); fornext_entrylabel3969: *_FUNC_IDE2_LONG_X=fornext_value3969; if (fornext_step_negative3969){ if (fornext_value3969fornext_finalvalue3969) break; } fornext_error3969:; if(qbevent){evnt(25224,2879,"ide_methods.bas");if(r)goto S_36542;} S_36543:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,2880,"ide_methods.bas");if(r)goto S_36543;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2880,"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(25224,2880,"ide_methods.bas");}while(r); } fornext_continue_3968:; } fornext_exit_3968:; S_36549:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,2882,"ide_methods.bas");if(r)goto S_36549;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2884,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2885,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2886,"ide_methods.bas");}while(r); S_36553:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2887,"ide_methods.bas");if(r)goto S_36553;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2887,"ide_methods.bas");}while(r); } }else{ S_36557:; 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(25224,2890,"ide_methods.bas");if(r)goto S_36557;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2891,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2892,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2893,"ide_methods.bas");}while(r); S_36561:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2894,"ide_methods.bas");if(r)goto S_36561;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2894,"ide_methods.bas");}while(r); } } S_36565:; if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*__LONG_IDECY))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*__LONG_IDECY)))||new_error){ if(qbevent){evnt(25224,2896,"ide_methods.bas");if(r)goto S_36565;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2897,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2898,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2899,"ide_methods.bas");}while(r); S_36569:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2900,"ide_methods.bas");if(r)goto S_36569;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2900,"ide_methods.bas");}while(r); } } } }else{ do{ *_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,2905,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; if(!qbevent)break;evnt(25224,2906,"ide_methods.bas");}while(r); S_36577:; if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ if(qbevent){evnt(25224,2907,"ide_methods.bas");if(r)goto S_36577;} do{ swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); if(!qbevent)break;evnt(25224,2907,"ide_methods.bas");}while(r); } S_36580:; 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(25224,2908,"ide_methods.bas");if(r)goto S_36580;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2909,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,2910,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,2911,"ide_methods.bas");}while(r); S_36584:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,2912,"ide_methods.bas");if(r)goto S_36584;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,2912,"ide_methods.bas");}while(r); } } } } do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,2916,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2917,"ide_methods.bas");}while(r); do{ SUB_IDEMAKECONTEXTUALMENU(); if(!qbevent)break;evnt(25224,2918,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; if(!qbevent)break;evnt(25224,2919,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,2920,"ide_methods.bas");}while(r); S_36595:; }else{ if ((-(*__LONG_IDEHELP== 1 ))&(-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ if(qbevent){evnt(25224,2921,"ide_methods.bas");if(r)goto S_36595;} do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,2922,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,2923,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,2924,"ide_methods.bas");}while(r); do{ SUB_IDEMAKECONTEXTUALMENU(); if(!qbevent)break;evnt(25224,2925,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; if(!qbevent)break;evnt(25224,2926,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,2927,"ide_methods.bas");}while(r); } } } S_36604:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,2931,"ide_methods.bas");if(r)goto S_36604;} S_36605:; if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,2932,"ide_methods.bas");if(r)goto S_36605;} S_36606:; if ((-(*__LONG_IDEN> 1 ))||new_error){ if(qbevent){evnt(25224,2933,"ide_methods.bas");if(r)goto S_36606;} do{ *_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3971= 3 ),&(pass3972=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); if(!qbevent)break;evnt(25224,2934,"ide_methods.bas");}while(r); S_36608:; if ((-(*_FUNC_IDE2_LONG_Y==*__LONG_MY))||new_error){ if(qbevent){evnt(25224,2935,"ide_methods.bas");if(r)goto S_36608;} do{ *__LONG_IDEMOUSESELECT= 2 ; if(!qbevent)break;evnt(25224,2936,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2937,"ide_methods.bas");}while(r); } } } } S_36615:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,2943,"ide_methods.bas");if(r)goto S_36615;} S_36616:; if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ if(qbevent){evnt(25224,2944,"ide_methods.bas");if(r)goto S_36616;} do{ *_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass3973= 2 ),&(pass3974=*__LONG_IDEWY- 5 ),&(pass3975=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass3976= 608 )); if(!qbevent)break;evnt(25224,2945,"ide_methods.bas");}while(r); S_36618:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_MX))||new_error){ if(qbevent){evnt(25224,2946,"ide_methods.bas");if(r)goto S_36618;} do{ *__LONG_IDEMOUSESELECT= 3 ; if(!qbevent)break;evnt(25224,2947,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2948,"ide_methods.bas");}while(r); } } } S_36624:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ if(qbevent){evnt(25224,2953,"ide_methods.bas");if(r)goto S_36624;} S_36625:; if (((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ if(qbevent){evnt(25224,2954,"ide_methods.bas");if(r)goto S_36625;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2955,"ide_methods.bas");}while(r); S_36627:; if ((-(*__LONG_MY== 3 ))||new_error){ if(qbevent){evnt(25224,2956,"ide_methods.bas");if(r)goto S_36627;} do{ *__LONG_KB= 18432 ; if(!qbevent)break;evnt(25224,2956,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2956,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2956,"ide_methods.bas");}while(r); } S_36632:; if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ if(qbevent){evnt(25224,2957,"ide_methods.bas");if(r)goto S_36632;} do{ *__LONG_KB= 20480 ; if(!qbevent)break;evnt(25224,2957,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2957,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2957,"ide_methods.bas");}while(r); } S_36637:; if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ if(qbevent){evnt(25224,2958,"ide_methods.bas");if(r)goto S_36637;} S_36638:; if ((-(*__LONG_IDEN> 1 ))||new_error){ if(qbevent){evnt(25224,2960,"ide_methods.bas");if(r)goto S_36638;} do{ *_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3977= 3 ),&(pass3978=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); if(!qbevent)break;evnt(25224,2961,"ide_methods.bas");}while(r); S_36640:; if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_MY))||new_error){ if(qbevent){evnt(25224,2962,"ide_methods.bas");if(r)goto S_36640;} S_36641:; if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_Y))||new_error){ if(qbevent){evnt(25224,2963,"ide_methods.bas");if(r)goto S_36641;} do{ *__LONG_KB= 18688 ; if(!qbevent)break;evnt(25224,2964,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2964,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2964,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KB= 20736 ; if(!qbevent)break;evnt(25224,2966,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2966,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2966,"ide_methods.bas");}while(r); } } } } } } S_36655:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ if(qbevent){evnt(25224,2974,"ide_methods.bas");if(r)goto S_36655;} S_36656:; if (((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))&(-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,2975,"ide_methods.bas");if(r)goto S_36656;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,2976,"ide_methods.bas");}while(r); S_36658:; if ((-(*__LONG_MX== 2 ))||new_error){ if(qbevent){evnt(25224,2977,"ide_methods.bas");if(r)goto S_36658;} do{ *__LONG_KB= 19200 ; if(!qbevent)break;evnt(25224,2977,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2977,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2977,"ide_methods.bas");}while(r); } S_36663:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ if(qbevent){evnt(25224,2978,"ide_methods.bas");if(r)goto S_36663;} do{ *__LONG_KB= 19712 ; if(!qbevent)break;evnt(25224,2978,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2978,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2978,"ide_methods.bas");}while(r); } S_36668:; if (((-(*__LONG_MX> 2 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ if(qbevent){evnt(25224,2979,"ide_methods.bas");if(r)goto S_36668;} do{ *_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass3979= 2 ),&(pass3980=*__LONG_IDEWY- 5 ),&(pass3981=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass3982= 608 )); if(!qbevent)break;evnt(25224,2981,"ide_methods.bas");}while(r); S_36670:; if ((-(*_FUNC_IDE2_LONG_X!=*__LONG_MX))||new_error){ if(qbevent){evnt(25224,2982,"ide_methods.bas");if(r)goto S_36670;} S_36671:; if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_X))||new_error){ if(qbevent){evnt(25224,2983,"ide_methods.bas");if(r)goto S_36671;} do{ *__LONG_IDECX=*__LONG_IDECX- 8 ; if(!qbevent)break;evnt(25224,2984,"ide_methods.bas");}while(r); S_36673:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,2985,"ide_methods.bas");if(r)goto S_36673;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,2985,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2986,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2986,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDECX=*__LONG_IDECX+ 8 ; if(!qbevent)break;evnt(25224,2988,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,2989,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; if(!qbevent)break;evnt(25224,2989,"ide_methods.bas");}while(r); } } } } } S_36687:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 2 )))||new_error){ if(qbevent){evnt(25224,2997,"ide_methods.bas");if(r)goto S_36687;} S_36688:; if ((-(*__LONG_IDEN> 1 ))||new_error){ if(qbevent){evnt(25224,2999,"ide_methods.bas");if(r)goto S_36688;} S_36689:; if ((-(*__LONG_MY<= 4 ))||new_error){ if(qbevent){evnt(25224,3000,"ide_methods.bas");if(r)goto S_36689;} do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3000,"ide_methods.bas");}while(r); } S_36692:; if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ if(qbevent){evnt(25224,3001,"ide_methods.bas");if(r)goto S_36692;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3001,"ide_methods.bas");}while(r); } S_36695:; if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ if(qbevent){evnt(25224,3002,"ide_methods.bas");if(r)goto S_36695;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY; if(!qbevent)break;evnt(25224,3003,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y- 3 - 2 + 0.5E+0 ; if(!qbevent)break;evnt(25224,3004,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); if(!qbevent)break;evnt(25224,3005,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); if(!qbevent)break;evnt(25224,3006,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,3007,"ide_methods.bas");}while(r); } } } S_36704:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 3 )))||new_error){ if(qbevent){evnt(25224,3012,"ide_methods.bas");if(r)goto S_36704;} S_36705:; if ((-(*__LONG_MX<= 3 ))||new_error){ if(qbevent){evnt(25224,3014,"ide_methods.bas");if(r)goto S_36705;} do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,3014,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; if(!qbevent)break;evnt(25224,3014,"ide_methods.bas");}while(r); } S_36709:; if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ if(qbevent){evnt(25224,3015,"ide_methods.bas");if(r)goto S_36709;} do{ *__LONG_IDESX= 608 ; if(!qbevent)break;evnt(25224,3015,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; if(!qbevent)break;evnt(25224,3015,"ide_methods.bas");}while(r); } S_36713:; if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ if(qbevent){evnt(25224,3016,"ide_methods.bas");if(r)goto S_36713;} do{ *_FUNC_IDE2_LONG_X=*__LONG_MX; if(!qbevent)break;evnt(25224,3017,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 2 - 2 + 0.5E+0 ; if(!qbevent)break;evnt(25224,3018,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); if(!qbevent)break;evnt(25224,3019,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*( 608 - 1 ))+( 1 )); if(!qbevent)break;evnt(25224,3020,"ide_methods.bas");}while(r); do{ *__LONG_IDESX=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,3021,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; if(!qbevent)break;evnt(25224,3022,"ide_methods.bas");}while(r); } } S_36722:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT<= 1 )))||new_error){ if(qbevent){evnt(25224,3026,"ide_methods.bas");if(r)goto S_36722;} S_36723:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ if(qbevent){evnt(25224,3027,"ide_methods.bas");if(r)goto S_36723;} S_36724:; if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ if(qbevent){evnt(25224,3028,"ide_methods.bas");if(r)goto S_36724;} do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; if(!qbevent)break;evnt(25224,3029,"ide_methods.bas");}while(r); S_36726:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,3030,"ide_methods.bas");if(r)goto S_36726;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3030,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,3031,"ide_methods.bas");}while(r); S_36730:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3032,"ide_methods.bas");if(r)goto S_36730;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3032,"ide_methods.bas");}while(r); } } } } S_36736:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,3037,"ide_methods.bas");if(r)goto S_36736;} S_36737:; 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(25224,3038,"ide_methods.bas");if(r)goto S_36737;} S_36738:; if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ if(qbevent){evnt(25224,3039,"ide_methods.bas");if(r)goto S_36738;} S_36739:; if ((-(*__LONG_MY>=(*__LONG_IDEWY- 5 )))||new_error){ if(qbevent){evnt(25224,3042,"ide_methods.bas");if(r)goto S_36739;} do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,3042,"ide_methods.bas");}while(r); S_36741:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3042,"ide_methods.bas");if(r)goto S_36741;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3042,"ide_methods.bas");}while(r); } } S_36745:; if ((-(*__LONG_MY<= 2 ))||new_error){ if(qbevent){evnt(25224,3043,"ide_methods.bas");if(r)goto S_36745;} do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; if(!qbevent)break;evnt(25224,3043,"ide_methods.bas");}while(r); S_36747:; if ((-(*__LONG_IDECY< 1 ))||new_error){ if(qbevent){evnt(25224,3043,"ide_methods.bas");if(r)goto S_36747;} do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3043,"ide_methods.bas");}while(r); } } S_36751:; if (((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))||new_error){ if(qbevent){evnt(25224,3044,"ide_methods.bas");if(r)goto S_36751;} do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,3044,"ide_methods.bas");}while(r); S_36753:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,3044,"ide_methods.bas");if(r)goto S_36753;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3044,"ide_methods.bas");}while(r); } } S_36757:; if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,3045,"ide_methods.bas");if(r)goto S_36757;} do{ *__LONG_IDECX=*__LONG_IDECX+ 1 ; if(!qbevent)break;evnt(25224,3045,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,3046,"ide_methods.bas");}while(r); } } } S_36764:; 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(25224,3057,"ide_methods.bas");if(r)goto S_36764;} LABEL_IDEMSELECTALL:; if(qbevent){evnt(25224,3058,"ide_methods.bas");r=0;} do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,3059,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1= 1 ; if(!qbevent)break;evnt(25224,3059,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1= 1 ; if(!qbevent)break;evnt(25224,3059,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3060,"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(25224,3061,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3062,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3063,"ide_methods.bas");}while(r); } S_36773:; 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(25224,3066,"ide_methods.bas");if(r)goto S_36773;} S_36774:; if ((*__LONG_KSHIFT&(-(*__LONG_IDEFOCUSLINE> 0 )))||new_error){ if(qbevent){evnt(25224,3067,"ide_methods.bas");if(r)goto S_36774;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3068,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,3069,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEFOCUSLINE; if(!qbevent)break;evnt(25224,3070,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3071,"ide_methods.bas");}while(r); }else{ do{ SUB_IDEGOTOBOX(); if(!qbevent)break;evnt(25224,3073,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3075,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3075,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3077,"ide_methods.bas");}while(r); } S_36786:; 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(25224,3080,"ide_methods.bas");if(r)goto S_36786;} do{ goto LABEL_CTRLNEW; if(!qbevent)break;evnt(25224,3081,"ide_methods.bas");}while(r); } S_36789:; 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(25224,3084,"ide_methods.bas");if(r)goto S_36789;} do{ qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3085,"ide_methods.bas");}while(r); do{ goto LABEL_CTRLOPEN; if(!qbevent)break;evnt(25224,3086,"ide_methods.bas");}while(r); } S_36793:; 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(25224,3089,"ide_methods.bas");if(r)goto S_36793;} do{ goto LABEL_CTRLADDCOMMENT; if(!qbevent)break;evnt(25224,3090,"ide_methods.bas");}while(r); } S_36796:; 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(25224,3093,"ide_methods.bas");if(r)goto S_36796;} do{ goto LABEL_CTRLTOGGLECOMMENT; if(!qbevent)break;evnt(25224,3094,"ide_methods.bas");}while(r); } S_36799:; 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(25224,3097,"ide_methods.bas");if(r)goto S_36799;} do{ goto LABEL_CTRLREMOVECOMMENT; if(!qbevent)break;evnt(25224,3098,"ide_methods.bas");}while(r); } S_36802:; 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(25224,3101,"ide_methods.bas");if(r)goto S_36802;} S_36803:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,3102,"ide_methods.bas");if(r)goto S_36803;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3103,"ide_methods.bas");}while(r); S_36805:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,3104,"ide_methods.bas");if(r)goto S_36805;} 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)),&(pass3984= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3105,"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)),&(pass3985= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3107,"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(25224,3110,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3112,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3112,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,3112,"ide_methods.bas");}while(r); } S_36817:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ if(qbevent){evnt(25224,3115,"ide_methods.bas");if(r)goto S_36817;} S_36818:; if ((*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,3116,"ide_methods.bas");if(r)goto S_36818;} S_36819:; if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ if(qbevent){evnt(25224,3117,"ide_methods.bas");if(r)goto S_36819;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3118,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]; if(!qbevent)break;evnt(25224,3119,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; if(!qbevent)break;evnt(25224,3120,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,3121,"ide_methods.bas");}while(r); } }else{ do{ goto LABEL_IDESUBSJMP; if(!qbevent)break;evnt(25224,3124,"ide_methods.bas");}while(r); } } S_36829:; 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(25224,3128,"ide_methods.bas");if(r)goto S_36829;} S_36830:; if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ if(qbevent){evnt(25224,3129,"ide_methods.bas");if(r)goto S_36830;} do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); if(!qbevent)break;evnt(25224,3130,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3132,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3132,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3133,"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(25224,3135,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3136,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3136,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,3137,"ide_methods.bas");}while(r); } } S_36842:; 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(25224,3141,"ide_methods.bas");if(r)goto S_36842;} LABEL_IDEMUNDO:; if(qbevent){evnt(25224,3142,"ide_methods.bas");r=0;} S_36843:; if ((*__LONG_IDEUNDOPOS)||new_error){ if(qbevent){evnt(25224,3143,"ide_methods.bas");if(r)goto S_36843;} 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(25224,3144,"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(25224,3145,"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(25224,3145,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3145,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3145,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3145,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U= 0 ; if(!qbevent)break;evnt(25224,3148,"ide_methods.bas");}while(r); S_36851:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,3149,"ide_methods.bas");if(r)goto S_36851;} S_36852:; if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,3151,"ide_methods.bas");if(r)goto S_36852;} do{ sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_3986),1); if(!qbevent)break;evnt(25224,3152,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; if(!qbevent)break;evnt(25224,3153,"ide_methods.bas");}while(r); } }else{ S_36857:; if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,3157,"ide_methods.bas");if(r)goto S_36857;} do{ sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_3987),1); if(!qbevent)break;evnt(25224,3158,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; if(!qbevent)break;evnt(25224,3159,"ide_methods.bas");}while(r); } S_36861:; if ((-(*__LONG_IDEUNDOPOS<=*_FUNC_IDE2_LONG_P2))||new_error){ if(qbevent){evnt(25224,3161,"ide_methods.bas");if(r)goto S_36861;} S_36862:; if ((-(*__LONG_IDEUNDOPOS== 13 ))||new_error){ if(qbevent){evnt(25224,3162,"ide_methods.bas");if(r)goto S_36862;} do{ *_FUNC_IDE2_LONG_U=*_FUNC_IDE2_LONG_PLAST; if(!qbevent)break;evnt(25224,3163,"ide_methods.bas");}while(r); }else{ do{ sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_3988),1); if(!qbevent)break;evnt(25224,3165,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; if(!qbevent)break;evnt(25224,3166,"ide_methods.bas");}while(r); } } } S_36870:; if ((*_FUNC_IDE2_LONG_U)||new_error){ if(qbevent){evnt(25224,3171,"ide_methods.bas");if(r)goto S_36870;} S_36871:; if ((-(*__LONG_IDEUNDOPOS==*__LONG_IDEUNDOBASE))||new_error){ if(qbevent){evnt(25224,3173,"ide_methods.bas");if(r)goto S_36871;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3176,"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(25224,3177,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3178,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3178,"ide_methods.bas");}while(r); S_36876:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_WHAT,qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(25224,3179,"ide_methods.bas");if(r)goto S_36876;} do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,3180,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPUNDO; if(!qbevent)break;evnt(25224,3181,"ide_methods.bas");}while(r); } S_36880:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEUNSAVED== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)))))||new_error){ if(qbevent){evnt(25224,3183,"ide_methods.bas");if(r)goto S_36880;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3184,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3185,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3186,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3186,"ide_methods.bas");}while(r); S_36885:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,3187,"ide_methods.bas");if(r)goto S_36885;} do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,3187,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPUNDO; if(!qbevent)break;evnt(25224,3187,"ide_methods.bas");}while(r); } S_36889:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,3188,"ide_methods.bas");if(r)goto S_36889;} do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3189,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNSAVED= 1 ; if(!qbevent)break;evnt(25224,3192,"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(25224,3193,"ide_methods.bas");}while(r); do{ sub__title(__STRING_WINDOWTITLE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3194,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= -1 ; if(!qbevent)break;evnt(25224,3195,"ide_methods.bas");}while(r); } do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; if(!qbevent)break;evnt(25224,3198,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_U); if(!qbevent)break;evnt(25224,3201,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_3989),0); if(!qbevent)break;evnt(25224,3202,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_3990),0); if(!qbevent)break;evnt(25224,3203,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_3991),0); if(!qbevent)break;evnt(25224,3203,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_3992),0); if(!qbevent)break;evnt(25224,3204,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_3993),0); if(!qbevent)break;evnt(25224,3204,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_3994),0); if(!qbevent)break;evnt(25224,3205,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_3995),0); if(!qbevent)break;evnt(25224,3205,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_3996),0); if(!qbevent)break;evnt(25224,3205,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_3997),0); if(!qbevent)break;evnt(25224,3206,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_3998),0); if(!qbevent)break;evnt(25224,3207,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_3999),0); if(!qbevent)break;evnt(25224,3208,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4000),0); if(!qbevent)break;evnt(25224,3210,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); }else{ free((void*)(__ARRAY_UDT_IDEBMK[0])); } } __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*__LONG_IDEBMKN+ 1 )-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDEBMK[5]*128/8+1); memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*128/8+1); }else{ __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(25224,3210,"ide_methods.bas");}while(r); S_36913:; fornext_value4002= 1 ; fornext_finalvalue4002=*__LONG_IDEBMKN; fornext_step4002= 1 ; if (fornext_step4002<0) fornext_step_negative4002=1; else fornext_step_negative4002=0; if (new_error) goto fornext_error4002; goto fornext_entrylabel4002; while(1){ fornext_value4002=fornext_step4002+(*_FUNC_IDE2_LONG_BI); fornext_entrylabel4002: *_FUNC_IDE2_LONG_BI=fornext_value4002; if (fornext_step_negative4002){ if (fornext_value4002fornext_finalvalue4002) break; } fornext_error4002:; if(qbevent){evnt(25224,3211,"ide_methods.bas");if(r)goto S_36913;} 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_4003),0); if(!qbevent)break;evnt(25224,3211,"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_4004),0); if(!qbevent)break;evnt(25224,3211,"ide_methods.bas");}while(r); fornext_continue_4001:; } fornext_exit_4001:; do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4005),0); if(!qbevent)break;evnt(25224,3212,"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(25224,3212,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3212,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3214,"ide_methods.bas");}while(r); do{ *__LONG_IDENOUNDO= 1 ; if(!qbevent)break;evnt(25224,3214,"ide_methods.bas");}while(r); } LABEL_SKIPUNDO:; if(qbevent){evnt(25224,3218,"ide_methods.bas");r=0;} do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,3219,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3221,"ide_methods.bas");}while(r); } S_36927:; 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(25224,3226,"ide_methods.bas");if(r)goto S_36927;} LABEL_IDEMREDO:; if(qbevent){evnt(25224,3227,"ide_methods.bas");r=0;} S_36928:; if ((*__LONG_IDEUNDOPOS)||new_error){ if(qbevent){evnt(25224,3228,"ide_methods.bas");if(r)goto S_36928;} 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(25224,3229,"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(25224,3230,"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(25224,3230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U= 0 ; if(!qbevent)break;evnt(25224,3233,"ide_methods.bas");}while(r); S_36936:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,3234,"ide_methods.bas");if(r)goto S_36936;} S_36937:; if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ if(qbevent){evnt(25224,3236,"ide_methods.bas");if(r)goto S_36937;} do{ sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4006),1); if(!qbevent)break;evnt(25224,3237,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; if(!qbevent)break;evnt(25224,3238,"ide_methods.bas");}while(r); } }else{ S_36942:; if ((-(*__LONG_IDEUNDOPOS>=*_FUNC_IDE2_LONG_P1))||new_error){ if(qbevent){evnt(25224,3242,"ide_methods.bas");if(r)goto S_36942;} S_36943:; if ((-(*__LONG_IDEUNDOPOS==*_FUNC_IDE2_LONG_PLAST))||new_error){ if(qbevent){evnt(25224,3243,"ide_methods.bas");if(r)goto S_36943;} do{ *_FUNC_IDE2_LONG_U= 13 ; if(!qbevent)break;evnt(25224,3244,"ide_methods.bas");}while(r); }else{ do{ sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4007),1); if(!qbevent)break;evnt(25224,3246,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; if(!qbevent)break;evnt(25224,3247,"ide_methods.bas");}while(r); } }else{ S_36950:; if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ if(qbevent){evnt(25224,3250,"ide_methods.bas");if(r)goto S_36950;} do{ sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4008),1); if(!qbevent)break;evnt(25224,3251,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; if(!qbevent)break;evnt(25224,3252,"ide_methods.bas");}while(r); } } } S_36956:; if ((*_FUNC_IDE2_LONG_U)||new_error){ if(qbevent){evnt(25224,3257,"ide_methods.bas");if(r)goto S_36956;} do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; if(!qbevent)break;evnt(25224,3259,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_U); if(!qbevent)break;evnt(25224,3262,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4009),0); if(!qbevent)break;evnt(25224,3263,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4010),0); if(!qbevent)break;evnt(25224,3264,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4011),0); if(!qbevent)break;evnt(25224,3264,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4012),0); if(!qbevent)break;evnt(25224,3265,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4013),0); if(!qbevent)break;evnt(25224,3265,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4014),0); if(!qbevent)break;evnt(25224,3266,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4015),0); if(!qbevent)break;evnt(25224,3266,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4016),0); if(!qbevent)break;evnt(25224,3266,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4017),0); if(!qbevent)break;evnt(25224,3267,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4018),0); if(!qbevent)break;evnt(25224,3268,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4019),0); if(!qbevent)break;evnt(25224,3269,"ide_methods.bas");}while(r); do{ sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4020),0); if(!qbevent)break;evnt(25224,3271,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); }else{ free((void*)(__ARRAY_UDT_IDEBMK[0])); } } __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*__LONG_IDEBMKN+ 1 )-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDEBMK[5]*128/8+1); memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*128/8+1); }else{ __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(25224,3271,"ide_methods.bas");}while(r); S_36972:; fornext_value4022= 1 ; fornext_finalvalue4022=*__LONG_IDEBMKN; fornext_step4022= 1 ; if (fornext_step4022<0) fornext_step_negative4022=1; else fornext_step_negative4022=0; if (new_error) goto fornext_error4022; goto fornext_entrylabel4022; while(1){ fornext_value4022=fornext_step4022+(*_FUNC_IDE2_LONG_BI); fornext_entrylabel4022: *_FUNC_IDE2_LONG_BI=fornext_value4022; if (fornext_step_negative4022){ if (fornext_value4022fornext_finalvalue4022) break; } fornext_error4022:; if(qbevent){evnt(25224,3272,"ide_methods.bas");if(r)goto S_36972;} 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_4023),0); if(!qbevent)break;evnt(25224,3272,"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_4024),0); if(!qbevent)break;evnt(25224,3272,"ide_methods.bas");}while(r); fornext_continue_4021:; } fornext_exit_4021:; do{ sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4025),0); if(!qbevent)break;evnt(25224,3273,"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(25224,3273,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3273,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3275,"ide_methods.bas");}while(r); do{ *__LONG_IDENOUNDO= 1 ; if(!qbevent)break;evnt(25224,3275,"ide_methods.bas");}while(r); } do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,3279,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3281,"ide_methods.bas");}while(r); } S_36986:; 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(25224,3285,"ide_methods.bas");if(r)goto S_36986;} LABEL_IDEMCUT:; if(qbevent){evnt(25224,3286,"ide_methods.bas");r=0;} do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3287,"ide_methods.bas");}while(r); do{ goto LABEL_COPY2CLIP; if(!qbevent)break;evnt(25224,3288,"ide_methods.bas");}while(r); } S_36990:; if (((((-(*__LONG_KB== 21248 ))|(-(*__LONG_KB== 8 ))))&(-(*__LONG_IDESELECT== 1 )))||new_error){ if(qbevent){evnt(25224,3291,"ide_methods.bas");if(r)goto S_36990;} S_36991:; if (((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))|(-(*__LONG_IDESELECTX1!=*__LONG_IDECX)))||new_error){ if(qbevent){evnt(25224,3292,"ide_methods.bas");if(r)goto S_36991;} do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3293,"ide_methods.bas");}while(r); do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,3294,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3295,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3297,"ide_methods.bas");}while(r); } } S_36999:; 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(25224,3302,"ide_methods.bas");if(r)goto S_36999;} LABEL_IDEMPASTE:; if(qbevent){evnt(25224,3303,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3305,"ide_methods.bas");}while(r); S_37001:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ if(qbevent){evnt(25224,3307,"ide_methods.bas");if(r)goto S_37001;} S_37002:; 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(25224,3308,"ide_methods.bas");if(r)goto S_37002;} S_37003:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,3311,"ide_methods.bas");if(r)goto S_37003;} do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,3311,"ide_methods.bas");}while(r); } do{ *__LONG_IDELAYOUTALLOW= 2 ; if(!qbevent)break;evnt(25224,3313,"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(25224,3314,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3= 1 ; if(!qbevent)break;evnt(25224,3315,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; if(!qbevent)break;evnt(25224,3316,"ide_methods.bas");}while(r); LABEL_FULLPASTENEXTLINE:; if(qbevent){evnt(25224,3318,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 13 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3320,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 10 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3321,"ide_methods.bas");}while(r); S_37012:; if ((-(*_FUNC_IDE2_LONG_X== 0 ))||new_error){ if(qbevent){evnt(25224,3322,"ide_methods.bas");if(r)goto S_37012;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X2; if(!qbevent)break;evnt(25224,3322,"ide_methods.bas");}while(r); } S_37015:; if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ if(qbevent){evnt(25224,3323,"ide_methods.bas");if(r)goto S_37015;} do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,3323,"ide_methods.bas");}while(r); } S_37018:; if ((-(*_FUNC_IDE2_LONG_X2<*_FUNC_IDE2_LONG_X))||new_error){ if(qbevent){evnt(25224,3324,"ide_methods.bas");if(r)goto S_37018;} do{ swap_32(&*_FUNC_IDE2_LONG_X,&*_FUNC_IDE2_LONG_X2); if(!qbevent)break;evnt(25224,3324,"ide_methods.bas");}while(r); } S_37021:; if ((-(*_FUNC_IDE2_LONG_X2>(*_FUNC_IDE2_LONG_X+ 1 )))||new_error){ if(qbevent){evnt(25224,3325,"ide_methods.bas");if(r)goto S_37021;} do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,3325,"ide_methods.bas");}while(r); } S_37024:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,3328,"ide_methods.bas");if(r)goto S_37024;} do{ SUB_IDEINSLINE(&(pass4027=*__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,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3329,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,3330,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,3331,"ide_methods.bas");}while(r); }else{ do{ SUB_IDEINSLINE(&(pass4028=*__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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3333,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,3334,"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(25224,3335,"ide_methods.bas");}while(r); } S_37033:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X3<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3338,"ide_methods.bas");if(r)goto S_37033;} do{ goto LABEL_FULLPASTENEXTLINE; if(!qbevent)break;evnt(25224,3338,"ide_methods.bas");}while(r); } S_37036:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,3340,"ide_methods.bas");if(r)goto S_37036;} do{ *__LONG_IDECY=*__LONG_IDECY+*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,3342,"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(25224,3343,"ide_methods.bas");}while(r); S_37039:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_CLIP, 1 ),func_chr( 10 ))))||new_error){ if(qbevent){evnt(25224,3344,"ide_methods.bas");if(r)goto S_37039;} do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,3345,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3346,"ide_methods.bas");}while(r); } } }else{ do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3351,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3354,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3356,"ide_methods.bas");}while(r); } S_37051:; 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(25224,3359,"ide_methods.bas");if(r)goto S_37051;} LABEL_COPY2CLIP:; if(qbevent){evnt(25224,3360,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,FUNC_GETSELECTEDTEXT(&(pass4032= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3361,"ide_methods.bas");}while(r); S_37053:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,3362,"ide_methods.bas");if(r)goto S_37053;} do{ sub__clipboard(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3362,"ide_methods.bas");}while(r); } S_37056:; 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(25224,3363,"ide_methods.bas");if(r)goto S_37056;} do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,3363,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3364,"ide_methods.bas");}while(r); } S_37061:; if ((-(*__LONG_KB== 20992 ))||new_error){ if(qbevent){evnt(25224,3367,"ide_methods.bas");if(r)goto S_37061;} do{ *__INTEGER_IDEINSERT=*__INTEGER_IDEINSERT+ 1 ; if(!qbevent)break;evnt(25224,3368,"ide_methods.bas");}while(r); S_37063:; if ((-(*__INTEGER_IDEINSERT== 2 ))||new_error){ if(qbevent){evnt(25224,3369,"ide_methods.bas");if(r)goto S_37063;} do{ *__INTEGER_IDEINSERT= 0 ; if(!qbevent)break;evnt(25224,3369,"ide_methods.bas");}while(r); } } S_37067:; if ((-(*__LONG_KB== 18432 ))||new_error){ if(qbevent){evnt(25224,3372,"ide_methods.bas");if(r)goto S_37067;} S_37068:; if ((*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,3373,"ide_methods.bas");if(r)goto S_37068;} do{ *__LONG_IDESY=*__LONG_IDESY- 1 ; if(!qbevent)break;evnt(25224,3374,"ide_methods.bas");}while(r); S_37070:; if ((-(*__LONG_IDESY< 1 ))||new_error){ if(qbevent){evnt(25224,3375,"ide_methods.bas");if(r)goto S_37070;} do{ *__LONG_IDESY= 1 ; if(!qbevent)break;evnt(25224,3375,"ide_methods.bas");}while(r); } S_37073:; if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ if(qbevent){evnt(25224,3376,"ide_methods.bas");if(r)goto S_37073;} do{ *__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); if(!qbevent)break;evnt(25224,3376,"ide_methods.bas");}while(r); } }else{ do{ return_point[next_return_point++]=30; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_30:; if(!qbevent)break;evnt(25224,3378,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; if(!qbevent)break;evnt(25224,3379,"ide_methods.bas");}while(r); S_37079:; if ((-(*__LONG_IDECY< 1 ))||new_error){ if(qbevent){evnt(25224,3380,"ide_methods.bas");if(r)goto S_37079;} do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3380,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3381,"ide_methods.bas");}while(r); } } S_37085:; if ((-(*__LONG_KB== 20480 ))||new_error){ if(qbevent){evnt(25224,3385,"ide_methods.bas");if(r)goto S_37085;} S_37086:; if ((*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,3386,"ide_methods.bas");if(r)goto S_37086;} do{ *__LONG_IDESY=*__LONG_IDESY+ 1 ; if(!qbevent)break;evnt(25224,3387,"ide_methods.bas");}while(r); S_37088:; if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3388,"ide_methods.bas");if(r)goto S_37088;} do{ *__LONG_IDESY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3388,"ide_methods.bas");}while(r); } S_37091:; if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ if(qbevent){evnt(25224,3389,"ide_methods.bas");if(r)goto S_37091;} do{ *__LONG_IDECY=*__LONG_IDESY; if(!qbevent)break;evnt(25224,3389,"ide_methods.bas");}while(r); } }else{ do{ return_point[next_return_point++]=31; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_31:; if(!qbevent)break;evnt(25224,3391,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,3392,"ide_methods.bas");}while(r); S_37097:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3393,"ide_methods.bas");if(r)goto S_37097;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3393,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3394,"ide_methods.bas");}while(r); } } S_37103:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,3398,"ide_methods.bas");if(r)goto S_37103;} do{ return_point[next_return_point++]=32; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_32:; if(!qbevent)break;evnt(25224,3399,"ide_methods.bas");}while(r); S_37105:; if ((-(*__LONG_MWHEEL< 0 ))||new_error){ if(qbevent){evnt(25224,3401,"ide_methods.bas");if(r)goto S_37105;} do{ *__LONG_IDECY=*__LONG_IDESY; if(!qbevent)break;evnt(25224,3401,"ide_methods.bas");}while(r); } S_37108:; if ((-(*__LONG_MWHEEL> 0 ))||new_error){ if(qbevent){evnt(25224,3402,"ide_methods.bas");if(r)goto S_37108;} do{ *__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); if(!qbevent)break;evnt(25224,3402,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_IDECY+(*__LONG_MWHEEL* 3 ); if(!qbevent)break;evnt(25224,3403,"ide_methods.bas");}while(r); S_37112:; if ((-(*__LONG_IDECY< 1 ))||new_error){ if(qbevent){evnt(25224,3404,"ide_methods.bas");if(r)goto S_37112;} do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3404,"ide_methods.bas");}while(r); } S_37115:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3405,"ide_methods.bas");if(r)goto S_37115;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3405,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3406,"ide_methods.bas");}while(r); } S_37120:; if ((-(*__LONG_KB== 19200 ))||new_error){ if(qbevent){evnt(25224,3409,"ide_methods.bas");if(r)goto S_37120;} do{ return_point[next_return_point++]=33; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_33:; if(!qbevent)break;evnt(25224,3410,"ide_methods.bas");}while(r); S_37122:; if ((*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,3412,"ide_methods.bas");if(r)goto S_37122;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3414,"ide_methods.bas");}while(r); S_37124:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3415,"ide_methods.bas");if(r)goto S_37124;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3415,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_SKIPPING= 1 ; if(!qbevent)break;evnt(25224,3417,"ide_methods.bas");}while(r); S_37128:; do{ if(qbevent){evnt(25224,3418,"ide_methods.bas");if(r)goto S_37128;} do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,3420,"ide_methods.bas");}while(r); S_37130:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,3422,"ide_methods.bas");if(r)goto S_37130;} S_37131:; do{ if(qbevent){evnt(25224,3423,"ide_methods.bas");if(r)goto S_37131;} S_37132:; if ((-(*__LONG_IDECY== 1 ))||new_error){ if(qbevent){evnt(25224,3424,"ide_methods.bas");if(r)goto S_37132;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3424,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3424,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; if(!qbevent)break;evnt(25224,3425,"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(25224,3426,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3427,"ide_methods.bas");}while(r); S_37139:; dl_continue_4036:; }while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); dl_exit_4036:; if(qbevent){evnt(25224,3428,"ide_methods.bas");if(r)goto S_37139;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3429,"ide_methods.bas");}while(r); } S_37142:; 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(25224,3432,"ide_methods.bas");if(r)goto S_37142;} S_37143:; if ((-(*__LONG_IDECX== 1 ))||new_error){ if(qbevent){evnt(25224,3433,"ide_methods.bas");if(r)goto S_37143;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3433,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3434,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*__LONG_IDECY; if(!qbevent)break;evnt(25224,3434,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPPING= 0 ; if(!qbevent)break;evnt(25224,3435,"ide_methods.bas");}while(r); }else{ S_37150:; if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ if(qbevent){evnt(25224,3437,"ide_methods.bas");if(r)goto S_37150;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,3437,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_Y; if(!qbevent)break;evnt(25224,3437,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3437,"ide_methods.bas");}while(r); } } dl_continue_4035:; }while(1); dl_exit_4035:; }else{ do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,3443,"ide_methods.bas");}while(r); S_37159:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,3444,"ide_methods.bas");if(r)goto S_37159;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3444,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3448,"ide_methods.bas");}while(r); } S_37165:; if ((-(*__LONG_KB== 19712 ))||new_error){ if(qbevent){evnt(25224,3451,"ide_methods.bas");if(r)goto S_37165;} 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(25224,3452,"ide_methods.bas");}while(r); S_37167:; if ((*__LONG_KCONTROL)||new_error){ if(qbevent){evnt(25224,3454,"ide_methods.bas");if(r)goto S_37167;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3456,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPPING= 0 ; if(!qbevent)break;evnt(25224,3457,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FIRST= 1 ; if(!qbevent)break;evnt(25224,3458,"ide_methods.bas");}while(r); S_37171:; do{ if(qbevent){evnt(25224,3459,"ide_methods.bas");if(r)goto S_37171;} S_37172:; if ((-(*_FUNC_IDE2_LONG_FIRST== 0 ))||new_error){ if(qbevent){evnt(25224,3461,"ide_methods.bas");if(r)goto S_37172;} do{ *__LONG_IDECX=*__LONG_IDECX+ 1 ; if(!qbevent)break;evnt(25224,3461,"ide_methods.bas");}while(r); } S_37175:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_FIRST== 0 ))&(-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ if(qbevent){evnt(25224,3463,"ide_methods.bas");if(r)goto S_37175;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3463,"ide_methods.bas");}while(r); } S_37178:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3464,"ide_methods.bas");if(r)goto S_37178;} S_37179:; do{ if(qbevent){evnt(25224,3465,"ide_methods.bas");if(r)goto S_37179;} S_37180:; if ((-(*__LONG_IDECY==*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3466,"ide_methods.bas");if(r)goto S_37180;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3466,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,3467,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3467,"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(25224,3468,"ide_methods.bas");}while(r); S_37186:; dl_continue_4042:; }while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); dl_exit_4042:; if(qbevent){evnt(25224,3469,"ide_methods.bas");if(r)goto S_37186;} do{ *_FUNC_IDE2_LONG_SKIPPING= 0 ; if(!qbevent)break;evnt(25224,3470,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FIRST= 0 ; if(!qbevent)break;evnt(25224,3471,"ide_methods.bas");}while(r); } S_37190:; 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(25224,3474,"ide_methods.bas");if(r)goto S_37190;} S_37191:; if ((*_FUNC_IDE2_LONG_FIRST)||new_error){ if(qbevent){evnt(25224,3475,"ide_methods.bas");if(r)goto S_37191;} do{ *_FUNC_IDE2_LONG_SKIPPING= 1 ; if(!qbevent)break;evnt(25224,3476,"ide_methods.bas");}while(r); }else{ S_37194:; if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ if(qbevent){evnt(25224,3478,"ide_methods.bas");if(r)goto S_37194;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3478,"ide_methods.bas");}while(r); } } }else{ do{ *_FUNC_IDE2_LONG_SKIPPING= 0 ; if(!qbevent)break;evnt(25224,3481,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_FIRST= 0 ; if(!qbevent)break;evnt(25224,3483,"ide_methods.bas");}while(r); dl_continue_4039:; }while(1); dl_exit_4039:; }else{ do{ *__LONG_IDECX=*__LONG_IDECX+ 1 ; if(!qbevent)break;evnt(25224,3488,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3492,"ide_methods.bas");}while(r); } S_37208:; if ((*__LONG_KCONTROL&(-(*__LONG_KB== 18176 )))||new_error){ if(qbevent){evnt(25224,3495,"ide_methods.bas");if(r)goto S_37208;} 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(25224,3496,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3497,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3498,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3499,"ide_methods.bas");}while(r); } S_37214:; if ((*__LONG_KCONTROL&(-(*__LONG_KB== 20224 )))||new_error){ if(qbevent){evnt(25224,3502,"ide_methods.bas");if(r)goto S_37214;} 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(25224,3503,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3504,"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(25224,3505,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3506,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3507,"ide_methods.bas");}while(r); } S_37221:; if ((-(*__LONG_KB== 18176 ))||new_error){ if(qbevent){evnt(25224,3510,"ide_methods.bas");if(r)goto S_37221;} 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(25224,3511,"ide_methods.bas");}while(r); S_37223:; if ((-(*__LONG_IDECX!= 1 ))||new_error){ if(qbevent){evnt(25224,3512,"ide_methods.bas");if(r)goto S_37223;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3513,"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(25224,3515,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3516,"ide_methods.bas");}while(r); S_37228:; fornext_value4046= 1 ; fornext_finalvalue4046=_FUNC_IDE2_STRING_A->len; fornext_step4046= 1 ; if (fornext_step4046<0) fornext_step_negative4046=1; else fornext_step_negative4046=0; if (new_error) goto fornext_error4046; goto fornext_entrylabel4046; while(1){ fornext_value4046=fornext_step4046+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4046: *_FUNC_IDE2_LONG_X=fornext_value4046; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4046){ if (fornext_value4046fornext_finalvalue4046) break; } fornext_error4046:; if(qbevent){evnt(25224,3517,"ide_methods.bas");if(r)goto S_37228;} S_37229:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X)!= 32 )))||new_error){ if(qbevent){evnt(25224,3518,"ide_methods.bas");if(r)goto S_37229;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,3518,"ide_methods.bas");}while(r); do{ goto fornext_exit_4045; if(!qbevent)break;evnt(25224,3518,"ide_methods.bas");}while(r); } fornext_continue_4045:; } fornext_exit_4045:; } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3521,"ide_methods.bas");}while(r); } S_37237:; if ((-(*__LONG_KB== 20224 ))||new_error){ if(qbevent){evnt(25224,3524,"ide_methods.bas");if(r)goto S_37237;} 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(25224,3525,"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(25224,3526,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3527,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3528,"ide_methods.bas");}while(r); } S_37243:; if ((-(*__LONG_KB== 18688 ))||new_error){ if(qbevent){evnt(25224,3531,"ide_methods.bas");if(r)goto S_37243;} 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(25224,3532,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); if(!qbevent)break;evnt(25224,3533,"ide_methods.bas");}while(r); S_37246:; if ((-(*__LONG_IDECY< 1 ))||new_error){ if(qbevent){evnt(25224,3534,"ide_methods.bas");if(r)goto S_37246;} do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,3534,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3535,"ide_methods.bas");}while(r); } S_37251:; if ((-(*__LONG_KB== 20736 ))||new_error){ if(qbevent){evnt(25224,3538,"ide_methods.bas");if(r)goto S_37251;} 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(25224,3539,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); if(!qbevent)break;evnt(25224,3540,"ide_methods.bas");}while(r); S_37254:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3541,"ide_methods.bas");if(r)goto S_37254;} do{ *__LONG_IDECY=*__LONG_IDEN; if(!qbevent)break;evnt(25224,3541,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3542,"ide_methods.bas");}while(r); } do{ goto LABEL_SKIPGOSUBS; if(!qbevent)break;evnt(25224,3545,"ide_methods.bas");}while(r); LABEL_SELECTCHECK:; if(qbevent){evnt(25224,3547,"ide_methods.bas");r=0;} S_37260:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,3548,"ide_methods.bas");if(r)goto S_37260;} S_37261:; if ((*__LONG_KSHIFT&(-(*__LONG_IDESELECT== 0 )))||new_error){ if(qbevent){evnt(25224,3549,"ide_methods.bas");if(r)goto S_37261;} do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,3549,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3549,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,3549,"ide_methods.bas");}while(r); } S_37266:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ if(qbevent){evnt(25224,3550,"ide_methods.bas");if(r)goto S_37266;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3550,"ide_methods.bas");}while(r); } S_37269:; }else{ if (-(*__LONG_IDESYSTEM== 2 )){ if(qbevent){evnt(25224,3551,"ide_methods.bas");if(r)goto S_37269;} S_37270:; if ((*__LONG_KSHIFT&(-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 )))||new_error){ if(qbevent){evnt(25224,3552,"ide_methods.bas");if(r)goto S_37270;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; if(!qbevent)break;evnt(25224,3552,"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(25224,3552,"ide_methods.bas");}while(r); } S_37274:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ if(qbevent){evnt(25224,3553,"ide_methods.bas");if(r)goto S_37274;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; if(!qbevent)break;evnt(25224,3553,"ide_methods.bas");}while(r); } } } do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,3555,"ide_methods.bas");}while(r); LABEL_SKIPGOSUBS:; if(qbevent){evnt(25224,3557,"ide_methods.bas");r=0;} S_37279:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 13 ))))||new_error){ if(qbevent){evnt(25224,3559,"ide_methods.bas");if(r)goto S_37279;} S_37280:; if ((*__LONG_KSHIFT)||new_error){ if(qbevent){evnt(25224,3560,"ide_methods.bas");if(r)goto S_37280;} do{ qbs_set(_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3561,"ide_methods.bas");}while(r); S_37282:; if ((*__BYTE_ENTERINGRGB)||new_error){ if(qbevent){evnt(25224,3562,"ide_methods.bas");if(r)goto S_37282;} do{ *_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,3563,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,3564,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); if(!qbevent)break;evnt(25224,3565,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,3566,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4049= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3567,"ide_methods.bas");}while(r); }else{ S_37289:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,3569,"ide_methods.bas");if(r)goto S_37289;} S_37290:; if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,3570,"ide_methods.bas");if(r)goto S_37290;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3570,"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(25224,3573,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUND_RGB= 0 ; if(!qbevent)break;evnt(25224,3574,"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(25224,3575,"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(25224,3576,"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(25224,3577,"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(25224,3578,"ide_methods.bas");}while(r); S_37300:; if ((*_FUNC_IDE2_LONG_FOUND_RGB)||new_error){ if(qbevent){evnt(25224,3579,"ide_methods.bas");if(r)goto S_37300;} do{ *_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,3580,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,3581,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); if(!qbevent)break;evnt(25224,3582,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,3583,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4050= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3584,"ide_methods.bas");}while(r); } } S_37308:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ if(qbevent){evnt(25224,3587,"ide_methods.bas");if(r)goto S_37308;} do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3587,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3588,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3590,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; if(!qbevent)break;evnt(25224,3591,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3592,"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(25224,3594,"ide_methods.bas");}while(r); S_37317:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3595,"ide_methods.bas");if(r)goto S_37317;} do{ SUB_IDEINSLINE(&(pass4053=*__LONG_IDECY+ 1 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3596,"ide_methods.bas");}while(r); S_37319:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(25224,3597,"ide_methods.bas");if(r)goto S_37319;} do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3598,"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(25224,3600,"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(25224,3603,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3604,"ide_methods.bas");}while(r); S_37327:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A2))->len)> 0 )))||new_error){ if(qbevent){evnt(25224,3605,"ide_methods.bas");if(r)goto S_37327;} S_37328:; if ((-(*__LONG_IDECX> 1 ))||new_error){ if(qbevent){evnt(25224,3606,"ide_methods.bas");if(r)goto S_37328;} 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(25224,3606,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN= 0 ; if(!qbevent)break;evnt(25224,3606,"ide_methods.bas");}while(r); } do{ SUB_IDEINSLINE(&(pass4057=*__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(25224,3607,"ide_methods.bas");}while(r); S_37334:; if ((-(*_FUNC_IDE2_LONG_DESIREDCOLUMN== 0 ))||new_error){ if(qbevent){evnt(25224,3608,"ide_methods.bas");if(r)goto S_37334;} do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; if(!qbevent)break;evnt(25224,3608,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; if(!qbevent)break;evnt(25224,3608,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3610,"ide_methods.bas");}while(r); do{ SUB_IDEINSLINE(&(pass4059=*__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(25224,3611,"ide_methods.bas");}while(r); } } S_37344:; if ((-(*__LONG_IDECX== 1 ))||new_error){ if(qbevent){evnt(25224,3615,"ide_methods.bas");if(r)goto S_37344;} S_37345:; fornext_value4062= 1 ; fornext_finalvalue4062=*__LONG_IDEBMKN; fornext_step4062= 1 ; if (fornext_step4062<0) fornext_step_negative4062=1; else fornext_step_negative4062=0; if (new_error) goto fornext_error4062; goto fornext_entrylabel4062; while(1){ fornext_value4062=fornext_step4062+(*_FUNC_IDE2_LONG_B); fornext_entrylabel4062: *_FUNC_IDE2_LONG_B=fornext_value4062; if (fornext_step_negative4062){ if (fornext_value4062fornext_finalvalue4062) break; } fornext_error4062:; if(qbevent){evnt(25224,3616,"ide_methods.bas");if(r)goto S_37345;} S_37346:; 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(25224,3617,"ide_methods.bas");if(r)goto S_37346;} 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(25224,3617,"ide_methods.bas");}while(r); } fornext_continue_4061:; } fornext_exit_4061:; } do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; if(!qbevent)break;evnt(25224,3621,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN; if(!qbevent)break;evnt(25224,3622,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3623,"ide_methods.bas");}while(r); } } S_37356:; if (((-(*__LONG_KB== 21248 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ if(qbevent){evnt(25224,3627,"ide_methods.bas");if(r)goto S_37356;} do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3628,"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(25224,3629,"ide_methods.bas");}while(r); S_37359:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3630,"ide_methods.bas");if(r)goto S_37359;} 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(25224,3631,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3632,"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(25224,3634,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_ltrim(FUNC_IDEGETLINE(&(pass4066=*__LONG_IDECY+ 1 ))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3635,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3636,"ide_methods.bas");}while(r); do{ SUB_IDEDELLINE(&(pass4067=*__LONG_IDECY+ 1 )); if(!qbevent)break;evnt(25224,3637,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3639,"ide_methods.bas");}while(r); } S_37370:; 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(25224,3647,"ide_methods.bas");if(r)goto S_37370;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3648,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3649,"ide_methods.bas");}while(r); S_37373:; if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ if(qbevent){evnt(25224,3652,"ide_methods.bas");if(r)goto S_37373;} do{ *__LONG_IDEUNDOCOMBO= 2 ; if(!qbevent)break;evnt(25224,3653,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; if(!qbevent)break;evnt(25224,3655,"ide_methods.bas");}while(r); S_37377:; if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ if(qbevent){evnt(25224,3656,"ide_methods.bas");if(r)goto S_37377;} do{ *__LONG_IDEMERGEUNDO= 1 ; if(!qbevent)break;evnt(25224,3656,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNDOCOMBOCHR= 8 ; if(!qbevent)break;evnt(25224,3658,"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(25224,3661,"ide_methods.bas");}while(r); S_37383:; if ((-(*__LONG_IDECX== 1 ))||new_error){ if(qbevent){evnt(25224,3662,"ide_methods.bas");if(r)goto S_37383;} do{ goto LABEL_REGULARBACKSPACEIDECX1; if(!qbevent)break;evnt(25224,3662,"ide_methods.bas");}while(r); } S_37386:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 2 ))))||new_error){ if(qbevent){evnt(25224,3663,"ide_methods.bas");if(r)goto S_37386;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3664,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3665,"ide_methods.bas");}while(r); S_37389:; }else{ if (qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 2 )))){ if(qbevent){evnt(25224,3666,"ide_methods.bas");if(r)goto S_37389;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3667,"ide_methods.bas");}while(r); } } S_37392:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,1)))->len)== 0 )))||new_error){ if(qbevent){evnt(25224,3670,"ide_methods.bas");if(r)goto S_37392;} 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(25224,3672,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3673,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3674,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3675,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3679,"ide_methods.bas");}while(r); S_37399:; do{ if(qbevent){evnt(25224,3680,"ide_methods.bas");if(r)goto S_37399;} do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,3681,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_FIRSTCHAR,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3682,"ide_methods.bas");}while(r); S_37402:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_FIRSTCHAR,func_chr( 32 ))))||new_error){ if(qbevent){evnt(25224,3683,"ide_methods.bas");if(r)goto S_37402;} do{ goto dl_exit_4072; if(!qbevent)break;evnt(25224,3683,"ide_methods.bas");}while(r); } dl_continue_4072:; }while(1); dl_exit_4072:; S_37406:; 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(25224,3685,"ide_methods.bas");if(r)goto S_37406;} S_37407:; do{ if(qbevent){evnt(25224,3686,"ide_methods.bas");if(r)goto S_37407;} S_37408:; if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ if(qbevent){evnt(25224,3687,"ide_methods.bas");if(r)goto S_37408;} do{ goto dl_exit_4073; if(!qbevent)break;evnt(25224,3687,"ide_methods.bas");}while(r); } S_37411:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),_FUNC_IDE2_STRING_FIRSTCHAR)))||new_error){ if(qbevent){evnt(25224,3688,"ide_methods.bas");if(r)goto S_37411;} do{ goto dl_exit_4073; if(!qbevent)break;evnt(25224,3688,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,3689,"ide_methods.bas");}while(r); dl_continue_4073:; }while(1); dl_exit_4073:; }else{ S_37417:; do{ if(qbevent){evnt(25224,3692,"ide_methods.bas");if(r)goto S_37417;} S_37418:; if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ if(qbevent){evnt(25224,3693,"ide_methods.bas");if(r)goto S_37418;} do{ goto dl_exit_4074; if(!qbevent)break;evnt(25224,3693,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; if(!qbevent)break;evnt(25224,3694,"ide_methods.bas");}while(r); S_37422:; 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 ,1),0)))||new_error){ if(qbevent){evnt(25224,3695,"ide_methods.bas");if(r)goto S_37422;} do{ goto dl_exit_4074; if(!qbevent)break;evnt(25224,3695,"ide_methods.bas");}while(r); } dl_continue_4074:; }while(1); dl_exit_4074:; } 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(25224,3698,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,3699,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3700,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3701,"ide_methods.bas");}while(r); } S_37432:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ if(qbevent){evnt(25224,3704,"ide_methods.bas");if(r)goto S_37432;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,3705,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3706,"ide_methods.bas");}while(r); S_37435:; if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ if(qbevent){evnt(25224,3709,"ide_methods.bas");if(r)goto S_37435;} do{ *__LONG_IDEUNDOCOMBO= 2 ; if(!qbevent)break;evnt(25224,3710,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; if(!qbevent)break;evnt(25224,3712,"ide_methods.bas");}while(r); S_37439:; if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ if(qbevent){evnt(25224,3713,"ide_methods.bas");if(r)goto S_37439;} do{ *__LONG_IDEMERGEUNDO= 1 ; if(!qbevent)break;evnt(25224,3713,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNDOCOMBOCHR= 8 ; if(!qbevent)break;evnt(25224,3715,"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(25224,3717,"ide_methods.bas");}while(r); S_37445:; if ((-(*__LONG_IDECX== 1 ))||new_error){ if(qbevent){evnt(25224,3718,"ide_methods.bas");if(r)goto S_37445;} LABEL_REGULARBACKSPACEIDECX1:; if(qbevent){evnt(25224,3719,"ide_methods.bas");r=0;} S_37446:; if ((-(*__LONG_IDECY> 1 ))||new_error){ if(qbevent){evnt(25224,3720,"ide_methods.bas");if(r)goto S_37446;} do{ qbs_set(_FUNC_IDE2_STRING_A2,FUNC_IDEGETLINE(&(pass4075=*__LONG_IDECY- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3721,"ide_methods.bas");}while(r); S_37448:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len> 0 )))||new_error){ if(qbevent){evnt(25224,3722,"ide_methods.bas");if(r)goto S_37448;} LABEL_REGULARBACKUPTOPREVLINE:; if(qbevent){evnt(25224,3724,"ide_methods.bas");r=0;} do{ SUB_IDESETLINE(&(pass4077=*__LONG_IDECY- 1 ),qbs_add(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3725,"ide_methods.bas");}while(r); do{ SUB_IDEDELLINE(__LONG_IDECY); if(!qbevent)break;evnt(25224,3726,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A2->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3727,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; if(!qbevent)break;evnt(25224,3728,"ide_methods.bas");}while(r); }else{ S_37454:; if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,3733,"ide_methods.bas");if(r)goto S_37454;} do{ qbs_set(_FUNC_IDE2_STRING_A3,FUNC_IDEGETLINE(&(pass4079=*__LONG_IDECY+ 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3734,"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(25224,3735,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(&(pass4081=*__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(25224,3736,"ide_methods.bas");}while(r); do{ SUB_IDEDELLINE(__LONG_IDECY); if(!qbevent)break;evnt(25224,3737,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; if(!qbevent)break;evnt(25224,3738,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; if(!qbevent)break;evnt(25224,3739,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_REGULARBACKUPTOPREVLINE; if(!qbevent)break;evnt(25224,3741,"ide_methods.bas");}while(r); } } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3745,"ide_methods.bas");}while(r); } S_37468:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 1 ))))||new_error){ if(qbevent){evnt(25224,3747,"ide_methods.bas");if(r)goto S_37468;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3748,"ide_methods.bas");}while(r); }else{ LABEL_CHECKSPACESBEHIND:; if(qbevent){evnt(25224,3750,"ide_methods.bas");r=0;} S_37471:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,1)))->len)== 0 )))||new_error){ if(qbevent){evnt(25224,3751,"ide_methods.bas");if(r)goto S_37471;} do{ *_FUNC_IDE2_LONG_X= 4 ; if(!qbevent)break;evnt(25224,3753,"ide_methods.bas");}while(r); S_37473:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ if(qbevent){evnt(25224,3754,"ide_methods.bas");if(r)goto S_37473;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; if(!qbevent)break;evnt(25224,3754,"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(25224,3755,"ide_methods.bas");}while(r); S_37477:; 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(25224,3756,"ide_methods.bas");if(r)goto S_37477;} S_37478:; if ((-((*__LONG_IDECX-*_FUNC_IDE2_LONG_X)<( 1 )))||new_error){ if(qbevent){evnt(25224,3757,"ide_methods.bas");if(r)goto S_37478;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,3757,"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(25224,3758,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3759,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,3760,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_ONEBACKSPACE; if(!qbevent)break;evnt(25224,3762,"ide_methods.bas");}while(r); } }else{ LABEL_ONEBACKSPACE:; if(qbevent){evnt(25224,3765,"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(25224,3766,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3767,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,3768,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3771,"ide_methods.bas");}while(r); } S_37495:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len!= 1 )))||new_error){ if(qbevent){evnt(25224,3783,"ide_methods.bas");if(r)goto S_37495;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3783,"ide_methods.bas");}while(r); } S_37498:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 9 ))))||new_error){ if(qbevent){evnt(25224,3784,"ide_methods.bas");if(r)goto S_37498;} do{ goto LABEL_IDEFORCEINPUT; if(!qbevent)break;evnt(25224,3784,"ide_methods.bas");}while(r); } S_37501:; 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(25224,3785,"ide_methods.bas");if(r)goto S_37501;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3785,"ide_methods.bas");}while(r); } LABEL_IDEFORCEINPUT:; if(qbevent){evnt(25224,3786,"ide_methods.bas");r=0;} S_37504:; 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(25224,3788,"ide_methods.bas");if(r)goto S_37504;} S_37505:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,3789,"ide_methods.bas");if(r)goto S_37505;} S_37506:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT|(qbs_equal(__STRING_K,func_chr( 25 )))))||new_error){ if(qbevent){evnt(25224,3791,"ide_methods.bas");if(r)goto S_37506;} LABEL_IDEBLOCKDECREASEINDENT:; if(qbevent){evnt(25224,3792,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; if(!qbevent)break;evnt(25224,3793,"ide_methods.bas");}while(r); S_37508:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ if(qbevent){evnt(25224,3794,"ide_methods.bas");if(r)goto S_37508;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; if(!qbevent)break;evnt(25224,3794,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,3795,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,3796,"ide_methods.bas");}while(r); S_37513:; if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,3798,"ide_methods.bas");if(r)goto S_37513;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3799,"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(25224,3800,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,3801,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3801,"ide_methods.bas");}while(r); S_37518:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ if(qbevent){evnt(25224,3802,"ide_methods.bas");if(r)goto S_37518;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,3802,"ide_methods.bas");}while(r); } S_37521:; fornext_value4088=*_FUNC_IDE2_LONG_SX1; fornext_finalvalue4088=*_FUNC_IDE2_LONG_SX2- 1 ; fornext_step4088= 1 ; if (fornext_step4088<0) fornext_step_negative4088=1; else fornext_step_negative4088=0; if (new_error) goto fornext_error4088; goto fornext_entrylabel4088; while(1){ fornext_value4088=fornext_step4088+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4088: *_FUNC_IDE2_LONG_X=fornext_value4088; if (fornext_step_negative4088){ if (fornext_value4088fornext_finalvalue4088) break; } fornext_error4088:; if(qbevent){evnt(25224,3803,"ide_methods.bas");if(r)goto S_37521;} S_37522:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3804,"ide_methods.bas");if(r)goto S_37522;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3804,"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(25224,3804,"ide_methods.bas");}while(r); } fornext_continue_4087:; } fornext_exit_4087:; S_37528:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,3806,"ide_methods.bas");if(r)goto S_37528;} do{ goto LABEL_SKIPBLOCKINDENT; if(!qbevent)break;evnt(25224,3807,"ide_methods.bas");}while(r); } } S_37532:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,3811,"ide_methods.bas");if(r)goto S_37532;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); if(!qbevent)break;evnt(25224,3811,"ide_methods.bas");}while(r); } S_37535:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ if(qbevent){evnt(25224,3812,"ide_methods.bas");if(r)goto S_37535;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; if(!qbevent)break;evnt(25224,3812,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; if(!qbevent)break;evnt(25224,3814,"ide_methods.bas");}while(r); S_37539:; fornext_value4091=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4091=*_FUNC_IDE2_LONG_Y2; fornext_step4091= 1 ; if (fornext_step4091<0) fornext_step_negative4091=1; else fornext_step_negative4091=0; if (new_error) goto fornext_error4091; goto fornext_entrylabel4091; while(1){ fornext_value4091=fornext_step4091+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4091: *_FUNC_IDE2_LONG_Y=fornext_value4091; if (fornext_step_negative4091){ if (fornext_value4091fornext_finalvalue4091) break; } fornext_error4091:; if(qbevent){evnt(25224,3815,"ide_methods.bas");if(r)goto S_37539;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3816,"ide_methods.bas");}while(r); S_37541:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,3817,"ide_methods.bas");if(r)goto S_37541;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3818,"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(25224,3819,"ide_methods.bas");}while(r); S_37544:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ if(qbevent){evnt(25224,3820,"ide_methods.bas");if(r)goto S_37544;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; if(!qbevent)break;evnt(25224,3820,"ide_methods.bas");}while(r); } } fornext_continue_4090:; } fornext_exit_4090:; S_37549:; if ((-(*_FUNC_IDE2_LONG_LHS> 0 ))||new_error){ if(qbevent){evnt(25224,3825,"ide_methods.bas");if(r)goto S_37549;} S_37550:; if ((-(*_FUNC_IDE2_LONG_LHS<*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL))||new_error){ if(qbevent){evnt(25224,3826,"ide_methods.bas");if(r)goto S_37550;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*_FUNC_IDE2_LONG_LHS; if(!qbevent)break;evnt(25224,3826,"ide_methods.bas");}while(r); } S_37553:; fornext_value4096=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4096=*_FUNC_IDE2_LONG_Y2; 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_Y); fornext_entrylabel4096: *_FUNC_IDE2_LONG_Y=fornext_value4096; if (fornext_step_negative4096){ if (fornext_value4096fornext_finalvalue4096) break; } fornext_error4096:; if(qbevent){evnt(25224,3827,"ide_methods.bas");if(r)goto S_37553;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3828,"ide_methods.bas");}while(r); S_37555:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,3829,"ide_methods.bas");if(r)goto S_37555;} 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(25224,3830,"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(25224,3831,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3832,"ide_methods.bas");}while(r); } fornext_continue_4095:; } fornext_exit_4095:; } S_37562:; if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ if(qbevent){evnt(25224,3836,"ide_methods.bas");if(r)goto S_37562;} do{ *__LONG_IDESELECTX1=*__LONG_IDESELECTX1-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; if(!qbevent)break;evnt(25224,3837,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; if(!qbevent)break;evnt(25224,3838,"ide_methods.bas");}while(r); S_37565:; if ((-(*__LONG_IDECX< 1 ))||new_error){ if(qbevent){evnt(25224,3839,"ide_methods.bas");if(r)goto S_37565;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,3839,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3839,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3841,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3841,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,3842,"ide_methods.bas");}while(r); }else{ LABEL_IDEBLOCKINCREASEINDENT:; if(qbevent){evnt(25224,3844,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; if(!qbevent)break;evnt(25224,3845,"ide_methods.bas");}while(r); S_37575:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ if(qbevent){evnt(25224,3846,"ide_methods.bas");if(r)goto S_37575;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; if(!qbevent)break;evnt(25224,3846,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,3847,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,3848,"ide_methods.bas");}while(r); S_37580:; if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,3850,"ide_methods.bas");if(r)goto S_37580;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3851,"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(25224,3852,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,3853,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3853,"ide_methods.bas");}while(r); S_37585:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ if(qbevent){evnt(25224,3854,"ide_methods.bas");if(r)goto S_37585;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,3854,"ide_methods.bas");}while(r); } S_37588:; fornext_value4100=*_FUNC_IDE2_LONG_SX1; fornext_finalvalue4100=*_FUNC_IDE2_LONG_SX2- 1 ; fornext_step4100= 1 ; if (fornext_step4100<0) fornext_step_negative4100=1; else fornext_step_negative4100=0; if (new_error) goto fornext_error4100; goto fornext_entrylabel4100; while(1){ fornext_value4100=fornext_step4100+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4100: *_FUNC_IDE2_LONG_X=fornext_value4100; if (fornext_step_negative4100){ if (fornext_value4100fornext_finalvalue4100) break; } fornext_error4100:; if(qbevent){evnt(25224,3855,"ide_methods.bas");if(r)goto S_37588;} S_37589:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,3856,"ide_methods.bas");if(r)goto S_37589;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3856,"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(25224,3856,"ide_methods.bas");}while(r); } fornext_continue_4099:; } fornext_exit_4099:; S_37595:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,3858,"ide_methods.bas");if(r)goto S_37595;} do{ goto LABEL_SKIPBLOCKINDENT; if(!qbevent)break;evnt(25224,3859,"ide_methods.bas");}while(r); } } S_37599:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,3863,"ide_methods.bas");if(r)goto S_37599;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); if(!qbevent)break;evnt(25224,3863,"ide_methods.bas");}while(r); } S_37602:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ if(qbevent){evnt(25224,3864,"ide_methods.bas");if(r)goto S_37602;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; if(!qbevent)break;evnt(25224,3864,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; if(!qbevent)break;evnt(25224,3866,"ide_methods.bas");}while(r); S_37606:; fornext_value4103=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4103=*_FUNC_IDE2_LONG_Y2; fornext_step4103= 1 ; if (fornext_step4103<0) fornext_step_negative4103=1; else fornext_step_negative4103=0; if (new_error) goto fornext_error4103; goto fornext_entrylabel4103; while(1){ fornext_value4103=fornext_step4103+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4103: *_FUNC_IDE2_LONG_Y=fornext_value4103; if (fornext_step_negative4103){ if (fornext_value4103fornext_finalvalue4103) break; } fornext_error4103:; if(qbevent){evnt(25224,3867,"ide_methods.bas");if(r)goto S_37606;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3868,"ide_methods.bas");}while(r); S_37608:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,3869,"ide_methods.bas");if(r)goto S_37608;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3870,"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(25224,3871,"ide_methods.bas");}while(r); S_37611:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ if(qbevent){evnt(25224,3872,"ide_methods.bas");if(r)goto S_37611;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; if(!qbevent)break;evnt(25224,3872,"ide_methods.bas");}while(r); } } fornext_continue_4102:; } fornext_exit_4102:; S_37616:; fornext_value4108=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4108=*_FUNC_IDE2_LONG_Y2; fornext_step4108= 1 ; if (fornext_step4108<0) fornext_step_negative4108=1; else fornext_step_negative4108=0; if (new_error) goto fornext_error4108; goto fornext_entrylabel4108; while(1){ fornext_value4108=fornext_step4108+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4108: *_FUNC_IDE2_LONG_Y=fornext_value4108; if (fornext_step_negative4108){ if (fornext_value4108fornext_finalvalue4108) break; } fornext_error4108:; if(qbevent){evnt(25224,3876,"ide_methods.bas");if(r)goto S_37616;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3877,"ide_methods.bas");}while(r); S_37618:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,3878,"ide_methods.bas");if(r)goto S_37618;} 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(25224,3879,"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(25224,3880,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3881,"ide_methods.bas");}while(r); } fornext_continue_4107:; } fornext_exit_4107:; S_37624:; if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ if(qbevent){evnt(25224,3884,"ide_methods.bas");if(r)goto S_37624;} do{ *__LONG_IDESELECTX1=*__LONG_IDESELECTX1+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; if(!qbevent)break;evnt(25224,3885,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; if(!qbevent)break;evnt(25224,3886,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,3888,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,3888,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,3889,"ide_methods.bas");}while(r); } }else{ LABEL_SKIPBLOCKINDENT:; if(qbevent){evnt(25224,3892,"ide_methods.bas");r=0;} S_37633:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ if(qbevent){evnt(25224,3893,"ide_methods.bas");if(r)goto S_37633;} do{ *_FUNC_IDE2_LONG_X= 4 ; if(!qbevent)break;evnt(25224,3894,"ide_methods.bas");}while(r); S_37635:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ if(qbevent){evnt(25224,3895,"ide_methods.bas");if(r)goto S_37635;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; if(!qbevent)break;evnt(25224,3895,"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(25224,3896,"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(25224,3898,"ide_methods.bas");}while(r); } } } S_37644:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))&(~(*__BYTE_ALTSPECIAL))))||new_error){ if(qbevent){evnt(25224,3903,"ide_methods.bas");if(r)goto S_37644;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3903,"ide_methods.bas");}while(r); } S_37647:; if ((*__LONG_KCTRL&(~(*__LONG_KALT)))||new_error){ if(qbevent){evnt(25224,3907,"ide_methods.bas");if(r)goto S_37647;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3907,"ide_methods.bas");}while(r); } S_37650:; if ((*__LONG_KALT&(~(*__LONG_KCTRL))&(~(*__BYTE_ALTSPECIAL)))||new_error){ if(qbevent){evnt(25224,3908,"ide_methods.bas");if(r)goto S_37650;} do{ goto LABEL_SPECIALCHAR; if(!qbevent)break;evnt(25224,3908,"ide_methods.bas");}while(r); } S_37653:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,3911,"ide_methods.bas");if(r)goto S_37653;} do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,3911,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,3912,"ide_methods.bas");}while(r); S_37657:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,3915,"ide_methods.bas");if(r)goto S_37657;} do{ *_FUNC_IDE2_LONG_ASCK=qbs_asc(__STRING_K); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3916,"ide_methods.bas");}while(r); S_37659:; 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(25224,3917,"ide_methods.bas");if(r)goto S_37659;} S_37660:; if ((-(*__LONG_IDEUNDOCOMBOCHR== 8 ))||new_error){ if(qbevent){evnt(25224,3918,"ide_methods.bas");if(r)goto S_37660;} do{ *__LONG_IDEUNDOCOMBO= 0 ; if(!qbevent)break;evnt(25224,3918,"ide_methods.bas");}while(r); } S_37663:; if ((-(*__LONG_IDEUNDOCOMBO== 0 ))||new_error){ if(qbevent){evnt(25224,3919,"ide_methods.bas");if(r)goto S_37663;} do{ *__LONG_IDEUNDOCOMBO= 2 ; if(!qbevent)break;evnt(25224,3920,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; if(!qbevent)break;evnt(25224,3922,"ide_methods.bas");}while(r); S_37667:; if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ if(qbevent){evnt(25224,3923,"ide_methods.bas");if(r)goto S_37667;} do{ *__LONG_IDEMERGEUNDO= 1 ; if(!qbevent)break;evnt(25224,3923,"ide_methods.bas");}while(r); } } } do{ *__LONG_IDEUNDOCOMBOCHR=*_FUNC_IDE2_LONG_ASCK; if(!qbevent)break;evnt(25224,3926,"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(25224,3929,"ide_methods.bas");}while(r); S_37675:; if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ if(qbevent){evnt(25224,3930,"ide_methods.bas");if(r)goto S_37675;} 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(25224,3930,"ide_methods.bas");}while(r); } S_37678:; if ((*__INTEGER_IDEINSERT)||new_error){ if(qbevent){evnt(25224,3932,"ide_methods.bas");if(r)goto S_37678;} 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(25224,3933,"ide_methods.bas");}while(r); S_37680:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,3934,"ide_methods.bas");if(r)goto S_37680;} 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(25224,3934,"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(25224,3935,"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(25224,3937,"ide_methods.bas");}while(r); } do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3940,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX+__STRING_K->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3941,"ide_methods.bas");}while(r); LABEL_SPECIALCHAR:; if(qbevent){evnt(25224,3942,"ide_methods.bas");r=0;} S_37689:; 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(25224,3945,"ide_methods.bas");if(r)goto S_37689;} S_37690:; if ((-(*__LONG_IDECY==*__LONG_IDESELECTY1))||new_error){ if(qbevent){evnt(25224,3946,"ide_methods.bas");if(r)goto S_37690;} do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,3947,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,3947,"ide_methods.bas");}while(r); S_37693:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,3948,"ide_methods.bas");if(r)goto S_37693;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,3948,"ide_methods.bas");}while(r); } S_37696:; if (((-(*__LONG_IDESELECT== 1 ))&(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)> 0 )))||new_error){ if(qbevent){evnt(25224,3949,"ide_methods.bas");if(r)goto S_37696;} S_37697:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,3950,"ide_methods.bas");if(r)goto S_37697;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3951,"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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3952,"ide_methods.bas");}while(r); S_37700:; fornext_value4120= 1 ; fornext_finalvalue4120=__STRING_IDECURRENTSINGLELINESELECTION->len; fornext_step4120= 1 ; if (fornext_step4120<0) fornext_step_negative4120=1; else fornext_step_negative4120=0; if (new_error) goto fornext_error4120; goto fornext_entrylabel4120; while(1){ fornext_value4120=fornext_step4120+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4120: *_FUNC_IDE2_LONG_I=fornext_value4120; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4120){ if (fornext_value4120fornext_finalvalue4120) break; } fornext_error4120:; if(qbevent){evnt(25224,3953,"ide_methods.bas");if(r)goto S_37700;} S_37701:; 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 ,1),0)> 0 )))||new_error){ if(qbevent){evnt(25224,3954,"ide_methods.bas");if(r)goto S_37701;} S_37702:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,1),qbs_new_txt_len(".",1))))||new_error){ if(qbevent){evnt(25224,3956,"ide_methods.bas");if(r)goto S_37702;} do{ qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3957,"ide_methods.bas");}while(r); do{ goto fornext_exit_4119; if(!qbevent)break;evnt(25224,3958,"ide_methods.bas");}while(r); } } fornext_continue_4119:; } fornext_exit_4119:; } do{ qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4122=*_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(25224,3963,"ide_methods.bas");}while(r); do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,3964,"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(25224,3966,"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(25224,3967,"ide_methods.bas");}while(r); do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,3968,"ide_methods.bas");}while(r); } }else{ S_37717:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,3971,"ide_methods.bas");if(r)goto S_37717;} do{ *_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,3972,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; if(!qbevent)break;evnt(25224,3973,"ide_methods.bas");}while(r); S_37720:; if (((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))|(-(*__LONG_IDECX> 1 )))||new_error){ if(qbevent){evnt(25224,3974,"ide_methods.bas");if(r)goto S_37720;} do{ qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4123=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(25224,3975,"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(&(pass4124=*_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(25224,3977,"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(25224,3980,"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(25224,3982,"ide_methods.bas");}while(r); do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,3983,"ide_methods.bas");}while(r); } } S_37732:; if ((*__BYTE_ALTSPECIAL)||new_error){ if(qbevent){evnt(25224,3987,"ide_methods.bas");if(r)goto S_37732;} do{ *__BYTE_ALTSPECIAL= 0 ; if(!qbevent)break;evnt(25224,3988,"ide_methods.bas");}while(r); do{ *__LONG_IDEENTERMENU= 0 ; if(!qbevent)break;evnt(25224,3989,"ide_methods.bas");}while(r); do{ *__LONG_KALT= 0 ; if(!qbevent)break;evnt(25224,3990,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,3991,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3991,"ide_methods.bas");}while(r); } dl_continue_3766:; }while(1); dl_exit_3766:; LABEL_STARTMENU:; if(qbevent){evnt(25224,3997,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_M= 1 ; if(!qbevent)break;evnt(25224,3998,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; if(!qbevent)break;evnt(25224,3999,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; if(!qbevent)break;evnt(25224,3999,"ide_methods.bas");}while(r); LABEL_STARTMENU2:; if(qbevent){evnt(25224,4000,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_ALTHELD= 1 ; if(!qbevent)break;evnt(25224,4001,"ide_methods.bas");}while(r); S_37744:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,4002,"ide_methods.bas");if(r)goto S_37744;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,4002,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=41; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_41:; if(!qbevent)break;evnt(25224,4002,"ide_methods.bas");}while(r); } S_37748:; do{ if(qbevent){evnt(25224,4004,"ide_methods.bas");if(r)goto S_37748;} do{ qbg_sub_locate( 1 , 3 ,NULL,NULL,NULL,3); if(!qbevent)break;evnt(25224,4006,"ide_methods.bas");}while(r); S_37750:; fornext_value4127= 1 ; fornext_finalvalue4127=*__INTEGER_MENUS; fornext_step4127= 1 ; if (fornext_step4127<0) fornext_step_negative4127=1; else fornext_step_negative4127=0; if (new_error) goto fornext_error4127; goto fornext_entrylabel4127; while(1){ fornext_value4127=fornext_step4127+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4127: *_FUNC_IDE2_LONG_I=fornext_value4127; if (fornext_step_negative4127){ if (fornext_value4127fornext_finalvalue4127) break; } fornext_error4127:; if(qbevent){evnt(25224,4007,"ide_methods.bas");if(r)goto S_37750;} S_37751:; if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4008,"ide_methods.bas");if(r)goto S_37751;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4008,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4008,"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 skip4128; makefit(tqbs); qbs_print(tqbs,0); skip4128: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4009,"ide_methods.bas");}while(r); S_37757:; if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4010,"ide_methods.bas");if(r)goto S_37757;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4010,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4010,"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 skip4129; makefit(tqbs); qbs_print(tqbs,0); skip4129: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4011,"ide_methods.bas");}while(r); S_37763:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ if(qbevent){evnt(25224,4012,"ide_methods.bas");if(r)goto S_37763;} 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(25224,4012,"ide_methods.bas");}while(r); } fornext_continue_4126:; } fornext_exit_4126:; do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4015,"ide_methods.bas");}while(r); S_37768:; do{ if(qbevent){evnt(25224,4016,"ide_methods.bas");if(r)goto S_37768;} do{ *_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; if(!qbevent)break;evnt(25224,4018,"ide_methods.bas");}while(r); do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,4020,"ide_methods.bas");}while(r); S_37771:; if (((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))|(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY)))||new_error){ if(qbevent){evnt(25224,4021,"ide_methods.bas");if(r)goto S_37771;} S_37772:; if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ if(qbevent){evnt(25224,4022,"ide_methods.bas");if(r)goto S_37772;} do{ *_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,4023,"ide_methods.bas");}while(r); S_37774:; fornext_value4134= 1 ; fornext_finalvalue4134=*__INTEGER_MENUS; fornext_step4134= 1 ; if (fornext_step4134<0) fornext_step_negative4134=1; else fornext_step_negative4134=0; if (new_error) goto fornext_error4134; goto fornext_entrylabel4134; while(1){ fornext_value4134=fornext_step4134+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4134: *_FUNC_IDE2_LONG_I=fornext_value4134; if (fornext_step_negative4134){ if (fornext_value4134fornext_finalvalue4134) break; } fornext_error4134:; if(qbevent){evnt(25224,4024,"ide_methods.bas");if(r)goto S_37774;} do{ *_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4025,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,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(25224,4026,"ide_methods.bas");}while(r); S_37777:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ if(qbevent){evnt(25224,4027,"ide_methods.bas");if(r)goto S_37777;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,4028,"ide_methods.bas");}while(r); S_37779:; if ((-(*_FUNC_IDE2_LONG_M!=*_FUNC_IDE2_LONG_LASTM))||new_error){ if(qbevent){evnt(25224,4029,"ide_methods.bas");if(r)goto S_37779;} do{ goto dl_exit_4132; if(!qbevent)break;evnt(25224,4029,"ide_methods.bas");}while(r); } } fornext_continue_4133:; } fornext_exit_4133:; } do{ *_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; if(!qbevent)break;evnt(25224,4033,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; if(!qbevent)break;evnt(25224,4033,"ide_methods.bas");}while(r); } S_37788:; if ((-(*__LONG_ICHANGED== 0 ))||new_error){ if(qbevent){evnt(25224,4035,"ide_methods.bas");if(r)goto S_37788;} do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,4035,"ide_methods.bas");}while(r); } S_37791:; if ((*__LONG_KALT)||new_error){ if(qbevent){evnt(25224,4037,"ide_methods.bas");if(r)goto S_37791;} do{ *_FUNC_IDE2_LONG_ALTHELD= 1 ; if(!qbevent)break;evnt(25224,4037,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_ALTHELD= 0 ; if(!qbevent)break;evnt(25224,4037,"ide_methods.bas");}while(r); } S_37796:; if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ if(qbevent){evnt(25224,4039,"ide_methods.bas");if(r)goto S_37796;} S_37797:; do{ if(qbevent){evnt(25224,4040,"ide_methods.bas");if(r)goto S_37797;} do{ sub__limit( 1000 ); if(!qbevent)break;evnt(25224,4041,"ide_methods.bas");}while(r); do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,4042,"ide_methods.bas");}while(r); S_37800:; 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(25224,4043,"ide_methods.bas");if(r)goto S_37800;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4044,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4044,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4045,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4045,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4046,"ide_methods.bas");}while(r); } S_37807:; if ((func__resize())||new_error){ if(qbevent){evnt(25224,4049,"ide_methods.bas");if(r)goto S_37807;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,4050,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4050,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4050,"ide_methods.bas");}while(r); } S_37812:; dl_continue_4136:; }while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); dl_exit_4136:; if(qbevent){evnt(25224,4052,"ide_methods.bas");if(r)goto S_37812;} do{ *__LONG_KB= 27 ; if(!qbevent)break;evnt(25224,4053,"ide_methods.bas");}while(r); } S_37815:; 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(25224,4056,"ide_methods.bas");if(r)goto S_37815;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4057,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4057,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4058,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4058,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4059,"ide_methods.bas");}while(r); } S_37822:; if ((func__resize())||new_error){ if(qbevent){evnt(25224,4062,"ide_methods.bas");if(r)goto S_37822;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,4063,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4063,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4063,"ide_methods.bas");}while(r); } S_37827:; if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,4066,"ide_methods.bas");if(r)goto S_37827;} S_37828:; if ((-(*__LONG_MY== 1 ))||new_error){ if(qbevent){evnt(25224,4067,"ide_methods.bas");if(r)goto S_37828;} S_37829:; 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(25224,4068,"ide_methods.bas");if(r)goto S_37829;} do{ *_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4069,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,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(25224,4070,"ide_methods.bas");}while(r); S_37832:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ if(qbevent){evnt(25224,4071,"ide_methods.bas");if(r)goto S_37832;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,4072,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4073,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4073,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4074,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,4075,"ide_methods.bas");}while(r); } fornext_continue_4137:; } fornext_exit_4137:; } do{ *__LONG_KB= 27 ; if(!qbevent)break;evnt(25224,4079,"ide_methods.bas");}while(r); } S_37843:; if ((func__exit())||new_error){ if(qbevent){evnt(25224,4082,"ide_methods.bas");if(r)goto S_37843;} do{ *__LONG_IDEEXIT= 1 ; if(!qbevent)break;evnt(25224,4082,"ide_methods.bas");}while(r); do{ *__LONG_KB= 27 ; if(!qbevent)break;evnt(25224,4082,"ide_methods.bas");}while(r); } S_37847:; dl_continue_4132:; }while((!(*__LONG_KB))&&(!new_error)); dl_exit_4132:; if(qbevent){evnt(25224,4083,"ide_methods.bas");if(r)goto S_37847;} do{ qbs_set(__STRING_K,qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4085,"ide_methods.bas");}while(r); S_37849:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&*__LONG_KCTRL))||new_error){ if(qbevent){evnt(25224,4086,"ide_methods.bas");if(r)goto S_37849;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4088,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4088,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4089,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4089,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4090,"ide_methods.bas");}while(r); } S_37856:; fornext_value4142= 1 ; fornext_finalvalue4142=*__INTEGER_MENUS; fornext_step4142= 1 ; if (fornext_step4142<0) fornext_step_negative4142=1; else fornext_step_negative4142=0; if (new_error) goto fornext_error4142; goto fornext_entrylabel4142; while(1){ fornext_value4142=fornext_step4142+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4142: *_FUNC_IDE2_LONG_I=fornext_value4142; if (fornext_step_negative4142){ if (fornext_value4142fornext_finalvalue4142) break; } fornext_error4142:; if(qbevent){evnt(25224,4093,"ide_methods.bas");if(r)goto S_37856;} 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(25224,4094,"ide_methods.bas");}while(r); S_37858:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A)))||new_error){ if(qbevent){evnt(25224,4095,"ide_methods.bas");if(r)goto S_37858;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,4096,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4097,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4097,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4098,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,4099,"ide_methods.bas");}while(r); } fornext_continue_4141:; } fornext_exit_4141:; S_37866:; if ((-(*__LONG_KB== 19200 ))||new_error){ if(qbevent){evnt(25224,4103,"ide_methods.bas");if(r)goto S_37866;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; if(!qbevent)break;evnt(25224,4103,"ide_methods.bas");}while(r); } S_37869:; if ((-(*__LONG_KB== 19712 ))||new_error){ if(qbevent){evnt(25224,4104,"ide_methods.bas");if(r)goto S_37869;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,4104,"ide_methods.bas");}while(r); } S_37872:; if ((-(*__LONG_KB== 27 ))||new_error){ if(qbevent){evnt(25224,4105,"ide_methods.bas");if(r)goto S_37872;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4106,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4106,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4107,"ide_methods.bas");}while(r); } S_37877:; if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ if(qbevent){evnt(25224,4109,"ide_methods.bas");if(r)goto S_37877;} do{ *_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; if(!qbevent)break;evnt(25224,4109,"ide_methods.bas");}while(r); } S_37880:; if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ if(qbevent){evnt(25224,4110,"ide_methods.bas");if(r)goto S_37880;} do{ *_FUNC_IDE2_LONG_M= 1 ; if(!qbevent)break;evnt(25224,4110,"ide_methods.bas");}while(r); } S_37883:; if (((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 13 )))||new_error){ if(qbevent){evnt(25224,4111,"ide_methods.bas");if(r)goto S_37883;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4112,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4112,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4113,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,4114,"ide_methods.bas");}while(r); } S_37889:; if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB<= 255 )))||new_error){ if(qbevent){evnt(25224,4118,"ide_methods.bas");if(r)goto S_37889;} S_37890:; if ((-(*__LONG_KALT== 0 ))||new_error){ if(qbevent){evnt(25224,4119,"ide_methods.bas");if(r)goto S_37890;} do{ *__LONG_ICHECKLATER= 1 ; if(!qbevent)break;evnt(25224,4120,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4121,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4121,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4122,"ide_methods.bas");}while(r); } } dl_continue_4125:; }while(1); dl_exit_4125:; LABEL_SHOWMENU:; if(qbevent){evnt(25224,4130,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_ALTHELD= 1 ; if(!qbevent)break;evnt(25224,4131,"ide_methods.bas");}while(r); S_37899:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,4132,"ide_methods.bas");if(r)goto S_37899;} do{ *__LONG_IDESYSTEM= 1 ; if(!qbevent)break;evnt(25224,4132,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=42; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_42:; if(!qbevent)break;evnt(25224,4132,"ide_methods.bas");}while(r); } do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,4133,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4134,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENUR=*_FUNC_IDE2_LONG_R; if(!qbevent)break;evnt(25224,4135,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4136,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_S= 0 ; if(!qbevent)break;evnt(25224,4137,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU= 0 ; if(!qbevent)break;evnt(25224,4138,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_PARENTMENUSETUP= 0 ; if(!qbevent)break;evnt(25224,4139,"ide_methods.bas");}while(r); S_37910:; if(qbevent){evnt(25224,4140,"ide_methods.bas");if(r)goto S_37910;} S_37911:; if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 1 )))||new_error){ if(qbevent){evnt(25224,4141,"ide_methods.bas");if(r)goto S_37911;} do{ *_FUNC_IDE2_LONG_IDECTXMENUX=*__LONG_MX; if(!qbevent)break;evnt(25224,4143,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECTXMENUY=*__LONG_MY; if(!qbevent)break;evnt(25224,4144,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; if(!qbevent)break;evnt(25224,4145,"ide_methods.bas");}while(r); sc_ec_182_end:; goto sc_4143_end; } S_37915:; if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 2 )))||new_error){ if(qbevent){evnt(25224,4146,"ide_methods.bas");if(r)goto S_37915;} do{ *_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; if(!qbevent)break;evnt(25224,4148,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R; if(!qbevent)break;evnt(25224,4149,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,4150,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID; if(!qbevent)break;evnt(25224,4151,"ide_methods.bas");}while(r); sc_ec_183_end:; goto sc_4143_end; } sc_4143_end:; do{ SUB_IDEMAKEEDITMENU(); if(!qbevent)break;evnt(25224,4154,"ide_methods.bas");}while(r); S_37922:; if ((-(*__LONG_TOTALWARNINGS== 0 ))||new_error){ if(qbevent){evnt(25224,4156,"ide_methods.bas");if(r)goto S_37922;} 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(25224,4157,"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(25224,4159,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; if(!qbevent)break;evnt(25224,4162,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; if(!qbevent)break;evnt(25224,4162,"ide_methods.bas");}while(r); S_37929:; do{ if(qbevent){evnt(25224,4163,"ide_methods.bas");if(r)goto S_37929;} do{ sub_pcopy( 2 , 1 ); if(!qbevent)break;evnt(25224,4164,"ide_methods.bas");}while(r); S_37931:; if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 ))||new_error){ if(qbevent){evnt(25224,4166,"ide_methods.bas");if(r)goto S_37931;} do{ *_FUNC_IDE2_LONG_X= 4 ; if(!qbevent)break;evnt(25224,4168,"ide_methods.bas");}while(r); S_37933:; fornext_value4146= 1 ; fornext_finalvalue4146=*_FUNC_IDE2_LONG_M- 1 ; fornext_step4146= 1 ; if (fornext_step4146<0) fornext_step_negative4146=1; else fornext_step_negative4146=0; if (new_error) goto fornext_error4146; goto fornext_entrylabel4146; while(1){ fornext_value4146=fornext_step4146+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4146: *_FUNC_IDE2_LONG_I=fornext_value4146; if (fornext_step_negative4146){ if (fornext_value4146fornext_finalvalue4146) break; } fornext_error4146:; if(qbevent){evnt(25224,4168,"ide_methods.bas");if(r)goto S_37933;} 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(25224,4168,"ide_methods.bas");}while(r); S_37935:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ if(qbevent){evnt(25224,4169,"ide_methods.bas");if(r)goto S_37935;} 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(25224,4169,"ide_methods.bas");}while(r); } fornext_continue_4145:; } fornext_exit_4145:; do{ *_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,4170,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4171,"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(25224,4171,"ide_methods.bas");}while(r); }else{ S_37943:; if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_BYTE_PARENTMENUSETUP== 0 )))||new_error){ if(qbevent){evnt(25224,4173,"ide_methods.bas");if(r)goto S_37943;} do{ *_FUNC_IDE2_BYTE_PARENTMENUSETUP= -1 ; if(!qbevent)break;evnt(25224,4174,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1=*_FUNC_IDE2_LONG_XX- 1 ; if(!qbevent)break;evnt(25224,4175,"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(25224,4176,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1= 3 ; if(!qbevent)break;evnt(25224,4177,"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(25224,4178,"ide_methods.bas");}while(r); } } do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4181,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_W= 0 ; if(!qbevent)break;evnt(25224,4183,"ide_methods.bas");}while(r); S_37953:; fornext_value4150= 1 ; fornext_finalvalue4150=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; fornext_step4150= 1 ; if (fornext_step4150<0) fornext_step_negative4150=1; else fornext_step_negative4150=0; if (new_error) goto fornext_error4150; goto fornext_entrylabel4150; while(1){ fornext_value4150=fornext_step4150+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4150: *_FUNC_IDE2_LONG_I=fornext_value4150; if (fornext_step_negative4150){ if (fornext_value4150fornext_finalvalue4150) break; } fornext_error4150:; if(qbevent){evnt(25224,4184,"ide_methods.bas");if(r)goto S_37953;} 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(25224,4185,"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(25224,4186,"ide_methods.bas");}while(r); S_37956:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0)))||new_error){ if(qbevent){evnt(25224,4187,"ide_methods.bas");if(r)goto S_37956;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; if(!qbevent)break;evnt(25224,4187,"ide_methods.bas");}while(r); } S_37959:; 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(25224,4188,"ide_methods.bas");if(r)goto S_37959;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; if(!qbevent)break;evnt(25224,4188,"ide_methods.bas");}while(r); } S_37962:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ if(qbevent){evnt(25224,4189,"ide_methods.bas");if(r)goto S_37962;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; if(!qbevent)break;evnt(25224,4189,"ide_methods.bas");}while(r); } S_37965:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0)))||new_error){ if(qbevent){evnt(25224,4190,"ide_methods.bas");if(r)goto S_37965;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; if(!qbevent)break;evnt(25224,4190,"ide_methods.bas");}while(r); } S_37968:; if ((-(*_FUNC_IDE2_LONG_L>*_FUNC_IDE2_LONG_W))||new_error){ if(qbevent){evnt(25224,4191,"ide_methods.bas");if(r)goto S_37968;} do{ *_FUNC_IDE2_LONG_W=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,4191,"ide_methods.bas");}while(r); } fornext_continue_4149:; } fornext_exit_4149:; do{ *_FUNC_IDE2_LONG_YY= 2 ; if(!qbevent)break;evnt(25224,4193,"ide_methods.bas");}while(r); S_37973:; if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 0 ))||new_error){ if(qbevent){evnt(25224,4194,"ide_methods.bas");if(r)goto S_37973;} do{ *_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY; if(!qbevent)break;evnt(25224,4195,"ide_methods.bas");}while(r); S_37975:; if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ if(qbevent){evnt(25224,4196,"ide_methods.bas");if(r)goto S_37975;} do{ *_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,4197,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_IDECTXMENUX; if(!qbevent)break;evnt(25224,4199,"ide_methods.bas");}while(r); S_37979:; if ((-(*_FUNC_IDE2_LONG_XX< 3 ))||new_error){ if(qbevent){evnt(25224,4200,"ide_methods.bas");if(r)goto S_37979;} do{ *_FUNC_IDE2_LONG_XX= 3 ; if(!qbevent)break;evnt(25224,4200,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_IDECTXMENUY; if(!qbevent)break;evnt(25224,4201,"ide_methods.bas");}while(r); S_37983:; 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(25224,4202,"ide_methods.bas");if(r)goto S_37983;} 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(25224,4202,"ide_methods.bas");}while(r); } } S_37987:; if ((-(*_FUNC_IDE2_LONG_XX>(*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 )))||new_error){ if(qbevent){evnt(25224,4204,"ide_methods.bas");if(r)goto S_37987;} do{ *_FUNC_IDE2_LONG_XX=*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 ; if(!qbevent)break;evnt(25224,4204,"ide_methods.bas");}while(r); } do{ SUB_IDEBOXSHADOW(&(pass4152=*_FUNC_IDE2_LONG_XX- 2 ),_FUNC_IDE2_LONG_YY,&(pass4153=*_FUNC_IDE2_LONG_W+ 4 ),&(pass4154=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )); if(!qbevent)break;evnt(25224,4206,"ide_methods.bas");}while(r); S_37991:; fornext_value4156= 1 ; fornext_finalvalue4156=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; fornext_step4156= 1 ; if (fornext_step4156<0) fornext_step_negative4156=1; else fornext_step_negative4156=0; if (new_error) goto fornext_error4156; goto fornext_entrylabel4156; while(1){ fornext_value4156=fornext_step4156+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4156: *_FUNC_IDE2_LONG_I=fornext_value4156; if (fornext_step_negative4156){ if (fornext_value4156fornext_finalvalue4156) break; } fornext_error4156:; if(qbevent){evnt(25224,4209,"ide_methods.bas");if(r)goto S_37991;} 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(25224,4210,"ide_methods.bas");}while(r); S_37993:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_M,qbs_new_txt_len("-",1))))||new_error){ if(qbevent){evnt(25224,4211,"ide_methods.bas");if(r)goto S_37993;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4212,"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(25224,4212,"ide_methods.bas");}while(r); S_37996:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1)))){ if(qbevent){evnt(25224,4213,"ide_methods.bas");if(r)goto S_37996;} 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(25224,4214,"ide_methods.bas");}while(r); S_37998:; if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4215,"ide_methods.bas");if(r)goto S_37998;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4215,"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(25224,4215,"ide_methods.bas");}while(r); } S_38002:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ if(qbevent){evnt(25224,4216,"ide_methods.bas");if(r)goto S_38002;} 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(25224,4216,"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(25224,4216,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_H= -1 ; if(!qbevent)break;evnt(25224,4217,"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(25224,4217,"ide_methods.bas");}while(r); S_38009:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,4217,"ide_methods.bas");if(r)goto S_38009;} do{ *_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,4217,"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(25224,4217,"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(25224,4218,"ide_methods.bas");}while(r); S_38014:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,4218,"ide_methods.bas");if(r)goto S_38014;} 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(25224,4218,"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(25224,4218,"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(25224,4218,"ide_methods.bas");}while(r); } S_38019:; fornext_value4163= 1 ; fornext_finalvalue4163=_FUNC_IDE2_STRING_M->len; fornext_step4163= 1 ; if (fornext_step4163<0) fornext_step_negative4163=1; else fornext_step_negative4163=0; if (new_error) goto fornext_error4163; goto fornext_entrylabel4163; while(1){ fornext_value4163=fornext_step4163+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4163: *_FUNC_IDE2_LONG_X=fornext_value4163; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4163){ if (fornext_value4163fornext_finalvalue4163) break; } fornext_error4163:; if(qbevent){evnt(25224,4219,"ide_methods.bas");if(r)goto S_38019;} S_38020:; if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4220,"ide_methods.bas");if(r)goto S_38020;} do{ qbg_sub_color( 2 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4220,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 2 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4220,"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 ,1)); if (new_error) goto skip4165; makefit(tqbs); qbs_print(tqbs,0); skip4165: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4221,"ide_methods.bas");}while(r); fornext_continue_4162:; } fornext_exit_4162:; }else{ S_38028:; if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4224,"ide_methods.bas");if(r)goto S_38028;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4224,"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(25224,4224,"ide_methods.bas");}while(r); } S_38032:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ if(qbevent){evnt(25224,4225,"ide_methods.bas");if(r)goto S_38032;} 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(25224,4225,"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(25224,4225,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_H= -1 ; if(!qbevent)break;evnt(25224,4226,"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(25224,4226,"ide_methods.bas");}while(r); S_38039:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,4226,"ide_methods.bas");if(r)goto S_38039;} do{ *_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,4226,"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(25224,4226,"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(25224,4227,"ide_methods.bas");}while(r); S_38044:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,4227,"ide_methods.bas");if(r)goto S_38044;} 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(25224,4227,"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(25224,4227,"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(25224,4227,"ide_methods.bas");}while(r); } S_38049:; fornext_value4171= 1 ; fornext_finalvalue4171=_FUNC_IDE2_STRING_M->len; fornext_step4171= 1 ; if (fornext_step4171<0) fornext_step_negative4171=1; else fornext_step_negative4171=0; if (new_error) goto fornext_error4171; goto fornext_entrylabel4171; while(1){ fornext_value4171=fornext_step4171+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4171: *_FUNC_IDE2_LONG_X=fornext_value4171; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4171){ if (fornext_value4171fornext_finalvalue4171) break; } fornext_error4171:; if(qbevent){evnt(25224,4228,"ide_methods.bas");if(r)goto S_38049;} S_38050:; if ((-(*_FUNC_IDE2_LONG_X==*_FUNC_IDE2_LONG_H))||new_error){ if(qbevent){evnt(25224,4229,"ide_methods.bas");if(r)goto S_38050;} S_38051:; if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4230,"ide_methods.bas");if(r)goto S_38051;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4230,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4230,"ide_methods.bas");}while(r); } }else{ S_38057:; if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ if(qbevent){evnt(25224,4232,"ide_methods.bas");if(r)goto S_38057;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,4232,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4232,"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 ,1)); if (new_error) goto skip4173; makefit(tqbs); qbs_print(tqbs,0); skip4173: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4234,"ide_methods.bas");}while(r); fornext_continue_4170:; } fornext_exit_4170:; } } fornext_continue_4155:; } fornext_exit_4155:; do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,4239,"ide_methods.bas");}while(r); S_38068:; if ((*_FUNC_IDE2_LONG_S)||new_error){ if(qbevent){evnt(25224,4241,"ide_methods.bas");if(r)goto S_38068;} do{ goto LABEL_MENUCHOICEMADE; if(!qbevent)break;evnt(25224,4241,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_BYTE_UPDATEMENUPANEL= 0 ; if(!qbevent)break;evnt(25224,4243,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,4244,"ide_methods.bas");}while(r); S_38073:; do{ if(qbevent){evnt(25224,4245,"ide_methods.bas");if(r)goto S_38073;} do{ *_FUNC_IDE2_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,4246,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,4246,"ide_methods.bas");}while(r); do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,4247,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; if(!qbevent)break;evnt(25224,4248,"ide_methods.bas");}while(r); S_38078:; if ((*__LONG_KALT)||new_error){ if(qbevent){evnt(25224,4248,"ide_methods.bas");if(r)goto S_38078;} do{ *_FUNC_IDE2_LONG_ALTHELD= 1 ; if(!qbevent)break;evnt(25224,4248,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_ALTHELD= 0 ; if(!qbevent)break;evnt(25224,4248,"ide_methods.bas");}while(r); } S_38083:; if ((*__LONG_ICHANGED)||new_error){ if(qbevent){evnt(25224,4249,"ide_methods.bas");if(r)goto S_38083;} S_38084:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,4250,"ide_methods.bas");if(r)goto S_38084;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4250,"ide_methods.bas");}while(r); } S_38087:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,4251,"ide_methods.bas");if(r)goto S_38087;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4251,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,4251,"ide_methods.bas");}while(r); } S_38091:; if ((*__LONG_MCLICK2)||new_error){ if(qbevent){evnt(25224,4252,"ide_methods.bas");if(r)goto S_38091;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4252,"ide_methods.bas");}while(r); } S_38094:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,4253,"ide_methods.bas");if(r)goto S_38094;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4253,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,4253,"ide_methods.bas");}while(r); } S_38098:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,4254,"ide_methods.bas");if(r)goto S_38098;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4254,"ide_methods.bas");}while(r); } S_38101:; if ((*__LONG_MX)||new_error){ if(qbevent){evnt(25224,4255,"ide_methods.bas");if(r)goto S_38101;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4255,"ide_methods.bas");}while(r); } S_38104:; if ((*__LONG_MY)||new_error){ if(qbevent){evnt(25224,4256,"ide_methods.bas");if(r)goto S_38104;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4256,"ide_methods.bas");}while(r); } } S_38108:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,4258,"ide_methods.bas");if(r)goto S_38108;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,4258,"ide_methods.bas");}while(r); } S_38111:; if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ if(qbevent){evnt(25224,4260,"ide_methods.bas");if(r)goto S_38111;} S_38112:; do{ if(qbevent){evnt(25224,4261,"ide_methods.bas");if(r)goto S_38112;} do{ sub__limit( 1000 ); if(!qbevent)break;evnt(25224,4262,"ide_methods.bas");}while(r); do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,4263,"ide_methods.bas");}while(r); S_38115:; 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(25224,4264,"ide_methods.bas");if(r)goto S_38115;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4265,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4265,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4266,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4266,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4267,"ide_methods.bas");}while(r); } S_38122:; if ((func__resize())||new_error){ if(qbevent){evnt(25224,4270,"ide_methods.bas");if(r)goto S_38122;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,4271,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4271,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4271,"ide_methods.bas");}while(r); } S_38127:; dl_continue_4175:; }while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); dl_exit_4175:; if(qbevent){evnt(25224,4273,"ide_methods.bas");if(r)goto S_38127;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4274,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4274,"ide_methods.bas");}while(r); do{ goto LABEL_STARTMENU2; if(!qbevent)break;evnt(25224,4275,"ide_methods.bas");}while(r); } S_38132:; if ((func__exit())||new_error){ if(qbevent){evnt(25224,4277,"ide_methods.bas");if(r)goto S_38132;} do{ *__LONG_IDEEXIT= 1 ; if(!qbevent)break;evnt(25224,4277,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4277,"ide_methods.bas");}while(r); } S_38136:; 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(25224,4278,"ide_methods.bas");if(r)goto S_38136;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,4279,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4279,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4280,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4280,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4281,"ide_methods.bas");}while(r); } S_38143:; if ((func__resize())||new_error){ if(qbevent){evnt(25224,4283,"ide_methods.bas");if(r)goto S_38143;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; if(!qbevent)break;evnt(25224,4284,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4284,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4284,"ide_methods.bas");}while(r); } do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,4286,"ide_methods.bas");}while(r); S_38149:; dl_continue_4174:; }while((!(*_FUNC_IDE2_LONG_CHANGE))&&(!new_error)); dl_exit_4174:; if(qbevent){evnt(25224,4287,"ide_methods.bas");if(r)goto S_38149;} do{ *_FUNC_IDE2_LONG_S= 0 ; if(!qbevent)break;evnt(25224,4289,"ide_methods.bas");}while(r); S_38151:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,4291,"ide_methods.bas");if(r)goto S_38151;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4292,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4292,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4293,"ide_methods.bas");}while(r); } S_38156:; if ((*__LONG_MCLICK2&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))||new_error){ if(qbevent){evnt(25224,4296,"ide_methods.bas");if(r)goto S_38156;} S_38157:; 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(25224,4298,"ide_methods.bas");if(r)goto S_38157;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4299,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4299,"ide_methods.bas");}while(r); do{ goto LABEL_INVOKECONTEXTUALMENU; if(!qbevent)break;evnt(25224,4300,"ide_methods.bas");}while(r); }else{ do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4302,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4302,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4303,"ide_methods.bas");}while(r); } } S_38167:; if ((*_FUNC_IDE2_LONG_MOUSEUP)||new_error){ if(qbevent){evnt(25224,4308,"ide_methods.bas");if(r)goto S_38167;} S_38168:; 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(25224,4309,"ide_methods.bas");if(r)goto S_38168;} S_38169:; 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(25224,4310,"ide_methods.bas");if(r)goto S_38169;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; if(!qbevent)break;evnt(25224,4311,"ide_methods.bas");}while(r); S_38171:; 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(25224,4312,"ide_methods.bas");if(r)goto S_38171;} do{ *_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; if(!qbevent)break;evnt(25224,4313,"ide_methods.bas");}while(r); } } } S_38176:; 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(25224,4320,"ide_methods.bas");if(r)goto S_38176;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; if(!qbevent)break;evnt(25224,4321,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; if(!qbevent)break;evnt(25224,4322,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU= 0 ; if(!qbevent)break;evnt(25224,4323,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENUR= 0 ; if(!qbevent)break;evnt(25224,4324,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4325,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); if(!qbevent)break;evnt(25224,4326,"ide_methods.bas");}while(r); do{ goto dl_continue_4144; if(!qbevent)break;evnt(25224,4327,"ide_methods.bas");}while(r); } S_38185:; 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(25224,4330,"ide_methods.bas");if(r)goto S_38185;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4331,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4331,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4332,"ide_methods.bas");}while(r); } } S_38191:; if (((~(*_FUNC_IDE2_LONG_MOUSEUP))&(~(*_FUNC_IDE2_LONG_MOUSEDOWN)))||new_error){ if(qbevent){evnt(25224,4336,"ide_methods.bas");if(r)goto S_38191;} S_38192:; 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(25224,4339,"ide_methods.bas");if(r)goto S_38192;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; if(!qbevent)break;evnt(25224,4340,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; if(!qbevent)break;evnt(25224,4341,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU= 0 ; if(!qbevent)break;evnt(25224,4342,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENUR= 0 ; if(!qbevent)break;evnt(25224,4343,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4344,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); if(!qbevent)break;evnt(25224,4345,"ide_methods.bas");}while(r); do{ goto dl_continue_4144; if(!qbevent)break;evnt(25224,4346,"ide_methods.bas");}while(r); } S_38201:; if ((-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))||new_error){ if(qbevent){evnt(25224,4348,"ide_methods.bas");if(r)goto S_38201;} S_38202:; 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(25224,4349,"ide_methods.bas");if(r)goto S_38202;} S_38203:; 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(25224,4350,"ide_methods.bas");if(r)goto S_38203;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; if(!qbevent)break;evnt(25224,4351,"ide_methods.bas");}while(r); S_38205:; 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(25224,4352,"ide_methods.bas");if(r)goto S_38205;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; if(!qbevent)break;evnt(25224,4353,"ide_methods.bas");}while(r); } } }else{ S_38210:; if ((-(*__LONG_MY== 1 ))||new_error){ if(qbevent){evnt(25224,4357,"ide_methods.bas");if(r)goto S_38210;} do{ goto LABEL_CHECKMENUBARHOVER; if(!qbevent)break;evnt(25224,4357,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; if(!qbevent)break;evnt(25224,4359,"ide_methods.bas");}while(r); } S_38216:; if ((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))||new_error){ if(qbevent){evnt(25224,4361,"ide_methods.bas");if(r)goto S_38216;} LABEL_CHECKMENUBARHOVER:; if(qbevent){evnt(25224,4362,"ide_methods.bas");r=0;} S_38217:; if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ if(qbevent){evnt(25224,4363,"ide_methods.bas");if(r)goto S_38217;} do{ *_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,4364,"ide_methods.bas");}while(r); S_38219:; fornext_value4177= 1 ; fornext_finalvalue4177=*__INTEGER_MENUS; fornext_step4177= 1 ; if (fornext_step4177<0) fornext_step_negative4177=1; else fornext_step_negative4177=0; if (new_error) goto fornext_error4177; goto fornext_entrylabel4177; while(1){ fornext_value4177=fornext_step4177+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4177: *_FUNC_IDE2_LONG_I=fornext_value4177; if (fornext_step_negative4177){ if (fornext_value4177fornext_finalvalue4177) break; } fornext_error4177:; if(qbevent){evnt(25224,4365,"ide_methods.bas");if(r)goto S_38219;} do{ *_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4366,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,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(25224,4367,"ide_methods.bas");}while(r); S_38222:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ if(qbevent){evnt(25224,4368,"ide_methods.bas");if(r)goto S_38222;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,4369,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4370,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENUR= 0 ; if(!qbevent)break;evnt(25224,4371,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU= 0 ; if(!qbevent)break;evnt(25224,4372,"ide_methods.bas");}while(r); S_38227:; if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))||new_error){ if(qbevent){evnt(25224,4373,"ide_methods.bas");if(r)goto S_38227;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4373,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); if(!qbevent)break;evnt(25224,4373,"ide_methods.bas");}while(r); } do{ goto fornext_exit_4176; if(!qbevent)break;evnt(25224,4374,"ide_methods.bas");}while(r); } fornext_continue_4176:; } fornext_exit_4176:; } do{ *_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; if(!qbevent)break;evnt(25224,4378,"ide_methods.bas");}while(r); } } S_38238:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,4382,"ide_methods.bas");if(r)goto S_38238;} S_38239:; if ((-(*__LONG_MY== 1 ))||new_error){ if(qbevent){evnt(25224,4385,"ide_methods.bas");if(r)goto S_38239;} do{ *_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; if(!qbevent)break;evnt(25224,4386,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 3 ; if(!qbevent)break;evnt(25224,4387,"ide_methods.bas");}while(r); S_38242:; fornext_value4180= 1 ; fornext_finalvalue4180=*__INTEGER_MENUS; fornext_step4180= 1 ; if (fornext_step4180<0) fornext_step_negative4180=1; else fornext_step_negative4180=0; if (new_error) goto fornext_error4180; goto fornext_entrylabel4180; while(1){ fornext_value4180=fornext_step4180+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4180: *_FUNC_IDE2_LONG_I=fornext_value4180; if (fornext_step_negative4180){ if (fornext_value4180fornext_finalvalue4180) break; } fornext_error4180:; if(qbevent){evnt(25224,4388,"ide_methods.bas");if(r)goto S_38242;} 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(25224,4389,"ide_methods.bas");}while(r); S_38244:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ if(qbevent){evnt(25224,4390,"ide_methods.bas");if(r)goto S_38244;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; if(!qbevent)break;evnt(25224,4391,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4392,"ide_methods.bas");}while(r); S_38247:; if (((-(*_FUNC_IDE2_LONG_LASTM==*_FUNC_IDE2_LONG_M))&(-(*_FUNC_IDE2_LONG_MOUSEDOWN== 1 )))||new_error){ if(qbevent){evnt(25224,4393,"ide_methods.bas");if(r)goto S_38247;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4393,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4393,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4393,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4394,"ide_methods.bas");}while(r); do{ goto fornext_exit_4179; if(!qbevent)break;evnt(25224,4395,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; if(!qbevent)break;evnt(25224,4397,"ide_methods.bas");}while(r); S_38256:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ if(qbevent){evnt(25224,4398,"ide_methods.bas");if(r)goto S_38256;} 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(25224,4398,"ide_methods.bas");}while(r); } fornext_continue_4179:; } fornext_exit_4179:; } S_38261:; 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(25224,4403,"ide_methods.bas");if(r)goto S_38261;} S_38262:; 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(25224,4404,"ide_methods.bas");if(r)goto S_38262;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; if(!qbevent)break;evnt(25224,4405,"ide_methods.bas");}while(r); S_38264:; 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(25224,4406,"ide_methods.bas");if(r)goto S_38264;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; if(!qbevent)break;evnt(25224,4406,"ide_methods.bas");}while(r); } } } } S_38270:; if (((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ if(qbevent){evnt(25224,4412,"ide_methods.bas");if(r)goto S_38270;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; if(!qbevent)break;evnt(25224,4413,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4413,"ide_methods.bas");}while(r); S_38273:; }else{ if ((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ if(qbevent){evnt(25224,4414,"ide_methods.bas");if(r)goto S_38273;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4415,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); if(!qbevent)break;evnt(25224,4416,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; if(!qbevent)break;evnt(25224,4417,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; if(!qbevent)break;evnt(25224,4418,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PARENTMENU= 0 ; if(!qbevent)break;evnt(25224,4419,"ide_methods.bas");}while(r); } } S_38280:; if (((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ if(qbevent){evnt(25224,4421,"ide_methods.bas");if(r)goto S_38280;} S_38281:; 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(25224,4422,"ide_methods.bas");if(r)goto S_38281;} S_38282:; qbs_set(sc_4184,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(25224,4423,"ide_methods.bas");if(r)goto S_38282;} S_38283:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4184,qbs_new_txt_len("#Line Numbers",13))))||new_error){ if(qbevent){evnt(25224,4424,"ide_methods.bas");if(r)goto S_38283;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; if(!qbevent)break;evnt(25224,4425,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,4426,"ide_methods.bas");}while(r); sc_ec_184_end:; goto sc_4184_end; } sc_4184_end:; }else{ do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,4429,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4429,"ide_methods.bas");}while(r); } S_38291:; }else{ if ((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ if(qbevent){evnt(25224,4431,"ide_methods.bas");if(r)goto S_38291;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; if(!qbevent)break;evnt(25224,4432,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); if(!qbevent)break;evnt(25224,4433,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU+ 1 ; if(!qbevent)break;evnt(25224,4434,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4435,"ide_methods.bas");}while(r); } } S_38297:; if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ if(qbevent){evnt(25224,4437,"ide_methods.bas");if(r)goto S_38297;} do{ *_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; if(!qbevent)break;evnt(25224,4437,"ide_methods.bas");}while(r); } S_38300:; if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ if(qbevent){evnt(25224,4438,"ide_methods.bas");if(r)goto S_38300;} do{ *_FUNC_IDE2_LONG_M= 1 ; if(!qbevent)break;evnt(25224,4438,"ide_methods.bas");}while(r); } S_38303:; if ((-(*__LONG_KB== 27 ))||new_error){ if(qbevent){evnt(25224,4439,"ide_methods.bas");if(r)goto S_38303;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4440,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4440,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4441,"ide_methods.bas");}while(r); } S_38308:; if ((-(*__LONG_KB== 20480 ))||new_error){ if(qbevent){evnt(25224,4443,"ide_methods.bas");if(r)goto S_38308;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; if(!qbevent)break;evnt(25224,4444,"ide_methods.bas");}while(r); S_38310:; 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(25224,4445,"ide_methods.bas");if(r)goto S_38310;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; if(!qbevent)break;evnt(25224,4445,"ide_methods.bas");}while(r); } S_38313:; 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(25224,4446,"ide_methods.bas");if(r)goto S_38313;} do{ *_FUNC_IDE2_LONG_R= 1 ; if(!qbevent)break;evnt(25224,4446,"ide_methods.bas");}while(r); } } S_38317:; if ((-(*__LONG_KB== 18432 ))||new_error){ if(qbevent){evnt(25224,4449,"ide_methods.bas");if(r)goto S_38317;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; if(!qbevent)break;evnt(25224,4450,"ide_methods.bas");}while(r); S_38319:; 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(25224,4451,"ide_methods.bas");if(r)goto S_38319;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; if(!qbevent)break;evnt(25224,4451,"ide_methods.bas");}while(r); } S_38322:; if ((-(*_FUNC_IDE2_LONG_R< 1 ))||new_error){ if(qbevent){evnt(25224,4452,"ide_methods.bas");if(r)goto S_38322;} 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(25224,4452,"ide_methods.bas");}while(r); } } S_38326:; if ((-(*__LONG_KB== 13 ))||new_error){ if(qbevent){evnt(25224,4458,"ide_methods.bas");if(r)goto S_38326;} S_38327:; 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(25224,4459,"ide_methods.bas");if(r)goto S_38327;} do{ *_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; if(!qbevent)break;evnt(25224,4459,"ide_methods.bas");}while(r); } } do{ qbs_set(__STRING_K,qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4463,"ide_methods.bas");}while(r); S_38332:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&(~(*__LONG_KCTRL))))||new_error){ if(qbevent){evnt(25224,4464,"ide_methods.bas");if(r)goto S_38332;} S_38333:; fornext_value4187= 1 ; fornext_finalvalue4187=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; fornext_step4187= 1 ; if (fornext_step4187<0) fornext_step_negative4187=1; else fornext_step_negative4187=0; if (new_error) goto fornext_error4187; goto fornext_entrylabel4187; while(1){ fornext_value4187=fornext_step4187+(*_FUNC_IDE2_LONG_R2); fornext_entrylabel4187: *_FUNC_IDE2_LONG_R2=fornext_value4187; if (fornext_step_negative4187){ if (fornext_value4187fornext_finalvalue4187) break; } fornext_error4187:; if(qbevent){evnt(25224,4465,"ide_methods.bas");if(r)goto S_38333;} 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(25224,4466,"ide_methods.bas");}while(r); S_38335:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,4467,"ide_methods.bas");if(r)goto S_38335;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4468,"ide_methods.bas");}while(r); S_38337:; 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(25224,4469,"ide_methods.bas");if(r)goto S_38337;} do{ *_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R2; if(!qbevent)break;evnt(25224,4470,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; if(!qbevent)break;evnt(25224,4471,"ide_methods.bas");}while(r); do{ goto fornext_exit_4186; if(!qbevent)break;evnt(25224,4472,"ide_methods.bas");}while(r); S_38341:; }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(25224,4473,"ide_methods.bas");if(r)goto S_38341;} do{ *_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; if(!qbevent)break;evnt(25224,4474,"ide_methods.bas");}while(r); do{ goto fornext_exit_4186; if(!qbevent)break;evnt(25224,4475,"ide_methods.bas");}while(r); } } } fornext_continue_4186:; } fornext_exit_4186:; S_38347:; if ((*_FUNC_IDE2_BYTE_UPDATEMENUPANEL)||new_error){ if(qbevent){evnt(25224,4479,"ide_methods.bas");if(r)goto S_38347;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R2; if(!qbevent)break;evnt(25224,4479,"ide_methods.bas");}while(r); do{ goto dl_continue_4144; if(!qbevent)break;evnt(25224,4479,"ide_methods.bas");}while(r); } } S_38352:; if ((*_FUNC_IDE2_LONG_S)||new_error){ if(qbevent){evnt(25224,4482,"ide_methods.bas");if(r)goto S_38352;} LABEL_MENUCHOICEMADE:; if(qbevent){evnt(25224,4483,"ide_methods.bas");r=0;} S_38353:; if ((*__LONG_KALT)||new_error){ if(qbevent){evnt(25224,4484,"ide_methods.bas");if(r)goto S_38353;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,4484,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,4484,"ide_methods.bas");}while(r); } S_38358:; 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(25224,4486,"ide_methods.bas");if(r)goto S_38358;} LABEL_CTRLADDCOMMENT:; if(qbevent){evnt(25224,4487,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,4488,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; if(!qbevent)break;evnt(25224,4488,"ide_methods.bas");}while(r); S_38361:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ if(qbevent){evnt(25224,4489,"ide_methods.bas");if(r)goto S_38361;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,4490,"ide_methods.bas");}while(r); S_38363:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ if(qbevent){evnt(25224,4491,"ide_methods.bas");if(r)goto S_38363;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; if(!qbevent)break;evnt(25224,4491,"ide_methods.bas");}while(r); } S_38366:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,4492,"ide_methods.bas");if(r)goto S_38366;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); if(!qbevent)break;evnt(25224,4492,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; if(!qbevent)break;evnt(25224,4495,"ide_methods.bas");}while(r); S_38371:; fornext_value4189=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4189=*_FUNC_IDE2_LONG_Y2; fornext_step4189= 1 ; if (fornext_step4189<0) fornext_step_negative4189=1; else fornext_step_negative4189=0; if (new_error) goto fornext_error4189; goto fornext_entrylabel4189; while(1){ fornext_value4189=fornext_step4189+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4189: *_FUNC_IDE2_LONG_Y=fornext_value4189; if (fornext_step_negative4189){ if (fornext_value4189fornext_finalvalue4189) break; } fornext_error4189:; if(qbevent){evnt(25224,4496,"ide_methods.bas");if(r)goto S_38371;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4497,"ide_methods.bas");}while(r); S_38373:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,4498,"ide_methods.bas");if(r)goto S_38373;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4499,"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(25224,4500,"ide_methods.bas");}while(r); S_38376:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ if(qbevent){evnt(25224,4501,"ide_methods.bas");if(r)goto S_38376;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; if(!qbevent)break;evnt(25224,4501,"ide_methods.bas");}while(r); } } fornext_continue_4188:; } fornext_exit_4188:; S_38381:; fornext_value4194=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4194=*_FUNC_IDE2_LONG_Y2; fornext_step4194= 1 ; if (fornext_step4194<0) fornext_step_negative4194=1; else fornext_step_negative4194=0; if (new_error) goto fornext_error4194; goto fornext_entrylabel4194; while(1){ fornext_value4194=fornext_step4194+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4194: *_FUNC_IDE2_LONG_Y=fornext_value4194; if (fornext_step_negative4194){ if (fornext_value4194fornext_finalvalue4194) break; } fornext_error4194:; if(qbevent){evnt(25224,4505,"ide_methods.bas");if(r)goto S_38381;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4506,"ide_methods.bas");}while(r); S_38383:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,4507,"ide_methods.bas");if(r)goto S_38383;} 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(25224,4508,"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(25224,4509,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4510,"ide_methods.bas");}while(r); } fornext_continue_4193:; } fornext_exit_4193:; do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4513,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4513,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4514,"ide_methods.bas");}while(r); } S_38393:; 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(25224,4517,"ide_methods.bas");if(r)goto S_38393;} LABEL_CTRLREMOVECOMMENT:; if(qbevent){evnt(25224,4518,"ide_methods.bas");r=0;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4519,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4519,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,4520,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; if(!qbevent)break;evnt(25224,4520,"ide_methods.bas");}while(r); S_38398:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ if(qbevent){evnt(25224,4521,"ide_methods.bas");if(r)goto S_38398;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,4522,"ide_methods.bas");}while(r); S_38400:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ if(qbevent){evnt(25224,4523,"ide_methods.bas");if(r)goto S_38400;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; if(!qbevent)break;evnt(25224,4523,"ide_methods.bas");}while(r); } S_38403:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,4524,"ide_methods.bas");if(r)goto S_38403;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); if(!qbevent)break;evnt(25224,4524,"ide_methods.bas");}while(r); } } S_38407:; fornext_value4198=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4198=*_FUNC_IDE2_LONG_Y2; fornext_step4198= 1 ; if (fornext_step4198<0) fornext_step_negative4198=1; else fornext_step_negative4198=0; if (new_error) goto fornext_error4198; goto fornext_entrylabel4198; while(1){ fornext_value4198=fornext_step4198+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4198: *_FUNC_IDE2_LONG_Y=fornext_value4198; if (fornext_step_negative4198){ if (fornext_value4198fornext_finalvalue4198) break; } fornext_error4198:; if(qbevent){evnt(25224,4527,"ide_methods.bas");if(r)goto S_38407;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4528,"ide_methods.bas");}while(r); S_38409:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,4529,"ide_methods.bas");if(r)goto S_38409;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4530,"ide_methods.bas");}while(r); S_38411:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,4531,"ide_methods.bas");if(r)goto S_38411;} S_38412:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ if(qbevent){evnt(25224,4532,"ide_methods.bas");if(r)goto S_38412;} 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(25224,4533,"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(25224,4534,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4535,"ide_methods.bas");}while(r); } } } fornext_continue_4197:; } fornext_exit_4197:; do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4540,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4540,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4541,"ide_methods.bas");}while(r); } S_38424:; 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(25224,4544,"ide_methods.bas");if(r)goto S_38424;} LABEL_CTRLTOGGLECOMMENT:; if(qbevent){evnt(25224,4545,"ide_methods.bas");r=0;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4546,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4546,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,4547,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; if(!qbevent)break;evnt(25224,4547,"ide_methods.bas");}while(r); S_38429:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ if(qbevent){evnt(25224,4548,"ide_methods.bas");if(r)goto S_38429;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,4549,"ide_methods.bas");}while(r); S_38431:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ if(qbevent){evnt(25224,4550,"ide_methods.bas");if(r)goto S_38431;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; if(!qbevent)break;evnt(25224,4550,"ide_methods.bas");}while(r); } S_38434:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ if(qbevent){evnt(25224,4551,"ide_methods.bas");if(r)goto S_38434;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); if(!qbevent)break;evnt(25224,4551,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; if(!qbevent)break;evnt(25224,4554,"ide_methods.bas");}while(r); S_38439:; fornext_value4205=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4205=*_FUNC_IDE2_LONG_Y2; fornext_step4205= 1 ; if (fornext_step4205<0) fornext_step_negative4205=1; else fornext_step_negative4205=0; if (new_error) goto fornext_error4205; goto fornext_entrylabel4205; while(1){ fornext_value4205=fornext_step4205+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4205: *_FUNC_IDE2_LONG_Y=fornext_value4205; if (fornext_step_negative4205){ if (fornext_value4205fornext_finalvalue4205) break; } fornext_error4205:; if(qbevent){evnt(25224,4555,"ide_methods.bas");if(r)goto S_38439;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4556,"ide_methods.bas");}while(r); S_38441:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,4557,"ide_methods.bas");if(r)goto S_38441;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4558,"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(25224,4559,"ide_methods.bas");}while(r); S_38444:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ if(qbevent){evnt(25224,4560,"ide_methods.bas");if(r)goto S_38444;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; if(!qbevent)break;evnt(25224,4560,"ide_methods.bas");}while(r); } } fornext_continue_4204:; } fornext_exit_4204:; S_38449:; fornext_value4210=*_FUNC_IDE2_LONG_Y1; fornext_finalvalue4210=*_FUNC_IDE2_LONG_Y2; fornext_step4210= 1 ; if (fornext_step4210<0) fornext_step_negative4210=1; else fornext_step_negative4210=0; if (new_error) goto fornext_error4210; goto fornext_entrylabel4210; while(1){ fornext_value4210=fornext_step4210+(*_FUNC_IDE2_LONG_Y); fornext_entrylabel4210: *_FUNC_IDE2_LONG_Y=fornext_value4210; if (fornext_step_negative4210){ if (fornext_value4210fornext_finalvalue4210) break; } fornext_error4210:; if(qbevent){evnt(25224,4564,"ide_methods.bas");if(r)goto S_38449;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4565,"ide_methods.bas");}while(r); S_38451:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,4566,"ide_methods.bas");if(r)goto S_38451;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4567,"ide_methods.bas");}while(r); S_38453:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,4568,"ide_methods.bas");if(r)goto S_38453;} S_38454:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ if(qbevent){evnt(25224,4569,"ide_methods.bas");if(r)goto S_38454;} 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(25224,4570,"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(25224,4571,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4572,"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(25224,4574,"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(25224,4575,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4576,"ide_methods.bas");}while(r); } } } fornext_continue_4209:; } fornext_exit_4209:; do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4581,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4581,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4582,"ide_methods.bas");}while(r); } S_38470:; 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(25224,4585,"ide_methods.bas");if(r)goto S_38470;} S_38471:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,4586,"ide_methods.bas");if(r)goto S_38471;} do{ goto LABEL_IDEBLOCKINCREASEINDENT; if(!qbevent)break;evnt(25224,4586,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4587,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4587,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4588,"ide_methods.bas");}while(r); } S_38478:; 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(25224,4591,"ide_methods.bas");if(r)goto S_38478;} S_38479:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,4592,"ide_methods.bas");if(r)goto S_38479;} do{ goto LABEL_IDEBLOCKDECREASEINDENT; if(!qbevent)break;evnt(25224,4592,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4593,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4593,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4594,"ide_methods.bas");}while(r); } S_38486:; 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(25224,4597,"ide_methods.bas");if(r)goto S_38486;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4598,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDELANGUAGEBOX(); if(!qbevent)break;evnt(25224,4599,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4600,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4600,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4601,"ide_methods.bas");}while(r); } S_38493:; 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(25224,4604,"ide_methods.bas");if(r)goto S_38493;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4605,"ide_methods.bas");}while(r); S_38495:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,4606,"ide_methods.bas");if(r)goto S_38495;} do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEDISPLAYBOX(); if(!qbevent)break;evnt(25224,4607,"ide_methods.bas");}while(r); S_38497:; if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ if(qbevent){evnt(25224,4608,"ide_methods.bas");if(r)goto S_38497;} do{ qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,NULL,NULL,3); if(!qbevent)break;evnt(25224,4610,"ide_methods.bas");}while(r); S_38499:; if ((*__LONG_IDECUSTOMFONT)||new_error){ if(qbevent){evnt(25224,4611,"ide_methods.bas");if(r)goto S_38499;} do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); if(!qbevent)break;evnt(25224,4612,"ide_methods.bas");}while(r); }else{ S_38502:; if ((*__BYTE_IDE_USEFONT8)||new_error){ if(qbevent){evnt(25224,4614,"ide_methods.bas");if(r)goto S_38502;} do{ sub__font( 8 ,NULL,0); if(!qbevent)break;evnt(25224,4614,"ide_methods.bas");}while(r); }else{ do{ sub__font( 16 ,NULL,0); if(!qbevent)break;evnt(25224,4614,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4616,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=43; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_43:; if(!qbevent)break;evnt(25224,4617,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4620,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4620,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4621,"ide_methods.bas");}while(r); } S_38516:; 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(25224,4624,"ide_methods.bas");if(r)goto S_38516;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4625,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); if(!qbevent)break;evnt(25224,4626,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDECHOOSECOLORSBOX(); if(!qbevent)break;evnt(25224,4627,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4628,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4628,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4629,"ide_methods.bas");}while(r); } S_38524:; 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(25224,4632,"ide_methods.bas");if(r)goto S_38524;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4633,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,4634,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,4635,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); if(!qbevent)break;evnt(25224,4636,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; if(!qbevent)break;evnt(25224,4637,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4217= -1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4638,"ide_methods.bas");}while(r); S_38531:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ if(qbevent){evnt(25224,4639,"ide_methods.bas");if(r)goto S_38531;} do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4639,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4640,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4640,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4641,"ide_methods.bas");}while(r); } S_38538:; 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("#Advanced...",12))))||new_error){ if(qbevent){evnt(25224,4644,"ide_methods.bas");if(r)goto S_38538;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4645,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEADVANCEDBOX(); if(!qbevent)break;evnt(25224,4646,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4648,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4648,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4649,"ide_methods.bas");}while(r); } S_38545:; 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(25224,4653,"ide_methods.bas");if(r)goto S_38545;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4654,"ide_methods.bas");}while(r); do{ *__BYTE_MOUSEBUTTONSWAPPED=~(*__BYTE_MOUSEBUTTONSWAPPED); if(!qbevent)break;evnt(25224,4655,"ide_methods.bas");}while(r); S_38548:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ if(qbevent){evnt(25224,4656,"ide_methods.bas");if(r)goto S_38548;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4657,"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(25224,4658,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4660,"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(25224,4661,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4663,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4663,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4664,"ide_methods.bas");}while(r); } S_38559:; 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]])), 27 ),qbs_new_txt_len("Disable Syntax #Highlighter",27))))||new_error){ if(qbevent){evnt(25224,4667,"ide_methods.bas");if(r)goto S_38559;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4668,"ide_methods.bas");}while(r); do{ *__BYTE_DISABLESYNTAXHIGHLIGHTER=~(*__BYTE_DISABLESYNTAXHIGHLIGHTER); if(!qbevent)break;evnt(25224,4669,"ide_methods.bas");}while(r); S_38562:; if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ if(qbevent){evnt(25224,4670,"ide_methods.bas");if(r)goto S_38562;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4671,"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("Disable Syntax #Highlighter",27))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4672,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4674,"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("Disable Syntax #Highlighter",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4675,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4677,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4677,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4678,"ide_methods.bas");}while(r); } S_38573:; 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("Cursor After #Pasted Content",28))))||new_error){ if(qbevent){evnt(25224,4681,"ide_methods.bas");if(r)goto S_38573;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4682,"ide_methods.bas");}while(r); do{ *__BYTE_PASTECURSORATEND=~(*__BYTE_PASTECURSORATEND); if(!qbevent)break;evnt(25224,4683,"ide_methods.bas");}while(r); S_38576:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,4684,"ide_methods.bas");if(r)goto S_38576;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4685,"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 #Pasted Content",28))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4686,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4688,"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 #Pasted Content",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4689,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4691,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4691,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4692,"ide_methods.bas");}while(r); } S_38587:; 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]])), 36 ),qbs_new_txt_len("Show Compilation #Errors Immediately",36))))||new_error){ if(qbevent){evnt(25224,4695,"ide_methods.bas");if(r)goto S_38587;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4696,"ide_methods.bas");}while(r); do{ *__BYTE_IDESHOWERRORSIMMEDIATELY=~(*__BYTE_IDESHOWERRORSIMMEDIATELY); if(!qbevent)break;evnt(25224,4697,"ide_methods.bas");}while(r); S_38590:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ if(qbevent){evnt(25224,4698,"ide_methods.bas");if(r)goto S_38590;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4699,"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("Show Compilation #Errors Immediately",36))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4700,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4702,"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("Show Compilation #Errors Immediately",36)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4703,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4705,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4706,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4706,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4707,"ide_methods.bas");}while(r); } S_38602:; 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(25224,4710,"ide_methods.bas");if(r)goto S_38602;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4711,"ide_methods.bas");}while(r); S_38604:; if ((-(*__BYTE_IGNOREWARNINGS== 0 ))||new_error){ if(qbevent){evnt(25224,4712,"ide_methods.bas");if(r)goto S_38604;} do{ *__BYTE_IGNOREWARNINGS= -1 ; if(!qbevent)break;evnt(25224,4713,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4714,"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(25224,4715,"ide_methods.bas");}while(r); }else{ do{ *__BYTE_IGNOREWARNINGS= 0 ; if(!qbevent)break;evnt(25224,4717,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4718,"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(25224,4719,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4721,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4722,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4722,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4723,"ide_methods.bas");}while(r); } S_38618:; 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(25224,4726,"ide_methods.bas");if(r)goto S_38618;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4727,"ide_methods.bas");}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE=~(*__BYTE_SAVEEXEWITHSOURCE); if(!qbevent)break;evnt(25224,4728,"ide_methods.bas");}while(r); S_38621:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ if(qbevent){evnt(25224,4729,"ide_methods.bas");if(r)goto S_38621;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4730,"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(25224,4731,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4733,"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(25224,4734,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4736,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4736,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILED= 0 ; if(!qbevent)break;evnt(25224,4737,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4738,"ide_methods.bas");}while(r); } S_38633:; 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 , 24 ,1),qbs_new_txt_len("Enable #Quick Navigation",24)))|(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 , 24 ,1),qbs_new_txt_len("Enable #Quick Navigation",24)))))||new_error){ if(qbevent){evnt(25224,4741,"ide_methods.bas");if(r)goto S_38633;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4742,"ide_methods.bas");}while(r); do{ *__BYTE_ENABLEQUICKNAV=~(*__BYTE_ENABLEQUICKNAV); if(!qbevent)break;evnt(25224,4743,"ide_methods.bas");}while(r); S_38636:; if ((*__BYTE_ENABLEQUICKNAV)||new_error){ if(qbevent){evnt(25224,4744,"ide_methods.bas");if(r)goto S_38636;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4745,"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("Enable #Quick Navigation (Back Arrow)",37))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4746,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4748,"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("Enable #Quick Navigation (Back Arrow)",37)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4749,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4751,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4751,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4752,"ide_methods.bas");}while(r); } S_38647:; 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(25224,4755,"ide_methods.bas");if(r)goto S_38647;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4756,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDELAYOUTBOX(); if(!qbevent)break;evnt(25224,4757,"ide_methods.bas");}while(r); S_38650:; if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ if(qbevent){evnt(25224,4758,"ide_methods.bas");if(r)goto S_38650;} do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,4758,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 2 ; if(!qbevent)break;evnt(25224,4758,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4759,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4759,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4760,"ide_methods.bas");}while(r); } S_38658:; 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(25224,4763,"ide_methods.bas");if(r)goto S_38658;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4764,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 0 ; if(!qbevent)break;evnt(25224,4765,"ide_methods.bas");}while(r); LABEL_BMKREMOVEB:; if(qbevent){evnt(25224,4766,"ide_methods.bas");r=0;} S_38661:; fornext_value4220= 1 ; fornext_finalvalue4220=*__LONG_IDEBMKN; fornext_step4220= 1 ; if (fornext_step4220<0) fornext_step_negative4220=1; else fornext_step_negative4220=0; if (new_error) goto fornext_error4220; goto fornext_entrylabel4220; while(1){ fornext_value4220=fornext_step4220+(*_FUNC_IDE2_LONG_B); fornext_entrylabel4220: *_FUNC_IDE2_LONG_B=fornext_value4220; if (fornext_step_negative4220){ if (fornext_value4220fornext_finalvalue4220) break; } fornext_error4220:; if(qbevent){evnt(25224,4767,"ide_methods.bas");if(r)goto S_38661;} S_38662:; 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(25224,4768,"ide_methods.bas");if(r)goto S_38662;} S_38663:; fornext_value4222=*_FUNC_IDE2_LONG_B; fornext_finalvalue4222=*__LONG_IDEBMKN- 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_B2); fornext_entrylabel4222: *_FUNC_IDE2_LONG_B2=fornext_value4222; if (fornext_step_negative4222){ if (fornext_value4222fornext_finalvalue4222) break; } fornext_error4222:; if(qbevent){evnt(25224,4769,"ide_methods.bas");if(r)goto S_38663;} 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(25224,4770,"ide_methods.bas");}while(r); fornext_continue_4221:; } fornext_exit_4221:; do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; if(!qbevent)break;evnt(25224,4772,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 1 ; if(!qbevent)break;evnt(25224,4773,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; if(!qbevent)break;evnt(25224,4774,"ide_methods.bas");}while(r); do{ goto LABEL_BMKREMOVEB; if(!qbevent)break;evnt(25224,4775,"ide_methods.bas");}while(r); } fornext_continue_4219:; } fornext_exit_4219:; S_38672:; if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ if(qbevent){evnt(25224,4778,"ide_methods.bas");if(r)goto S_38672;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; if(!qbevent)break;evnt(25224,4779,"ide_methods.bas");}while(r); S_38674:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ if(qbevent){evnt(25224,4780,"ide_methods.bas");if(r)goto S_38674;} do{ *_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; if(!qbevent)break;evnt(25224,4780,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_IDEBMK[2]&1){ preserved_elements=__ARRAY_UDT_IDEBMK[5]; } else preserved_elements=0; __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_IDEBMK[0]),preserved_elements*128/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); tmp_long=__ARRAY_UDT_IDEBMK[5]; __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*128/8+1); memcpy((void*)(__ARRAY_UDT_IDEBMK[0]),redim_preserve_cmem_buffer,preserved_elements*128/8+1); if (preserved_elements*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,4808,"ide_methods.bas");if(r)goto S_38715;} do{ *_FUNC_IDE2_LONG_L= 1 ; if(!qbevent)break;evnt(25224,4808,"ide_methods.bas");}while(r); } S_38718:; fornext_value4225= 1 ; fornext_finalvalue4225=*__LONG_IDEBMKN; fornext_step4225= 1 ; if (fornext_step4225<0) fornext_step_negative4225=1; else fornext_step_negative4225=0; if (new_error) goto fornext_error4225; goto fornext_entrylabel4225; while(1){ fornext_value4225=fornext_step4225+(*_FUNC_IDE2_LONG_B); fornext_entrylabel4225: *_FUNC_IDE2_LONG_B=fornext_value4225; if (fornext_step_negative4225){ if (fornext_value4225fornext_finalvalue4225) break; } fornext_error4225:; if(qbevent){evnt(25224,4809,"ide_methods.bas");if(r)goto S_38718;} S_38719:; 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(25224,4810,"ide_methods.bas");if(r)goto S_38719;} do{ goto dl_exit_4223; if(!qbevent)break;evnt(25224,4810,"ide_methods.bas");}while(r); } fornext_continue_4224:; } fornext_exit_4224:; dl_continue_4223:; }while(1); dl_exit_4223:; do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,4813,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_L; if(!qbevent)break;evnt(25224,4814,"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(25224,4815,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,4816,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4817,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4818,"ide_methods.bas");}while(r); } S_38731:; 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(25224,4826,"ide_methods.bas");if(r)goto S_38731;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4827,"ide_methods.bas");}while(r); do{ SUB_IDEGOTOBOX(); if(!qbevent)break;evnt(25224,4828,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4829,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4829,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4830,"ide_methods.bas");}while(r); } S_38738:; 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(25224,4833,"ide_methods.bas");if(r)goto S_38738;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4834,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEBACKUPBOX(); if(!qbevent)break;evnt(25224,4835,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4837,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4837,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4838,"ide_methods.bas");}while(r); } S_38745:; 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(25224,4841,"ide_methods.bas");if(r)goto S_38745;} LABEL_HELPABOUT:; if(qbevent){evnt(25224,4842,"ide_methods.bas");r=0;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4843,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 Version ",13),__STRING_VERSION),func_chr( 10 )),__STRING_BUILDNUM)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4844,"ide_methods.bas");}while(r); S_38748:; if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ if(qbevent){evnt(25224,4845,"ide_methods.bas");if(r)goto S_38748;} do{ qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M,func_chr( 10 )),__STRING_AUTOBUILDMSG)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4845,"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(25224,4846,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4847,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4847,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4848,"ide_methods.bas");}while(r); } S_38756:; 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(25224,4852,"ide_methods.bas");if(r)goto S_38756;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,4853,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RELAUNCH= 0 ; if(!qbevent)break;evnt(25224,4854,"ide_methods.bas");}while(r); S_38759:; do{ if(qbevent){evnt(25224,4855,"ide_methods.bas");if(r)goto S_38759;} do{ qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEASCIIBOX(_FUNC_IDE2_LONG_RELAUNCH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4856,"ide_methods.bas");}while(r); S_38761:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ if(qbevent){evnt(25224,4857,"ide_methods.bas");if(r)goto S_38761;} do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4857,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4858,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4858,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=44; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_44:; if(!qbevent)break;evnt(25224,4859,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,4860,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4861,"ide_methods.bas");}while(r); S_38769:; dl_continue_4227:; }while((*_FUNC_IDE2_LONG_RELAUNCH)&&(!new_error)); dl_exit_4227:; if(qbevent){evnt(25224,4862,"ide_methods.bas");if(r)goto S_38769;} do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,4863,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4864,"ide_methods.bas");}while(r); } S_38773:; 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(25224,4867,"ide_methods.bas");if(r)goto S_38773;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4868,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4868,"ide_methods.bas");}while(r); LABEL_IDEQUICKKEYCODE:; if(qbevent){evnt(25224,4869,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4229= 1 )); if(!qbevent)break;evnt(25224,4870,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,4871,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,4872,"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(25224,4873,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4874,"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(25224,4876,"ide_methods.bas");}while(r); S_38782:; do{ if(qbevent){evnt(25224,4878,"ide_methods.bas");if(r)goto S_38782;} do{ *_FUNC_IDE2_LONG_TEMPK=func__keyhit(); if(!qbevent)break;evnt(25224,4878,"ide_methods.bas");}while(r); do{ sub__limit( 30 ); if(!qbevent)break;evnt(25224,4878,"ide_methods.bas");}while(r); S_38785:; dl_continue_4230:; }while((!(-(*_FUNC_IDE2_LONG_TEMPK== 0 )))&&(!new_error)); dl_exit_4230:; if(qbevent){evnt(25224,4878,"ide_methods.bas");if(r)goto S_38785;} S_38786:; do{ if(qbevent){evnt(25224,4879,"ide_methods.bas");if(r)goto S_38786;} do{ *_FUNC_IDE2_LONG_TEMPK=func__keyhit(); if(!qbevent)break;evnt(25224,4880,"ide_methods.bas");}while(r); S_38788:; if ((-(*_FUNC_IDE2_LONG_TEMPK> 0 ))||new_error){ if(qbevent){evnt(25224,4881,"ide_methods.bas");if(r)goto S_38788;} do{ qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(*_FUNC_IDE2_LONG_TEMPK))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4881,"ide_methods.bas");}while(r); } S_38791:; while((func__mouseinput(NULL,0))||new_error){ if(qbevent){evnt(25224,4883,"ide_methods.bas");if(r)goto S_38791;} ww_continue_4232:; } ww_exit_4232:; S_38793:; if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ if(qbevent){evnt(25224,4884,"ide_methods.bas");if(r)goto S_38793;} do{ goto LABEL_BYPASSCTRLK; if(!qbevent)break;evnt(25224,4884,"ide_methods.bas");}while(r); } do{ sub__limit( 30 ); if(!qbevent)break;evnt(25224,4886,"ide_methods.bas");}while(r); S_38797:; dl_continue_4231:; }while((!(-(*_FUNC_IDE2_LONG_TEMPK> 0 )))&&(!new_error)); dl_exit_4231:; if(qbevent){evnt(25224,4887,"ide_methods.bas");if(r)goto S_38797;} S_38798:; if (((-(*_FUNC_IDE2_LONG_TEMPK== 100303 ))|(-(*_FUNC_IDE2_LONG_TEMPK== 100304 )))||new_error){ if(qbevent){evnt(25224,4888,"ide_methods.bas");if(r)goto S_38798;} S_38799:; do{ if(qbevent){evnt(25224,4889,"ide_methods.bas");if(r)goto S_38799;} do{ *_FUNC_IDE2_LONG_TEMPK=func__keyhit(); if(!qbevent)break;evnt(25224,4890,"ide_methods.bas");}while(r); S_38801:; if ((-(*_FUNC_IDE2_LONG_TEMPK!= 0 ))||new_error){ if(qbevent){evnt(25224,4891,"ide_methods.bas");if(r)goto S_38801;} 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(25224,4891,"ide_methods.bas");}while(r); } S_38804:; while((func__mouseinput(NULL,0))||new_error){ if(qbevent){evnt(25224,4893,"ide_methods.bas");if(r)goto S_38804;} ww_continue_4234:; } ww_exit_4234:; S_38806:; if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ if(qbevent){evnt(25224,4894,"ide_methods.bas");if(r)goto S_38806;} do{ goto LABEL_BYPASSCTRLK; if(!qbevent)break;evnt(25224,4894,"ide_methods.bas");}while(r); } do{ sub__limit( 30 ); if(!qbevent)break;evnt(25224,4896,"ide_methods.bas");}while(r); S_38810:; dl_continue_4233:; }while((!(-(*_FUNC_IDE2_LONG_TEMPK!= 0 )))&&(!new_error)); dl_exit_4233:; if(qbevent){evnt(25224,4897,"ide_methods.bas");if(r)goto S_38810;} } do{ qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_ltrim(_FUNC_IDE2_STRING_TEMPK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4899,"ide_methods.bas");}while(r); do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_TEMPK); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4902,"ide_methods.bas");}while(r); LABEL_BYPASSCTRLK:; if(qbevent){evnt(25224,4904,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4235= 0 )); if(!qbevent)break;evnt(25224,4905,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4906,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4906,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,4907,"ide_methods.bas");}while(r); do{ *__LONG_KCTRL= 0 ; if(!qbevent)break;evnt(25224,4908,"ide_methods.bas");}while(r); do{ *__LONG_KCONTROL= 0 ; if(!qbevent)break;evnt(25224,4908,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=45; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_45:; if(!qbevent)break;evnt(25224,4909,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4910,"ide_methods.bas");}while(r); } S_38823:; 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(25224,4913,"ide_methods.bas");if(r)goto S_38823;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4914,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4914,"ide_methods.bas");}while(r); do{ goto LABEL_CONTEXTUALHELP; if(!qbevent)break;evnt(25224,4915,"ide_methods.bas");}while(r); } S_38828:; 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(25224,4918,"ide_methods.bas");if(r)goto S_38828;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4919,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4919,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,4920,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4921,"ide_methods.bas");}while(r); do{ *__LONG_IDESY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,4922,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,4923,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,4924,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,4925,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4926,"ide_methods.bas");}while(r); } S_38839:; 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(25224,4929,"ide_methods.bas");if(r)goto S_38839;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4930,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4930,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,4931,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4932,"ide_methods.bas");}while(r); do{ *__LONG_IDESY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,4933,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,4934,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,4935,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,4936,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4937,"ide_methods.bas");}while(r); } S_38850:; 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(25224,4940,"ide_methods.bas");if(r)goto S_38850;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4941,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4941,"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(25224,4942,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; if(!qbevent)break;evnt(25224,4943,"ide_methods.bas");}while(r); } S_38856:; 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(25224,4945,"ide_methods.bas");if(r)goto S_38856;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4946,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4946,"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(25224,4947,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; if(!qbevent)break;evnt(25224,4948,"ide_methods.bas");}while(r); } S_38862:; 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(25224,4950,"ide_methods.bas");if(r)goto S_38862;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4951,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4951,"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(25224,4952,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; if(!qbevent)break;evnt(25224,4953,"ide_methods.bas");}while(r); } S_38868:; 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(25224,4956,"ide_methods.bas");if(r)goto S_38868;} S_38869:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,4958,"ide_methods.bas");if(r)goto S_38869;} S_38870:; if ((*__LONG_IDESUBWINDOW)||new_error){ if(qbevent){evnt(25224,4959,"ide_methods.bas");if(r)goto S_38870;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4959,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4959,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4959,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; if(!qbevent)break;evnt(25224,4960,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,4960,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; if(!qbevent)break;evnt(25224,4961,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; if(!qbevent)break;evnt(25224,4962,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; if(!qbevent)break;evnt(25224,4963,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; if(!qbevent)break;evnt(25224,4964,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; if(!qbevent)break;evnt(25224,4965,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=46; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_46:; if(!qbevent)break;evnt(25224,4965,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4968,"ide_methods.bas");}while(r); } S_38891:; 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(25224,4971,"ide_methods.bas");if(r)goto S_38891;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,4972,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,4972,"ide_methods.bas");}while(r); S_38894:; if ((*__LONG_IDEHELP)||new_error){ if(qbevent){evnt(25224,4973,"ide_methods.bas");if(r)goto S_38894;} do{ *__LONG_HELP_IGNORECACHE= 1 ; if(!qbevent)break;evnt(25224,4974,"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(25224,4975,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 0 ; if(!qbevent)break;evnt(25224,4976,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4977,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,4979,"ide_methods.bas");}while(r); } S_38902:; 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(25224,4983,"ide_methods.bas");if(r)goto S_38902;} do{ if(!qbevent)break;evnt(25224,4984,"ide_methods.bas");}while(r); S_38904:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,4986,"ide_methods.bas");if(r)goto S_38904;} S_38905:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,4987,"ide_methods.bas");if(r)goto S_38905;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4988,"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(25224,4989,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,4990,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,4990,"ide_methods.bas");}while(r); S_38910:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ if(qbevent){evnt(25224,4991,"ide_methods.bas");if(r)goto S_38910;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,4991,"ide_methods.bas");}while(r); } S_38913:; fornext_value4237=*_FUNC_IDE2_LONG_SX1; fornext_finalvalue4237=*_FUNC_IDE2_LONG_SX2- 1 ; 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_X); fornext_entrylabel4237: *_FUNC_IDE2_LONG_X=fornext_value4237; if (fornext_step_negative4237){ if (fornext_value4237fornext_finalvalue4237) break; } fornext_error4237:; if(qbevent){evnt(25224,4992,"ide_methods.bas");if(r)goto S_38913;} S_38914:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,4993,"ide_methods.bas");if(r)goto S_38914;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4993,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_4236; if(!qbevent)break;evnt(25224,4993,"ide_methods.bas");}while(r); } fornext_continue_4236:; } fornext_exit_4236:; do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs__trim(_FUNC_IDE2_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4995,"ide_methods.bas");}while(r); S_38921:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,4996,"ide_methods.bas");if(r)goto S_38921;} do{ qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_A2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4996,"ide_methods.bas");}while(r); } } } S_38926:; do{ if(qbevent){evnt(25224,5000,"ide_methods.bas");if(r)goto S_38926;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5001,"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),&(pass4241= 60 ),&(pass4242= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5002,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RESULT= 0 ; if(!qbevent)break;evnt(25224,5003,"ide_methods.bas");}while(r); S_38930:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ if(qbevent){evnt(25224,5004,"ide_methods.bas");if(r)goto S_38930;} do{ qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_RETVAL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5005,"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(25224,5006,"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(25224,5007,"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(25224,5008,"ide_methods.bas");}while(r); S_38935:; if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ if(qbevent){evnt(25224,5009,"ide_methods.bas");if(r)goto S_38935;} 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(25224,5009,"ide_methods.bas");}while(r); } S_38938:; do{ if(qbevent){evnt(25224,5010,"ide_methods.bas");if(r)goto S_38938;} do{ qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("#Insert;",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5011,"ide_methods.bas");}while(r); S_38940:; if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ if(qbevent){evnt(25224,5012,"ide_methods.bas");if(r)goto S_38940;} do{ qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#Decimal;",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5012,"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(25224,5012,"ide_methods.bas");}while(r); } S_38945:; if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALCOMMENT)||new_error){ if(qbevent){evnt(25224,5013,"ide_methods.bas");if(r)goto S_38945;} 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(25224,5014,"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(25224,5015,"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(25224,5017,"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(25224,5018,"ide_methods.bas");}while(r); } S_38952:; if ((*_FUNC_IDE2_BYTE_MATHEVALERROR)||new_error){ if(qbevent){evnt(25224,5020,"ide_methods.bas");if(r)goto S_38952;} do{ qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5020,"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(25224,5020,"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(25224,5020,"ide_methods.bas");}while(r); } do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5021,"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(25224,5022,"ide_methods.bas");}while(r); S_38959:; if ((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))||new_error){ if(qbevent){evnt(25224,5023,"ide_methods.bas");if(r)goto S_38959;} S_38960:; if(qbevent){evnt(25224,5024,"ide_methods.bas");if(r)goto S_38960;} S_38961:; if (((*_FUNC_IDE2_LONG_RESULT==( 1 ))||(*_FUNC_IDE2_LONG_RESULT==( 4 ))||(*_FUNC_IDE2_LONG_RESULT==( 5 )))||new_error){ if(qbevent){evnt(25224,5025,"ide_methods.bas");if(r)goto S_38961;} do{ goto dl_exit_4244; if(!qbevent)break;evnt(25224,5026,"ide_methods.bas");}while(r); sc_ec_185_end:; goto sc_4245_end; } S_38963:; if (((*_FUNC_IDE2_LONG_RESULT==( 2 )))||new_error){ if(qbevent){evnt(25224,5027,"ide_methods.bas");if(r)goto S_38963;} do{ *_FUNC_IDE2_BYTE_MATHEVALHEX=~(*_FUNC_IDE2_BYTE_MATHEVALHEX); if(!qbevent)break;evnt(25224,5028,"ide_methods.bas");}while(r); S_38965:; if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ if(qbevent){evnt(25224,5029,"ide_methods.bas");if(r)goto S_38965;} 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(25224,5029,"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(25224,5029,"ide_methods.bas");}while(r); } sc_ec_186_end:; goto sc_4245_end; } S_38970:; if (((*_FUNC_IDE2_LONG_RESULT==( 3 )))||new_error){ if(qbevent){evnt(25224,5030,"ide_methods.bas");if(r)goto S_38970;} do{ *_FUNC_IDE2_BYTE_MATHEVALCOMMENT=~(*_FUNC_IDE2_BYTE_MATHEVALCOMMENT); if(!qbevent)break;evnt(25224,5031,"ide_methods.bas");}while(r); sc_ec_187_end:; goto sc_4245_end; } sc_4245_end:; }else{ do{ goto dl_exit_4244; if(!qbevent)break;evnt(25224,5034,"ide_methods.bas");}while(r); } dl_continue_4244:; }while(1); dl_exit_4244:; S_38977:; if ((*_FUNC_IDE2_BYTE_MATHEVALERROR&(-(*_FUNC_IDE2_LONG_RESULT== 2 )))||new_error){ if(qbevent){evnt(25224,5037,"ide_methods.bas");if(r)goto S_38977;} do{ goto dl_exit_4240; if(!qbevent)break;evnt(25224,5037,"ide_methods.bas");}while(r); } S_38980:; if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(((-(*_FUNC_IDE2_LONG_RESULT== 1 ))|(-(*_FUNC_IDE2_LONG_RESULT== 5 )))))||new_error){ if(qbevent){evnt(25224,5038,"ide_methods.bas");if(r)goto S_38980;} do{ goto dl_exit_4240; if(!qbevent)break;evnt(25224,5038,"ide_methods.bas");}while(r); } }else{ do{ goto dl_exit_4240; if(!qbevent)break;evnt(25224,5040,"ide_methods.bas");}while(r); } dl_continue_4240:; }while(1); dl_exit_4240:; S_38987:; if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(-(*_FUNC_IDE2_LONG_RESULT== 1 )))||new_error){ if(qbevent){evnt(25224,5044,"ide_methods.bas");if(r)goto S_38987;} do{ SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_MATHMSG); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5045,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5047,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5047,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5048,"ide_methods.bas");}while(r); } S_38994:; 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(25224,5051,"ide_methods.bas");if(r)goto S_38994;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5052,"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(25224,5053,"ide_methods.bas");}while(r); do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5054,"ide_methods.bas");}while(r); S_38998:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5055,"ide_methods.bas");if(r)goto S_38998;} do{ SUB_IDEUPDATEHELPBOX(); if(!qbevent)break;evnt(25224,5055,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5056,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5056,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5057,"ide_methods.bas");}while(r); } S_39005:; 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(25224,5060,"ide_methods.bas");if(r)goto S_39005;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5061,"ide_methods.bas");}while(r); do{ SUB_IDENEWSF(qbs_new_txt_len("SUB",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5062,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,5063,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5064,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5064,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5065,"ide_methods.bas");}while(r); } S_39013:; 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(25224,5067,"ide_methods.bas");if(r)goto S_39013;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5068,"ide_methods.bas");}while(r); do{ SUB_IDENEWSF(qbs_new_txt_len("FUNCTION",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5069,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,5070,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5071,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5071,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5072,"ide_methods.bas");}while(r); } S_39021:; 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))))||new_error){ if(qbevent){evnt(25224,5075,"ide_methods.bas");if(r)goto S_39021;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5076,"ide_methods.bas");}while(r); LABEL_IDESUBSJMP:; if(qbevent){evnt(25224,5077,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESUBS()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5078,"ide_methods.bas");}while(r); S_39024:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5079,"ide_methods.bas");if(r)goto S_39024;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,5079,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5080,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5080,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5081,"ide_methods.bas");}while(r); } S_39031:; 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(25224,5084,"ide_methods.bas");if(r)goto S_39031;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; if(!qbevent)break;evnt(25224,5085,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; if(!qbevent)break;evnt(25224,5086,"ide_methods.bas");}while(r); } S_39035:; 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(25224,5089,"ide_methods.bas");if(r)goto S_39035;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5090,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERS= -1 ; if(!qbevent)break;evnt(25224,5091,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5092,"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(25224,5093,"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(25224,5094,"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(25224,5095,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5096,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5096,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5097,"ide_methods.bas");}while(r); } S_39046:; 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(25224,5100,"ide_methods.bas");if(r)goto S_39046;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5101,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERS= 0 ; if(!qbevent)break;evnt(25224,5102,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5103,"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(25224,5104,"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(25224,5105,"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(25224,5106,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5107,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5107,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5108,"ide_methods.bas");}while(r); } S_39057:; 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(25224,5111,"ide_methods.bas");if(r)goto S_39057;} S_39058:; 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(25224,5112,"ide_methods.bas");if(r)goto S_39058;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5113,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSUSEBG=~(*__BYTE_SHOWLINENUMBERSUSEBG); if(!qbevent)break;evnt(25224,5114,"ide_methods.bas");}while(r); S_39061:; if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ if(qbevent){evnt(25224,5115,"ide_methods.bas");if(r)goto S_39061;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5116,"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(25224,5117,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5119,"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(25224,5120,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5122,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5122,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5123,"ide_methods.bas");}while(r); } } S_39073:; 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(25224,5127,"ide_methods.bas");if(r)goto S_39073;} S_39074:; 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(25224,5128,"ide_methods.bas");if(r)goto S_39074;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5129,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSSEPARATOR=~(*__BYTE_SHOWLINENUMBERSSEPARATOR); if(!qbevent)break;evnt(25224,5130,"ide_methods.bas");}while(r); S_39077:; if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ if(qbevent){evnt(25224,5131,"ide_methods.bas");if(r)goto S_39077;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5132,"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(25224,5133,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5135,"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(25224,5136,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5138,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5138,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5139,"ide_methods.bas");}while(r); } } S_39089:; 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(25224,5143,"ide_methods.bas");if(r)goto S_39089;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5144,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); if(!qbevent)break;evnt(25224,5145,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5147,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5147,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5148,"ide_methods.bas");}while(r); } S_39096:; 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(25224,5151,"ide_methods.bas");if(r)goto S_39096;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5152,"ide_methods.bas");}while(r); LABEL_IDEFINDJMP:; if(qbevent){evnt(25224,5153,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFIND()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5154,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5155,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5155,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5157,"ide_methods.bas");}while(r); } S_39103:; 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(25224,5160,"ide_methods.bas");if(r)goto S_39103;} do{ qbs_set(__STRING_IDEFINDTEXT,__STRING_IDECONTEXTUALSEARCH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5161,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5162,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5163,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5163,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; if(!qbevent)break;evnt(25224,5164,"ide_methods.bas");}while(r); } S_39110:; 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(25224,5167,"ide_methods.bas");if(r)goto S_39110;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5168,"ide_methods.bas");}while(r); LABEL_IDEFINDCHANGEJMP:; if(qbevent){evnt(25224,5169,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5170,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5171,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5171,"ide_methods.bas");}while(r); do{ *__LONG_IDEALTHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,5172,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,5173,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5173,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5173,"ide_methods.bas");}while(r); S_39119:; 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(25224,5174,"ide_methods.bas");if(r)goto S_39119;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5174,"ide_methods.bas");}while(r); } do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5176,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDCX=*__LONG_IDECX; if(!qbevent)break;evnt(25224,5178,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDCY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,5178,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUND= 0 ; if(!qbevent)break;evnt(25224,5179,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 0 ; if(!qbevent)break;evnt(25224,5179,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGED= 0 ; if(!qbevent)break;evnt(25224,5180,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5182,"ide_methods.bas");}while(r); S_39129:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,5183,"ide_methods.bas");if(r)goto S_39129;} do{ qbs_set(_FUNC_IDE2_STRING_S,qbs_ucase(_FUNC_IDE2_STRING_S)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5183,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_START=*__LONG_IDECY; if(!qbevent)break;evnt(25224,5184,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_START; if(!qbevent)break;evnt(25224,5184,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_STARTX=*__LONG_IDECX; if(!qbevent)break;evnt(25224,5185,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_STARTX; if(!qbevent)break;evnt(25224,5185,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FIRST= 1 ; if(!qbevent)break;evnt(25224,5186,"ide_methods.bas");}while(r); LABEL_IDEFINDNEXT2:; if(qbevent){evnt(25224,5187,"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(25224,5189,"ide_methods.bas");}while(r); S_39138:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,5190,"ide_methods.bas");if(r)goto S_39138;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5190,"ide_methods.bas");}while(r); } S_39141:; if ((-(*_FUNC_IDE2_LONG_FIRST== 1 ))||new_error){ if(qbevent){evnt(25224,5192,"ide_methods.bas");if(r)goto S_39141;} do{ *_FUNC_IDE2_LONG_FIRST= 0 ; if(!qbevent)break;evnt(25224,5193,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X1= 1 ; if(!qbevent)break;evnt(25224,5195,"ide_methods.bas");}while(r); S_39145:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5196,"ide_methods.bas");if(r)goto S_39145;} 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(25224,5197,"ide_methods.bas");}while(r); } } S_39149:; if ((-(*_FUNC_IDE2_LONG_X1< 0 ))||new_error){ if(qbevent){evnt(25224,5200,"ide_methods.bas");if(r)goto S_39149;} do{ *_FUNC_IDE2_LONG_X1= 0 ; if(!qbevent)break;evnt(25224,5200,"ide_methods.bas");}while(r); } LABEL_IDEFINDAGAIN2:; if(qbevent){evnt(25224,5202,"ide_methods.bas");r=0;} S_39152:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5204,"ide_methods.bas");if(r)goto S_39152;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5205,"ide_methods.bas");}while(r); S_39154:; fornext_value4249=*_FUNC_IDE2_LONG_X1; fornext_finalvalue4249= 1 ; fornext_step4249= -1 ; if (fornext_step4249<0) fornext_step_negative4249=1; else fornext_step_negative4249=0; if (new_error) goto fornext_error4249; goto fornext_entrylabel4249; while(1){ fornext_value4249=fornext_step4249+(*_FUNC_IDE2_LONG_XX); fornext_entrylabel4249: *_FUNC_IDE2_LONG_XX=fornext_value4249; if (fornext_step_negative4249){ if (fornext_value4249fornext_finalvalue4249) break; } fornext_error4249:; if(qbevent){evnt(25224,5206,"ide_methods.bas");if(r)goto S_39154;} S_39155:; 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(25224,5207,"ide_methods.bas");if(r)goto S_39155;} do{ *_FUNC_IDE2_LONG_XXO=*_FUNC_IDE2_LONG_XX- 1 ; if(!qbevent)break;evnt(25224,5208,"ide_methods.bas");}while(r); S_39157:; fornext_value4251=*_FUNC_IDE2_LONG_XX; fornext_finalvalue4251=*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len- 1 ; fornext_step4251= 1 ; if (fornext_step4251<0) fornext_step_negative4251=1; else fornext_step_negative4251=0; if (new_error) goto fornext_error4251; goto fornext_entrylabel4251; while(1){ fornext_value4251=fornext_step4251+(*_FUNC_IDE2_LONG_XX2); fornext_entrylabel4251: *_FUNC_IDE2_LONG_XX2=fornext_value4251; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4251){ if (fornext_value4251fornext_finalvalue4251) break; } fornext_error4251:; if(qbevent){evnt(25224,5209,"ide_methods.bas");if(r)goto S_39157;} S_39158:; 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(25224,5210,"ide_methods.bas");if(r)goto S_39158;} do{ goto fornext_exit_4250; if(!qbevent)break;evnt(25224,5210,"ide_methods.bas");}while(r); } fornext_continue_4250:; } fornext_exit_4250:; S_39162:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_XX2==(*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len))))||new_error){ if(qbevent){evnt(25224,5212,"ide_methods.bas");if(r)goto S_39162;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_XX; if(!qbevent)break;evnt(25224,5214,"ide_methods.bas");}while(r); do{ goto fornext_exit_4248; if(!qbevent)break;evnt(25224,5215,"ide_methods.bas");}while(r); } } fornext_continue_4248:; } fornext_exit_4248:; S_39168:; 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(25224,5219,"ide_methods.bas");if(r)goto S_39168;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5219,"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,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5221,"ide_methods.bas");}while(r); S_39173:; 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(25224,5222,"ide_methods.bas");if(r)goto S_39173;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5222,"ide_methods.bas");}while(r); } } S_39177:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,5225,"ide_methods.bas");if(r)goto S_39177;} S_39178:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ if(qbevent){evnt(25224,5226,"ide_methods.bas");if(r)goto S_39178;} do{ *_FUNC_IDE2_LONG_WHOLE= 1 ; if(!qbevent)break;evnt(25224,5227,"ide_methods.bas");}while(r); S_39180:; if ((-(*_FUNC_IDE2_LONG_X> 1 ))||new_error){ if(qbevent){evnt(25224,5228,"ide_methods.bas");if(r)goto S_39180;} do{ *_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5229,"ide_methods.bas");}while(r); S_39182:; if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,5230,"ide_methods.bas");if(r)goto S_39182;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,5230,"ide_methods.bas");}while(r); } S_39185:; if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,5231,"ide_methods.bas");if(r)goto S_39185;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,5231,"ide_methods.bas");}while(r); } } S_39189:; 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(25224,5233,"ide_methods.bas");if(r)goto S_39189;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5234,"ide_methods.bas");}while(r); S_39191:; if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,5235,"ide_methods.bas");if(r)goto S_39191;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,5235,"ide_methods.bas");}while(r); } S_39194:; if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,5236,"ide_methods.bas");if(r)goto S_39194;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,5236,"ide_methods.bas");}while(r); } } S_39198:; if ((-(*_FUNC_IDE2_LONG_WHOLE== 0 ))||new_error){ if(qbevent){evnt(25224,5238,"ide_methods.bas");if(r)goto S_39198;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,5239,"ide_methods.bas");}while(r); S_39200:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5239,"ide_methods.bas");if(r)goto S_39200;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; if(!qbevent)break;evnt(25224,5239,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5240,"ide_methods.bas");}while(r); S_39204:; 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(25224,5241,"ide_methods.bas");if(r)goto S_39204;} do{ goto LABEL_IDEFINDAGAIN2; if(!qbevent)break;evnt(25224,5241,"ide_methods.bas");}while(r); } } } } do{ if(!qbevent)break;evnt(25224,5246,"ide_methods.bas");}while(r); S_39211:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,5247,"ide_methods.bas");if(r)goto S_39211;} 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(25224,5248,"ide_methods.bas");}while(r); S_39213:; if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDE2_BYTE_COMMENT)||new_error){ if(qbevent){evnt(25224,5249,"ide_methods.bas");if(r)goto S_39213;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5249,"ide_methods.bas");}while(r); } S_39216:; if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDE2_BYTE_QUOTE)||new_error){ if(qbevent){evnt(25224,5250,"ide_methods.bas");if(r)goto S_39216;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5250,"ide_methods.bas");}while(r); } S_39219:; if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDE2_BYTE_COMMENT== 0 )))||new_error){ if(qbevent){evnt(25224,5251,"ide_methods.bas");if(r)goto S_39219;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5251,"ide_methods.bas");}while(r); } S_39222:; if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDE2_BYTE_QUOTE== 0 )))||new_error){ if(qbevent){evnt(25224,5252,"ide_methods.bas");if(r)goto S_39222;} do{ *_FUNC_IDE2_LONG_X= 0 ; if(!qbevent)break;evnt(25224,5252,"ide_methods.bas");}while(r); } } S_39226:; if ((*_FUNC_IDE2_LONG_X)||new_error){ if(qbevent){evnt(25224,5255,"ide_methods.bas");if(r)goto S_39226;} do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,5256,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_X; if(!qbevent)break;evnt(25224,5257,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_Y; if(!qbevent)break;evnt(25224,5257,"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(25224,5258,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_Y; if(!qbevent)break;evnt(25224,5258,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUND= 1 ; if(!qbevent)break;evnt(25224,5260,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,5261,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5262,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,5262,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5262,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5263,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGEIT()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5264,"ide_methods.bas");}while(r); do{ SUB_IDEDELTXT(); if(!qbevent)break;evnt(25224,5265,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5266,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5266,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,5267,"ide_methods.bas");}while(r); S_39243:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5268,"ide_methods.bas");if(r)goto S_39243;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; if(!qbevent)break;evnt(25224,5269,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; if(!qbevent)break;evnt(25224,5269,"ide_methods.bas");}while(r); S_39246:; if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ if(qbevent){evnt(25224,5270,"ide_methods.bas");if(r)goto S_39246;} do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,5271,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5272,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,5272,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5272,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5273,"ide_methods.bas");}while(r); do{ SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); if(!qbevent)break;evnt(25224,5274,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5276,"ide_methods.bas");}while(r); } S_39256:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5278,"ide_methods.bas");if(r)goto S_39256;} do{ qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5279,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,5280,"ide_methods.bas");}while(r); S_39259:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_L->len>=*__LONG_IDESELECTX1)))||new_error){ if(qbevent){evnt(25224,5281,"ide_methods.bas");if(r)goto S_39259;} 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(25224,5282,"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(25224,5284,"ide_methods.bas");}while(r); } do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_L); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5286,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGED=*_FUNC_IDE2_LONG_CHANGED+ 1 ; if(!qbevent)break;evnt(25224,5287,"ide_methods.bas");}while(r); S_39266:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,5288,"ide_methods.bas");if(r)goto S_39266;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5288,"ide_methods.bas");}while(r); } S_39269:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5290,"ide_methods.bas");if(r)goto S_39269;} S_39270:; if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START)))||new_error){ if(qbevent){evnt(25224,5291,"ide_methods.bas");if(r)goto S_39270;} 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(25224,5291,"ide_methods.bas");}while(r); } }else{ S_39274:; 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(25224,5293,"ide_methods.bas");if(r)goto S_39274;} 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(25224,5293,"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(25224,5294,"ide_methods.bas");}while(r); } }else{ } S_39281:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5300,"ide_methods.bas");if(r)goto S_39281;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; if(!qbevent)break;evnt(25224,5300,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,5300,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDAGAIN2; if(!qbevent)break;evnt(25224,5301,"ide_methods.bas");}while(r); } S_39288:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,5304,"ide_methods.bas");if(r)goto S_39288;} do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y- 1 ; if(!qbevent)break;evnt(25224,5305,"ide_methods.bas");}while(r); S_39290:; if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START- 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ if(qbevent){evnt(25224,5306,"ide_methods.bas");if(r)goto S_39290;} do{ goto LABEL_FINISHEDCHANGE; if(!qbevent)break;evnt(25224,5307,"ide_methods.bas");}while(r); } S_39293:; if ((-(*_FUNC_IDE2_LONG_Y< 1 ))||new_error){ if(qbevent){evnt(25224,5309,"ide_methods.bas");if(r)goto S_39293;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_IDEN; if(!qbevent)break;evnt(25224,5309,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; if(!qbevent)break;evnt(25224,5309,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; if(!qbevent)break;evnt(25224,5310,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,5312,"ide_methods.bas");}while(r); S_39300:; if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START+ 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ if(qbevent){evnt(25224,5313,"ide_methods.bas");if(r)goto S_39300;} do{ goto LABEL_FINISHEDCHANGE; if(!qbevent)break;evnt(25224,5314,"ide_methods.bas");}while(r); } S_39303:; if ((-(*_FUNC_IDE2_LONG_Y>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,5316,"ide_methods.bas");if(r)goto S_39303;} do{ *_FUNC_IDE2_LONG_Y= 1 ; if(!qbevent)break;evnt(25224,5316,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; if(!qbevent)break;evnt(25224,5316,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; if(!qbevent)break;evnt(25224,5317,"ide_methods.bas");}while(r); } LABEL_FINISHEDCHANGE:; if(qbevent){evnt(25224,5322,"ide_methods.bas");r=0;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; if(!qbevent)break;evnt(25224,5323,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; if(!qbevent)break;evnt(25224,5323,"ide_methods.bas");}while(r); S_39311:; if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ if(qbevent){evnt(25224,5324,"ide_methods.bas");if(r)goto S_39311;} do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,5325,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5326,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,5326,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5326,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5327,"ide_methods.bas");}while(r); do{ SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); if(!qbevent)break;evnt(25224,5328,"ide_methods.bas");}while(r); S_39318:; }else{ if (*_FUNC_IDE2_LONG_FOUND){ if(qbevent){evnt(25224,5329,"ide_methods.bas");if(r)goto S_39318;} do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,5330,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5331,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,5331,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5331,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5332,"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(25224,5333,"ide_methods.bas");}while(r); }else{ do{ SUB_IDENOMATCH(&(pass4266= -1 )); if(!qbevent)break;evnt(25224,5335,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5337,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5337,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5338,"ide_methods.bas");}while(r); } S_39332:; 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(25224,5341,"ide_methods.bas");if(r)goto S_39332;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5342,"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(25224,5343,"ide_methods.bas");}while(r); S_39335:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5344,"ide_methods.bas");if(r)goto S_39335;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5345,"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(25224,5346,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5346,"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(25224,5347,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5349,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5349,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5350,"ide_methods.bas");}while(r); } S_39345:; 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(25224,5353,"ide_methods.bas");if(r)goto S_39345;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5354,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5354,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; if(!qbevent)break;evnt(25224,5355,"ide_methods.bas");}while(r); } S_39350:; 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(25224,5358,"ide_methods.bas");if(r)goto S_39350;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5359,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5359,"ide_methods.bas");}while(r); S_39353:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ if(qbevent){evnt(25224,5360,"ide_methods.bas");if(r)goto S_39353;} do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,5361,"ide_methods.bas");}while(r); do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,5362,"ide_methods.bas");}while(r); S_39356:; }else{ if (-(*__LONG_IDESYSTEM== 2 )){ if(qbevent){evnt(25224,5363,"ide_methods.bas");if(r)goto S_39356;} do{ goto LABEL_DELETESELECTIONSEARCHFIELD; if(!qbevent)break;evnt(25224,5364,"ide_methods.bas");}while(r); } } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5366,"ide_methods.bas");}while(r); } S_39361:; 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(25224,5369,"ide_methods.bas");if(r)goto S_39361;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5370,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5370,"ide_methods.bas");}while(r); S_39364:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,5371,"ide_methods.bas");if(r)goto S_39364;} do{ goto LABEL_IDEMPASTE; if(!qbevent)break;evnt(25224,5371,"ide_methods.bas");}while(r); } S_39367:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,5372,"ide_methods.bas");if(r)goto S_39367;} do{ goto LABEL_PASTEINTOSEARCHFIELD; if(!qbevent)break;evnt(25224,5372,"ide_methods.bas");}while(r); } } S_39371:; 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(25224,5375,"ide_methods.bas");if(r)goto S_39371;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5376,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5376,"ide_methods.bas");}while(r); S_39374:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ if(qbevent){evnt(25224,5377,"ide_methods.bas");if(r)goto S_39374;} do{ goto LABEL_COPY2CLIP; if(!qbevent)break;evnt(25224,5377,"ide_methods.bas");}while(r); } S_39377:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,5378,"ide_methods.bas");if(r)goto S_39377;} do{ goto LABEL_COPYSEARCHTERM2CLIP; if(!qbevent)break;evnt(25224,5378,"ide_methods.bas");}while(r); } S_39380:; if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,5379,"ide_methods.bas");if(r)goto S_39380;} do{ goto LABEL_COPYHELP2CLIP; if(!qbevent)break;evnt(25224,5379,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5380,"ide_methods.bas");}while(r); } S_39385:; 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(25224,5383,"ide_methods.bas");if(r)goto S_39385;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5384,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5384,"ide_methods.bas");}while(r); S_39388:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ if(qbevent){evnt(25224,5385,"ide_methods.bas");if(r)goto S_39388;} 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(25224,5386,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMCUT; if(!qbevent)break;evnt(25224,5387,"ide_methods.bas");}while(r); S_39391:; }else{ if (-(*__LONG_IDESYSTEM== 2 )){ if(qbevent){evnt(25224,5388,"ide_methods.bas");if(r)goto S_39391;} do{ goto LABEL_CUTTOCLIPBOARDSEARCHFIELD; if(!qbevent)break;evnt(25224,5389,"ide_methods.bas");}while(r); } } do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5391,"ide_methods.bas");}while(r); } S_39396:; 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(25224,5394,"ide_methods.bas");if(r)goto S_39396;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5395,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5395,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMUNDO; if(!qbevent)break;evnt(25224,5396,"ide_methods.bas");}while(r); } S_39401:; 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(25224,5399,"ide_methods.bas");if(r)goto S_39401;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5400,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5400,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMREDO; if(!qbevent)break;evnt(25224,5401,"ide_methods.bas");}while(r); } S_39406:; 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(25224,5405,"ide_methods.bas");if(r)goto S_39406;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5406,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5406,"ide_methods.bas");}while(r); S_39409:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,5407,"ide_methods.bas");if(r)goto S_39409;} do{ goto LABEL_IDEMSELECTALL; if(!qbevent)break;evnt(25224,5407,"ide_methods.bas");}while(r); } S_39412:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,5408,"ide_methods.bas");if(r)goto S_39412;} do{ goto LABEL_SELECTALLINSEARCHFIELD; if(!qbevent)break;evnt(25224,5408,"ide_methods.bas");}while(r); } S_39415:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,5409,"ide_methods.bas");if(r)goto S_39415;} do{ goto LABEL_SELECTALLINHELP; if(!qbevent)break;evnt(25224,5409,"ide_methods.bas");}while(r); } } S_39419:; 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(25224,5412,"ide_methods.bas");if(r)goto S_39419;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5413,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5413,"ide_methods.bas");}while(r); do{ goto LABEL_CLOSEHELP; if(!qbevent)break;evnt(25224,5414,"ide_methods.bas");}while(r); } S_39424:; 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(25224,5417,"ide_methods.bas");if(r)goto S_39424;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5418,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5418,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUN; if(!qbevent)break;evnt(25224,5419,"ide_methods.bas");}while(r); } S_39429:; 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(25224,5422,"ide_methods.bas");if(r)goto S_39429;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5423,"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),&(pass4267= 60 ),&(pass4268= 0 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5424,"ide_methods.bas");}while(r); S_39432:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5425,"ide_methods.bas");if(r)goto S_39432;} do{ qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5425,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5427,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5427,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5428,"ide_methods.bas");}while(r); } S_39439:; 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(25224,5431,"ide_methods.bas");if(r)goto S_39439;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5432,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5432,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMEXE; if(!qbevent)break;evnt(25224,5433,"ide_methods.bas");}while(r); } S_39444:; 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(25224,5436,"ide_methods.bas");if(r)goto S_39444;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5437,"ide_methods.bas");}while(r); LABEL_QUICKEXIT:; if(qbevent){evnt(25224,5438,"ide_methods.bas");r=0;} S_39446:; if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ if(qbevent){evnt(25224,5439,"ide_methods.bas");if(r)goto S_39446;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5440,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5441,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5441,"ide_methods.bas");}while(r); S_39450:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5442,"ide_methods.bas");if(r)goto S_39450;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5442,"ide_methods.bas");}while(r); } S_39453:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5443,"ide_methods.bas");if(r)goto S_39453;} S_39454:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5444,"ide_methods.bas");if(r)goto S_39454;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5445,"ide_methods.bas");}while(r); S_39456:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5446,"ide_methods.bas");if(r)goto S_39456;} 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)),&(pass4269= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5447,"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)),&(pass4270= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5449,"ide_methods.bas");}while(r); } S_39461:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5451,"ide_methods.bas");if(r)goto S_39461;} do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5452,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5452,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5452,"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(25224,5455,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5460,"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(25224,5460,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5460,"ide_methods.bas");}while(r); do{ if (sub_gl_called) error(271); close_program=1; end(); if(!qbevent)break;evnt(25224,5461,"ide_methods.bas");}while(r); } S_39476:; 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(25224,5464,"ide_methods.bas");if(r)goto S_39476;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5465,"ide_methods.bas");}while(r); LABEL_CTRLNEW:; if(qbevent){evnt(25224,5466,"ide_methods.bas");r=0;} S_39478:; if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ if(qbevent){evnt(25224,5467,"ide_methods.bas");if(r)goto S_39478;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5468,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5469,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5469,"ide_methods.bas");}while(r); S_39482:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5470,"ide_methods.bas");if(r)goto S_39482;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5470,"ide_methods.bas");}while(r); } S_39485:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5471,"ide_methods.bas");if(r)goto S_39485;} S_39486:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5472,"ide_methods.bas");if(r)goto S_39486;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5473,"ide_methods.bas");}while(r); S_39488:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5474,"ide_methods.bas");if(r)goto S_39488;} 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)),&(pass4271= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5475,"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)),&(pass4272= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5477,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5479,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5479,"ide_methods.bas");}while(r); S_39495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5480,"ide_methods.bas");if(r)goto S_39495;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5480,"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(25224,5482,"ide_methods.bas");}while(r); } } } do{ *__LONG_IDEUNSAVED= -1 ; if(!qbevent)break;evnt(25224,5486,"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(25224,5488,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; if(!qbevent)break;evnt(25224,5488,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; if(!qbevent)break;evnt(25224,5488,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; if(!qbevent)break;evnt(25224,5488,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; if(!qbevent)break;evnt(25224,5488,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,5489,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; if(!qbevent)break;evnt(25224,5490,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,5491,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,5492,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,5493,"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(25224,5494,"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(25224,5495,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL= 0 ; if(!qbevent)break;evnt(25224,5496,"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(25224,5497,"ide_methods.bas");}while(r); do{ sub__title(__STRING_WINDOWTITLE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5498,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,5499,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,5500,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; if(!qbevent)break;evnt(25224,5501,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5502,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; if(!qbevent)break;evnt(25224,5505,"ide_methods.bas");}while(r); S_39525:; fornext_value4274= 1 ; fornext_finalvalue4274= 4 ; fornext_step4274= 1 ; if (fornext_step4274<0) fornext_step_negative4274=1; else fornext_step_negative4274=0; if (new_error) goto fornext_error4274; goto fornext_entrylabel4274; while(1){ fornext_value4274=fornext_step4274+(*_FUNC_IDE2_LONG_ML); fornext_entrylabel4274: *_FUNC_IDE2_LONG_ML=fornext_value4274; if (fornext_step_negative4274){ if (fornext_value4274fornext_finalvalue4274) break; } fornext_error4274:; if(qbevent){evnt(25224,5506,"ide_methods.bas");if(r)goto S_39525;} S_39526:; 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(25224,5507,"ide_methods.bas");if(r)goto S_39526;} S_39527:; 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(25224,5508,"ide_methods.bas");if(r)goto S_39527;} 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(25224,5509,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; if(!qbevent)break;evnt(25224,5510,"ide_methods.bas");}while(r); do{ goto LABEL_DIRECTOPEN; if(!qbevent)break;evnt(25224,5511,"ide_methods.bas");}while(r); } } fornext_continue_4273:; } fornext_exit_4273:; S_39534:; 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(25224,5517,"ide_methods.bas");if(r)goto S_39534;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5518,"ide_methods.bas");}while(r); LABEL_IDESHOWRECENTBOX:; if(qbevent){evnt(25224,5519,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDERECENTBOX()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5520,"ide_methods.bas");}while(r); S_39537:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3))))||new_error){ if(qbevent){evnt(25224,5521,"ide_methods.bas");if(r)goto S_39537;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5522,"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(25224,5523,"ide_methods.bas");}while(r); S_39540:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5524,"ide_methods.bas");if(r)goto S_39540;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5525,"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(25224,5526,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5526,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); if(!qbevent)break;evnt(25224,5527,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5528,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5528,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5529,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDESHOWRECENTBOX; if(!qbevent)break;evnt(25224,5531,"ide_methods.bas");}while(r); } S_39551:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3)))){ if(qbevent){evnt(25224,5533,"ide_methods.bas");if(r)goto S_39551;} do{ return_point[next_return_point++]=47; if (next_return_point>=return_points) more_return_points(); goto LABEL_CLEANUPRECENTLIST; RETURN_47:; if(!qbevent)break;evnt(25224,5534,"ide_methods.bas");}while(r); do{ goto LABEL_IDESHOWRECENTBOX; if(!qbevent)break;evnt(25224,5535,"ide_methods.bas");}while(r); } } S_39555:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ if(qbevent){evnt(25224,5537,"ide_methods.bas");if(r)goto S_39555;} do{ qbs_set(__STRING_IDEOPENFILE,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5538,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; if(!qbevent)break;evnt(25224,5539,"ide_methods.bas");}while(r); do{ goto LABEL_DIRECTOPEN; if(!qbevent)break;evnt(25224,5540,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5542,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5542,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5543,"ide_methods.bas");}while(r); } S_39564:; 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(25224,5546,"ide_methods.bas");if(r)goto S_39564;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5547,"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(25224,5548,"ide_methods.bas");}while(r); S_39567:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5549,"ide_methods.bas");if(r)goto S_39567;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5550,"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(25224,5551,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5551,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); if(!qbevent)break;evnt(25224,5552,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5553,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5553,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5554,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5556,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5556,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5557,"ide_methods.bas");}while(r); } S_39580:; 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(25224,5560,"ide_methods.bas");if(r)goto S_39580;} do{ qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5561,"ide_methods.bas");}while(r); LABEL_DIRECTOPEN:; if(qbevent){evnt(25224,5562,"ide_methods.bas");r=0;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5563,"ide_methods.bas");}while(r); LABEL_CTRLOPEN:; if(qbevent){evnt(25224,5564,"ide_methods.bas");r=0;} S_39583:; if ((*__LONG_IDEUNSAVED)||new_error){ if(qbevent){evnt(25224,5565,"ide_methods.bas");if(r)goto S_39583;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5566,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5567,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5567,"ide_methods.bas");}while(r); S_39587:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5568,"ide_methods.bas");if(r)goto S_39587;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5568,"ide_methods.bas");}while(r); } S_39590:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,5569,"ide_methods.bas");if(r)goto S_39590;} S_39591:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5570,"ide_methods.bas");if(r)goto S_39591;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5571,"ide_methods.bas");}while(r); S_39593:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5572,"ide_methods.bas");if(r)goto S_39593;} 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)),&(pass4277= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5573,"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)),&(pass4278= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5575,"ide_methods.bas");}while(r); } S_39598:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5577,"ide_methods.bas");if(r)goto S_39598;} do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5577,"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(25224,5579,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5581,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5581,"ide_methods.bas");}while(r); } } do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_new_txt_len("",0),&(pass4279= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5584,"ide_methods.bas");}while(r); S_39609:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,5585,"ide_methods.bas");if(r)goto S_39609;} do{ *__LONG_IDEUNSAVED= -1 ; if(!qbevent)break;evnt(25224,5585,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,5585,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 2 ; if(!qbevent)break;evnt(25224,5585,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; if(!qbevent)break;evnt(25224,5585,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL= 0 ; if(!qbevent)break;evnt(25224,5585,"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(25224,5585,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,5585,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5586,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5586,"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(25224,5587,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5587,"ide_methods.bas");}while(r); } S_39623:; 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(25224,5590,"ide_methods.bas");if(r)goto S_39623;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5591,"ide_methods.bas");}while(r); S_39625:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5592,"ide_methods.bas");if(r)goto S_39625;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5593,"ide_methods.bas");}while(r); S_39627:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5594,"ide_methods.bas");if(r)goto S_39627;} 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)),&(pass4280= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5595,"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)),&(pass4281= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5597,"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(25224,5600,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5602,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5602,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5602,"ide_methods.bas");}while(r); } S_39639:; 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(25224,5606,"ide_methods.bas");if(r)goto S_39639;} do{ sub_pcopy( 2 , 0 ); if(!qbevent)break;evnt(25224,5607,"ide_methods.bas");}while(r); S_39641:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5608,"ide_methods.bas");if(r)goto S_39641;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5609,"ide_methods.bas");}while(r); S_39643:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5610,"ide_methods.bas");if(r)goto S_39643;} 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)),&(pass4282= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5611,"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)),&(pass4283= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5613,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(__STRING_IDEPROGNAME,&(pass4284= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5616,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,5618,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5618,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; if(!qbevent)break;evnt(25224,5618,"ide_methods.bas");}while(r); } S_39655:; 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(25224,5621,"ide_methods.bas");if(r)goto S_39655;} do{ goto dl_continue_4144; if(!qbevent)break;evnt(25224,5622,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5625,"ide_methods.bas");}while(r); do{ sub_cls(NULL,NULL,0); if(!qbevent)break;evnt(25224,5626,"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 skip4285; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); skip4285: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5626,"ide_methods.bas");}while(r); do{ sub_end(); if(!qbevent)break;evnt(25224,5626,"ide_methods.bas");}while(r); } do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,5630,"ide_methods.bas");}while(r); dl_continue_4144:; }while(1); dl_exit_4144:; do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,5635,"ide_methods.bas");}while(r); LABEL_UPDATETITLEOFMAINWINDOW:; if(qbevent){evnt(25224,5636,"ide_methods.bas");r=0;} do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5637,"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(25224,5637,"ide_methods.bas");}while(r); S_39668:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ if(qbevent){evnt(25224,5638,"ide_methods.bas");if(r)goto S_39668;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEPROGNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5638,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5638,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_new_txt_len(" ",1),_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5639,"ide_methods.bas");}while(r); S_39674:; if ((*__LONG_IDEUNSAVED)||new_error){ if(qbevent){evnt(25224,5640,"ide_methods.bas");if(r)goto S_39674;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("*",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5640,"ide_methods.bas");}while(r); } S_39677:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_SFNAME->len> 0 )))||new_error){ if(qbevent){evnt(25224,5641,"ide_methods.bas");if(r)goto S_39677;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(":",1)),_FUNC_IDE2_STRING_SFNAME)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5641,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5642,"ide_methods.bas");}while(r); S_39681:; if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)>(*__LONG_IDEWX- 5 ))))||new_error){ if(qbevent){evnt(25224,5643,"ide_methods.bas");if(r)goto S_39681;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDEWX- 11 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5643,"ide_methods.bas");}while(r); } S_39684:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,5644,"ide_methods.bas");if(r)goto S_39684;} do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5644,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5644,"ide_methods.bas");}while(r); } do{ sub__printstring((((*__LONG_IDEWX/ ((long double)( 2 )))- 1 ))-((_FUNC_IDE2_STRING_A->len- 1 )/ 2 ), 2 ,_FUNC_IDE2_STRING_A,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5645,"ide_methods.bas");}while(r); do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5646,"ide_methods.bas");}while(r); LABEL_DRAWQUICKNAV:; if(qbevent){evnt(25224,5648,"ide_methods.bas");r=0;} S_39691:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 )))||new_error){ if(qbevent){evnt(25224,5649,"ide_methods.bas");if(r)goto S_39691;} do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5650,"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(25224,5651,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5653,"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(25224,5654,"ide_methods.bas");}while(r); } do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5656,"ide_methods.bas");}while(r); LABEL_UPDATESEARCHBAR:; if(qbevent){evnt(25224,5658,"ide_methods.bas");r=0;} do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5659,"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(25224,5659,"ide_methods.bas");}while(r); do{ qbg_sub_color( 3 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5660,"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(25224,5661,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5662,"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(25224,5662,"ide_methods.bas");}while(r); S_39705:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,5665,"ide_methods.bas");if(r)goto S_39705;} do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5665,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5665,"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(25224,5666,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5668,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TX= 1 ; if(!qbevent)break;evnt(25224,5669,"ide_methods.bas");}while(r); S_39713:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ if(qbevent){evnt(25224,5670,"ide_methods.bas");if(r)goto S_39713;} S_39714:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ if(qbevent){evnt(25224,5671,"ide_methods.bas");if(r)goto S_39714;} do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 + 1 ; if(!qbevent)break;evnt(25224,5672,"ide_methods.bas");}while(r); S_39716:; if ((-(*_FUNC_IDE2_LONG_TX< 1 ))||new_error){ if(qbevent){evnt(25224,5673,"ide_methods.bas");if(r)goto S_39716;} do{ *_FUNC_IDE2_LONG_TX= 1 ; if(!qbevent)break;evnt(25224,5673,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_TX, 20 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5674,"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(25224,5676,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; if(!qbevent)break;evnt(25224,5680,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; if(!qbevent)break;evnt(25224,5680,"ide_methods.bas");}while(r); S_39726:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ if(qbevent){evnt(25224,5681,"ide_methods.bas");if(r)goto S_39726;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); if(!qbevent)break;evnt(25224,5681,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 2 ; if(!qbevent)break;evnt(25224,5683,"ide_methods.bas");}while(r); S_39730:; if (((-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 ))|(-(*__LONG_IDESYSTEM!= 2 )))||new_error){ if(qbevent){evnt(25224,5685,"ide_methods.bas");if(r)goto S_39730;} do{ qbg_sub_color( 3 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5686,"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(25224,5687,"ide_methods.bas");}while(r); }else{ S_39734:; fornext_value4292= 1 ; fornext_finalvalue4292=_FUNC_IDE2_STRING_A->len; fornext_step4292= 1 ; if (fornext_step4292<0) fornext_step_negative4292=1; else fornext_step_negative4292=0; if (new_error) goto fornext_error4292; goto fornext_entrylabel4292; while(1){ fornext_value4292=fornext_step4292+(*_FUNC_IDE2_LONG_COLORCHAR); fornext_entrylabel4292: *_FUNC_IDE2_LONG_COLORCHAR=fornext_value4292; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4292){ if (fornext_value4292fornext_finalvalue4292) break; } fornext_error4292:; if(qbevent){evnt(25224,5689,"ide_methods.bas");if(r)goto S_39734;} S_39735:; 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(25224,5690,"ide_methods.bas");if(r)goto S_39735;} do{ qbg_sub_color( 1 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,5690,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 3 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5690,"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 ,1),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5691,"ide_methods.bas");}while(r); fornext_continue_4291:; } fornext_exit_4291:; } do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5694,"ide_methods.bas");}while(r); LABEL_CLEANUPRECENTLIST:; if(qbevent){evnt(25224,5696,"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(25224,5697,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LN= 0 ; if(!qbevent)break;evnt(25224,5697,"ide_methods.bas");}while(r); do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8])->id=(++mem_lock_id); if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ 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[4]= 0 ; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=( 0 )-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]+1; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=1; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)malloc(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]*8); if (!_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]) error(257); _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]|=1; tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,5698,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5699,"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(25224,5700,"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(25224,5700,"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(25224,5700,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5701,"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(25224,5702,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUNDBROKENLINK= 0 ; if(!qbevent)break;evnt(25224,5703,"ide_methods.bas");}while(r); S_39754:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ if(qbevent){evnt(25224,5704,"ide_methods.bas");if(r)goto S_39754;} 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(25224,5705,"ide_methods.bas");}while(r); S_39756:; if ((*_FUNC_IDE2_LONG_AI)||new_error){ if(qbevent){evnt(25224,5706,"ide_methods.bas");if(r)goto S_39756;} 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(25224,5707,"ide_methods.bas");}while(r); S_39758:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_AI==(_FUNC_IDE2_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,5707,"ide_methods.bas");if(r)goto S_39758;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5707,"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(25224,5707,"ide_methods.bas");}while(r); } S_39763:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ if(qbevent){evnt(25224,5708,"ide_methods.bas");if(r)goto S_39763;} do{ *_FUNC_IDE2_LONG_LN=*_FUNC_IDE2_LONG_LN+ 1 ; if(!qbevent)break;evnt(25224,5709,"ide_methods.bas");}while(r); do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ preserved_elements=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; } else preserved_elements=0; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]= 1 ; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=(*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]+1; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; if (tmp_long2 0 ))&*_FUNC_IDE2_LONG_FOUNDBROKENLINK)||new_error){ if(qbevent){evnt(25224,5722,"ide_methods.bas");if(r)goto S_39775;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5723,"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(25224,5724,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5724,"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(25224,5725,"ide_methods.bas");}while(r); S_39780:; fornext_value4300= 1 ; fornext_finalvalue4300=func_ubound(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST,1,1); fornext_step4300= 1 ; if (fornext_step4300<0) fornext_step_negative4300=1; else fornext_step_negative4300=0; if (new_error) goto fornext_error4300; goto fornext_entrylabel4300; while(1){ fornext_value4300=fornext_step4300+(*_FUNC_IDE2_LONG_LN); fornext_entrylabel4300: *_FUNC_IDE2_LONG_LN=fornext_value4300; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4300){ if (fornext_value4300fornext_finalvalue4300) break; } fornext_error4300:; if(qbevent){evnt(25224,5726,"ide_methods.bas");if(r)goto S_39780;} 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(25224,5727,"ide_methods.bas");}while(r); fornext_continue_4299:; } fornext_exit_4299:; do{ *_FUNC_IDE2_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5729,"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(25224,5730,"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_4301),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5731,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); if(!qbevent)break;evnt(25224,5732,"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(25224,5735,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); if(!qbevent)break;evnt(25224,5736,"ide_methods.bas");}while(r); do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5737,"ide_methods.bas");}while(r); LABEL_REDRAWITALL:; if(qbevent){evnt(25224,5739,"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(25224,5740,"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(25224,5741,"ide_methods.bas");}while(r); S_39793:; fornext_value4303= 1 ; fornext_finalvalue4303=*__INTEGER_MENUS- 1 ; fornext_step4303= 1 ; if (fornext_step4303<0) fornext_step_negative4303=1; else fornext_step_negative4303=0; if (new_error) goto fornext_error4303; goto fornext_entrylabel4303; while(1){ fornext_value4303=fornext_step4303+(*_FUNC_IDE2_LONG_I); fornext_entrylabel4303: *_FUNC_IDE2_LONG_I=fornext_value4303; if (fornext_step_negative4303){ if (fornext_value4303fornext_finalvalue4303) break; } fornext_error4303:; if(qbevent){evnt(25224,5742,"ide_methods.bas");if(r)goto S_39793;} 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(25224,5743,"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(25224,5744,"ide_methods.bas");}while(r); fornext_continue_4302:; } fornext_exit_4302:; 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(25224,5746,"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(25224,5747,"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(25224,5748,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5751,"ide_methods.bas");}while(r); do{ qbg_sub_view_print( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,1); if(!qbevent)break;evnt(25224,5752,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); if(!qbevent)break;evnt(25224,5757,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5760,"ide_methods.bas");}while(r); do{ sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5760,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5761,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(&(pass4308= 1 ),&(pass4309= 2 ),__LONG_IDEWX,&(pass4310=*__LONG_IDEWY- 5 )); if(!qbevent)break;evnt(25224,5761,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5764,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(&(pass4311= 1 ),&(pass4312=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4313= 5 )); if(!qbevent)break;evnt(25224,5764,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5766,"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(25224,5766,"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(25224,5766,"ide_methods.bas");}while(r); S_39812:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ if(qbevent){evnt(25224,5768,"ide_methods.bas");if(r)goto S_39812;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5769,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(&(pass4314= 1 ),__LONG_IDEWY,__LONG_IDEWX,&(pass4315=*__LONG_IDESUBWINDOW+ 1 )); if(!qbevent)break;evnt(25224,5769,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5770,"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(25224,5770,"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(25224,5770,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5771,"ide_methods.bas");}while(r); do{ sub__printstring(*__LONG_IDEWX- 3 ,*__LONG_IDEWY,qbs_add(qbs_add(func_chr( 180 ),qbs_new_txt_len("X",1)),func_chr( 195 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5771,"ide_methods.bas");}while(r); } do{ return_point[next_return_point++]=49; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_49:; if(!qbevent)break;evnt(25224,5774,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,5777,"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(25224,5777,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4316=*__LONG_IDEWY- 3 ),&(pass4317= 3 ),&(pass4318= 1 ),&(pass4319= 1 )); if(!qbevent)break;evnt(25224,5778,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4320= 3 ),&(pass4321=*__LONG_IDEWY- 8 ),&(pass4322= 1 ),&(pass4323= 1 )); if(!qbevent)break;evnt(25224,5779,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4324= 2 ),&(pass4325=*__LONG_IDEWY- 5 ),&(pass4326=*__LONG_IDEWX- 2 ),&(pass4327= 1 ),&(pass4328= 1 )); if(!qbevent)break;evnt(25224,5780,"ide_methods.bas");}while(r); do{ SUB_UPDATEIDEINFO(); if(!qbevent)break;evnt(25224,5782,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=50; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATETITLEOFMAINWINDOW; RETURN_50:; if(!qbevent)break;evnt(25224,5784,"ide_methods.bas");}while(r); do{ sub_defseg( 0 ,1); if(!qbevent)break;evnt(25224,5786,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,5787,"ide_methods.bas");}while(r); S_39831:; if ((*__LONG_IDEHELP)||new_error){ if(qbevent){evnt(25224,5789,"ide_methods.bas");if(r)goto S_39831;} do{ SUB_HELP_SHOWTEXT(); if(!qbevent)break;evnt(25224,5790,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4329= 2 ),&(pass4330=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4331=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4332=*__LONG_HELP_W+ 1 )); if(!qbevent)break;evnt(25224,5792,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4333=*__LONG_IDEWY+ 1 ),&(pass4334=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4335=*__LONG_HELP_H+ 1 )); if(!qbevent)break;evnt(25224,5793,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=51; if (next_return_point>=return_points) more_return_points(); goto LABEL_HELPAREASHOWBACKLINKS; RETURN_51:; if(!qbevent)break;evnt(25224,5795,"ide_methods.bas");}while(r); } S_39837:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ if(qbevent){evnt(25224,5798,"ide_methods.bas");if(r)goto S_39837;} do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,5799,"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(25224,5801,"ide_methods.bas");}while(r); S_39840:; if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ if(qbevent){evnt(25224,5803,"ide_methods.bas");if(r)goto S_39840;} do{ sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("...",3),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5804,"ide_methods.bas");}while(r); }else{ S_39843:; if ((*__LONG_IDEFOCUSLINE)||new_error){ if(qbevent){evnt(25224,5806,"ide_methods.bas");if(r)goto S_39843;} do{ sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("...",3),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5807,"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(25224,5809,"ide_methods.bas");}while(r); } do{ *__INTEGER_STATUSAREALINK= 0 ; if(!qbevent)break;evnt(25224,5811,"ide_methods.bas");}while(r); S_39849:; if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ if(qbevent){evnt(25224,5812,"ide_methods.bas");if(r)goto S_39849;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,5813,"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(25224,5814,"ide_methods.bas");}while(r); S_39852:; if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ if(qbevent){evnt(25224,5815,"ide_methods.bas");if(r)goto S_39852;} 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(25224,5815,"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(25224,5816,"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(25224,5817,"ide_methods.bas");}while(r); do{ *__INTEGER_STATUSAREALINK= 4 ; if(!qbevent)break;evnt(25224,5818,"ide_methods.bas");}while(r); } } } do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5822,"ide_methods.bas");}while(r); LABEL_HELPAREASHOWBACKLINKS:; if(qbevent){evnt(25224,5824,"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(25224,5825,"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(25224,5826,"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(25224,5827,"ide_methods.bas");}while(r); S_39865:; fornext_value4337= 1 ; fornext_finalvalue4337=*_FUNC_IDE2_LONG_TOP; fornext_step4337= 1 ; if (fornext_step4337<0) fornext_step_negative4337=1; else fornext_step_negative4337=0; if (new_error) goto fornext_error4337; goto fornext_entrylabel4337; while(1){ fornext_value4337=fornext_step4337+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4337: *_FUNC_IDE2_LONG_X=fornext_value4337; if (fornext_step_negative4337){ if (fornext_value4337fornext_finalvalue4337) break; } fornext_error4337:; if(qbevent){evnt(25224,5828,"ide_methods.bas");if(r)goto S_39865;} 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(25224,5829,"ide_methods.bas");}while(r); S_39867:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_HELP_BACK_POS))||new_error){ if(qbevent){evnt(25224,5830,"ide_methods.bas");if(r)goto S_39867;} do{ *_FUNC_IDE2_LONG_P=_FUNC_IDE2_STRING_BACK_STR->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5830,"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(25224,5831,"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(25224,5832,"ide_methods.bas");}while(r); S_39872:; fornext_value4340= 1 ; fornext_finalvalue4340=_FUNC_IDE2_STRING_N->len; fornext_step4340= 1 ; if (fornext_step4340<0) fornext_step_negative4340=1; else fornext_step_negative4340=0; if (new_error) goto fornext_error4340; goto fornext_entrylabel4340; while(1){ fornext_value4340=fornext_step4340+(*_FUNC_IDE2_LONG_X2); fornext_entrylabel4340: *_FUNC_IDE2_LONG_X2=fornext_value4340; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4340){ if (fornext_value4340fornext_finalvalue4340) break; } fornext_error4340:; if(qbevent){evnt(25224,5833,"ide_methods.bas");if(r)goto S_39872;} 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(25224,5834,"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(25224,5835,"ide_methods.bas");}while(r); fornext_continue_4339:; } fornext_exit_4339:; 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(25224,5837,"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(25224,5838,"ide_methods.bas");}while(r); S_39878:; if ((-(*_FUNC_IDE2_LONG_X!=*_FUNC_IDE2_LONG_TOP))||new_error){ if(qbevent){evnt(25224,5840,"ide_methods.bas");if(r)goto S_39878;} 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(25224,5841,"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(25224,5842,"ide_methods.bas");}while(r); } fornext_continue_4336:; } fornext_exit_4336:; 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(25224,5845,"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(25224,5846,"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(25224,5847,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*__LONG_IDEWY, 2 ,NULL,NULL,NULL,3); if(!qbevent)break;evnt(25224,5850,"ide_methods.bas");}while(r); S_39887:; fornext_value4344=*_FUNC_IDE2_LONG_BACK_STR_POS; fornext_finalvalue4344=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; fornext_step4344= 1 ; if (fornext_step4344<0) fornext_step_negative4344=1; else fornext_step_negative4344=0; if (new_error) goto fornext_error4344; goto fornext_entrylabel4344; while(1){ fornext_value4344=fornext_step4344+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4344: *_FUNC_IDE2_LONG_X=fornext_value4344; if (fornext_step_negative4344){ if (fornext_value4344fornext_finalvalue4344) break; } fornext_error4344:; if(qbevent){evnt(25224,5851,"ide_methods.bas");if(r)goto S_39887;} do{ *_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5852,"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(25224,5853,"ide_methods.bas");}while(r); S_39890:; if ((*_FUNC_IDE2_LONG_A)||new_error){ if(qbevent){evnt(25224,5854,"ide_methods.bas");if(r)goto S_39890;} S_39891:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ if(qbevent){evnt(25224,5855,"ide_methods.bas");if(r)goto S_39891;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,5855,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5855,"ide_methods.bas");}while(r); } S_39896:; if ((-(*_FUNC_IDE2_LONG_I<*__LONG_HELP_BACK_POS))||new_error){ if(qbevent){evnt(25224,5856,"ide_methods.bas");if(r)goto S_39896;} do{ qbg_sub_color( 9 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,5856,"ide_methods.bas");}while(r); } S_39899:; if ((-(*_FUNC_IDE2_LONG_I>*__LONG_HELP_BACK_POS))||new_error){ if(qbevent){evnt(25224,5857,"ide_methods.bas");if(r)goto S_39899;} do{ qbg_sub_color( 9 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,5857,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr(*_FUNC_IDE2_LONG_A)); if (new_error) goto skip4345; makefit(tqbs); qbs_print(tqbs,0); skip4345: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5858,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5860,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr( 196 )); if (new_error) goto skip4346; makefit(tqbs); qbs_print(tqbs,0); skip4346: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5861,"ide_methods.bas");}while(r); } fornext_continue_4343:; } fornext_exit_4343:; do{ #include "ret115.txt" if(!qbevent)break;evnt(25224,5864,"ide_methods.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_IDE2_LONG_IDE2; } 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 "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{ 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(25224,5869,"ide_methods.bas");}while(r); S_39910:; fornext_value4348=*_SUB_IDEBOX_LONG_Y+ 1 ; fornext_finalvalue4348=*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 2 ; fornext_step4348= 1 ; if (fornext_step4348<0) fornext_step_negative4348=1; else fornext_step_negative4348=0; if (new_error) goto fornext_error4348; goto fornext_entrylabel4348; while(1){ fornext_value4348=fornext_step4348+(*_SUB_IDEBOX_LONG_Y2); fornext_entrylabel4348: *_SUB_IDEBOX_LONG_Y2=fornext_value4348; if (fornext_step_negative4348){ if (fornext_value4348fornext_finalvalue4348) break; } fornext_error4348:; if(qbevent){evnt(25224,5870,"ide_methods.bas");if(r)goto S_39910;} 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(25224,5871,"ide_methods.bas");}while(r); fornext_continue_4347:; } fornext_exit_4347:; 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(25224,5873,"ide_methods.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; } 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 "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{ SUB_IDEBOX(_SUB_IDEBOXSHADOW_LONG_X,_SUB_IDEBOXSHADOW_LONG_Y,_SUB_IDEBOXSHADOW_LONG_W,_SUB_IDEBOXSHADOW_LONG_H); if(!qbevent)break;evnt(25224,5878,"ide_methods.bas");}while(r); do{ qbg_sub_color( 2 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,5881,"ide_methods.bas");}while(r); S_39916:; fornext_value4350=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; fornext_finalvalue4350=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ; fornext_step4350= 1 ; if (fornext_step4350<0) fornext_step_negative4350=1; else fornext_step_negative4350=0; if (new_error) goto fornext_error4350; goto fornext_entrylabel4350; while(1){ fornext_value4350=fornext_step4350+(*_SUB_IDEBOXSHADOW_LONG_Y2); fornext_entrylabel4350: *_SUB_IDEBOXSHADOW_LONG_Y2=fornext_value4350; if (fornext_step_negative4350){ if (fornext_value4350fornext_finalvalue4350) break; } fornext_error4350:; if(qbevent){evnt(25224,5882,"ide_methods.bas");if(r)goto S_39916;} S_39917:; fornext_value4352=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W; fornext_finalvalue4352=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; fornext_step4352= 1 ; if (fornext_step4352<0) fornext_step_negative4352=1; else fornext_step_negative4352=0; if (new_error) goto fornext_error4352; goto fornext_entrylabel4352; while(1){ fornext_value4352=fornext_step4352+(*_SUB_IDEBOXSHADOW_LONG_X2); fornext_entrylabel4352: *_SUB_IDEBOXSHADOW_LONG_X2=fornext_value4352; if (fornext_step_negative4352){ if (fornext_value4352fornext_finalvalue4352) break; } fornext_error4352:; if(qbevent){evnt(25224,5883,"ide_methods.bas");if(r)goto S_39917;} S_39918:; if (((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))&(-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ if(qbevent){evnt(25224,5884,"ide_methods.bas");if(r)goto S_39918;} 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(25224,5885,"ide_methods.bas");}while(r); } fornext_continue_4351:; } fornext_exit_4351:; fornext_continue_4349:; } fornext_exit_4349:; do{ *_SUB_IDEBOXSHADOW_LONG_Y2=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H; if(!qbevent)break;evnt(25224,5890,"ide_methods.bas");}while(r); S_39924:; if ((-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))||new_error){ if(qbevent){evnt(25224,5891,"ide_methods.bas");if(r)goto S_39924;} S_39925:; fornext_value4354=*_SUB_IDEBOXSHADOW_LONG_X+ 2 ; fornext_finalvalue4354=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; fornext_step4354= 1 ; if (fornext_step4354<0) fornext_step_negative4354=1; else fornext_step_negative4354=0; if (new_error) goto fornext_error4354; goto fornext_entrylabel4354; while(1){ fornext_value4354=fornext_step4354+(*_SUB_IDEBOXSHADOW_LONG_X2); fornext_entrylabel4354: *_SUB_IDEBOXSHADOW_LONG_X2=fornext_value4354; if (fornext_step_negative4354){ if (fornext_value4354fornext_finalvalue4354) break; } fornext_error4354:; if(qbevent){evnt(25224,5892,"ide_methods.bas");if(r)goto S_39925;} S_39926:; if ((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,5893,"ide_methods.bas");if(r)goto S_39926;} 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(25224,5894,"ide_methods.bas");}while(r); } fornext_continue_4353:; } fornext_exit_4353:; } 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; } 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 "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 (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8])->id=(++mem_lock_id); if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&1){ tmp_long=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); free((void*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0])); } _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]= 0 ; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]=( 0 )-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]+1; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[6]=1; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)malloc(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]*8); if (!_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]) error(257); _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]|=1; tmp_long=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,5903,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,5906,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,5907,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,5908,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,5909,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,5910,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDECHANGE_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHANGE_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4]+1; _FUNC_IDECHANGE_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&4){ _FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDECHANGE_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGE_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,5911,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,5912,"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(25224,5913,"ide_methods.bas");}while(r); S_39940:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,5919,"ide_methods.bas");if(r)goto S_39940;} S_39941:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,5920,"ide_methods.bas");if(r)goto S_39941;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5921,"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(25224,5922,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,5923,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,5923,"ide_methods.bas");}while(r); S_39946:; if ((-(*_FUNC_IDECHANGE_LONG_SX2<*_FUNC_IDECHANGE_LONG_SX1))||new_error){ if(qbevent){evnt(25224,5924,"ide_methods.bas");if(r)goto S_39946;} do{ swap_32(&*_FUNC_IDECHANGE_LONG_SX1,&*_FUNC_IDECHANGE_LONG_SX2); if(!qbevent)break;evnt(25224,5924,"ide_methods.bas");}while(r); } S_39949:; fornext_value4356=*_FUNC_IDECHANGE_LONG_SX1; fornext_finalvalue4356=*_FUNC_IDECHANGE_LONG_SX2- 1 ; fornext_step4356= 1 ; if (fornext_step4356<0) fornext_step_negative4356=1; else fornext_step_negative4356=0; if (new_error) goto fornext_error4356; goto fornext_entrylabel4356; while(1){ fornext_value4356=fornext_step4356+(*_FUNC_IDECHANGE_LONG_X); fornext_entrylabel4356: *_FUNC_IDECHANGE_LONG_X=fornext_value4356; if (fornext_step_negative4356){ if (fornext_value4356fornext_finalvalue4356) break; } fornext_error4356:; if(qbevent){evnt(25224,5925,"ide_methods.bas");if(r)goto S_39949;} S_39950:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X<=_FUNC_IDECHANGE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,5926,"ide_methods.bas");if(r)goto S_39950;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,func_mid(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5926,"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(25224,5926,"ide_methods.bas");}while(r); } fornext_continue_4355:; } fornext_exit_4355:; } } S_39958:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,5930,"ide_methods.bas");if(r)goto S_39958;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5931,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_LN= 0 ; if(!qbevent)break;evnt(25224,5935,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,5936,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDECHANGE_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5937,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_A,func_space(func_lof(*_FUNC_IDECHANGE_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5937,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDECHANGE_LONG_FH,NULL,_FUNC_IDECHANGE_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5937,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDECHANGE_LONG_FH,1); if(!qbevent)break;evnt(25224,5938,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_right(_FUNC_IDECHANGE_STRING_A,_FUNC_IDECHANGE_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5939,"ide_methods.bas");}while(r); S_39968:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHANGE_STRING_A->len))||new_error){ if(qbevent){evnt(25224,5940,"ide_methods.bas");if(r)goto S_39968;} do{ *_FUNC_IDECHANGE_LONG_AI=func_instr(NULL,_FUNC_IDECHANGE_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5941,"ide_methods.bas");}while(r); S_39970:; if ((*_FUNC_IDECHANGE_LONG_AI)||new_error){ if(qbevent){evnt(25224,5942,"ide_methods.bas");if(r)goto S_39970;} do{ qbs_set(_FUNC_IDECHANGE_STRING_F,qbs_left(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5943,"ide_methods.bas");}while(r); S_39972:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_AI==(_FUNC_IDECHANGE_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,5943,"ide_methods.bas");if(r)goto S_39972;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5943,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_right(_FUNC_IDECHANGE_STRING_A,_FUNC_IDECHANGE_STRING_A->len-*_FUNC_IDECHANGE_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5943,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN+ 1 ; if(!qbevent)break;evnt(25224,5944,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&1){ preserved_elements=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; } else preserved_elements=0; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]= 1 ; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]=(*_FUNC_IDECHANGE_LONG_LN)-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]+1; _FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; if (tmp_long2len> 0 )))||new_error){ if(qbevent){evnt(25224,5959,"ide_methods.bas");if(r)goto S_39991;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,5960,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,5961,"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]))*85+77))=_FUNC_IDECHANGE_STRING_A2->len; if(!qbevent)break;evnt(25224,5963,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5965,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,5966,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,5967,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Change #To",10)); if(!qbevent)break;evnt(25224,5968,"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]))*85+44))=FUNC_IDENEWTXT(__STRING_IDECHANGETO); if(!qbevent)break;evnt(25224,5969,"ide_methods.bas");}while(r); S_40001:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDECHANGETO->len> 0 )))||new_error){ if(qbevent){evnt(25224,5970,"ide_methods.bas");if(r)goto S_40001;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,5971,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,5972,"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]))*85+77))=__STRING_IDECHANGETO->len; if(!qbevent)break;evnt(25224,5974,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5976,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,5977,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,5978,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); if(!qbevent)break;evnt(25224,5979,"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]))*85+64))=*__INTEGER_IDEFINDCASESENS; if(!qbevent)break;evnt(25224,5980,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5981,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,5982,"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]))*85+24))= 9 ; if(!qbevent)break;evnt(25224,5983,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); if(!qbevent)break;evnt(25224,5984,"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]))*85+64))=*__INTEGER_IDEFINDWHOLEWORD; if(!qbevent)break;evnt(25224,5985,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5986,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,5987,"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]))*85+24))= 10 ; if(!qbevent)break;evnt(25224,5988,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); if(!qbevent)break;evnt(25224,5989,"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]))*85+64))=*__INTEGER_IDEFINDBACKWARDS; if(!qbevent)break;evnt(25224,5990,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5992,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,5993,"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]))*85+24))= 11 ; if(!qbevent)break;evnt(25224,5994,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); if(!qbevent)break;evnt(25224,5995,"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]))*85+64))=*__INTEGER_IDEFINDNOCOMMENTS; if(!qbevent)break;evnt(25224,5996,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,5998,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,5999,"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]))*85+20))= 29 ; if(!qbevent)break;evnt(25224,6000,"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]))*85+24))= 11 ; if(!qbevent)break;evnt(25224,6001,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); if(!qbevent)break;evnt(25224,6002,"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]))*85+64))=*__INTEGER_IDEFINDONLYCOMMENTS; if(!qbevent)break;evnt(25224,6003,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6005,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6006,"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]))*85+24))= 12 ; if(!qbevent)break;evnt(25224,6007,"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]))*85+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(25224,6008,"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]))*85+64))=*__INTEGER_IDEFINDNOSTRINGS; if(!qbevent)break;evnt(25224,6009,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6011,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6012,"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]))*85+20))= 29 ; if(!qbevent)break;evnt(25224,6013,"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]))*85+24))= 12 ; if(!qbevent)break;evnt(25224,6014,"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]))*85+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(25224,6015,"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]))*85+64))=*__INTEGER_IDEFINDONLYSTRINGS; if(!qbevent)break;evnt(25224,6016,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6018,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_BUTTONSID=*_FUNC_IDECHANGE_LONG_I; if(!qbevent)break;evnt(25224,6019,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,6020,"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]))*85+24))= 14 ; if(!qbevent)break;evnt(25224,6021,"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]))*85+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(25224,6022,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,6023,"ide_methods.bas");}while(r); S_40049:; fornext_value4370= 1 ; fornext_finalvalue4370= 100 ; fornext_step4370= 1 ; if (fornext_step4370<0) fornext_step_negative4370=1; else fornext_step_negative4370=0; if (new_error) goto fornext_error4370; goto fornext_entrylabel4370; while(1){ fornext_value4370=fornext_step4370+(*_FUNC_IDECHANGE_LONG_I); fornext_entrylabel4370: *_FUNC_IDECHANGE_LONG_I=fornext_value4370; if (fornext_step_negative4370){ if (fornext_value4370fornext_finalvalue4370) break; } fornext_error4370:; if(qbevent){evnt(25224,6027,"ide_methods.bas");if(r)goto S_40049;} 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]))*85)+ 0,((char*)_FUNC_IDECHANGE_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,6027,"ide_methods.bas");}while(r); fornext_continue_4369:; } fornext_exit_4369:; S_40052:; do{ if(qbevent){evnt(25224,6030,"ide_methods.bas");if(r)goto S_40052;} do{ return_point[next_return_point++]=52; if (next_return_point>=return_points) more_return_points(); goto LABEL_DISPLAYDIALOG; RETURN_52:; if(!qbevent)break;evnt(25224,6033,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_LASTFOCUS=*_FUNC_IDECHANGE_LONG_F- 1 ; if(!qbevent)break;evnt(25224,6034,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,6041,"ide_methods.bas");}while(r); S_40056:; if ((*_FUNC_IDECHANGE_LONG_CX)||new_error){ if(qbevent){evnt(25224,6042,"ide_methods.bas");if(r)goto S_40056;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6042,"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(25224,6042,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6042,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,6045,"ide_methods.bas");}while(r); S_40062:; do{ if(qbevent){evnt(25224,6046,"ide_methods.bas");if(r)goto S_40062;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,6047,"ide_methods.bas");}while(r); S_40064:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,6048,"ide_methods.bas");if(r)goto S_40064;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6048,"ide_methods.bas");}while(r); } S_40067:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,6049,"ide_methods.bas");if(r)goto S_40067;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6049,"ide_methods.bas");}while(r); } S_40070:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,6050,"ide_methods.bas");if(r)goto S_40070;} do{ *_FUNC_IDECHANGE_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,6050,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6050,"ide_methods.bas");}while(r); } S_40074:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,6051,"ide_methods.bas");if(r)goto S_40074;} do{ *_FUNC_IDECHANGE_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,6051,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6051,"ide_methods.bas");}while(r); } S_40078:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,6052,"ide_methods.bas");if(r)goto S_40078;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6052,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,6053,"ide_methods.bas");}while(r); S_40082:; if ((-(*_FUNC_IDECHANGE_LONG_ALT!=*_FUNC_IDECHANGE_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,6053,"ide_methods.bas");if(r)goto S_40082;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6053,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_OLDALT=*_FUNC_IDECHANGE_LONG_ALT; if(!qbevent)break;evnt(25224,6054,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,6055,"ide_methods.bas");}while(r); S_40087:; dl_continue_4372:; }while((!(*_FUNC_IDECHANGE_LONG_CHANGE))&&(!new_error)); dl_exit_4372:; if(qbevent){evnt(25224,6056,"ide_methods.bas");if(r)goto S_40087;} S_40088:; if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6057,"ide_methods.bas");if(r)goto S_40088;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,6057,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,6057,"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(25224,6059,"ide_methods.bas");}while(r); S_40094:; if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6060,"ide_methods.bas");if(r)goto S_40094;} S_40095:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,6061,"ide_methods.bas");if(r)goto S_40095;} do{ *_FUNC_IDECHANGE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6062,"ide_methods.bas");}while(r); S_40097:; if (((-(*_FUNC_IDECHANGE_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,6063,"ide_methods.bas");if(r)goto S_40097;} do{ qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGE_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6063,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6066,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,6066,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6066,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,6070,"ide_methods.bas");}while(r); S_40106:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,6071,"ide_methods.bas");if(r)goto S_40106;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6071,"ide_methods.bas");}while(r); } S_40109:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,6072,"ide_methods.bas");if(r)goto S_40109;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,6072,"ide_methods.bas");}while(r); } S_40112:; 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(25224,6073,"ide_methods.bas");if(r)goto S_40112;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,6073,"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(25224,6073,"ide_methods.bas");}while(r); } S_40116:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,6074,"ide_methods.bas");if(r)goto S_40116;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,6074,"ide_methods.bas");}while(r); } S_40119:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS>*_FUNC_IDECHANGE_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,6075,"ide_methods.bas");if(r)goto S_40119;} do{ *_FUNC_IDECHANGE_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,6075,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6076,"ide_methods.bas");}while(r); S_40123:; fornext_value4375= 1 ; fornext_finalvalue4375= 100 ; fornext_step4375= 1 ; if (fornext_step4375<0) fornext_step_negative4375=1; else fornext_step_negative4375=0; if (new_error) goto fornext_error4375; goto fornext_entrylabel4375; while(1){ fornext_value4375=fornext_step4375+(*_FUNC_IDECHANGE_LONG_I); fornext_entrylabel4375: *_FUNC_IDECHANGE_LONG_I=fornext_value4375; if (fornext_step_negative4375){ if (fornext_value4375fornext_finalvalue4375) break; } fornext_error4375:; if(qbevent){evnt(25224,6077,"ide_methods.bas");if(r)goto S_40123;} 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]))*85+36)); if(!qbevent)break;evnt(25224,6078,"ide_methods.bas");}while(r); S_40125:; if ((*_FUNC_IDECHANGE_LONG_T)||new_error){ if(qbevent){evnt(25224,6079,"ide_methods.bas");if(r)goto S_40125;} do{ *_FUNC_IDECHANGE_LONG_FOCUSOFFSET=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; if(!qbevent)break;evnt(25224,6080,"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]))*85) ),_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(25224,6081,"ide_methods.bas");}while(r); } fornext_continue_4374:; } fornext_exit_4374:; S_40130:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS!=*_FUNC_IDECHANGE_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,6087,"ide_methods.bas");if(r)goto S_40130;} do{ *_FUNC_IDECHANGE_LONG_PREVFOCUS=*_FUNC_IDECHANGE_LONG_FOCUS; if(!qbevent)break;evnt(25224,6089,"ide_methods.bas");}while(r); S_40132:; if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECHANGE_LONG_FOCUS== 2 )))||new_error){ if(qbevent){evnt(25224,6090,"ide_methods.bas");if(r)goto S_40132;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,6091,"ide_methods.bas");}while(r); S_40134:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,6092,"ide_methods.bas");if(r)goto S_40134;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,6092,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,6093,"ide_methods.bas");}while(r); } } S_40140:; 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]))*85+64))== 1 )))||new_error){ if(qbevent){evnt(25224,6098,"ide_methods.bas");if(r)goto S_40140;} do{ *(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6099,"ide_methods.bas");}while(r); S_40142:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6100,"ide_methods.bas");if(r)goto S_40142;} do{ *(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6101,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6102,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6103,"ide_methods.bas");}while(r); S_40146:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6104,"ide_methods.bas");if(r)goto S_40146;} do{ *(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6105,"ide_methods.bas");}while(r); S_40148:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6106,"ide_methods.bas");if(r)goto S_40148;} do{ *(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6107,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6108,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6109,"ide_methods.bas");}while(r); } } } } S_40153:; 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(25224,6112,"ide_methods.bas");if(r)goto S_40153;} do{ qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6113,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6114,"ide_methods.bas");}while(r); } S_40157:; if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ if(qbevent){evnt(25224,6117,"ide_methods.bas");if(r)goto S_40157;} S_40158:; 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(25224,6118,"ide_methods.bas");if(r)goto S_40158;} S_40159:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_LNlen; if(!qbevent)break;evnt(25224,6123,"ide_methods.bas");}while(r); } S_40167:; 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(25224,6126,"ide_methods.bas");if(r)goto S_40167;} S_40168:; if ((-(*_FUNC_IDECHANGE_LONG_LN> 1 ))||new_error){ if(qbevent){evnt(25224,6127,"ide_methods.bas");if(r)goto S_40168;} do{ *_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN- 1 ; if(!qbevent)break;evnt(25224,6128,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHANGE_LONG_LN= 1 ; if(!qbevent)break;evnt(25224,6130,"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]))*85+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(25224,6132,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,6133,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,6133,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,6133,"ide_methods.bas");}while(r); } } S_40179:; if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 11 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 )))||new_error){ if(qbevent){evnt(25224,6137,"ide_methods.bas");if(r)goto S_40179;} 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]))*85+64)); if(!qbevent)break;evnt(25224,6138,"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]))*85+64)); if(!qbevent)break;evnt(25224,6139,"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]))*85+64)); if(!qbevent)break;evnt(25224,6140,"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]))*85+64)); if(!qbevent)break;evnt(25224,6141,"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]))*85+64)); if(!qbevent)break;evnt(25224,6142,"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]))*85+64)); if(!qbevent)break;evnt(25224,6143,"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]))*85+64)); if(!qbevent)break;evnt(25224,6144,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6146,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDECHANGE_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6147,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6148,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6149,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGED= 0 ; if(!qbevent)break;evnt(25224,6151,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6153,"ide_methods.bas");}while(r); S_40193:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,6154,"ide_methods.bas");if(r)goto S_40193;} do{ qbs_set(_FUNC_IDECHANGE_STRING_S,qbs_ucase(_FUNC_IDECHANGE_STRING_S)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6154,"ide_methods.bas");}while(r); } S_40196:; fornext_value4380= 1 ; fornext_finalvalue4380=*__LONG_IDEN; fornext_step4380= 1 ; if (fornext_step4380<0) fornext_step_negative4380=1; else fornext_step_negative4380=0; if (new_error) goto fornext_error4380; goto fornext_entrylabel4380; while(1){ fornext_value4380=fornext_step4380+(*_FUNC_IDECHANGE_LONG_Y); fornext_entrylabel4380: *_FUNC_IDECHANGE_LONG_Y=fornext_value4380; if (fornext_step_negative4380){ if (fornext_value4380fornext_finalvalue4380) break; } fornext_error4380:; if(qbevent){evnt(25224,6156,"ide_methods.bas");if(r)goto S_40196;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6157,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH=*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(8))- 4 ; if(!qbevent)break;evnt(25224,6158,"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(25224,6159,"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(25224,6160,"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(25224,6161,"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(25224,6162,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,6163,"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(25224,6165,"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(25224,6166,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_X1= 1 ; if(!qbevent)break;evnt(25224,6168,"ide_methods.bas");}while(r); LABEL_IDECHANGEALL:; if(qbevent){evnt(25224,6169,"ide_methods.bas");r=0;} S_40207:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,6170,"ide_methods.bas");if(r)goto S_40207;} do{ qbs_set(_FUNC_IDECHANGE_STRING_L3,qbs_ucase(_FUNC_IDECHANGE_STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6170,"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(25224,6170,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_X=func_instr(*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_S,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6171,"ide_methods.bas");}while(r); S_40213:; if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ if(qbevent){evnt(25224,6173,"ide_methods.bas");if(r)goto S_40213;} S_40214:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ if(qbevent){evnt(25224,6174,"ide_methods.bas");if(r)goto S_40214;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 1 ; if(!qbevent)break;evnt(25224,6175,"ide_methods.bas");}while(r); S_40216:; if ((-(*_FUNC_IDECHANGE_LONG_X> 1 ))||new_error){ if(qbevent){evnt(25224,6176,"ide_methods.bas");if(r)goto S_40216;} do{ *_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6177,"ide_methods.bas");}while(r); S_40218:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,6178,"ide_methods.bas");if(r)goto S_40218;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,6178,"ide_methods.bas");}while(r); } S_40221:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,6179,"ide_methods.bas");if(r)goto S_40221;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,6179,"ide_methods.bas");}while(r); } } S_40225:; 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(25224,6181,"ide_methods.bas");if(r)goto S_40225;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6182,"ide_methods.bas");}while(r); S_40227:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,6183,"ide_methods.bas");if(r)goto S_40227;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,6183,"ide_methods.bas");}while(r); } S_40230:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,6184,"ide_methods.bas");if(r)goto S_40230;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,6184,"ide_methods.bas");}while(r); } } S_40234:; if ((-(*_FUNC_IDECHANGE_LONG_WHOLE== 0 ))||new_error){ if(qbevent){evnt(25224,6186,"ide_methods.bas");if(r)goto S_40234;} S_40235:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ if(qbevent){evnt(25224,6187,"ide_methods.bas");if(r)goto S_40235;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6188,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,6189,"ide_methods.bas");}while(r); do{ goto LABEL_IDECHANGEALL; if(!qbevent)break;evnt(25224,6190,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6192,"ide_methods.bas");}while(r); } } } do{ if(!qbevent)break;evnt(25224,6197,"ide_methods.bas");}while(r); S_40245:; if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ if(qbevent){evnt(25224,6198,"ide_methods.bas");if(r)goto S_40245;} 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(25224,6199,"ide_methods.bas");}while(r); S_40247:; if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDECHANGE_BYTE_COMMENT)||new_error){ if(qbevent){evnt(25224,6200,"ide_methods.bas");if(r)goto S_40247;} do{ *_FUNC_IDECHANGE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6200,"ide_methods.bas");}while(r); } S_40250:; if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDECHANGE_BYTE_QUOTE)||new_error){ if(qbevent){evnt(25224,6201,"ide_methods.bas");if(r)goto S_40250;} do{ *_FUNC_IDECHANGE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6201,"ide_methods.bas");}while(r); } S_40253:; if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_COMMENT== 0 )))||new_error){ if(qbevent){evnt(25224,6202,"ide_methods.bas");if(r)goto S_40253;} do{ *_FUNC_IDECHANGE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6202,"ide_methods.bas");}while(r); } S_40256:; if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_QUOTE== 0 )))||new_error){ if(qbevent){evnt(25224,6203,"ide_methods.bas");if(r)goto S_40256;} do{ *_FUNC_IDECHANGE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6203,"ide_methods.bas");}while(r); } } S_40260:; if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ if(qbevent){evnt(25224,6206,"ide_methods.bas");if(r)goto S_40260;} 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,1)),__STRING_IDECHANGETO)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6207,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGED=*_FUNC_IDECHANGE_LONG_CHANGED+ 1 ; if(!qbevent)break;evnt(25224,6208,"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(25224,6209,"ide_methods.bas");}while(r); S_40264:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ if(qbevent){evnt(25224,6210,"ide_methods.bas");if(r)goto S_40264;} do{ goto LABEL_IDECHANGEALL; if(!qbevent)break;evnt(25224,6210,"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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6213,"ide_methods.bas");}while(r); S_40269:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHANGE_STRING_L2,_FUNC_IDECHANGE_STRING_L)))||new_error){ if(qbevent){evnt(25224,6215,"ide_methods.bas");if(r)goto S_40269;} do{ SUB_IDESETLINE(_FUNC_IDECHANGE_LONG_Y,_FUNC_IDECHANGE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6215,"ide_methods.bas");}while(r); } fornext_continue_4379:; } fornext_exit_4379:; do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6219,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,6220,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,6221,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,6222,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,6223,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,6224,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,6225,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6226,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=53; if (next_return_point>=return_points) more_return_points(); goto LABEL_DISPLAYDIALOG; RETURN_53:; if(!qbevent)break;evnt(25224,6227,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,6228,"ide_methods.bas");}while(r); S_40283:; if ((-(*_FUNC_IDECHANGE_LONG_CHANGED== 0 ))||new_error){ if(qbevent){evnt(25224,6230,"ide_methods.bas");if(r)goto S_40283;} do{ SUB_IDENOMATCH(&(pass4388= 0 )); if(!qbevent)break;evnt(25224,6231,"ide_methods.bas");}while(r); }else{ do{ SUB_IDECHANGED(_FUNC_IDECHANGE_LONG_CHANGED); if(!qbevent)break;evnt(25224,6233,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,6233,"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]))*85+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(25224,6236,"ide_methods.bas");}while(r); } S_40291:; 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(25224,6240,"ide_methods.bas");if(r)goto S_40291;} 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]))*85+64)); if(!qbevent)break;evnt(25224,6241,"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]))*85+64)); if(!qbevent)break;evnt(25224,6242,"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]))*85+64)); if(!qbevent)break;evnt(25224,6243,"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]))*85+64)); if(!qbevent)break;evnt(25224,6244,"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]))*85+64)); if(!qbevent)break;evnt(25224,6245,"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]))*85+64)); if(!qbevent)break;evnt(25224,6246,"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]))*85+64)); if(!qbevent)break;evnt(25224,6247,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6248,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6249,"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(25224,6250,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6251,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,6259,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,6260,"ide_methods.bas");}while(r); dl_continue_4371:; }while(1); dl_exit_4371:; do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6262,"ide_methods.bas");}while(r); LABEL_DISPLAYDIALOG:; if(qbevent){evnt(25224,6263,"ide_methods.bas");r=0;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,6264,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6265,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,6265,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,6265,"ide_methods.bas");}while(r); S_40312:; fornext_value4390= 1 ; fornext_finalvalue4390= 100 ; fornext_step4390= 1 ; if (fornext_step4390<0) fornext_step_negative4390=1; else fornext_step_negative4390=0; if (new_error) goto fornext_error4390; goto fornext_entrylabel4390; while(1){ fornext_value4390=fornext_step4390+(*_FUNC_IDECHANGE_LONG_I); fornext_entrylabel4390: *_FUNC_IDECHANGE_LONG_I=fornext_value4390; if (fornext_step_negative4390){ if (fornext_value4390fornext_finalvalue4390) break; } fornext_error4390:; if(qbevent){evnt(25224,6266,"ide_methods.bas");if(r)goto S_40312;} S_40313:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,6268,"ide_methods.bas");if(r)goto S_40313;} 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]))*85+60))=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; if(!qbevent)break;evnt(25224,6271,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,6273,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,6273,"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]))*85) ),_FUNC_IDECHANGE_LONG_F); if(!qbevent)break;evnt(25224,6275,"ide_methods.bas");}while(r); S_40318:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,6277,"ide_methods.bas");if(r)goto S_40318;} 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]))*85+52)); if(!qbevent)break;evnt(25224,6277,"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]))*85+56)); if(!qbevent)break;evnt(25224,6277,"ide_methods.bas");}while(r); } } fornext_continue_4389:; } fornext_exit_4389:; do{ #include "ret118.txt" if(!qbevent)break;evnt(25224,6281,"ide_methods.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; 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 "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; do{ *_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ; if(!qbevent)break;evnt(25224,6285,"ide_methods.bas");}while(r); do{ *_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ; if(!qbevent)break;evnt(25224,6285,"ide_methods.bas");}while(r); do{ *_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR; if(!qbevent)break;evnt(25224,6286,"ide_methods.bas");}while(r); S_40328:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||new_error){ if(qbevent){evnt(25224,6287,"ide_methods.bas");if(r)goto S_40328;} do{ *_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6287,"ide_methods.bas");}while(r); } S_40331:; fornext_value4395= 1 ; fornext_finalvalue4395=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR; 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+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K); fornext_entrylabel4395: *_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value4395; if (fornext_step_negative4395){ if (fornext_value4395fornext_finalvalue4395) break; } fornext_error4395:; if(qbevent){evnt(25224,6288,"ide_methods.bas");if(r)goto S_40331;} S_40332:; qbs_set(sc_4396,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(25224,6289,"ide_methods.bas");if(r)goto S_40332;} S_40333:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4396,func_chr( 34 ))))||new_error){ if(qbevent){evnt(25224,6290,"ide_methods.bas");if(r)goto S_40333;} do{ *_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q); if(!qbevent)break;evnt(25224,6290,"ide_methods.bas");}while(r); sc_ec_188_end:; goto sc_4396_end; } S_40335:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4396,qbs_new_txt_len("'",1))))||new_error){ if(qbevent){evnt(25224,6291,"ide_methods.bas");if(r)goto S_40335;} S_40336:; if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ if(qbevent){evnt(25224,6291,"ide_methods.bas");if(r)goto S_40336;} do{ *_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; if(!qbevent)break;evnt(25224,6291,"ide_methods.bas");}while(r); do{ goto fornext_exit_4394; if(!qbevent)break;evnt(25224,6291,"ide_methods.bas");}while(r); } sc_ec_189_end:; goto sc_4396_end; } S_40340:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4396,qbs_new_txt_len("R",1))||qbs_equal(sc_4396,qbs_new_txt_len("r",1))))||new_error){ if(qbevent){evnt(25224,6292,"ide_methods.bas");if(r)goto S_40340;} S_40341:; if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ if(qbevent){evnt(25224,6293,"ide_methods.bas");if(r)goto S_40341;} S_40342:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,1)),qbs_new_txt_len(" REM ",5)))|(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,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 ,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 ,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(25224,6299,"ide_methods.bas");if(r)goto S_40342;} do{ *_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; if(!qbevent)break;evnt(25224,6300,"ide_methods.bas");}while(r); do{ goto fornext_exit_4394; if(!qbevent)break;evnt(25224,6300,"ide_methods.bas");}while(r); } } sc_ec_190_end:; goto sc_4396_end; } sc_4396_end:; fornext_continue_4394:; } fornext_exit_4394:; 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; } 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 "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_40349:; if ((-(*_SUB_IDECHANGED_LONG_TOTALCHANGES> 1 ))||new_error){ if(qbevent){evnt(25224,6308,"ide_methods.bas");if(r)goto S_40349;} do{ qbs_set(_SUB_IDECHANGED_STRING_PL,qbs_new_txt_len("s",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6308,"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(25224,6309,"ide_methods.bas");}while(r); 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; } 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 "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; do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,6315,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,6316,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,6317,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6318,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,6319,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,6320,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDECHANGEIT_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHANGEIT_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4]+1; _FUNC_IDECHANGEIT_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&4){ _FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGEIT_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,6321,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,6322,"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(25224,6323,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_I= 0 ; if(!qbevent)break;evnt(25224,6327,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_W= 45 ; if(!qbevent)break;evnt(25224,6328,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(0))=( 40 )-(*_FUNC_IDECHANGEIT_LONG_W/ 2 ); if(!qbevent)break;evnt(25224,6329,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(4))=*__LONG_IDEWY- 4 ; if(!qbevent)break;evnt(25224,6330,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(8))=*_FUNC_IDECHANGEIT_LONG_W; if(!qbevent)break;evnt(25224,6331,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(12))= 2 ; if(!qbevent)break;evnt(25224,6332,"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(25224,6333,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_I=*_FUNC_IDECHANGEIT_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6335,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,6336,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,6337,"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]))*85+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(25224,6338,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,6339,"ide_methods.bas");}while(r); S_40374:; fornext_value4400= 1 ; fornext_finalvalue4400= 100 ; fornext_step4400= 1 ; if (fornext_step4400<0) fornext_step_negative4400=1; else fornext_step_negative4400=0; if (new_error) goto fornext_error4400; goto fornext_entrylabel4400; while(1){ fornext_value4400=fornext_step4400+(*_FUNC_IDECHANGEIT_LONG_I); fornext_entrylabel4400: *_FUNC_IDECHANGEIT_LONG_I=fornext_value4400; if (fornext_step_negative4400){ if (fornext_value4400fornext_finalvalue4400) break; } fornext_error4400:; if(qbevent){evnt(25224,6343,"ide_methods.bas");if(r)goto S_40374;} 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]))*85)+ 0,((char*)_FUNC_IDECHANGEIT_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,6343,"ide_methods.bas");}while(r); fornext_continue_4399:; } fornext_exit_4399:; S_40377:; do{ if(qbevent){evnt(25224,6346,"ide_methods.bas");if(r)goto S_40377;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGEIT_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,6349,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6350,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,6350,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,6350,"ide_methods.bas");}while(r); S_40382:; fornext_value4403= 1 ; fornext_finalvalue4403= 100 ; 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_IDECHANGEIT_LONG_I); fornext_entrylabel4403: *_FUNC_IDECHANGEIT_LONG_I=fornext_value4403; if (fornext_step_negative4403){ if (fornext_value4403fornext_finalvalue4403) break; } fornext_error4403:; if(qbevent){evnt(25224,6351,"ide_methods.bas");if(r)goto S_40382;} S_40383:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,6352,"ide_methods.bas");if(r)goto S_40383;} 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]))*85+60))=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; if(!qbevent)break;evnt(25224,6354,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,6355,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,6355,"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]))*85) ),_FUNC_IDECHANGEIT_LONG_F); if(!qbevent)break;evnt(25224,6356,"ide_methods.bas");}while(r); S_40388:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,6357,"ide_methods.bas");if(r)goto S_40388;} 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]))*85+52)); if(!qbevent)break;evnt(25224,6357,"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]))*85+56)); if(!qbevent)break;evnt(25224,6357,"ide_methods.bas");}while(r); } } fornext_continue_4402:; } fornext_exit_4402:; do{ *_FUNC_IDECHANGEIT_LONG_LASTFOCUS=*_FUNC_IDECHANGEIT_LONG_F- 1 ; if(!qbevent)break;evnt(25224,6360,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,6367,"ide_methods.bas");}while(r); S_40396:; if ((*_FUNC_IDECHANGEIT_LONG_CX)||new_error){ if(qbevent){evnt(25224,6368,"ide_methods.bas");if(r)goto S_40396;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6368,"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(25224,6368,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6368,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,6371,"ide_methods.bas");}while(r); S_40402:; do{ if(qbevent){evnt(25224,6372,"ide_methods.bas");if(r)goto S_40402;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,6373,"ide_methods.bas");}while(r); S_40404:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,6374,"ide_methods.bas");if(r)goto S_40404;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6374,"ide_methods.bas");}while(r); } S_40407:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,6375,"ide_methods.bas");if(r)goto S_40407;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6375,"ide_methods.bas");}while(r); } S_40410:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,6376,"ide_methods.bas");if(r)goto S_40410;} do{ *_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,6376,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6376,"ide_methods.bas");}while(r); } S_40414:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,6377,"ide_methods.bas");if(r)goto S_40414;} do{ *_FUNC_IDECHANGEIT_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,6377,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6377,"ide_methods.bas");}while(r); } S_40418:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,6378,"ide_methods.bas");if(r)goto S_40418;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6378,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,6379,"ide_methods.bas");}while(r); S_40422:; if ((-(*_FUNC_IDECHANGEIT_LONG_ALT!=*_FUNC_IDECHANGEIT_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,6379,"ide_methods.bas");if(r)goto S_40422;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6379,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_OLDALT=*_FUNC_IDECHANGEIT_LONG_ALT; if(!qbevent)break;evnt(25224,6380,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,6381,"ide_methods.bas");}while(r); S_40427:; dl_continue_4404:; }while((!(*_FUNC_IDECHANGEIT_LONG_CHANGE))&&(!new_error)); dl_exit_4404:; if(qbevent){evnt(25224,6382,"ide_methods.bas");if(r)goto S_40427;} S_40428:; if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6383,"ide_methods.bas");if(r)goto S_40428;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,6383,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,6383,"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(25224,6385,"ide_methods.bas");}while(r); S_40434:; if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6386,"ide_methods.bas");if(r)goto S_40434;} S_40435:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,6387,"ide_methods.bas");if(r)goto S_40435;} do{ *_FUNC_IDECHANGEIT_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6388,"ide_methods.bas");}while(r); S_40437:; if (((-(*_FUNC_IDECHANGEIT_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGEIT_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,6389,"ide_methods.bas");if(r)goto S_40437;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGEIT_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6389,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6392,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,6392,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6392,"ide_methods.bas");}while(r); S_40445:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,6395,"ide_methods.bas");if(r)goto S_40445;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6395,"ide_methods.bas");}while(r); } S_40448:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1))))||new_error){ if(qbevent){evnt(25224,6396,"ide_methods.bas");if(r)goto S_40448;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("S",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6396,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,6399,"ide_methods.bas");}while(r); S_40452:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,6400,"ide_methods.bas");if(r)goto S_40452;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6400,"ide_methods.bas");}while(r); } S_40455:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,6401,"ide_methods.bas");if(r)goto S_40455;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,6401,"ide_methods.bas");}while(r); } S_40458:; 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(25224,6402,"ide_methods.bas");if(r)goto S_40458;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,6402,"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(25224,6402,"ide_methods.bas");}while(r); } S_40462:; if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,6403,"ide_methods.bas");if(r)goto S_40462;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,6403,"ide_methods.bas");}while(r); } S_40465:; if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS>*_FUNC_IDECHANGEIT_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,6404,"ide_methods.bas");if(r)goto S_40465;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,6404,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6405,"ide_methods.bas");}while(r); S_40469:; fornext_value4407= 1 ; fornext_finalvalue4407= 100 ; fornext_step4407= 1 ; if (fornext_step4407<0) fornext_step_negative4407=1; else fornext_step_negative4407=0; if (new_error) goto fornext_error4407; goto fornext_entrylabel4407; while(1){ fornext_value4407=fornext_step4407+(*_FUNC_IDECHANGEIT_LONG_I); fornext_entrylabel4407: *_FUNC_IDECHANGEIT_LONG_I=fornext_value4407; if (fornext_step_negative4407){ if (fornext_value4407fornext_finalvalue4407) break; } fornext_error4407:; if(qbevent){evnt(25224,6406,"ide_methods.bas");if(r)goto S_40469;} 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]))*85+36)); if(!qbevent)break;evnt(25224,6407,"ide_methods.bas");}while(r); S_40471:; if ((*_FUNC_IDECHANGEIT_LONG_T)||new_error){ if(qbevent){evnt(25224,6408,"ide_methods.bas");if(r)goto S_40471;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; if(!qbevent)break;evnt(25224,6409,"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]))*85) ),_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(25224,6410,"ide_methods.bas");}while(r); } fornext_continue_4406:; } fornext_exit_4406:; S_40476:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ if(qbevent){evnt(25224,6415,"ide_methods.bas");if(r)goto S_40476;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6416,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6417,"ide_methods.bas");}while(r); } S_40480:; if ((*_FUNC_IDECHANGEIT_LONG_INFO)||new_error){ if(qbevent){evnt(25224,6420,"ide_methods.bas");if(r)goto S_40480;} S_40481:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 1 ))||new_error){ if(qbevent){evnt(25224,6421,"ide_methods.bas");if(r)goto S_40481;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6421,"ide_methods.bas");}while(r); } S_40484:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 2 ))||new_error){ if(qbevent){evnt(25224,6422,"ide_methods.bas");if(r)goto S_40484;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("N",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6422,"ide_methods.bas");}while(r); } S_40487:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 3 ))||new_error){ if(qbevent){evnt(25224,6423,"ide_methods.bas");if(r)goto S_40487;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6423,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6424,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,6428,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,6429,"ide_methods.bas");}while(r); dl_continue_4401:; }while(1); dl_exit_4401:; 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_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 "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_40495:; fornext_value4409= 1 ; fornext_finalvalue4409=*__LONG_IDEBMKN; fornext_step4409= 1 ; if (fornext_step4409<0) fornext_step_negative4409=1; else fornext_step_negative4409=0; if (new_error) goto fornext_error4409; goto fornext_entrylabel4409; while(1){ fornext_value4409=fornext_step4409+(*_SUB_IDEDELLINE_LONG_B); fornext_entrylabel4409: *_SUB_IDEDELLINE_LONG_B=fornext_value4409; if (fornext_step_negative4409){ if (fornext_value4409fornext_finalvalue4409) break; } fornext_error4409:; if(qbevent){evnt(25224,6437,"ide_methods.bas");if(r)goto S_40495;} S_40496:; 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(25224,6438,"ide_methods.bas");if(r)goto S_40496;} 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(25224,6439,"ide_methods.bas");}while(r); S_40498:; if ((-(*_SUB_IDEDELLINE_LONG_Y== 0 ))||new_error){ if(qbevent){evnt(25224,6439,"ide_methods.bas");if(r)goto S_40498;} do{ *_SUB_IDEDELLINE_LONG_Y= 1 ; if(!qbevent)break;evnt(25224,6439,"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(25224,6440,"ide_methods.bas");}while(r); } fornext_continue_4408:; } fornext_exit_4408:; do{ SUB_IDEGOTOLINE(_SUB_IDEDELLINE_LONG_I); if(!qbevent)break;evnt(25224,6444,"ide_methods.bas");}while(r); do{ *_SUB_IDEDELLINE_LONG_TEXTLEN=string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6445,"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(25224,6446,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*__LONG_IDEN- 1 ; if(!qbevent)break;evnt(25224,6447,"ide_methods.bas");}while(r); S_40508:; if ((-(*_SUB_IDEDELLINE_LONG_I>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,6449,"ide_methods.bas");if(r)goto S_40508;} do{ SUB_IDEGOTOLINE(__LONG_IDEN); if(!qbevent)break;evnt(25224,6449,"ide_methods.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; } 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 "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; do{ *__INTEGER_IDETXTLAST= 0 ; if(!qbevent)break;evnt(25224,6454,"ide_methods.bas");}while(r); 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; } 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 "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(25224,6458,"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(25224,6459,"ide_methods.bas");}while(r); S_40514:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 1 ))||new_error){ if(qbevent){evnt(25224,6462,"ide_methods.bas");if(r)goto S_40514;} S_40515:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ if(qbevent){evnt(25224,6463,"ide_methods.bas");if(r)goto S_40515;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; if(!qbevent)break;evnt(25224,6463,"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(25224,6464,"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(25224,6464,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6465,"ide_methods.bas");}while(r); S_40521:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,6466,"ide_methods.bas");if(r)goto S_40521;} 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(25224,6467,"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(25224,6468,"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(25224,6468,"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(25224,6469,"ide_methods.bas");}while(r); } S_40527:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ if(qbevent){evnt(25224,6471,"ide_methods.bas");if(r)goto S_40527;} do{ *_SUB_IDEDRAWOBJ_LONG_X2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 1 ; if(!qbevent)break;evnt(25224,6471,"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(25224,6471,"ide_methods.bas");}while(r); } do{ SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,&(pass4411=*_SUB_IDEDRAWOBJ_LONG_Y- 1 ),&(pass4412=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 4 ),&(pass4413= 3 )); if(!qbevent)break;evnt(25224,6472,"ide_methods.bas");}while(r); S_40532:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ if(qbevent){evnt(25224,6473,"ide_methods.bas");if(r)goto S_40532;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); if(!qbevent)break;evnt(25224,6473,"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(25224,6474,"ide_methods.bas");}while(r); S_40536:; if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))>_SUB_IDEDRAWOBJ_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,6475,"ide_methods.bas");if(r)goto S_40536;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=_SUB_IDEDRAWOBJ_STRING_A->len; if(!qbevent)break;evnt(25224,6475,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_CX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); if(!qbevent)break;evnt(25224,6476,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_TX= 1 ; if(!qbevent)break;evnt(25224,6478,"ide_methods.bas");}while(r); S_40541:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ if(qbevent){evnt(25224,6479,"ide_methods.bas");if(r)goto S_40541;} S_40542:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ if(qbevent){evnt(25224,6480,"ide_methods.bas");if(r)goto S_40542;} do{ *_SUB_IDEDRAWOBJ_LONG_TX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ; if(!qbevent)break;evnt(25224,6481,"ide_methods.bas");}while(r); S_40544:; if ((-(*_SUB_IDEDRAWOBJ_LONG_TX< 1 ))||new_error){ if(qbevent){evnt(25224,6482,"ide_methods.bas");if(r)goto S_40544;} do{ *_SUB_IDEDRAWOBJ_LONG_TX= 1 ; if(!qbevent)break;evnt(25224,6482,"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)),1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6483,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_CX=*_SUB_IDEDRAWOBJ_LONG_CX-*_SUB_IDEDRAWOBJ_LONG_TX+ 1 ; if(!qbevent)break;evnt(25224,6484,"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(25224,6486,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEDRAWOBJ_LONG_SX1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(73)); if(!qbevent)break;evnt(25224,6490,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_SX2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); if(!qbevent)break;evnt(25224,6490,"ide_methods.bas");}while(r); S_40555:; if ((-(*_SUB_IDEDRAWOBJ_LONG_SX1>*_SUB_IDEDRAWOBJ_LONG_SX2))||new_error){ if(qbevent){evnt(25224,6491,"ide_methods.bas");if(r)goto S_40555;} do{ swap_32(&*_SUB_IDEDRAWOBJ_LONG_SX1,&*_SUB_IDEDRAWOBJ_LONG_SX2); if(!qbevent)break;evnt(25224,6491,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; if(!qbevent)break;evnt(25224,6493,"ide_methods.bas");}while(r); S_40559:; if (((-(*(int8*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))== 0 ))|(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 )))||new_error){ if(qbevent){evnt(25224,6495,"ide_methods.bas");if(r)goto S_40559;} 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(25224,6496,"ide_methods.bas");}while(r); }else{ S_40562:; fornext_value4418= 1 ; fornext_finalvalue4418=_SUB_IDEDRAWOBJ_STRING_A->len; fornext_step4418= 1 ; if (fornext_step4418<0) fornext_step_negative4418=1; else fornext_step_negative4418=0; if (new_error) goto fornext_error4418; goto fornext_entrylabel4418; while(1){ fornext_value4418=fornext_step4418+(*_SUB_IDEDRAWOBJ_LONG_COLORCHAR); fornext_entrylabel4418: *_SUB_IDEDRAWOBJ_LONG_COLORCHAR=fornext_value4418; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4418){ if (fornext_value4418fornext_finalvalue4418) break; } fornext_error4418:; if(qbevent){evnt(25224,6498,"ide_methods.bas");if(r)goto S_40562;} S_40563:; 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(25224,6499,"ide_methods.bas");if(r)goto S_40563;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,6499,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6499,"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 ,1),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6500,"ide_methods.bas");}while(r); fornext_continue_4417:; } fornext_exit_4417:; } S_40571:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ if(qbevent){evnt(25224,6504,"ide_methods.bas");if(r)goto S_40571;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_CX; if(!qbevent)break;evnt(25224,6504,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; if(!qbevent)break;evnt(25224,6504,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,6505,"ide_methods.bas");}while(r); } S_40577:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 2 ))||new_error){ if(qbevent){evnt(25224,6509,"ide_methods.bas");if(r)goto S_40577;} S_40578:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ if(qbevent){evnt(25224,6510,"ide_methods.bas");if(r)goto S_40578;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; if(!qbevent)break;evnt(25224,6510,"ide_methods.bas");}while(r); } S_40581:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ if(qbevent){evnt(25224,6511,"ide_methods.bas");if(r)goto S_40581;} 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(25224,6511,"ide_methods.bas");}while(r); } S_40584:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))== 0 ))||new_error){ if(qbevent){evnt(25224,6512,"ide_methods.bas");if(r)goto S_40584;} 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(25224,6512,"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(25224,6513,"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(25224,6513,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6514,"ide_methods.bas");}while(r); do{ SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,_SUB_IDEDRAWOBJ_LONG_Y,&(pass4420=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ),&(pass4421=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 2 )); if(!qbevent)break;evnt(25224,6515,"ide_methods.bas");}while(r); S_40591:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,6516,"ide_methods.bas");if(r)goto S_40591;} 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(25224,6517,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ; if(!qbevent)break;evnt(25224,6518,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_W/ 2 ; if(!qbevent)break;evnt(25224,6519,"ide_methods.bas");}while(r); S_40595:; if ((*_SUB_IDEDRAWOBJ_LONG_W& 1 )||new_error){ if(qbevent){evnt(25224,6519,"ide_methods.bas");if(r)goto S_40595;} do{ *_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_M+ 1 ; if(!qbevent)break;evnt(25224,6519,"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(25224,6520,"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(25224,6520,"ide_methods.bas");}while(r); } S_40601:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))== 0 ))||new_error){ if(qbevent){evnt(25224,6523,"ide_methods.bas");if(r)goto S_40601;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))= -1 ; if(!qbevent)break;evnt(25224,6523,"ide_methods.bas");}while(r); } S_40604:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ if(qbevent){evnt(25224,6524,"ide_methods.bas");if(r)goto S_40604;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); if(!qbevent)break;evnt(25224,6524,"ide_methods.bas");}while(r); } S_40607:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))== 0 ))||new_error){ if(qbevent){evnt(25224,6525,"ide_methods.bas");if(r)goto S_40607;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); if(!qbevent)break;evnt(25224,6525,"ide_methods.bas");}while(r); } S_40610:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))== 0 ))||new_error){ if(qbevent){evnt(25224,6526,"ide_methods.bas");if(r)goto S_40610;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))= 1 ; if(!qbevent)break;evnt(25224,6526,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_S=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); if(!qbevent)break;evnt(25224,6527,"ide_methods.bas");}while(r); S_40614:; if ((-(*_SUB_IDEDRAWOBJ_LONG_S>=(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32)))))||new_error){ if(qbevent){evnt(25224,6528,"ide_methods.bas");if(r)goto S_40614;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=*_SUB_IDEDRAWOBJ_LONG_S-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 1 ; if(!qbevent)break;evnt(25224,6528,"ide_methods.bas");}while(r); } S_40617:; if ((-(*_SUB_IDEDRAWOBJ_LONG_S<*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))))||new_error){ if(qbevent){evnt(25224,6529,"ide_methods.bas");if(r)goto S_40617;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=*_SUB_IDEDRAWOBJ_LONG_S; if(!qbevent)break;evnt(25224,6529,"ide_methods.bas");}while(r); } S_40620:; if (((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 ))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))> 0 )))||new_error){ if(qbevent){evnt(25224,6530,"ide_methods.bas");if(r)goto S_40620;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))); if(!qbevent)break;evnt(25224,6530,"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(25224,6531,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N= 1 ; if(!qbevent)break;evnt(25224,6532,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Y= 1 ; if(!qbevent)break;evnt(25224,6533,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_V1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); if(!qbevent)break;evnt(25224,6534,"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(25224,6535,"ide_methods.bas");}while(r); S_40628:; fornext_value4423= 1 ; fornext_finalvalue4423=_SUB_IDEDRAWOBJ_STRING_A->len; fornext_step4423= 1 ; if (fornext_step4423<0) fornext_step_negative4423=1; else fornext_step_negative4423=0; if (new_error) goto fornext_error4423; goto fornext_entrylabel4423; while(1){ fornext_value4423=fornext_step4423+(*_SUB_IDEDRAWOBJ_LONG_I2); fornext_entrylabel4423: *_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4423; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4423){ if (fornext_value4423fornext_finalvalue4423) break; } fornext_error4423:; if(qbevent){evnt(25224,6536,"ide_methods.bas");if(r)goto S_40628;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6537,"ide_methods.bas");}while(r); S_40630:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP)))||new_error){ if(qbevent){evnt(25224,6538,"ide_methods.bas");if(r)goto S_40630;} 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(25224,6538,"ide_methods.bas");}while(r); } S_40633:; 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(25224,6539,"ide_methods.bas");if(r)goto S_40633;} S_40634:; if ((-(*_SUB_IDEDRAWOBJ_LONG_N<*_SUB_IDEDRAWOBJ_LONG_V1))||new_error){ if(qbevent){evnt(25224,6540,"ide_methods.bas");if(r)goto S_40634;} }else{ S_40636:; if ((-(*_SUB_IDEDRAWOBJ_LONG_Y<=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))))||new_error){ if(qbevent){evnt(25224,6543,"ide_methods.bas");if(r)goto S_40636;} S_40637:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ if(qbevent){evnt(25224,6544,"ide_methods.bas");if(r)goto S_40637;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,6544,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6544,"ide_methods.bas");}while(r); } S_40642:; 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(25224,6545,"ide_methods.bas");if(r)goto S_40642;} 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(25224,6545,"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(25224,6545,"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(25224,6546,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEDRAWOBJ_STRING_A3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6547,"ide_methods.bas");}while(r); S_40648:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,func_chr( 16 ),0)))||new_error){ if(qbevent){evnt(25224,6548,"ide_methods.bas");if(r)goto S_40648;} do{ *_SUB_IDEDRAWOBJ_LONG_POSITION= 0 ; if(!qbevent)break;evnt(25224,6551,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_CHARACTER= 0 ; if(!qbevent)break;evnt(25224,6551,"ide_methods.bas");}while(r); S_40651:; fornext_value4427=func_pos( 1 ); fornext_finalvalue4427=func_pos( 1 )+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)); fornext_step4427= 1 ; if (fornext_step4427<0) fornext_step_negative4427=1; else fornext_step_negative4427=0; if (new_error) goto fornext_error4427; goto fornext_entrylabel4427; while(1){ fornext_value4427=fornext_step4427+(*_SUB_IDEDRAWOBJ_LONG_CF); fornext_entrylabel4427: *_SUB_IDEDRAWOBJ_LONG_CF=fornext_value4427; if (fornext_step_negative4427){ if (fornext_value4427fornext_finalvalue4427) break; } fornext_error4427:; if(qbevent){evnt(25224,6552,"ide_methods.bas");if(r)goto S_40651;} do{ *_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; if(!qbevent)break;evnt(25224,6553,"ide_methods.bas");}while(r); S_40653:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER>_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ if(qbevent){evnt(25224,6554,"ide_methods.bas");if(r)goto S_40653;} 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 skip4429; makefit(tqbs); qbs_print(tqbs,0); skip4429: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6555,"ide_methods.bas");}while(r); do{ goto fornext_exit_4426; if(!qbevent)break;evnt(25224,6556,"ide_methods.bas");}while(r); } S_40657:; 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(25224,6558,"ide_methods.bas");if(r)goto S_40657;} S_40658:; 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(25224,6559,"ide_methods.bas");if(r)goto S_40658;} 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(25224,6560,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; if(!qbevent)break;evnt(25224,6561,"ide_methods.bas");}while(r); do{ goto fornext_continue_4426; if(!qbevent)break;evnt(25224,6562,"ide_methods.bas");}while(r); S_40662:; }else{ if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 16 ))){ if(qbevent){evnt(25224,6563,"ide_methods.bas");if(r)goto S_40662;} S_40663:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ if(qbevent){evnt(25224,6564,"ide_methods.bas");if(r)goto S_40663;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,6564,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,6564,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; if(!qbevent)break;evnt(25224,6565,"ide_methods.bas");}while(r); do{ goto fornext_continue_4426; if(!qbevent)break;evnt(25224,6566,"ide_methods.bas");}while(r); } } } do{ *_SUB_IDEDRAWOBJ_LONG_POSITION=*_SUB_IDEDRAWOBJ_LONG_POSITION+ 1 ; if(!qbevent)break;evnt(25224,6569,"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 ,1)); if (new_error) goto skip4431; makefit(tqbs); qbs_print(tqbs,0); skip4431: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6570,"ide_methods.bas");}while(r); fornext_continue_4426:; } fornext_exit_4426:; }else{ 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(25224,6573,"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(25224,6574,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_IDEDRAWOBJ_STRING_A3); if (new_error) goto skip4432; makefit(tqbs); qbs_print(tqbs,0); skip4432: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6575,"ide_methods.bas");}while(r); } S_40680:; 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(25224,6578,"ide_methods.bas");if(r)goto S_40680;} S_40681:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ if(qbevent){evnt(25224,6579,"ide_methods.bas");if(r)goto S_40681;} do{ qbg_sub_color( 2 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,6579,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 2 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6579,"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(25224,6580,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_Y=*_SUB_IDEDRAWOBJ_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,6582,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,6585,"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(25224,6586,"ide_methods.bas");}while(r); } fornext_continue_4422:; } fornext_exit_4422:; do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_N- 1 ; if(!qbevent)break;evnt(25224,6589,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_TNUM=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); if(!qbevent)break;evnt(25224,6591,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); if(!qbevent)break;evnt(25224,6592,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Q=FUNC_IDEVBAR(&(pass4433=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ),&(pass4434=*(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(25224,6594,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,6596,"ide_methods.bas");}while(r); } S_40701:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 3 ))||new_error){ if(qbevent){evnt(25224,6600,"ide_methods.bas");if(r)goto S_40701;} S_40702:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ if(qbevent){evnt(25224,6601,"ide_methods.bas");if(r)goto S_40702;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; if(!qbevent)break;evnt(25224,6601,"ide_methods.bas");}while(r); } S_40705:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ if(qbevent){evnt(25224,6602,"ide_methods.bas");if(r)goto S_40705;} 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(25224,6602,"ide_methods.bas");}while(r); } S_40708:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ if(qbevent){evnt(25224,6603,"ide_methods.bas");if(r)goto S_40708;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); if(!qbevent)break;evnt(25224,6603,"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(25224,6604,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N= 1 ; if(!qbevent)break;evnt(25224,6605,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_C= 0 ; if(!qbevent)break;evnt(25224,6606,"ide_methods.bas");}while(r); S_40714:; fornext_value4436= 1 ; fornext_finalvalue4436=_SUB_IDEDRAWOBJ_STRING_A->len; fornext_step4436= 1 ; if (fornext_step4436<0) fornext_step_negative4436=1; else fornext_step_negative4436=0; if (new_error) goto fornext_error4436; goto fornext_entrylabel4436; while(1){ fornext_value4436=fornext_step4436+(*_SUB_IDEDRAWOBJ_LONG_I2); fornext_entrylabel4436: *_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4436; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4436){ if (fornext_value4436fornext_finalvalue4436) break; } fornext_error4436:; if(qbevent){evnt(25224,6607,"ide_methods.bas");if(r)goto S_40714;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6608,"ide_methods.bas");}while(r); S_40716:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,6609,"ide_methods.bas");if(r)goto S_40716;} do{ *_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,6610,"ide_methods.bas");}while(r); }else{ S_40719:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(25224,6612,"ide_methods.bas");if(r)goto S_40719;} do{ *_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+ 1 ; if(!qbevent)break;evnt(25224,6612,"ide_methods.bas");}while(r); } } fornext_continue_4435:; } fornext_exit_4435:; do{ *_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)); if(!qbevent)break;evnt(25224,6615,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+(*_SUB_IDEDRAWOBJ_LONG_N* 4 ); if(!qbevent)break;evnt(25224,6616,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_WHITESPACE=*_SUB_IDEDRAWOBJ_LONG_W-*_SUB_IDEDRAWOBJ_LONG_C; if(!qbevent)break;evnt(25224,6617,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_SPACING=*_SUB_IDEDRAWOBJ_LONG_WHITESPACE/ (*_SUB_IDEDRAWOBJ_LONG_N+ 1 ); if(!qbevent)break;evnt(25224,6618,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 ; if(!qbevent)break;evnt(25224,6619,"ide_methods.bas");}while(r); S_40729:; if (((-(*_SUB_IDEDRAWOBJ_LONG_F2< 1 ))|(-(*_SUB_IDEDRAWOBJ_LONG_F2>*_SUB_IDEDRAWOBJ_LONG_N)))||new_error){ if(qbevent){evnt(25224,6620,"ide_methods.bas");if(r)goto S_40729;} S_40730:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)))||new_error){ if(qbevent){evnt(25224,6621,"ide_methods.bas");if(r)goto S_40730;} do{ *_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)); if(!qbevent)break;evnt(25224,6621,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEDRAWOBJ_LONG_N2= 1 ; if(!qbevent)break;evnt(25224,6623,"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(25224,6624,"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(25224,6625,"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(25224,6626,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6627,"ide_methods.bas");}while(r); S_40739:; fornext_value4439= 1 ; fornext_finalvalue4439=_SUB_IDEDRAWOBJ_STRING_A->len; fornext_step4439= 1 ; if (fornext_step4439<0) fornext_step_negative4439=1; else fornext_step_negative4439=0; if (new_error) goto fornext_error4439; goto fornext_entrylabel4439; while(1){ fornext_value4439=fornext_step4439+(*_SUB_IDEDRAWOBJ_LONG_I2); fornext_entrylabel4439: *_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4439; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4439){ if (fornext_value4439fornext_finalvalue4439) break; } fornext_error4439:; if(qbevent){evnt(25224,6628,"ide_methods.bas");if(r)goto S_40739;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6629,"ide_methods.bas");}while(r); S_40741:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,6630,"ide_methods.bas");if(r)goto S_40741;} 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(25224,6630,"ide_methods.bas");}while(r); } S_40744:; 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(25224,6631,"ide_methods.bas");if(r)goto S_40744;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_SPACING)); if (new_error) goto skip4442; makefit(tqbs); qbs_print(tqbs,0); skip4442: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6632,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_SPACING; if(!qbevent)break;evnt(25224,6633,"ide_methods.bas");}while(r); S_40747:; if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ if(qbevent){evnt(25224,6634,"ide_methods.bas");if(r)goto S_40747;} do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6634,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6634,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("< ",2)); if (new_error) goto skip4443; makefit(tqbs); qbs_print(tqbs,0); skip4443: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6635,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6636,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6636,"ide_methods.bas");}while(r); S_40755:; if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ if(qbevent){evnt(25224,6637,"ide_methods.bas");if(r)goto S_40755;} do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6637,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6637,"ide_methods.bas");}while(r); } S_40760:; if ((-(*_SUB_IDEDRAWOBJ_LONG_N2==(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 )))||new_error){ if(qbevent){evnt(25224,6638,"ide_methods.bas");if(r)goto S_40760;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; if(!qbevent)break;evnt(25224,6639,"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(25224,6639,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" >",2)); if (new_error) goto skip4444; makefit(tqbs); qbs_print(tqbs,0); skip4444: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6641,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6642,"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(25224,6643,"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(25224,6644,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N2=*_SUB_IDEDRAWOBJ_LONG_N2+ 1 ; if(!qbevent)break;evnt(25224,6645,"ide_methods.bas");}while(r); } fornext_continue_4438:; } fornext_exit_4438:; do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+*_SUB_IDEDRAWOBJ_LONG_N; if(!qbevent)break;evnt(25224,6648,"ide_methods.bas");}while(r); } S_40773:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 4 ))||new_error){ if(qbevent){evnt(25224,6652,"ide_methods.bas");if(r)goto S_40773;} S_40774:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ if(qbevent){evnt(25224,6653,"ide_methods.bas");if(r)goto S_40774;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; if(!qbevent)break;evnt(25224,6653,"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(25224,6654,"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(25224,6654,"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(25224,6655,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6656,"ide_methods.bas");}while(r); S_40781:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))||new_error){ if(qbevent){evnt(25224,6657,"ide_methods.bas");if(r)goto S_40781;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("[X] ",4)); if (new_error) goto skip4445; makefit(tqbs); qbs_print(tqbs,0); skip4445: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6658,"ide_methods.bas");}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("[ ] ",4)); if (new_error) goto skip4446; makefit(tqbs); qbs_print(tqbs,0); skip4446: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6660,"ide_methods.bas");}while(r); } S_40786:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,6662,"ide_methods.bas");if(r)goto S_40786;} 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(25224,6663,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6664,"ide_methods.bas");}while(r); } S_40790:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ if(qbevent){evnt(25224,6666,"ide_methods.bas");if(r)goto S_40790;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,6666,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; if(!qbevent)break;evnt(25224,6666,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,6667,"ide_methods.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; } 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 "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; do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6673,"ide_methods.bas");}while(r); do{ SUB_IDEBOXSHADOW((int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (0) ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (4) ),&(pass4447=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))+ 2 ),&(pass4448=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(12))+ 2 )); if(!qbevent)break;evnt(25224,6673,"ide_methods.bas");}while(r); S_40798:; if ((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))||new_error){ if(qbevent){evnt(25224,6674,"ide_methods.bas");if(r)goto S_40798;} 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(25224,6675,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,6676,"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(25224,6676,"ide_methods.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* 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 "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{ *_FUNC_IDEFILEEXISTS_LONG_L=_FUNC_IDEFILEEXISTS_STRING_F->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6681,"ide_methods.bas");}while(r); S_40804:; do{ if(qbevent){evnt(25224,6682,"ide_methods.bas");if(r)goto S_40804;} S_40805:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFILEEXISTS_LONG_L<_FUNC_IDEFILEEXISTS_STRING_F->len)))||new_error){ if(qbevent){evnt(25224,6683,"ide_methods.bas");if(r)goto S_40805;} 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(25224,6684,"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(25224,6686,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEEXISTS_LONG_L=*_FUNC_IDEFILEEXISTS_LONG_L- 1 ; if(!qbevent)break;evnt(25224,6688,"ide_methods.bas");}while(r); S_40811:; dl_continue_4452:; }while((!(qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEEXISTS_STRING_M->len+ 4 )<((*__LONG_IDEWX- 6 ))))))&&(!new_error)); dl_exit_4452:; if(qbevent){evnt(25224,6689,"ide_methods.bas");if(r)goto S_40811;} 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(25224,6691,"ide_methods.bas");}while(r); S_40813:; if ((-(*_FUNC_IDEFILEEXISTS_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(25224,6692,"ide_methods.bas");if(r)goto S_40813;} do{ qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6692,"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(25224,6692,"ide_methods.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_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 "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; do{ if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8])->id=(++mem_lock_id); if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&1){ tmp_long=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); free((void*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0])); } _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]= 0 ; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]=( 0 )-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]+1; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[6]=1; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)malloc(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]*8); if (!_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]) error(257); _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]|=1; tmp_long=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,6697,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,6699,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,6700,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6701,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,6702,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,6703,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEFIND_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEFIND_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEFIND_ARRAY_UDT_O[4]+1; _FUNC_IDEFIND_ARRAY_UDT_O[6]=1; if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&4){ _FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEFIND_ARRAY_UDT_O[0]),0,_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEFIND_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEFIND_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,6704,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,6705,"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(25224,6706,"ide_methods.bas");}while(r); S_40827:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,6712,"ide_methods.bas");if(r)goto S_40827;} S_40828:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,6713,"ide_methods.bas");if(r)goto S_40828;} do{ qbs_set(_FUNC_IDEFIND_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6714,"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(25224,6715,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,6716,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,6716,"ide_methods.bas");}while(r); S_40833:; if ((-(*_FUNC_IDEFIND_LONG_SX2<*_FUNC_IDEFIND_LONG_SX1))||new_error){ if(qbevent){evnt(25224,6717,"ide_methods.bas");if(r)goto S_40833;} do{ swap_32(&*_FUNC_IDEFIND_LONG_SX1,&*_FUNC_IDEFIND_LONG_SX2); if(!qbevent)break;evnt(25224,6717,"ide_methods.bas");}while(r); } S_40836:; fornext_value4456=*_FUNC_IDEFIND_LONG_SX1; fornext_finalvalue4456=*_FUNC_IDEFIND_LONG_SX2- 1 ; fornext_step4456= 1 ; if (fornext_step4456<0) fornext_step_negative4456=1; else fornext_step_negative4456=0; if (new_error) goto fornext_error4456; goto fornext_entrylabel4456; while(1){ fornext_value4456=fornext_step4456+(*_FUNC_IDEFIND_LONG_X); fornext_entrylabel4456: *_FUNC_IDEFIND_LONG_X=fornext_value4456; if (fornext_step_negative4456){ if (fornext_value4456fornext_finalvalue4456) break; } fornext_error4456:; if(qbevent){evnt(25224,6718,"ide_methods.bas");if(r)goto S_40836;} S_40837:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_X<=_FUNC_IDEFIND_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,6719,"ide_methods.bas");if(r)goto S_40837;} do{ qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,func_mid(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6719,"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(25224,6719,"ide_methods.bas");}while(r); } fornext_continue_4455:; } fornext_exit_4455:; } } S_40845:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,6723,"ide_methods.bas");if(r)goto S_40845;} do{ qbs_set(_FUNC_IDEFIND_STRING_A2,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6724,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_LN= 0 ; if(!qbevent)break;evnt(25224,6728,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,6729,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDEFIND_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6730,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING_A,func_space(func_lof(*_FUNC_IDEFIND_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6730,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDEFIND_LONG_FH,NULL,_FUNC_IDEFIND_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6730,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDEFIND_LONG_FH,1); if(!qbevent)break;evnt(25224,6731,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_right(_FUNC_IDEFIND_STRING_A,_FUNC_IDEFIND_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6732,"ide_methods.bas");}while(r); S_40855:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFIND_STRING_A->len))||new_error){ if(qbevent){evnt(25224,6733,"ide_methods.bas");if(r)goto S_40855;} do{ *_FUNC_IDEFIND_LONG_AI=func_instr(NULL,_FUNC_IDEFIND_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6734,"ide_methods.bas");}while(r); S_40857:; if ((*_FUNC_IDEFIND_LONG_AI)||new_error){ if(qbevent){evnt(25224,6735,"ide_methods.bas");if(r)goto S_40857;} do{ qbs_set(_FUNC_IDEFIND_STRING_F,qbs_left(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6736,"ide_methods.bas");}while(r); S_40859:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_AI==(_FUNC_IDEFIND_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,6736,"ide_methods.bas");if(r)goto S_40859;} do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6736,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_right(_FUNC_IDEFIND_STRING_A,_FUNC_IDEFIND_STRING_A->len-*_FUNC_IDEFIND_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6736,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN+ 1 ; if(!qbevent)break;evnt(25224,6737,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&1){ preserved_elements=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; } else preserved_elements=0; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]= 1 ; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]=(*_FUNC_IDEFIND_LONG_LN)-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]+1; _FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; if (tmp_long2len> 0 )))||new_error){ if(qbevent){evnt(25224,6752,"ide_methods.bas");if(r)goto S_40878;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,6753,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,6754,"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]))*85+77))=_FUNC_IDEFIND_STRING_A2->len; if(!qbevent)break;evnt(25224,6756,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6760,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6761,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,6762,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); if(!qbevent)break;evnt(25224,6763,"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]))*85+64))=*__INTEGER_IDEFINDCASESENS; if(!qbevent)break;evnt(25224,6764,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6766,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6767,"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]))*85+24))= 6 ; if(!qbevent)break;evnt(25224,6768,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); if(!qbevent)break;evnt(25224,6769,"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]))*85+64))=*__INTEGER_IDEFINDWHOLEWORD; if(!qbevent)break;evnt(25224,6770,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6772,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6773,"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]))*85+24))= 7 ; if(!qbevent)break;evnt(25224,6774,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); if(!qbevent)break;evnt(25224,6775,"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]))*85+64))=*__INTEGER_IDEFINDBACKWARDS; if(!qbevent)break;evnt(25224,6776,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6778,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6779,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,6780,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); if(!qbevent)break;evnt(25224,6781,"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]))*85+64))=*__INTEGER_IDEFINDNOCOMMENTS; if(!qbevent)break;evnt(25224,6782,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6784,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6785,"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]))*85+20))= 29 ; if(!qbevent)break;evnt(25224,6786,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,6787,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); if(!qbevent)break;evnt(25224,6788,"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]))*85+64))=*__INTEGER_IDEFINDONLYCOMMENTS; if(!qbevent)break;evnt(25224,6789,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6791,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6792,"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]))*85+24))= 9 ; if(!qbevent)break;evnt(25224,6793,"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]))*85+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(25224,6794,"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]))*85+64))=*__INTEGER_IDEFINDNOSTRINGS; if(!qbevent)break;evnt(25224,6795,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6797,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,6798,"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]))*85+20))= 29 ; if(!qbevent)break;evnt(25224,6799,"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]))*85+24))= 9 ; if(!qbevent)break;evnt(25224,6800,"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]))*85+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(25224,6801,"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]))*85+64))=*__INTEGER_IDEFINDONLYSTRINGS; if(!qbevent)break;evnt(25224,6802,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,6804,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,6805,"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]))*85+24))= 11 ; if(!qbevent)break;evnt(25224,6806,"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]))*85+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(25224,6807,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,6808,"ide_methods.bas");}while(r); S_40925:; fornext_value4468= 1 ; fornext_finalvalue4468= 100 ; fornext_step4468= 1 ; if (fornext_step4468<0) fornext_step_negative4468=1; else fornext_step_negative4468=0; if (new_error) goto fornext_error4468; goto fornext_entrylabel4468; while(1){ fornext_value4468=fornext_step4468+(*_FUNC_IDEFIND_LONG_I); fornext_entrylabel4468: *_FUNC_IDEFIND_LONG_I=fornext_value4468; if (fornext_step_negative4468){ if (fornext_value4468fornext_finalvalue4468) break; } fornext_error4468:; if(qbevent){evnt(25224,6812,"ide_methods.bas");if(r)goto S_40925;} 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]))*85)+ 0,((char*)_FUNC_IDEFIND_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,6812,"ide_methods.bas");}while(r); fornext_continue_4467:; } fornext_exit_4467:; S_40928:; do{ if(qbevent){evnt(25224,6815,"ide_methods.bas");if(r)goto S_40928;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,6819,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6820,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,6820,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,6820,"ide_methods.bas");}while(r); S_40933:; fornext_value4471= 1 ; fornext_finalvalue4471= 100 ; fornext_step4471= 1 ; if (fornext_step4471<0) fornext_step_negative4471=1; else fornext_step_negative4471=0; if (new_error) goto fornext_error4471; goto fornext_entrylabel4471; while(1){ fornext_value4471=fornext_step4471+(*_FUNC_IDEFIND_LONG_I); fornext_entrylabel4471: *_FUNC_IDEFIND_LONG_I=fornext_value4471; if (fornext_step_negative4471){ if (fornext_value4471fornext_finalvalue4471) break; } fornext_error4471:; if(qbevent){evnt(25224,6821,"ide_methods.bas");if(r)goto S_40933;} S_40934:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,6822,"ide_methods.bas");if(r)goto S_40934;} 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]))*85+60))=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; if(!qbevent)break;evnt(25224,6825,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,6826,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,6826,"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]))*85) ),_FUNC_IDEFIND_LONG_F); if(!qbevent)break;evnt(25224,6827,"ide_methods.bas");}while(r); S_40939:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,6828,"ide_methods.bas");if(r)goto S_40939;} 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]))*85+52)); if(!qbevent)break;evnt(25224,6828,"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]))*85+56)); if(!qbevent)break;evnt(25224,6828,"ide_methods.bas");}while(r); } } fornext_continue_4470:; } fornext_exit_4470:; do{ *_FUNC_IDEFIND_LONG_LASTFOCUS=*_FUNC_IDEFIND_LONG_F- 1 ; if(!qbevent)break;evnt(25224,6831,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,6838,"ide_methods.bas");}while(r); S_40947:; if ((*_FUNC_IDEFIND_LONG_CX)||new_error){ if(qbevent){evnt(25224,6839,"ide_methods.bas");if(r)goto S_40947;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6839,"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(25224,6839,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6839,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,6842,"ide_methods.bas");}while(r); S_40953:; do{ if(qbevent){evnt(25224,6843,"ide_methods.bas");if(r)goto S_40953;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,6844,"ide_methods.bas");}while(r); S_40955:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,6845,"ide_methods.bas");if(r)goto S_40955;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6845,"ide_methods.bas");}while(r); } S_40958:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,6846,"ide_methods.bas");if(r)goto S_40958;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6846,"ide_methods.bas");}while(r); } S_40961:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,6847,"ide_methods.bas");if(r)goto S_40961;} do{ *_FUNC_IDEFIND_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,6847,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6847,"ide_methods.bas");}while(r); } S_40965:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,6848,"ide_methods.bas");if(r)goto S_40965;} do{ *_FUNC_IDEFIND_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,6848,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6848,"ide_methods.bas");}while(r); } S_40969:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,6849,"ide_methods.bas");if(r)goto S_40969;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6849,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,6850,"ide_methods.bas");}while(r); S_40973:; if ((-(*_FUNC_IDEFIND_LONG_ALT!=*_FUNC_IDEFIND_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,6850,"ide_methods.bas");if(r)goto S_40973;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,6850,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_OLDALT=*_FUNC_IDEFIND_LONG_ALT; if(!qbevent)break;evnt(25224,6851,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,6852,"ide_methods.bas");}while(r); S_40978:; dl_continue_4472:; }while((!(*_FUNC_IDEFIND_LONG_CHANGE))&&(!new_error)); dl_exit_4472:; if(qbevent){evnt(25224,6853,"ide_methods.bas");if(r)goto S_40978;} S_40979:; if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6854,"ide_methods.bas");if(r)goto S_40979;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,6854,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,6854,"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(25224,6856,"ide_methods.bas");}while(r); S_40985:; if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,6857,"ide_methods.bas");if(r)goto S_40985;} S_40986:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,6858,"ide_methods.bas");if(r)goto S_40986;} do{ *_FUNC_IDEFIND_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6859,"ide_methods.bas");}while(r); S_40988:; if (((-(*_FUNC_IDEFIND_LONG_K>= 65 ))&(-(*_FUNC_IDEFIND_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,6860,"ide_methods.bas");if(r)goto S_40988;} do{ qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,func_chr(*_FUNC_IDEFIND_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6860,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6863,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,6863,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,6863,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,6867,"ide_methods.bas");}while(r); S_40997:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,6868,"ide_methods.bas");if(r)goto S_40997;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6868,"ide_methods.bas");}while(r); } S_41000:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,6869,"ide_methods.bas");if(r)goto S_41000;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,6869,"ide_methods.bas");}while(r); } S_41003:; 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(25224,6870,"ide_methods.bas");if(r)goto S_41003;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,6870,"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(25224,6870,"ide_methods.bas");}while(r); } S_41007:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,6871,"ide_methods.bas");if(r)goto S_41007;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,6871,"ide_methods.bas");}while(r); } S_41010:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS>*_FUNC_IDEFIND_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,6872,"ide_methods.bas");if(r)goto S_41010;} do{ *_FUNC_IDEFIND_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,6872,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_F= 1 ; if(!qbevent)break;evnt(25224,6873,"ide_methods.bas");}while(r); S_41014:; fornext_value4475= 1 ; fornext_finalvalue4475= 100 ; 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_IDEFIND_LONG_I); fornext_entrylabel4475: *_FUNC_IDEFIND_LONG_I=fornext_value4475; if (fornext_step_negative4475){ if (fornext_value4475fornext_finalvalue4475) break; } fornext_error4475:; if(qbevent){evnt(25224,6874,"ide_methods.bas");if(r)goto S_41014;} 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]))*85+36)); if(!qbevent)break;evnt(25224,6875,"ide_methods.bas");}while(r); S_41016:; if ((*_FUNC_IDEFIND_LONG_T)||new_error){ if(qbevent){evnt(25224,6876,"ide_methods.bas");if(r)goto S_41016;} do{ *_FUNC_IDEFIND_LONG_FOCUSOFFSET=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; if(!qbevent)break;evnt(25224,6877,"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]))*85) ),_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(25224,6878,"ide_methods.bas");}while(r); } fornext_continue_4474:; } fornext_exit_4474:; S_41021:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS!=*_FUNC_IDEFIND_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,6884,"ide_methods.bas");if(r)goto S_41021;} do{ *_FUNC_IDEFIND_LONG_PREVFOCUS=*_FUNC_IDEFIND_LONG_FOCUS; if(!qbevent)break;evnt(25224,6886,"ide_methods.bas");}while(r); S_41023:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,6887,"ide_methods.bas");if(r)goto S_41023;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,6888,"ide_methods.bas");}while(r); S_41025:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,6889,"ide_methods.bas");if(r)goto S_41025;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,6889,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,6890,"ide_methods.bas");}while(r); } } S_41031:; 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(25224,6894,"ide_methods.bas");if(r)goto S_41031;} do{ qbs_set(_FUNC_IDEFIND_STRING_IDEFIND,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6895,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6896,"ide_methods.bas");}while(r); } S_41035:; 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]))*85+64))== 1 )))||new_error){ if(qbevent){evnt(25224,6900,"ide_methods.bas");if(r)goto S_41035;} do{ *(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6901,"ide_methods.bas");}while(r); S_41037:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6902,"ide_methods.bas");if(r)goto S_41037;} do{ *(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6903,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6904,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6905,"ide_methods.bas");}while(r); S_41041:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6906,"ide_methods.bas");if(r)goto S_41041;} do{ *(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6907,"ide_methods.bas");}while(r); S_41043:; }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]))*85+64))== 1 ))){ if(qbevent){evnt(25224,6908,"ide_methods.bas");if(r)goto S_41043;} do{ *(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6909,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6910,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,6911,"ide_methods.bas");}while(r); } } } } S_41048:; 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(25224,6914,"ide_methods.bas");if(r)goto S_41048;} 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]))*85+64)); if(!qbevent)break;evnt(25224,6915,"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]))*85+64)); if(!qbevent)break;evnt(25224,6916,"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]))*85+64)); if(!qbevent)break;evnt(25224,6917,"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]))*85+64)); if(!qbevent)break;evnt(25224,6918,"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]))*85+64)); if(!qbevent)break;evnt(25224,6919,"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]))*85+64)); if(!qbevent)break;evnt(25224,6920,"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]))*85+64)); if(!qbevent)break;evnt(25224,6921,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6922,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDEFIND_STRING_S); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6923,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6924,"ide_methods.bas");}while(r); do{ SUB_IDEFINDAGAIN(&(pass4477= 0 )); if(!qbevent)break;evnt(25224,6925,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,6926,"ide_methods.bas");}while(r); } S_41062:; if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ if(qbevent){evnt(25224,6929,"ide_methods.bas");if(r)goto S_41062;} S_41063:; 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(25224,6930,"ide_methods.bas");if(r)goto S_41063;} S_41064:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_LNlen; if(!qbevent)break;evnt(25224,6935,"ide_methods.bas");}while(r); } S_41072:; 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(25224,6938,"ide_methods.bas");if(r)goto S_41072;} S_41073:; if ((-(*_FUNC_IDEFIND_LONG_LN> 1 ))||new_error){ if(qbevent){evnt(25224,6939,"ide_methods.bas");if(r)goto S_41073;} do{ *_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN- 1 ; if(!qbevent)break;evnt(25224,6940,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEFIND_LONG_LN= 1 ; if(!qbevent)break;evnt(25224,6942,"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]))*85+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(25224,6944,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,6945,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,6945,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,6945,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEFIND_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,6952,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,6953,"ide_methods.bas");}while(r); dl_continue_4469:; }while(1); dl_exit_4469:; 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_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 "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; do{ if(!qbevent)break;evnt(25224,6958,"ide_methods.bas");}while(r); S_41088:; if ((*__INTEGER_IDEFINDINVERT)||new_error){ if(qbevent){evnt(25224,6960,"ide_methods.bas");if(r)goto S_41088;} S_41089:; if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ if(qbevent){evnt(25224,6961,"ide_methods.bas");if(r)goto S_41089;} do{ *__INTEGER_IDEFINDBACKWARDS= 1 ; if(!qbevent)break;evnt(25224,6961,"ide_methods.bas");}while(r); }else{ do{ *__INTEGER_IDEFINDBACKWARDS= 0 ; if(!qbevent)break;evnt(25224,6961,"ide_methods.bas");}while(r); } } do{ qbs_set(_SUB_IDEFINDAGAIN_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6964,"ide_methods.bas");}while(r); S_41096:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,6965,"ide_methods.bas");if(r)goto S_41096;} do{ qbs_set(_SUB_IDEFINDAGAIN_STRING_S,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_S)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6965,"ide_methods.bas");}while(r); } do{ *_SUB_IDEFINDAGAIN_LONG_START=*__LONG_IDECY; if(!qbevent)break;evnt(25224,6966,"ide_methods.bas");}while(r); do{ *_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_START; if(!qbevent)break;evnt(25224,6967,"ide_methods.bas");}while(r); LABEL_IDEFINDNEXT2:; if(qbevent){evnt(25224,6969,"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(25224,6970,"ide_methods.bas");}while(r); S_41102:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ if(qbevent){evnt(25224,6971,"ide_methods.bas");if(r)goto S_41102;} do{ qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,6971,"ide_methods.bas");}while(r); } S_41105:; if ((-(*_SUB_IDEFINDAGAIN_LONG_Y==*_SUB_IDEFINDAGAIN_LONG_START))||new_error){ if(qbevent){evnt(25224,6973,"ide_methods.bas");if(r)goto S_41105;} S_41106:; if ((-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 ))||new_error){ if(qbevent){evnt(25224,6975,"ide_methods.bas");if(r)goto S_41106;} S_41107:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,6976,"ide_methods.bas");if(r)goto S_41107;} S_41108:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ if(qbevent){evnt(25224,6977,"ide_methods.bas");if(r)goto S_41108;} 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(25224,6977,"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(25224,6977,"ide_methods.bas");}while(r); } }else{ S_41114:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ if(qbevent){evnt(25224,6979,"ide_methods.bas");if(r)goto S_41114;} 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(25224,6979,"ide_methods.bas");}while(r); } } }else{ S_41119:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,6982,"ide_methods.bas");if(r)goto S_41119;} S_41120:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ if(qbevent){evnt(25224,6983,"ide_methods.bas");if(r)goto S_41120;} 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(25224,6983,"ide_methods.bas");}while(r); } }else{ S_41124:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ if(qbevent){evnt(25224,6985,"ide_methods.bas");if(r)goto S_41124;} 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(25224,6985,"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(25224,6985,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEFINDAGAIN_LONG_X1= 1 ; if(!qbevent)break;evnt(25224,6990,"ide_methods.bas");}while(r); S_41133:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,6991,"ide_methods.bas");if(r)goto S_41133;} 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(25224,6992,"ide_methods.bas");}while(r); S_41135:; if ((-(*_SUB_IDEFINDAGAIN_LONG_X1< 0 ))||new_error){ if(qbevent){evnt(25224,6993,"ide_methods.bas");if(r)goto S_41135;} do{ *_SUB_IDEFINDAGAIN_LONG_X1= 0 ; if(!qbevent)break;evnt(25224,6993,"ide_methods.bas");}while(r); } } LABEL_IDEFINDAGAIN2:; if(qbevent){evnt(25224,6996,"ide_methods.bas");r=0;} S_41139:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,6998,"ide_methods.bas");if(r)goto S_41139;} do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,6999,"ide_methods.bas");}while(r); S_41141:; fornext_value4490=*_SUB_IDEFINDAGAIN_LONG_X1; fornext_finalvalue4490= 1 ; fornext_step4490= -1 ; if (fornext_step4490<0) fornext_step_negative4490=1; else fornext_step_negative4490=0; if (new_error) goto fornext_error4490; goto fornext_entrylabel4490; while(1){ fornext_value4490=fornext_step4490+(*_SUB_IDEFINDAGAIN_LONG_XX); fornext_entrylabel4490: *_SUB_IDEFINDAGAIN_LONG_XX=fornext_value4490; if (fornext_step_negative4490){ if (fornext_value4490fornext_finalvalue4490) break; } fornext_error4490:; if(qbevent){evnt(25224,7000,"ide_methods.bas");if(r)goto S_41141;} S_41142:; 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(25224,7001,"ide_methods.bas");if(r)goto S_41142;} do{ *_SUB_IDEFINDAGAIN_LONG_XXO=*_SUB_IDEFINDAGAIN_LONG_XX- 1 ; if(!qbevent)break;evnt(25224,7002,"ide_methods.bas");}while(r); S_41144:; fornext_value4492=*_SUB_IDEFINDAGAIN_LONG_XX; fornext_finalvalue4492=*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len- 1 ; fornext_step4492= 1 ; if (fornext_step4492<0) fornext_step_negative4492=1; else fornext_step_negative4492=0; if (new_error) goto fornext_error4492; goto fornext_entrylabel4492; while(1){ fornext_value4492=fornext_step4492+(*_SUB_IDEFINDAGAIN_LONG_XX2); fornext_entrylabel4492: *_SUB_IDEFINDAGAIN_LONG_XX2=fornext_value4492; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4492){ if (fornext_value4492fornext_finalvalue4492) break; } fornext_error4492:; if(qbevent){evnt(25224,7003,"ide_methods.bas");if(r)goto S_41144;} S_41145:; 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(25224,7004,"ide_methods.bas");if(r)goto S_41145;} do{ goto fornext_exit_4491; if(!qbevent)break;evnt(25224,7004,"ide_methods.bas");}while(r); } fornext_continue_4491:; } fornext_exit_4491:; S_41149:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEFINDAGAIN_LONG_XX2==(*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len))))||new_error){ if(qbevent){evnt(25224,7006,"ide_methods.bas");if(r)goto S_41149;} do{ *_SUB_IDEFINDAGAIN_LONG_X=*_SUB_IDEFINDAGAIN_LONG_XX; if(!qbevent)break;evnt(25224,7008,"ide_methods.bas");}while(r); do{ goto fornext_exit_4489; if(!qbevent)break;evnt(25224,7009,"ide_methods.bas");}while(r); } } fornext_continue_4489:; } fornext_exit_4489:; }else{ do{ *_SUB_IDEFINDAGAIN_LONG_X=func_instr(*_SUB_IDEFINDAGAIN_LONG_X1,_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_S,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7014,"ide_methods.bas");}while(r); } S_41158:; if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ if(qbevent){evnt(25224,7018,"ide_methods.bas");if(r)goto S_41158;} S_41159:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ if(qbevent){evnt(25224,7019,"ide_methods.bas");if(r)goto S_41159;} do{ *_SUB_IDEFINDAGAIN_LONG_WHOLE= 1 ; if(!qbevent)break;evnt(25224,7020,"ide_methods.bas");}while(r); S_41161:; if ((-(*_SUB_IDEFINDAGAIN_LONG_X> 1 ))||new_error){ if(qbevent){evnt(25224,7021,"ide_methods.bas");if(r)goto S_41161;} do{ *_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7022,"ide_methods.bas");}while(r); S_41163:; if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,7023,"ide_methods.bas");if(r)goto S_41163;} do{ *_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,7023,"ide_methods.bas");}while(r); } S_41166:; if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,7024,"ide_methods.bas");if(r)goto S_41166;} do{ *_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,7024,"ide_methods.bas");}while(r); } } S_41170:; 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(25224,7026,"ide_methods.bas");if(r)goto S_41170;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7027,"ide_methods.bas");}while(r); S_41172:; if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ if(qbevent){evnt(25224,7028,"ide_methods.bas");if(r)goto S_41172;} do{ *_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,7028,"ide_methods.bas");}while(r); } S_41175:; if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ if(qbevent){evnt(25224,7029,"ide_methods.bas");if(r)goto S_41175;} do{ *_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; if(!qbevent)break;evnt(25224,7029,"ide_methods.bas");}while(r); } } S_41179:; if ((-(*_SUB_IDEFINDAGAIN_LONG_WHOLE== 0 ))||new_error){ if(qbevent){evnt(25224,7031,"ide_methods.bas");if(r)goto S_41179;} do{ *_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,7032,"ide_methods.bas");}while(r); S_41181:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,7032,"ide_methods.bas");if(r)goto S_41181;} do{ *_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X- 1 ; if(!qbevent)break;evnt(25224,7032,"ide_methods.bas");}while(r); } do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,7033,"ide_methods.bas");}while(r); S_41185:; 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(25224,7034,"ide_methods.bas");if(r)goto S_41185;} do{ goto LABEL_IDEFINDAGAIN2; if(!qbevent)break;evnt(25224,7034,"ide_methods.bas");}while(r); } } } } S_41191:; if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ if(qbevent){evnt(25224,7039,"ide_methods.bas");if(r)goto S_41191;} 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(25224,7040,"ide_methods.bas");}while(r); S_41193:; if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_COMMENT)||new_error){ if(qbevent){evnt(25224,7041,"ide_methods.bas");if(r)goto S_41193;} do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,7041,"ide_methods.bas");}while(r); } S_41196:; if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_QUOTE)||new_error){ if(qbevent){evnt(25224,7042,"ide_methods.bas");if(r)goto S_41196;} do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,7042,"ide_methods.bas");}while(r); } S_41199:; if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_COMMENT== 0 )))||new_error){ if(qbevent){evnt(25224,7043,"ide_methods.bas");if(r)goto S_41199;} do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,7043,"ide_methods.bas");}while(r); } S_41202:; if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_QUOTE== 0 )))||new_error){ if(qbevent){evnt(25224,7044,"ide_methods.bas");if(r)goto S_41202;} do{ *_SUB_IDEFINDAGAIN_LONG_X= 0 ; if(!qbevent)break;evnt(25224,7044,"ide_methods.bas");}while(r); } } S_41206:; if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ if(qbevent){evnt(25224,7047,"ide_methods.bas");if(r)goto S_41206;} do{ *__LONG_IDESELECT= 1 ; if(!qbevent)break;evnt(25224,7048,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_SUB_IDEFINDAGAIN_LONG_X; if(!qbevent)break;evnt(25224,7049,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_SUB_IDEFINDAGAIN_LONG_Y; if(!qbevent)break;evnt(25224,7049,"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(25224,7050,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*_SUB_IDEFINDAGAIN_LONG_Y; if(!qbevent)break;evnt(25224,7050,"ide_methods.bas");}while(r); S_41212:; if ((*__INTEGER_IDEFINDINVERT)||new_error){ if(qbevent){evnt(25224,7052,"ide_methods.bas");if(r)goto S_41212;} S_41213:; if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ if(qbevent){evnt(25224,7053,"ide_methods.bas");if(r)goto S_41213;} do{ *__INTEGER_IDEFINDBACKWARDS= 1 ; if(!qbevent)break;evnt(25224,7053,"ide_methods.bas");}while(r); }else{ do{ *__INTEGER_IDEFINDBACKWARDS= 0 ; if(!qbevent)break;evnt(25224,7053,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDEFINDINVERT= 0 ; if(!qbevent)break;evnt(25224,7054,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7056,"ide_methods.bas");}while(r); } S_41222:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ if(qbevent){evnt(25224,7059,"ide_methods.bas");if(r)goto S_41222;} do{ *_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y- 1 ; if(!qbevent)break;evnt(25224,7060,"ide_methods.bas");}while(r); S_41224:; if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START- 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ if(qbevent){evnt(25224,7061,"ide_methods.bas");if(r)goto S_41224;} do{ SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); if(!qbevent)break;evnt(25224,7062,"ide_methods.bas");}while(r); S_41226:; if ((*__INTEGER_IDEFINDINVERT)||new_error){ if(qbevent){evnt(25224,7063,"ide_methods.bas");if(r)goto S_41226;} S_41227:; if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ if(qbevent){evnt(25224,7064,"ide_methods.bas");if(r)goto S_41227;} do{ *__INTEGER_IDEFINDBACKWARDS= 1 ; if(!qbevent)break;evnt(25224,7064,"ide_methods.bas");}while(r); }else{ do{ *__INTEGER_IDEFINDBACKWARDS= 0 ; if(!qbevent)break;evnt(25224,7064,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDEFINDINVERT= 0 ; if(!qbevent)break;evnt(25224,7065,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7067,"ide_methods.bas");}while(r); } S_41236:; if ((-(*_SUB_IDEFINDAGAIN_LONG_Y< 1 ))||new_error){ if(qbevent){evnt(25224,7069,"ide_methods.bas");if(r)goto S_41236;} do{ *_SUB_IDEFINDAGAIN_LONG_Y=*__LONG_IDEN; if(!qbevent)break;evnt(25224,7069,"ide_methods.bas");}while(r); do{ *_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; if(!qbevent)break;evnt(25224,7069,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; if(!qbevent)break;evnt(25224,7070,"ide_methods.bas");}while(r); }else{ do{ *_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,7072,"ide_methods.bas");}while(r); S_41243:; if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START+ 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ if(qbevent){evnt(25224,7073,"ide_methods.bas");if(r)goto S_41243;} do{ SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); if(!qbevent)break;evnt(25224,7074,"ide_methods.bas");}while(r); S_41245:; if ((*__INTEGER_IDEFINDINVERT)||new_error){ if(qbevent){evnt(25224,7075,"ide_methods.bas");if(r)goto S_41245;} S_41246:; if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ if(qbevent){evnt(25224,7076,"ide_methods.bas");if(r)goto S_41246;} do{ *__INTEGER_IDEFINDBACKWARDS= 1 ; if(!qbevent)break;evnt(25224,7076,"ide_methods.bas");}while(r); }else{ do{ *__INTEGER_IDEFINDBACKWARDS= 0 ; if(!qbevent)break;evnt(25224,7076,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDEFINDINVERT= 0 ; if(!qbevent)break;evnt(25224,7077,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7079,"ide_methods.bas");}while(r); } S_41255:; if ((-(*_SUB_IDEFINDAGAIN_LONG_Y>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,7081,"ide_methods.bas");if(r)goto S_41255;} do{ *_SUB_IDEFINDAGAIN_LONG_Y= 1 ; if(!qbevent)break;evnt(25224,7081,"ide_methods.bas");}while(r); do{ *_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; if(!qbevent)break;evnt(25224,7081,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; if(!qbevent)break;evnt(25224,7082,"ide_methods.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* 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 "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; S_41261:; if ((-(*_FUNC_IDEGETLINE_LONG_I!= -1 ))||new_error){ if(qbevent){evnt(25224,7087,"ide_methods.bas");if(r)goto S_41261;} do{ SUB_IDEGOTOLINE(_FUNC_IDEGETLINE_LONG_I); if(!qbevent)break;evnt(25224,7087,"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 ,1)),1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7088,"ide_methods.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_IDEGETLINE_STRING_IDEGETLINE);return _FUNC_IDEGETLINE_STRING_IDEGETLINE; } 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 "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; S_41265:; if ((-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I))||new_error){ if(qbevent){evnt(25224,7092,"ide_methods.bas");if(r)goto S_41265;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7092,"ide_methods.bas");}while(r); } S_41268:; if ((-(*_SUB_IDEGOTOLINE_LONG_I< 1 ))||new_error){ if(qbevent){evnt(25224,7093,"ide_methods.bas");if(r)goto S_41268;} do{ error( 5 ); if(!qbevent)break;evnt(25224,7093,"ide_methods.bas");}while(r); } S_41271:; if ((-(*_SUB_IDEGOTOLINE_LONG_I<*__LONG_IDEL))||new_error){ if(qbevent){evnt(25224,7095,"ide_methods.bas");if(r)goto S_41271;} S_41272:; do{ if(qbevent){evnt(25224,7096,"ide_methods.bas");if(r)goto S_41272;} do{ *__LONG_IDEL=*__LONG_IDEL- 1 ; if(!qbevent)break;evnt(25224,7097,"ide_methods.bas");}while(r); do{ *__LONG_IDELI=*__LONG_IDELI-string2l(func_mid(__STRING_IDET,*__LONG_IDELI- 4 , 4 ,1))- 8 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7098,"ide_methods.bas");}while(r); S_41275:; dl_continue_4500:; }while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); dl_exit_4500:; if(qbevent){evnt(25224,7099,"ide_methods.bas");if(r)goto S_41275;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7100,"ide_methods.bas");}while(r); } S_41278:; do{ if(qbevent){evnt(25224,7103,"ide_methods.bas");if(r)goto S_41278;} S_41279:; if ((-(*__LONG_IDEL==*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,7104,"ide_methods.bas");if(r)goto S_41279;} 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(25224,7104,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*__LONG_IDEN+ 1 ; if(!qbevent)break;evnt(25224,7104,"ide_methods.bas");}while(r); } do{ *__LONG_IDEL=*__LONG_IDEL+ 1 ; if(!qbevent)break;evnt(25224,7105,"ide_methods.bas");}while(r); do{ *__LONG_IDELI=*__LONG_IDELI+string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1))+ 8 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7106,"ide_methods.bas");}while(r); S_41285:; dl_continue_4501:; }while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); dl_exit_4501:; if(qbevent){evnt(25224,7107,"ide_methods.bas");if(r)goto S_41285;} 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; } 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 "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{ *_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2; if(!qbevent)break;evnt(25224,7111,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2; if(!qbevent)break;evnt(25224,7111,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,7129,"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(25224,7130,"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(25224,7131,"ide_methods.bas");}while(r); S_41291:; fornext_value4503=*_FUNC_IDEHBAR_LONG_X+ 1 ; fornext_finalvalue4503=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; fornext_step4503= 1 ; if (fornext_step4503<0) fornext_step_negative4503=1; else fornext_step_negative4503=0; if (new_error) goto fornext_error4503; goto fornext_entrylabel4503; while(1){ fornext_value4503=fornext_step4503+(*_FUNC_IDEHBAR_LONG_X2); fornext_entrylabel4503: *_FUNC_IDEHBAR_LONG_X2=fornext_value4503; if (fornext_step_negative4503){ if (fornext_value4503fornext_finalvalue4503) break; } fornext_error4503:; if(qbevent){evnt(25224,7132,"ide_methods.bas");if(r)goto S_41291;} 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(25224,7133,"ide_methods.bas");}while(r); fornext_continue_4502:; } fornext_exit_4502:; S_41294:; if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||new_error){ if(qbevent){evnt(25224,7138,"ide_methods.bas");if(r)goto S_41294;} do{ *_FUNC_IDEHBAR_LONG_N= 1 ; if(!qbevent)break;evnt(25224,7138,"ide_methods.bas");}while(r); } S_41297:; if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||new_error){ if(qbevent){evnt(25224,7139,"ide_methods.bas");if(r)goto S_41297;} do{ *_FUNC_IDEHBAR_LONG_I= 1 ; if(!qbevent)break;evnt(25224,7139,"ide_methods.bas");}while(r); } S_41300:; if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||new_error){ if(qbevent){evnt(25224,7140,"ide_methods.bas");if(r)goto S_41300;} do{ *_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N; if(!qbevent)break;evnt(25224,7140,"ide_methods.bas");}while(r); } S_41303:; if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||new_error){ if(qbevent){evnt(25224,7142,"ide_methods.bas");if(r)goto S_41303;} do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X; if(!qbevent)break;evnt(25224,7143,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7144,"ide_methods.bas");}while(r); } S_41307:; if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||new_error){ if(qbevent){evnt(25224,7147,"ide_methods.bas");if(r)goto S_41307;} do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,7148,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7150,"ide_methods.bas");}while(r); } S_41311:; if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||new_error){ if(qbevent){evnt(25224,7153,"ide_methods.bas");if(r)goto S_41311;} S_41312:; if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ if(qbevent){evnt(25224,7154,"ide_methods.bas");if(r)goto S_41312;} do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,7155,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7157,"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(25224,7160,"ide_methods.bas");}while(r); S_41317:; if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ if(qbevent){evnt(25224,7161,"ide_methods.bas");if(r)goto S_41317;} do{ *_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,7161,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ; if(!qbevent)break;evnt(25224,7161,"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(25224,7162,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; if(!qbevent)break;evnt(25224,7163,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7164,"ide_methods.bas");}while(r); } } S_41327:; if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||new_error){ if(qbevent){evnt(25224,7168,"ide_methods.bas");if(r)goto S_41327;} S_41328:; if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ if(qbevent){evnt(25224,7169,"ide_methods.bas");if(r)goto S_41328;} do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/ 4 ); if(!qbevent)break;evnt(25224,7170,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7172,"ide_methods.bas");}while(r); } S_41332:; if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||new_error){ if(qbevent){evnt(25224,7174,"ide_methods.bas");if(r)goto S_41332;} do{ *_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,7175,"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(25224,7176,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; if(!qbevent)break;evnt(25224,7177,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7178,"ide_methods.bas");}while(r); } S_41338:; if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||new_error){ if(qbevent){evnt(25224,7180,"ide_methods.bas");if(r)goto S_41338;} do{ *_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; if(!qbevent)break;evnt(25224,7181,"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(25224,7182,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; if(!qbevent)break;evnt(25224,7183,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7184,"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(25224,7187,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 ); if(!qbevent)break;evnt(25224,7188,"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(25224,7189,"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(25224,7190,"ide_methods.bas");}while(r); do{ *_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; if(!qbevent)break;evnt(25224,7191,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7192,"ide_methods.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; 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 "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; S_41351:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEHLEN_STRING_A,qbs_new_txt_len("#",1),0)))||new_error){ if(qbevent){evnt(25224,7199,"ide_methods.bas");if(r)goto S_41351;} do{ *_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len- 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7199,"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(25224,7199,"ide_methods.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_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 "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{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,7203,"ide_methods.bas");}while(r); S_41357:; fornext_value4509= 1 ; fornext_finalvalue4509=_SUB_IDEHPRINT_STRING_A->len; fornext_step4509= 1 ; if (fornext_step4509<0) fornext_step_negative4509=1; else fornext_step_negative4509=0; if (new_error) goto fornext_error4509; goto fornext_entrylabel4509; while(1){ fornext_value4509=fornext_step4509+(*_SUB_IDEHPRINT_LONG_I); fornext_entrylabel4509: *_SUB_IDEHPRINT_LONG_I=fornext_value4509; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4509){ if (fornext_value4509fornext_finalvalue4509) break; } fornext_error4509:; if(qbevent){evnt(25224,7204,"ide_methods.bas");if(r)goto S_41357;} do{ qbs_set(_SUB_IDEHPRINT_STRING_C,func_mid(_SUB_IDEHPRINT_STRING_A,*_SUB_IDEHPRINT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7205,"ide_methods.bas");}while(r); S_41359:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEHPRINT_STRING_C,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(25224,7206,"ide_methods.bas");if(r)goto S_41359;} S_41360:; if ((*__LONG_IDEHL)||new_error){ if(qbevent){evnt(25224,7207,"ide_methods.bas");if(r)goto S_41360;} do{ qbg_sub_color( 15 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,7207,"ide_methods.bas");}while(r); } }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_IDEHPRINT_STRING_C); if (new_error) goto skip4511; makefit(tqbs); qbs_print(tqbs,0); skip4511: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7209,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,7209,"ide_methods.bas");}while(r); } fornext_continue_4508:; } fornext_exit_4508:; 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; } 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 "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; S_41368:; fornext_value4514= 1 ; fornext_finalvalue4514=*__LONG_IDEBMKN; fornext_step4514= 1 ; if (fornext_step4514<0) fornext_step_negative4514=1; else fornext_step_negative4514=0; if (new_error) goto fornext_error4514; goto fornext_entrylabel4514; while(1){ fornext_value4514=fornext_step4514+(*_SUB_IDEINSLINE_LONG_B); fornext_entrylabel4514: *_SUB_IDEINSLINE_LONG_B=fornext_value4514; if (fornext_step_negative4514){ if (fornext_value4514fornext_finalvalue4514) break; } fornext_error4514:; if(qbevent){evnt(25224,7217,"ide_methods.bas");if(r)goto S_41368;} S_41369:; 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(25224,7218,"ide_methods.bas");if(r)goto S_41369;} 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(25224,7219,"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(25224,7220,"ide_methods.bas");}while(r); } fornext_continue_4513:; } fornext_exit_4513:; do{ qbs_set(_SUB_IDEINSLINE_STRING_TEXT,qbs_rtrim(_SUB_IDEINSLINE_STRING_TEXT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7224,"ide_methods.bas");}while(r); S_41375:; if ((-(*_SUB_IDEINSLINE_LONG_I== -1 ))||new_error){ if(qbevent){evnt(25224,7226,"ide_methods.bas");if(r)goto S_41375;} do{ *_SUB_IDEINSLINE_LONG_I=*__LONG_IDEL; if(!qbevent)break;evnt(25224,7226,"ide_methods.bas");}while(r); } S_41378:; if ((-(*_SUB_IDEINSLINE_LONG_I>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,7228,"ide_methods.bas");if(r)goto S_41378;} do{ SUB_IDESETLINE(_SUB_IDEINSLINE_LONG_I,_SUB_IDEINSLINE_STRING_TEXT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7229,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7230,"ide_methods.bas");}while(r); } do{ SUB_IDEGOTOLINE(_SUB_IDEINSLINE_LONG_I); if(!qbevent)break;evnt(25224,7232,"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(25224,7234,"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(25224,7235,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*__LONG_IDEN+ 1 ; if(!qbevent)break;evnt(25224,7236,"ide_methods.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; } 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){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,7243,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,7244,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7245,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7246,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7247,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEINPUTBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEINPUTBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,7248,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7249,"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(25224,7250,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,7255,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) ),_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,&(pass4521= 5 ),_FUNC_IDEINPUTBOX_STRING_TITLE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7257,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7259,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_PREVFOCUS= 1 ; if(!qbevent)break;evnt(25224,7260,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,7261,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,7262,"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]))*85+40))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_CAPTION); if(!qbevent)break;evnt(25224,7263,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); if(!qbevent)break;evnt(25224,7264,"ide_methods.bas");}while(r); S_41402:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len> 0 )))||new_error){ if(qbevent){evnt(25224,7265,"ide_methods.bas");if(r)goto S_41402;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,7265,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,7266,"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]))*85+77))=_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len; if(!qbevent)break;evnt(25224,7267,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7269,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,7270,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,7271,"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]))*85+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(25224,7272,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,7273,"ide_methods.bas");}while(r); S_41412:; fornext_value4525= 1 ; fornext_finalvalue4525= 100 ; fornext_step4525= 1 ; if (fornext_step4525<0) fornext_step_negative4525=1; else fornext_step_negative4525=0; if (new_error) goto fornext_error4525; goto fornext_entrylabel4525; while(1){ fornext_value4525=fornext_step4525+(*_FUNC_IDEINPUTBOX_LONG_I); fornext_entrylabel4525: *_FUNC_IDEINPUTBOX_LONG_I=fornext_value4525; if (fornext_step_negative4525){ if (fornext_value4525fornext_finalvalue4525) break; } fornext_error4525:; if(qbevent){evnt(25224,7277,"ide_methods.bas");if(r)goto S_41412;} 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]))*85)+ 0,((char*)_FUNC_IDEINPUTBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,7277,"ide_methods.bas");}while(r); fornext_continue_4524:; } fornext_exit_4524:; S_41415:; do{ if(qbevent){evnt(25224,7280,"ide_methods.bas");if(r)goto S_41415;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,7284,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,7285,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,7285,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,7285,"ide_methods.bas");}while(r); S_41420:; fornext_value4528= 1 ; fornext_finalvalue4528= 100 ; fornext_step4528= 1 ; if (fornext_step4528<0) fornext_step_negative4528=1; else fornext_step_negative4528=0; if (new_error) goto fornext_error4528; goto fornext_entrylabel4528; while(1){ fornext_value4528=fornext_step4528+(*_FUNC_IDEINPUTBOX_LONG_I); fornext_entrylabel4528: *_FUNC_IDEINPUTBOX_LONG_I=fornext_value4528; if (fornext_step_negative4528){ if (fornext_value4528fornext_finalvalue4528) break; } fornext_error4528:; if(qbevent){evnt(25224,7286,"ide_methods.bas");if(r)goto S_41420;} S_41421:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,7287,"ide_methods.bas");if(r)goto S_41421;} 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]))*85+60))=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; if(!qbevent)break;evnt(25224,7290,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,7291,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,7291,"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]))*85) ),_FUNC_IDEINPUTBOX_LONG_F); if(!qbevent)break;evnt(25224,7292,"ide_methods.bas");}while(r); S_41426:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,7293,"ide_methods.bas");if(r)goto S_41426;} 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]))*85+52)); if(!qbevent)break;evnt(25224,7293,"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]))*85+56)); if(!qbevent)break;evnt(25224,7293,"ide_methods.bas");}while(r); } } fornext_continue_4527:; } fornext_exit_4527:; do{ *_FUNC_IDEINPUTBOX_LONG_LASTFOCUS=*_FUNC_IDEINPUTBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,7296,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,7303,"ide_methods.bas");}while(r); S_41434:; if ((*_FUNC_IDEINPUTBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,7304,"ide_methods.bas");if(r)goto S_41434;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7304,"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(25224,7304,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7304,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,7307,"ide_methods.bas");}while(r); S_41440:; do{ if(qbevent){evnt(25224,7308,"ide_methods.bas");if(r)goto S_41440;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,7309,"ide_methods.bas");}while(r); S_41442:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,7310,"ide_methods.bas");if(r)goto S_41442;} do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7310,"ide_methods.bas");}while(r); } S_41445:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,7311,"ide_methods.bas");if(r)goto S_41445;} do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7311,"ide_methods.bas");}while(r); } S_41448:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,7312,"ide_methods.bas");if(r)goto S_41448;} do{ *_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,7312,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7312,"ide_methods.bas");}while(r); } S_41452:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,7313,"ide_methods.bas");if(r)goto S_41452;} do{ *_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,7313,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7313,"ide_methods.bas");}while(r); } S_41456:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,7314,"ide_methods.bas");if(r)goto S_41456;} do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7314,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEINPUTBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,7315,"ide_methods.bas");}while(r); S_41460:; if ((-(*_FUNC_IDEINPUTBOX_LONG_ALT!=*_FUNC_IDEINPUTBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,7315,"ide_methods.bas");if(r)goto S_41460;} do{ *_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7315,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEINPUTBOX_LONG_OLDALT=*_FUNC_IDEINPUTBOX_LONG_ALT; if(!qbevent)break;evnt(25224,7316,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,7317,"ide_methods.bas");}while(r); S_41465:; dl_continue_4529:; }while((!(*_FUNC_IDEINPUTBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4529:; if(qbevent){evnt(25224,7318,"ide_methods.bas");if(r)goto S_41465;} S_41466:; if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,7319,"ide_methods.bas");if(r)goto S_41466;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,7319,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,7319,"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(25224,7321,"ide_methods.bas");}while(r); S_41472:; if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,7322,"ide_methods.bas");if(r)goto S_41472;} S_41473:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,7323,"ide_methods.bas");if(r)goto S_41473;} do{ *_FUNC_IDEINPUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7324,"ide_methods.bas");}while(r); S_41475:; if (((-(*_FUNC_IDEINPUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEINPUTBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,7325,"ide_methods.bas");if(r)goto S_41475;} do{ qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEINPUTBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7325,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7328,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,7328,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7328,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,7332,"ide_methods.bas");}while(r); S_41484:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,7333,"ide_methods.bas");if(r)goto S_41484;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7333,"ide_methods.bas");}while(r); } S_41487:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,7334,"ide_methods.bas");if(r)goto S_41487;} do{ *_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,7334,"ide_methods.bas");}while(r); } S_41490:; 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(25224,7335,"ide_methods.bas");if(r)goto S_41490;} do{ *_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,7335,"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(25224,7335,"ide_methods.bas");}while(r); } S_41494:; if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,7336,"ide_methods.bas");if(r)goto S_41494;} do{ *_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,7336,"ide_methods.bas");}while(r); } S_41497:; if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS>*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,7337,"ide_methods.bas");if(r)goto S_41497;} do{ *_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7337,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEINPUTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,7338,"ide_methods.bas");}while(r); S_41501:; fornext_value4532= 1 ; fornext_finalvalue4532= 100 ; fornext_step4532= 1 ; if (fornext_step4532<0) fornext_step_negative4532=1; else fornext_step_negative4532=0; if (new_error) goto fornext_error4532; goto fornext_entrylabel4532; while(1){ fornext_value4532=fornext_step4532+(*_FUNC_IDEINPUTBOX_LONG_I); fornext_entrylabel4532: *_FUNC_IDEINPUTBOX_LONG_I=fornext_value4532; if (fornext_step_negative4532){ if (fornext_value4532fornext_finalvalue4532) break; } fornext_error4532:; if(qbevent){evnt(25224,7339,"ide_methods.bas");if(r)goto S_41501;} 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]))*85+36)); if(!qbevent)break;evnt(25224,7340,"ide_methods.bas");}while(r); S_41503:; if ((*_FUNC_IDEINPUTBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,7341,"ide_methods.bas");if(r)goto S_41503;} do{ *_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; if(!qbevent)break;evnt(25224,7342,"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]))*85) ),_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(25224,7343,"ide_methods.bas");}while(r); } fornext_continue_4531:; } fornext_exit_4531:; S_41508:; if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS!=*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,7349,"ide_methods.bas");if(r)goto S_41508;} do{ *_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,7351,"ide_methods.bas");}while(r); S_41510:; if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,7352,"ide_methods.bas");if(r)goto S_41510;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,7353,"ide_methods.bas");}while(r); S_41512:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,7354,"ide_methods.bas");if(r)goto S_41512;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,7354,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,7355,"ide_methods.bas");}while(r); } } S_41518:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->len))||new_error){ if(qbevent){evnt(25224,7359,"ide_methods.bas");if(r)goto S_41518;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7360,"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(25224,7361,"ide_methods.bas");}while(r); S_41521:; fornext_value4536= 1 ; fornext_finalvalue4536=_FUNC_IDEINPUTBOX_STRING_A->len; fornext_step4536= 1 ; if (fornext_step4536<0) fornext_step_negative4536=1; else fornext_step_negative4536=0; if (new_error) goto fornext_error4536; goto fornext_entrylabel4536; while(1){ fornext_value4536=fornext_step4536+(*_FUNC_IDEINPUTBOX_LONG_I); fornext_entrylabel4536: *_FUNC_IDEINPUTBOX_LONG_I=fornext_value4536; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4536){ if (fornext_value4536fornext_finalvalue4536) break; } fornext_error4536:; if(qbevent){evnt(25224,7362,"ide_methods.bas");if(r)goto S_41521;} S_41522:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,1),0)> 0 )))||new_error){ if(qbevent){evnt(25224,7363,"ide_methods.bas");if(r)goto S_41522;} do{ qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_add(_FUNC_IDEINPUTBOX_STRING_TEMPA,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7364,"ide_methods.bas");}while(r); } fornext_continue_4535:; } fornext_exit_4535:; 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]))*85+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(25224,7367,"ide_methods.bas");}while(r); } S_41528:; if ((*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)||new_error){ if(qbevent){evnt(25224,7370,"ide_methods.bas");if(r)goto S_41528;} 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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7371,"ide_methods.bas");}while(r); } S_41531:; 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(25224,7374,"ide_methods.bas");if(r)goto S_41531;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7375,"ide_methods.bas");}while(r); } S_41534:; 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(25224,7378,"ide_methods.bas");if(r)goto S_41534;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7379,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7380,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,7384,"ide_methods.bas");}while(r); do{ *_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,7385,"ide_methods.bas");}while(r); dl_continue_4526:; }while(1); dl_exit_4526:; 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; 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 "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; S_41541:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,7392,"ide_methods.bas");if(r)goto S_41541;} S_41542:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,7393,"ide_methods.bas");if(r)goto S_41542;} do{ qbs_set(_SUB_IDENEWSF_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7394,"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(25224,7395,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,7396,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,7396,"ide_methods.bas");}while(r); S_41547:; if ((-(*_SUB_IDENEWSF_LONG_SX2<*_SUB_IDENEWSF_LONG_SX1))||new_error){ if(qbevent){evnt(25224,7397,"ide_methods.bas");if(r)goto S_41547;} do{ swap_32(&*_SUB_IDENEWSF_LONG_SX1,&*_SUB_IDENEWSF_LONG_SX2); if(!qbevent)break;evnt(25224,7397,"ide_methods.bas");}while(r); } S_41550:; fornext_value4540=*_SUB_IDENEWSF_LONG_SX1; fornext_finalvalue4540=*_SUB_IDENEWSF_LONG_SX2- 1 ; fornext_step4540= 1 ; if (fornext_step4540<0) fornext_step_negative4540=1; else fornext_step_negative4540=0; if (new_error) goto fornext_error4540; goto fornext_entrylabel4540; while(1){ fornext_value4540=fornext_step4540+(*_SUB_IDENEWSF_LONG_X); fornext_entrylabel4540: *_SUB_IDENEWSF_LONG_X=fornext_value4540; if (fornext_step_negative4540){ if (fornext_value4540fornext_finalvalue4540) break; } fornext_error4540:; if(qbevent){evnt(25224,7398,"ide_methods.bas");if(r)goto S_41550;} S_41551:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDENEWSF_LONG_X<=_SUB_IDENEWSF_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,7399,"ide_methods.bas");if(r)goto S_41551;} do{ qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,func_mid(_SUB_IDENEWSF_STRING_A,*_SUB_IDENEWSF_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7399,"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(25224,7399,"ide_methods.bas");}while(r); } fornext_continue_4539:; } fornext_exit_4539:; } } 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),&(pass4542= 60 ),&(pass4543= 40 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7404,"ide_methods.bas");}while(r); S_41560:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDENEWSF_STRING_NEWSF->len))||new_error){ if(qbevent){evnt(25224,7406,"ide_methods.bas");if(r)goto S_41560;} do{ *_SUB_IDENEWSF_LONG_Y=*__LONG_IDEN; if(!qbevent)break;evnt(25224,7407,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,7408,"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(25224,7408,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,7409,"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(25224,7409,"ide_methods.bas");}while(r); do{ *__LONG_IDESY=*_SUB_IDENEWSF_LONG_Y; if(!qbevent)break;evnt(25224,7410,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,7411,"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(25224,7411,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_SUB_IDENEWSF_LONG_Y; if(!qbevent)break;evnt(25224,7412,"ide_methods.bas");}while(r); do{ *_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,7413,"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(25224,7413,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,7414,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,7414,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,7415,"ide_methods.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; } 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 "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_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),&(pass4546= 60 ),&(pass4547= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7420,"ide_methods.bas");}while(r); S_41577:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER->len))||new_error){ if(qbevent){evnt(25224,7422,"ide_methods.bas");if(r)goto S_41577;} S_41578:; 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(25224,7423,"ide_methods.bas");if(r)goto S_41578;} do{ qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7424,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7425,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 5 ; if(!qbevent)break;evnt(25224,7427,"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(25224,7428,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,7429,"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(25224,7430,"ide_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_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 "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{ *__INTEGER_IDETXTLAST=*__INTEGER_IDETXTLAST+ 1 ; if(!qbevent)break;evnt(25224,7436,"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(25224,7437,"ide_methods.bas");}while(r); do{ *_FUNC_IDENEWTXT_LONG_IDENEWTXT=*__INTEGER_IDETXTLAST; if(!qbevent)break;evnt(25224,7438,"ide_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; 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 "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; 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(25224,7442,"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(25224,7443,"ide_methods.bas");}while(r); S_41592:; if ((*_SUB_IDENOMATCH_BYTE_SHOWFLAGS)||new_error){ if(qbevent){evnt(25224,7444,"ide_methods.bas");if(r)goto S_41592;} S_41593:; if ((*__INTEGER_IDEFINDCASESENS)||new_error){ if(qbevent){evnt(25224,7445,"ide_methods.bas");if(r)goto S_41593;} 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(25224,7445,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7445,"ide_methods.bas");}while(r); } S_41597:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ if(qbevent){evnt(25224,7446,"ide_methods.bas");if(r)goto S_41597;} 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(25224,7446,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7446,"ide_methods.bas");}while(r); } S_41601:; if ((*__INTEGER_IDEFINDNOCOMMENTS)||new_error){ if(qbevent){evnt(25224,7447,"ide_methods.bas");if(r)goto S_41601;} 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(25224,7447,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7447,"ide_methods.bas");}while(r); } S_41605:; if ((*__INTEGER_IDEFINDONLYCOMMENTS)||new_error){ if(qbevent){evnt(25224,7448,"ide_methods.bas");if(r)goto S_41605;} 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(25224,7448,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7448,"ide_methods.bas");}while(r); } S_41609:; if ((*__INTEGER_IDEFINDNOSTRINGS)||new_error){ if(qbevent){evnt(25224,7449,"ide_methods.bas");if(r)goto S_41609;} 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(25224,7449,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7449,"ide_methods.bas");}while(r); } S_41613:; if ((*__INTEGER_IDEFINDONLYSTRINGS)||new_error){ if(qbevent){evnt(25224,7450,"ide_methods.bas");if(r)goto S_41613;} 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(25224,7450,"ide_methods.bas");}while(r); do{ *_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; if(!qbevent)break;evnt(25224,7450,"ide_methods.bas");}while(r); } S_41617:; if ((-(*_SUB_IDENOMATCH_LONG_FLAGSET> 1 ))||new_error){ if(qbevent){evnt(25224,7451,"ide_methods.bas");if(r)goto S_41617;} do{ qbs_set(_SUB_IDENOMATCH_STRING_PL,qbs_new_txt_len("s",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7451,"ide_methods.bas");}while(r); } S_41620:; if ((*_SUB_IDENOMATCH_LONG_FLAGSET)||new_error){ if(qbevent){evnt(25224,7452,"ide_methods.bas");if(r)goto S_41620;} 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(25224,7452,"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(25224,7454,"ide_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; } 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 "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; do{ if(!qbevent)break;evnt(25224,7458,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,7461,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,7462,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7463,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7464,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7465,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4]+1; _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[6]=1; if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&4){ _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]),0,_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,7466,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7467,"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(25224,7468,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING_IDEPATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7472,"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(25224,7473,"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(25224,7474,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I= 0 ; if(!qbevent)break;evnt(25224,7476,"ide_methods.bas");}while(r); S_41638:; if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ if(qbevent){evnt(25224,7477,"ide_methods.bas");if(r)goto S_41638;} do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass4551= 70 ),&(pass4552=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Open",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7478,"ide_methods.bas");}while(r); S_41640:; }else{ if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ if(qbevent){evnt(25224,7479,"ide_methods.bas");if(r)goto S_41640;} do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass4553= 70 ),&(pass4554=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Save As",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7480,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7482,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS= 1 ; if(!qbevent)break;evnt(25224,7483,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,7484,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,7485,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); if(!qbevent)break;evnt(25224,7486,"ide_methods.bas");}while(r); S_41648:; if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 ))||new_error){ if(qbevent){evnt(25224,7487,"ide_methods.bas");if(r)goto S_41648;} 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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); if(!qbevent)break;evnt(25224,7488,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,7489,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,7490,"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]))*85+77))=_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->len; if(!qbevent)break;evnt(25224,7491,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7494,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,7495,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,7496,"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]))*85+28))= 32 ; if(!qbevent)break;evnt(25224,7497,"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]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; if(!qbevent)break;evnt(25224,7497,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Files",6)); if(!qbevent)break;evnt(25224,7498,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_FILELIST); if(!qbevent)break;evnt(25224,7499,"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(25224,7499,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7500,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,7501,"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]))*85+20))= 37 ; if(!qbevent)break;evnt(25224,7502,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,7502,"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]))*85+28))= 31 ; if(!qbevent)break;evnt(25224,7503,"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]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 16 ; if(!qbevent)break;evnt(25224,7503,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); if(!qbevent)break;evnt(25224,7504,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PATHLIST); if(!qbevent)break;evnt(25224,7505,"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(25224,7505,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7506,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,7507,"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]))*85+20))= 37 ; if(!qbevent)break;evnt(25224,7508,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; if(!qbevent)break;evnt(25224,7509,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len(".#BAS Only",10)); if(!qbevent)break;evnt(25224,7510,"ide_methods.bas");}while(r); S_41676:; if ((*_FUNC_IDEFILEDIALOG_LONG_ALLFILES)||new_error){ if(qbevent){evnt(25224,7511,"ide_methods.bas");if(r)goto S_41676;} 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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,7511,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,7511,"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]))*85+64)); if(!qbevent)break;evnt(25224,7512,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7513,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,7514,"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]))*85+20))= 56 ; if(!qbevent)break;evnt(25224,7515,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; if(!qbevent)break;evnt(25224,7516,"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]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("Ne#w Folder",11)); if(!qbevent)break;evnt(25224,7517,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,7518,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,7519,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; if(!qbevent)break;evnt(25224,7520,"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]))*85+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(25224,7521,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,7522,"ide_methods.bas");}while(r); S_41692:; fornext_value4557= 1 ; fornext_finalvalue4557= 100 ; fornext_step4557= 1 ; if (fornext_step4557<0) fornext_step_negative4557=1; else fornext_step_negative4557=0; if (new_error) goto fornext_error4557; goto fornext_entrylabel4557; while(1){ fornext_value4557=fornext_step4557+(*_FUNC_IDEFILEDIALOG_LONG_I); fornext_entrylabel4557: *_FUNC_IDEFILEDIALOG_LONG_I=fornext_value4557; if (fornext_step_negative4557){ if (fornext_value4557fornext_finalvalue4557) break; } fornext_error4557:; if(qbevent){evnt(25224,7526,"ide_methods.bas");if(r)goto S_41692;} 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]))*85)+ 0,((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,7526,"ide_methods.bas");}while(r); fornext_continue_4556:; } fornext_exit_4556:; S_41695:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))&(-(__STRING_IDEOPENFILE->len> 0 ))))||new_error){ if(qbevent){evnt(25224,7529,"ide_methods.bas");if(r)goto S_41695;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,__STRING_IDEOPENFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7529,"ide_methods.bas");}while(r); do{ goto LABEL_DIRECTLOAD; if(!qbevent)break;evnt(25224,7529,"ide_methods.bas");}while(r); } S_41699:; do{ if(qbevent){evnt(25224,7531,"ide_methods.bas");if(r)goto S_41699;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,7534,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_F= 1 ; if(!qbevent)break;evnt(25224,7535,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,7535,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,7535,"ide_methods.bas");}while(r); S_41704:; fornext_value4561= 1 ; fornext_finalvalue4561= 100 ; fornext_step4561= 1 ; if (fornext_step4561<0) fornext_step_negative4561=1; else fornext_step_negative4561=0; if (new_error) goto fornext_error4561; goto fornext_entrylabel4561; while(1){ fornext_value4561=fornext_step4561+(*_FUNC_IDEFILEDIALOG_LONG_I); fornext_entrylabel4561: *_FUNC_IDEFILEDIALOG_LONG_I=fornext_value4561; if (fornext_step_negative4561){ if (fornext_value4561fornext_finalvalue4561) break; } fornext_error4561:; if(qbevent){evnt(25224,7536,"ide_methods.bas");if(r)goto S_41704;} S_41705:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,7537,"ide_methods.bas");if(r)goto S_41705;} 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]))*85+60))=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; if(!qbevent)break;evnt(25224,7539,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,7540,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,7540,"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]))*85) ),_FUNC_IDEFILEDIALOG_LONG_F); if(!qbevent)break;evnt(25224,7541,"ide_methods.bas");}while(r); S_41710:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,7542,"ide_methods.bas");if(r)goto S_41710;} 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]))*85+52)); if(!qbevent)break;evnt(25224,7542,"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]))*85+56)); if(!qbevent)break;evnt(25224,7542,"ide_methods.bas");}while(r); } } fornext_continue_4560:; } fornext_exit_4560:; do{ *_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS=*_FUNC_IDEFILEDIALOG_LONG_F- 1 ; if(!qbevent)break;evnt(25224,7545,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,7549,"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(25224,7549,"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(25224,7550,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_W=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(8))- 8 ; if(!qbevent)break;evnt(25224,7551,"ide_methods.bas");}while(r); S_41721:; if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEDIALOG_STRING_A->len)>(*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))))||new_error){ if(qbevent){evnt(25224,7552,"ide_methods.bas");if(r)goto S_41721;} 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(25224,7552,"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(25224,7553,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,7558,"ide_methods.bas");}while(r); S_41726:; if ((*_FUNC_IDEFILEDIALOG_LONG_CX)||new_error){ if(qbevent){evnt(25224,7559,"ide_methods.bas");if(r)goto S_41726;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7559,"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(25224,7559,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7559,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,7562,"ide_methods.bas");}while(r); S_41732:; do{ if(qbevent){evnt(25224,7563,"ide_methods.bas");if(r)goto S_41732;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,7564,"ide_methods.bas");}while(r); S_41734:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,7565,"ide_methods.bas");if(r)goto S_41734;} do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7565,"ide_methods.bas");}while(r); } S_41737:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,7566,"ide_methods.bas");if(r)goto S_41737;} do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7566,"ide_methods.bas");}while(r); } S_41740:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,7567,"ide_methods.bas");if(r)goto S_41740;} do{ *_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,7567,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7567,"ide_methods.bas");}while(r); } S_41744:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,7568,"ide_methods.bas");if(r)goto S_41744;} do{ *_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,7568,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7568,"ide_methods.bas");}while(r); } S_41748:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,7569,"ide_methods.bas");if(r)goto S_41748;} do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7569,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEDIALOG_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,7570,"ide_methods.bas");}while(r); S_41752:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_ALT!=*_FUNC_IDEFILEDIALOG_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,7570,"ide_methods.bas");if(r)goto S_41752;} do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7570,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEDIALOG_LONG_OLDALT=*_FUNC_IDEFILEDIALOG_LONG_ALT; if(!qbevent)break;evnt(25224,7571,"ide_methods.bas");}while(r); S_41756:; if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ if(qbevent){evnt(25224,7573,"ide_methods.bas");if(r)goto S_41756;} S_41757:; if ((-(func__totaldroppedfiles()> 0 ))||new_error){ if(qbevent){evnt(25224,7574,"ide_methods.bas");if(r)goto S_41757;} 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]))*85+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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7575,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,7576,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7577,"ide_methods.bas");}while(r); do{ sub__finishdrop(); if(!qbevent)break;evnt(25224,7578,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,7579,"ide_methods.bas");}while(r); } } do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,7583,"ide_methods.bas");}while(r); S_41766:; dl_continue_4563:; }while((!(*_FUNC_IDEFILEDIALOG_LONG_CHANGE))&&(!new_error)); dl_exit_4563:; if(qbevent){evnt(25224,7584,"ide_methods.bas");if(r)goto S_41766;} S_41767:; if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,7585,"ide_methods.bas");if(r)goto S_41767;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,7585,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,7585,"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(25224,7587,"ide_methods.bas");}while(r); S_41773:; if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,7588,"ide_methods.bas");if(r)goto S_41773;} S_41774:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,7589,"ide_methods.bas");if(r)goto S_41774;} do{ *_FUNC_IDEFILEDIALOG_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7590,"ide_methods.bas");}while(r); S_41776:; if (((-(*_FUNC_IDEFILEDIALOG_LONG_K>= 65 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,7591,"ide_methods.bas");if(r)goto S_41776;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,func_chr(*_FUNC_IDEFILEDIALOG_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7591,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7594,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,7594,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7594,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,7598,"ide_methods.bas");}while(r); S_41785:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,7599,"ide_methods.bas");if(r)goto S_41785;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7599,"ide_methods.bas");}while(r); } S_41788:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,7600,"ide_methods.bas");if(r)goto S_41788;} do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,7600,"ide_methods.bas");}while(r); } S_41791:; 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(25224,7601,"ide_methods.bas");if(r)goto S_41791;} do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,7601,"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(25224,7601,"ide_methods.bas");}while(r); } S_41795:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,7602,"ide_methods.bas");if(r)goto S_41795;} do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,7602,"ide_methods.bas");}while(r); } S_41798:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS>*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,7603,"ide_methods.bas");if(r)goto S_41798;} do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7603,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFILEDIALOG_LONG_F= 1 ; if(!qbevent)break;evnt(25224,7604,"ide_methods.bas");}while(r); S_41802:; fornext_value4567= 1 ; fornext_finalvalue4567= 100 ; fornext_step4567= 1 ; if (fornext_step4567<0) fornext_step_negative4567=1; else fornext_step_negative4567=0; if (new_error) goto fornext_error4567; goto fornext_entrylabel4567; while(1){ fornext_value4567=fornext_step4567+(*_FUNC_IDEFILEDIALOG_LONG_I); fornext_entrylabel4567: *_FUNC_IDEFILEDIALOG_LONG_I=fornext_value4567; if (fornext_step_negative4567){ if (fornext_value4567fornext_finalvalue4567) break; } fornext_error4567:; if(qbevent){evnt(25224,7605,"ide_methods.bas");if(r)goto S_41802;} 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]))*85+36)); if(!qbevent)break;evnt(25224,7606,"ide_methods.bas");}while(r); S_41804:; if ((*_FUNC_IDEFILEDIALOG_LONG_T)||new_error){ if(qbevent){evnt(25224,7607,"ide_methods.bas");if(r)goto S_41804;} do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; if(!qbevent)break;evnt(25224,7608,"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]))*85) ),_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(25224,7609,"ide_methods.bas");}while(r); } fornext_continue_4566:; } fornext_exit_4566:; S_41809:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS!=*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,7624,"ide_methods.bas");if(r)goto S_41809;} do{ *_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS; if(!qbevent)break;evnt(25224,7626,"ide_methods.bas");}while(r); S_41811:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,7627,"ide_methods.bas");if(r)goto S_41811;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,7628,"ide_methods.bas");}while(r); S_41813:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,7629,"ide_methods.bas");if(r)goto S_41813;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,7629,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,7630,"ide_methods.bas");}while(r); } } S_41819:; if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*85+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY))||new_error){ if(qbevent){evnt(25224,7634,"ide_methods.bas");if(r)goto S_41819;} 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]))*85+64)); if(!qbevent)break;evnt(25224,7635,"ide_methods.bas");}while(r); S_41821:; if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*85+64))== 0 ))||new_error){ if(qbevent){evnt(25224,7636,"ide_methods.bas");if(r)goto S_41821;} do{ *_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 1 ; if(!qbevent)break;evnt(25224,7636,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; if(!qbevent)break;evnt(25224,7636,"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]))*85+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(25224,7637,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7638,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7639,"ide_methods.bas");}while(r); } S_41830:; if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))||new_error){ if(qbevent){evnt(25224,7642,"ide_methods.bas");if(r)goto S_41830;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_IDENEWFOLDER(_FUNC_IDEFILEDIALOG_STRING_PATH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7644,"ide_methods.bas");}while(r); S_41832:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len))||new_error){ if(qbevent){evnt(25224,7645,"ide_methods.bas");if(r)goto S_41832;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,_FUNC_IDEFILEDIALOG_STRING_NEWPATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7646,"ide_methods.bas");}while(r); do{ goto LABEL_CHANGEPATH; if(!qbevent)break;evnt(25224,7647,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7649,"ide_methods.bas");}while(r); } } S_41839:; 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(25224,7653,"ide_methods.bas");if(r)goto S_41839;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7654,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7655,"ide_methods.bas");}while(r); } S_41843:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,7658,"ide_methods.bas");if(r)goto S_41843;} 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]))*85+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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7659,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,7660,"ide_methods.bas");}while(r); } S_41847:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 3 ))||new_error){ if(qbevent){evnt(25224,7663,"ide_methods.bas");if(r)goto S_41847;} S_41848:; 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]))*85+64))>= 1 ))))||new_error){ if(qbevent){evnt(25224,7664,"ide_methods.bas");if(r)goto S_41848;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_IDEZCHANGEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,((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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7665,"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]))*85+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(25224,7666,"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]))*85+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(25224,7667,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7669,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7670,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7671,"ide_methods.bas");}while(r); } } S_41857:; 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(25224,7676,"ide_methods.bas");if(r)goto S_41857;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7677,"ide_methods.bas");}while(r); S_41859:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDEFILEDIALOG_STRING_F)))||new_error){ if(qbevent){evnt(25224,7679,"ide_methods.bas");if(r)goto S_41859;} do{ goto LABEL_DIRECTLOAD; if(!qbevent)break;evnt(25224,7679,"ide_methods.bas");}while(r); } S_41862:; 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(25224,7681,"ide_methods.bas");if(r)goto S_41862;} 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]))*85+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(25224,7683,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7684,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7685,"ide_methods.bas");}while(r); S_41866:; }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(25224,7686,"ide_methods.bas");if(r)goto S_41866;} do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7687,"ide_methods.bas");}while(r); } } LABEL_CHANGEPATH:; if(qbevent){evnt(25224,7691,"ide_methods.bas");r=0;} S_41869:; 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(25224,7692,"ide_methods.bas");if(r)goto S_41869;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,__STRING1_IDEPATHSEP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7694,"ide_methods.bas");}while(r); S_41871:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len== 0 )))||new_error){ if(qbevent){evnt(25224,7695,"ide_methods.bas");if(r)goto S_41871;} 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]))*85+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(25224,7696,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,7697,"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(25224,7699,"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]))*85+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(25224,7701,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7702,"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]))*85+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(25224,7703,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7704,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7705,"ide_methods.bas");}while(r); } S_41883:; 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(25224,7709,"ide_methods.bas");if(r)goto S_41883;} S_41884:; 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(25224,7710,"ide_methods.bas");if(r)goto S_41884;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7712,"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]))*85+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(25224,7713,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7714,"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]))*85+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(25224,7716,"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]))*85+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,&(pass4572= 2 ),_FUNC_IDEFILEDIALOG_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7717,"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]))*85+64))= -1 ; if(!qbevent)break;evnt(25224,7718,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,7719,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,7720,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,7721,"ide_methods.bas");}while(r); S_41895:; 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(25224,7722,"ide_methods.bas");if(r)goto S_41895;} do{ *_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; if(!qbevent)break;evnt(25224,7723,"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]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,7724,"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]))*85+64)); if(!qbevent)break;evnt(25224,7725,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7727,"ide_methods.bas");}while(r); } LABEL_DIRECTLOAD:; if(qbevent){evnt(25224,7730,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7731,"ide_methods.bas");}while(r); S_41903:; if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ if(qbevent){evnt(25224,7733,"ide_methods.bas");if(r)goto S_41903;} S_41904:; 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(25224,7734,"ide_methods.bas");if(r)goto S_41904;} S_41905:; 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(25224,7736,"ide_methods.bas");if(r)goto S_41905;} 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(25224,7736,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEERROR= 2 ; if(!qbevent)break;evnt(25224,7740,"ide_methods.bas");}while(r); do{ sub_open(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7741,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,7741,"ide_methods.bas");}while(r); S_41912:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDEFILEDIALOG_STRING_F)> 0 )))||new_error){ if(qbevent){evnt(25224,7743,"ide_methods.bas");if(r)goto S_41912;} S_41913:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ if(qbevent){evnt(25224,7744,"ide_methods.bas");if(r)goto S_41913;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7745,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7746,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,7748,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENLOOP; if(!qbevent)break;evnt(25224,7748,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEERROR= 3 ; if(!qbevent)break;evnt(25224,7753,"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(25224,7754,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; if(!qbevent)break;evnt(25224,7754,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; if(!qbevent)break;evnt(25224,7754,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; if(!qbevent)break;evnt(25224,7754,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; if(!qbevent)break;evnt(25224,7754,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,7755,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; if(!qbevent)break;evnt(25224,7756,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,7757,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; if(!qbevent)break;evnt(25224,7758,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,7759,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; if(!qbevent)break;evnt(25224,7760,"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(25224,7761,"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(25224,7762,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I2= 1 ; if(!qbevent)break;evnt(25224,7763,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_N= 0 ; if(!qbevent)break;evnt(25224,7764,"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(25224,7765,"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(25224,7766,"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(25224,7766,"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(25224,7766,"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(25224,7766,"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(25224,7767,"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(25224,7767,"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(25224,7767,"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(25224,7767,"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(25224,7767,"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(25224,7767,"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(25224,7767,"ide_methods.bas");}while(r); S_41949:; do{ if(qbevent){evnt(25224,7768,"ide_methods.bas");if(r)goto S_41949;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7769,"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(25224,7770,"ide_methods.bas");}while(r); S_41952:; if ((*_FUNC_IDEFILEDIALOG_LONG_L)||new_error){ if(qbevent){evnt(25224,7771,"ide_methods.bas");if(r)goto S_41952;} do{ *_FUNC_IDEFILEDIALOG_LONG_ASCA=qbs_asc(_FUNC_IDEFILEDIALOG_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7771,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEFILEDIALOG_LONG_ASCA= -1 ; if(!qbevent)break;evnt(25224,7771,"ide_methods.bas");}while(r); } S_41957:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= 13 ))||new_error){ if(qbevent){evnt(25224,7772,"ide_methods.bas");if(r)goto S_41957;} S_41958:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= -1 ))||new_error){ if(qbevent){evnt(25224,7773,"ide_methods.bas");if(r)goto S_41958;} LABEL_IDEOPENFIXTABS:; if(qbevent){evnt(25224,7775,"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(25224,7776,"ide_methods.bas");}while(r); S_41960:; if ((*_FUNC_IDEFILEDIALOG_LONG_X)||new_error){ if(qbevent){evnt(25224,7777,"ide_methods.bas");if(r)goto S_41960;} do{ *_FUNC_IDEFILEDIALOG_LONG_X2=(*_FUNC_IDEFILEDIALOG_LONG_X- 1 )% 4 ; if(!qbevent)break;evnt(25224,7778,"ide_methods.bas");}while(r); S_41962:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 0 ))||new_error){ if(qbevent){evnt(25224,7779,"ide_methods.bas");if(r)goto S_41962;} 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(25224,7779,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 3 ; if(!qbevent)break;evnt(25224,7779,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; if(!qbevent)break;evnt(25224,7779,"ide_methods.bas");}while(r); } S_41967:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 1 ))||new_error){ if(qbevent){evnt(25224,7780,"ide_methods.bas");if(r)goto S_41967;} 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(25224,7780,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 2 ; if(!qbevent)break;evnt(25224,7780,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; if(!qbevent)break;evnt(25224,7780,"ide_methods.bas");}while(r); } S_41972:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 2 ))||new_error){ if(qbevent){evnt(25224,7781,"ide_methods.bas");if(r)goto S_41972;} 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(25224,7781,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 1 ; if(!qbevent)break;evnt(25224,7781,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; if(!qbevent)break;evnt(25224,7781,"ide_methods.bas");}while(r); } S_41977:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 3 ))||new_error){ if(qbevent){evnt(25224,7782,"ide_methods.bas");if(r)goto S_41977;} 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(25224,7782,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABS; if(!qbevent)break;evnt(25224,7782,"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(25224,7785,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_I2=*_FUNC_IDEFILEDIALOG_LONG_I2+*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ; if(!qbevent)break;evnt(25224,7785,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_N=*_FUNC_IDEFILEDIALOG_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,7785,"ide_methods.bas");}while(r); } S_41987:; dl_continue_4576:; }while((!(-(*_FUNC_IDEFILEDIALOG_LONG_ASCA== 13 )))&&(!new_error)); dl_exit_4576:; if(qbevent){evnt(25224,7787,"ide_methods.bas");if(r)goto S_41987;} do{ qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7788,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*_FUNC_IDEFILEDIALOG_LONG_N; if(!qbevent)break;evnt(25224,7789,"ide_methods.bas");}while(r); S_41990:; if ((-(*_FUNC_IDEFILEDIALOG_LONG_N== 0 ))||new_error){ if(qbevent){evnt(25224,7789,"ide_methods.bas");if(r)goto S_41990;} do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7789,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; if(!qbevent)break;evnt(25224,7789,"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(25224,7789,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,7790,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7791,"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(25224,7791,"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(25224,7792,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7793,"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(25224,7794,"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(25224,7795,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7796,"ide_methods.bas");}while(r); S_42004:; }else{ if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ if(qbevent){evnt(25224,7797,"ide_methods.bas");if(r)goto S_42004;} S_42005:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDEFILEDIALOG_STRING_F)== 0 )))||new_error){ if(qbevent){evnt(25224,7798,"ide_methods.bas");if(r)goto S_42005;} 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(25224,7798,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 3 ; if(!qbevent)break;evnt(25224,7800,"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(25224,7801,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,7802,"ide_methods.bas");}while(r); S_42011:; if ((func_lof( 150 ))||new_error){ if(qbevent){evnt(25224,7803,"ide_methods.bas");if(r)goto S_42011;} do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,7804,"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(25224,7805,"ide_methods.bas");}while(r); S_42014:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("N",1))))||new_error){ if(qbevent){evnt(25224,7806,"ide_methods.bas");if(r)goto S_42014;} do{ qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7807,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7808,"ide_methods.bas");}while(r); } }else{ do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,7811,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7813,"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(25224,7813,"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(25224,7814,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7815,"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(25224,7816,"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(25224,7817,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,7818,"ide_methods.bas");}while(r); } } } LABEL_IDEOPENLOOP:; if(qbevent){evnt(25224,7822,"ide_methods.bas");r=0;} do{ *_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,7825,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,7826,"ide_methods.bas");}while(r); dl_continue_4559:; }while(1); dl_exit_4559:; 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; 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 "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{ *(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(0))=((*__LONG_IDEWX/ 2 ))-(*_SUB_IDEPAR_LONG_W/ 2 ); if(!qbevent)break;evnt(25224,7831,"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(25224,7832,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(8))=*_SUB_IDEPAR_LONG_W; if(!qbevent)break;evnt(25224,7833,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(12))=*_SUB_IDEPAR_LONG_H; if(!qbevent)break;evnt(25224,7834,"ide_methods.bas");}while(r); S_42037:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEPAR_STRING_TITLE->len))||new_error){ if(qbevent){evnt(25224,7835,"ide_methods.bas");if(r)goto S_42037;} do{ *(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(16))=FUNC_IDENEWTXT(_SUB_IDEPAR_STRING_TITLE); if(!qbevent)break;evnt(25224,7835,"ide_methods.bas");}while(r); } do{ sub__resize( 2 ,NULL); if(!qbevent)break;evnt(25224,7836,"ide_methods.bas");}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_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 "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{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,7840,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,7841,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,7842,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,7843,"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(25224,7844,"ide_methods.bas");}while(r); S_42046:; if ((-(*_FUNC_IDERESTORE_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(25224,7845,"ide_methods.bas");if(r)goto S_42046;} do{ qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7845,"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(25224,7845,"ide_methods.bas");}while(r); } 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_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 "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; S_42051:; if(qbevent){evnt(25224,7849,"ide_methods.bas");if(r)goto S_42051;} S_42052:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("SEARCH",6))))||new_error){ if(qbevent){evnt(25224,7850,"ide_methods.bas");if(r)goto S_42052;} 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(25224,7850,"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(25224,7850,"ide_methods.bas");}while(r); sc_ec_191_end:; goto sc_4581_end; } S_42055:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("FILES",5))))||new_error){ if(qbevent){evnt(25224,7851,"ide_methods.bas");if(r)goto S_42055;} 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(25224,7851,"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(25224,7851,"ide_methods.bas");}while(r); sc_ec_192_end:; goto sc_4581_end; } sc_4581_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(25224,7853,"ide_methods.bas");}while(r); S_42060:; if ((-(*_FUNC_IDECLEARHISTORY_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(25224,7854,"ide_methods.bas");if(r)goto S_42060;} do{ qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7854,"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(25224,7854,"ide_methods.bas");}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_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 "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{ *__LONG_IDEERROR= 6 ; if(!qbevent)break;evnt(25224,7858,"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(25224,7859,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,7860,"ide_methods.bas");}while(r); S_42068:; fornext_value4584= 1 ; fornext_finalvalue4584=*__LONG_IDEN; fornext_step4584= 1 ; if (fornext_step4584<0) fornext_step_negative4584=1; else fornext_step_negative4584=0; if (new_error) goto fornext_error4584; goto fornext_entrylabel4584; while(1){ fornext_value4584=fornext_step4584+(*_SUB_IDESAVE_LONG_I); fornext_entrylabel4584: *_SUB_IDESAVE_LONG_I=fornext_value4584; if (fornext_step_negative4584){ if (fornext_value4584fornext_finalvalue4584) break; } fornext_error4584:; if(qbevent){evnt(25224,7861,"ide_methods.bas");if(r)goto S_42068;} do{ qbs_set(_SUB_IDESAVE_STRING_A,FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7862,"ide_methods.bas");}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 151 ; if (new_error) goto skip4585; sub_file_print(tmp_fileno,_SUB_IDESAVE_STRING_A, 0 , 0 , 1 ); if (new_error) goto skip4585; skip4585: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,7863,"ide_methods.bas");}while(r); fornext_continue_4583:; } fornext_exit_4583:; do{ sub_close( 151 ,1); if(!qbevent)break;evnt(25224,7865,"ide_methods.bas");}while(r); do{ SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7866,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 0 ; if(!qbevent)break;evnt(25224,7867,"ide_methods.bas");}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* 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 "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{ 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(25224,7871,"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(25224,7872,"ide_methods.bas");}while(r); S_42077:; if(qbevent){evnt(25224,7873,"ide_methods.bas");if(r)goto S_42077;} S_42078:; if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 1 )))||new_error){ if(qbevent){evnt(25224,7874,"ide_methods.bas");if(r)goto S_42078;} do{ qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7874,"ide_methods.bas");}while(r); sc_ec_193_end:; goto sc_4586_end; } S_42080:; if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 2 )))||new_error){ if(qbevent){evnt(25224,7875,"ide_methods.bas");if(r)goto S_42080;} do{ qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("N",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7875,"ide_methods.bas");}while(r); sc_ec_194_end:; goto sc_4586_end; } S_42082:; if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 0 ))||(*_FUNC_IDESAVENOW_LONG_RESULT==( 3 )))||new_error){ if(qbevent){evnt(25224,7876,"ide_methods.bas");if(r)goto S_42082;} do{ qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7876,"ide_methods.bas");}while(r); sc_ec_195_end:; goto sc_4586_end; } sc_4586_end:; 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_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 "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{ qbs_set(_SUB_IDESETLINE_STRING_TEXT,qbs_rtrim(_SUB_IDESETLINE_STRING_TEXT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7882,"ide_methods.bas");}while(r); S_42086:; if ((-(*_SUB_IDESETLINE_LONG_I!= -1 ))||new_error){ if(qbevent){evnt(25224,7884,"ide_methods.bas");if(r)goto S_42086;} do{ SUB_IDEGOTOLINE(_SUB_IDESETLINE_LONG_I); if(!qbevent)break;evnt(25224,7884,"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(25224,7885,"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 ,1))- 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7886,"ide_methods.bas");}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; } 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 "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; S_42091:; if ((-(((float)(*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME))>((float)(func_timer(NULL,0)))))||new_error){ if(qbevent){evnt(25224,7891,"ide_methods.bas");if(r)goto S_42091;} do{ *_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME=*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME- 86400 ; if(!qbevent)break;evnt(25224,7891,"ide_methods.bas");}while(r); } do{ *_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE=func_timer(NULL,0)-*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME; if(!qbevent)break;evnt(25224,7892,"ide_methods.bas");}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; 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 "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{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7897,"ide_methods.bas");}while(r); do{ sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); if(!qbevent)break;evnt(25224,7898,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7899,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); if(!qbevent)break;evnt(25224,7900,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7901,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7902,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7903,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7904,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7905,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); if(!qbevent)break;evnt(25224,7906,"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(25224,7908,"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(25224,7909,"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(25224,7910,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7912,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7914,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,7915,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_SINGLE_STARTTIME=func_timer(NULL,0); if(!qbevent)break;evnt(25224,7917,"ide_methods.bas");}while(r); S_42112:; if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ if(qbevent){evnt(25224,7919,"ide_methods.bas");if(r)goto S_42112;} S_42113:; if ((-(*__LONG_IDEFOCUSLINE!= 0 ))||new_error){ if(qbevent){evnt(25224,7920,"ide_methods.bas");if(r)goto S_42113;} S_42114:; if ((*__INTEGER_IDECHANGEMADE)||new_error){ if(qbevent){evnt(25224,7924,"ide_methods.bas");if(r)goto S_42114;} do{ *_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; if(!qbevent)break;evnt(25224,7924,"ide_methods.bas");}while(r); } S_42117:; if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ if(qbevent){evnt(25224,7925,"ide_methods.bas");if(r)goto S_42117;} do{ *_SUB_IDESHOWTEXT_BYTE_MANUALLIST= -1 ; if(!qbevent)break;evnt(25224,7926,"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(25224,7927,"ide_methods.bas");}while(r); S_42120:; fornext_value4591= 1 ; fornext_finalvalue4591=*__LONG_IDEN; fornext_step4591= 1 ; if (fornext_step4591<0) fornext_step_negative4591=1; else fornext_step_negative4591=0; if (new_error) goto fornext_error4591; goto fornext_entrylabel4591; while(1){ fornext_value4591=fornext_step4591+(*_SUB_IDESHOWTEXT_LONG_Y); fornext_entrylabel4591: *_SUB_IDESHOWTEXT_LONG_Y=fornext_value4591; if (fornext_step_negative4591){ if (fornext_value4591fornext_finalvalue4591) break; } fornext_error4591:; if(qbevent){evnt(25224,7928,"ide_methods.bas");if(r)goto S_42120;} 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(25224,7929,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_SF= 0 ; if(!qbevent)break;evnt(25224,7930,"ide_methods.bas");}while(r); S_42123:; 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(25224,7931,"ide_methods.bas");if(r)goto S_42123;} do{ *_SUB_IDESHOWTEXT_LONG_SF= 1 ; if(!qbevent)break;evnt(25224,7931,"ide_methods.bas");}while(r); } S_42126:; 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(25224,7932,"ide_methods.bas");if(r)goto S_42126;} do{ *_SUB_IDESHOWTEXT_LONG_SF= 2 ; if(!qbevent)break;evnt(25224,7932,"ide_methods.bas");}while(r); } S_42129:; if ((*_SUB_IDESHOWTEXT_LONG_SF)||new_error){ if(qbevent){evnt(25224,7933,"ide_methods.bas");if(r)goto S_42129;} S_42130:; 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(25224,7934,"ide_methods.bas");if(r)goto S_42130;} 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(25224,7935,"ide_methods.bas");}while(r); } S_42133:; if ((-(*_SUB_IDESHOWTEXT_LONG_SF== 1 ))||new_error){ if(qbevent){evnt(25224,7938,"ide_methods.bas");if(r)goto S_42133;} 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(25224,7939,"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(25224,7941,"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(25224,7944,"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(25224,7945,"ide_methods.bas");}while(r); S_42140:; if ((*_SUB_IDESHOWTEXT_LONG_X)||new_error){ if(qbevent){evnt(25224,7946,"ide_methods.bas");if(r)goto S_42140;} 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(25224,7947,"ide_methods.bas");}while(r); }else{ do{ SUB_CLEANSUBNAME(_SUB_IDESHOWTEXT_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7949,"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(25224,7951,"ide_methods.bas");}while(r); } fornext_continue_4590:; } fornext_exit_4590:; } }else{ do{ *_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; if(!qbevent)break;evnt(25224,7956,"ide_methods.bas");}while(r); } S_42152:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS)))||new_error){ if(qbevent){evnt(25224,7959,"ide_methods.bas");if(r)goto S_42152;} S_42153:; if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ if(qbevent){evnt(25224,7960,"ide_methods.bas");if(r)goto S_42153;} S_42154:; do{ if(qbevent){evnt(25224,7961,"ide_methods.bas");if(r)goto S_42154;} do{ *_SUB_IDESHOWTEXT_LONG_ATSIGN=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7962,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_NEXTAT=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7963,"ide_methods.bas");}while(r); S_42157:; if ((-(*_SUB_IDESHOWTEXT_LONG_NEXTAT== 0 ))||new_error){ if(qbevent){evnt(25224,7964,"ide_methods.bas");if(r)goto S_42157;} do{ goto dl_exit_4593; if(!qbevent)break;evnt(25224,7964,"ide_methods.bas");}while(r); } S_42160:; if ((-(*_SUB_IDESHOWTEXT_LONG_ATSIGN>*__LONG_CUSTOMKEYWORDSLENGTH))||new_error){ if(qbevent){evnt(25224,7965,"ide_methods.bas");if(r)goto S_42160;} 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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7966,"ide_methods.bas");}while(r); S_42162:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len))||new_error){ if(qbevent){evnt(25224,7967,"ide_methods.bas");if(r)goto S_42162;} do{ *_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; if(!qbevent)break;evnt(25224,7968,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 128 ; if(!qbevent)break;evnt(25224,7969,"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(25224,7970,"ide_methods.bas");}while(r); S_42166:; if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES1!= 0 ))||new_error){ if(qbevent){evnt(25224,7971,"ide_methods.bas");if(r)goto S_42166;} do{ *_SUB_IDESHOWTEXT_LONG_HASHRES1= 1 ; if(!qbevent)break;evnt(25224,7971,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; if(!qbevent)break;evnt(25224,7972,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 64 ; if(!qbevent)break;evnt(25224,7973,"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(25224,7974,"ide_methods.bas");}while(r); S_42172:; if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES2!= 0 ))||new_error){ if(qbevent){evnt(25224,7975,"ide_methods.bas");if(r)goto S_42172;} do{ *_SUB_IDESHOWTEXT_LONG_HASHRES2= 1 ; if(!qbevent)break;evnt(25224,7975,"ide_methods.bas");}while(r); } S_42175:; if ((-((*_SUB_IDESHOWTEXT_LONG_HASHRES1+*_SUB_IDESHOWTEXT_LONG_HASHRES2)==( 0 )))||new_error){ if(qbevent){evnt(25224,7976,"ide_methods.bas");if(r)goto S_42175;} 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(25224,7978,"ide_methods.bas");}while(r); } } } dl_continue_4593:; }while(1); dl_exit_4593:; } S_42182:; fornext_value4597= 1 ; fornext_finalvalue4597=__STRING_LISTOFCUSTOMKEYWORDS->len; 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+(*_SUB_IDESHOWTEXT_LONG_I); fornext_entrylabel4597: *_SUB_IDESHOWTEXT_LONG_I=fornext_value4597; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4597){ if (fornext_value4597fornext_finalvalue4597) break; } fornext_error4597:; if(qbevent){evnt(25224,7985,"ide_methods.bas");if(r)goto S_42182;} do{ *_SUB_IDESHOWTEXT_LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7986,"ide_methods.bas");}while(r); S_42184:; if ((-(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR== 64 ))||new_error){ if(qbevent){evnt(25224,7987,"ide_methods.bas");if(r)goto S_42184;} S_42185:; 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(25224,7988,"ide_methods.bas");if(r)goto S_42185;} 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(25224,7988,"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(25224,7990,"ide_methods.bas");}while(r); } fornext_continue_4596:; } fornext_exit_4596:; do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,_SUB_IDESHOWTEXT_STRING_TEMPLIST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7993,"ide_methods.bas");}while(r); S_42193:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0)))||new_error){ if(qbevent){evnt(25224,7995,"ide_methods.bas");if(r)goto S_42193;} do{ *_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,7996,"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(25224,7997,"ide_methods.bas");}while(r); dl_continue_4599:; } dl_exit_4599:; do{ qbs_set(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8000,"ide_methods.bas");}while(r); } } do{ *_SUB_IDESHOWTEXT_LONG_CC= -1 ; if(!qbevent)break;evnt(25224,8005,"ide_methods.bas");}while(r); S_42201:; if ((-(*__LONG_IDECX<*__LONG_IDESX))||new_error){ if(qbevent){evnt(25224,8007,"ide_methods.bas");if(r)goto S_42201;} do{ *__LONG_IDESX=*__LONG_IDECX; if(!qbevent)break;evnt(25224,8007,"ide_methods.bas");}while(r); } S_42204:; if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ if(qbevent){evnt(25224,8008,"ide_methods.bas");if(r)goto S_42204;} do{ *__LONG_IDESY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,8008,"ide_methods.bas");}while(r); } S_42207:; if ((-(((*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-*__LONG_IDESX)>=((*__LONG_IDEWX- 2 ))))||new_error){ if(qbevent){evnt(25224,8009,"ide_methods.bas");if(r)goto S_42207;} do{ *__LONG_IDESX=(*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-(*__LONG_IDEWX- 3 ); if(!qbevent)break;evnt(25224,8009,"ide_methods.bas");}while(r); } S_42210:; if ((-((*__LONG_IDECY-*__LONG_IDESY)>=((*__LONG_IDEWY- 8 ))))||new_error){ if(qbevent){evnt(25224,8010,"ide_methods.bas");if(r)goto S_42210;} do{ *__LONG_IDESY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); if(!qbevent)break;evnt(25224,8010,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_SY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,8012,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_SY2=*__LONG_IDECY; if(!qbevent)break;evnt(25224,8013,"ide_methods.bas");}while(r); S_42215:; if ((-(*_SUB_IDESHOWTEXT_LONG_SY1>*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,8014,"ide_methods.bas");if(r)goto S_42215;} do{ swap_32(&*_SUB_IDESHOWTEXT_LONG_SY1,&*_SUB_IDESHOWTEXT_LONG_SY2); if(!qbevent)break;evnt(25224,8014,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,8015,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,8016,"ide_methods.bas");}while(r); S_42220:; if ((-(*_SUB_IDESHOWTEXT_LONG_SX1>*_SUB_IDESHOWTEXT_LONG_SX2))||new_error){ if(qbevent){evnt(25224,8017,"ide_methods.bas");if(r)goto S_42220;} do{ swap_32(&*_SUB_IDESHOWTEXT_LONG_SX1,&*_SUB_IDESHOWTEXT_LONG_SX2); if(!qbevent)break;evnt(25224,8017,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; if(!qbevent)break;evnt(25224,8019,"ide_methods.bas");}while(r); do{ *__BYTE_ENTERINGRGB= 0 ; if(!qbevent)break;evnt(25224,8020,"ide_methods.bas");}while(r); S_42225:; if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ if(qbevent){evnt(25224,8022,"ide_methods.bas");if(r)goto S_42225;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 0 ; if(!qbevent)break;evnt(25224,8023,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND= 0 ; if(!qbevent)break;evnt(25224,8024,"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(25224,8025,"ide_methods.bas");}while(r); do{ SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,&(pass4603=_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(25224,8026,"ide_methods.bas");}while(r); S_42230:; 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(25224,8027,"ide_methods.bas");if(r)goto S_42230;} S_42231:; fornext_value4605=*__LONG_IDECY- 1 ; fornext_finalvalue4605= 1 ; fornext_step4605= -1 ; if (fornext_step4605<0) fornext_step_negative4605=1; else fornext_step_negative4605=0; if (new_error) goto fornext_error4605; goto fornext_entrylabel4605; while(1){ fornext_value4605=fornext_step4605+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); fornext_entrylabel4605: *_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4605; if (fornext_step_negative4605){ if (fornext_value4605fornext_finalvalue4605) break; } fornext_error4605:; if(qbevent){evnt(25224,8029,"ide_methods.bas");if(r)goto S_42231;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8030,"ide_methods.bas");}while(r); do{ SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass4607=_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(25224,8031,"ide_methods.bas");}while(r); S_42234:; 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(25224,8032,"ide_methods.bas");if(r)goto S_42234;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; if(!qbevent)break;evnt(25224,8032,"ide_methods.bas");}while(r); do{ goto fornext_exit_4604; if(!qbevent)break;evnt(25224,8032,"ide_methods.bas");}while(r); } fornext_continue_4604:; } fornext_exit_4604:; S_42239:; if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ if(qbevent){evnt(25224,8034,"ide_methods.bas");if(r)goto S_42239;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; if(!qbevent)break;evnt(25224,8034,"ide_methods.bas");}while(r); } S_42242:; fornext_value4609=*__LONG_IDECY+ 1 ; fornext_finalvalue4609=*__LONG_IDEN; fornext_step4609= 1 ; if (fornext_step4609<0) fornext_step_negative4609=1; else fornext_step_negative4609=0; if (new_error) goto fornext_error4609; goto fornext_entrylabel4609; while(1){ fornext_value4609=fornext_step4609+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); fornext_entrylabel4609: *_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4609; if (fornext_step_negative4609){ if (fornext_value4609fornext_finalvalue4609) break; } fornext_error4609:; if(qbevent){evnt(25224,8037,"ide_methods.bas");if(r)goto S_42242;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8038,"ide_methods.bas");}while(r); do{ SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass4611=_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(25224,8039,"ide_methods.bas");}while(r); S_42245:; 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(25224,8040,"ide_methods.bas");if(r)goto S_42245;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*_SUB_IDESHOWTEXT_LONG_IDECY_I; if(!qbevent)break;evnt(25224,8040,"ide_methods.bas");}while(r); do{ goto fornext_exit_4608; if(!qbevent)break;evnt(25224,8040,"ide_methods.bas");}while(r); } fornext_continue_4608:; } fornext_exit_4608:; S_42250:; if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND== 0 ))||new_error){ if(qbevent){evnt(25224,8042,"ide_methods.bas");if(r)goto S_42250;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*__LONG_IDEN; if(!qbevent)break;evnt(25224,8042,"ide_methods.bas");}while(r); } }else{ S_42254:; if ((-(*__LONG_IDECY> 1 ))||new_error){ if(qbevent){evnt(25224,8044,"ide_methods.bas");if(r)goto S_42254;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass4612=*__LONG_IDECY- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8044,"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(25224,8044,"ide_methods.bas");}while(r); } do{ SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass4614=_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(25224,8045,"ide_methods.bas");}while(r); S_42260:; 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(25224,8046,"ide_methods.bas");if(r)goto S_42260;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*__LONG_IDECY; if(!qbevent)break;evnt(25224,8047,"ide_methods.bas");}while(r); S_42262:; fornext_value4616=*__LONG_IDECY- 1 ; fornext_finalvalue4616= 1 ; fornext_step4616= -1 ; if (fornext_step4616<0) fornext_step_negative4616=1; else fornext_step_negative4616=0; if (new_error) goto fornext_error4616; goto fornext_entrylabel4616; while(1){ fornext_value4616=fornext_step4616+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); fornext_entrylabel4616: *_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4616; if (fornext_step_negative4616){ if (fornext_value4616fornext_finalvalue4616) break; } fornext_error4616:; if(qbevent){evnt(25224,8050,"ide_methods.bas");if(r)goto S_42262;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8051,"ide_methods.bas");}while(r); do{ SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass4618=_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(25224,8052,"ide_methods.bas");}while(r); S_42265:; 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(25224,8053,"ide_methods.bas");if(r)goto S_42265;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; if(!qbevent)break;evnt(25224,8053,"ide_methods.bas");}while(r); do{ goto fornext_exit_4615; if(!qbevent)break;evnt(25224,8053,"ide_methods.bas");}while(r); } fornext_continue_4615:; } fornext_exit_4615:; S_42270:; if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ if(qbevent){evnt(25224,8055,"ide_methods.bas");if(r)goto S_42270;} do{ *_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; if(!qbevent)break;evnt(25224,8055,"ide_methods.bas");}while(r); } } } S_42275:; if ((-(*__LONG_IDECY> 1 ))||new_error){ if(qbevent){evnt(25224,8059,"ide_methods.bas");if(r)goto S_42275;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass4619=*__LONG_IDECY- 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8059,"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(25224,8059,"ide_methods.bas");}while(r); } do{ *__LONG_ACTIVEINCLUDELINK= 0 ; if(!qbevent)break;evnt(25224,8061,"ide_methods.bas");}while(r); S_42281:; fornext_value4621= 0 ; fornext_finalvalue4621=(*__LONG_IDEWY- 9 ); 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+(*_SUB_IDESHOWTEXT_LONG_Y); fornext_entrylabel4621: *_SUB_IDESHOWTEXT_LONG_Y=fornext_value4621; if (fornext_step_negative4621){ if (fornext_value4621fornext_finalvalue4621) break; } fornext_error4621:; if(qbevent){evnt(25224,8063,"ide_methods.bas");if(r)goto S_42281;} do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8064,"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(25224,8065,"ide_methods.bas");}while(r); S_42284:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ if(qbevent){evnt(25224,8067,"ide_methods.bas");if(r)goto S_42284;} do{ return_point[next_return_point++]=54; if (next_return_point>=return_points) more_return_points(); goto LABEL_SHOWLINENUMBER; RETURN_54:; if(!qbevent)break;evnt(25224,8067,"ide_methods.bas");}while(r); } S_42287:; if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ if(qbevent){evnt(25224,8069,"ide_methods.bas");if(r)goto S_42287;} do{ qbg_sub_color( 7 , 4 ,NULL,3); if(!qbevent)break;evnt(25224,8070,"ide_methods.bas");}while(r); S_42289:; }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(25224,8071,"ide_methods.bas");if(r)goto S_42289;} S_42290:; if (((-(*__BYTE_HIDECURRENTLINEHIGHLIGHT== 0 ))&(-(*__LONG_IDESYSTEM== 1 )))||new_error){ if(qbevent){evnt(25224,8072,"ide_methods.bas");if(r)goto S_42290;} do{ qbg_sub_color( 7 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,8072,"ide_methods.bas");}while(r); } }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8074,"ide_methods.bas");}while(r); } } S_42296:; if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,8077,"ide_methods.bas");if(r)goto S_42296;} S_42297:; while((!(-(*_SUB_IDESHOWTEXT_LONG_Lid=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_BYTE_INVALIDLINE[2]&1){ preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; } else preserved_elements=0; __ARRAY_BYTE_INVALIDLINE[4]= 0 ; __ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; __ARRAY_BYTE_INVALIDLINE[6]=1; if (__ARRAY_BYTE_INVALIDLINE[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1); cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); tmp_long=__ARRAY_BYTE_INVALIDLINE[5]; __ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1); if (preserved_elementslen))&(-(*__LONG_IDECX>= 1 ))))||new_error){ if(qbevent){evnt(25224,8086,"ide_methods.bas");if(r)goto S_42304;} do{ *_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8087,"ide_methods.bas");}while(r); S_42306:; if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ if(qbevent){evnt(25224,8088,"ide_methods.bas");if(r)goto S_42306;} S_42307:; 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(25224,8089,"ide_methods.bas");if(r)goto S_42307;} do{ *_SUB_IDESHOWTEXT_LONG_CC= -1 ; if(!qbevent)break;evnt(25224,8089,"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(25224,8095,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT; if(!qbevent)break;evnt(25224,8096,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE; if(!qbevent)break;evnt(25224,8097,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS= 0 ; if(!qbevent)break;evnt(25224,8100,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET1= 0 ; if(!qbevent)break;evnt(25224,8101,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET2= 0 ; if(!qbevent)break;evnt(25224,8102,"ide_methods.bas");}while(r); S_42318:; if (((-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))&(-(*__INTEGER_BRACKETHIGHLIGHT== -1 )))||new_error){ if(qbevent){evnt(25224,8103,"ide_methods.bas");if(r)goto S_42318;} do{ *_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; if(!qbevent)break;evnt(25224,8104,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; if(!qbevent)break;evnt(25224,8105,"ide_methods.bas");}while(r); S_42321:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len("(",1))))||new_error){ if(qbevent){evnt(25224,8106,"ide_methods.bas");if(r)goto S_42321;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; if(!qbevent)break;evnt(25224,8107,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX; if(!qbevent)break;evnt(25224,8108,"ide_methods.bas");}while(r); LABEL_SCANBRACKET2:; if(qbevent){evnt(25224,8109,"ide_methods.bas");r=0;} S_42324:; fornext_value4625=*_SUB_IDESHOWTEXT_LONG_BRACKET1+ 1 ; fornext_finalvalue4625=_SUB_IDESHOWTEXT_STRING_A->len; fornext_step4625= 1 ; if (fornext_step4625<0) fornext_step_negative4625=1; else fornext_step_negative4625=0; if (new_error) goto fornext_error4625; goto fornext_entrylabel4625; while(1){ fornext_value4625=fornext_step4625+(*_SUB_IDESHOWTEXT_LONG_K); fornext_entrylabel4625: *_SUB_IDESHOWTEXT_LONG_K=fornext_value4625; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4625){ if (fornext_value4625fornext_finalvalue4625) break; } fornext_error4625:; if(qbevent){evnt(25224,8110,"ide_methods.bas");if(r)goto S_42324;} S_42325:; qbs_set(sc_4627,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(25224,8111,"ide_methods.bas");if(r)goto S_42325;} S_42326:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4627,func_chr( 34 ))))||new_error){ if(qbevent){evnt(25224,8112,"ide_methods.bas");if(r)goto S_42326;} do{ *_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); if(!qbevent)break;evnt(25224,8113,"ide_methods.bas");}while(r); sc_ec_196_end:; goto sc_4627_end; } S_42328:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4627,qbs_new_txt_len("'",1))))||new_error){ if(qbevent){evnt(25224,8114,"ide_methods.bas");if(r)goto S_42328;} S_42329:; if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ if(qbevent){evnt(25224,8115,"ide_methods.bas");if(r)goto S_42329;} do{ *_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; if(!qbevent)break;evnt(25224,8115,"ide_methods.bas");}while(r); do{ goto fornext_exit_4624; if(!qbevent)break;evnt(25224,8115,"ide_methods.bas");}while(r); } sc_ec_197_end:; goto sc_4627_end; } sc_4627_end:; S_42334:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ if(qbevent){evnt(25224,8117,"ide_methods.bas");if(r)goto S_42334;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; if(!qbevent)break;evnt(25224,8118,"ide_methods.bas");}while(r); S_42336:; if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ if(qbevent){evnt(25224,8119,"ide_methods.bas");if(r)goto S_42336;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKET2=*_SUB_IDESHOWTEXT_LONG_K; if(!qbevent)break;evnt(25224,8119,"ide_methods.bas");}while(r); do{ goto fornext_exit_4624; if(!qbevent)break;evnt(25224,8119,"ide_methods.bas");}while(r); } S_42340:; }else{ if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ if(qbevent){evnt(25224,8120,"ide_methods.bas");if(r)goto S_42340;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; if(!qbevent)break;evnt(25224,8121,"ide_methods.bas");}while(r); } } fornext_continue_4624:; } fornext_exit_4624:; S_42344:; }else{ if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len("(",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ if(qbevent){evnt(25224,8124,"ide_methods.bas");if(r)goto S_42344;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; if(!qbevent)break;evnt(25224,8125,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,8126,"ide_methods.bas");}while(r); do{ goto LABEL_SCANBRACKET2; if(!qbevent)break;evnt(25224,8127,"ide_methods.bas");}while(r); S_42348:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len(")",1)))){ if(qbevent){evnt(25224,8128,"ide_methods.bas");if(r)goto S_42348;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; if(!qbevent)break;evnt(25224,8129,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,8130,"ide_methods.bas");}while(r); LABEL_SCANBRACKET1:; if(qbevent){evnt(25224,8131,"ide_methods.bas");r=0;} S_42351:; fornext_value4629=*_SUB_IDESHOWTEXT_LONG_BRACKET2- 1 ; fornext_finalvalue4629= 1 ; fornext_step4629= -1 ; if (fornext_step4629<0) fornext_step_negative4629=1; else fornext_step_negative4629=0; if (new_error) goto fornext_error4629; goto fornext_entrylabel4629; while(1){ fornext_value4629=fornext_step4629+(*_SUB_IDESHOWTEXT_LONG_K); fornext_entrylabel4629: *_SUB_IDESHOWTEXT_LONG_K=fornext_value4629; if (fornext_step_negative4629){ if (fornext_value4629fornext_finalvalue4629) break; } fornext_error4629:; if(qbevent){evnt(25224,8132,"ide_methods.bas");if(r)goto S_42351;} S_42352:; qbs_set(sc_4630,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(qbevent){evnt(25224,8133,"ide_methods.bas");if(r)goto S_42352;} S_42353:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4630,func_chr( 34 ))))||new_error){ if(qbevent){evnt(25224,8134,"ide_methods.bas");if(r)goto S_42353;} do{ *_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); if(!qbevent)break;evnt(25224,8135,"ide_methods.bas");}while(r); sc_ec_198_end:; goto sc_4630_end; } sc_4630_end:; S_42356:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ if(qbevent){evnt(25224,8137,"ide_methods.bas");if(r)goto S_42356;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; if(!qbevent)break;evnt(25224,8138,"ide_methods.bas");}while(r); S_42358:; if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ if(qbevent){evnt(25224,8139,"ide_methods.bas");if(r)goto S_42358;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; if(!qbevent)break;evnt(25224,8139,"ide_methods.bas");}while(r); do{ goto fornext_exit_4628; if(!qbevent)break;evnt(25224,8139,"ide_methods.bas");}while(r); } S_42362:; }else{ if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ if(qbevent){evnt(25224,8140,"ide_methods.bas");if(r)goto S_42362;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; if(!qbevent)break;evnt(25224,8141,"ide_methods.bas");}while(r); } } fornext_continue_4628:; } fornext_exit_4628:; S_42366:; }else{ if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len(")",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ if(qbevent){evnt(25224,8144,"ide_methods.bas");if(r)goto S_42366;} do{ *_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; if(!qbevent)break;evnt(25224,8145,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX- 1 ; if(!qbevent)break;evnt(25224,8146,"ide_methods.bas");}while(r); do{ goto LABEL_SCANBRACKET1; if(!qbevent)break;evnt(25224,8147,"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(25224,8154,"ide_methods.bas");}while(r); S_42373:; 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(25224,8155,"ide_methods.bas");if(r)goto S_42373;} S_42374:; 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(25224,8163,"ide_methods.bas");if(r)goto S_42374;} do{ *_SUB_IDESHOWTEXT_LONG_RGB_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8164,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Hit Shift+ENTER to open the RGB mixer",42))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8165,"ide_methods.bas");}while(r); do{ *__BYTE_ENTERINGRGB= -1 ; if(!qbevent)break;evnt(25224,8166,"ide_methods.bas");}while(r); } S_42379:; }else{ if (-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 ))){ if(qbevent){evnt(25224,8168,"ide_methods.bas");if(r)goto S_42379;} S_42380:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,1),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,1),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,1),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 8 , 8 ,1),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 4 , 4 ,1),qbs_new_txt_len("RGB(",4)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,1),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,1),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,1),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ if(qbevent){evnt(25224,8176,"ide_methods.bas");if(r)goto S_42380;} S_42381:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX, 1 ,1),0)== 0 )))||new_error){ if(qbevent){evnt(25224,8177,"ide_methods.bas");if(r)goto S_42381;} do{ *__BYTE_ENTERINGRGB= -1 ; if(!qbevent)break;evnt(25224,8177,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDESHOWTEXT_LONG_FINDINCLUDE=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("$INCLUDE",8),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8181,"ide_methods.bas");}while(r); S_42387:; if ((-(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE> 0 ))||new_error){ if(qbevent){evnt(25224,8182,"ide_methods.bas");if(r)goto S_42387;} do{ *_SUB_IDESHOWTEXT_LONG_LINK_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8183,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8184,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8185,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8186,"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(25224,8187,"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(25224,8188,"ide_methods.bas");}while(r); S_42394:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_IDESHOWTEXT_STRING_F)))||new_error){ if(qbevent){evnt(25224,8189,"ide_methods.bas");if(r)goto S_42394;} 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(25224,8189,"ide_methods.bas");}while(r); do{ *__LONG_ACTIVEINCLUDELINK=*__LONG_IDECY; if(!qbevent)break;evnt(25224,8189,"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(25224,8193,"ide_methods.bas");}while(r); do{ sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); if(!qbevent)break;evnt(25224,8194,"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(25224,8196,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; if(!qbevent)break;evnt(25224,8200,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; if(!qbevent)break;evnt(25224,8201,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; if(!qbevent)break;evnt(25224,8202,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 0 ; if(!qbevent)break;evnt(25224,8203,"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(25224,8203,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; if(!qbevent)break;evnt(25224,8204,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH= 0 ; if(!qbevent)break;evnt(25224,8205,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_INTEGER_PREVBG=func__backgroundcolor(NULL,0); if(!qbevent)break;evnt(25224,8206,"ide_methods.bas");}while(r); S_42413:; fornext_value4635= 1 ; fornext_finalvalue4635=_SUB_IDESHOWTEXT_STRING_A2->len; fornext_step4635= 1 ; if (fornext_step4635<0) fornext_step_negative4635=1; else fornext_step_negative4635=0; if (new_error) goto fornext_error4635; goto fornext_entrylabel4635; while(1){ fornext_value4635=fornext_step4635+(*_SUB_IDESHOWTEXT_LONG_M); fornext_entrylabel4635: *_SUB_IDESHOWTEXT_LONG_M=fornext_value4635; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4635){ if (fornext_value4635fornext_finalvalue4635) break; } fornext_error4635:; if(qbevent){evnt(25224,8208,"ide_methods.bas");if(r)goto S_42413;} S_42414:; if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDESHOWTEXT_SINGLE_STARTTIME)> 1 ))||new_error){ if(qbevent){evnt(25224,8209,"ide_methods.bas");if(r)goto S_42414;} 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 locking up the IDE.\\nThis may have been caused by lines that are too long.\\nYou can reenable the Highlighter in the 'Options' menu.",177),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8210,"ide_methods.bas");}while(r); do{ *__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; if(!qbevent)break;evnt(25224,8211,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8212,"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("Disable Syntax #Highlighter",27))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8213,"ide_methods.bas");}while(r); do{ goto LABEL_NOSYNTAXHIGHLIGHTING; if(!qbevent)break;evnt(25224,8214,"ide_methods.bas");}while(r); } S_42421:; if ((-(*_SUB_IDESHOWTEXT_LONG_M>(*__LONG_IDESX+*__LONG_IDEWX- 2 )))||new_error){ if(qbevent){evnt(25224,8216,"ide_methods.bas");if(r)goto S_42421;} do{ goto fornext_exit_4634; if(!qbevent)break;evnt(25224,8216,"ide_methods.bas");}while(r); } S_42424:; 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(25224,8217,"ide_methods.bas");if(r)goto S_42424;} S_42425:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M,__STRING_IDECURRENTSINGLELINESELECTION->len,1)),qbs_lcase(__STRING_IDECURRENTSINGLELINESELECTION))))||new_error){ if(qbevent){evnt(25224,8218,"ide_methods.bas");if(r)goto S_42425;} S_42426:; if ((-(*_SUB_IDESHOWTEXT_LONG_M> 1 ))||new_error){ if(qbevent){evnt(25224,8220,"ide_methods.bas");if(r)goto S_42426;} S_42427:; 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 ,1),0)> 0 )))||new_error){ if(qbevent){evnt(25224,8221,"ide_methods.bas");if(r)goto S_42427;} S_42428:; 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 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ if(qbevent){evnt(25224,8224,"ide_methods.bas");if(r)goto S_42428;} do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8225,"ide_methods.bas");}while(r); S_42430:; }else{ if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ if(qbevent){evnt(25224,8226,"ide_methods.bas");if(r)goto S_42430;} do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8227,"ide_methods.bas");}while(r); } } } }else{ S_42435:; 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 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ if(qbevent){evnt(25224,8233,"ide_methods.bas");if(r)goto S_42435;} do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8234,"ide_methods.bas");}while(r); S_42437:; }else{ if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ if(qbevent){evnt(25224,8235,"ide_methods.bas");if(r)goto S_42437;} do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8236,"ide_methods.bas");}while(r); } } } } } do{ qbs_set(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8242,"ide_methods.bas");}while(r); S_42444:; if ((-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))||new_error){ if(qbevent){evnt(25224,8244,"ide_methods.bas");if(r)goto S_42444;} S_42445:; if(qbevent){evnt(25224,8245,"ide_methods.bas");if(r)goto S_42445;} S_42446:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))||new_error){ if(qbevent){evnt(25224,8246,"ide_methods.bas");if(r)goto S_42446;} do{ *_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); if(!qbevent)break;evnt(25224,8246,"ide_methods.bas");}while(r); sc_ec_199_end:; goto sc_4655_end; } S_42448:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("'",1))))||new_error){ if(qbevent){evnt(25224,8247,"ide_methods.bas");if(r)goto S_42448;} S_42449:; if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ if(qbevent){evnt(25224,8247,"ide_methods.bas");if(r)goto S_42449;} do{ *_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; if(!qbevent)break;evnt(25224,8247,"ide_methods.bas");}while(r); } sc_ec_200_end:; goto sc_4655_end; } sc_4655_end:; } do{ qbg_sub_color( 13 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8251,"ide_methods.bas");}while(r); S_42455:; 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(25224,8253,"ide_methods.bas");if(r)goto S_42455;} do{ qbg_sub_color( 7 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8253,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPSYNTAXHIGHLIGHTER; if(!qbevent)break;evnt(25224,8253,"ide_methods.bas");}while(r); } S_42459:; 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(25224,8255,"ide_methods.bas");if(r)goto S_42459;} S_42460:; 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(25224,8256,"ide_methods.bas");if(r)goto S_42460;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8258,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; if(!qbevent)break;evnt(25224,8259,"ide_methods.bas");}while(r); S_42463:; fornext_value4658=*_SUB_IDESHOWTEXT_LONG_M; fornext_finalvalue4658=_SUB_IDESHOWTEXT_STRING_A2->len; fornext_step4658= 1 ; if (fornext_step4658<0) fornext_step_negative4658=1; else fornext_step_negative4658=0; if (new_error) goto fornext_error4658; goto fornext_entrylabel4658; while(1){ fornext_value4658=fornext_step4658+(*_SUB_IDESHOWTEXT_LONG_I); fornext_entrylabel4658: *_SUB_IDESHOWTEXT_LONG_I=fornext_value4658; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4658){ if (fornext_value4658fornext_finalvalue4658) break; } fornext_error4658:; if(qbevent){evnt(25224,8261,"ide_methods.bas");if(r)goto S_42463;} S_42464:; 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 ,1),0)== 0 )))||new_error){ if(qbevent){evnt(25224,8262,"ide_methods.bas");if(r)goto S_42464;} do{ goto fornext_exit_4657; if(!qbevent)break;evnt(25224,8262,"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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8263,"ide_methods.bas");}while(r); fornext_continue_4657:; } fornext_exit_4657:; S_42469:; 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(25224,8266,"ide_methods.bas");if(r)goto S_42469;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8267,"ide_methods.bas");}while(r); }else{ S_42472:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 )),qbs_new_txt_len("&H",2)))|(qbs_equal(qbs_ucase(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 )),qbs_new_txt_len("&O",2)))|(qbs_equal(qbs_ucase(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 )),qbs_new_txt_len("&B",2)))|(FUNC_ISNUMBER(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD))))||new_error){ if(qbevent){evnt(25224,8269,"ide_methods.bas");if(r)goto S_42472;} do{ *_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; if(!qbevent)break;evnt(25224,8270,"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(25224,8271,"ide_methods.bas");}while(r); } } do{ goto LABEL_SETOLDCHAR; if(!qbevent)break;evnt(25224,8274,"ide_methods.bas");}while(r); } S_42479:; 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(25224,8277,"ide_methods.bas");if(r)goto S_42479;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8279,"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(25224,8280,"ide_methods.bas");}while(r); S_42482:; fornext_value4662=*_SUB_IDESHOWTEXT_LONG_M; fornext_finalvalue4662=_SUB_IDESHOWTEXT_STRING_A2->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+(*_SUB_IDESHOWTEXT_LONG_I); fornext_entrylabel4662: *_SUB_IDESHOWTEXT_LONG_I=fornext_value4662; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4662){ if (fornext_value4662fornext_finalvalue4662) break; } fornext_error4662:; if(qbevent){evnt(25224,8281,"ide_methods.bas");if(r)goto S_42482;} S_42483:; 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 ,1),0)> 0 )))||new_error){ if(qbevent){evnt(25224,8282,"ide_methods.bas");if(r)goto S_42483;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8282,"ide_methods.bas");}while(r); do{ goto fornext_exit_4661; if(!qbevent)break;evnt(25224,8282,"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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8283,"ide_methods.bas");}while(r); fornext_continue_4661:; } fornext_exit_4661:; S_42489:; 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(25224,8285,"ide_methods.bas");if(r)goto S_42489;} do{ *_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 1 ; if(!qbevent)break;evnt(25224,8285,"ide_methods.bas");}while(r); do{ goto LABEL_SETOLDCHAR; if(!qbevent)break;evnt(25224,8285,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8286,"ide_methods.bas");}while(r); S_42494:; 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(25224,8288,"ide_methods.bas");if(r)goto S_42494;} S_42495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END",4))))||new_error){ if(qbevent){evnt(25224,8290,"ide_methods.bas");if(r)goto S_42495;} S_42496:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 7 ,1)),qbs_new_txt_len("$END IF",7))))||new_error){ if(qbevent){evnt(25224,8291,"ide_methods.bas");if(r)goto S_42496;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END IF",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8291,"ide_methods.bas");}while(r); } S_42499:; }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(25224,8294,"ide_methods.bas");if(r)goto S_42499;} do{ *_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; if(!qbevent)break;evnt(25224,8295,"ide_methods.bas");}while(r); S_42501:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS",8)))){ if(qbevent){evnt(25224,8296,"ide_methods.bas");if(r)goto S_42501;} S_42502:; 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(25224,8297,"ide_methods.bas");if(r)goto S_42502;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS:CONSOLE",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8298,"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(25224,8301,"ide_methods.bas");}while(r); S_42507:; }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(25224,8302,"ide_methods.bas");if(r)goto S_42507;} do{ *_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; if(!qbevent)break;evnt(25224,8303,"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(25224,8304,"ide_methods.bas");}while(r); } } } } LABEL_SETOLDCHAR:; if(qbevent){evnt(25224,8308,"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(25224,8309,"ide_methods.bas");}while(r); S_42514:; if (((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))&*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,8311,"ide_methods.bas");if(r)goto S_42514;} S_42515:; if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ if(qbevent){evnt(25224,8312,"ide_methods.bas");if(r)goto S_42515;} do{ qbg_sub_color( 8 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8313,"ide_methods.bas");}while(r); S_42517:; }else{ if (*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD){ if(qbevent){evnt(25224,8314,"ide_methods.bas");if(r)goto S_42517;} do{ qbg_sub_color( 10 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8315,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 12 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8317,"ide_methods.bas");}while(r); } } S_42522:; 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(25224,8319,"ide_methods.bas");if(r)goto S_42522;} do{ *_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; if(!qbevent)break;evnt(25224,8319,"ide_methods.bas");}while(r); } } S_42526:; if ((*_SUB_IDESHOWTEXT_LONG_COMMENT)||new_error){ if(qbevent){evnt(25224,8322,"ide_methods.bas");if(r)goto S_42526;} do{ qbg_sub_color( 11 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8323,"ide_methods.bas");}while(r); S_42528:; if ((qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_METACOMMAND&((qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$INCLUDE",8)))|(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(25224,8325,"ide_methods.bas");if(r)goto S_42528;} do{ qbg_sub_color( 10 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8325,"ide_methods.bas");}while(r); } S_42531:; }else{ if (*_SUB_IDESHOWTEXT_LONG_METACOMMAND){ if(qbevent){evnt(25224,8326,"ide_methods.bas");if(r)goto S_42531;} do{ qbg_sub_color( 10 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8327,"ide_methods.bas");}while(r); S_42533:; }else{ if (qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_INQUOTE|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))){ if(qbevent){evnt(25224,8328,"ide_methods.bas");if(r)goto S_42533;} do{ qbg_sub_color( 14 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8329,"ide_methods.bas");}while(r); } } } LABEL_SKIPSYNTAXHIGHLIGHTER:; if(qbevent){evnt(25224,8332,"ide_methods.bas");r=0;} S_42536:; if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&((((-(*_SUB_IDESHOWTEXT_LONG_LINK_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_LINK_IDECX)))|((-(*_SUB_IDESHOWTEXT_LONG_RGB_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_RGB_IDECX))))))||new_error){ if(qbevent){evnt(25224,8335,"ide_methods.bas");if(r)goto S_42536;} do{ qbg_sub_color( 10 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,8335,"ide_methods.bas");}while(r); } S_42539:; 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(25224,8337,"ide_methods.bas");if(r)goto S_42539;} do{ qbg_sub_color(NULL, 5 ,NULL,2); if(!qbevent)break;evnt(25224,8338,"ide_methods.bas");}while(r); S_42541:; }else{ if ((-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH> 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))){ if(qbevent){evnt(25224,8339,"ide_methods.bas");if(r)goto S_42541;} do{ *_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH- 1 ; if(!qbevent)break;evnt(25224,8340,"ide_methods.bas");}while(r); do{ qbg_sub_color(NULL, 5 ,NULL,2); if(!qbevent)break;evnt(25224,8341,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color(NULL,*_SUB_IDESHOWTEXT_INTEGER_PREVBG,NULL,2); if(!qbevent)break;evnt(25224,8343,"ide_methods.bas");}while(r); } } S_42547:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ if(qbevent){evnt(25224,8346,"ide_methods.bas");if(r)goto S_42547;} S_42548:; 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(25224,8347,"ide_methods.bas");if(r)goto S_42548;} 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(25224,8348,"ide_methods.bas");}while(r); } }else{ S_42552:; if (((-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)>=( 2 )))&(-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)<*__LONG_IDEWX)))||new_error){ if(qbevent){evnt(25224,8351,"ide_methods.bas");if(r)goto S_42552;} 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(25224,8352,"ide_methods.bas");}while(r); } } S_42556:; if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,8357,"ide_methods.bas");if(r)goto S_42556;} do{ qbg_sub_color(NULL, 6 ,NULL,2); if(!qbevent)break;evnt(25224,8357,"ide_methods.bas");}while(r); } S_42559:; if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))||new_error){ if(qbevent){evnt(25224,8358,"ide_methods.bas");if(r)goto S_42559;} do{ *_SUB_IDESHOWTEXT_LONG_ISKEYWORD=*_SUB_IDESHOWTEXT_LONG_ISKEYWORD- 1 ; if(!qbevent)break;evnt(25224,8358,"ide_methods.bas");}while(r); } S_42562:; if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))||new_error){ if(qbevent){evnt(25224,8359,"ide_methods.bas");if(r)goto S_42562;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8359,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; if(!qbevent)break;evnt(25224,8359,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; if(!qbevent)break;evnt(25224,8359,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; if(!qbevent)break;evnt(25224,8359,"ide_methods.bas");}while(r); } fornext_continue_4634:; } fornext_exit_4634:; S_42569:; if (((((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 ))))&(-(*__LONG_IDESELECT!= 0 )))||new_error){ if(qbevent){evnt(25224,8363,"ide_methods.bas");if(r)goto S_42569;} S_42570:; if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ if(qbevent){evnt(25224,8364,"ide_methods.bas");if(r)goto S_42570;} S_42571:; if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,8365,"ide_methods.bas");if(r)goto S_42571;} do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8366,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; if(!qbevent)break;evnt(25224,8367,"ide_methods.bas");}while(r); S_42574:; fornext_value4667= 2 +*__LONG_MAXLINENUMBERLENGTH; fornext_finalvalue4667=(*__LONG_IDEWX- 2 ); fornext_step4667= 1 ; if (fornext_step4667<0) fornext_step_negative4667=1; else fornext_step_negative4667=0; if (new_error) goto fornext_error4667; goto fornext_entrylabel4667; while(1){ fornext_value4667=fornext_step4667+(*_SUB_IDESHOWTEXT_LONG_X); fornext_entrylabel4667: *_SUB_IDESHOWTEXT_LONG_X=fornext_value4667; if (fornext_step_negative4667){ if (fornext_value4667fornext_finalvalue4667) break; } fornext_error4667:; if(qbevent){evnt(25224,8368,"ide_methods.bas");if(r)goto S_42574;} S_42575:; if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ if(qbevent){evnt(25224,8369,"ide_methods.bas");if(r)goto S_42575;} do{ *_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); if(!qbevent)break;evnt(25224,8370,"ide_methods.bas");}while(r); S_42577:; if ((-(*_SUB_IDESHOWTEXT_LONG_A== 63 ))||new_error){ if(qbevent){evnt(25224,8372,"ide_methods.bas");if(r)goto S_42577;} do{ *_SUB_IDESHOWTEXT_LONG_C=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1); if(!qbevent)break;evnt(25224,8373,"ide_methods.bas");}while(r); }else{ do{ *_SUB_IDESHOWTEXT_LONG_C= 1 ; if(!qbevent)break;evnt(25224,8375,"ide_methods.bas");}while(r); } S_42582:; if ((-((*_SUB_IDESHOWTEXT_LONG_C& 15 )== 0 ))||new_error){ if(qbevent){evnt(25224,8377,"ide_methods.bas");if(r)goto S_42582;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8378,"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(25224,8379,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8380,"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(25224,8382,"ide_methods.bas");}while(r); } } do{ *_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,8387,"ide_methods.bas");}while(r); fornext_continue_4666:; } fornext_exit_4666:; do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8389,"ide_methods.bas");}while(r); }else{ S_42594:; if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ if(qbevent){evnt(25224,8391,"ide_methods.bas");if(r)goto S_42594;} do{ goto LABEL_NOFINALSELECT; if(!qbevent)break;evnt(25224,8391,"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(25224,8392,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8393,"ide_methods.bas");}while(r); S_42599:; fornext_value4669=*__LONG_IDESX; fornext_finalvalue4669=*__LONG_IDESX+*__LONG_IDEWX-( 2 +*__LONG_MAXLINENUMBERLENGTH); fornext_step4669= 1 ; if (fornext_step4669<0) fornext_step_negative4669=1; else fornext_step_negative4669=0; if (new_error) goto fornext_error4669; goto fornext_entrylabel4669; while(1){ fornext_value4669=fornext_step4669+(*_SUB_IDESHOWTEXT_LONG_X); fornext_entrylabel4669: *_SUB_IDESHOWTEXT_LONG_X=fornext_value4669; if (fornext_step_negative4669){ if (fornext_value4669fornext_finalvalue4669) break; } fornext_error4669:; if(qbevent){evnt(25224,8395,"ide_methods.bas");if(r)goto S_42599;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1)); if (new_error) goto skip4670; makefit(tqbs); qbs_print(tqbs,0); skip4670: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8396,"ide_methods.bas");}while(r); fornext_continue_4668:; } fornext_exit_4668:; do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8399,"ide_methods.bas");}while(r); LABEL_NOFINALSELECT:; if(qbevent){evnt(25224,8400,"ide_methods.bas");r=0;} } } } do{ *_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; if(!qbevent)break;evnt(25224,8405,"ide_methods.bas");}while(r); fornext_continue_4620:; } fornext_exit_4620:; }else{ LABEL_NOSYNTAXHIGHLIGHTING:; if(qbevent){evnt(25224,8408,"ide_methods.bas");r=0;} do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8410,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; if(!qbevent)break;evnt(25224,8411,"ide_methods.bas");}while(r); S_42611:; fornext_value4672= 0 ; fornext_finalvalue4672=(*__LONG_IDEWY- 9 ); fornext_step4672= 1 ; if (fornext_step4672<0) fornext_step_negative4672=1; else fornext_step_negative4672=0; if (new_error) goto fornext_error4672; goto fornext_entrylabel4672; while(1){ fornext_value4672=fornext_step4672+(*_SUB_IDESHOWTEXT_LONG_Y); fornext_entrylabel4672: *_SUB_IDESHOWTEXT_LONG_Y=fornext_value4672; if (fornext_step_negative4672){ if (fornext_value4672fornext_finalvalue4672) break; } fornext_error4672:; if(qbevent){evnt(25224,8412,"ide_methods.bas");if(r)goto S_42611;} do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8413,"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(25224,8414,"ide_methods.bas");}while(r); S_42614:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ if(qbevent){evnt(25224,8416,"ide_methods.bas");if(r)goto S_42614;} do{ return_point[next_return_point++]=55; if (next_return_point>=return_points) more_return_points(); goto LABEL_SHOWLINENUMBER; RETURN_55:; if(!qbevent)break;evnt(25224,8416,"ide_methods.bas");}while(r); } S_42617:; if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ if(qbevent){evnt(25224,8418,"ide_methods.bas");if(r)goto S_42617;} do{ qbg_sub_color( 13 , 4 ,NULL,3); if(!qbevent)break;evnt(25224,8418,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8418,"ide_methods.bas");}while(r); } S_42622:; if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,8420,"ide_methods.bas");if(r)goto S_42622;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8421,"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(25224,8422,"ide_methods.bas");}while(r); do{ sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); if(!qbevent)break;evnt(25224,8423,"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(25224,8424,"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(25224,8426,"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(25224,8428,"ide_methods.bas");}while(r); S_42631:; if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,8430,"ide_methods.bas");if(r)goto S_42631;} S_42632:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ if(qbevent){evnt(25224,8431,"ide_methods.bas");if(r)goto S_42632;} do{ *_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8432,"ide_methods.bas");}while(r); S_42634:; if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ if(qbevent){evnt(25224,8433,"ide_methods.bas");if(r)goto S_42634;} S_42635:; 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(25224,8434,"ide_methods.bas");if(r)goto S_42635;} do{ *_SUB_IDESHOWTEXT_LONG_CC= -1 ; if(!qbevent)break;evnt(25224,8434,"ide_methods.bas");}while(r); } } } } S_42641:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,8440,"ide_methods.bas");if(r)goto S_42641;} S_42642:; if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ if(qbevent){evnt(25224,8441,"ide_methods.bas");if(r)goto S_42642;} S_42643:; if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,8442,"ide_methods.bas");if(r)goto S_42643;} do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8443,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; if(!qbevent)break;evnt(25224,8444,"ide_methods.bas");}while(r); S_42646:; fornext_value4675= 2 +*__LONG_MAXLINENUMBERLENGTH; fornext_finalvalue4675=(*__LONG_IDEWX- 2 ); fornext_step4675= 1 ; if (fornext_step4675<0) fornext_step_negative4675=1; else fornext_step_negative4675=0; if (new_error) goto fornext_error4675; goto fornext_entrylabel4675; while(1){ fornext_value4675=fornext_step4675+(*_SUB_IDESHOWTEXT_LONG_X); fornext_entrylabel4675: *_SUB_IDESHOWTEXT_LONG_X=fornext_value4675; if (fornext_step_negative4675){ if (fornext_value4675fornext_finalvalue4675) break; } fornext_error4675:; if(qbevent){evnt(25224,8445,"ide_methods.bas");if(r)goto S_42646;} S_42647:; if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ if(qbevent){evnt(25224,8446,"ide_methods.bas");if(r)goto S_42647;} do{ *_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); if(!qbevent)break;evnt(25224,8447,"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(25224,8447,"ide_methods.bas");}while(r); } do{ *_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,8449,"ide_methods.bas");}while(r); fornext_continue_4674:; } fornext_exit_4674:; do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8451,"ide_methods.bas");}while(r); }else{ S_42655:; if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ if(qbevent){evnt(25224,8453,"ide_methods.bas");if(r)goto S_42655;} do{ goto LABEL_NOFINALSELECT0; if(!qbevent)break;evnt(25224,8453,"ide_methods.bas");}while(r); } do{ qbg_sub_color( 1 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,8454,"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(25224,8454,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8455,"ide_methods.bas");}while(r); LABEL_NOFINALSELECT0:; if(qbevent){evnt(25224,8456,"ide_methods.bas");r=0;} } } } do{ *_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; if(!qbevent)break;evnt(25224,8461,"ide_methods.bas");}while(r); fornext_continue_4671:; } fornext_exit_4671:; } do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,8465,"ide_methods.bas");}while(r); S_42668:; fornext_value4677= 1 ; fornext_finalvalue4677=*__LONG_IDEBMKN; fornext_step4677= 1 ; if (fornext_step4677<0) fornext_step_negative4677=1; else fornext_step_negative4677=0; if (new_error) goto fornext_error4677; goto fornext_entrylabel4677; while(1){ fornext_value4677=fornext_step4677+(*_SUB_IDESHOWTEXT_LONG_B); fornext_entrylabel4677: *_SUB_IDESHOWTEXT_LONG_B=fornext_value4677; if (fornext_step_negative4677){ if (fornext_value4677fornext_finalvalue4677) break; } fornext_error4677:; if(qbevent){evnt(25224,8466,"ide_methods.bas");if(r)goto S_42668;} 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(25224,8467,"ide_methods.bas");}while(r); S_42670:; if (((-(*_SUB_IDESHOWTEXT_LONG_Y>=*__LONG_IDESY))&(-(*_SUB_IDESHOWTEXT_LONG_Y<=(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ if(qbevent){evnt(25224,8468,"ide_methods.bas");if(r)goto S_42670;} 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(25224,8469,"ide_methods.bas");}while(r); } fornext_continue_4676:; } fornext_exit_4676:; do{ *_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4678= 3 ),&(pass4679=(*__LONG_IDEWY- 8 )),__LONG_IDECY,__LONG_IDEN); if(!qbevent)break;evnt(25224,8473,"ide_methods.bas");}while(r); do{ *_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEHBAR(&(pass4680= 2 ),&(pass4681=(*__LONG_IDEWY- 5 )),&(pass4682=(*__LONG_IDEWX- 2 )),__LONG_IDESX,&(pass4683= 608 )); if(!qbevent)break;evnt(25224,8474,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,8477,"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(25224,8478,"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(25224,8479,"ide_methods.bas");}while(r); do{ sub_rset(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECY)))); if(!qbevent)break;evnt(25224,8480,"ide_methods.bas");}while(r); S_42680:; if ((-(*__LONG_IDECX< 100000 ))||new_error){ if(qbevent){evnt(25224,8481,"ide_methods.bas");if(r)goto S_42680;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_B,func_space( 10 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8482,"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(25224,8483,"ide_methods.bas");}while(r); S_42683:; if ((-(*_SUB_IDESHOWTEXT_LONG_CC!= -1 ))||new_error){ if(qbevent){evnt(25224,8484,"ide_methods.bas");if(r)goto S_42683;} 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(25224,8484,"ide_methods.bas");}while(r); } do{ sub_lset(_SUB_IDESHOWTEXT_STRING_B,_SUB_IDESHOWTEXT_STRING_C); if(!qbevent)break;evnt(25224,8485,"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(25224,8487,"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(25224,8488,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8490,"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(25224,8490,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8490,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,8492,"ide_methods.bas");}while(r); LABEL_SHOWLINENUMBER:; if(qbevent){evnt(25224,8493,"ide_methods.bas");r=0;} S_42694:; if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ if(qbevent){evnt(25224,8494,"ide_methods.bas");if(r)goto S_42694;} do{ qbg_sub_color(NULL, 6 ,NULL,2); if(!qbevent)break;evnt(25224,8494,"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(25224,8495,"ide_methods.bas");}while(r); S_42698:; if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,8496,"ide_methods.bas");if(r)goto S_42698;} do{ qbs_set(_SUB_IDESHOWTEXT_STRING_L2,qbs_str((int32)(*_SUB_IDESHOWTEXT_LONG_L))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8497,"ide_methods.bas");}while(r); S_42700:; if ((qbs_cleanup(qbs_tmp_base,-(( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ))>=( 2 ))))||new_error){ if(qbevent){evnt(25224,8498,"ide_methods.bas");if(r)goto S_42700;} 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(25224,8499,"ide_methods.bas");}while(r); } } S_42704:; if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ if(qbevent){evnt(25224,8502,"ide_methods.bas");if(r)goto S_42704;} 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(25224,8502,"ide_methods.bas");}while(r); } do{ qbg_sub_color(NULL, 1 ,NULL,2); if(!qbevent)break;evnt(25224,8503,"ide_methods.bas");}while(r); do{ #include "ret148.txt" if(!qbevent)break;evnt(25224,8504,"ide_methods.bas");}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; } 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,8511,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,8512,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8513,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8514,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,8515,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDESUBS_ARRAY_UDT_O[4]= 1 ; _FUNC_IDESUBS_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESUBS_ARRAY_UDT_O[4]+1; _FUNC_IDESUBS_ARRAY_UDT_O[6]=1; if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){ _FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0]),0,_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESUBS_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,8516,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,8517,"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(25224,8518,"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(25224,8522,"ide_methods.bas");}while(r); S_42718:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||new_error){ if(qbevent){evnt(25224,8523,"ide_methods.bas");if(r)goto S_42718;} S_42719:; 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(25224,8524,"ide_methods.bas");if(r)goto S_42719;} 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(25224,8525,"ide_methods.bas");}while(r); dl_continue_4687:; } dl_exit_4687:; } do{ qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8531,"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(25224,8532,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ; if(!qbevent)break;evnt(25224,8533,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ; if(!qbevent)break;evnt(25224,8534,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; if(!qbevent)break;evnt(25224,8535,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ; if(!qbevent)break;evnt(25224,8536,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8537,"ide_methods.bas");}while(r); S_42730:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,8538,"ide_methods.bas");if(r)goto S_42730;} 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(25224,8538,"ide_methods.bas");}while(r); } S_42733:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_L->len<= 22 )))||new_error){ if(qbevent){evnt(25224,8540,"ide_methods.bas");if(r)goto S_42733;} do{ qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space( 22 -_FUNC_IDESUBS_STRING_L->len))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8541,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L, 19 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8543,"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(25224,8546,"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(25224,8547,"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(25224,8548,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id); if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); }else{ free((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); } } _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]= 0 ; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=( 0 )-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]+1; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=1; if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4); memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4); }else{ _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4,1); if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257); } _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1; } if(!qbevent)break;evnt(25224,8550,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ; if(!qbevent)break;evnt(25224,8552,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; if(!qbevent)break;evnt(25224,8553,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; if(!qbevent)break;evnt(25224,8554,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; if(!qbevent)break;evnt(25224,8555,"ide_methods.bas");}while(r); S_42746:; fornext_value4692= 1 ; fornext_finalvalue4692=*__LONG_IDEN; fornext_step4692= 1 ; if (fornext_step4692<0) fornext_step_negative4692=1; else fornext_step_negative4692=0; if (new_error) goto fornext_error4692; goto fornext_entrylabel4692; while(1){ fornext_value4692=fornext_step4692+(*_FUNC_IDESUBS_LONG_Y); fornext_entrylabel4692: *_FUNC_IDESUBS_LONG_Y=fornext_value4692; if (fornext_step_negative4692){ if (fornext_value4692fornext_finalvalue4692) break; } fornext_error4692:; if(qbevent){evnt(25224,8557,"ide_methods.bas");if(r)goto S_42746;} do{ qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8558,"ide_methods.bas");}while(r); S_42748:; if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ if(qbevent){evnt(25224,8559,"ide_methods.bas");if(r)goto S_42748;} do{ *_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; if(!qbevent)break;evnt(25224,8559,"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(25224,8560,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SF= 0 ; if(!qbevent)break;evnt(25224,8561,"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(25224,8562,"ide_methods.bas");}while(r); S_42754:; 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(25224,8563,"ide_methods.bas");if(r)goto S_42754;} do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ; if(!qbevent)break;evnt(25224,8563,"ide_methods.bas");}while(r); } S_42757:; 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(25224,8564,"ide_methods.bas");if(r)goto S_42757;} do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; if(!qbevent)break;evnt(25224,8564,"ide_methods.bas");}while(r); } S_42760:; 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(25224,8565,"ide_methods.bas");if(r)goto S_42760;} do{ *_FUNC_IDESUBS_LONG_SF= 1 ; if(!qbevent)break;evnt(25224,8565,"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(25224,8565,"ide_methods.bas");}while(r); } S_42764:; 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(25224,8566,"ide_methods.bas");if(r)goto S_42764;} do{ *_FUNC_IDESUBS_LONG_SF= 2 ; if(!qbevent)break;evnt(25224,8566,"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(25224,8566,"ide_methods.bas");}while(r); } S_42768:; if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ if(qbevent){evnt(25224,8567,"ide_methods.bas");if(r)goto S_42768;} S_42769:; 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(25224,8568,"ide_methods.bas");if(r)goto S_42769;} 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(25224,8569,"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(25224,8571,"ide_methods.bas");}while(r); S_42773:; if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||new_error){ if(qbevent){evnt(25224,8575,"ide_methods.bas");if(r)goto S_42773;} do{ *_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8576,"ide_methods.bas");}while(r); } S_42776:; if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||new_error){ if(qbevent){evnt(25224,8580,"ide_methods.bas");if(r)goto S_42776;} 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(25224,8581,"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(25224,8583,"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(25224,8585,"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(25224,8586,"ide_methods.bas");}while(r); S_42783:; if ((*_FUNC_IDESUBS_LONG_X)||new_error){ if(qbevent){evnt(25224,8587,"ide_methods.bas");if(r)goto S_42783;} 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(25224,8588,"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(25224,8589,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len(")",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8590,"ide_methods.bas");}while(r); S_42787:; if ((*_FUNC_IDESUBS_LONG_X)||new_error){ if(qbevent){evnt(25224,8590,"ide_methods.bas");if(r)goto S_42787;} do{ qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8590,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8592,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8593,"ide_methods.bas");}while(r); do{ SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8595,"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(25224,8600,"ide_methods.bas");}while(r); S_42796:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||new_error){ if(qbevent){evnt(25224,8601,"ide_methods.bas");if(r)goto S_42796;} S_42797:; 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(25224,8602,"ide_methods.bas");if(r)goto S_42797;} 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(25224,8603,"ide_methods.bas");}while(r); dl_continue_4699:; } dl_exit_4699:; } S_42801:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||new_error){ if(qbevent){evnt(25224,8606,"ide_methods.bas");if(r)goto S_42801;} do{ *_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8606,"ide_methods.bas");}while(r); } S_42804:; if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||new_error){ if(qbevent){evnt(25224,8608,"ide_methods.bas");if(r)goto S_42804;} 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(25224,8609,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ; if(!qbevent)break;evnt(25224,8610,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; if(!qbevent)break;evnt(25224,8612,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; if(!qbevent)break;evnt(25224,8613,"ide_methods.bas");}while(r); } S_42811:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS== 0 ))||new_error){ if(qbevent){evnt(25224,8616,"ide_methods.bas");if(r)goto S_42811;} 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(25224,8617,"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(25224,8618,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len(" Line count Type Arguments",28)),_FUNC_IDESUBS_STRING1_SEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8619,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len(" Line count Type Arguments",28))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8620,"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_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8622,"ide_methods.bas");}while(r); S_42818:; if ((*_FUNC_IDESUBS_LONG_PINSIDEDECLARE)||new_error){ if(qbevent){evnt(25224,8623,"ide_methods.bas");if(r)goto S_42818;} do{ qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_new_txt_len("external",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8623,"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_PN),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),func_space( 9 -_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_PSF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_PARGS),_FUNC_IDESUBS_STRING1_SEP)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8626,"ide_methods.bas");}while(r); } S_42823:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len<= 20 )))||new_error){ if(qbevent){evnt(25224,8629,"ide_methods.bas");if(r)goto S_42823;} do{ qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space( 20 -_FUNC_IDESUBS_STRING_N->len))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8630,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N, 17 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8632,"ide_methods.bas");}while(r); } S_42828:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||new_error){ if(qbevent){evnt(25224,8634,"ide_methods.bas");if(r)goto S_42828;} 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(25224,8635,"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(25224,8637,"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(25224,8640,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_PSF,_FUNC_IDESUBS_STRING_SF); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8641,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_PN,_FUNC_IDESUBS_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8642,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_PARGS,_FUNC_IDESUBS_STRING_ARGS); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8643,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_PINSIDEDECLARE=*_FUNC_IDESUBS_LONG_INSIDEDECLARE; if(!qbevent)break;evnt(25224,8644,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ; if(!qbevent)break;evnt(25224,8647,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_LISTITEMLENGTH=((int32)(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len(" ",1)),_FUNC_IDESUBS_STRING_SF),_FUNC_IDESUBS_STRING_ARGS))->len); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8648,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){ preserved_elements=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]; } else preserved_elements=0; _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]= 1 ; _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]+1; _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=1; if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),preserved_elements*998); cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); tmp_long=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]; _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*998); memcpy((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),redim_preserve_cmem_buffer,preserved_elements*998); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){ preserved_elements=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]; } else preserved_elements=0; _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]= 1 ; _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]+1; _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=1; if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),preserved_elements*998); cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); tmp_long=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]; _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*998); memcpy((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),redim_preserve_cmem_buffer,preserved_elements*998); if (preserved_elementsid=(++mem_lock_id); static int32 preserved_elements; if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ preserved_elements=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; } else preserved_elements=0; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]= 0 ; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]+1; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=1; if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); tmp_long=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elements 0 ))||new_error){ if(qbevent){evnt(25224,8659,"ide_methods.bas");if(r)goto S_42849;} 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(25224,8660,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8661,"ide_methods.bas");}while(r); dl_continue_4707:; } dl_exit_4707:; do{ *_FUNC_IDESUBS_LONG_CURSOR= 0 ; if(!qbevent)break;evnt(25224,8664,"ide_methods.bas");}while(r); LABEL_LOOKFORENDSUB:; if(qbevent){evnt(25224,8665,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8666,"ide_methods.bas");}while(r); S_42855:; if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||new_error){ if(qbevent){evnt(25224,8667,"ide_methods.bas");if(r)goto S_42855;} do{ *_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8667,"ide_methods.bas");}while(r); } S_42858:; if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ if(qbevent){evnt(25224,8669,"ide_methods.bas");if(r)goto S_42858;} do{ if(!qbevent)break;evnt(25224,8670,"ide_methods.bas");}while(r); 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(25224,8671,"ide_methods.bas");}while(r); S_42861:; if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||new_error){ if(qbevent){evnt(25224,8672,"ide_methods.bas");if(r)goto S_42861;} do{ *_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF; if(!qbevent)break;evnt(25224,8672,"ide_methods.bas");}while(r); do{ goto LABEL_LOOKFORENDSUB; if(!qbevent)break;evnt(25224,8672,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_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(25224,8673,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SUBCLOSED= -1 ; if(!qbevent)break;evnt(25224,8674,"ide_methods.bas");}while(r); } } fornext_continue_4691:; } fornext_exit_4691:; do{ tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_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(25224,8679,"ide_methods.bas");}while(r); S_42871:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))||new_error){ if(qbevent){evnt(25224,8680,"ide_methods.bas");if(r)goto S_42871;} do{ qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8681,"ide_methods.bas");}while(r); S_42873:; if ((*_FUNC_IDESUBS_LONG_PINSIDEDECLARE)||new_error){ if(qbevent){evnt(25224,8682,"ide_methods.bas");if(r)goto S_42873;} do{ qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_new_txt_len("external",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8682,"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(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_PN),qbs_new_txt_len(" ",2)),func_space( 9 -_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_PSF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_PARGS)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8685,"ide_methods.bas");}while(r); } 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(25224,8688,"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(25224,8689,"ide_methods.bas");}while(r); S_42880:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ if(qbevent){evnt(25224,8691,"ide_methods.bas");if(r)goto S_42880;} do{ SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8692,"ide_methods.bas");}while(r); S_42882:; fornext_value4710= 1 ; fornext_finalvalue4710=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4710= 1 ; if (fornext_step4710<0) fornext_step_negative4710=1; else fornext_step_negative4710=0; if (new_error) goto fornext_error4710; goto fornext_entrylabel4710; while(1){ fornext_value4710=fornext_step4710+(*_FUNC_IDESUBS_LONG_X); fornext_entrylabel4710: *_FUNC_IDESUBS_LONG_X=fornext_value4710; if (fornext_step_negative4710){ if (fornext_value4710fornext_finalvalue4710) break; } fornext_error4710:; if(qbevent){evnt(25224,8694,"ide_methods.bas");if(r)goto S_42882;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8695,"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 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8696,"ide_methods.bas");}while(r); S_42885:; fornext_value4714= 1 ; fornext_finalvalue4714=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4714= 1 ; if (fornext_step4714<0) fornext_step_negative4714=1; else fornext_step_negative4714=0; if (new_error) goto fornext_error4714; goto fornext_entrylabel4714; while(1){ fornext_value4714=fornext_step4714+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP); fornext_entrylabel4714: *_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value4714; if (fornext_step_negative4714){ if (fornext_value4714fornext_finalvalue4714) break; } fornext_error4714:; if(qbevent){evnt(25224,8697,"ide_methods.bas");if(r)goto S_42885;} S_42886:; 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 ,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 ,1))))||new_error){ if(qbevent){evnt(25224,8698,"ide_methods.bas");if(r)goto S_42886;} 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(25224,8699,"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(25224,8700,"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(25224,8702,"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(25224,8704,"ide_methods.bas");}while(r); S_42891:; 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(25224,8705,"ide_methods.bas");if(r)goto S_42891;} do{ qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_new_txt_len("external",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8705,"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(25224,8706,"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( 9 -_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(25224,8709,"ide_methods.bas");}while(r); do{ goto fornext_exit_4713; if(!qbevent)break;evnt(25224,8710,"ide_methods.bas");}while(r); } fornext_continue_4713:; } fornext_exit_4713:; fornext_continue_4709:; } fornext_exit_4709:; 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(25224,8715,"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(25224,8716,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; if(!qbevent)break;evnt(25224,8717,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ; if(!qbevent)break;evnt(25224,8719,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_I= 0 ; if(!qbevent)break;evnt(25224,8723,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) ),&(pass4718=*__LONG_IDEWX- 8 ),&(pass4719=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("SUBs",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8724,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,8726,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,8727,"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]))*85+24))= 1 ; if(!qbevent)break;evnt(25224,8728,"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]))*85+28))=*__LONG_IDEWX- 12 ; if(!qbevent)break;evnt(25224,8730,"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]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; if(!qbevent)break;evnt(25224,8730,"ide_methods.bas");}while(r); S_42913:; if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ if(qbevent){evnt(25224,8731,"ide_methods.bas");if(r)goto S_42913;} S_42914:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8732,"ide_methods.bas");if(r)goto S_42914;} 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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED); if(!qbevent)break;evnt(25224,8733,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L); if(!qbevent)break;evnt(25224,8735,"ide_methods.bas");}while(r); } S_42919:; if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ if(qbevent){evnt(25224,8738,"ide_methods.bas");if(r)goto S_42919;} 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]))*85+64))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC; if(!qbevent)break;evnt(25224,8739,"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]))*85+64))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC; if(!qbevent)break;evnt(25224,8741,"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]))*85+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(25224,8744,"ide_methods.bas");}while(r); S_42926:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8745,"ide_methods.bas");if(r)goto S_42926;} 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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED); if(!qbevent)break;evnt(25224,8746,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED); if(!qbevent)break;evnt(25224,8748,"ide_methods.bas");}while(r); } S_42931:; if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ if(qbevent){evnt(25224,8750,"ide_methods.bas");if(r)goto S_42931;} S_42932:; fornext_value4721= 1 ; fornext_finalvalue4721=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4721= 1 ; if (fornext_step4721<0) fornext_step_negative4721=1; else fornext_step_negative4721=0; if (new_error) goto fornext_error4721; goto fornext_entrylabel4721; while(1){ fornext_value4721=fornext_step4721+(*_FUNC_IDESUBS_LONG_X); fornext_entrylabel4721: *_FUNC_IDESUBS_LONG_X=fornext_value4721; if (fornext_step_negative4721){ if (fornext_value4721fornext_finalvalue4721) break; } fornext_error4721:; if(qbevent){evnt(25224,8751,"ide_methods.bas");if(r)goto S_42932;} S_42933:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,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 ,1))))||new_error){ if(qbevent){evnt(25224,8752,"ide_methods.bas");if(r)goto S_42933;} 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]))*85+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,8753,"ide_methods.bas");}while(r); do{ goto fornext_exit_4720; if(!qbevent)break;evnt(25224,8754,"ide_methods.bas");}while(r); } fornext_continue_4720:; } fornext_exit_4720:; }else{ S_42939:; fornext_value4724= 1 ; fornext_finalvalue4724=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4724= 1 ; if (fornext_step4724<0) fornext_step_negative4724=1; else fornext_step_negative4724=0; if (new_error) goto fornext_error4724; goto fornext_entrylabel4724; while(1){ fornext_value4724=fornext_step4724+(*_FUNC_IDESUBS_LONG_X); fornext_entrylabel4724: *_FUNC_IDESUBS_LONG_X=fornext_value4724; if (fornext_step_negative4724){ if (fornext_value4724fornext_finalvalue4724) break; } fornext_error4724:; if(qbevent){evnt(25224,8758,"ide_methods.bas");if(r)goto S_42939;} S_42940:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,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 ,1))))||new_error){ if(qbevent){evnt(25224,8759,"ide_methods.bas");if(r)goto S_42940;} 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]))*85+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,8760,"ide_methods.bas");}while(r); do{ goto fornext_exit_4723; if(!qbevent)break;evnt(25224,8761,"ide_methods.bas");}while(r); } fornext_continue_4723:; } fornext_exit_4723:; } } 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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13)); if(!qbevent)break;evnt(25224,8766,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,8768,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,8769,"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]))*85+20))= 2 ; if(!qbevent)break;evnt(25224,8770,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,8771,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Show #Line Count",16)); if(!qbevent)break;evnt(25224,8772,"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]))*85+64))=*__BYTE_IDESUBSLENGTH; if(!qbevent)break;evnt(25224,8773,"ide_methods.bas");}while(r); S_42954:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ if(qbevent){evnt(25224,8775,"ide_methods.bas");if(r)goto S_42954;} do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,8776,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,8777,"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]))*85+20))= 22 ; if(!qbevent)break;evnt(25224,8778,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,8779,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sorted A-Z",11)); if(!qbevent)break;evnt(25224,8780,"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]))*85+64))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; if(!qbevent)break;evnt(25224,8781,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,8784,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,8785,"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]))*85+20))=*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(8))- 30 ; if(!qbevent)break;evnt(25224,8786,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,8787,"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]))*85+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(25224,8788,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,8789,"ide_methods.bas");}while(r); S_42968:; fornext_value4727= 1 ; fornext_finalvalue4727= 100 ; fornext_step4727= 1 ; if (fornext_step4727<0) fornext_step_negative4727=1; else fornext_step_negative4727=0; if (new_error) goto fornext_error4727; goto fornext_entrylabel4727; while(1){ fornext_value4727=fornext_step4727+(*_FUNC_IDESUBS_LONG_I); fornext_entrylabel4727: *_FUNC_IDESUBS_LONG_I=fornext_value4727; if (fornext_step_negative4727){ if (fornext_value4727fornext_finalvalue4727) break; } fornext_error4727:; if(qbevent){evnt(25224,8795,"ide_methods.bas");if(r)goto S_42968;} 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]))*85)+ 0,((char*)_FUNC_IDESUBS_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,8795,"ide_methods.bas");}while(r); fornext_continue_4726:; } fornext_exit_4726:; S_42971:; do{ if(qbevent){evnt(25224,8798,"ide_methods.bas");if(r)goto S_42971;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,8801,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_F= 1 ; if(!qbevent)break;evnt(25224,8802,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,8802,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,8802,"ide_methods.bas");}while(r); S_42976:; fornext_value4730= 1 ; fornext_finalvalue4730= 100 ; fornext_step4730= 1 ; if (fornext_step4730<0) fornext_step_negative4730=1; else fornext_step_negative4730=0; if (new_error) goto fornext_error4730; goto fornext_entrylabel4730; while(1){ fornext_value4730=fornext_step4730+(*_FUNC_IDESUBS_LONG_I); fornext_entrylabel4730: *_FUNC_IDESUBS_LONG_I=fornext_value4730; if (fornext_step_negative4730){ if (fornext_value4730fornext_finalvalue4730) break; } fornext_error4730:; if(qbevent){evnt(25224,8803,"ide_methods.bas");if(r)goto S_42976;} S_42977:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,8804,"ide_methods.bas");if(r)goto S_42977;} 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]))*85+60))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; if(!qbevent)break;evnt(25224,8807,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,8808,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,8808,"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]))*85) ),_FUNC_IDESUBS_LONG_F); if(!qbevent)break;evnt(25224,8809,"ide_methods.bas");}while(r); S_42982:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,8810,"ide_methods.bas");if(r)goto S_42982;} 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]))*85+52)); if(!qbevent)break;evnt(25224,8810,"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]))*85+56)); if(!qbevent)break;evnt(25224,8810,"ide_methods.bas");}while(r); } } fornext_continue_4729:; } fornext_exit_4729:; do{ *_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ; if(!qbevent)break;evnt(25224,8813,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,8820,"ide_methods.bas");}while(r); S_42990:; if ((*_FUNC_IDESUBS_LONG_CX)||new_error){ if(qbevent){evnt(25224,8821,"ide_methods.bas");if(r)goto S_42990;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8821,"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(25224,8821,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8821,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,8824,"ide_methods.bas");}while(r); S_42996:; do{ if(qbevent){evnt(25224,8825,"ide_methods.bas");if(r)goto S_42996;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,8826,"ide_methods.bas");}while(r); S_42998:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,8827,"ide_methods.bas");if(r)goto S_42998;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8827,"ide_methods.bas");}while(r); } S_43001:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,8828,"ide_methods.bas");if(r)goto S_43001;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8828,"ide_methods.bas");}while(r); } S_43004:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,8829,"ide_methods.bas");if(r)goto S_43004;} do{ *_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,8829,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8829,"ide_methods.bas");}while(r); } S_43008:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,8830,"ide_methods.bas");if(r)goto S_43008;} do{ *_FUNC_IDESUBS_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,8830,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8830,"ide_methods.bas");}while(r); } S_43012:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,8831,"ide_methods.bas");if(r)goto S_43012;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8831,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,8832,"ide_methods.bas");}while(r); S_43016:; if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,8832,"ide_methods.bas");if(r)goto S_43016;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,8832,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT; if(!qbevent)break;evnt(25224,8833,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,8834,"ide_methods.bas");}while(r); S_43021:; dl_continue_4731:; }while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!new_error)); dl_exit_4731:; if(qbevent){evnt(25224,8835,"ide_methods.bas");if(r)goto S_43021;} S_43022:; if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,8836,"ide_methods.bas");if(r)goto S_43022;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,8836,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,8836,"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(25224,8838,"ide_methods.bas");}while(r); S_43028:; if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,8839,"ide_methods.bas");if(r)goto S_43028;} S_43029:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,8840,"ide_methods.bas");if(r)goto S_43029;} do{ *_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8841,"ide_methods.bas");}while(r); S_43031:; if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,8842,"ide_methods.bas");if(r)goto S_43031;} do{ qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8842,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8845,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,8845,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8845,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,8849,"ide_methods.bas");}while(r); S_43040:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,8850,"ide_methods.bas");if(r)goto S_43040;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8850,"ide_methods.bas");}while(r); } S_43043:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,8851,"ide_methods.bas");if(r)goto S_43043;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,8851,"ide_methods.bas");}while(r); } S_43046:; 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(25224,8852,"ide_methods.bas");if(r)goto S_43046;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,8852,"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(25224,8852,"ide_methods.bas");}while(r); } S_43050:; if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,8853,"ide_methods.bas");if(r)goto S_43050;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,8853,"ide_methods.bas");}while(r); } S_43053:; if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,8854,"ide_methods.bas");if(r)goto S_43053;} do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8854,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_F= 1 ; if(!qbevent)break;evnt(25224,8855,"ide_methods.bas");}while(r); S_43057:; fornext_value4734= 1 ; fornext_finalvalue4734= 100 ; fornext_step4734= 1 ; if (fornext_step4734<0) fornext_step_negative4734=1; else fornext_step_negative4734=0; if (new_error) goto fornext_error4734; goto fornext_entrylabel4734; while(1){ fornext_value4734=fornext_step4734+(*_FUNC_IDESUBS_LONG_I); fornext_entrylabel4734: *_FUNC_IDESUBS_LONG_I=fornext_value4734; if (fornext_step_negative4734){ if (fornext_value4734fornext_finalvalue4734) break; } fornext_error4734:; if(qbevent){evnt(25224,8856,"ide_methods.bas");if(r)goto S_43057;} 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]))*85+36)); if(!qbevent)break;evnt(25224,8857,"ide_methods.bas");}while(r); S_43059:; if ((*_FUNC_IDESUBS_LONG_T)||new_error){ if(qbevent){evnt(25224,8858,"ide_methods.bas");if(r)goto S_43059;} do{ *_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; if(!qbevent)break;evnt(25224,8859,"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]))*85) ),_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(25224,8860,"ide_methods.bas");}while(r); } fornext_continue_4733:; } fornext_exit_4733:; S_43064:; 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(25224,8865,"ide_methods.bas");if(r)goto S_43064;} do{ qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8866,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=56; if (next_return_point>=return_points) more_return_points(); goto LABEL_SAVESORTSETTINGS; RETURN_56:; if(!qbevent)break;evnt(25224,8867,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,8868,"ide_methods.bas");}while(r); } S_43069:; 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(25224,8871,"ide_methods.bas");if(r)goto S_43069;} 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]))*85+64)); if(!qbevent)break;evnt(25224,8872,"ide_methods.bas");}while(r); S_43071:; if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||new_error){ if(qbevent){evnt(25224,8873,"ide_methods.bas");if(r)goto S_43071;} do{ *_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y); if(!qbevent)break;evnt(25224,8873,"ide_methods.bas");}while(r); } do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,8874,"ide_methods.bas");}while(r); S_43075:; if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ if(qbevent){evnt(25224,8875,"ide_methods.bas");if(r)goto S_43075;} do{ *__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8876,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8878,"ide_methods.bas");}while(r); } do{ *__LONG_IDESY=*__LONG_IDECY; if(!qbevent)break;evnt(25224,8880,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,8881,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; if(!qbevent)break;evnt(25224,8882,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=57; if (next_return_point>=return_points) more_return_points(); goto LABEL_SAVESORTSETTINGS; RETURN_57:; if(!qbevent)break;evnt(25224,8884,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,8885,"ide_methods.bas");}while(r); } S_43086:; if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))!=*__BYTE_IDESUBSLENGTH))||new_error){ if(qbevent){evnt(25224,8888,"ide_methods.bas");if(r)goto S_43086;} 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]))*85+64)); if(!qbevent)break;evnt(25224,8889,"ide_methods.bas");}while(r); S_43088:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8890,"ide_methods.bas");if(r)goto S_43088;} S_43089:; if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64)))||new_error){ if(qbevent){evnt(25224,8891,"ide_methods.bas");if(r)goto S_43089;} 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]))*85+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(25224,8892,"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]))*85+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(25224,8894,"ide_methods.bas");}while(r); } }else{ S_43095:; if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64)))||new_error){ if(qbevent){evnt(25224,8897,"ide_methods.bas");if(r)goto S_43095;} 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]))*85+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(25224,8898,"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]))*85+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(25224,8900,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8903,"ide_methods.bas");}while(r); } S_43103:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ if(qbevent){evnt(25224,8906,"ide_methods.bas");if(r)goto S_43103;} S_43104:; if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||new_error){ if(qbevent){evnt(25224,8907,"ide_methods.bas");if(r)goto S_43104;} 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]))*85+64)); if(!qbevent)break;evnt(25224,8908,"ide_methods.bas");}while(r); S_43106:; if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ if(qbevent){evnt(25224,8910,"ide_methods.bas");if(r)goto S_43106;} do{ *_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; if(!qbevent)break;evnt(25224,8912,"ide_methods.bas");}while(r); S_43108:; if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))> 0 ))||new_error){ if(qbevent){evnt(25224,8913,"ide_methods.bas");if(r)goto S_43108;} 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]))*85+64))* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8914,"ide_methods.bas");}while(r); S_43110:; fornext_value4736= 1 ; fornext_finalvalue4736=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4736= 1 ; if (fornext_step4736<0) fornext_step_negative4736=1; else fornext_step_negative4736=0; if (new_error) goto fornext_error4736; goto fornext_entrylabel4736; while(1){ fornext_value4736=fornext_step4736+(*_FUNC_IDESUBS_LONG_X); fornext_entrylabel4736: *_FUNC_IDESUBS_LONG_X=fornext_value4736; if (fornext_step_negative4736){ if (fornext_value4736fornext_finalvalue4736) break; } fornext_error4736:; if(qbevent){evnt(25224,8915,"ide_methods.bas");if(r)goto S_43110;} S_43111:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ if(qbevent){evnt(25224,8916,"ide_methods.bas");if(r)goto S_43111;} do{ *_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; if(!qbevent)break;evnt(25224,8917,"ide_methods.bas");}while(r); } fornext_continue_4735:; } fornext_exit_4735:; } S_43116:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8922,"ide_methods.bas");if(r)goto S_43116;} 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]))*85+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(25224,8923,"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]))*85+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(25224,8925,"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]))*85+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; if(!qbevent)break;evnt(25224,8927,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8928,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; if(!qbevent)break;evnt(25224,8931,"ide_methods.bas");}while(r); S_43125:; if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))> 0 ))||new_error){ if(qbevent){evnt(25224,8932,"ide_methods.bas");if(r)goto S_43125;} 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]))*85+64))* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8933,"ide_methods.bas");}while(r); S_43127:; fornext_value4738= 1 ; fornext_finalvalue4738=*_FUNC_IDESUBS_LONG_TOTALSUBS; fornext_step4738= 1 ; if (fornext_step4738<0) fornext_step_negative4738=1; else fornext_step_negative4738=0; if (new_error) goto fornext_error4738; goto fornext_entrylabel4738; while(1){ fornext_value4738=fornext_step4738+(*_FUNC_IDESUBS_LONG_X); fornext_entrylabel4738: *_FUNC_IDESUBS_LONG_X=fornext_value4738; if (fornext_step_negative4738){ if (fornext_value4738fornext_finalvalue4738) break; } fornext_error4738:; if(qbevent){evnt(25224,8934,"ide_methods.bas");if(r)goto S_43127;} S_43128:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ if(qbevent){evnt(25224,8935,"ide_methods.bas");if(r)goto S_43128;} do{ *_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; if(!qbevent)break;evnt(25224,8936,"ide_methods.bas");}while(r); } fornext_continue_4737:; } fornext_exit_4737:; } S_43133:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8941,"ide_methods.bas");if(r)goto S_43133;} 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]))*85+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(25224,8942,"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]))*85+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(25224,8944,"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]))*85+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; if(!qbevent)break;evnt(25224,8946,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8947,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,8953,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,8954,"ide_methods.bas");}while(r); dl_continue_4728:; }while(1); dl_exit_4728:; do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,8957,"ide_methods.bas");}while(r); LABEL_SAVESORTSETTINGS:; if(qbevent){evnt(25224,8958,"ide_methods.bas");r=0;} do{ *__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; if(!qbevent)break;evnt(25224,8959,"ide_methods.bas");}while(r); S_43148:; if ((*__BYTE_IDESORTSUBS)||new_error){ if(qbevent){evnt(25224,8960,"ide_methods.bas");if(r)goto S_43148;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8961,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8963,"ide_methods.bas");}while(r); } S_43153:; if ((*__BYTE_IDESUBSLENGTH)||new_error){ if(qbevent){evnt(25224,8966,"ide_methods.bas");if(r)goto S_43153;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8967,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8969,"ide_methods.bas");}while(r); } do{ #include "ret149.txt" if(!qbevent)break;evnt(25224,8971,"ide_methods.bas");}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; 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,8979,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,8980,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,8981,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,8982,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,8983,"ide_methods.bas");}while(r); do{ if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]+1; _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,8984,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,8985,"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(25224,8986,"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(25224,8992,"ide_methods.bas");}while(r); S_43168:; fornext_value4740= 2 ; fornext_finalvalue4740= 27 ; fornext_step4740= 1 ; if (fornext_step4740<0) fornext_step_negative4740=1; else fornext_step_negative4740=0; if (new_error) goto fornext_error4740; goto fornext_entrylabel4740; while(1){ fornext_value4740=fornext_step4740+(*_FUNC_IDELANGUAGEBOX_LONG_X); fornext_entrylabel4740: *_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value4740; if (fornext_step_negative4740){ if (fornext_value4740fornext_finalvalue4740) break; } fornext_error4740:; if(qbevent){evnt(25224,8993,"ide_methods.bas");if(r)goto S_43168;} 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(25224,8994,"ide_methods.bas");}while(r); fornext_continue_4739:; } fornext_exit_4739:; do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_ucase(_FUNC_IDELANGUAGEBOX_STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8996,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,8998,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) ),&(pass4741=*__LONG_IDEWX- 8 ),&(pass4742=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("Language",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,8999,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,9001,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,9002,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,9003,"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]))*85+28))=*__LONG_IDEWX- 12 ; if(!qbevent)break;evnt(25224,9004,"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]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 10 ; if(!qbevent)break;evnt(25224,9004,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDELANGUAGEBOX_STRING_L); if(!qbevent)break;evnt(25224,9005,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,9006,"ide_methods.bas");}while(r); S_43181:; if ((*__LONG_IDECPINDEX)||new_error){ if(qbevent){evnt(25224,9006,"ide_methods.bas");if(r)goto S_43181;} 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]))*85+64))=*__LONG_IDECPINDEX; if(!qbevent)break;evnt(25224,9006,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Code Pages",10)); if(!qbevent)break;evnt(25224,9007,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,9009,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,9010,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,9011,"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]))*85+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(25224,9012,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,9013,"ide_methods.bas");}while(r); S_43190:; fornext_value4744= 1 ; fornext_finalvalue4744= 100 ; fornext_step4744= 1 ; if (fornext_step4744<0) fornext_step_negative4744=1; else fornext_step_negative4744=0; if (new_error) goto fornext_error4744; goto fornext_entrylabel4744; while(1){ fornext_value4744=fornext_step4744+(*_FUNC_IDELANGUAGEBOX_LONG_I); fornext_entrylabel4744: *_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value4744; if (fornext_step_negative4744){ if (fornext_value4744fornext_finalvalue4744) break; } fornext_error4744:; if(qbevent){evnt(25224,9022,"ide_methods.bas");if(r)goto S_43190;} 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]))*85)+ 0,((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,9022,"ide_methods.bas");}while(r); fornext_continue_4743:; } fornext_exit_4743:; S_43193:; do{ if(qbevent){evnt(25224,9025,"ide_methods.bas");if(r)goto S_43193;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,9028,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,9029,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,9029,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,9029,"ide_methods.bas");}while(r); S_43198:; fornext_value4747= 1 ; fornext_finalvalue4747= 100 ; fornext_step4747= 1 ; if (fornext_step4747<0) fornext_step_negative4747=1; else fornext_step_negative4747=0; if (new_error) goto fornext_error4747; goto fornext_entrylabel4747; while(1){ fornext_value4747=fornext_step4747+(*_FUNC_IDELANGUAGEBOX_LONG_I); fornext_entrylabel4747: *_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value4747; if (fornext_step_negative4747){ if (fornext_value4747fornext_finalvalue4747) break; } fornext_error4747:; if(qbevent){evnt(25224,9030,"ide_methods.bas");if(r)goto S_43198;} S_43199:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,9031,"ide_methods.bas");if(r)goto S_43199;} 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]))*85+60))=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; if(!qbevent)break;evnt(25224,9033,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,9034,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,9034,"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]))*85) ),_FUNC_IDELANGUAGEBOX_LONG_F); if(!qbevent)break;evnt(25224,9035,"ide_methods.bas");}while(r); S_43204:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,9036,"ide_methods.bas");if(r)goto S_43204;} 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]))*85+52)); if(!qbevent)break;evnt(25224,9036,"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]))*85+56)); if(!qbevent)break;evnt(25224,9036,"ide_methods.bas");}while(r); } } fornext_continue_4746:; } fornext_exit_4746:; do{ *_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS=*_FUNC_IDELANGUAGEBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,9039,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,9043,"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)",53),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9043,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,9048,"ide_methods.bas");}while(r); S_43214:; if ((*_FUNC_IDELANGUAGEBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,9049,"ide_methods.bas");if(r)goto S_43214;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9049,"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(25224,9049,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9049,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,9052,"ide_methods.bas");}while(r); S_43220:; do{ if(qbevent){evnt(25224,9053,"ide_methods.bas");if(r)goto S_43220;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,9054,"ide_methods.bas");}while(r); S_43222:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,9055,"ide_methods.bas");if(r)goto S_43222;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9055,"ide_methods.bas");}while(r); } S_43225:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,9056,"ide_methods.bas");if(r)goto S_43225;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9056,"ide_methods.bas");}while(r); } S_43228:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,9057,"ide_methods.bas");if(r)goto S_43228;} do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,9057,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9057,"ide_methods.bas");}while(r); } S_43232:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,9058,"ide_methods.bas");if(r)goto S_43232;} do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,9058,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9058,"ide_methods.bas");}while(r); } S_43236:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,9059,"ide_methods.bas");if(r)goto S_43236;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9059,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,9060,"ide_methods.bas");}while(r); S_43240:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_ALT!=*_FUNC_IDELANGUAGEBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,9060,"ide_methods.bas");if(r)goto S_43240;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9060,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_OLDALT=*_FUNC_IDELANGUAGEBOX_LONG_ALT; if(!qbevent)break;evnt(25224,9061,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,9062,"ide_methods.bas");}while(r); S_43245:; dl_continue_4748:; }while((!(*_FUNC_IDELANGUAGEBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4748:; if(qbevent){evnt(25224,9063,"ide_methods.bas");if(r)goto S_43245;} S_43246:; if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,9064,"ide_methods.bas");if(r)goto S_43246;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,9064,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,9064,"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(25224,9066,"ide_methods.bas");}while(r); S_43252:; if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,9067,"ide_methods.bas");if(r)goto S_43252;} S_43253:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,9068,"ide_methods.bas");if(r)goto S_43253;} do{ *_FUNC_IDELANGUAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9069,"ide_methods.bas");}while(r); S_43255:; if (((-(*_FUNC_IDELANGUAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,9070,"ide_methods.bas");if(r)goto S_43255;} do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELANGUAGEBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9070,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9073,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,9073,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9073,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,9077,"ide_methods.bas");}while(r); S_43264:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,9078,"ide_methods.bas");if(r)goto S_43264;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9078,"ide_methods.bas");}while(r); } S_43267:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,9079,"ide_methods.bas");if(r)goto S_43267;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,9079,"ide_methods.bas");}while(r); } S_43270:; 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(25224,9080,"ide_methods.bas");if(r)goto S_43270;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,9080,"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(25224,9080,"ide_methods.bas");}while(r); } S_43274:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,9081,"ide_methods.bas");if(r)goto S_43274;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,9081,"ide_methods.bas");}while(r); } S_43277:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS>*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,9082,"ide_methods.bas");if(r)goto S_43277;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,9082,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,9083,"ide_methods.bas");}while(r); S_43281:; fornext_value4751= 1 ; fornext_finalvalue4751= 100 ; fornext_step4751= 1 ; if (fornext_step4751<0) fornext_step_negative4751=1; else fornext_step_negative4751=0; if (new_error) goto fornext_error4751; goto fornext_entrylabel4751; while(1){ fornext_value4751=fornext_step4751+(*_FUNC_IDELANGUAGEBOX_LONG_I); fornext_entrylabel4751: *_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value4751; if (fornext_step_negative4751){ if (fornext_value4751fornext_finalvalue4751) break; } fornext_error4751:; if(qbevent){evnt(25224,9084,"ide_methods.bas");if(r)goto S_43281;} 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]))*85+36)); if(!qbevent)break;evnt(25224,9085,"ide_methods.bas");}while(r); S_43283:; if ((*_FUNC_IDELANGUAGEBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,9086,"ide_methods.bas");if(r)goto S_43283;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; if(!qbevent)break;evnt(25224,9087,"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]))*85) ),_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(25224,9088,"ide_methods.bas");}while(r); } fornext_continue_4750:; } fornext_exit_4750:; S_43288:; 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(25224,9093,"ide_methods.bas");if(r)goto S_43288;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9095,"ide_methods.bas");}while(r); } S_43291:; 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(25224,9098,"ide_methods.bas");if(r)goto S_43291;} 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]))*85+64)); if(!qbevent)break;evnt(25224,9099,"ide_methods.bas");}while(r); S_43293:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_Y< 1 ))||new_error){ if(qbevent){evnt(25224,9100,"ide_methods.bas");if(r)goto S_43293;} do{ *_FUNC_IDELANGUAGEBOX_LONG_Y=-(*_FUNC_IDELANGUAGEBOX_LONG_Y); if(!qbevent)break;evnt(25224,9100,"ide_methods.bas");}while(r); } S_43296:; fornext_value4753= 128 ; fornext_finalvalue4753= 255 ; fornext_step4753= 1 ; if (fornext_step4753<0) fornext_step_negative4753=1; else fornext_step_negative4753=0; if (new_error) goto fornext_error4753; goto fornext_entrylabel4753; while(1){ fornext_value4753=fornext_step4753+(*_FUNC_IDELANGUAGEBOX_LONG_X); fornext_entrylabel4753: *_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value4753; if (fornext_step_negative4753){ if (fornext_value4753fornext_finalvalue4753) break; } fornext_error4753:; if(qbevent){evnt(25224,9102,"ide_methods.bas");if(r)goto S_43296;} 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 ,1)),qbs_new_txt_len("&",1)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9103,"ide_methods.bas");}while(r); S_43298:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_U== 0 ))||new_error){ if(qbevent){evnt(25224,9104,"ide_methods.bas");if(r)goto S_43298;} do{ *_FUNC_IDELANGUAGEBOX_LONG_U= 9744 ; if(!qbevent)break;evnt(25224,9104,"ide_methods.bas");}while(r); } do{ sub__mapunicode(*_FUNC_IDELANGUAGEBOX_LONG_U,*_FUNC_IDELANGUAGEBOX_LONG_X); if(!qbevent)break;evnt(25224,9105,"ide_methods.bas");}while(r); fornext_continue_4752:; } fornext_exit_4752:; do{ *_FUNC_IDELANGUAGEBOX_INTEGER_V=*_FUNC_IDELANGUAGEBOX_LONG_Y; if(!qbevent)break;evnt(25224,9109,"ide_methods.bas");}while(r); do{ *__LONG_IDECPINDEX=*_FUNC_IDELANGUAGEBOX_INTEGER_V; if(!qbevent)break;evnt(25224,9109,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_str((int32)(*__LONG_IDECPINDEX))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9110,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9111,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,9116,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,9117,"ide_methods.bas");}while(r); dl_continue_4745:; }while(1); dl_exit_4745:; do{ *_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX= 0 ; if(!qbevent)break;evnt(25224,9120,"ide_methods.bas");}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; 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,9127,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,9128,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9129,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,9130,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,9131,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,9132,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,9133,"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(25224,9134,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&2){ error(10); }else{ if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&1){ error(10); }else{ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]= 1 ; _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]=(*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]+1; _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[6]=1; if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&4){ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4); memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4); }else{ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4,1); if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]) error(257); } _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]|=1; } } if(!qbevent)break;evnt(25224,9139,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]&2){ error(10); }else{ if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]&1){ error(10); }else{ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4]= 1 ; _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]=(*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4]+1; _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[6]=1; if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]&4){ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]*4); memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]*4); }else{ _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]*4,1); if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]) error(257); } _FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]|=1; } } if(!qbevent)break;evnt(25224,9140,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]&2){ error(10); }else{ if (_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]&1){ error(10); }else{ _FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4]= 1 ; _FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5]=(*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4]+1; _FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[6]=1; _FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)malloc(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5]*8); if (!_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]) error(257); _FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]|=1; tmp_long=_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5]; if (_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,9141,"ide_methods.bas");}while(r); S_43323:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ if(qbevent){evnt(25224,9143,"ide_methods.bas");if(r)goto S_43323;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,__STRING_IDEPROGNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9143,"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(25224,9143,"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(25224,9144,"ide_methods.bas");}while(r); S_43329:; fornext_value4757= 1 ; fornext_finalvalue4757=*__LONG_WARNINGLISTITEMS; fornext_step4757= 1 ; if (fornext_step4757<0) fornext_step_negative4757=1; else fornext_step_negative4757=0; if (new_error) goto fornext_error4757; goto fornext_entrylabel4757; while(1){ fornext_value4757=fornext_step4757+(*_FUNC_IDEWARNINGBOX_LONG_X); fornext_entrylabel4757: *_FUNC_IDEWARNINGBOX_LONG_X=fornext_value4757; if (fornext_step_negative4757){ if (fornext_value4757fornext_finalvalue4757) break; } fornext_error4757:; if(qbevent){evnt(25224,9147,"ide_methods.bas");if(r)goto S_43329;} do{ tmp_long=array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]); if (!new_error) ((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=string2l(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 4 )); if(!qbevent)break;evnt(25224,9148,"ide_methods.bas");}while(r); S_43331:; if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ if(qbevent){evnt(25224,9149,"ide_methods.bas");if(r)goto S_43331;} do{ goto fornext_continue_4756; if(!qbevent)break;evnt(25224,9149,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9151,"ide_methods.bas");}while(r); S_43335:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL> 0 ))||new_error){ if(qbevent){evnt(25224,9152,"ide_methods.bas");if(r)goto S_43335;} do{ tmp_long=array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]); if (!new_error) ((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 9 , 4 ,1)); if(!qbevent)break;evnt(25224,9153,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4],_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 13 ,func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])),func_chr( 2 ),0)- 13 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9154,"ide_methods.bas");}while(r); S_43338:; if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4],_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5])]))->len>*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN)))||new_error){ if(qbevent){evnt(25224,9155,"ide_methods.bas");if(r)goto S_43338;} do{ *_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=((qbs*)(((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4],_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5])]))->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9156,"ide_methods.bas");}while(r); } } fornext_continue_4756:; } fornext_exit_4756:; S_43343:; fornext_value4761= 1 ; fornext_finalvalue4761=*__LONG_WARNINGLISTITEMS; fornext_step4761= 1 ; if (fornext_step4761<0) fornext_step_negative4761=1; else fornext_step_negative4761=0; if (new_error) goto fornext_error4761; goto fornext_entrylabel4761; while(1){ fornext_value4761=fornext_step4761+(*_FUNC_IDEWARNINGBOX_LONG_X); fornext_entrylabel4761: *_FUNC_IDEWARNINGBOX_LONG_X=fornext_value4761; if (fornext_step_negative4761){ if (fornext_value4761fornext_finalvalue4761) break; } fornext_error4761:; if(qbevent){evnt(25224,9162,"ide_methods.bas");if(r)goto S_43343;} S_43344:; if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ if(qbevent){evnt(25224,9163,"ide_methods.bas");if(r)goto S_43344;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])),func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])),func_chr( 2 ),0)+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9164,"ide_methods.bas");}while(r); S_43346:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_X> 1 ))||new_error){ if(qbevent){evnt(25224,9165,"ide_methods.bas");if(r)goto S_43346;} 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(25224,9165,"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(25224,9167,"ide_methods.bas");}while(r); S_43351:; if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ if(qbevent){evnt(25224,9168,"ide_methods.bas");if(r)goto S_43351;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(*__LONG_MAXLINENUMBERLENGTH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9169,"ide_methods.bas");}while(r); do{ sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5])])))); if(!qbevent)break;evnt(25224,9170,"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*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4],_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5])]))),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-((qbs*)(((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4],_FUNC_IDEWARNINGBOX_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(25224,9171,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(*__LONG_MAXLINENUMBERLENGTH)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9173,"ide_methods.bas");}while(r); do{ sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])])))); if(!qbevent)break;evnt(25224,9174,"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(25224,9175,"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(25224,9177,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_TEXT,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])),func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])),func_chr( 2 ),0)+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9178,"ide_methods.bas");}while(r); S_43362:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEWARNINGBOX_STRING_TEXT->len))||new_error){ if(qbevent){evnt(25224,9179,"ide_methods.bas");if(r)goto S_43362;} 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(25224,9180,"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(25224,9182,"ide_methods.bas");}while(r); } } S_43368:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_X<*__LONG_WARNINGLISTITEMS))||new_error){ if(qbevent){evnt(25224,9185,"ide_methods.bas");if(r)goto S_43368;} 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(25224,9185,"ide_methods.bas");}while(r); } fornext_continue_4760:; } fornext_exit_4760:; S_43372:; if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]> 0 ))||new_error){ if(qbevent){evnt(25224,9188,"ide_methods.bas");if(r)goto S_43372;} 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(25224,9189,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,9192,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_WARNINGLISTITEMS+ 4 ; if(!qbevent)break;evnt(25224,9193,"ide_methods.bas");}while(r); S_43377:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ if(qbevent){evnt(25224,9194,"ide_methods.bas");if(r)goto S_43377;} do{ *_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,9195,"ide_methods.bas");}while(r); } do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) ),&(pass4766=*__LONG_IDEWX- 8 ),_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Compilation status",18)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9198,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,9200,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,9201,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,9202,"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]))*85+28))=*__LONG_IDEWX- 12 ; if(!qbevent)break;evnt(25224,9203,"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]))*85+32))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT- 4 ; if(!qbevent)break;evnt(25224,9203,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEWARNINGBOX_STRING_L); if(!qbevent)break;evnt(25224,9204,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,9205,"ide_methods.bas");}while(r); S_43388:; if ((*__LONG_IDECPINDEX)||new_error){ if(qbevent){evnt(25224,9205,"ide_methods.bas");if(r)goto S_43388;} 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]))*85+64))=*__LONG_IDECPINDEX; if(!qbevent)break;evnt(25224,9205,"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]))*85+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(25224,9206,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,9208,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,9209,"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]))*85+24))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT; if(!qbevent)break;evnt(25224,9210,"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]))*85+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(25224,9211,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,9212,"ide_methods.bas");}while(r); S_43397:; fornext_value4768= 1 ; fornext_finalvalue4768= 100 ; fornext_step4768= 1 ; if (fornext_step4768<0) fornext_step_negative4768=1; else fornext_step_negative4768=0; if (new_error) goto fornext_error4768; goto fornext_entrylabel4768; while(1){ fornext_value4768=fornext_step4768+(*_FUNC_IDEWARNINGBOX_LONG_I); fornext_entrylabel4768: *_FUNC_IDEWARNINGBOX_LONG_I=fornext_value4768; if (fornext_step_negative4768){ if (fornext_value4768fornext_finalvalue4768) break; } fornext_error4768:; if(qbevent){evnt(25224,9221,"ide_methods.bas");if(r)goto S_43397;} 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]))*85)+ 0,((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,9221,"ide_methods.bas");}while(r); fornext_continue_4767:; } fornext_exit_4767:; S_43400:; do{ if(qbevent){evnt(25224,9224,"ide_methods.bas");if(r)goto S_43400;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,9227,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,9228,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,9228,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,9228,"ide_methods.bas");}while(r); S_43405:; fornext_value4771= 1 ; fornext_finalvalue4771= 100 ; fornext_step4771= 1 ; if (fornext_step4771<0) fornext_step_negative4771=1; else fornext_step_negative4771=0; if (new_error) goto fornext_error4771; goto fornext_entrylabel4771; while(1){ fornext_value4771=fornext_step4771+(*_FUNC_IDEWARNINGBOX_LONG_I); fornext_entrylabel4771: *_FUNC_IDEWARNINGBOX_LONG_I=fornext_value4771; if (fornext_step_negative4771){ if (fornext_value4771fornext_finalvalue4771) break; } fornext_error4771:; if(qbevent){evnt(25224,9229,"ide_methods.bas");if(r)goto S_43405;} S_43406:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,9230,"ide_methods.bas");if(r)goto S_43406;} 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]))*85+60))=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; if(!qbevent)break;evnt(25224,9232,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,9233,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,9233,"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]))*85) ),_FUNC_IDEWARNINGBOX_LONG_F); if(!qbevent)break;evnt(25224,9234,"ide_methods.bas");}while(r); S_43411:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,9235,"ide_methods.bas");if(r)goto S_43411;} 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]))*85+52)); if(!qbevent)break;evnt(25224,9235,"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]))*85+56)); if(!qbevent)break;evnt(25224,9235,"ide_methods.bas");}while(r); } } fornext_continue_4770:; } fornext_exit_4770:; do{ *_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS=*_FUNC_IDEWARNINGBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,9238,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,9242,"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(25224,9242,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,9247,"ide_methods.bas");}while(r); S_43421:; if ((*_FUNC_IDEWARNINGBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,9248,"ide_methods.bas");if(r)goto S_43421;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9248,"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(25224,9248,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9248,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,9251,"ide_methods.bas");}while(r); S_43427:; do{ if(qbevent){evnt(25224,9252,"ide_methods.bas");if(r)goto S_43427;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,9253,"ide_methods.bas");}while(r); S_43429:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,9254,"ide_methods.bas");if(r)goto S_43429;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9254,"ide_methods.bas");}while(r); } S_43432:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,9255,"ide_methods.bas");if(r)goto S_43432;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9255,"ide_methods.bas");}while(r); } S_43435:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,9256,"ide_methods.bas");if(r)goto S_43435;} do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,9256,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9256,"ide_methods.bas");}while(r); } S_43439:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,9257,"ide_methods.bas");if(r)goto S_43439;} do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,9257,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9257,"ide_methods.bas");}while(r); } S_43443:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,9258,"ide_methods.bas");if(r)goto S_43443;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9258,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,9259,"ide_methods.bas");}while(r); S_43447:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_ALT!=*_FUNC_IDEWARNINGBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,9259,"ide_methods.bas");if(r)goto S_43447;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,9259,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_OLDALT=*_FUNC_IDEWARNINGBOX_LONG_ALT; if(!qbevent)break;evnt(25224,9260,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,9261,"ide_methods.bas");}while(r); S_43452:; dl_continue_4772:; }while((!(*_FUNC_IDEWARNINGBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4772:; if(qbevent){evnt(25224,9262,"ide_methods.bas");if(r)goto S_43452;} S_43453:; if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,9263,"ide_methods.bas");if(r)goto S_43453;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,9263,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,9263,"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(25224,9265,"ide_methods.bas");}while(r); S_43459:; if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,9266,"ide_methods.bas");if(r)goto S_43459;} S_43460:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,9267,"ide_methods.bas");if(r)goto S_43460;} do{ *_FUNC_IDEWARNINGBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9268,"ide_methods.bas");}while(r); S_43462:; if (((-(*_FUNC_IDEWARNINGBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,9269,"ide_methods.bas");if(r)goto S_43462;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEWARNINGBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9269,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9272,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,9272,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,9272,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,9276,"ide_methods.bas");}while(r); S_43471:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,9277,"ide_methods.bas");if(r)goto S_43471;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9277,"ide_methods.bas");}while(r); } S_43474:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,9278,"ide_methods.bas");if(r)goto S_43474;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,9278,"ide_methods.bas");}while(r); } S_43477:; 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(25224,9279,"ide_methods.bas");if(r)goto S_43477;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,9279,"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(25224,9279,"ide_methods.bas");}while(r); } S_43481:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,9280,"ide_methods.bas");if(r)goto S_43481;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,9280,"ide_methods.bas");}while(r); } S_43484:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS>*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,9281,"ide_methods.bas");if(r)goto S_43484;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,9281,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,9282,"ide_methods.bas");}while(r); S_43488:; fornext_value4775= 1 ; fornext_finalvalue4775= 100 ; 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+(*_FUNC_IDEWARNINGBOX_LONG_I); fornext_entrylabel4775: *_FUNC_IDEWARNINGBOX_LONG_I=fornext_value4775; if (fornext_step_negative4775){ if (fornext_value4775fornext_finalvalue4775) break; } fornext_error4775:; if(qbevent){evnt(25224,9283,"ide_methods.bas");if(r)goto S_43488;} 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]))*85+36)); if(!qbevent)break;evnt(25224,9284,"ide_methods.bas");}while(r); S_43490:; if ((*_FUNC_IDEWARNINGBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,9285,"ide_methods.bas");if(r)goto S_43490;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; if(!qbevent)break;evnt(25224,9286,"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]))*85) ),_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(25224,9287,"ide_methods.bas");}while(r); } fornext_continue_4774:; } fornext_exit_4774:; S_43495:; 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(25224,9292,"ide_methods.bas");if(r)goto S_43495;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9293,"ide_methods.bas");}while(r); } S_43498:; 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(25224,9296,"ide_methods.bas");if(r)goto S_43498;} 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]))*85+64)))); if(!qbevent)break;evnt(25224,9297,"ide_methods.bas");}while(r); S_43500:; if (((-(*_FUNC_IDEWARNINGBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_Y<=*__LONG_WARNINGLISTITEMS))&(-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]> 0 )))||new_error){ if(qbevent){evnt(25224,9298,"ide_methods.bas");if(r)goto S_43500;} do{ *__LONG_IDEGOTOBOX_LASTLINENUM=((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]; if(!qbevent)break;evnt(25224,9299,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,9300,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; if(!qbevent)break;evnt(25224,9301,"ide_methods.bas");}while(r); S_43504:; if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ if(qbevent){evnt(25224,9302,"ide_methods.bas");if(r)goto S_43504;} do{ *__LONG_WARNINGININCLUDE=*__LONG_IDECY; if(!qbevent)break;evnt(25224,9303,"ide_methods.bas");}while(r); do{ *__LONG_WARNINGININCLUDELINE=((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5])]; if(!qbevent)break;evnt(25224,9304,"ide_methods.bas");}while(r); } do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,9306,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9307,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,9312,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,9313,"ide_methods.bas");}while(r); dl_continue_4769:; }while(1); dl_exit_4769:; do{ *_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX= 0 ; if(!qbevent)break;evnt(25224,9316,"ide_methods.bas");}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; 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 "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(25224,9320,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,9321,"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(25224,9322,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_T=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(36)); if(!qbevent)break;evnt(25224,9324,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_MOUSEUP=*_SUB_IDEOBJUPDATE_LONG_MOUSEUP; if(!qbevent)break;evnt(25224,9325,"ide_methods.bas");}while(r); S_43521:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 1 ))||new_error){ if(qbevent){evnt(25224,9326,"ide_methods.bas");if(r)goto S_43521;} S_43522:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ if(qbevent){evnt(25224,9327,"ide_methods.bas");if(r)goto S_43522;} do{ *_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); if(!qbevent)break;evnt(25224,9328,"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(25224,9328,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1; if(!qbevent)break;evnt(25224,9329,"ide_methods.bas");}while(r); S_43526:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,9330,"ide_methods.bas");if(r)goto S_43526;} 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(25224,9331,"ide_methods.bas");}while(r); } S_43529:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MY>=(*_SUB_IDEOBJUPDATE_LONG_Y- 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=(*_SUB_IDEOBJUPDATE_LONG_Y+ 1 ))))||new_error){ if(qbevent){evnt(25224,9333,"ide_methods.bas");if(r)goto S_43529;} S_43530:; 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(25224,9334,"ide_methods.bas");if(r)goto S_43530;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9335,"ide_methods.bas");}while(r); S_43532:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ if(qbevent){evnt(25224,9337,"ide_methods.bas");if(r)goto S_43532;} S_43533:; 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(25224,9338,"ide_methods.bas");if(r)goto S_43533;} 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(25224,9339,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_MX-*_SUB_IDEOBJUPDATE_LONG_X2- 2 ; if(!qbevent)break;evnt(25224,9340,"ide_methods.bas");}while(r); S_43536:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEOBJUPDATE_LONG_X==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))&(-(*_SUB_IDEOBJUPDATE_LONG_X!=_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ if(qbevent){evnt(25224,9341,"ide_methods.bas");if(r)goto S_43536;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9342,"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(25224,9343,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; if(!qbevent)break;evnt(25224,9344,"ide_methods.bas");}while(r); }else{ S_43541:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_X<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,9346,"ide_methods.bas");if(r)goto S_43541;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_X; if(!qbevent)break;evnt(25224,9346,"ide_methods.bas");}while(r); }else{ do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; if(!qbevent)break;evnt(25224,9346,"ide_methods.bas");}while(r); } do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9347,"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(25224,9355,"ide_methods.bas");}while(r); S_43554:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ if(qbevent){evnt(25224,9356,"ide_methods.bas");if(r)goto S_43554;} S_43555:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ if(qbevent){evnt(25224,9357,"ide_methods.bas");if(r)goto S_43555;} do{ *_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(_SUB_IDEOBJUPDATE_STRING_KK); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9358,"ide_methods.bas");}while(r); S_43557:; 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(25224,9359,"ide_methods.bas");if(r)goto S_43557;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9360,"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(25224,9361,"ide_methods.bas");}while(r); S_43560:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ if(qbevent){evnt(25224,9362,"ide_methods.bas");if(r)goto S_43560;} 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(25224,9362,"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(25224,9363,"ide_methods.bas");}while(r); S_43564:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ if(qbevent){evnt(25224,9364,"ide_methods.bas");if(r)goto S_43564;} 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(25224,9364,"ide_methods.bas");}while(r); } S_43567:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_CLIP->len))||new_error){ if(qbevent){evnt(25224,9365,"ide_methods.bas");if(r)goto S_43567;} S_43568:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9366,"ide_methods.bas");if(r)goto S_43568;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9367,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9367,"ide_methods.bas");}while(r); S_43571:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9368,"ide_methods.bas");if(r)goto S_43571;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9368,"ide_methods.bas");}while(r); } S_43574:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9369,"ide_methods.bas");if(r)goto S_43574;} 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(25224,9370,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; if(!qbevent)break;evnt(25224,9371,"ide_methods.bas");}while(r); S_43577:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,9372,"ide_methods.bas");if(r)goto S_43577;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1+_SUB_IDEOBJUPDATE_STRING_CLIP->len; if(!qbevent)break;evnt(25224,9372,"ide_methods.bas");}while(r); } do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9373,"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)+(77))),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9376,"ide_methods.bas");}while(r); S_43584:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,9377,"ide_methods.bas");if(r)goto S_43584;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+_SUB_IDEOBJUPDATE_STRING_CLIP->len; if(!qbevent)break;evnt(25224,9377,"ide_methods.bas");}while(r); } } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; if(!qbevent)break;evnt(25224,9380,"ide_methods.bas");}while(r); } S_43591:; 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(25224,9383,"ide_methods.bas");if(r)goto S_43591;} S_43592:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ if(qbevent){evnt(25224,9384,"ide_methods.bas");if(r)goto S_43592;} do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= -1 ; if(!qbevent)break;evnt(25224,9385,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))= 0 ; if(!qbevent)break;evnt(25224,9386,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; if(!qbevent)break;evnt(25224,9387,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; if(!qbevent)break;evnt(25224,9389,"ide_methods.bas");}while(r); } S_43599:; 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(25224,9392,"ide_methods.bas");if(r)goto S_43599;} S_43600:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9393,"ide_methods.bas");if(r)goto S_43600;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9394,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9394,"ide_methods.bas");}while(r); S_43603:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9395,"ide_methods.bas");if(r)goto S_43603;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9395,"ide_methods.bas");}while(r); } S_43606:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9396,"ide_methods.bas");if(r)goto S_43606;} do{ sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9396,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; if(!qbevent)break;evnt(25224,9398,"ide_methods.bas");}while(r); } S_43612:; 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(25224,9401,"ide_methods.bas");if(r)goto S_43612;} S_43613:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9402,"ide_methods.bas");if(r)goto S_43613;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9403,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9403,"ide_methods.bas");}while(r); S_43616:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9404,"ide_methods.bas");if(r)goto S_43616;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9404,"ide_methods.bas");}while(r); } S_43619:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9405,"ide_methods.bas");if(r)goto S_43619;} do{ sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9406,"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(25224,9408,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; if(!qbevent)break;evnt(25224,9409,"ide_methods.bas");}while(r); do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9410,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; if(!qbevent)break;evnt(25224,9413,"ide_methods.bas");}while(r); } S_43628:; if (((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 )))||new_error){ if(qbevent){evnt(25224,9416,"ide_methods.bas");if(r)goto S_43628;} S_43629:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9417,"ide_methods.bas");if(r)goto S_43629;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9418,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9418,"ide_methods.bas");}while(r); S_43632:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9419,"ide_methods.bas");if(r)goto S_43632;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9419,"ide_methods.bas");}while(r); } S_43635:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9420,"ide_methods.bas");if(r)goto S_43635;} 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(25224,9422,"ide_methods.bas");}while(r); do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9423,"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)+(77))- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9426,"ide_methods.bas");}while(r); S_43641:; if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,9427,"ide_methods.bas");if(r)goto S_43641;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9427,"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(25224,9427,"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(25224,9428,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 ; if(!qbevent)break;evnt(25224,9428,"ide_methods.bas");}while(r); } S_43649:; }else{ if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))){ if(qbevent){evnt(25224,9430,"ide_methods.bas");if(r)goto S_43649;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9431,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9431,"ide_methods.bas");}while(r); S_43652:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9432,"ide_methods.bas");if(r)goto S_43652;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9432,"ide_methods.bas");}while(r); } S_43655:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9433,"ide_methods.bas");if(r)goto S_43655;} 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(25224,9435,"ide_methods.bas");}while(r); do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9436,"ide_methods.bas");}while(r); } } } S_43660:; 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(25224,9439,"ide_methods.bas");if(r)goto S_43660;} S_43661:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9440,"ide_methods.bas");if(r)goto S_43661;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9441,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9441,"ide_methods.bas");}while(r); S_43664:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9442,"ide_methods.bas");if(r)goto S_43664;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9442,"ide_methods.bas");}while(r); } S_43667:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9443,"ide_methods.bas");if(r)goto S_43667;} 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(25224,9445,"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(25224,9446,"ide_methods.bas");}while(r); do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9447,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; if(!qbevent)break;evnt(25224,9448,"ide_methods.bas");}while(r); } } S_43674:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 ))||new_error){ if(qbevent){evnt(25224,9451,"ide_methods.bas");if(r)goto S_43674;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9451,"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(25224,9451,"ide_methods.bas");}while(r); } S_43679:; if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,9452,"ide_methods.bas");if(r)goto S_43679;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9452,"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(25224,9452,"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(25224,9453,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+ 1 ; if(!qbevent)break;evnt(25224,9453,"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(25224,9455,"ide_methods.bas");}while(r); } S_43689:; 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(25224,9457,"ide_methods.bas");if(r)goto S_43689;} S_43690:; if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ if(qbevent){evnt(25224,9458,"ide_methods.bas");if(r)goto S_43690;} do{ *_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); if(!qbevent)break;evnt(25224,9459,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9459,"ide_methods.bas");}while(r); S_43693:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ if(qbevent){evnt(25224,9460,"ide_methods.bas");if(r)goto S_43693;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); if(!qbevent)break;evnt(25224,9460,"ide_methods.bas");}while(r); } S_43696:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ if(qbevent){evnt(25224,9461,"ide_methods.bas");if(r)goto S_43696;} 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(25224,9463,"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(25224,9464,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; if(!qbevent)break;evnt(25224,9465,"ide_methods.bas");}while(r); do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9466,"ide_methods.bas");}while(r); } }else{ S_43703:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 ))||new_error){ if(qbevent){evnt(25224,9469,"ide_methods.bas");if(r)goto S_43703;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9469,"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(25224,9469,"ide_methods.bas");}while(r); } S_43708:; if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,9470,"ide_methods.bas");if(r)goto S_43708;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9470,"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(25224,9470,"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(25224,9471,"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(25224,9472,"ide_methods.bas");}while(r); } } S_43717:; 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(25224,9477,"ide_methods.bas");if(r)goto S_43717;} do{ return_point[next_return_point++]=58; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_58:; if(!qbevent)break;evnt(25224,9477,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 ; if(!qbevent)break;evnt(25224,9477,"ide_methods.bas");}while(r); } S_43721:; 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(25224,9478,"ide_methods.bas");if(r)goto S_43721;} do{ return_point[next_return_point++]=59; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_59:; if(!qbevent)break;evnt(25224,9478,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+ 1 ; if(!qbevent)break;evnt(25224,9478,"ide_methods.bas");}while(r); } S_43725:; 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(25224,9479,"ide_methods.bas");if(r)goto S_43725;} do{ return_point[next_return_point++]=60; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_60:; if(!qbevent)break;evnt(25224,9479,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; if(!qbevent)break;evnt(25224,9479,"ide_methods.bas");}while(r); } S_43729:; 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(25224,9480,"ide_methods.bas");if(r)goto S_43729;} do{ return_point[next_return_point++]=61; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_61:; if(!qbevent)break;evnt(25224,9480,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; if(!qbevent)break;evnt(25224,9480,"ide_methods.bas");}while(r); } S_43733:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))< 0 ))||new_error){ if(qbevent){evnt(25224,9481,"ide_methods.bas");if(r)goto S_43733;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; if(!qbevent)break;evnt(25224,9481,"ide_methods.bas");}while(r); } S_43736:; if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))>_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,9482,"ide_methods.bas");if(r)goto S_43736;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; if(!qbevent)break;evnt(25224,9482,"ide_methods.bas");}while(r); } S_43739:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))))||new_error){ if(qbevent){evnt(25224,9483,"ide_methods.bas");if(r)goto S_43739;} do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9483,"ide_methods.bas");}while(r); } } S_43743:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ if(qbevent){evnt(25224,9486,"ide_methods.bas");if(r)goto S_43743;} S_43744:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,9487,"ide_methods.bas");if(r)goto S_43744;} 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(25224,9488,"ide_methods.bas");}while(r); S_43746:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ if(qbevent){evnt(25224,9489,"ide_methods.bas");if(r)goto S_43746;} S_43747:; 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 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ if(qbevent){evnt(25224,9490,"ide_methods.bas");if(r)goto S_43747;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9490,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,9494,"ide_methods.bas");}while(r); } S_43755:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 2 ))||new_error){ if(qbevent){evnt(25224,9497,"ide_methods.bas");if(r)goto S_43755;} do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__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(25224,9498,"ide_methods.bas");}while(r); S_43757:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ if(qbevent){evnt(25224,9500,"ide_methods.bas");if(r)goto S_43757;} do{ *_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); if(!qbevent)break;evnt(25224,9501,"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(25224,9501,"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(25224,9502,"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(25224,9502,"ide_methods.bas");}while(r); S_43762:; 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(25224,9503,"ide_methods.bas");if(r)goto S_43762;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9504,"ide_methods.bas");}while(r); S_43764:; 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(25224,9505,"ide_methods.bas");if(r)goto S_43764;} do{ *_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_MY-*_SUB_IDEOBJUPDATE_LONG_Y1- 1 ; if(!qbevent)break;evnt(25224,9506,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_Y+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9507,"ide_methods.bas");}while(r); S_43767:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ if(qbevent){evnt(25224,9508,"ide_methods.bas");if(r)goto S_43767;} do{ *_SUB_IDEOBJUPDATE_LONG_INFO= 1 ; if(!qbevent)break;evnt(25224,9508,"ide_methods.bas");}while(r); } do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_Y; if(!qbevent)break;evnt(25224,9509,"ide_methods.bas");}while(r); S_43771:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ if(qbevent){evnt(25224,9510,"ide_methods.bas");if(r)goto S_43771;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9510,"ide_methods.bas");}while(r); } } } } S_43777:; if ((*_SUB_IDEOBJUPDATE_LONG_MB)||new_error){ if(qbevent){evnt(25224,9516,"ide_methods.bas");if(r)goto S_43777;} S_43778:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ if(qbevent){evnt(25224,9517,"ide_methods.bas");if(r)goto S_43778;} do{ *_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); if(!qbevent)break;evnt(25224,9519,"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(25224,9519,"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(25224,9520,"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(25224,9520,"ide_methods.bas");}while(r); S_43783:; 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(25224,9521,"ide_methods.bas");if(r)goto S_43783;} S_43784:; 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(25224,9523,"ide_methods.bas");if(r)goto S_43784;} do{ *_SUB_IDEOBJUPDATE_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); if(!qbevent)break;evnt(25224,9525,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_TNUM=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9526,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_Q=FUNC_IDEVBAR(_SUB_IDEOBJUPDATE_LONG_X2,&(pass4804=*_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(25224,9527,"ide_methods.bas");}while(r); S_43788:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ if(qbevent){evnt(25224,9529,"ide_methods.bas");if(r)goto S_43788;} 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(25224,9530,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,9531,"ide_methods.bas");}while(r); } S_43792:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ if(qbevent){evnt(25224,9533,"ide_methods.bas");if(r)goto S_43792;} 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(25224,9534,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,9535,"ide_methods.bas");}while(r); } } S_43797:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ))))||new_error){ if(qbevent){evnt(25224,9539,"ide_methods.bas");if(r)goto S_43797;} 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(25224,9540,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,9541,"ide_methods.bas");}while(r); } S_43801:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ if(qbevent){evnt(25224,9543,"ide_methods.bas");if(r)goto S_43801;} 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(25224,9544,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); if(!qbevent)break;evnt(25224,9545,"ide_methods.bas");}while(r); } } } } S_43808:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ if(qbevent){evnt(25224,9553,"ide_methods.bas");if(r)goto S_43808;} S_43809:; if ((*_SUB_IDEOBJUPDATE_LONG_MW)||new_error){ if(qbevent){evnt(25224,9554,"ide_methods.bas");if(r)goto S_43809;} S_43810:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MW< 0 ))||new_error){ if(qbevent){evnt(25224,9556,"ide_methods.bas");if(r)goto S_43810;} S_43811:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))||new_error){ if(qbevent){evnt(25224,9557,"ide_methods.bas");if(r)goto S_43811;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9557,"ide_methods.bas");}while(r); } }else{ do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; if(!qbevent)break;evnt(25224,9559,"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(25224,9561,"ide_methods.bas");}while(r); S_43818:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ if(qbevent){evnt(25224,9562,"ide_methods.bas");if(r)goto S_43818;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; if(!qbevent)break;evnt(25224,9562,"ide_methods.bas");}while(r); } S_43821:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ if(qbevent){evnt(25224,9563,"ide_methods.bas");if(r)goto S_43821;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9563,"ide_methods.bas");}while(r); } } S_43825:; 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(25224,9566,"ide_methods.bas");if(r)goto S_43825;} S_43826:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ if(qbevent){evnt(25224,9567,"ide_methods.bas");if(r)goto S_43826;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); if(!qbevent)break;evnt(25224,9568,"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(25224,9570,"ide_methods.bas");}while(r); S_43830:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ if(qbevent){evnt(25224,9571,"ide_methods.bas");if(r)goto S_43830;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; if(!qbevent)break;evnt(25224,9571,"ide_methods.bas");}while(r); } } } S_43835:; 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(25224,9575,"ide_methods.bas");if(r)goto S_43835;} S_43836:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ if(qbevent){evnt(25224,9576,"ide_methods.bas");if(r)goto S_43836;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); if(!qbevent)break;evnt(25224,9577,"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(25224,9579,"ide_methods.bas");}while(r); S_43840:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ if(qbevent){evnt(25224,9580,"ide_methods.bas");if(r)goto S_43840;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9580,"ide_methods.bas");}while(r); } } } S_43845:; 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(25224,9584,"ide_methods.bas");if(r)goto S_43845;} S_43846:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ if(qbevent){evnt(25224,9585,"ide_methods.bas");if(r)goto S_43846;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); if(!qbevent)break;evnt(25224,9586,"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(25224,9588,"ide_methods.bas");}while(r); S_43850:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ if(qbevent){evnt(25224,9589,"ide_methods.bas");if(r)goto S_43850;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; if(!qbevent)break;evnt(25224,9589,"ide_methods.bas");}while(r); } } S_43854:; 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(25224,9592,"ide_methods.bas");if(r)goto S_43854;} S_43855:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ if(qbevent){evnt(25224,9593,"ide_methods.bas");if(r)goto S_43855;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); if(!qbevent)break;evnt(25224,9594,"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(25224,9596,"ide_methods.bas");}while(r); S_43859:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ if(qbevent){evnt(25224,9597,"ide_methods.bas");if(r)goto S_43859;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9597,"ide_methods.bas");}while(r); } } S_43863:; 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(25224,9600,"ide_methods.bas");if(r)goto S_43863;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; if(!qbevent)break;evnt(25224,9601,"ide_methods.bas");}while(r); } S_43866:; 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(25224,9604,"ide_methods.bas");if(r)goto S_43866;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); if(!qbevent)break;evnt(25224,9605,"ide_methods.bas");}while(r); } S_43869:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ if(qbevent){evnt(25224,9608,"ide_methods.bas");if(r)goto S_43869;} do{ *_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= 0 ; if(!qbevent)break;evnt(25224,9609,"ide_methods.bas");}while(r); S_43871:; if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT)> 1 ))||new_error){ if(qbevent){evnt(25224,9610,"ide_methods.bas");if(r)goto S_43871;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9610,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; if(!qbevent)break;evnt(25224,9610,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=func_timer(NULL,0); if(!qbevent)break;evnt(25224,9611,"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(25224,9612,"ide_methods.bas");}while(r); S_43877:; if (((-(*_SUB_IDEOBJUPDATE_LONG_K< 32 ))|(-(*_SUB_IDEOBJUPDATE_LONG_K> 126 )))||new_error){ if(qbevent){evnt(25224,9612,"ide_methods.bas");if(r)goto S_43877;} do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; if(!qbevent)break;evnt(25224,9612,"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(25224,9615,"ide_methods.bas");}while(r); do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8])->id=(++mem_lock_id); if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]); free((void*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0])); } _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 0 ; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=( 0 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]=(ptrszint)malloc(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]*8); if (!_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]) error(257); _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]|=1; tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&4){ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,9616,"ide_methods.bas");}while(r); S_43882:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ if(qbevent){evnt(25224,9617,"ide_methods.bas");if(r)goto S_43882;} do{ *_SUB_IDEOBJUPDATE_LONG_N= 0 ; if(!qbevent)break;evnt(25224,9618,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X= 1 ; if(!qbevent)break;evnt(25224,9618,"ide_methods.bas");}while(r); S_43885:; do{ if(qbevent){evnt(25224,9619,"ide_methods.bas");if(r)goto S_43885;} do{ *_SUB_IDEOBJUPDATE_LONG_X2=func_instr(*_SUB_IDEOBJUPDATE_LONG_X,_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING1_SEP,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9620,"ide_methods.bas");}while(r); S_43887:; if ((-(*_SUB_IDEOBJUPDATE_LONG_X2> 0 ))||new_error){ if(qbevent){evnt(25224,9621,"ide_methods.bas");if(r)goto S_43887;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,9622,"ide_methods.bas");}while(r); do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; } else preserved_elements=0; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 1 ; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; if (tmp_long2id=(++mem_lock_id); static int32 preserved_elements; if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; } else preserved_elements=0; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 1 ; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; if (tmp_long2len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9628,"ide_methods.bas");}while(r); do{ goto dl_exit_4807; if(!qbevent)break;evnt(25224,9629,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,9631,"ide_methods.bas");}while(r); dl_continue_4807:; }while(1); dl_exit_4807:; } S_43900:; if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 255 ))||new_error){ if(qbevent){evnt(25224,9635,"ide_methods.bas");if(r)goto S_43900;} S_43901:; 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_LISTBOXITEMS,1,1)))))||new_error){ if(qbevent){evnt(25224,9636,"ide_methods.bas");if(r)goto S_43901;} do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__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_LISTBOXITEMS[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9636,"ide_methods.bas");}while(r); } do{ goto LABEL_SELECTED; if(!qbevent)break;evnt(25224,9637,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_add(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9639,"ide_methods.bas");}while(r); } S_43908:; if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM->len== 2 ))&(qbs_equal(qbs_left(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM, 1 ),qbs_right(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM, 1 )))))||new_error){ if(qbevent){evnt(25224,9642,"ide_methods.bas");if(r)goto S_43908;} do{ *_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; if(!qbevent)break;evnt(25224,9645,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9646,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_SEARCHPASS= 1 ; if(!qbevent)break;evnt(25224,9649,"ide_methods.bas");}while(r); S_43913:; if ((~(*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER))||new_error){ if(qbevent){evnt(25224,9650,"ide_methods.bas");if(r)goto S_43913;} do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); if(!qbevent)break;evnt(25224,9650,"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(25224,9650,"ide_methods.bas");}while(r); } S_43918:; if (((-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH< 1 ))|(-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH>*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ if(qbevent){evnt(25224,9651,"ide_methods.bas");if(r)goto S_43918;} do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; if(!qbevent)break;evnt(25224,9651,"ide_methods.bas");}while(r); } LABEL_RETRYFIND:; if(qbevent){evnt(25224,9652,"ide_methods.bas");r=0;} S_43921:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS> 2 ))||new_error){ if(qbevent){evnt(25224,9653,"ide_methods.bas");if(r)goto S_43921;} do{ goto LABEL_SELECTED; if(!qbevent)break;evnt(25224,9653,"ide_methods.bas");}while(r); } S_43924:; fornext_value4811=*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH; fornext_finalvalue4811=*_SUB_IDEOBJUPDATE_LONG_N; fornext_step4811= 1 ; if (fornext_step4811<0) fornext_step_negative4811=1; else fornext_step_negative4811=0; if (new_error) goto fornext_error4811; goto fornext_entrylabel4811; while(1){ fornext_value4811=fornext_step4811+(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH); fornext_entrylabel4811: *_SUB_IDEOBJUPDATE_LONG_FINDMATCH=fornext_value4811; if (fornext_step_negative4811){ if (fornext_value4811fornext_finalvalue4811) break; } fornext_error4811:; if(qbevent){evnt(25224,9654,"ide_methods.bas");if(r)goto S_43924;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9655,"ide_methods.bas");}while(r); S_43926:; fornext_value4813= 1 ; fornext_finalvalue4813=((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])]))->len; fornext_step4813= 1 ; if (fornext_step4813<0) fornext_step_negative4813=1; else fornext_step_negative4813=0; if (new_error) goto fornext_error4813; goto fornext_entrylabel4813; while(1){ fornext_value4813=fornext_step4813+(*_SUB_IDEOBJUPDATE_LONG_AI); fornext_entrylabel4813: *_SUB_IDEOBJUPDATE_LONG_AI=fornext_value4813; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4813){ if (fornext_value4813fornext_finalvalue4813) break; } fornext_error4813:; if(qbevent){evnt(25224,9656,"ide_methods.bas");if(r)goto S_43926;} do{ *_SUB_IDEOBJUPDATE_LONG_AA=qbs_asc(qbs_ucase(((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])]))),*_SUB_IDEOBJUPDATE_LONG_AI); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9657,"ide_methods.bas");}while(r); S_43928:; if (((-(*_SUB_IDEOBJUPDATE_LONG_AA> 126 ))|(((-(*_SUB_IDEOBJUPDATE_LONG_K!= 95 ))&(-(*_SUB_IDEOBJUPDATE_LONG_AA== 95 ))))|(((-(*_SUB_IDEOBJUPDATE_LONG_K!= 42 ))&(-(*_SUB_IDEOBJUPDATE_LONG_AA== 42 )))))||new_error){ if(qbevent){evnt(25224,9658,"ide_methods.bas");if(r)goto S_43928;} }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,qbs_add(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,func_chr(*_SUB_IDEOBJUPDATE_LONG_AA))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9661,"ide_methods.bas");}while(r); } fornext_continue_4812:; } fornext_exit_4812:; S_43933:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))))||new_error){ if(qbevent){evnt(25224,9664,"ide_methods.bas");if(r)goto S_43933;} do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__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_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9664,"ide_methods.bas");}while(r); } S_43936:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,_SUB_IDEOBJUPDATE_STRING_SEARCHTERM->len),_SUB_IDEOBJUPDATE_STRING_SEARCHTERM)))||new_error){ if(qbevent){evnt(25224,9665,"ide_methods.bas");if(r)goto S_43936;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_FINDMATCH; if(!qbevent)break;evnt(25224,9666,"ide_methods.bas");}while(r); do{ goto LABEL_SELECTED; if(!qbevent)break;evnt(25224,9667,"ide_methods.bas");}while(r); } fornext_continue_4810:; } fornext_exit_4810:; do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; if(!qbevent)break;evnt(25224,9671,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SEARCHPASS=*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS+ 1 ; if(!qbevent)break;evnt(25224,9672,"ide_methods.bas");}while(r); do{ goto LABEL_RETRYFIND; if(!qbevent)break;evnt(25224,9673,"ide_methods.bas");}while(r); LABEL_SELECTED:; if(qbevent){evnt(25224,9674,"ide_methods.bas");r=0;} } } S_43946:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ if(qbevent){evnt(25224,9680,"ide_methods.bas");if(r)goto S_43946;} S_43947:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,9681,"ide_methods.bas");if(r)goto S_43947;} 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(25224,9682,"ide_methods.bas");}while(r); S_43949:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ if(qbevent){evnt(25224,9683,"ide_methods.bas");if(r)goto S_43949;} S_43950:; 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 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ if(qbevent){evnt(25224,9684,"ide_methods.bas");if(r)goto S_43950;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9684,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,9688,"ide_methods.bas");}while(r); } S_43958:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 3 ))||new_error){ if(qbevent){evnt(25224,9691,"ide_methods.bas");if(r)goto S_43958;} 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(25224,9694,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N= 1 ; if(!qbevent)break;evnt(25224,9695,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,9696,"ide_methods.bas");}while(r); S_43962:; fornext_value4818= 1 ; fornext_finalvalue4818=_SUB_IDEOBJUPDATE_STRING_A->len; fornext_step4818= 1 ; if (fornext_step4818<0) fornext_step_negative4818=1; else fornext_step_negative4818=0; if (new_error) goto fornext_error4818; goto fornext_entrylabel4818; while(1){ fornext_value4818=fornext_step4818+(*_SUB_IDEOBJUPDATE_LONG_I2); fornext_entrylabel4818: *_SUB_IDEOBJUPDATE_LONG_I2=fornext_value4818; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4818){ if (fornext_value4818fornext_finalvalue4818) break; } fornext_error4818:; if(qbevent){evnt(25224,9697,"ide_methods.bas");if(r)goto S_43962;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9698,"ide_methods.bas");}while(r); S_43964:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,9699,"ide_methods.bas");if(r)goto S_43964;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,9699,"ide_methods.bas");}while(r); } S_43967:; if ((-(*_SUB_IDEOBJUPDATE_LONG_X== 1 ))||new_error){ if(qbevent){evnt(25224,9700,"ide_methods.bas");if(r)goto S_43967;} S_43968:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_A2),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ if(qbevent){evnt(25224,9701,"ide_methods.bas");if(r)goto S_43968;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N- 1 ; if(!qbevent)break;evnt(25224,9702,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N; if(!qbevent)break;evnt(25224,9703,"ide_methods.bas");}while(r); } } S_43973:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(25224,9706,"ide_methods.bas");if(r)goto S_43973;} do{ *_SUB_IDEOBJUPDATE_LONG_X= 1 ; if(!qbevent)break;evnt(25224,9706,"ide_methods.bas");}while(r); }else{ do{ *_SUB_IDEOBJUPDATE_LONG_X= 0 ; if(!qbevent)break;evnt(25224,9706,"ide_methods.bas");}while(r); } fornext_continue_4817:; } fornext_exit_4817:; S_43979:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ if(qbevent){evnt(25224,9710,"ide_methods.bas");if(r)goto S_43979;} S_43980:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)))))||new_error){ if(qbevent){evnt(25224,9711,"ide_methods.bas");if(r)goto S_43980;} 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(25224,9712,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N= 1 ; if(!qbevent)break;evnt(25224,9713,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_C= 0 ; if(!qbevent)break;evnt(25224,9714,"ide_methods.bas");}while(r); S_43984:; fornext_value4821= 1 ; fornext_finalvalue4821=_SUB_IDEOBJUPDATE_STRING_A->len; fornext_step4821= 1 ; if (fornext_step4821<0) fornext_step_negative4821=1; else fornext_step_negative4821=0; if (new_error) goto fornext_error4821; goto fornext_entrylabel4821; while(1){ fornext_value4821=fornext_step4821+(*_SUB_IDEOBJUPDATE_LONG_I2); fornext_entrylabel4821: *_SUB_IDEOBJUPDATE_LONG_I2=fornext_value4821; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4821){ if (fornext_value4821fornext_finalvalue4821) break; } fornext_error4821:; if(qbevent){evnt(25224,9715,"ide_methods.bas");if(r)goto S_43984;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9716,"ide_methods.bas");}while(r); S_43986:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,9717,"ide_methods.bas");if(r)goto S_43986;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,9718,"ide_methods.bas");}while(r); }else{ S_43989:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("#",1))))||new_error){ if(qbevent){evnt(25224,9720,"ide_methods.bas");if(r)goto S_43989;} do{ *_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+ 1 ; if(!qbevent)break;evnt(25224,9720,"ide_methods.bas");}while(r); } } fornext_continue_4820:; } fornext_exit_4820:; do{ *_SUB_IDEOBJUPDATE_LONG_W=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28)); if(!qbevent)break;evnt(25224,9723,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+(*_SUB_IDEOBJUPDATE_LONG_N* 4 ); if(!qbevent)break;evnt(25224,9724,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_WHITESPACE=*_SUB_IDEOBJUPDATE_LONG_W-*_SUB_IDEOBJUPDATE_LONG_C; if(!qbevent)break;evnt(25224,9725,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SPACING=*_SUB_IDEOBJUPDATE_LONG_WHITESPACE/ (*_SUB_IDEOBJUPDATE_LONG_N+ 1 ); if(!qbevent)break;evnt(25224,9726,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N2= 1 ; if(!qbevent)break;evnt(25224,9731,"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(25224,9732,"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(25224,9734,"ide_methods.bas");}while(r); S_44001:; fornext_value4824= 1 ; fornext_finalvalue4824=_SUB_IDEOBJUPDATE_STRING_A->len; fornext_step4824= 1 ; if (fornext_step4824<0) fornext_step_negative4824=1; else fornext_step_negative4824=0; if (new_error) goto fornext_error4824; goto fornext_entrylabel4824; while(1){ fornext_value4824=fornext_step4824+(*_SUB_IDEOBJUPDATE_LONG_I2); fornext_entrylabel4824: *_SUB_IDEOBJUPDATE_LONG_I2=fornext_value4824; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4824){ if (fornext_value4824fornext_finalvalue4824) break; } fornext_error4824:; if(qbevent){evnt(25224,9736,"ide_methods.bas");if(r)goto S_44001;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9737,"ide_methods.bas");}while(r); S_44003:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,9738,"ide_methods.bas");if(r)goto S_44003;} 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(25224,9738,"ide_methods.bas");}while(r); } S_44006:; 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(25224,9739,"ide_methods.bas");if(r)goto S_44006;} do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_SPACING; if(!qbevent)break;evnt(25224,9741,"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(25224,9751,"ide_methods.bas");}while(r); S_44009:; 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(25224,9752,"ide_methods.bas");if(r)goto S_44009;} do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N2; if(!qbevent)break;evnt(25224,9752,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N2- 1 ; if(!qbevent)break;evnt(25224,9752,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2; if(!qbevent)break;evnt(25224,9755,"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(25224,9756,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N2=*_SUB_IDEOBJUPDATE_LONG_N2+ 1 ; if(!qbevent)break;evnt(25224,9757,"ide_methods.bas");}while(r); } fornext_continue_4823:; } fornext_exit_4823:; } } S_44020:; if (((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET>= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET<*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ if(qbevent){evnt(25224,9764,"ide_methods.bas");if(r)goto S_44020;} do{ *_SUB_IDEOBJUPDATE_LONG_F2=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET; if(!qbevent)break;evnt(25224,9765,"ide_methods.bas");}while(r); S_44022:; 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(25224,9766,"ide_methods.bas");if(r)goto S_44022;} do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET+ 1 ; if(!qbevent)break;evnt(25224,9767,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N; if(!qbevent)break;evnt(25224,9771,"ide_methods.bas");}while(r); } S_44028:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 4 ))||new_error){ if(qbevent){evnt(25224,9774,"ide_methods.bas");if(r)goto S_44028;} S_44029:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ if(qbevent){evnt(25224,9776,"ide_methods.bas");if(r)goto S_44029;} do{ *_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); if(!qbevent)break;evnt(25224,9777,"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(25224,9778,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+ 2 ; if(!qbevent)break;evnt(25224,9778,"ide_methods.bas");}while(r); S_44033:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,9779,"ide_methods.bas");if(r)goto S_44033;} 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(25224,9780,"ide_methods.bas");}while(r); } S_44036:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ if(qbevent){evnt(25224,9782,"ide_methods.bas");if(r)goto S_44036;} S_44037:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2)))||new_error){ if(qbevent){evnt(25224,9783,"ide_methods.bas");if(r)goto S_44037;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9784,"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(25224,9785,"ide_methods.bas");}while(r); S_44040:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ if(qbevent){evnt(25224,9785,"ide_methods.bas");if(r)goto S_44040;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; if(!qbevent)break;evnt(25224,9785,"ide_methods.bas");}while(r); } } } } S_44046:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ if(qbevent){evnt(25224,9789,"ide_methods.bas");if(r)goto S_44046;} S_44047:; 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(25224,9820,"ide_methods.bas");if(r)goto S_44047;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; if(!qbevent)break;evnt(25224,9820,"ide_methods.bas");}while(r); } S_44050:; 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(25224,9821,"ide_methods.bas");if(r)goto S_44050;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; if(!qbevent)break;evnt(25224,9821,"ide_methods.bas");}while(r); } S_44053:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1))))||new_error){ if(qbevent){evnt(25224,9822,"ide_methods.bas");if(r)goto S_44053;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; if(!qbevent)break;evnt(25224,9823,"ide_methods.bas");}while(r); S_44055:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ if(qbevent){evnt(25224,9823,"ide_methods.bas");if(r)goto S_44055;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; if(!qbevent)break;evnt(25224,9823,"ide_methods.bas");}while(r); } } } S_44060:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ if(qbevent){evnt(25224,9828,"ide_methods.bas");if(r)goto S_44060;} S_44061:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ if(qbevent){evnt(25224,9829,"ide_methods.bas");if(r)goto S_44061;} 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(25224,9830,"ide_methods.bas");}while(r); S_44063:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ if(qbevent){evnt(25224,9831,"ide_methods.bas");if(r)goto S_44063;} S_44064:; 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 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ if(qbevent){evnt(25224,9832,"ide_methods.bas");if(r)goto S_44064;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; if(!qbevent)break;evnt(25224,9832,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; if(!qbevent)break;evnt(25224,9836,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9839,"ide_methods.bas");}while(r); LABEL_SELECTCHECK:; if(qbevent){evnt(25224,9840,"ide_methods.bas");r=0;} S_44073:; if ((*__LONG_KSHIFT&(-(*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))== 0 )))||new_error){ if(qbevent){evnt(25224,9841,"ide_methods.bas");if(r)goto S_44073;} do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= -1 ; if(!qbevent)break;evnt(25224,9841,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); if(!qbevent)break;evnt(25224,9841,"ide_methods.bas");}while(r); } S_44077:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ if(qbevent){evnt(25224,9842,"ide_methods.bas");if(r)goto S_44077;} do{ *(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; if(!qbevent)break;evnt(25224,9842,"ide_methods.bas");}while(r); } do{ #include "ret152.txt" if(!qbevent)break;evnt(25224,9843,"ide_methods.bas");}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; } 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 "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{ *_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_I2; if(!qbevent)break;evnt(25224,9847,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_N=*_FUNC_IDEVBAR_LONG_N2; if(!qbevent)break;evnt(25224,9847,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,9852,"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(25224,9853,"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(25224,9854,"ide_methods.bas");}while(r); S_44086:; fornext_value4829=*_FUNC_IDEVBAR_LONG_Y+ 1 ; fornext_finalvalue4829=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; fornext_step4829= 1 ; if (fornext_step4829<0) fornext_step_negative4829=1; else fornext_step_negative4829=0; if (new_error) goto fornext_error4829; goto fornext_entrylabel4829; while(1){ fornext_value4829=fornext_step4829+(*_FUNC_IDEVBAR_LONG_Y2); fornext_entrylabel4829: *_FUNC_IDEVBAR_LONG_Y2=fornext_value4829; if (fornext_step_negative4829){ if (fornext_value4829fornext_finalvalue4829) break; } fornext_error4829:; if(qbevent){evnt(25224,9855,"ide_methods.bas");if(r)goto S_44086;} 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(25224,9856,"ide_methods.bas");}while(r); fornext_continue_4828:; } fornext_exit_4828:; S_44089:; if ((-(*_FUNC_IDEVBAR_LONG_N< 1 ))||new_error){ if(qbevent){evnt(25224,9861,"ide_methods.bas");if(r)goto S_44089;} do{ *_FUNC_IDEVBAR_LONG_N= 1 ; if(!qbevent)break;evnt(25224,9861,"ide_methods.bas");}while(r); } S_44092:; if ((-(*_FUNC_IDEVBAR_LONG_I< 1 ))||new_error){ if(qbevent){evnt(25224,9862,"ide_methods.bas");if(r)goto S_44092;} do{ *_FUNC_IDEVBAR_LONG_I= 1 ; if(!qbevent)break;evnt(25224,9862,"ide_methods.bas");}while(r); } S_44095:; if ((-(*_FUNC_IDEVBAR_LONG_I>*_FUNC_IDEVBAR_LONG_N))||new_error){ if(qbevent){evnt(25224,9863,"ide_methods.bas");if(r)goto S_44095;} do{ *_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_N; if(!qbevent)break;evnt(25224,9863,"ide_methods.bas");}while(r); } S_44098:; if ((-(*_FUNC_IDEVBAR_LONG_H== 2 ))||new_error){ if(qbevent){evnt(25224,9865,"ide_methods.bas");if(r)goto S_44098;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y; if(!qbevent)break;evnt(25224,9866,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9867,"ide_methods.bas");}while(r); } S_44102:; if ((-(*_FUNC_IDEVBAR_LONG_H== 3 ))||new_error){ if(qbevent){evnt(25224,9870,"ide_methods.bas");if(r)goto S_44102;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,9871,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9873,"ide_methods.bas");}while(r); } S_44106:; if ((-(*_FUNC_IDEVBAR_LONG_H== 4 ))||new_error){ if(qbevent){evnt(25224,9876,"ide_methods.bas");if(r)goto S_44106;} S_44107:; if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ if(qbevent){evnt(25224,9877,"ide_methods.bas");if(r)goto S_44107;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,9878,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9880,"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(25224,9883,"ide_methods.bas");}while(r); S_44112:; if ((-(((float)(*_FUNC_IDEVBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ if(qbevent){evnt(25224,9884,"ide_methods.bas");if(r)goto S_44112;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,9884,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 2 ; if(!qbevent)break;evnt(25224,9884,"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(25224,9885,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; if(!qbevent)break;evnt(25224,9886,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9887,"ide_methods.bas");}while(r); } } S_44122:; if ((-(*_FUNC_IDEVBAR_LONG_H> 4 ))||new_error){ if(qbevent){evnt(25224,9891,"ide_methods.bas");if(r)goto S_44122;} S_44123:; if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ if(qbevent){evnt(25224,9892,"ide_methods.bas");if(r)goto S_44123;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+(*_FUNC_IDEVBAR_LONG_H/ 4 ); if(!qbevent)break;evnt(25224,9893,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9895,"ide_methods.bas");}while(r); } S_44127:; if ((-(*_FUNC_IDEVBAR_LONG_I== 1 ))||new_error){ if(qbevent){evnt(25224,9897,"ide_methods.bas");if(r)goto S_44127;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,9898,"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(25224,9899,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; if(!qbevent)break;evnt(25224,9900,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9901,"ide_methods.bas");}while(r); } S_44133:; if ((-(*_FUNC_IDEVBAR_LONG_I==*_FUNC_IDEVBAR_LONG_N))||new_error){ if(qbevent){evnt(25224,9903,"ide_methods.bas");if(r)goto S_44133;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; if(!qbevent)break;evnt(25224,9904,"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(25224,9905,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; if(!qbevent)break;evnt(25224,9906,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9907,"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(25224,9910,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_SINGLE_P=*_FUNC_IDEVBAR_SINGLE_P*(*_FUNC_IDEVBAR_LONG_H- 4 ); if(!qbevent)break;evnt(25224,9911,"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(25224,9912,"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(25224,9913,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; if(!qbevent)break;evnt(25224,9914,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9915,"ide_methods.bas");}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; 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 "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{ sub__delay( 0.1E+0 ); if(!qbevent)break;evnt(25224,9920,"ide_methods.bas");}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; } 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 "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{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9925,"ide_methods.bas");}while(r); S_44148:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,9927,"ide_methods.bas");if(r)goto S_44148;} S_44149:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ if(qbevent){evnt(25224,9929,"ide_methods.bas");if(r)goto S_44149;} S_44150:; fornext_value4833=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; fornext_finalvalue4833= 1 ; fornext_step4833= -1 ; if (fornext_step4833<0) fornext_step_negative4833=1; else fornext_step_negative4833=0; if (new_error) goto fornext_error4833; goto fornext_entrylabel4833; while(1){ fornext_value4833=fornext_step4833+(*_FUNC_IDEZCHANGEPATH_LONG_X); fornext_entrylabel4833: *_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value4833; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4833){ if (fornext_value4833fornext_finalvalue4833) break; } fornext_error4833:; if(qbevent){evnt(25224,9930,"ide_methods.bas");if(r)goto S_44150;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9931,"ide_methods.bas");}while(r); S_44152:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ if(qbevent){evnt(25224,9932,"ide_methods.bas");if(r)goto S_44152;} 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(25224,9933,"ide_methods.bas");}while(r); do{ goto fornext_exit_4832; if(!qbevent)break;evnt(25224,9934,"ide_methods.bas");}while(r); } fornext_continue_4832:; } fornext_exit_4832:; do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9937,"ide_methods.bas");}while(r); } S_44159:; 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(25224,9940,"ide_methods.bas");if(r)goto S_44159;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9941,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9942,"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(25224,9944,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9945,"ide_methods.bas");}while(r); } S_44166:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,9948,"ide_methods.bas");if(r)goto S_44166;} S_44167:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ if(qbevent){evnt(25224,9951,"ide_methods.bas");if(r)goto S_44167;} S_44168:; fornext_value4837=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; fornext_finalvalue4837= 1 ; fornext_step4837= -1 ; if (fornext_step4837<0) fornext_step_negative4837=1; else fornext_step_negative4837=0; if (new_error) goto fornext_error4837; goto fornext_entrylabel4837; while(1){ fornext_value4837=fornext_step4837+(*_FUNC_IDEZCHANGEPATH_LONG_X); fornext_entrylabel4837: *_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value4837; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4837){ if (fornext_value4837fornext_finalvalue4837) break; } fornext_error4837:; if(qbevent){evnt(25224,9952,"ide_methods.bas");if(r)goto S_44168;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9953,"ide_methods.bas");}while(r); S_44170:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(25224,9954,"ide_methods.bas");if(r)goto S_44170;} 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(25224,9955,"ide_methods.bas");}while(r); S_44172:; if ((-(*_FUNC_IDEZCHANGEPATH_LONG_X== 1 ))||new_error){ if(qbevent){evnt(25224,9956,"ide_methods.bas");if(r)goto S_44172;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9956,"ide_methods.bas");}while(r); } do{ goto fornext_exit_4836; if(!qbevent)break;evnt(25224,9957,"ide_methods.bas");}while(r); } fornext_continue_4836:; } fornext_exit_4836:; do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9960,"ide_methods.bas");}while(r); } S_44180:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(25224,9962,"ide_methods.bas");if(r)goto S_44180;} 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(25224,9962,"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(25224,9962,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9963,"ide_methods.bas");}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_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 "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(25224,9969,"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(25224,9970,"ide_methods.bas");}while(r); S_44189:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,9972,"ide_methods.bas");if(r)goto S_44189;} 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(25224,9973,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,9973,"ide_methods.bas");}while(r); S_44192:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(25224,9974,"ide_methods.bas");if(r)goto S_44192;} 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(25224,9974,"ide_methods.bas");}while(r); } S_44195:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||new_error){ if(qbevent){evnt(25224,9975,"ide_methods.bas");if(r)goto S_44195;} 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(25224,9975,"ide_methods.bas");}while(r); } S_44198:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 ))||new_error){ if(qbevent){evnt(25224,9976,"ide_methods.bas");if(r)goto S_44198;} 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(25224,9976,"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(25224,9977,"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(25224,9978,"ide_methods.bas");}while(r); S_44203:; while((!(func_eof( 150 )))||new_error){ if(qbevent){evnt(25224,9979,"ide_methods.bas");if(r)goto S_44203;} do{ tmp_fileno= 150 ; if (new_error) goto skip4842; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); if (new_error) goto skip4842; skip4842: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9980,"ide_methods.bas");}while(r); S_44205:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZFILELIST_STRING_A->len))||new_error){ if(qbevent){evnt(25224,9981,"ide_methods.bas");if(r)goto S_44205;} S_44206:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,9982,"ide_methods.bas");if(r)goto S_44206;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9982,"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(25224,9982,"ide_methods.bas");}while(r); } } dl_continue_4841:; } dl_exit_4841:; do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,9985,"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(25224,9986,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,9987,"ide_methods.bas");}while(r); } S_44217:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,9990,"ide_methods.bas");if(r)goto S_44217;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,9991,"ide_methods.bas");}while(r); S_44219:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ if(qbevent){evnt(25224,9992,"ide_methods.bas");if(r)goto S_44219;} S_44220:; fornext_value4845= 1 ; fornext_finalvalue4845= 2 ; fornext_step4845= 1 ; if (fornext_step4845<0) fornext_step_negative4845=1; else fornext_step_negative4845=0; if (new_error) goto fornext_error4845; goto fornext_entrylabel4845; while(1){ fornext_value4845=fornext_step4845+(*_FUNC_IDEZFILELIST_LONG_I); fornext_entrylabel4845: *_FUNC_IDEZFILELIST_LONG_I=fornext_value4845; if (fornext_step_negative4845){ if (fornext_value4845fornext_finalvalue4845) break; } fornext_error4845:; if(qbevent){evnt(25224,9993,"ide_methods.bas");if(r)goto S_44220;} 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(25224,9994,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,9994,"ide_methods.bas");}while(r); S_44223:; if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||new_error){ if(qbevent){evnt(25224,9995,"ide_methods.bas");if(r)goto S_44223;} 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(25224,9995,"ide_methods.bas");}while(r); } S_44226:; if ((-(*_FUNC_IDEZFILELIST_LONG_I== 2 ))||new_error){ if(qbevent){evnt(25224,9996,"ide_methods.bas");if(r)goto S_44226;} 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(25224,9996,"ide_methods.bas");}while(r); } do{ return_point[next_return_point++]=62; if (next_return_point>=return_points) more_return_points(); goto LABEL_ADDTOLIST; RETURN_62:; if(!qbevent)break;evnt(25224,9997,"ide_methods.bas");}while(r); fornext_continue_4844:; } fornext_exit_4844:; S_44231:; }else{ if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 )){ if(qbevent){evnt(25224,9999,"ide_methods.bas");if(r)goto S_44231;} 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(25224,10000,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=63; if (next_return_point>=return_points) more_return_points(); goto LABEL_ADDTOLIST; RETURN_63:; if(!qbevent)break;evnt(25224,10001,"ide_methods.bas");}while(r); S_44234:; }else{ if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 )){ if(qbevent){evnt(25224,10002,"ide_methods.bas");if(r)goto S_44234;} 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(25224,10003,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=64; if (next_return_point>=return_points) more_return_points(); goto LABEL_ADDTOLIST; RETURN_64:; if(!qbevent)break;evnt(25224,10004,"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(25224,10006,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10007,"ide_methods.bas");}while(r); LABEL_ADDTOLIST:; if(qbevent){evnt(25224,10009,"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(25224,10010,"ide_methods.bas");}while(r); S_44241:; while((!(func_eof( 150 )))||new_error){ if(qbevent){evnt(25224,10011,"ide_methods.bas");if(r)goto S_44241;} do{ tmp_fileno= 150 ; if (new_error) goto skip4847; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); if (new_error) goto skip4847; skip4847: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10012,"ide_methods.bas");}while(r); S_44243:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZFILELIST_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(25224,10013,"ide_methods.bas");if(r)goto S_44243;} do{ goto dl_exit_4846; if(!qbevent)break;evnt(25224,10013,"ide_methods.bas");}while(r); } S_44246:; fornext_value4850=_FUNC_IDEZFILELIST_STRING_A->len; fornext_finalvalue4850= 1 ; fornext_step4850= -1 ; if (fornext_step4850<0) fornext_step_negative4850=1; else fornext_step_negative4850=0; if (new_error) goto fornext_error4850; goto fornext_entrylabel4850; while(1){ fornext_value4850=fornext_step4850+(*_FUNC_IDEZFILELIST_LONG_X); fornext_entrylabel4850: *_FUNC_IDEZFILELIST_LONG_X=fornext_value4850; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4850){ if (fornext_value4850fornext_finalvalue4850) break; } fornext_error4850:; if(qbevent){evnt(25224,10014,"ide_methods.bas");if(r)goto S_44246;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_A2,func_mid(_FUNC_IDEZFILELIST_STRING_A,*_FUNC_IDEZFILELIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10015,"ide_methods.bas");}while(r); S_44248:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(25224,10016,"ide_methods.bas");if(r)goto S_44248;} 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(25224,10017,"ide_methods.bas");}while(r); do{ goto fornext_exit_4849; if(!qbevent)break;evnt(25224,10018,"ide_methods.bas");}while(r); } fornext_continue_4849:; } fornext_exit_4849:; S_44253:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10021,"ide_methods.bas");if(r)goto S_44253;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10021,"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(25224,10021,"ide_methods.bas");}while(r); } dl_continue_4846:; } dl_exit_4846:; do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10023,"ide_methods.bas");}while(r); do{ #include "ret156.txt" if(!qbevent)break;evnt(25224,10024,"ide_methods.bas");}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_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 "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; S_44262:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,10032,"ide_methods.bas");if(r)goto S_44262;} do{ sub_shell2(qbs_new_txt_len("cd >.\\internal\\temp\\root.txt",28),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10033,"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(25224,10034,"ide_methods.bas");}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip4853; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); if (new_error) goto skip4853; skip4853: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10035,"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(25224,10036,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10037,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10038,"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(25224,10040,"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(25224,10041,"ide_methods.bas");}while(r); do{ tmp_fileno= 150 ; if (new_error) goto skip4854; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); if (new_error) goto skip4854; skip4854: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10042,"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(25224,10043,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10044,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10045,"ide_methods.bas");}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_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 "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(25224,10051,"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(25224,10052,"ide_methods.bas");}while(r); S_44279:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,10054,"ide_methods.bas");if(r)goto S_44279;} 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(25224,10055,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10055,"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(25224,10056,"ide_methods.bas");}while(r); S_44283:; 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(25224,10056,"ide_methods.bas");if(r)goto S_44283;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10056,"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(25224,10057,"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(25224,10058,"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(25224,10059,"ide_methods.bas");}while(r); S_44289:; while((!(func_eof( 150 )))||new_error){ if(qbevent){evnt(25224,10060,"ide_methods.bas");if(r)goto S_44289;} do{ tmp_fileno= 150 ; if (new_error) goto skip4857; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); if (new_error) goto skip4857; skip4857: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10061,"ide_methods.bas");}while(r); S_44291:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10062,"ide_methods.bas");if(r)goto S_44291;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10062,"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(25224,10062,"ide_methods.bas");}while(r); } dl_continue_4856:; } dl_exit_4856:; do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10064,"ide_methods.bas");}while(r); do{ *_FUNC_IDEZPATHLIST_LONG_C= 0 ; if(!qbevent)break;evnt(25224,10066,"ide_methods.bas");}while(r); S_44299:; fornext_value4859= 1 ; fornext_finalvalue4859=_FUNC_IDEZPATHLIST_STRING_PATH->len; fornext_step4859= 1 ; if (fornext_step4859<0) fornext_step_negative4859=1; else fornext_step_negative4859=0; if (new_error) goto fornext_error4859; goto fornext_entrylabel4859; while(1){ fornext_value4859=fornext_step4859+(*_FUNC_IDEZPATHLIST_LONG_X); fornext_entrylabel4859: *_FUNC_IDEZPATHLIST_LONG_X=fornext_value4859; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4859){ if (fornext_value4859fornext_finalvalue4859) break; } fornext_error4859:; if(qbevent){evnt(25224,10067,"ide_methods.bas");if(r)goto S_44299;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_B,func_mid(_FUNC_IDEZPATHLIST_STRING_PATH,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10068,"ide_methods.bas");}while(r); S_44301:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_B,__STRING1_IDEPATHSEP)))||new_error){ if(qbevent){evnt(25224,10069,"ide_methods.bas");if(r)goto S_44301;} do{ *_FUNC_IDEZPATHLIST_LONG_C=*_FUNC_IDEZPATHLIST_LONG_C+ 1 ; if(!qbevent)break;evnt(25224,10069,"ide_methods.bas");}while(r); } fornext_continue_4858:; } fornext_exit_4858:; S_44305:; if ((-(*_FUNC_IDEZPATHLIST_LONG_C>= 1 ))||new_error){ if(qbevent){evnt(25224,10071,"ide_methods.bas");if(r)goto S_44305;} S_44306:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||new_error){ if(qbevent){evnt(25224,10072,"ide_methods.bas");if(r)goto S_44306;} 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(25224,10072,"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(25224,10072,"ide_methods.bas");}while(r); } } S_44312:; fornext_value4863= 0 ; fornext_finalvalue4863= 25 ; fornext_step4863= 1 ; if (fornext_step4863<0) fornext_step_negative4863=1; else fornext_step_negative4863=0; if (new_error) goto fornext_error4863; goto fornext_entrylabel4863; while(1){ fornext_value4863=fornext_step4863+(*_FUNC_IDEZPATHLIST_LONG_I); fornext_entrylabel4863: *_FUNC_IDEZPATHLIST_LONG_I=fornext_value4863; if (fornext_step_negative4863){ if (fornext_value4863fornext_finalvalue4863) break; } fornext_error4863:; if(qbevent){evnt(25224,10075,"ide_methods.bas");if(r)goto S_44312;} S_44313:; 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(25224,10076,"ide_methods.bas");if(r)goto S_44313;} 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(25224,10076,"ide_methods.bas");}while(r); } S_44316:; if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(func_chr( 65 +*_FUNC_IDEZPATHLIST_LONG_I),qbs_new_txt_len(":\\",2)))))||new_error){ if(qbevent){evnt(25224,10077,"ide_methods.bas");if(r)goto S_44316;} 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(25224,10078,"ide_methods.bas");}while(r); } fornext_continue_4862:; } fornext_exit_4862:; do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10081,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10082,"ide_methods.bas");}while(r); } S_44323:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,10085,"ide_methods.bas");if(r)goto S_44323;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10086,"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(25224,10087,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10087,"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(25224,10088,"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(25224,10089,"ide_methods.bas");}while(r); S_44329:; while((!(func_eof( 150 )))||new_error){ if(qbevent){evnt(25224,10090,"ide_methods.bas");if(r)goto S_44329;} do{ tmp_fileno= 150 ; if (new_error) goto skip4866; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); if (new_error) goto skip4866; skip4866: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10091,"ide_methods.bas");}while(r); S_44331:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZPATHLIST_STRING_A->len== 0 )))||new_error){ if(qbevent){evnt(25224,10092,"ide_methods.bas");if(r)goto S_44331;} do{ goto dl_exit_4865; if(!qbevent)break;evnt(25224,10092,"ide_methods.bas");}while(r); } S_44334:; fornext_value4869=_FUNC_IDEZPATHLIST_STRING_A->len; fornext_finalvalue4869= 1 ; fornext_step4869= -1 ; if (fornext_step4869<0) fornext_step_negative4869=1; else fornext_step_negative4869=0; if (new_error) goto fornext_error4869; goto fornext_entrylabel4869; while(1){ fornext_value4869=fornext_step4869+(*_FUNC_IDEZPATHLIST_LONG_X); fornext_entrylabel4869: *_FUNC_IDEZPATHLIST_LONG_X=fornext_value4869; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4869){ if (fornext_value4869fornext_finalvalue4869) break; } fornext_error4869:; if(qbevent){evnt(25224,10093,"ide_methods.bas");if(r)goto S_44334;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A2,func_mid(_FUNC_IDEZPATHLIST_STRING_A,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10094,"ide_methods.bas");}while(r); S_44336:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(25224,10095,"ide_methods.bas");if(r)goto S_44336;} 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(25224,10096,"ide_methods.bas");}while(r); do{ goto fornext_exit_4868; if(!qbevent)break;evnt(25224,10097,"ide_methods.bas");}while(r); } fornext_continue_4868:; } fornext_exit_4868:; S_44341:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10100,"ide_methods.bas");if(r)goto S_44341;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10100,"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(25224,10100,"ide_methods.bas");}while(r); } dl_continue_4865:; } dl_exit_4865:; do{ sub_close( 150 ,1); if(!qbevent)break;evnt(25224,10102,"ide_methods.bas");}while(r); S_44348:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEZPATHLIST_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ if(qbevent){evnt(25224,10104,"ide_methods.bas");if(r)goto S_44348;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("..",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10105,"ide_methods.bas");}while(r); S_44350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10107,"ide_methods.bas");if(r)goto S_44350;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10107,"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(25224,10107,"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(25224,10110,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10111,"ide_methods.bas");}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_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 "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{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10117,"ide_methods.bas");}while(r); S_44360:; fornext_value4874=_FUNC_IDEZTAKEPATH_STRING_F->len; fornext_finalvalue4874= 1 ; fornext_step4874= -1 ; if (fornext_step4874<0) fornext_step_negative4874=1; else fornext_step_negative4874=0; if (new_error) goto fornext_error4874; goto fornext_entrylabel4874; while(1){ fornext_value4874=fornext_step4874+(*_FUNC_IDEZTAKEPATH_LONG_I); fornext_entrylabel4874: *_FUNC_IDEZTAKEPATH_LONG_I=fornext_value4874; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4874){ if (fornext_value4874fornext_finalvalue4874) break; } fornext_error4874:; if(qbevent){evnt(25224,10119,"ide_methods.bas");if(r)goto S_44360;} do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_A,func_mid(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10120,"ide_methods.bas");}while(r); S_44362:; 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(25224,10121,"ide_methods.bas");if(r)goto S_44362;} 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(25224,10122,"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(25224,10123,"ide_methods.bas");}while(r); do{ goto fornext_exit_4873; if(!qbevent)break;evnt(25224,10124,"ide_methods.bas");}while(r); } fornext_continue_4873:; } fornext_exit_4873:; do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH,_FUNC_IDEZTAKEPATH_STRING_P); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10127,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10128,"ide_methods.bas");}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; 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 "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{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,FUNC_IDEZTAKEPATH(_FUNC_IDEZGETFILEPATH_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10137,"ide_methods.bas");}while(r); S_44371:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZGETFILEPATH_STRING_P->len== 0 )))||new_error){ if(qbevent){evnt(25224,10140,"ide_methods.bas");if(r)goto S_44371;} do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,_FUNC_IDEZGETFILEPATH_STRING_ROOT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10140,"ide_methods.bas");}while(r); } S_44374:; 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(25224,10143,"ide_methods.bas");if(r)goto S_44374;} 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(25224,10143,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 4 ; if(!qbevent)break;evnt(25224,10147,"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(25224,10148,"ide_methods.bas");}while(r); S_44379:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,10149,"ide_methods.bas");if(r)goto S_44379;} S_44380:; 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(25224,10150,"ide_methods.bas");if(r)goto S_44380;} 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(25224,10150,"ide_methods.bas");}while(r); } } do{ sub_chdir(_FUNC_IDEZGETFILEPATH_STRING_P2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10153,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; if(!qbevent)break;evnt(25224,10154,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10156,"ide_methods.bas");}while(r); do{ sub_chdir(__STRING_IDEROOT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10158,"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(25224,10160,"ide_methods.bas");}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; 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,10166,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,10167,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10168,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10169,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10170,"ide_methods.bas");}while(r); do{ if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]+1; _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,10171,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10172,"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(25224,10173,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,10177,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) ),&(pass4880= 60 ),&(pass4881= 8 ),qbs_new_txt_len("Code Layout",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10178,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10180,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10181,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,10182,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Auto Spacing & Upper/Lowercase Formatting",42)); if(!qbevent)break;evnt(25224,10183,"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]))*85+64))=*__LONG_IDEAUTOLAYOUT; if(!qbevent)break;evnt(25224,10184,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10186,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10187,"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]))*85+24))= 4 ; if(!qbevent)break;evnt(25224,10188,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Auto #Indent -",14)); if(!qbevent)break;evnt(25224,10189,"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]))*85+64))=*__LONG_IDEAUTOINDENT; if(!qbevent)break;evnt(25224,10190,"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(25224,10192,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10193,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,10194,"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]))*85+20))= 20 ; if(!qbevent)break;evnt(25224,10195,"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]))*85+24))= 4 ; if(!qbevent)break;evnt(25224,10196,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Spacing",8)); if(!qbevent)break;evnt(25224,10197,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDELAYOUTBOX_STRING_A2); if(!qbevent)break;evnt(25224,10198,"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]))*85+77))=_FUNC_IDELAYOUTBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,10199,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10201,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10202,"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]))*85+24))= 6 ; if(!qbevent)break;evnt(25224,10203,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Indent SUBs and #FUNCTIONs",26)); if(!qbevent)break;evnt(25224,10204,"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]))*85+64))=*__LONG_IDEINDENTSUBS; if(!qbevent)break;evnt(25224,10205,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10207,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,10208,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,10209,"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]))*85+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(25224,10210,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,10211,"ide_methods.bas");}while(r); S_44427:; fornext_value4884= 1 ; fornext_finalvalue4884= 100 ; fornext_step4884= 1 ; if (fornext_step4884<0) fornext_step_negative4884=1; else fornext_step_negative4884=0; if (new_error) goto fornext_error4884; goto fornext_entrylabel4884; while(1){ fornext_value4884=fornext_step4884+(*_FUNC_IDELAYOUTBOX_LONG_I); fornext_entrylabel4884: *_FUNC_IDELAYOUTBOX_LONG_I=fornext_value4884; if (fornext_step_negative4884){ if (fornext_value4884fornext_finalvalue4884) break; } fornext_error4884:; if(qbevent){evnt(25224,10215,"ide_methods.bas");if(r)goto S_44427;} 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]))*85)+ 0,((char*)_FUNC_IDELAYOUTBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,10215,"ide_methods.bas");}while(r); fornext_continue_4883:; } fornext_exit_4883:; S_44430:; do{ if(qbevent){evnt(25224,10218,"ide_methods.bas");if(r)goto S_44430;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,10222,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10223,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,10223,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,10223,"ide_methods.bas");}while(r); S_44435:; fornext_value4887= 1 ; fornext_finalvalue4887= 100 ; fornext_step4887= 1 ; if (fornext_step4887<0) fornext_step_negative4887=1; else fornext_step_negative4887=0; if (new_error) goto fornext_error4887; goto fornext_entrylabel4887; while(1){ fornext_value4887=fornext_step4887+(*_FUNC_IDELAYOUTBOX_LONG_I); fornext_entrylabel4887: *_FUNC_IDELAYOUTBOX_LONG_I=fornext_value4887; if (fornext_step_negative4887){ if (fornext_value4887fornext_finalvalue4887) break; } fornext_error4887:; if(qbevent){evnt(25224,10224,"ide_methods.bas");if(r)goto S_44435;} S_44436:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,10225,"ide_methods.bas");if(r)goto S_44436;} 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]))*85+60))=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; if(!qbevent)break;evnt(25224,10228,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,10229,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,10229,"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]))*85) ),_FUNC_IDELAYOUTBOX_LONG_F); if(!qbevent)break;evnt(25224,10230,"ide_methods.bas");}while(r); S_44441:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,10231,"ide_methods.bas");if(r)goto S_44441;} 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]))*85+52)); if(!qbevent)break;evnt(25224,10231,"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]))*85+56)); if(!qbevent)break;evnt(25224,10231,"ide_methods.bas");}while(r); } } fornext_continue_4886:; } fornext_exit_4886:; do{ *_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=*_FUNC_IDELAYOUTBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,10234,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,10241,"ide_methods.bas");}while(r); S_44449:; if ((*_FUNC_IDELAYOUTBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,10242,"ide_methods.bas");if(r)goto S_44449;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10242,"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(25224,10242,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10242,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,10245,"ide_methods.bas");}while(r); S_44455:; do{ if(qbevent){evnt(25224,10246,"ide_methods.bas");if(r)goto S_44455;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,10247,"ide_methods.bas");}while(r); S_44457:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,10248,"ide_methods.bas");if(r)goto S_44457;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10248,"ide_methods.bas");}while(r); } S_44460:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,10249,"ide_methods.bas");if(r)goto S_44460;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10249,"ide_methods.bas");}while(r); } S_44463:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,10250,"ide_methods.bas");if(r)goto S_44463;} do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,10250,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10250,"ide_methods.bas");}while(r); } S_44467:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,10251,"ide_methods.bas");if(r)goto S_44467;} do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,10251,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10251,"ide_methods.bas");}while(r); } S_44471:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,10252,"ide_methods.bas");if(r)goto S_44471;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10252,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,10253,"ide_methods.bas");}while(r); S_44475:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_ALT!=*_FUNC_IDELAYOUTBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,10253,"ide_methods.bas");if(r)goto S_44475;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10253,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_OLDALT=*_FUNC_IDELAYOUTBOX_LONG_ALT; if(!qbevent)break;evnt(25224,10254,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,10255,"ide_methods.bas");}while(r); S_44480:; dl_continue_4888:; }while((!(*_FUNC_IDELAYOUTBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4888:; if(qbevent){evnt(25224,10256,"ide_methods.bas");if(r)goto S_44480;} S_44481:; if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10257,"ide_methods.bas");if(r)goto S_44481;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,10257,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,10257,"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(25224,10259,"ide_methods.bas");}while(r); S_44487:; if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10260,"ide_methods.bas");if(r)goto S_44487;} S_44488:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,10261,"ide_methods.bas");if(r)goto S_44488;} do{ *_FUNC_IDELAYOUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10262,"ide_methods.bas");}while(r); S_44490:; if (((-(*_FUNC_IDELAYOUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,10263,"ide_methods.bas");if(r)goto S_44490;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELAYOUTBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10263,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10266,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,10266,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10266,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,10270,"ide_methods.bas");}while(r); S_44499:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10271,"ide_methods.bas");if(r)goto S_44499;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10271,"ide_methods.bas");}while(r); } S_44502:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,10272,"ide_methods.bas");if(r)goto S_44502;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,10272,"ide_methods.bas");}while(r); } S_44505:; 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(25224,10273,"ide_methods.bas");if(r)goto S_44505;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,10273,"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(25224,10273,"ide_methods.bas");}while(r); } S_44509:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,10274,"ide_methods.bas");if(r)goto S_44509;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,10274,"ide_methods.bas");}while(r); } S_44512:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS>*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,10275,"ide_methods.bas");if(r)goto S_44512;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10275,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10276,"ide_methods.bas");}while(r); S_44516:; fornext_value4891= 1 ; fornext_finalvalue4891= 100 ; fornext_step4891= 1 ; if (fornext_step4891<0) fornext_step_negative4891=1; else fornext_step_negative4891=0; if (new_error) goto fornext_error4891; goto fornext_entrylabel4891; while(1){ fornext_value4891=fornext_step4891+(*_FUNC_IDELAYOUTBOX_LONG_I); fornext_entrylabel4891: *_FUNC_IDELAYOUTBOX_LONG_I=fornext_value4891; if (fornext_step_negative4891){ if (fornext_value4891fornext_finalvalue4891) break; } fornext_error4891:; if(qbevent){evnt(25224,10277,"ide_methods.bas");if(r)goto S_44516;} 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]))*85+36)); if(!qbevent)break;evnt(25224,10278,"ide_methods.bas");}while(r); S_44518:; if ((*_FUNC_IDELAYOUTBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,10279,"ide_methods.bas");if(r)goto S_44518;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; if(!qbevent)break;evnt(25224,10280,"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]))*85) ),_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(25224,10281,"ide_methods.bas");}while(r); } fornext_continue_4890:; } fornext_exit_4890:; S_44523:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS!=*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,10287,"ide_methods.bas");if(r)goto S_44523;} do{ *_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,10289,"ide_methods.bas");}while(r); S_44525:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 3 ))||new_error){ if(qbevent){evnt(25224,10290,"ide_methods.bas");if(r)goto S_44525;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,10291,"ide_methods.bas");}while(r); S_44527:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,10292,"ide_methods.bas");if(r)goto S_44527;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,10292,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,10293,"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(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10297,"ide_methods.bas");}while(r); S_44534:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDELAYOUTBOX_STRING_A->len> 2 )))||new_error){ if(qbevent){evnt(25224,10298,"ide_methods.bas");if(r)goto S_44534;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_left(_FUNC_IDELAYOUTBOX_STRING_A, 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10298,"ide_methods.bas");}while(r); } S_44537:; fornext_value4895= 1 ; fornext_finalvalue4895=_FUNC_IDELAYOUTBOX_STRING_A->len; fornext_step4895= 1 ; if (fornext_step4895<0) fornext_step_negative4895=1; else fornext_step_negative4895=0; if (new_error) goto fornext_error4895; goto fornext_entrylabel4895; while(1){ fornext_value4895=fornext_step4895+(*_FUNC_IDELAYOUTBOX_LONG_I); fornext_entrylabel4895: *_FUNC_IDELAYOUTBOX_LONG_I=fornext_value4895; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4895){ if (fornext_value4895fornext_finalvalue4895) break; } fornext_error4895:; if(qbevent){evnt(25224,10299,"ide_methods.bas");if(r)goto S_44537;} 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(25224,10300,"ide_methods.bas");}while(r); S_44539:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDELAYOUTBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,10301,"ide_methods.bas");if(r)goto S_44539;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10301,"ide_methods.bas");}while(r); do{ goto fornext_exit_4894; if(!qbevent)break;evnt(25224,10301,"ide_methods.bas");}while(r); } S_44543:; if (((-(*_FUNC_IDELAYOUTBOX_LONG_A< 48 ))|(-(*_FUNC_IDELAYOUTBOX_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,10302,"ide_methods.bas");if(r)goto S_44543;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10302,"ide_methods.bas");}while(r); do{ goto fornext_exit_4894; if(!qbevent)break;evnt(25224,10302,"ide_methods.bas");}while(r); } fornext_continue_4894:; } fornext_exit_4894:; S_44548:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDELAYOUTBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,10304,"ide_methods.bas");if(r)goto S_44548;} do{ *_FUNC_IDELAYOUTBOX_LONG_A=qbr(func_val(_FUNC_IDELAYOUTBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10305,"ide_methods.bas");}while(r); S_44550:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_A> 64 ))||new_error){ if(qbevent){evnt(25224,10306,"ide_methods.bas");if(r)goto S_44550;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("64",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10306,"ide_methods.bas");}while(r); } } do{ tmp_long=array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+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(25224,10308,"ide_methods.bas");}while(r); S_44555:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 6 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10310,"ide_methods.bas");if(r)goto S_44555;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10310,"ide_methods.bas");}while(r); } S_44558:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10311,"ide_methods.bas");if(r)goto S_44558;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10313,"ide_methods.bas");}while(r); S_44560:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,10313,"ide_methods.bas");if(r)goto S_44560;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; if(!qbevent)break;evnt(25224,10313,"ide_methods.bas");}while(r); } S_44563:; if ((-(*__LONG_IDEAUTOLAYOUT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ if(qbevent){evnt(25224,10315,"ide_methods.bas");if(r)goto S_44563;} do{ *__LONG_IDEAUTOLAYOUT=*_FUNC_IDELAYOUTBOX_INTEGER_V; if(!qbevent)break;evnt(25224,10315,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; if(!qbevent)break;evnt(25224,10315,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10316,"ide_methods.bas");}while(r); S_44568:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,10316,"ide_methods.bas");if(r)goto S_44568;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; if(!qbevent)break;evnt(25224,10316,"ide_methods.bas");}while(r); } S_44571:; if ((-(*__LONG_IDEAUTOINDENT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ if(qbevent){evnt(25224,10318,"ide_methods.bas");if(r)goto S_44571;} do{ *__LONG_IDEAUTOINDENT=*_FUNC_IDELAYOUTBOX_INTEGER_V; if(!qbevent)break;evnt(25224,10318,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; if(!qbevent)break;evnt(25224,10318,"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(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10319,"ide_methods.bas");}while(r); S_44576:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10320,"ide_methods.bas");if(r)goto S_44576;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("4",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10320,"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(25224,10321,"ide_methods.bas");}while(r); S_44580:; if (((-(*_FUNC_IDELAYOUTBOX_INTEGER_V< 0 ))|(-(*_FUNC_IDELAYOUTBOX_INTEGER_V> 64 )))||new_error){ if(qbevent){evnt(25224,10322,"ide_methods.bas");if(r)goto S_44580;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 4 ; if(!qbevent)break;evnt(25224,10322,"ide_methods.bas");}while(r); } S_44583:; if ((-(*__LONG_IDEAUTOINDENTSIZE!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ if(qbevent){evnt(25224,10323,"ide_methods.bas");if(r)goto S_44583;} do{ *__LONG_IDEAUTOINDENTSIZE=*_FUNC_IDELAYOUTBOX_INTEGER_V; if(!qbevent)break;evnt(25224,10324,"ide_methods.bas");}while(r); S_44585:; if ((-(*__LONG_IDEAUTOINDENT!= 0 ))||new_error){ if(qbevent){evnt(25224,10325,"ide_methods.bas");if(r)goto S_44585;} do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; if(!qbevent)break;evnt(25224,10325,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10328,"ide_methods.bas");}while(r); S_44590:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,10328,"ide_methods.bas");if(r)goto S_44590;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; if(!qbevent)break;evnt(25224,10328,"ide_methods.bas");}while(r); } S_44593:; if ((-(*__LONG_IDEINDENTSUBS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ if(qbevent){evnt(25224,10329,"ide_methods.bas");if(r)goto S_44593;} do{ *__LONG_IDEINDENTSUBS=*_FUNC_IDELAYOUTBOX_INTEGER_V; if(!qbevent)break;evnt(25224,10329,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; if(!qbevent)break;evnt(25224,10329,"ide_methods.bas");}while(r); } S_44597:; if ((*__LONG_IDEAUTOLAYOUT)||new_error){ if(qbevent){evnt(25224,10331,"ide_methods.bas");if(r)goto S_44597;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10332,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10334,"ide_methods.bas");}while(r); } S_44602:; if ((*__LONG_IDEAUTOINDENT)||new_error){ if(qbevent){evnt(25224,10336,"ide_methods.bas");if(r)goto S_44602;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10337,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10339,"ide_methods.bas");}while(r); } do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_str((int32)(*__LONG_IDEAUTOINDENTSIZE))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10341,"ide_methods.bas");}while(r); S_44608:; if ((*__LONG_IDEINDENTSUBS)||new_error){ if(qbevent){evnt(25224,10342,"ide_methods.bas");if(r)goto S_44608;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10343,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10345,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10347,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,10352,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,10353,"ide_methods.bas");}while(r); dl_continue_4885:; }while(1); dl_exit_4885:; 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_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 "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{ qbs_set(_FUNC_IDEBACKUPBOX_STRING_A2,FUNC_STR2(__LONG_IDEBACKUPSIZE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10363,"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),&(pass4898= 50 ),&(pass4899= 4 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10364,"ide_methods.bas");}while(r); S_44620:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEBACKUPBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10365,"ide_methods.bas");if(r)goto S_44620;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10365,"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(25224,10368,"ide_methods.bas");}while(r); S_44624:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V< 10 ))||new_error){ if(qbevent){evnt(25224,10369,"ide_methods.bas");if(r)goto S_44624;} do{ *_FUNC_IDEBACKUPBOX_LONG_V= 10 ; if(!qbevent)break;evnt(25224,10369,"ide_methods.bas");}while(r); } S_44627:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V> 2000 ))||new_error){ if(qbevent){evnt(25224,10370,"ide_methods.bas");if(r)goto S_44627;} do{ *_FUNC_IDEBACKUPBOX_LONG_V= 2000 ; if(!qbevent)break;evnt(25224,10370,"ide_methods.bas");}while(r); } S_44630:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V<*__LONG_IDEBACKUPSIZE))||new_error){ if(qbevent){evnt(25224,10372,"ide_methods.bas");if(r)goto S_44630;} 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(25224,10373,"ide_methods.bas");}while(r); do{ sub_close( 151 ,1); if(!qbevent)break;evnt(25224,10373,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; if(!qbevent)break;evnt(25224,10374,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOPOS= 0 ; if(!qbevent)break;evnt(25224,10375,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBACKUPSIZE=*_FUNC_IDEBACKUPBOX_LONG_V; if(!qbevent)break;evnt(25224,10378,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),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(25224,10379,"ide_methods.bas");}while(r); do{ *_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX= 1 ; if(!qbevent)break;evnt(25224,10380,"ide_methods.bas");}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_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 "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; S_44639:; if ((-(*__LONG_IDEGOTOBOX_LASTLINENUM> 0 ))||new_error){ if(qbevent){evnt(25224,10384,"ide_methods.bas");if(r)goto S_44639;} do{ qbs_set(_SUB_IDEGOTOBOX_STRING_A2,FUNC_STR2(__LONG_IDEGOTOBOX_LASTLINENUM)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10384,"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(25224,10384,"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),&(pass4900= 30 ),&(pass4901= 8 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10385,"ide_methods.bas");}while(r); S_44645:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEGOTOBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10386,"ide_methods.bas");if(r)goto S_44645;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10386,"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(25224,10388,"ide_methods.bas");}while(r); S_44649:; if ((-(*_SUB_IDEGOTOBOX_LONG_V< 1 ))||new_error){ if(qbevent){evnt(25224,10389,"ide_methods.bas");if(r)goto S_44649;} do{ *_SUB_IDEGOTOBOX_LONG_V= 1 ; if(!qbevent)break;evnt(25224,10389,"ide_methods.bas");}while(r); } S_44652:; if ((-(*_SUB_IDEGOTOBOX_LONG_V>*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,10390,"ide_methods.bas");if(r)goto S_44652;} do{ *_SUB_IDEGOTOBOX_LONG_V=*__LONG_IDEN; if(!qbevent)break;evnt(25224,10390,"ide_methods.bas");}while(r); } do{ *__LONG_IDEGOTOBOX_LASTLINENUM=*_SUB_IDEGOTOBOX_LONG_V; if(!qbevent)break;evnt(25224,10391,"ide_methods.bas");}while(r); do{ SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); if(!qbevent)break;evnt(25224,10392,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_SUB_IDEGOTOBOX_LONG_V; if(!qbevent)break;evnt(25224,10393,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,10394,"ide_methods.bas");}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; } int32 FUNC_IDEADVANCEDBOX(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,10404,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,10405,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10406,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10407,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10408,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,10409,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10410,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10411,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&2){ error(10); }else{ if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&1){ error(10); }else{ _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]= 0 ; _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]=( 100 )-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]+1; _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[6]=1; _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]=(ptrszint)malloc(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]*8); if (!_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]) error(257); _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]|=1; tmp_long=_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]; if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,10415,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,10417,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I=*_FUNC_IDEADVANCEDBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10419,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,10420,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEADVANCEDBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); if(!qbevent)break;evnt(25224,10422,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,10423,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y= 2 ; if(!qbevent)break;evnt(25224,10425,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I=*_FUNC_IDEADVANCEDBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10427,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10428,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; if(!qbevent)break;evnt(25224,10429,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Embed C++ debug information into executable",43)); if(!qbevent)break;evnt(25224,10430,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDEDEBUGINFO; if(!qbevent)break;evnt(25224,10431,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10432,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Investigate crashes/freezes at C++ (not QB64) code level",57))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10432,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10433,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Use internal/temp/debug batch file to debug your executable",60))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10433,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10434,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Increases executable size",26))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10434,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10435,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Makes public the names of variables in your program's code",59))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10435,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10436,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" QB64 libraries will be purged then rebuilt",43))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10436,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,10437,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" This setting also affects command line compilation",51))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10437,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 2 ; if(!qbevent)break;evnt(25224,10439,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; if(!qbevent)break;evnt(25224,10441,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_UDT_P)) + (0) ),&(pass4902= 75 ),_FUNC_IDEADVANCEDBOX_LONG_Y,qbs_new_txt_len("Advanced Options",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10445,"ide_methods.bas");}while(r); S_44694:; fornext_value4904= 1 ; fornext_finalvalue4904= 100 ; fornext_step4904= 1 ; if (fornext_step4904<0) fornext_step_negative4904=1; else fornext_step_negative4904=0; if (new_error) goto fornext_error4904; goto fornext_entrylabel4904; while(1){ fornext_value4904=fornext_step4904+(*_FUNC_IDEADVANCEDBOX_LONG_I); fornext_entrylabel4904: *_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value4904; if (fornext_step_negative4904){ if (fornext_value4904fornext_finalvalue4904) break; } fornext_error4904:; if(qbevent){evnt(25224,10448,"ide_methods.bas");if(r)goto S_44694;} do{ memcpy(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,10448,"ide_methods.bas");}while(r); fornext_continue_4903:; } fornext_exit_4903:; S_44697:; do{ if(qbevent){evnt(25224,10451,"ide_methods.bas");if(r)goto S_44697;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,10455,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10456,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,10456,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,10456,"ide_methods.bas");}while(r); S_44702:; fornext_value4907= 1 ; fornext_finalvalue4907= 100 ; fornext_step4907= 1 ; if (fornext_step4907<0) fornext_step_negative4907=1; else fornext_step_negative4907=0; if (new_error) goto fornext_error4907; goto fornext_entrylabel4907; while(1){ fornext_value4907=fornext_step4907+(*_FUNC_IDEADVANCEDBOX_LONG_I); fornext_entrylabel4907: *_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value4907; if (fornext_step_negative4907){ if (fornext_value4907fornext_finalvalue4907) break; } fornext_error4907:; if(qbevent){evnt(25224,10457,"ide_methods.bas");if(r)goto S_44702;} S_44703:; if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ if(qbevent){evnt(25224,10458,"ide_methods.bas");if(r)goto S_44703;} do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS-*_FUNC_IDEADVANCEDBOX_LONG_F; if(!qbevent)break;evnt(25224,10461,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,10462,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,10462,"ide_methods.bas");}while(r); do{ SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEADVANCEDBOX_LONG_F); if(!qbevent)break;evnt(25224,10463,"ide_methods.bas");}while(r); S_44708:; if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ if(qbevent){evnt(25224,10464,"ide_methods.bas");if(r)goto S_44708;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52)); if(!qbevent)break;evnt(25224,10464,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+56)); if(!qbevent)break;evnt(25224,10464,"ide_methods.bas");}while(r); } } fornext_continue_4906:; } fornext_exit_4906:; do{ *_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS=*_FUNC_IDEADVANCEDBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,10467,"ide_methods.bas");}while(r); S_44715:; fornext_value4909= 1 ; fornext_finalvalue4909= 100 ; fornext_step4909= 1 ; if (fornext_step4909<0) fornext_step_negative4909=1; else fornext_step_negative4909=0; if (new_error) goto fornext_error4909; goto fornext_entrylabel4909; while(1){ fornext_value4909=fornext_step4909+(*_FUNC_IDEADVANCEDBOX_LONG_Y); fornext_entrylabel4909: *_FUNC_IDEADVANCEDBOX_LONG_Y=fornext_value4909; if (fornext_step_negative4909){ if (fornext_value4909fornext_finalvalue4909) break; } fornext_error4909:; if(qbevent){evnt(25224,10471,"ide_methods.bas");if(r)goto S_44715;} S_44716:; if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5])]))->len))||new_error){ if(qbevent){evnt(25224,10472,"ide_methods.bas");if(r)goto S_44716;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,10473,"ide_methods.bas");}while(r); do{ sub__printstring(*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0))+ 1 ,*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(4))+*_FUNC_IDEADVANCEDBOX_LONG_Y,((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5])])),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10473,"ide_methods.bas");}while(r); } fornext_continue_4908:; } fornext_exit_4908:; do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,10479,"ide_methods.bas");}while(r); S_44722:; if ((*_FUNC_IDEADVANCEDBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,10480,"ide_methods.bas");if(r)goto S_44722;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10480,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEADVANCEDBOX_LONG_CY,*_FUNC_IDEADVANCEDBOX_LONG_CX, 1 ,NULL,NULL,7); if(!qbevent)break;evnt(25224,10480,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10480,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,10483,"ide_methods.bas");}while(r); S_44728:; do{ if(qbevent){evnt(25224,10484,"ide_methods.bas");if(r)goto S_44728;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,10485,"ide_methods.bas");}while(r); S_44730:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,10486,"ide_methods.bas");if(r)goto S_44730;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10486,"ide_methods.bas");}while(r); } S_44733:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,10487,"ide_methods.bas");if(r)goto S_44733;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10487,"ide_methods.bas");}while(r); } S_44736:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,10488,"ide_methods.bas");if(r)goto S_44736;} do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,10488,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10488,"ide_methods.bas");}while(r); } S_44740:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,10489,"ide_methods.bas");if(r)goto S_44740;} do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,10489,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10489,"ide_methods.bas");}while(r); } S_44744:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,10490,"ide_methods.bas");if(r)goto S_44744;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10490,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,10491,"ide_methods.bas");}while(r); S_44748:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_ALT!=*_FUNC_IDEADVANCEDBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,10491,"ide_methods.bas");if(r)goto S_44748;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10491,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_OLDALT=*_FUNC_IDEADVANCEDBOX_LONG_ALT; if(!qbevent)break;evnt(25224,10492,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,10493,"ide_methods.bas");}while(r); S_44753:; dl_continue_4911:; }while((!(*_FUNC_IDEADVANCEDBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4911:; if(qbevent){evnt(25224,10494,"ide_methods.bas");if(r)goto S_44753;} S_44754:; if ((*_FUNC_IDEADVANCEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10495,"ide_methods.bas");if(r)goto S_44754;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,10495,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,10495,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10497,"ide_methods.bas");}while(r); S_44760:; if ((*_FUNC_IDEADVANCEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10498,"ide_methods.bas");if(r)goto S_44760;} S_44761:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,10499,"ide_methods.bas");if(r)goto S_44761;} do{ *_FUNC_IDEADVANCEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10500,"ide_methods.bas");}while(r); S_44763:; if (((-(*_FUNC_IDEADVANCEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,10501,"ide_methods.bas");if(r)goto S_44763;} do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEADVANCEDBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10501,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10504,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,10504,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10504,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,10508,"ide_methods.bas");}while(r); S_44772:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10509,"ide_methods.bas");if(r)goto S_44772;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10509,"ide_methods.bas");}while(r); } S_44775:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,10510,"ide_methods.bas");if(r)goto S_44775;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,10510,"ide_methods.bas");}while(r); } S_44778:; 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(25224,10511,"ide_methods.bas");if(r)goto S_44778;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,10511,"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(25224,10511,"ide_methods.bas");}while(r); } S_44782:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,10512,"ide_methods.bas");if(r)goto S_44782;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,10512,"ide_methods.bas");}while(r); } S_44785:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS>*_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,10513,"ide_methods.bas");if(r)goto S_44785;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10513,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10514,"ide_methods.bas");}while(r); S_44789:; fornext_value4914= 1 ; fornext_finalvalue4914= 100 ; fornext_step4914= 1 ; if (fornext_step4914<0) fornext_step_negative4914=1; else fornext_step_negative4914=0; if (new_error) goto fornext_error4914; goto fornext_entrylabel4914; while(1){ fornext_value4914=fornext_step4914+(*_FUNC_IDEADVANCEDBOX_LONG_I); fornext_entrylabel4914: *_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value4914; if (fornext_step_negative4914){ if (fornext_value4914fornext_finalvalue4914) break; } fornext_error4914:; if(qbevent){evnt(25224,10515,"ide_methods.bas");if(r)goto S_44789;} do{ *_FUNC_IDEADVANCEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36)); if(!qbevent)break;evnt(25224,10516,"ide_methods.bas");}while(r); S_44791:; if ((*_FUNC_IDEADVANCEDBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,10517,"ide_methods.bas");if(r)goto S_44791;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS-*_FUNC_IDEADVANCEDBOX_LONG_F; if(!qbevent)break;evnt(25224,10518,"ide_methods.bas");}while(r); do{ SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEADVANCEDBOX_LONG_FOCUS,_FUNC_IDEADVANCEDBOX_LONG_F,_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN,_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEADVANCEDBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10519,"ide_methods.bas");}while(r); } fornext_continue_4913:; } fornext_exit_4913:; S_44796:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10526,"ide_methods.bas");if(r)goto S_44796;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10526,"ide_methods.bas");}while(r); } S_44799:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS== 1 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10528,"ide_methods.bas");if(r)goto S_44799;} do{ *_FUNC_IDEADVANCEDBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10532,"ide_methods.bas");}while(r); S_44801:; if ((-(*_FUNC_IDEADVANCEDBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,10532,"ide_methods.bas");if(r)goto S_44801;} do{ *_FUNC_IDEADVANCEDBOX_INTEGER_V= 1 ; if(!qbevent)break;evnt(25224,10532,"ide_methods.bas");}while(r); } S_44804:; if ((-(*_FUNC_IDEADVANCEDBOX_INTEGER_V!=*__LONG_IDEDEBUGINFO))||new_error){ if(qbevent){evnt(25224,10533,"ide_methods.bas");if(r)goto S_44804;} do{ *__LONG_IDEDEBUGINFO=*_FUNC_IDEADVANCEDBOX_INTEGER_V; if(!qbevent)break;evnt(25224,10534,"ide_methods.bas");}while(r); S_44806:; if ((*__LONG_IDEDEBUGINFO)||new_error){ if(qbevent){evnt(25224,10535,"ide_methods.bas");if(r)goto S_44806;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",58)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10536,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10538,"ide_methods.bas");}while(r); } do{ *__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; if(!qbevent)break;evnt(25224,10540,"ide_methods.bas");}while(r); S_44812:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ if(qbevent){evnt(25224,10541,"ide_methods.bas");if(r)goto S_44812;} do{ sub_chdir(qbs_new_txt_len("internal\\c",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10542,"ide_methods.bas");}while(r); do{ sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10543,"ide_methods.bas");}while(r); do{ sub_chdir(qbs_new_txt_len("..\\..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10544,"ide_methods.bas");}while(r); } S_44817:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ if(qbevent){evnt(25224,10546,"ide_methods.bas");if(r)goto S_44817;} do{ sub_chdir(qbs_new_txt_len("./internal/c",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10547,"ide_methods.bas");}while(r); S_44819:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ if(qbevent){evnt(25224,10549,"ide_methods.bas");if(r)goto S_44819;} do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10550,"ide_methods.bas");}while(r); }else{ do{ sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10552,"ide_methods.bas");}while(r); } do{ sub_chdir(qbs_new_txt_len("../..",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10554,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,10556,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10562,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,10579,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,10580,"ide_methods.bas");}while(r); dl_continue_4905:; }while(1); dl_exit_4905:; do{ *_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX= 0 ; if(!qbevent)break;evnt(25224,10583,"ide_methods.bas");}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_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX; } 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,10595,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,10596,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10597,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10598,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10599,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,10600,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10601,"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(25224,10602,"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(25224,10606,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES= 1 ; if(!qbevent)break;evnt(25224,10607,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); }else{ if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ error(10); }else{ _FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; _FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]=( 8 )-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]+1; _FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[6]=1; _FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]*8); if (!_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); _FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; tmp_long=_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]; if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,10608,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN= 1 ; if(!qbevent)break;evnt(25224,10609,"ide_methods.bas");}while(r); S_44846:; do{ if(qbevent){evnt(25224,10610,"ide_methods.bas");if(r)goto S_44846;} do{ *_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,func_chr( 10 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10611,"ide_methods.bas");}while(r); S_44848:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN> 0 ))||new_error){ if(qbevent){evnt(25224,10612,"ide_methods.bas");if(r)goto S_44848;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10613,"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(25224,10614,"ide_methods.bas");}while(r); S_44851:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ if(qbevent){evnt(25224,10615,"ide_methods.bas");if(r)goto S_44851;} do{ *_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; if(!qbevent)break;evnt(25224,10615,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ; if(!qbevent)break;evnt(25224,10616,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES+ 1 ; if(!qbevent)break;evnt(25224,10617,"ide_methods.bas");}while(r); S_44856:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ if(qbevent){evnt(25224,10618,"ide_methods.bas");if(r)goto S_44856;} do{ goto dl_exit_4918; if(!qbevent)break;evnt(25224,10618,"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(25224,10620,"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(25224,10621,"ide_methods.bas");}while(r); S_44862:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ if(qbevent){evnt(25224,10622,"ide_methods.bas");if(r)goto S_44862;} do{ *_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; if(!qbevent)break;evnt(25224,10622,"ide_methods.bas");}while(r); } do{ goto dl_exit_4918; if(!qbevent)break;evnt(25224,10623,"ide_methods.bas");}while(r); } dl_continue_4918:; }while(1); dl_exit_4918:; S_44868:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10627,"ide_methods.bas");if(r)goto S_44868;} do{ qbs_set(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10627,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS= 1 ; if(!qbevent)break;evnt(25224,10628,"ide_methods.bas");}while(r); S_44872:; fornext_value4922= 1 ; fornext_finalvalue4922=_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len; fornext_step4922= 1 ; if (fornext_step4922<0) fornext_step_negative4922=1; else fornext_step_negative4922=0; if (new_error) goto fornext_error4922; goto fornext_entrylabel4922; while(1){ fornext_value4922=fornext_step4922+(*_FUNC_IDEMESSAGEBOX_LONG_I); fornext_entrylabel4922: *_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value4922; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4922){ if (fornext_value4922fornext_finalvalue4922) break; } fornext_error4922:; if(qbevent){evnt(25224,10629,"ide_methods.bas");if(r)goto S_44872;} S_44873:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,*_FUNC_IDEMESSAGEBOX_LONG_I)== 59 )))||new_error){ if(qbevent){evnt(25224,10630,"ide_methods.bas");if(r)goto S_44873;} do{ *_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS=*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS+ 1 ; if(!qbevent)break;evnt(25224,10630,"ide_methods.bas");}while(r); } fornext_continue_4921:; } fornext_exit_4921:; 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(25224,10632,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,10634,"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(25224,10635,"ide_methods.bas");}while(r); S_44880:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_W2))||new_error){ if(qbevent){evnt(25224,10636,"ide_methods.bas");if(r)goto S_44880;} do{ *_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_W2; if(!qbevent)break;evnt(25224,10636,"ide_methods.bas");}while(r); } S_44883:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN))||new_error){ if(qbevent){evnt(25224,10637,"ide_methods.bas");if(r)goto S_44883;} do{ *_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN; if(!qbevent)break;evnt(25224,10637,"ide_methods.bas");}while(r); } S_44886:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ if(qbevent){evnt(25224,10638,"ide_methods.bas");if(r)goto S_44886;} do{ *_FUNC_IDEMESSAGEBOX_LONG_W=*__LONG_IDEWX- 4 ; if(!qbevent)break;evnt(25224,10638,"ide_methods.bas");}while(r); } do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) ),_FUNC_IDEMESSAGEBOX_LONG_W,&(pass4926= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES),_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10639,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_I=*_FUNC_IDEMESSAGEBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10641,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,10642,"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]))*85+24))= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; if(!qbevent)break;evnt(25224,10643,"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]))*85+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEMESSAGEBOX_STRING1_SEP)); if(!qbevent)break;evnt(25224,10644,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,10645,"ide_methods.bas");}while(r); S_44895:; fornext_value4928= 1 ; fornext_finalvalue4928= 100 ; fornext_step4928= 1 ; if (fornext_step4928<0) fornext_step_negative4928=1; else fornext_step_negative4928=0; if (new_error) goto fornext_error4928; goto fornext_entrylabel4928; while(1){ fornext_value4928=fornext_step4928+(*_FUNC_IDEMESSAGEBOX_LONG_I); fornext_entrylabel4928: *_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value4928; if (fornext_step_negative4928){ if (fornext_value4928fornext_finalvalue4928) break; } fornext_error4928:; if(qbevent){evnt(25224,10649,"ide_methods.bas");if(r)goto S_44895;} 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]))*85)+ 0,((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,10649,"ide_methods.bas");}while(r); fornext_continue_4927:; } fornext_exit_4927:; S_44898:; do{ if(qbevent){evnt(25224,10652,"ide_methods.bas");if(r)goto S_44898;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,10656,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10657,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,10657,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,10657,"ide_methods.bas");}while(r); S_44903:; fornext_value4931= 1 ; fornext_finalvalue4931= 100 ; fornext_step4931= 1 ; if (fornext_step4931<0) fornext_step_negative4931=1; else fornext_step_negative4931=0; if (new_error) goto fornext_error4931; goto fornext_entrylabel4931; while(1){ fornext_value4931=fornext_step4931+(*_FUNC_IDEMESSAGEBOX_LONG_I); fornext_entrylabel4931: *_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value4931; if (fornext_step_negative4931){ if (fornext_value4931fornext_finalvalue4931) break; } fornext_error4931:; if(qbevent){evnt(25224,10658,"ide_methods.bas");if(r)goto S_44903;} S_44904:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,10659,"ide_methods.bas");if(r)goto S_44904;} 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]))*85+60))=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; if(!qbevent)break;evnt(25224,10662,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,10663,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,10663,"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]))*85) ),_FUNC_IDEMESSAGEBOX_LONG_F); if(!qbevent)break;evnt(25224,10664,"ide_methods.bas");}while(r); S_44909:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,10665,"ide_methods.bas");if(r)goto S_44909;} 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]))*85+52)); if(!qbevent)break;evnt(25224,10665,"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]))*85+56)); if(!qbevent)break;evnt(25224,10665,"ide_methods.bas");}while(r); } } fornext_continue_4930:; } fornext_exit_4930:; do{ *_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS=*_FUNC_IDEMESSAGEBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,10668,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,10672,"ide_methods.bas");}while(r); S_44917:; fornext_value4933= 1 ; fornext_finalvalue4933=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; fornext_step4933= 1 ; if (fornext_step4933<0) fornext_step_negative4933=1; else fornext_step_negative4933=0; if (new_error) goto fornext_error4933; goto fornext_entrylabel4933; while(1){ fornext_value4933=fornext_step4933+(*_FUNC_IDEMESSAGEBOX_LONG_I); fornext_entrylabel4933: *_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value4933; if (fornext_step_negative4933){ if (fornext_value4933fornext_finalvalue4933) break; } fornext_error4933:; if(qbevent){evnt(25224,10673,"ide_methods.bas");if(r)goto S_44917;} S_44918:; 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(25224,10674,"ide_methods.bas");if(r)goto S_44918;} 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(25224,10675,"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(25224,10677,"ide_methods.bas");}while(r); fornext_continue_4932:; } fornext_exit_4932:; do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,10682,"ide_methods.bas");}while(r); S_44924:; if ((*_FUNC_IDEMESSAGEBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,10683,"ide_methods.bas");if(r)goto S_44924;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10683,"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(25224,10683,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10683,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,10686,"ide_methods.bas");}while(r); S_44930:; do{ if(qbevent){evnt(25224,10687,"ide_methods.bas");if(r)goto S_44930;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,10688,"ide_methods.bas");}while(r); S_44932:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,10689,"ide_methods.bas");if(r)goto S_44932;} do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10689,"ide_methods.bas");}while(r); } S_44935:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,10690,"ide_methods.bas");if(r)goto S_44935;} do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10690,"ide_methods.bas");}while(r); } S_44938:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,10691,"ide_methods.bas");if(r)goto S_44938;} do{ *_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,10691,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10691,"ide_methods.bas");}while(r); } S_44942:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,10692,"ide_methods.bas");if(r)goto S_44942;} do{ *_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,10692,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10692,"ide_methods.bas");}while(r); } S_44946:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,10693,"ide_methods.bas");if(r)goto S_44946;} do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10693,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,10694,"ide_methods.bas");}while(r); S_44950:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_ALT!=*_FUNC_IDEMESSAGEBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,10694,"ide_methods.bas");if(r)goto S_44950;} do{ *_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10694,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_OLDALT=*_FUNC_IDEMESSAGEBOX_LONG_ALT; if(!qbevent)break;evnt(25224,10695,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,10696,"ide_methods.bas");}while(r); S_44955:; dl_continue_4936:; }while((!(*_FUNC_IDEMESSAGEBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4936:; if(qbevent){evnt(25224,10697,"ide_methods.bas");if(r)goto S_44955;} S_44956:; if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10698,"ide_methods.bas");if(r)goto S_44956;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,10698,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,10698,"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(25224,10700,"ide_methods.bas");}while(r); S_44962:; if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10701,"ide_methods.bas");if(r)goto S_44962;} S_44963:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,10702,"ide_methods.bas");if(r)goto S_44963;} do{ *_FUNC_IDEMESSAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10703,"ide_methods.bas");}while(r); S_44965:; if (((-(*_FUNC_IDEMESSAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEMESSAGEBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,10704,"ide_methods.bas");if(r)goto S_44965;} do{ qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEMESSAGEBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10704,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10707,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,10707,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10707,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,10711,"ide_methods.bas");}while(r); S_44974:; 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(25224,10713,"ide_methods.bas");if(r)goto S_44974;} do{ qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10713,"ide_methods.bas");}while(r); } S_44977:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10715,"ide_methods.bas");if(r)goto S_44977;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10715,"ide_methods.bas");}while(r); } S_44980:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,10716,"ide_methods.bas");if(r)goto S_44980;} do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,10716,"ide_methods.bas");}while(r); } S_44983:; 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(25224,10717,"ide_methods.bas");if(r)goto S_44983;} do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,10717,"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(25224,10717,"ide_methods.bas");}while(r); } S_44987:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,10718,"ide_methods.bas");if(r)goto S_44987;} do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,10718,"ide_methods.bas");}while(r); } S_44990:; if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS>*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,10719,"ide_methods.bas");if(r)goto S_44990;} do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10719,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10720,"ide_methods.bas");}while(r); S_44994:; fornext_value4939= 1 ; fornext_finalvalue4939= 100 ; fornext_step4939= 1 ; if (fornext_step4939<0) fornext_step_negative4939=1; else fornext_step_negative4939=0; if (new_error) goto fornext_error4939; goto fornext_entrylabel4939; while(1){ fornext_value4939=fornext_step4939+(*_FUNC_IDEMESSAGEBOX_LONG_I); fornext_entrylabel4939: *_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value4939; if (fornext_step_negative4939){ if (fornext_value4939fornext_finalvalue4939) break; } fornext_error4939:; if(qbevent){evnt(25224,10721,"ide_methods.bas");if(r)goto S_44994;} 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]))*85+36)); if(!qbevent)break;evnt(25224,10722,"ide_methods.bas");}while(r); S_44996:; if ((*_FUNC_IDEMESSAGEBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,10723,"ide_methods.bas");if(r)goto S_44996;} do{ *_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; if(!qbevent)break;evnt(25224,10724,"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]))*85) ),_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(25224,10725,"ide_methods.bas");}while(r); } fornext_continue_4938:; } fornext_exit_4938:; S_45001:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ if(qbevent){evnt(25224,10731,"ide_methods.bas");if(r)goto S_45001;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10731,"ide_methods.bas");}while(r); } S_45004:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEMESSAGEBOX_LONG_INFO!= 0 )))))||new_error){ if(qbevent){evnt(25224,10733,"ide_methods.bas");if(r)goto S_45004;} do{ *_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,10733,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10733,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,10736,"ide_methods.bas");}while(r); do{ *_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,10737,"ide_methods.bas");}while(r); dl_continue_4929:; }while(1); dl_exit_4929:; 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; 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 "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{ *_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(25224,10744,"ide_methods.bas");}while(r); S_45012:; if ((-(*_FUNC_IDEYESNOBOX_LONG_RESULT== 1 ))||new_error){ if(qbevent){evnt(25224,10745,"ide_methods.bas");if(r)goto S_45012;} do{ qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10745,"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(25224,10745,"ide_methods.bas");}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; qbs_maketmp(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX);return _FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX; } 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,10753,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,10754,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10755,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10756,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10757,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,10758,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,10759,"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(25224,10760,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,10764,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))=(( 80 / 2 ))-( 60 / 2 ); if(!qbevent)break;evnt(25224,10768,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))=(( 25 / 2 ))-( 16 / 2 ); if(!qbevent)break;evnt(25224,10769,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))= 60 ; if(!qbevent)break;evnt(25224,10770,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))= 18 ; if(!qbevent)break;evnt(25224,10771,"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(25224,10772,"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(25224,10774,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10775,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS= 1 ; if(!qbevent)break;evnt(25224,10776,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,10777,"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]))*85+20))= 16 ; if(!qbevent)break;evnt(25224,10778,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,10779,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Width",6)); if(!qbevent)break;evnt(25224,10780,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); if(!qbevent)break;evnt(25224,10781,"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]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,10782,"ide_methods.bas");}while(r); S_45040:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,10783,"ide_methods.bas");if(r)goto S_45040;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,10784,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,10785,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(&(pass4943=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10788,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10789,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,10790,"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]))*85+20))= 15 ; if(!qbevent)break;evnt(25224,10791,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,10792,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Height",7)); if(!qbevent)break;evnt(25224,10793,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); if(!qbevent)break;evnt(25224,10794,"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]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,10795,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10797,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10798,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,10799,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Restore window #position at startup",35)); if(!qbevent)break;evnt(25224,10800,"ide_methods.bas");}while(r); S_45056:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ if(qbevent){evnt(25224,10801,"ide_methods.bas");if(r)goto S_45056;} 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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,10801,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10803,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10804,"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]))*85+24))= 9 ; if(!qbevent)break;evnt(25224,10805,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Use _FONT 8",11)); if(!qbevent)break;evnt(25224,10806,"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]))*85+64))=*__BYTE_IDE_USEFONT8; if(!qbevent)break;evnt(25224,10807,"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]))*85+64)); if(!qbevent)break;evnt(25224,10808,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10810,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,10811,"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]))*85+24))= 10 ; if(!qbevent)break;evnt(25224,10812,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Custom #Font:",13)); if(!qbevent)break;evnt(25224,10813,"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]))*85+64))=*__LONG_IDECUSTOMFONT; if(!qbevent)break;evnt(25224,10814,"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]))*85+64)); if(!qbevent)break;evnt(25224,10815,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,__STRING_IDECUSTOMFONTFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10817,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10818,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,10819,"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]))*85+20))= 10 ; if(!qbevent)break;evnt(25224,10820,"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]))*85+24))= 12 ; if(!qbevent)break;evnt(25224,10821,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); if(!qbevent)break;evnt(25224,10822,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); if(!qbevent)break;evnt(25224,10823,"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]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,10824,"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(25224,10826,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10827,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,10828,"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]))*85+20))= 10 ; if(!qbevent)break;evnt(25224,10829,"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]))*85+24))= 15 ; if(!qbevent)break;evnt(25224,10830,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Row Height (Pixels)",20)); if(!qbevent)break;evnt(25224,10831,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); if(!qbevent)break;evnt(25224,10832,"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]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,10833,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,10835,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,10836,"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]))*85+24))= 18 ; if(!qbevent)break;evnt(25224,10837,"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]))*85+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(25224,10838,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,10839,"ide_methods.bas");}while(r); S_45092:; fornext_value4948= 1 ; fornext_finalvalue4948= 100 ; fornext_step4948= 1 ; if (fornext_step4948<0) fornext_step_negative4948=1; else fornext_step_negative4948=0; if (new_error) goto fornext_error4948; goto fornext_entrylabel4948; while(1){ fornext_value4948=fornext_step4948+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4948: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4948; if (fornext_step_negative4948){ if (fornext_value4948fornext_finalvalue4948) break; } fornext_error4948:; if(qbevent){evnt(25224,10843,"ide_methods.bas");if(r)goto S_45092;} 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]))*85)+ 0,((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,10843,"ide_methods.bas");}while(r); fornext_continue_4947:; } fornext_exit_4947:; S_45095:; do{ if(qbevent){evnt(25224,10846,"ide_methods.bas");if(r)goto S_45095;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,10850,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10851,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,10851,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,10851,"ide_methods.bas");}while(r); S_45100:; fornext_value4951= 1 ; fornext_finalvalue4951= 100 ; fornext_step4951= 1 ; if (fornext_step4951<0) fornext_step_negative4951=1; else fornext_step_negative4951=0; if (new_error) goto fornext_error4951; goto fornext_entrylabel4951; while(1){ fornext_value4951=fornext_step4951+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4951: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4951; if (fornext_step_negative4951){ if (fornext_value4951fornext_finalvalue4951) break; } fornext_error4951:; if(qbevent){evnt(25224,10852,"ide_methods.bas");if(r)goto S_45100;} S_45101:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,10853,"ide_methods.bas");if(r)goto S_45101;} 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]))*85+60))=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; if(!qbevent)break;evnt(25224,10856,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,10857,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,10857,"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]))*85) ),_FUNC_IDEDISPLAYBOX_LONG_F); if(!qbevent)break;evnt(25224,10858,"ide_methods.bas");}while(r); S_45106:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,10859,"ide_methods.bas");if(r)goto S_45106;} 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]))*85+52)); if(!qbevent)break;evnt(25224,10859,"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]))*85+56)); if(!qbevent)break;evnt(25224,10859,"ide_methods.bas");}while(r); } } fornext_continue_4950:; } fornext_exit_4950:; do{ *_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,10862,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,10866,"ide_methods.bas");}while(r); do{ sub__printstring(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))+ 2 ,qbs_new_txt_len("Window Size -",13),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10866,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,10867,"ide_methods.bas");}while(r); do{ sub__printstring(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))+ 29 ,*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))+ 10 ,qbs_new_txt_len(" Monospace TTF Font ",20),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10867,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,10871,"ide_methods.bas");}while(r); S_45118:; if ((*_FUNC_IDEDISPLAYBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,10872,"ide_methods.bas");if(r)goto S_45118;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10872,"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(25224,10872,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10872,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,10875,"ide_methods.bas");}while(r); S_45124:; do{ if(qbevent){evnt(25224,10876,"ide_methods.bas");if(r)goto S_45124;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,10877,"ide_methods.bas");}while(r); S_45126:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,10878,"ide_methods.bas");if(r)goto S_45126;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10878,"ide_methods.bas");}while(r); } S_45129:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,10879,"ide_methods.bas");if(r)goto S_45129;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10879,"ide_methods.bas");}while(r); } S_45132:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,10880,"ide_methods.bas");if(r)goto S_45132;} do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,10880,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10880,"ide_methods.bas");}while(r); } S_45136:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,10881,"ide_methods.bas");if(r)goto S_45136;} do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,10881,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10881,"ide_methods.bas");}while(r); } S_45140:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,10882,"ide_methods.bas");if(r)goto S_45140;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10882,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,10883,"ide_methods.bas");}while(r); S_45144:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_ALT!=*_FUNC_IDEDISPLAYBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,10883,"ide_methods.bas");if(r)goto S_45144;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,10883,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_OLDALT=*_FUNC_IDEDISPLAYBOX_LONG_ALT; if(!qbevent)break;evnt(25224,10884,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,10885,"ide_methods.bas");}while(r); S_45149:; dl_continue_4952:; }while((!(*_FUNC_IDEDISPLAYBOX_LONG_CHANGE))&&(!new_error)); dl_exit_4952:; if(qbevent){evnt(25224,10886,"ide_methods.bas");if(r)goto S_45149;} S_45150:; if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10887,"ide_methods.bas");if(r)goto S_45150;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,10887,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,10887,"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(25224,10889,"ide_methods.bas");}while(r); S_45156:; if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,10890,"ide_methods.bas");if(r)goto S_45156;} S_45157:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,10891,"ide_methods.bas");if(r)goto S_45157;} do{ *_FUNC_IDEDISPLAYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10892,"ide_methods.bas");}while(r); S_45159:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,10893,"ide_methods.bas");if(r)goto S_45159;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEDISPLAYBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10893,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10896,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,10896,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,10896,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,10900,"ide_methods.bas");}while(r); S_45168:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10901,"ide_methods.bas");if(r)goto S_45168;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10901,"ide_methods.bas");}while(r); } S_45171:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,10902,"ide_methods.bas");if(r)goto S_45171;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,10902,"ide_methods.bas");}while(r); } S_45174:; 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(25224,10903,"ide_methods.bas");if(r)goto S_45174;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,10903,"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(25224,10903,"ide_methods.bas");}while(r); } S_45178:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,10904,"ide_methods.bas");if(r)goto S_45178;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,10904,"ide_methods.bas");}while(r); } S_45181:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS>*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,10905,"ide_methods.bas");if(r)goto S_45181;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,10905,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,10906,"ide_methods.bas");}while(r); S_45185:; fornext_value4955= 1 ; fornext_finalvalue4955= 100 ; fornext_step4955= 1 ; if (fornext_step4955<0) fornext_step_negative4955=1; else fornext_step_negative4955=0; if (new_error) goto fornext_error4955; goto fornext_entrylabel4955; while(1){ fornext_value4955=fornext_step4955+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4955: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4955; if (fornext_step_negative4955){ if (fornext_value4955fornext_finalvalue4955) break; } fornext_error4955:; if(qbevent){evnt(25224,10907,"ide_methods.bas");if(r)goto S_45185;} 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]))*85+36)); if(!qbevent)break;evnt(25224,10908,"ide_methods.bas");}while(r); S_45187:; if ((*_FUNC_IDEDISPLAYBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,10909,"ide_methods.bas");if(r)goto S_45187;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; if(!qbevent)break;evnt(25224,10910,"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]))*85) ),_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(25224,10911,"ide_methods.bas");}while(r); } fornext_continue_4954:; } fornext_exit_4954:; S_45192:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!=*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,10918,"ide_methods.bas");if(r)goto S_45192;} do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,10920,"ide_methods.bas");}while(r); S_45194:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 1 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 6 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 7 )))||new_error){ if(qbevent){evnt(25224,10921,"ide_methods.bas");if(r)goto S_45194;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,10922,"ide_methods.bas");}while(r); S_45196:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,10923,"ide_methods.bas");if(r)goto S_45196;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,10923,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,10924,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10928,"ide_methods.bas");}while(r); S_45203:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ if(qbevent){evnt(25224,10929,"ide_methods.bas");if(r)goto S_45203;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10929,"ide_methods.bas");}while(r); } S_45206:; fornext_value4959= 1 ; fornext_finalvalue4959=_FUNC_IDEDISPLAYBOX_STRING_A->len; fornext_step4959= 1 ; if (fornext_step4959<0) fornext_step_negative4959=1; else fornext_step_negative4959=0; if (new_error) goto fornext_error4959; goto fornext_entrylabel4959; while(1){ fornext_value4959=fornext_step4959+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4959: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4959; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4959){ if (fornext_value4959fornext_finalvalue4959) break; } fornext_error4959:; if(qbevent){evnt(25224,10930,"ide_methods.bas");if(r)goto S_45206;} 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(25224,10931,"ide_methods.bas");}while(r); S_45208:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,10932,"ide_methods.bas");if(r)goto S_45208;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10932,"ide_methods.bas");}while(r); do{ goto fornext_exit_4958; if(!qbevent)break;evnt(25224,10932,"ide_methods.bas");}while(r); } S_45212:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,10933,"ide_methods.bas");if(r)goto S_45212;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10933,"ide_methods.bas");}while(r); do{ goto fornext_exit_4958; if(!qbevent)break;evnt(25224,10933,"ide_methods.bas");}while(r); } fornext_continue_4958:; } fornext_exit_4958:; S_45217:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 1 ))||new_error){ if(qbevent){evnt(25224,10935,"ide_methods.bas");if(r)goto S_45217;} S_45218:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,10936,"ide_methods.bas");if(r)goto S_45218;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10936,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; if(!qbevent)break;evnt(25224,10936,"ide_methods.bas");}while(r); } S_45223:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 80 ))||new_error){ if(qbevent){evnt(25224,10937,"ide_methods.bas");if(r)goto S_45223;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10937,"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]))*85+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(25224,10939,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10941,"ide_methods.bas");}while(r); S_45229:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ if(qbevent){evnt(25224,10942,"ide_methods.bas");if(r)goto S_45229;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10942,"ide_methods.bas");}while(r); } S_45232:; fornext_value4964= 1 ; fornext_finalvalue4964=_FUNC_IDEDISPLAYBOX_STRING_A->len; fornext_step4964= 1 ; if (fornext_step4964<0) fornext_step_negative4964=1; else fornext_step_negative4964=0; if (new_error) goto fornext_error4964; goto fornext_entrylabel4964; while(1){ fornext_value4964=fornext_step4964+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4964: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4964; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4964){ if (fornext_value4964fornext_finalvalue4964) break; } fornext_error4964:; if(qbevent){evnt(25224,10943,"ide_methods.bas");if(r)goto S_45232;} 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(25224,10944,"ide_methods.bas");}while(r); S_45234:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,10945,"ide_methods.bas");if(r)goto S_45234;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10945,"ide_methods.bas");}while(r); do{ goto fornext_exit_4963; if(!qbevent)break;evnt(25224,10945,"ide_methods.bas");}while(r); } S_45238:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,10946,"ide_methods.bas");if(r)goto S_45238;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10946,"ide_methods.bas");}while(r); do{ goto fornext_exit_4963; if(!qbevent)break;evnt(25224,10946,"ide_methods.bas");}while(r); } fornext_continue_4963:; } fornext_exit_4963:; S_45243:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 2 ))||new_error){ if(qbevent){evnt(25224,10948,"ide_methods.bas");if(r)goto S_45243;} S_45244:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,10949,"ide_methods.bas");if(r)goto S_45244;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10949,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; if(!qbevent)break;evnt(25224,10949,"ide_methods.bas");}while(r); } S_45249:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 25 ))||new_error){ if(qbevent){evnt(25224,10950,"ide_methods.bas");if(r)goto S_45249;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10950,"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]))*85+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(25224,10952,"ide_methods.bas");}while(r); S_45254:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))))||new_error){ if(qbevent){evnt(25224,10954,"ide_methods.bas");if(r)goto S_45254;} do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10955,"ide_methods.bas");}while(r); S_45256:; if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)))||new_error){ if(qbevent){evnt(25224,10956,"ide_methods.bas");if(r)goto S_45256;} do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,10956,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 0 ; if(!qbevent)break;evnt(25224,10956,"ide_methods.bas");}while(r); } } S_45261:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))))||new_error){ if(qbevent){evnt(25224,10959,"ide_methods.bas");if(r)goto S_45261;} do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10960,"ide_methods.bas");}while(r); S_45263:; if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)))||new_error){ if(qbevent){evnt(25224,10961,"ide_methods.bas");if(r)goto S_45263;} do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,10961,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; if(!qbevent)break;evnt(25224,10961,"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(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10964,"ide_methods.bas");}while(r); S_45269:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 1024 )))||new_error){ if(qbevent){evnt(25224,10965,"ide_methods.bas");if(r)goto S_45269;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 1024 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10965,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+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(25224,10966,"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(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10968,"ide_methods.bas");}while(r); S_45274:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ if(qbevent){evnt(25224,10969,"ide_methods.bas");if(r)goto S_45274;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10969,"ide_methods.bas");}while(r); } S_45277:; fornext_value4970= 1 ; fornext_finalvalue4970=_FUNC_IDEDISPLAYBOX_STRING_A->len; fornext_step4970= 1 ; if (fornext_step4970<0) fornext_step_negative4970=1; else fornext_step_negative4970=0; if (new_error) goto fornext_error4970; goto fornext_entrylabel4970; while(1){ fornext_value4970=fornext_step4970+(*_FUNC_IDEDISPLAYBOX_LONG_I); fornext_entrylabel4970: *_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value4970; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative4970){ if (fornext_value4970fornext_finalvalue4970) break; } fornext_error4970:; if(qbevent){evnt(25224,10970,"ide_methods.bas");if(r)goto S_45277;} 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(25224,10971,"ide_methods.bas");}while(r); S_45279:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,10972,"ide_methods.bas");if(r)goto S_45279;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10972,"ide_methods.bas");}while(r); do{ goto fornext_exit_4969; if(!qbevent)break;evnt(25224,10972,"ide_methods.bas");}while(r); } S_45283:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,10973,"ide_methods.bas");if(r)goto S_45283;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10973,"ide_methods.bas");}while(r); do{ goto fornext_exit_4969; if(!qbevent)break;evnt(25224,10973,"ide_methods.bas");}while(r); } fornext_continue_4969:; } fornext_exit_4969:; S_45288:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 7 ))||new_error){ if(qbevent){evnt(25224,10975,"ide_methods.bas");if(r)goto S_45288;} S_45289:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,10976,"ide_methods.bas");if(r)goto S_45289;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10976,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; if(!qbevent)break;evnt(25224,10976,"ide_methods.bas");}while(r); } S_45294:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 8 ))||new_error){ if(qbevent){evnt(25224,10977,"ide_methods.bas");if(r)goto S_45294;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("8",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10977,"ide_methods.bas");}while(r); } } do{ tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+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(25224,10979,"ide_methods.bas");}while(r); S_45299:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 9 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10982,"ide_methods.bas");if(r)goto S_45299;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,10982,"ide_methods.bas");}while(r); } S_45302:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 8 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ if(qbevent){evnt(25224,10983,"ide_methods.bas");if(r)goto S_45302;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 0 ; if(!qbevent)break;evnt(25224,10985,"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(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10988,"ide_methods.bas");}while(r); S_45305:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,10988,"ide_methods.bas");if(r)goto S_45305;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10988,"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(25224,10989,"ide_methods.bas");}while(r); S_45309:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ if(qbevent){evnt(25224,10990,"ide_methods.bas");if(r)goto S_45309;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; if(!qbevent)break;evnt(25224,10990,"ide_methods.bas");}while(r); } S_45312:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ if(qbevent){evnt(25224,10991,"ide_methods.bas");if(r)goto S_45312;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; if(!qbevent)break;evnt(25224,10991,"ide_methods.bas");}while(r); } S_45315:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDECUSTOMFONTHEIGHT))||new_error){ if(qbevent){evnt(25224,10992,"ide_methods.bas");if(r)goto S_45315;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; if(!qbevent)break;evnt(25224,10992,"ide_methods.bas");}while(r); } S_45318:; if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))!=*__BYTE_IDE_USEFONT8))||new_error){ if(qbevent){evnt(25224,10994,"ide_methods.bas");if(r)goto S_45318;} do{ *__BYTE_IDE_USEFONT8=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,10995,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; if(!qbevent)break;evnt(25224,10996,"ide_methods.bas");}while(r); } S_45322:; if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))!=*__LONG_IDECUSTOMFONT))||new_error){ if(qbevent){evnt(25224,10999,"ide_methods.bas");if(r)goto S_45322;} S_45323:; if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))== 0 ))||new_error){ if(qbevent){evnt(25224,11000,"ide_methods.bas");if(r)goto S_45323;} S_45324:; if ((*__BYTE_IDE_USEFONT8)||new_error){ if(qbevent){evnt(25224,11001,"ide_methods.bas");if(r)goto S_45324;} do{ sub__font( 8 ,NULL,0); if(!qbevent)break;evnt(25224,11001,"ide_methods.bas");}while(r); }else{ do{ sub__font( 16 ,NULL,0); if(!qbevent)break;evnt(25224,11001,"ide_methods.bas");}while(r); } do{ sub__freefont(*__LONG_IDECUSTOMFONTHANDLE); if(!qbevent)break;evnt(25224,11002,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; if(!qbevent)break;evnt(25224,11004,"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(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11009,"ide_methods.bas");}while(r); S_45335:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_V,__STRING_IDECUSTOMFONTFILE)))||new_error){ if(qbevent){evnt(25224,11009,"ide_methods.bas");if(r)goto S_45335;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; if(!qbevent)break;evnt(25224,11009,"ide_methods.bas");}while(r); } S_45338:; if (((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))== 1 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_X== 1 )))||new_error){ if(qbevent){evnt(25224,11011,"ide_methods.bas");if(r)goto S_45338;} do{ *_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE=*__LONG_IDECUSTOMFONTHANDLE; if(!qbevent)break;evnt(25224,11012,"ide_methods.bas");}while(r); do{ *__LONG_IDECUSTOMFONTHANDLE=func__loadfont(_FUNC_IDEDISPLAYBOX_STRING_V,*_FUNC_IDEDISPLAYBOX_INTEGER_V,qbs_new_txt_len("MONOSPACE",9),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11013,"ide_methods.bas");}while(r); S_45341:; if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ if(qbevent){evnt(25224,11014,"ide_methods.bas");if(r)goto S_45341;} do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))= 0 ; if(!qbevent)break;evnt(25224,11016,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+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(25224,11016,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+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(25224,11016,"ide_methods.bas");}while(r); S_45345:; if ((*__BYTE_IDE_USEFONT8)||new_error){ if(qbevent){evnt(25224,11016,"ide_methods.bas");if(r)goto S_45345;} do{ sub__font( 8 ,NULL,0); if(!qbevent)break;evnt(25224,11016,"ide_methods.bas");}while(r); }else{ do{ sub__font( 16 ,NULL,0); if(!qbevent)break;evnt(25224,11016,"ide_methods.bas");}while(r); } }else{ do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); if(!qbevent)break;evnt(25224,11018,"ide_methods.bas");}while(r); } S_45353:; if ((-(*__LONG_IDECUSTOMFONT== 1 ))||new_error){ if(qbevent){evnt(25224,11020,"ide_methods.bas");if(r)goto S_45353;} do{ sub__freefont(*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE); if(!qbevent)break;evnt(25224,11020,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11024,"ide_methods.bas");}while(r); S_45358:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,11024,"ide_methods.bas");if(r)goto S_45358;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11024,"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(25224,11025,"ide_methods.bas");}while(r); S_45362:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 80 ))||new_error){ if(qbevent){evnt(25224,11026,"ide_methods.bas");if(r)goto S_45362;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 80 ; if(!qbevent)break;evnt(25224,11026,"ide_methods.bas");}while(r); } S_45365:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ if(qbevent){evnt(25224,11027,"ide_methods.bas");if(r)goto S_45365;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; if(!qbevent)break;evnt(25224,11027,"ide_methods.bas");}while(r); } S_45368:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWX))||new_error){ if(qbevent){evnt(25224,11028,"ide_methods.bas");if(r)goto S_45368;} do{ *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; if(!qbevent)break;evnt(25224,11028,"ide_methods.bas");}while(r); } do{ *__LONG_IDEWX=*_FUNC_IDEDISPLAYBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11029,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11032,"ide_methods.bas");}while(r); S_45373:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,11032,"ide_methods.bas");if(r)goto S_45373;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11032,"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(25224,11033,"ide_methods.bas");}while(r); S_45377:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 25 ))||new_error){ if(qbevent){evnt(25224,11034,"ide_methods.bas");if(r)goto S_45377;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 25 ; if(!qbevent)break;evnt(25224,11034,"ide_methods.bas");}while(r); } S_45380:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ if(qbevent){evnt(25224,11035,"ide_methods.bas");if(r)goto S_45380;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; if(!qbevent)break;evnt(25224,11035,"ide_methods.bas");}while(r); } S_45383:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWY))||new_error){ if(qbevent){evnt(25224,11036,"ide_methods.bas");if(r)goto S_45383;} do{ *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; if(!qbevent)break;evnt(25224,11036,"ide_methods.bas");}while(r); } do{ *__LONG_IDEWY=*_FUNC_IDEDISPLAYBOX_INTEGER_V-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,11037,"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]))*85+64)); if(!qbevent)break;evnt(25224,11039,"ide_methods.bas");}while(r); S_45388:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,11040,"ide_methods.bas");if(r)goto S_45388;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= -1 ; if(!qbevent)break;evnt(25224,11040,"ide_methods.bas");}while(r); } do{ *__BYTE_IDE_AUTOPOSITION=*_FUNC_IDEDISPLAYBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11041,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); if(!qbevent)break;evnt(25224,11043,"ide_methods.bas");}while(r); S_45393:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,11044,"ide_methods.bas");if(r)goto S_45393;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 1 ; if(!qbevent)break;evnt(25224,11044,"ide_methods.bas");}while(r); } do{ *__LONG_IDECUSTOMFONT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11045,"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(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11047,"ide_methods.bas");}while(r); S_45398:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_V->len> 1024 )))||new_error){ if(qbevent){evnt(25224,11048,"ide_methods.bas");if(r)goto S_45398;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_V, 1024 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11048,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDECUSTOMFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_V); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11049,"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(25224,11050,"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(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11052,"ide_methods.bas");}while(r); S_45404:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,11052,"ide_methods.bas");if(r)goto S_45404;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11052,"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(25224,11053,"ide_methods.bas");}while(r); S_45408:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ if(qbevent){evnt(25224,11054,"ide_methods.bas");if(r)goto S_45408;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; if(!qbevent)break;evnt(25224,11054,"ide_methods.bas");}while(r); } S_45411:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ if(qbevent){evnt(25224,11055,"ide_methods.bas");if(r)goto S_45411;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; if(!qbevent)break;evnt(25224,11055,"ide_methods.bas");}while(r); } do{ *__LONG_IDECUSTOMFONTHEIGHT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11056,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11059,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11060,"ide_methods.bas");}while(r); S_45417:; if ((*__LONG_IDECUSTOMFONT)||new_error){ if(qbevent){evnt(25224,11061,"ide_methods.bas");if(r)goto S_45417;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11062,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11064,"ide_methods.bas");}while(r); } S_45422:; if ((*__BYTE_IDE_USEFONT8)||new_error){ if(qbevent){evnt(25224,11066,"ide_methods.bas");if(r)goto S_45422;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11067,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11069,"ide_methods.bas");}while(r); } S_45427:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ if(qbevent){evnt(25224,11071,"ide_methods.bas");if(r)goto S_45427;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11072,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11074,"ide_methods.bas");}while(r); } do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11076,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_str((int32)(*__LONG_IDECUSTOMFONTHEIGHT))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11077,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,11080,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,11085,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,11086,"ide_methods.bas");}while(r); dl_continue_4949:; }while(1); dl_exit_4949:; 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; 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 "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(25224,11091,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11092,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11093,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11094,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11095,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS= 9 ; if(!qbevent)break;evnt(25224,11097,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&2){ error(10); }else{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&1){ error(10); }else{ _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]= 1 ; _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]=(*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]+1; _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[6]=1; _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]=(ptrszint)malloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]*8); if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]) error(257); _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]|=1; tmp_long=_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]; if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&4){ while(tmp_long--) ((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,11098,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=*__ULONG_IDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11099,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11100,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=*__ULONG_IDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11101,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR=*__ULONG_IDETEXTCOLOR; if(!qbevent)break;evnt(25224,11102,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR=*__ULONG_IDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11103,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR=*__ULONG_IDENUMBERSCOLOR; if(!qbevent)break;evnt(25224,11104,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11105,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2=*__ULONG_IDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11106,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11107,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,11110,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,11111,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11112,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,11113,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11114,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]+1; _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]),0,_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,11115,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11116,"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(25224,11117,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); if(!qbevent)break;evnt(25224,11121,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 , -16734208 , 0 ,1); if(!qbevent)break;evnt(25224,11122,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,11124,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) ),&(pass4975= 73 ),&(pass4976= 19 ),qbs_new_txt_len("IDE Colors",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11125,"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(25224,11127,"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(25224,11128,"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(25224,11129,"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(25224,11130,"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(25224,11131,"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(25224,11132,"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(25224,11133,"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(25224,11134,"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(25224,11135,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11136,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,11137,"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]))*85+24))= 4 ; if(!qbevent)break;evnt(25224,11138,"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]))*85+28))= 30 ; if(!qbevent)break;evnt(25224,11139,"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]))*85+32))= 9 ; if(!qbevent)break;evnt(25224,11139,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_L); if(!qbevent)break;evnt(25224,11140,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,11141,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM= 1 ; if(!qbevent)break;evnt(25224,11142,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS= 1 ; if(!qbevent)break;evnt(25224,11143,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Item:",6)); if(!qbevent)break;evnt(25224,11144,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass4977=func__red32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11146,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11147,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11148,"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]))*85+20))= 66 ; if(!qbevent)break;evnt(25224,11149,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,11150,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); if(!qbevent)break;evnt(25224,11151,"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]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,11152,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11153,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11154,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass4979=func__green32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11156,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11157,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11158,"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]))*85+20))= 66 ; if(!qbevent)break;evnt(25224,11159,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,11160,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); if(!qbevent)break;evnt(25224,11161,"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]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,11162,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11163,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11164,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass4981=func__blue32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11166,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11167,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11168,"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]))*85+20))= 66 ; if(!qbevent)break;evnt(25224,11169,"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]))*85+24))= 11 ; if(!qbevent)break;evnt(25224,11170,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); if(!qbevent)break;evnt(25224,11171,"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]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,11172,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11173,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11174,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11176,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,11177,"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]))*85+24))= 15 ; if(!qbevent)break;evnt(25224,11178,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Highlight brackets",19)); if(!qbevent)break;evnt(25224,11179,"ide_methods.bas");}while(r); S_45517:; if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11180,"ide_methods.bas");if(r)goto S_45517;} 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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,11180,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11182,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,11183,"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]))*85+24))= 16 ; if(!qbevent)break;evnt(25224,11184,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Multi-highlight (selection)",28)); if(!qbevent)break;evnt(25224,11185,"ide_methods.bas");}while(r); S_45524:; if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11186,"ide_methods.bas");if(r)goto S_45524;} 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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,11186,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11188,"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]))*85+36))= 4 ; if(!qbevent)break;evnt(25224,11189,"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]))*85+24))= 17 ; if(!qbevent)break;evnt(25224,11190,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Highlight #keywords and numbers",31)); if(!qbevent)break;evnt(25224,11191,"ide_methods.bas");}while(r); S_45531:; if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11192,"ide_methods.bas");if(r)goto S_45531;} 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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,11192,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11194,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,11195,"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]))*85+24))= 19 ; if(!qbevent)break;evnt(25224,11196,"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]))*85+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(25224,11197,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,11198,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SchemeID",8),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11200,"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(25224,11201,"ide_methods.bas");}while(r); S_45541:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11202,"ide_methods.bas");if(r)goto S_45541;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; if(!qbevent)break;evnt(25224,11202,"ide_methods.bas");}while(r); } S_45544:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ if(qbevent){evnt(25224,11204,"ide_methods.bas");if(r)goto S_45544;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11205,"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(25224,11208,"ide_methods.bas");}while(r); S_45548:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ if(qbevent){evnt(25224,11209,"ide_methods.bas");if(r)goto S_45548;} S_45549:; 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)== 81 )))||new_error){ if(qbevent){evnt(25224,11210,"ide_methods.bas");if(r)goto S_45549;} 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(25224,11211,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; if(!qbevent)break;evnt(25224,11213,"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(25224,11214,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; if(!qbevent)break;evnt(25224,11217,"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(25224,11218,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11221,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11222,"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]))*85+20))= 9 ; if(!qbevent)break;evnt(25224,11223,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,11224,"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]))*85+28))= 38 ; if(!qbevent)break;evnt(25224,11225,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Scheme",7)); if(!qbevent)break;evnt(25224,11226,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); if(!qbevent)break;evnt(25224,11227,"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]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; if(!qbevent)break;evnt(25224,11228,"ide_methods.bas");}while(r); S_45568:; fornext_value4985= 1 ; fornext_finalvalue4985= 100 ; fornext_step4985= 1 ; if (fornext_step4985<0) fornext_step_negative4985=1; else fornext_step_negative4985=0; if (new_error) goto fornext_error4985; goto fornext_entrylabel4985; while(1){ fornext_value4985=fornext_step4985+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel4985: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value4985; if (fornext_step_negative4985){ if (fornext_value4985fornext_finalvalue4985) break; } fornext_error4985:; if(qbevent){evnt(25224,11233,"ide_methods.bas");if(r)goto S_45568;} 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]))*85)+ 0,((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,11233,"ide_methods.bas");}while(r); fornext_continue_4984:; } fornext_exit_4984:; S_45571:; do{ if(qbevent){evnt(25224,11236,"ide_methods.bas");if(r)goto S_45571;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,11239,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,11240,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,11240,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,11240,"ide_methods.bas");}while(r); S_45576:; fornext_value4988= 1 ; fornext_finalvalue4988= 100 ; fornext_step4988= 1 ; if (fornext_step4988<0) fornext_step_negative4988=1; else fornext_step_negative4988=0; if (new_error) goto fornext_error4988; goto fornext_entrylabel4988; while(1){ fornext_value4988=fornext_step4988+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel4988: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value4988; if (fornext_step_negative4988){ if (fornext_value4988fornext_finalvalue4988) break; } fornext_error4988:; if(qbevent){evnt(25224,11241,"ide_methods.bas");if(r)goto S_45576;} S_45577:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,11242,"ide_methods.bas");if(r)goto S_45577;} 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]))*85+60))=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; if(!qbevent)break;evnt(25224,11245,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,11246,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,11246,"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]))*85) ),_FUNC_IDECHOOSECOLORSBOX_LONG_F); if(!qbevent)break;evnt(25224,11247,"ide_methods.bas");}while(r); S_45582:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,11248,"ide_methods.bas");if(r)goto S_45582;} 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]))*85+52)); if(!qbevent)break;evnt(25224,11248,"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]))*85+56)); if(!qbevent)break;evnt(25224,11248,"ide_methods.bas");}while(r); } } fornext_continue_4987:; } fornext_exit_4987:; do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,11251,"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(25224,11256,"ide_methods.bas");}while(r); S_45590:; 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(25224,11257,"ide_methods.bas");if(r)goto S_45590;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,11257,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11257,"ide_methods.bas");}while(r); } S_45595:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<= 1 ))||new_error){ if(qbevent){evnt(25224,11258,"ide_methods.bas");if(r)goto S_45595;} do{ qbg_sub_color( 7 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11258,"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 skip4989; makefit(tqbs); qbs_print(tqbs,0); skip4989: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11259,"ide_methods.bas");}while(r); S_45599:; 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(25224,11260,"ide_methods.bas");if(r)goto S_45599;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,11260,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11260,"ide_methods.bas");}while(r); } S_45604:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID==*__INTEGER_LASTVALIDCOLORSCHEME))||new_error){ if(qbevent){evnt(25224,11261,"ide_methods.bas");if(r)goto S_45604;} do{ qbg_sub_color( 7 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11261,"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 skip4990; makefit(tqbs); qbs_print(tqbs,0); skip4990: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11262,"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(25224,11265,"ide_methods.bas");}while(r); S_45609:; 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(25224,11266,"ide_methods.bas");if(r)goto S_45609;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,11266,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11266,"ide_methods.bas");}while(r); } S_45614:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ if(qbevent){evnt(25224,11267,"ide_methods.bas");if(r)goto S_45614;} do{ qbg_sub_color( 7 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11267,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Save ",6)); if (new_error) goto skip4991; makefit(tqbs); qbs_print(tqbs,0); skip4991: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11268,"ide_methods.bas");}while(r); S_45618:; 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(25224,11269,"ide_methods.bas");if(r)goto S_45618;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,11269,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11269,"ide_methods.bas");}while(r); } S_45623:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11270,"ide_methods.bas");if(r)goto S_45623;} do{ qbg_sub_color( 7 , 2 ,NULL,3); if(!qbevent)break;evnt(25224,11270,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Erase ",7)); if (new_error) goto skip4992; makefit(tqbs); qbs_print(tqbs,0); skip4992: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11271,"ide_methods.bas");}while(r); do{ qbg_sub_color(NULL, 7 ,NULL,2); if(!qbevent)break;evnt(25224,11273,"ide_methods.bas");}while(r); do{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11275,"ide_methods.bas");}while(r); do{ sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); if(!qbevent)break;evnt(25224,11276,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); if(!qbevent)break;evnt(25224,11277,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11278,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11279,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11280,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11281,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11282,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11283,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11285,"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(25224,11285,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("R: ",3)); if (new_error) goto skip4993; makefit(tqbs); qbs_print(tqbs,0); skip4993: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11285,"ide_methods.bas");}while(r); do{ qbg_sub_color( 4 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11286,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); if (new_error) goto skip4994; makefit(tqbs); qbs_print(tqbs,0); skip4994: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11286,"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(25224,11287,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11288,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); if(!qbevent)break;evnt(25224,11288,"ide_methods.bas");}while(r); S_45645:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,11289,"ide_methods.bas");if(r)goto S_45645;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11289,"ide_methods.bas");}while(r); } S_45648:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,11290,"ide_methods.bas");if(r)goto S_45648;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11290,"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(25224,11291,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11293,"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(25224,11293,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("G: ",3)); if (new_error) goto skip4995; makefit(tqbs); qbs_print(tqbs,0); skip4995: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11293,"ide_methods.bas");}while(r); do{ qbg_sub_color( 5 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11294,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); if (new_error) goto skip4996; makefit(tqbs); qbs_print(tqbs,0); skip4996: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11294,"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(25224,11295,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11296,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); if(!qbevent)break;evnt(25224,11296,"ide_methods.bas");}while(r); S_45660:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,11297,"ide_methods.bas");if(r)goto S_45660;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11297,"ide_methods.bas");}while(r); } S_45663:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,11298,"ide_methods.bas");if(r)goto S_45663;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11298,"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(25224,11299,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11301,"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(25224,11301,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("B: ",3)); if (new_error) goto skip4997; makefit(tqbs); qbs_print(tqbs,0); skip4997: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11301,"ide_methods.bas");}while(r); do{ qbg_sub_color( 9 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11302,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); if (new_error) goto skip4998; makefit(tqbs); qbs_print(tqbs,0); skip4998: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11302,"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(25224,11303,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11304,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); if(!qbevent)break;evnt(25224,11304,"ide_methods.bas");}while(r); S_45675:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,11305,"ide_methods.bas");if(r)goto S_45675;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11305,"ide_methods.bas");}while(r); } S_45678:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,11306,"ide_methods.bas");if(r)goto S_45678;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11306,"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(25224,11307,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11309,"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(25224,11310,"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(25224,11311,"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(25224,11312,"ide_methods.bas");}while(r); S_45686:; sc_4999_var=0; if(qbevent){evnt(25224,11314,"ide_methods.bas");if(r)goto S_45686;} S_45687:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ if(qbevent){evnt(25224,11315,"ide_methods.bas");if(r)goto S_45687;} do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11315,"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(25224,11315,"ide_methods.bas");}while(r); sc_ec_201_end:; sc_4999_var=-1; } S_45690:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ if(qbevent){evnt(25224,11316,"ide_methods.bas");if(r)goto S_45690;} do{ qbg_sub_color( 12 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11316,"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(25224,11316,"ide_methods.bas");}while(r); sc_ec_202_end:; sc_4999_var=-1; } S_45693:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ if(qbevent){evnt(25224,11317,"ide_methods.bas");if(r)goto S_45693;} do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11317,"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(25224,11317,"ide_methods.bas");}while(r); sc_ec_203_end:; sc_4999_var=-1; } S_45696:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ if(qbevent){evnt(25224,11318,"ide_methods.bas");if(r)goto S_45696;} do{ qbg_sub_color( 14 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11318,"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(25224,11318,"ide_methods.bas");}while(r); sc_ec_204_end:; sc_4999_var=-1; } S_45699:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ if(qbevent){evnt(25224,11319,"ide_methods.bas");if(r)goto S_45699;} do{ qbg_sub_color( 10 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11319,"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(25224,11319,"ide_methods.bas");}while(r); sc_ec_205_end:; sc_4999_var=-1; } S_45702:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ if(qbevent){evnt(25224,11320,"ide_methods.bas");if(r)goto S_45702;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11320,"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(25224,11320,"ide_methods.bas");}while(r); sc_ec_206_end:; sc_4999_var=-1; } S_45705:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ if(qbevent){evnt(25224,11321,"ide_methods.bas");if(r)goto S_45705;} do{ qbg_sub_color( 1 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11321,"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(25224,11321,"ide_methods.bas");}while(r); sc_ec_207_end:; sc_4999_var=-1; } S_45708:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ if(qbevent){evnt(25224,11322,"ide_methods.bas");if(r)goto S_45708;} do{ qbg_sub_color( 6 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,11322,"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(25224,11322,"ide_methods.bas");}while(r); sc_ec_208_end:; sc_4999_var=-1; } S_45711:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ if(qbevent){evnt(25224,11323,"ide_methods.bas");if(r)goto S_45711;} do{ qbg_sub_color( 6 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,11324,"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(25224,11324,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,11325,"ide_methods.bas");}while(r); sc_ec_209_end:; } sc_4999_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(25224,11328,"ide_methods.bas");}while(r); S_45717:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 1 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 3 )))||new_error){ if(qbevent){evnt(25224,11329,"ide_methods.bas");if(r)goto S_45717;} do{ qbg_sub_color( 8 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11330,"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(25224,11331,"ide_methods.bas");}while(r); S_45720:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 2 )){ if(qbevent){evnt(25224,11332,"ide_methods.bas");if(r)goto S_45720;} do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11333,"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(25224,11334,"ide_methods.bas");}while(r); S_45723:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 4 )){ if(qbevent){evnt(25224,11335,"ide_methods.bas");if(r)goto S_45723;} do{ qbg_sub_color( 12 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11336,"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(25224,11337,"ide_methods.bas");}while(r); S_45726:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 5 )){ if(qbevent){evnt(25224,11338,"ide_methods.bas");if(r)goto S_45726;} do{ qbg_sub_color( 11 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11339,"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(25224,11340,"ide_methods.bas");}while(r); S_45729:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 9 )){ if(qbevent){evnt(25224,11341,"ide_methods.bas");if(r)goto S_45729;} 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(25224,11342,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,11343,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("myVar% = ",9)); if (new_error) goto skip5000; makefit(tqbs); qbs_print(tqbs,0); skip5000: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11343,"ide_methods.bas");}while(r); do{ qbg_sub_color( 12 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,11344,"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 skip5001; makefit(tqbs); qbs_print(tqbs,0); skip5001: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11344,"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(25224,11345,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 6 ,NULL,3); if(!qbevent)break;evnt(25224,11346,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("(",1)); if (new_error) goto skip5002; makefit(tqbs); qbs_print(tqbs,0); skip5002: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11346,"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(25224,11347,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(")",1)); if (new_error) goto skip5003; makefit(tqbs); qbs_print(tqbs,0); skip5003: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11348,"ide_methods.bas");}while(r); } } } } } do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,11353,"ide_methods.bas");}while(r); S_45742:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,11354,"ide_methods.bas");if(r)goto S_45742;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11354,"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(25224,11354,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11354,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,11357,"ide_methods.bas");}while(r); S_45748:; do{ if(qbevent){evnt(25224,11358,"ide_methods.bas");if(r)goto S_45748;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,11359,"ide_methods.bas");}while(r); S_45750:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,11360,"ide_methods.bas");if(r)goto S_45750;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11360,"ide_methods.bas");}while(r); } S_45753:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,11361,"ide_methods.bas");if(r)goto S_45753;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11361,"ide_methods.bas");}while(r); } S_45756:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,11362,"ide_methods.bas");if(r)goto S_45756;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,11362,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11362,"ide_methods.bas");}while(r); } S_45760:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,11363,"ide_methods.bas");if(r)goto S_45760;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,11363,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11363,"ide_methods.bas");}while(r); } S_45764:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,11364,"ide_methods.bas");if(r)goto S_45764;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11364,"ide_methods.bas");}while(r); } S_45767:; 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(25224,11365,"ide_methods.bas");if(r)goto S_45767;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11365,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; if(!qbevent)break;evnt(25224,11365,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; if(!qbevent)break;evnt(25224,11365,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,11366,"ide_methods.bas");}while(r); S_45773:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT!=*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,11366,"ide_methods.bas");if(r)goto S_45773;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,11366,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT=*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT; if(!qbevent)break;evnt(25224,11367,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,11368,"ide_methods.bas");}while(r); S_45778:; dl_continue_5004:; }while((!(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE))&&(!new_error)); dl_exit_5004:; if(qbevent){evnt(25224,11369,"ide_methods.bas");if(r)goto S_45778;} S_45779:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,11370,"ide_methods.bas");if(r)goto S_45779;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,11370,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,11370,"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(25224,11372,"ide_methods.bas");}while(r); S_45785:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,11373,"ide_methods.bas");if(r)goto S_45785;} S_45786:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,11374,"ide_methods.bas");if(r)goto S_45786;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11375,"ide_methods.bas");}while(r); S_45788:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,11376,"ide_methods.bas");if(r)goto S_45788;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECHOOSECOLORSBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11376,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11379,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,11379,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11379,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,11383,"ide_methods.bas");}while(r); S_45797:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,11384,"ide_methods.bas");if(r)goto S_45797;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11384,"ide_methods.bas");}while(r); } S_45800:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,11385,"ide_methods.bas");if(r)goto S_45800;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,11385,"ide_methods.bas");}while(r); } S_45803:; 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(25224,11386,"ide_methods.bas");if(r)goto S_45803;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,11386,"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(25224,11386,"ide_methods.bas");}while(r); } S_45807:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,11387,"ide_methods.bas");if(r)goto S_45807;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,11387,"ide_methods.bas");}while(r); } S_45810:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,11388,"ide_methods.bas");if(r)goto S_45810;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,11388,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,11389,"ide_methods.bas");}while(r); S_45814:; fornext_value5007= 1 ; fornext_finalvalue5007= 100 ; fornext_step5007= 1 ; if (fornext_step5007<0) fornext_step_negative5007=1; else fornext_step_negative5007=0; if (new_error) goto fornext_error5007; goto fornext_entrylabel5007; while(1){ fornext_value5007=fornext_step5007+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel5007: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5007; if (fornext_step_negative5007){ if (fornext_value5007fornext_finalvalue5007) break; } fornext_error5007:; if(qbevent){evnt(25224,11390,"ide_methods.bas");if(r)goto S_45814;} 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]))*85+36)); if(!qbevent)break;evnt(25224,11391,"ide_methods.bas");}while(r); S_45816:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,11392,"ide_methods.bas");if(r)goto S_45816;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; if(!qbevent)break;evnt(25224,11393,"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]))*85) ),_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(25224,11394,"ide_methods.bas");}while(r); } fornext_continue_5006:; } fornext_exit_5006:; S_45821:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,11400,"ide_methods.bas");if(r)goto S_45821;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,11402,"ide_methods.bas");}while(r); S_45823:; if (((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 )))||new_error){ if(qbevent){evnt(25224,11403,"ide_methods.bas");if(r)goto S_45823;} S_45824:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))||new_error){ if(qbevent){evnt(25224,11404,"ide_methods.bas");if(r)goto S_45824;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS= 9 ; if(!qbevent)break;evnt(25224,11404,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; if(!qbevent)break;evnt(25224,11404,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11405,"ide_methods.bas");}while(r); S_45830:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,11406,"ide_methods.bas");if(r)goto S_45830;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11406,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11407,"ide_methods.bas");}while(r); S_45834:; if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS<= 4 ))))||new_error){ if(qbevent){evnt(25224,11408,"ide_methods.bas");if(r)goto S_45834;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11408,"ide_methods.bas");}while(r); } } S_45838:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS)){ if(qbevent){evnt(25224,11410,"ide_methods.bas");if(r)goto S_45838;} S_45839:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 )))||new_error){ if(qbevent){evnt(25224,11412,"ide_methods.bas");if(r)goto S_45839;} S_45840:; 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))||new_error){ if(qbevent){evnt(25224,11413,"ide_methods.bas");if(r)goto S_45840;} do{ return_point[next_return_point++]=65; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_65:; if(!qbevent)break;evnt(25224,11414,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11415,"ide_methods.bas");}while(r); } } } } S_45846:; if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES)))&*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,11421,"ide_methods.bas");if(r)goto S_45846;} S_45847:; 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(25224,11422,"ide_methods.bas");if(r)goto S_45847;} S_45848:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ if(qbevent){evnt(25224,11424,"ide_methods.bas");if(r)goto S_45848;} LABEL_SAVENEW:; if(qbevent){evnt(25224,11425,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11426,"ide_methods.bas");}while(r); S_45850:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING->len== 0 )))||new_error){ if(qbevent){evnt(25224,11427,"ide_methods.bas");if(r)goto S_45850;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11427,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,11429,"ide_methods.bas");}while(r); S_45854:; do{ if(qbevent){evnt(25224,11430,"ide_methods.bas");if(r)goto S_45854;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11431,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(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(25224,11432,"ide_methods.bas");}while(r); S_45857:; 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(25224,11433,"ide_methods.bas");if(r)goto S_45857;} do{ goto dl_exit_5010; if(!qbevent)break;evnt(25224,11433,"ide_methods.bas");}while(r); } dl_continue_5010:; }while(1); dl_exit_5010:; 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(25224,11437,"ide_methods.bas");}while(r); S_45862:; fornext_value5012= 1 ; fornext_finalvalue5012= 9 ; fornext_step5012= 1 ; if (fornext_step5012<0) fornext_step_negative5012=1; else fornext_step_negative5012=0; if (new_error) goto fornext_error5012; goto fornext_entrylabel5012; while(1){ fornext_value5012=fornext_step5012+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); fornext_entrylabel5012: *_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5012; if (fornext_step_negative5012){ if (fornext_value5012fornext_finalvalue5012) break; } fornext_error5012:; if(qbevent){evnt(25224,11438,"ide_methods.bas");if(r)goto S_45862;} S_45863:; if(qbevent){evnt(25224,11439,"ide_methods.bas");if(r)goto S_45863;} S_45864:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 1 )))||new_error){ if(qbevent){evnt(25224,11440,"ide_methods.bas");if(r)goto S_45864;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; if(!qbevent)break;evnt(25224,11440,"ide_methods.bas");}while(r); sc_ec_210_end:; goto sc_5013_end; } S_45866:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 2 )))||new_error){ if(qbevent){evnt(25224,11441,"ide_methods.bas");if(r)goto S_45866;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11441,"ide_methods.bas");}while(r); sc_ec_211_end:; goto sc_5013_end; } S_45868:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 3 )))||new_error){ if(qbevent){evnt(25224,11442,"ide_methods.bas");if(r)goto S_45868;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; if(!qbevent)break;evnt(25224,11442,"ide_methods.bas");}while(r); sc_ec_212_end:; goto sc_5013_end; } S_45870:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 4 )))||new_error){ if(qbevent){evnt(25224,11443,"ide_methods.bas");if(r)goto S_45870;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11443,"ide_methods.bas");}while(r); sc_ec_213_end:; goto sc_5013_end; } S_45872:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 5 )))||new_error){ if(qbevent){evnt(25224,11444,"ide_methods.bas");if(r)goto S_45872;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11444,"ide_methods.bas");}while(r); sc_ec_214_end:; goto sc_5013_end; } S_45874:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 6 )))||new_error){ if(qbevent){evnt(25224,11445,"ide_methods.bas");if(r)goto S_45874;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11445,"ide_methods.bas");}while(r); sc_ec_215_end:; goto sc_5013_end; } S_45876:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 7 )))||new_error){ if(qbevent){evnt(25224,11446,"ide_methods.bas");if(r)goto S_45876;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11446,"ide_methods.bas");}while(r); sc_ec_216_end:; goto sc_5013_end; } S_45878:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 8 )))||new_error){ if(qbevent){evnt(25224,11447,"ide_methods.bas");if(r)goto S_45878;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11447,"ide_methods.bas");}while(r); sc_ec_217_end:; goto sc_5013_end; } S_45880:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 9 )))||new_error){ if(qbevent){evnt(25224,11448,"ide_methods.bas");if(r)goto S_45880;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11448,"ide_methods.bas");}while(r); sc_ec_218_end:; goto sc_5013_end; } sc_5013_end:; do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5014=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11451,"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(25224,11451,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5016=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11452,"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(25224,11452,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5018=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11453,"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(25224,11453,"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(25224,11454,"ide_methods.bas");}while(r); fornext_continue_5011:; } fornext_exit_5011:; do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),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(25224,11458,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); if(!qbevent)break;evnt(25224,11459,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; if(!qbevent)break;evnt(25224,11460,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11461,"ide_methods.bas");}while(r); do{ goto LABEL_APPLYSCHEME; if(!qbevent)break;evnt(25224,11462,"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(25224,11464,"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(25224,11465,"ide_methods.bas");}while(r); S_45899:; 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ if(qbevent){evnt(25224,11467,"ide_methods.bas");if(r)goto S_45899;} do{ goto LABEL_SAVENEW; if(!qbevent)break;evnt(25224,11469,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; if(!qbevent)break;evnt(25224,11472,"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(25224,11473,"ide_methods.bas");}while(r); S_45904:; fornext_value5021= 1 ; fornext_finalvalue5021= 9 ; fornext_step5021= 1 ; if (fornext_step5021<0) fornext_step_negative5021=1; else fornext_step_negative5021=0; if (new_error) goto fornext_error5021; goto fornext_entrylabel5021; while(1){ fornext_value5021=fornext_step5021+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); fornext_entrylabel5021: *_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5021; if (fornext_step_negative5021){ if (fornext_value5021fornext_finalvalue5021) break; } fornext_error5021:; if(qbevent){evnt(25224,11476,"ide_methods.bas");if(r)goto S_45904;} S_45905:; if(qbevent){evnt(25224,11477,"ide_methods.bas");if(r)goto S_45905;} S_45906:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 1 )))||new_error){ if(qbevent){evnt(25224,11478,"ide_methods.bas");if(r)goto S_45906;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; if(!qbevent)break;evnt(25224,11478,"ide_methods.bas");}while(r); sc_ec_219_end:; goto sc_5022_end; } S_45908:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 2 )))||new_error){ if(qbevent){evnt(25224,11479,"ide_methods.bas");if(r)goto S_45908;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11479,"ide_methods.bas");}while(r); sc_ec_220_end:; goto sc_5022_end; } S_45910:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 3 )))||new_error){ if(qbevent){evnt(25224,11480,"ide_methods.bas");if(r)goto S_45910;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; if(!qbevent)break;evnt(25224,11480,"ide_methods.bas");}while(r); sc_ec_221_end:; goto sc_5022_end; } S_45912:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 4 )))||new_error){ if(qbevent){evnt(25224,11481,"ide_methods.bas");if(r)goto S_45912;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11481,"ide_methods.bas");}while(r); sc_ec_222_end:; goto sc_5022_end; } S_45914:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 5 )))||new_error){ if(qbevent){evnt(25224,11482,"ide_methods.bas");if(r)goto S_45914;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11482,"ide_methods.bas");}while(r); sc_ec_223_end:; goto sc_5022_end; } S_45916:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 6 )))||new_error){ if(qbevent){evnt(25224,11483,"ide_methods.bas");if(r)goto S_45916;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11483,"ide_methods.bas");}while(r); sc_ec_224_end:; goto sc_5022_end; } S_45918:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 7 )))||new_error){ if(qbevent){evnt(25224,11484,"ide_methods.bas");if(r)goto S_45918;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11484,"ide_methods.bas");}while(r); sc_ec_225_end:; goto sc_5022_end; } S_45920:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 8 )))||new_error){ if(qbevent){evnt(25224,11485,"ide_methods.bas");if(r)goto S_45920;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11485,"ide_methods.bas");}while(r); sc_ec_226_end:; goto sc_5022_end; } S_45922:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 9 )))||new_error){ if(qbevent){evnt(25224,11486,"ide_methods.bas");if(r)goto S_45922;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11486,"ide_methods.bas");}while(r); sc_ec_227_end:; goto sc_5022_end; } sc_5022_end:; do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5023=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11489,"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(25224,11489,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5025=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11490,"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(25224,11490,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5027=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11491,"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(25224,11491,"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(25224,11492,"ide_methods.bas");}while(r); fornext_continue_5020:; } fornext_exit_5020:; do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),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(25224,11496,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); if(!qbevent)break;evnt(25224,11497,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; if(!qbevent)break;evnt(25224,11498,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11499,"ide_methods.bas");}while(r); do{ goto LABEL_APPLYSCHEME; if(!qbevent)break;evnt(25224,11500,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11502,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11503,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11504,"ide_methods.bas");}while(r); S_45942:; }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(25224,11505,"ide_methods.bas");if(r)goto S_45942;} S_45943:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11507,"ide_methods.bas");if(r)goto S_45943;} 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(25224,11508,"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(25224,11509,"ide_methods.bas");}while(r); S_45946:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,11510,"ide_methods.bas");if(r)goto S_45946;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; if(!qbevent)break;evnt(25224,11511,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),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(25224,11512,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); if(!qbevent)break;evnt(25224,11513,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; if(!qbevent)break;evnt(25224,11514,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11515,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; if(!qbevent)break;evnt(25224,11516,"ide_methods.bas");}while(r); do{ goto LABEL_VALIDATESCHEME; if(!qbevent)break;evnt(25224,11517,"ide_methods.bas");}while(r); } } } } } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= 0 ; if(!qbevent)break;evnt(25224,11524,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 0 ; if(!qbevent)break;evnt(25224,11525,"ide_methods.bas");}while(r); S_45960:; 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(25224,11527,"ide_methods.bas");if(r)goto S_45960;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; if(!qbevent)break;evnt(25224,11528,"ide_methods.bas");}while(r); S_45962:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ if(qbevent){evnt(25224,11529,"ide_methods.bas");if(r)goto S_45962;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11530,"ide_methods.bas");}while(r); do{ goto LABEL_LOADDEFAULTSCHEME; if(!qbevent)break;evnt(25224,11531,"ide_methods.bas");}while(r); }else{ S_45966:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 1 ))||new_error){ if(qbevent){evnt(25224,11533,"ide_methods.bas");if(r)goto S_45966;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; if(!qbevent)break;evnt(25224,11533,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11533,"ide_methods.bas");}while(r); } } S_45971:; }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(25224,11536,"ide_methods.bas");if(r)goto S_45971;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; if(!qbevent)break;evnt(25224,11537,"ide_methods.bas");}while(r); S_45973:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ if(qbevent){evnt(25224,11538,"ide_methods.bas");if(r)goto S_45973;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11539,"ide_methods.bas");}while(r); do{ goto LABEL_LOADDEFAULTSCHEME; if(!qbevent)break;evnt(25224,11540,"ide_methods.bas");}while(r); }else{ S_45977:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<*__INTEGER_TOTALCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11542,"ide_methods.bas");if(r)goto S_45977;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+ 1 ; if(!qbevent)break;evnt(25224,11542,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; if(!qbevent)break;evnt(25224,11542,"ide_methods.bas");}while(r); } } } } S_45983:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ if(qbevent){evnt(25224,11546,"ide_methods.bas");if(r)goto S_45983;} S_45984:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW== 0 ))||new_error){ if(qbevent){evnt(25224,11548,"ide_methods.bas");if(r)goto S_45984;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; if(!qbevent)break;evnt(25224,11548,"ide_methods.bas");}while(r); } LABEL_VALIDATESCHEME:; if(qbevent){evnt(25224,11549,"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(25224,11550,"ide_methods.bas");}while(r); S_45988:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ if(qbevent){evnt(25224,11551,"ide_methods.bas");if(r)goto S_45988;} S_45989:; 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)== 81 )))||new_error){ if(qbevent){evnt(25224,11552,"ide_methods.bas");if(r)goto S_45989;} 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(25224,11553,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; if(!qbevent)break;evnt(25224,11555,"ide_methods.bas");}while(r); S_45993:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11556,"ide_methods.bas");if(r)goto S_45993;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; if(!qbevent)break;evnt(25224,11556,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; if(!qbevent)break;evnt(25224,11556,"ide_methods.bas");}while(r); } S_45997:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ if(qbevent){evnt(25224,11557,"ide_methods.bas");if(r)goto S_45997;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; if(!qbevent)break;evnt(25224,11557,"ide_methods.bas");}while(r); } do{ goto LABEL_VALIDATESCHEME; if(!qbevent)break;evnt(25224,11558,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; if(!qbevent)break;evnt(25224,11561,"ide_methods.bas");}while(r); S_46004:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ if(qbevent){evnt(25224,11562,"ide_methods.bas");if(r)goto S_46004;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; if(!qbevent)break;evnt(25224,11562,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; if(!qbevent)break;evnt(25224,11562,"ide_methods.bas");}while(r); } S_46008:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ if(qbevent){evnt(25224,11563,"ide_methods.bas");if(r)goto S_46008;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; if(!qbevent)break;evnt(25224,11563,"ide_methods.bas");}while(r); } do{ goto LABEL_VALIDATESCHEME; if(!qbevent)break;evnt(25224,11564,"ide_methods.bas");}while(r); } LABEL_APPLYSCHEME:; if(qbevent){evnt(25224,11566,"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(25224,11567,"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]))*85+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(25224,11568,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11569,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11570,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11571,"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])])), 81 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11572,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 1 ; if(!qbevent)break;evnt(25224,11573,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11574,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11574,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11574,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11574,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11574,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11574,"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(25224,11575,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11576,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11576,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11576,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11576,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11576,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11576,"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(25224,11577,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11578,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11578,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11578,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11578,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11578,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11578,"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(25224,11579,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11580,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11580,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11580,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11580,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11580,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11580,"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(25224,11581,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11582,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11582,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11582,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11582,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11582,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11582,"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(25224,11583,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11584,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11584,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11584,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11584,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11584,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11584,"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(25224,11585,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11586,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11586,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11586,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11586,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11586,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11586,"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(25224,11587,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11588,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11588,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11588,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11588,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11588,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11588,"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(25224,11589,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11590,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11590,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11590,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11590,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11590,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,11590,"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(25224,11591,"ide_methods.bas");}while(r); do{ goto LABEL_CHANGETEXTBOXES; if(!qbevent)break;evnt(25224,11592,"ide_methods.bas");}while(r); } S_46085:; 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(25224,11595,"ide_methods.bas");if(r)goto S_46085;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); if(!qbevent)break;evnt(25224,11596,"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]))*85+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(25224,11597,"ide_methods.bas");}while(r); S_46088:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,11598,"ide_methods.bas");if(r)goto S_46088;} 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]))*85+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(25224,11599,"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]))*85+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(25224,11600,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 2 ; if(!qbevent)break;evnt(25224,11602,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11603,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11604,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11605,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=66; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_66:; if(!qbevent)break;evnt(25224,11606,"ide_methods.bas");}while(r); } S_46098:; 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(25224,11609,"ide_methods.bas");if(r)goto S_46098;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); if(!qbevent)break;evnt(25224,11610,"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]))*85+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(25224,11611,"ide_methods.bas");}while(r); S_46101:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,11612,"ide_methods.bas");if(r)goto S_46101;} 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]))*85+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(25224,11613,"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]))*85+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(25224,11614,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 3 ; if(!qbevent)break;evnt(25224,11616,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11617,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11618,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11619,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=67; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_67:; if(!qbevent)break;evnt(25224,11620,"ide_methods.bas");}while(r); } S_46111:; 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(25224,11623,"ide_methods.bas");if(r)goto S_46111;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); if(!qbevent)break;evnt(25224,11624,"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]))*85+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(25224,11625,"ide_methods.bas");}while(r); S_46114:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,11626,"ide_methods.bas");if(r)goto S_46114;} 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]))*85+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(25224,11627,"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]))*85+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(25224,11628,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 4 ; if(!qbevent)break;evnt(25224,11630,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11631,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11632,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11633,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=68; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_68:; if(!qbevent)break;evnt(25224,11634,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= 0 ; if(!qbevent)break;evnt(25224,11637,"ide_methods.bas");}while(r); S_46125:; 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(25224,11638,"ide_methods.bas");if(r)goto S_46125;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5034=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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11639,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11640,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11640,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11640,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; if(!qbevent)break;evnt(25224,11641,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=69; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_69:; if(!qbevent)break;evnt(25224,11642,"ide_methods.bas");}while(r); } S_46133:; 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(25224,11645,"ide_methods.bas");if(r)goto S_46133;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5036=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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11646,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11647,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11647,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,11647,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; if(!qbevent)break;evnt(25224,11648,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=70; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; RETURN_70:; if(!qbevent)break;evnt(25224,11649,"ide_methods.bas");}while(r); } S_46141:; 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]))*85+64))))&(-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))> 0 )))||new_error){ if(qbevent){evnt(25224,11652,"ide_methods.bas");if(r)goto S_46141;} 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]))*85+64)); if(!qbevent)break;evnt(25224,11653,"ide_methods.bas");}while(r); S_46143:; fornext_value5039= 1 ; fornext_finalvalue5039= 9 ; fornext_step5039= 1 ; if (fornext_step5039<0) fornext_step_negative5039=1; else fornext_step_negative5039=0; if (new_error) goto fornext_error5039; goto fornext_entrylabel5039; while(1){ fornext_value5039=fornext_step5039+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel5039: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5039; if (fornext_step_negative5039){ if (fornext_value5039fornext_finalvalue5039) break; } fornext_error5039:; if(qbevent){evnt(25224,11654,"ide_methods.bas");if(r)goto S_46143;} 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(25224,11654,"ide_methods.bas");}while(r); fornext_continue_5038:; } fornext_exit_5038:; 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(25224,11655,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,11657,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11658,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11658,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11659,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11659,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11660,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11660,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11661,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11661,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11662,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11662,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11663,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11663,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11664,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11664,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11665,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11665,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11666,"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((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_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(25224,11666,"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]))*85+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(25224,11667,"ide_methods.bas");}while(r); LABEL_CHANGETEXTBOXES:; if(qbevent){evnt(25224,11669,"ide_methods.bas");r=0;} S_46167:; if(qbevent){evnt(25224,11670,"ide_methods.bas");if(r)goto S_46167;} S_46168:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ if(qbevent){evnt(25224,11671,"ide_methods.bas");if(r)goto S_46168;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; if(!qbevent)break;evnt(25224,11671,"ide_methods.bas");}while(r); sc_ec_228_end:; goto sc_5040_end; } S_46170:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ if(qbevent){evnt(25224,11672,"ide_methods.bas");if(r)goto S_46170;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11672,"ide_methods.bas");}while(r); sc_ec_229_end:; goto sc_5040_end; } S_46172:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ if(qbevent){evnt(25224,11673,"ide_methods.bas");if(r)goto S_46172;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; if(!qbevent)break;evnt(25224,11673,"ide_methods.bas");}while(r); sc_ec_230_end:; goto sc_5040_end; } S_46174:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ if(qbevent){evnt(25224,11674,"ide_methods.bas");if(r)goto S_46174;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11674,"ide_methods.bas");}while(r); sc_ec_231_end:; goto sc_5040_end; } S_46176:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ if(qbevent){evnt(25224,11675,"ide_methods.bas");if(r)goto S_46176;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11675,"ide_methods.bas");}while(r); sc_ec_232_end:; goto sc_5040_end; } S_46178:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ if(qbevent){evnt(25224,11676,"ide_methods.bas");if(r)goto S_46178;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11676,"ide_methods.bas");}while(r); sc_ec_233_end:; goto sc_5040_end; } S_46180:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ if(qbevent){evnt(25224,11677,"ide_methods.bas");if(r)goto S_46180;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11677,"ide_methods.bas");}while(r); sc_ec_234_end:; goto sc_5040_end; } S_46182:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ if(qbevent){evnt(25224,11678,"ide_methods.bas");if(r)goto S_46182;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11678,"ide_methods.bas");}while(r); sc_ec_235_end:; goto sc_5040_end; } S_46184:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ if(qbevent){evnt(25224,11679,"ide_methods.bas");if(r)goto S_46184;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11679,"ide_methods.bas");}while(r); sc_ec_236_end:; goto sc_5040_end; } sc_5040_end:; 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5041=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11681,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5042=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11682,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5043=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11683,"ide_methods.bas");}while(r); S_46190:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))&*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ if(qbevent){evnt(25224,11684,"ide_methods.bas");if(r)goto S_46190;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11685,"ide_methods.bas");}while(r); } } S_46194:; fornext_value5045= 2 ; fornext_finalvalue5045= 4 ; fornext_step5045= 1 ; if (fornext_step5045<0) fornext_step_negative5045=1; else fornext_step_negative5045=0; if (new_error) goto fornext_error5045; goto fornext_entrylabel5045; while(1){ fornext_value5045=fornext_step5045+(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB); fornext_entrylabel5045: *_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB=fornext_value5045; if (fornext_step_negative5045){ if (fornext_value5045fornext_finalvalue5045) break; } fornext_error5045:; if(qbevent){evnt(25224,11690,"ide_methods.bas");if(r)goto S_46194;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11691,"ide_methods.bas");}while(r); S_46196:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_A->len> 3 )))||new_error){ if(qbevent){evnt(25224,11692,"ide_methods.bas");if(r)goto S_46196;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_left(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11692,"ide_methods.bas");}while(r); } S_46199:; fornext_value5048= 1 ; fornext_finalvalue5048=_FUNC_IDECHOOSECOLORSBOX_STRING_A->len; fornext_step5048= 1 ; if (fornext_step5048<0) fornext_step_negative5048=1; else fornext_step_negative5048=0; if (new_error) goto fornext_error5048; goto fornext_entrylabel5048; while(1){ fornext_value5048=fornext_step5048+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel5048: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5048; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5048){ if (fornext_value5048fornext_finalvalue5048) break; } fornext_error5048:; if(qbevent){evnt(25224,11693,"ide_methods.bas");if(r)goto S_46199;} 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(25224,11694,"ide_methods.bas");}while(r); S_46201:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,11695,"ide_methods.bas");if(r)goto S_46201;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11695,"ide_methods.bas");}while(r); do{ goto fornext_exit_5047; if(!qbevent)break;evnt(25224,11695,"ide_methods.bas");}while(r); } S_46205:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 48 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,11696,"ide_methods.bas");if(r)goto S_46205;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11696,"ide_methods.bas");}while(r); do{ goto fornext_exit_5047; if(!qbevent)break;evnt(25224,11696,"ide_methods.bas");}while(r); } fornext_continue_5047:; } fornext_exit_5047:; S_46210:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHOOSECOLORSBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,11698,"ide_methods.bas");if(r)goto S_46210;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11699,"ide_methods.bas");}while(r); S_46212:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 255 ))||new_error){ if(qbevent){evnt(25224,11700,"ide_methods.bas");if(r)goto S_46212;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("255",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11700,"ide_methods.bas");}while(r); } S_46215:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 0 ))||new_error){ if(qbevent){evnt(25224,11701,"ide_methods.bas");if(r)goto S_46215;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11701,"ide_methods.bas");}while(r); } }else{ S_46219:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ if(qbevent){evnt(25224,11703,"ide_methods.bas");if(r)goto S_46219;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11703,"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]))*85+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(25224,11705,"ide_methods.bas");}while(r); fornext_continue_5044:; } fornext_exit_5044:; 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]))*85+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(25224,11709,"ide_methods.bas");}while(r); S_46226:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ if(qbevent){evnt(25224,11710,"ide_methods.bas");if(r)goto S_46226;} 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]))*85+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]))*85+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(25224,11711,"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]))*85+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(25224,11712,"ide_methods.bas");}while(r); S_46229:; if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))>=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE))||new_error){ if(qbevent){evnt(25224,11713,"ide_methods.bas");if(r)goto S_46229;} do{ *(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))- 1 ; if(!qbevent)break;evnt(25224,11713,"ide_methods.bas");}while(r); } } S_46233:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))||new_error){ if(qbevent){evnt(25224,11716,"ide_methods.bas");if(r)goto S_46233;} 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(25224,11717,"ide_methods.bas");}while(r); S_46235:; 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]))*85+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(25224,11718,"ide_methods.bas");if(r)goto S_46235;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; if(!qbevent)break;evnt(25224,11720,"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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11724,"ide_methods.bas");}while(r); S_46240:; if(qbevent){evnt(25224,11725,"ide_methods.bas");if(r)goto S_46240;} S_46241:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ if(qbevent){evnt(25224,11726,"ide_methods.bas");if(r)goto S_46241;} do{ *__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11726,"ide_methods.bas");}while(r); sc_ec_237_end:; goto sc_5051_end; } S_46243:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ if(qbevent){evnt(25224,11727,"ide_methods.bas");if(r)goto S_46243;} do{ *__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11727,"ide_methods.bas");}while(r); sc_ec_238_end:; goto sc_5051_end; } S_46245:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ if(qbevent){evnt(25224,11728,"ide_methods.bas");if(r)goto S_46245;} do{ *__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11728,"ide_methods.bas");}while(r); sc_ec_239_end:; goto sc_5051_end; } S_46247:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ if(qbevent){evnt(25224,11729,"ide_methods.bas");if(r)goto S_46247;} do{ *__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11729,"ide_methods.bas");}while(r); sc_ec_240_end:; goto sc_5051_end; } S_46249:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ if(qbevent){evnt(25224,11730,"ide_methods.bas");if(r)goto S_46249;} do{ *__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11730,"ide_methods.bas");}while(r); sc_ec_241_end:; goto sc_5051_end; } S_46251:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ if(qbevent){evnt(25224,11731,"ide_methods.bas");if(r)goto S_46251;} do{ *__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11731,"ide_methods.bas");}while(r); sc_ec_242_end:; goto sc_5051_end; } S_46253:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ if(qbevent){evnt(25224,11732,"ide_methods.bas");if(r)goto S_46253;} do{ *__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11732,"ide_methods.bas");}while(r); sc_ec_243_end:; goto sc_5051_end; } S_46255:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ if(qbevent){evnt(25224,11733,"ide_methods.bas");if(r)goto S_46255;} do{ *__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11733,"ide_methods.bas");}while(r); sc_ec_244_end:; goto sc_5051_end; } S_46257:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ if(qbevent){evnt(25224,11734,"ide_methods.bas");if(r)goto S_46257;} do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; if(!qbevent)break;evnt(25224,11734,"ide_methods.bas");}while(r); sc_ec_245_end:; goto sc_5051_end; } sc_5051_end:; S_46260:; 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(25224,11737,"ide_methods.bas");if(r)goto S_46260;} do{ *__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11738,"ide_methods.bas");}while(r); do{ *__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11739,"ide_methods.bas");}while(r); do{ *__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11740,"ide_methods.bas");}while(r); do{ *__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR; if(!qbevent)break;evnt(25224,11741,"ide_methods.bas");}while(r); do{ *__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11742,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11743,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11744,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11745,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,11746,"ide_methods.bas");}while(r); } S_46271:; if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 9 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))||new_error){ if(qbevent){evnt(25224,11749,"ide_methods.bas");if(r)goto S_46271;} LABEL_LOADDEFAULTSCHEME:; if(qbevent){evnt(25224,11750,"ide_methods.bas");r=0;} do{ return_point[next_return_point++]=71; if (next_return_point>=return_points) more_return_points(); goto LABEL_ENABLEHIGHLIGHTER; RETURN_71:; if(!qbevent)break;evnt(25224,11751,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; if(!qbevent)break;evnt(25224,11752,"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(25224,11753,"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]))*85+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(25224,11754,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,11755,"ide_methods.bas");}while(r); do{ goto LABEL_APPLYSCHEME; if(!qbevent)break;evnt(25224,11756,"ide_methods.bas");}while(r); } S_46279:; 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(25224,11767,"ide_methods.bas");if(r)goto S_46279;} do{ return_point[next_return_point++]=72; if (next_return_point>=return_points) more_return_points(); goto LABEL_ENABLEHIGHLIGHTER; RETURN_72:; if(!qbevent)break;evnt(25224,11769,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("SchemeID",8),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11771,"ide_methods.bas");}while(r); S_46282:; fornext_value5053= 1 ; fornext_finalvalue5053= 9 ; fornext_step5053= 1 ; if (fornext_step5053<0) fornext_step_negative5053=1; else fornext_step_negative5053=0; if (new_error) goto fornext_error5053; goto fornext_entrylabel5053; while(1){ fornext_value5053=fornext_step5053+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); fornext_entrylabel5053: *_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5053; if (fornext_step_negative5053){ if (fornext_value5053fornext_finalvalue5053) break; } fornext_error5053:; if(qbevent){evnt(25224,11772,"ide_methods.bas");if(r)goto S_46282;} S_46283:; if(qbevent){evnt(25224,11773,"ide_methods.bas");if(r)goto S_46283;} S_46284:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 1 )))||new_error){ if(qbevent){evnt(25224,11774,"ide_methods.bas");if(r)goto S_46284;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; if(!qbevent)break;evnt(25224,11774,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("TextColor",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11774,"ide_methods.bas");}while(r); sc_ec_246_end:; goto sc_5054_end; } S_46287:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 2 )))||new_error){ if(qbevent){evnt(25224,11775,"ide_methods.bas");if(r)goto S_46287;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; if(!qbevent)break;evnt(25224,11775,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("KeywordColor",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11775,"ide_methods.bas");}while(r); sc_ec_247_end:; goto sc_5054_end; } S_46290:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 3 )))||new_error){ if(qbevent){evnt(25224,11776,"ide_methods.bas");if(r)goto S_46290;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; if(!qbevent)break;evnt(25224,11776,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("NumbersColor",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11776,"ide_methods.bas");}while(r); sc_ec_248_end:; goto sc_5054_end; } S_46293:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 4 )))||new_error){ if(qbevent){evnt(25224,11777,"ide_methods.bas");if(r)goto S_46293;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; if(!qbevent)break;evnt(25224,11777,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("QuoteColor",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11777,"ide_methods.bas");}while(r); sc_ec_249_end:; goto sc_5054_end; } S_46296:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 5 )))||new_error){ if(qbevent){evnt(25224,11778,"ide_methods.bas");if(r)goto S_46296;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; if(!qbevent)break;evnt(25224,11778,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("MetaCommandColor",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11778,"ide_methods.bas");}while(r); sc_ec_250_end:; goto sc_5054_end; } S_46299:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 6 )))||new_error){ if(qbevent){evnt(25224,11779,"ide_methods.bas");if(r)goto S_46299;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; if(!qbevent)break;evnt(25224,11779,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("CommentColor",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11779,"ide_methods.bas");}while(r); sc_ec_251_end:; goto sc_5054_end; } S_46302:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 7 )))||new_error){ if(qbevent){evnt(25224,11780,"ide_methods.bas");if(r)goto S_46302;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; if(!qbevent)break;evnt(25224,11780,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11780,"ide_methods.bas");}while(r); sc_ec_252_end:; goto sc_5054_end; } S_46305:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 8 )))||new_error){ if(qbevent){evnt(25224,11781,"ide_methods.bas");if(r)goto S_46305;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; if(!qbevent)break;evnt(25224,11781,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor2",16)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11781,"ide_methods.bas");}while(r); sc_ec_253_end:; goto sc_5054_end; } S_46308:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 9 )))||new_error){ if(qbevent){evnt(25224,11782,"ide_methods.bas");if(r)goto S_46308;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; if(!qbevent)break;evnt(25224,11782,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("HighlightColor",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11782,"ide_methods.bas");}while(r); sc_ec_254_end:; goto sc_5054_end; } sc_5054_end:; do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5055=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11784,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5056=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11785,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5057=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11786,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_RGBSTRING,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),_FUNC_IDECHOOSECOLORSBOX_STRING_R),qbs_new_txt_len(",",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_G),qbs_new_txt_len(",",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_B),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11788,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,_FUNC_IDECHOOSECOLORSBOX_STRING_RGBSTRING); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11789,"ide_methods.bas");}while(r); fornext_continue_5052:; } fornext_exit_5052:; 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]))*85+64)); if(!qbevent)break;evnt(25224,11792,"ide_methods.bas");}while(r); S_46319:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,11793,"ide_methods.bas");if(r)goto S_46319;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; if(!qbevent)break;evnt(25224,11793,"ide_methods.bas");}while(r); } do{ *__INTEGER_BRACKETHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11794,"ide_methods.bas");}while(r); S_46323:; if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11796,"ide_methods.bas");if(r)goto S_46323;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11797,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11799,"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]))*85+64)); if(!qbevent)break;evnt(25224,11802,"ide_methods.bas");}while(r); S_46329:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,11803,"ide_methods.bas");if(r)goto S_46329;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; if(!qbevent)break;evnt(25224,11803,"ide_methods.bas");}while(r); } do{ *__INTEGER_MULTIHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11804,"ide_methods.bas");}while(r); S_46333:; if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11806,"ide_methods.bas");if(r)goto S_46333;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11807,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11809,"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]))*85+64)); if(!qbevent)break;evnt(25224,11812,"ide_methods.bas");}while(r); S_46339:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ if(qbevent){evnt(25224,11813,"ide_methods.bas");if(r)goto S_46339;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; if(!qbevent)break;evnt(25224,11813,"ide_methods.bas");}while(r); } do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; if(!qbevent)break;evnt(25224,11814,"ide_methods.bas");}while(r); S_46343:; if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ if(qbevent){evnt(25224,11816,"ide_methods.bas");if(r)goto S_46343;} do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("TRUE",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11817,"ide_methods.bas");}while(r); }else{ do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11819,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,11822,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,11827,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,11828,"ide_methods.bas");}while(r); dl_continue_4986:; }while(1); dl_exit_4986:; do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX= 0 ; if(!qbevent)break;evnt(25224,11831,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,11833,"ide_methods.bas");}while(r); LABEL_NEWUSERSCHEME:; if(qbevent){evnt(25224,11834,"ide_methods.bas");r=0;} S_46355:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ if(qbevent){evnt(25224,11835,"ide_methods.bas");if(r)goto S_46355;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; if(!qbevent)break;evnt(25224,11839,"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]))*85+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(25224,11840,"ide_methods.bas");}while(r); } do{ #include "ret168.txt" if(!qbevent)break;evnt(25224,11842,"ide_methods.bas");}while(r); LABEL_ENABLEHIGHLIGHTER:; if(qbevent){evnt(25224,11844,"ide_methods.bas");r=0;} S_46360:; if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ if(qbevent){evnt(25224,11845,"ide_methods.bas");if(r)goto S_46360;} do{ *__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; if(!qbevent)break;evnt(25224,11846,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("FALSE",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11847,"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("Disable Syntax #Highlighter",27)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11848,"ide_methods.bas");}while(r); } do{ #include "ret168.txt" if(!qbevent)break;evnt(25224,11850,"ide_methods.bas");}while(r); 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; return *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX; } 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,11856,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,11857,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,11858,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,11859,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11860,"ide_methods.bas");}while(r); do{ if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDERGBMIXER_ARRAY_UDT_O[4]= 1 ; _FUNC_IDERGBMIXER_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4]+1; _FUNC_IDERGBMIXER_ARRAY_UDT_O[6]=1; if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&4){ _FUNC_IDERGBMIXER_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]),0,_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDERGBMIXER_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]) error(257); } _FUNC_IDERGBMIXER_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,11861,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,11862,"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(25224,11863,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_I= 0 ; if(!qbevent)break;evnt(25224,11867,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) ),&(pass5058= 70 ),&(pass5059= 11 ),qbs_new_txt_len("RGB Color Mixer",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11869,"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(25224,11871,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11872,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11873,"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]))*85+20))= 63 ; if(!qbevent)break;evnt(25224,11874,"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]))*85+24))= 2 ; if(!qbevent)break;evnt(25224,11875,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); if(!qbevent)break;evnt(25224,11876,"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]))*85+77))=_FUNC_IDERGBMIXER_STRING_A2->len; if(!qbevent)break;evnt(25224,11877,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11878,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11879,"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(25224,11881,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11882,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11883,"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]))*85+20))= 63 ; if(!qbevent)break;evnt(25224,11884,"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]))*85+24))= 5 ; if(!qbevent)break;evnt(25224,11885,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); if(!qbevent)break;evnt(25224,11886,"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]))*85+77))=_FUNC_IDERGBMIXER_STRING_A2->len; if(!qbevent)break;evnt(25224,11887,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11888,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11889,"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(25224,11891,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11892,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,11893,"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]))*85+20))= 63 ; if(!qbevent)break;evnt(25224,11894,"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]))*85+24))= 8 ; if(!qbevent)break;evnt(25224,11895,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); if(!qbevent)break;evnt(25224,11896,"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]))*85+77))=_FUNC_IDERGBMIXER_STRING_A2->len; if(!qbevent)break;evnt(25224,11897,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,11898,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,11899,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,11901,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,11902,"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]))*85+24))= 11 ; if(!qbevent)break;evnt(25224,11903,"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]))*85+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(25224,11904,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,11905,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT=*__LONG_IDESELECT; if(!qbevent)break;evnt(25224,11907,"ide_methods.bas");}while(r); S_46409:; if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ if(qbevent){evnt(25224,11909,"ide_methods.bas");if(r)goto S_46409;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11911,"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(25224,11912,"ide_methods.bas");}while(r); S_46412:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,11913,"ide_methods.bas");if(r)goto S_46412;} S_46413:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,11914,"ide_methods.bas");if(r)goto S_46413;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11915,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,11916,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,11916,"ide_methods.bas");}while(r); S_46417:; if ((-(*_FUNC_IDERGBMIXER_LONG_SX2<*_FUNC_IDERGBMIXER_LONG_SX1))||new_error){ if(qbevent){evnt(25224,11917,"ide_methods.bas");if(r)goto S_46417;} do{ swap_32(&*_FUNC_IDERGBMIXER_LONG_SX1,&*_FUNC_IDERGBMIXER_LONG_SX2); if(!qbevent)break;evnt(25224,11917,"ide_methods.bas");}while(r); } S_46420:; fornext_value5064=*_FUNC_IDERGBMIXER_LONG_SX1; fornext_finalvalue5064=*_FUNC_IDERGBMIXER_LONG_SX2- 1 ; fornext_step5064= 1 ; if (fornext_step5064<0) fornext_step_negative5064=1; else fornext_step_negative5064=0; if (new_error) goto fornext_error5064; goto fornext_entrylabel5064; while(1){ fornext_value5064=fornext_step5064+(*_FUNC_IDERGBMIXER_LONG_X); fornext_entrylabel5064: *_FUNC_IDERGBMIXER_LONG_X=fornext_value5064; if (fornext_step_negative5064){ if (fornext_value5064fornext_finalvalue5064) break; } fornext_error5064:; if(qbevent){evnt(25224,11918,"ide_methods.bas");if(r)goto S_46420;} S_46421:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_X<=_FUNC_IDERGBMIXER_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,11919,"ide_methods.bas");if(r)goto S_46421;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_add(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11919,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5063; if(!qbevent)break;evnt(25224,11919,"ide_methods.bas");}while(r); } fornext_continue_5063:; } fornext_exit_5063:; } } 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(25224,11923,"ide_methods.bas");}while(r); S_46430:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A2->len== 0 )))||new_error){ if(qbevent){evnt(25224,11925,"ide_methods.bas");if(r)goto S_46430;} LABEL_RGB_LOOKUP:; if(qbevent){evnt(25224,11926,"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(25224,11928,"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(25224,11929,"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(25224,11930,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_FOUND_RGB= 0 ; if(!qbevent)break;evnt(25224,11934,"ide_methods.bas");}while(r); S_46435:; do{ if(qbevent){evnt(25224,11935,"ide_methods.bas");if(r)goto S_46435;} do{ *_FUNC_IDERGBMIXER_LONG_FOUND_RGB=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB+ 1 ,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("RGB",3),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11936,"ide_methods.bas");}while(r); S_46437:; if ((-(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB== 0 ))||new_error){ if(qbevent){evnt(25224,11937,"ide_methods.bas");if(r)goto S_46437;} do{ goto dl_exit_5067; if(!qbevent)break;evnt(25224,11937,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11938,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11939,"ide_methods.bas");}while(r); S_46442:; if (((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1> 0 ))&(-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2> 0 )))||new_error){ if(qbevent){evnt(25224,11940,"ide_methods.bas");if(r)goto S_46442;} 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(25224,11946,"ide_methods.bas");}while(r); } dl_continue_5067:; }while(1); dl_exit_5067:; S_46446:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 0 )))||new_error){ if(qbevent){evnt(25224,11950,"ide_methods.bas");if(r)goto S_46446;} do{ goto LABEL_NORGBFOUND; if(!qbevent)break;evnt(25224,11950,"ide_methods.bas");}while(r); } S_46449:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 2 )))||new_error){ if(qbevent){evnt(25224,11952,"ide_methods.bas");if(r)goto S_46449;} 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(25224,11954,"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(25224,11955,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDERGBMIXER_LONG_CHECK_RGB= 1 ; if(!qbevent)break;evnt(25224,11957,"ide_methods.bas");}while(r); S_46454:; do{ if(qbevent){evnt(25224,11958,"ide_methods.bas");if(r)goto S_46454;} S_46455:; 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 ,1)))))||new_error){ if(qbevent){evnt(25224,11959,"ide_methods.bas");if(r)goto S_46455;} do{ *_FUNC_IDERGBMIXER_LONG_CHECK_RGB=*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 ; if(!qbevent)break;evnt(25224,11960,"ide_methods.bas");}while(r); S_46457:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB==(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len/ 2 ))))||new_error){ if(qbevent){evnt(25224,11961,"ide_methods.bas");if(r)goto S_46457;} do{ goto dl_exit_5070; if(!qbevent)break;evnt(25224,11961,"ide_methods.bas");}while(r); } }else{ do{ goto dl_exit_5070; if(!qbevent)break;evnt(25224,11963,"ide_methods.bas");}while(r); } dl_continue_5070:; }while(1); dl_exit_5070:; 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 ,1)),NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11966,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11967,"ide_methods.bas");}while(r); } } do{ if(!qbevent)break;evnt(25224,11972,"ide_methods.bas");}while(r); S_46469:; 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(25224,11976,"ide_methods.bas");if(r)goto S_46469;} S_46470:; 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(25224,11977,"ide_methods.bas");if(r)goto S_46470;} do{ *_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX= -1 ; if(!qbevent)break;evnt(25224,11977,"ide_methods.bas");}while(r); } S_46473:; if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT== 0 ))||new_error){ if(qbevent){evnt(25224,11978,"ide_methods.bas");if(r)goto S_46473;} do{ *_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=*_FUNC_IDERGBMIXER_LONG_SX1; if(!qbevent)break;evnt(25224,11978,"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(25224,11979,"ide_methods.bas");}while(r); S_46477:; if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1> 0 ))||new_error){ if(qbevent){evnt(25224,11980,"ide_methods.bas");if(r)goto S_46477;} do{ *_FUNC_IDERGBMIXER_LONG_FINDCOMMA2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11981,"ide_methods.bas");}while(r); S_46479:; if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2> 0 ))||new_error){ if(qbevent){evnt(25224,11982,"ide_methods.bas");if(r)goto S_46479;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11983,"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(25224,11983,"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(25224,11983,"ide_methods.bas");}while(r); S_46483:; fornext_value5073=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; fornext_finalvalue5073= 1 ; fornext_step5073= -1 ; if (fornext_step5073<0) fornext_step_negative5073=1; else fornext_step_negative5073=0; if (new_error) goto fornext_error5073; goto fornext_entrylabel5073; while(1){ fornext_value5073=fornext_step5073+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5073: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5073; if (fornext_step_negative5073){ if (fornext_value5073fornext_finalvalue5073) break; } fornext_error5073:; if(qbevent){evnt(25224,11984,"ide_methods.bas");if(r)goto S_46483;} S_46484:; 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(25224,11985,"ide_methods.bas");if(r)goto S_46484;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11986,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5072; if(!qbevent)break;evnt(25224,11988,"ide_methods.bas");}while(r); } fornext_continue_5072:; } fornext_exit_5072:; S_46490:; fornext_value5075=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ; fornext_finalvalue5075=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2- 1 ; fornext_step5075= 1 ; if (fornext_step5075<0) fornext_step_negative5075=1; else fornext_step_negative5075=0; if (new_error) goto fornext_error5075; goto fornext_entrylabel5075; while(1){ fornext_value5075=fornext_step5075+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5075: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5075; if (fornext_step_negative5075){ if (fornext_value5075fornext_finalvalue5075) break; } fornext_error5075:; if(qbevent){evnt(25224,11992,"ide_methods.bas");if(r)goto S_46490;} S_46491:; 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(25224,11993,"ide_methods.bas");if(r)goto S_46491;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_add(_FUNC_IDERGBMIXER_STRING_G,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11994,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5074; if(!qbevent)break;evnt(25224,11996,"ide_methods.bas");}while(r); } fornext_continue_5074:; } fornext_exit_5074:; S_46497:; fornext_value5077=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2+ 1 ; fornext_finalvalue5077=_FUNC_IDERGBMIXER_STRING_A2->len; fornext_step5077= 1 ; if (fornext_step5077<0) fornext_step_negative5077=1; else fornext_step_negative5077=0; if (new_error) goto fornext_error5077; goto fornext_entrylabel5077; while(1){ fornext_value5077=fornext_step5077+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5077: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5077; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5077){ if (fornext_value5077fornext_finalvalue5077) break; } fornext_error5077:; if(qbevent){evnt(25224,12000,"ide_methods.bas");if(r)goto S_46497;} S_46498:; 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(25224,12001,"ide_methods.bas");if(r)goto S_46498;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_add(_FUNC_IDERGBMIXER_STRING_B,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12002,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5076; if(!qbevent)break;evnt(25224,12004,"ide_methods.bas");}while(r); } fornext_continue_5076:; } fornext_exit_5076:; do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12008,"ide_methods.bas");}while(r); S_46505:; if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ if(qbevent){evnt(25224,12008,"ide_methods.bas");if(r)goto S_46505;} do{ *_FUNC_IDERGBMIXER_LONG_R= 0 ; if(!qbevent)break;evnt(25224,12008,"ide_methods.bas");}while(r); } S_46508:; if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ if(qbevent){evnt(25224,12009,"ide_methods.bas");if(r)goto S_46508;} do{ *_FUNC_IDERGBMIXER_LONG_R= 255 ; if(!qbevent)break;evnt(25224,12009,"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(25224,12010,"ide_methods.bas");}while(r); S_46512:; if ((-(*_FUNC_IDERGBMIXER_LONG_G< 0 ))||new_error){ if(qbevent){evnt(25224,12010,"ide_methods.bas");if(r)goto S_46512;} do{ *_FUNC_IDERGBMIXER_LONG_G= 0 ; if(!qbevent)break;evnt(25224,12010,"ide_methods.bas");}while(r); } S_46515:; if ((-(*_FUNC_IDERGBMIXER_LONG_G> 255 ))||new_error){ if(qbevent){evnt(25224,12011,"ide_methods.bas");if(r)goto S_46515;} do{ *_FUNC_IDERGBMIXER_LONG_G= 255 ; if(!qbevent)break;evnt(25224,12011,"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(25224,12012,"ide_methods.bas");}while(r); S_46519:; if ((-(*_FUNC_IDERGBMIXER_LONG_B< 0 ))||new_error){ if(qbevent){evnt(25224,12012,"ide_methods.bas");if(r)goto S_46519;} do{ *_FUNC_IDERGBMIXER_LONG_B= 0 ; if(!qbevent)break;evnt(25224,12012,"ide_methods.bas");}while(r); } S_46522:; if ((-(*_FUNC_IDERGBMIXER_LONG_B> 255 ))||new_error){ if(qbevent){evnt(25224,12013,"ide_methods.bas");if(r)goto S_46522;} do{ *_FUNC_IDERGBMIXER_LONG_B= 255 ; if(!qbevent)break;evnt(25224,12013,"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]))*85+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(25224,12015,"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]))*85+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(25224,12016,"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]))*85+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(25224,12017,"ide_methods.bas");}while(r); S_46528:; fornext_value5080= 1 ; fornext_finalvalue5080= 3 ; fornext_step5080= 1 ; if (fornext_step5080<0) fornext_step_negative5080=1; else fornext_step_negative5080=0; if (new_error) goto fornext_error5080; goto fornext_entrylabel5080; while(1){ fornext_value5080=fornext_step5080+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5080: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5080; if (fornext_step_negative5080){ if (fornext_value5080fornext_finalvalue5080) break; } fornext_error5080:; if(qbevent){evnt(25224,12019,"ide_methods.bas");if(r)goto S_46528;} 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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12020,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12021,"ide_methods.bas");}while(r); S_46531:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,12022,"ide_methods.bas");if(r)goto S_46531;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12022,"ide_methods.bas");}while(r); } fornext_continue_5079:; } fornext_exit_5079:; S_46535:; }else{ if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ if(qbevent){evnt(25224,12024,"ide_methods.bas");if(r)goto S_46535;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12025,"ide_methods.bas");}while(r); S_46537:; fornext_value5083=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; fornext_finalvalue5083= 1 ; fornext_step5083= -1 ; if (fornext_step5083<0) fornext_step_negative5083=1; else fornext_step_negative5083=0; if (new_error) goto fornext_error5083; goto fornext_entrylabel5083; while(1){ fornext_value5083=fornext_step5083+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5083: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5083; if (fornext_step_negative5083){ if (fornext_value5083fornext_finalvalue5083) break; } fornext_error5083:; if(qbevent){evnt(25224,12026,"ide_methods.bas");if(r)goto S_46537;} S_46538:; 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(25224,12027,"ide_methods.bas");if(r)goto S_46538;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12028,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5082; if(!qbevent)break;evnt(25224,12030,"ide_methods.bas");}while(r); } fornext_continue_5082:; } fornext_exit_5082:; do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12034,"ide_methods.bas");}while(r); S_46545:; if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ if(qbevent){evnt(25224,12034,"ide_methods.bas");if(r)goto S_46545;} do{ *_FUNC_IDERGBMIXER_LONG_R= 0 ; if(!qbevent)break;evnt(25224,12034,"ide_methods.bas");}while(r); } S_46548:; if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ if(qbevent){evnt(25224,12035,"ide_methods.bas");if(r)goto S_46548;} do{ *_FUNC_IDERGBMIXER_LONG_R= 255 ; if(!qbevent)break;evnt(25224,12035,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; if(!qbevent)break;evnt(25224,12036,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; if(!qbevent)break;evnt(25224,12037,"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]))*85+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(25224,12039,"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]))*85+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(25224,12040,"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]))*85+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(25224,12041,"ide_methods.bas");}while(r); S_46556:; fornext_value5085= 1 ; fornext_finalvalue5085= 3 ; fornext_step5085= 1 ; if (fornext_step5085<0) fornext_step_negative5085=1; else fornext_step_negative5085=0; if (new_error) goto fornext_error5085; goto fornext_entrylabel5085; while(1){ fornext_value5085=fornext_step5085+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5085: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5085; if (fornext_step_negative5085){ if (fornext_value5085fornext_finalvalue5085) break; } fornext_error5085:; if(qbevent){evnt(25224,12043,"ide_methods.bas");if(r)goto S_46556;} 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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12044,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12045,"ide_methods.bas");}while(r); S_46559:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,12046,"ide_methods.bas");if(r)goto S_46559;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12046,"ide_methods.bas");}while(r); } fornext_continue_5084:; } fornext_exit_5084:; } } S_46564:; }else{ if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ if(qbevent){evnt(25224,12049,"ide_methods.bas");if(r)goto S_46564;} 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(25224,12051,"ide_methods.bas");}while(r); S_46566:; if ((*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1)||new_error){ if(qbevent){evnt(25224,12052,"ide_methods.bas");if(r)goto S_46566;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12053,"ide_methods.bas");}while(r); S_46568:; fornext_value5088=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; fornext_finalvalue5088= 1 ; fornext_step5088= -1 ; if (fornext_step5088<0) fornext_step_negative5088=1; else fornext_step_negative5088=0; if (new_error) goto fornext_error5088; goto fornext_entrylabel5088; while(1){ fornext_value5088=fornext_step5088+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5088: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5088; if (fornext_step_negative5088){ if (fornext_value5088fornext_finalvalue5088) break; } fornext_error5088:; if(qbevent){evnt(25224,12054,"ide_methods.bas");if(r)goto S_46568;} S_46569:; 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(25224,12055,"ide_methods.bas");if(r)goto S_46569;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12056,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5087; if(!qbevent)break;evnt(25224,12058,"ide_methods.bas");}while(r); } fornext_continue_5087:; } fornext_exit_5087:; do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12062,"ide_methods.bas");}while(r); S_46576:; if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ if(qbevent){evnt(25224,12062,"ide_methods.bas");if(r)goto S_46576;} do{ *_FUNC_IDERGBMIXER_LONG_R= 0 ; if(!qbevent)break;evnt(25224,12062,"ide_methods.bas");}while(r); } S_46579:; if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ if(qbevent){evnt(25224,12063,"ide_methods.bas");if(r)goto S_46579;} do{ *_FUNC_IDERGBMIXER_LONG_R= 255 ; if(!qbevent)break;evnt(25224,12063,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; if(!qbevent)break;evnt(25224,12064,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; if(!qbevent)break;evnt(25224,12065,"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]))*85+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(25224,12067,"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]))*85+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(25224,12068,"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]))*85+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(25224,12069,"ide_methods.bas");}while(r); S_46587:; fornext_value5090= 1 ; fornext_finalvalue5090= 3 ; fornext_step5090= 1 ; if (fornext_step5090<0) fornext_step_negative5090=1; else fornext_step_negative5090=0; if (new_error) goto fornext_error5090; goto fornext_entrylabel5090; while(1){ fornext_value5090=fornext_step5090+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5090: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5090; if (fornext_step_negative5090){ if (fornext_value5090fornext_finalvalue5090) break; } fornext_error5090:; if(qbevent){evnt(25224,12071,"ide_methods.bas");if(r)goto S_46587;} 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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12072,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12073,"ide_methods.bas");}while(r); S_46590:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,12074,"ide_methods.bas");if(r)goto S_46590;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12074,"ide_methods.bas");}while(r); } fornext_continue_5089:; } fornext_exit_5089:; } } } }else{ S_46597:; if ((*__LONG_IDESELECT&(-(*__LONG_IDESELECTY1==*__LONG_IDECY)))||new_error){ if(qbevent){evnt(25224,12081,"ide_methods.bas");if(r)goto S_46597;} do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,12082,"ide_methods.bas");}while(r); do{ goto LABEL_RGB_LOOKUP; if(!qbevent)break;evnt(25224,12083,"ide_methods.bas");}while(r); } } } LABEL_NORGBFOUND:; if(qbevent){evnt(25224,12087,"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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12088,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,12089,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 , -16734208 , 0 ,1); if(!qbevent)break;evnt(25224,12090,"ide_methods.bas");}while(r); S_46606:; fornext_value5093= 1 ; fornext_finalvalue5093= 100 ; fornext_step5093= 1 ; if (fornext_step5093<0) fornext_step_negative5093=1; else fornext_step_negative5093=0; if (new_error) goto fornext_error5093; goto fornext_entrylabel5093; while(1){ fornext_value5093=fornext_step5093+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5093: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5093; if (fornext_step_negative5093){ if (fornext_value5093fornext_finalvalue5093) break; } fornext_error5093:; if(qbevent){evnt(25224,12094,"ide_methods.bas");if(r)goto S_46606;} 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]))*85)+ 0,((char*)_FUNC_IDERGBMIXER_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,12094,"ide_methods.bas");}while(r); fornext_continue_5092:; } fornext_exit_5092:; S_46609:; do{ if(qbevent){evnt(25224,12097,"ide_methods.bas");if(r)goto S_46609;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,12100,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12101,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,12101,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,12101,"ide_methods.bas");}while(r); S_46614:; fornext_value5096= 1 ; fornext_finalvalue5096= 100 ; fornext_step5096= 1 ; if (fornext_step5096<0) fornext_step_negative5096=1; else fornext_step_negative5096=0; if (new_error) goto fornext_error5096; goto fornext_entrylabel5096; while(1){ fornext_value5096=fornext_step5096+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5096: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5096; if (fornext_step_negative5096){ if (fornext_value5096fornext_finalvalue5096) break; } fornext_error5096:; if(qbevent){evnt(25224,12102,"ide_methods.bas");if(r)goto S_46614;} S_46615:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,12103,"ide_methods.bas");if(r)goto S_46615;} 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]))*85+60))=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; if(!qbevent)break;evnt(25224,12106,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,12107,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,12107,"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]))*85) ),_FUNC_IDERGBMIXER_LONG_F); if(!qbevent)break;evnt(25224,12108,"ide_methods.bas");}while(r); S_46620:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,12109,"ide_methods.bas");if(r)goto S_46620;} 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]))*85+52)); if(!qbevent)break;evnt(25224,12109,"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]))*85+56)); if(!qbevent)break;evnt(25224,12109,"ide_methods.bas");}while(r); } } fornext_continue_5095:; } fornext_exit_5095:; do{ *_FUNC_IDERGBMIXER_LONG_LASTFOCUS=*_FUNC_IDERGBMIXER_LONG_F- 1 ; if(!qbevent)break;evnt(25224,12112,"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(25224,12116,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("R: ",3)); if (new_error) goto skip5097; makefit(tqbs); qbs_print(tqbs,0); skip5097: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12116,"ide_methods.bas");}while(r); do{ qbg_sub_color( 4 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12117,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); if (new_error) goto skip5098; makefit(tqbs); qbs_print(tqbs,0); skip5098: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12117,"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(25224,12118,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12119,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); if(!qbevent)break;evnt(25224,12119,"ide_methods.bas");}while(r); S_46634:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,12120,"ide_methods.bas");if(r)goto S_46634;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12120,"ide_methods.bas");}while(r); } S_46637:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,12121,"ide_methods.bas");if(r)goto S_46637;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12121,"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(25224,12122,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12124,"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(25224,12124,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("G: ",3)); if (new_error) goto skip5099; makefit(tqbs); qbs_print(tqbs,0); skip5099: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12124,"ide_methods.bas");}while(r); do{ qbg_sub_color( 5 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12125,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); if (new_error) goto skip5100; makefit(tqbs); qbs_print(tqbs,0); skip5100: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12125,"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(25224,12126,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12127,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); if(!qbevent)break;evnt(25224,12127,"ide_methods.bas");}while(r); S_46649:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,12128,"ide_methods.bas");if(r)goto S_46649;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12128,"ide_methods.bas");}while(r); } S_46652:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,12129,"ide_methods.bas");if(r)goto S_46652;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12129,"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(25224,12130,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12132,"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(25224,12132,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("B: ",3)); if (new_error) goto skip5101; makefit(tqbs); qbs_print(tqbs,0); skip5101: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12132,"ide_methods.bas");}while(r); do{ qbg_sub_color( 9 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12133,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); if (new_error) goto skip5102; makefit(tqbs); qbs_print(tqbs,0); skip5102: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12133,"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(25224,12134,"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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12135,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); if(!qbevent)break;evnt(25224,12135,"ide_methods.bas");}while(r); S_46664:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ if(qbevent){evnt(25224,12136,"ide_methods.bas");if(r)goto S_46664;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12136,"ide_methods.bas");}while(r); } S_46667:; if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ if(qbevent){evnt(25224,12137,"ide_methods.bas");if(r)goto S_46667;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12137,"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(25224,12138,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12140,"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(25224,12140,"ide_methods.bas");}while(r); do{ qbg_sub_color( 12 ,NULL,NULL,1); if(!qbevent)break;evnt(25224,12142,"ide_methods.bas");}while(r); S_46674:; fornext_value5104= 2 ; fornext_finalvalue5104= 8 ; fornext_step5104= 1 ; if (fornext_step5104<0) fornext_step_negative5104=1; else fornext_step_negative5104=0; if (new_error) goto fornext_error5104; goto fornext_entrylabel5104; while(1){ fornext_value5104=fornext_step5104+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5104: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5104; if (fornext_step_negative5104){ if (fornext_value5104fornext_finalvalue5104) break; } fornext_error5104:; if(qbevent){evnt(25224,12143,"ide_methods.bas");if(r)goto S_46674;} 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(25224,12144,"ide_methods.bas");}while(r); fornext_continue_5103:; } fornext_exit_5103:; do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,12149,"ide_methods.bas");}while(r); S_46678:; if ((*_FUNC_IDERGBMIXER_LONG_CX)||new_error){ if(qbevent){evnt(25224,12150,"ide_methods.bas");if(r)goto S_46678;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12150,"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(25224,12150,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12150,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,12153,"ide_methods.bas");}while(r); S_46684:; do{ if(qbevent){evnt(25224,12154,"ide_methods.bas");if(r)goto S_46684;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,12155,"ide_methods.bas");}while(r); S_46686:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,12156,"ide_methods.bas");if(r)goto S_46686;} do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12156,"ide_methods.bas");}while(r); } S_46689:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,12157,"ide_methods.bas");if(r)goto S_46689;} do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12157,"ide_methods.bas");}while(r); } S_46692:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,12158,"ide_methods.bas");if(r)goto S_46692;} do{ *_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,12158,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12158,"ide_methods.bas");}while(r); } S_46696:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,12159,"ide_methods.bas");if(r)goto S_46696;} do{ *_FUNC_IDERGBMIXER_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,12159,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12159,"ide_methods.bas");}while(r); } S_46700:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,12160,"ide_methods.bas");if(r)goto S_46700;} do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12160,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,12161,"ide_methods.bas");}while(r); S_46704:; if ((-(*_FUNC_IDERGBMIXER_LONG_ALT!=*_FUNC_IDERGBMIXER_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,12161,"ide_methods.bas");if(r)goto S_46704;} do{ *_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12161,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_OLDALT=*_FUNC_IDERGBMIXER_LONG_ALT; if(!qbevent)break;evnt(25224,12162,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,12163,"ide_methods.bas");}while(r); S_46709:; dl_continue_5105:; }while((!(*_FUNC_IDERGBMIXER_LONG_CHANGE))&&(!new_error)); dl_exit_5105:; if(qbevent){evnt(25224,12164,"ide_methods.bas");if(r)goto S_46709;} S_46710:; if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12165,"ide_methods.bas");if(r)goto S_46710;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,12165,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,12165,"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(25224,12167,"ide_methods.bas");}while(r); S_46716:; if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12168,"ide_methods.bas");if(r)goto S_46716;} S_46717:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,12169,"ide_methods.bas");if(r)goto S_46717;} do{ *_FUNC_IDERGBMIXER_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12170,"ide_methods.bas");}while(r); S_46719:; if (((-(*_FUNC_IDERGBMIXER_LONG_K>= 65 ))&(-(*_FUNC_IDERGBMIXER_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,12171,"ide_methods.bas");if(r)goto S_46719;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,func_chr(*_FUNC_IDERGBMIXER_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12171,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12174,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,12174,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12174,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,12178,"ide_methods.bas");}while(r); S_46728:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,12179,"ide_methods.bas");if(r)goto S_46728;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12179,"ide_methods.bas");}while(r); } S_46731:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,12180,"ide_methods.bas");if(r)goto S_46731;} do{ *_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,12180,"ide_methods.bas");}while(r); } S_46734:; 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(25224,12181,"ide_methods.bas");if(r)goto S_46734;} do{ *_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,12181,"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(25224,12181,"ide_methods.bas");}while(r); } S_46738:; if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,12182,"ide_methods.bas");if(r)goto S_46738;} do{ *_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,12182,"ide_methods.bas");}while(r); } S_46741:; if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>*_FUNC_IDERGBMIXER_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,12183,"ide_methods.bas");if(r)goto S_46741;} do{ *_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12183,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12184,"ide_methods.bas");}while(r); S_46745:; fornext_value5108= 1 ; fornext_finalvalue5108= 100 ; fornext_step5108= 1 ; if (fornext_step5108<0) fornext_step_negative5108=1; else fornext_step_negative5108=0; if (new_error) goto fornext_error5108; goto fornext_entrylabel5108; while(1){ fornext_value5108=fornext_step5108+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5108: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5108; if (fornext_step_negative5108){ if (fornext_value5108fornext_finalvalue5108) break; } fornext_error5108:; if(qbevent){evnt(25224,12185,"ide_methods.bas");if(r)goto S_46745;} 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]))*85+36)); if(!qbevent)break;evnt(25224,12186,"ide_methods.bas");}while(r); S_46747:; if ((*_FUNC_IDERGBMIXER_LONG_T)||new_error){ if(qbevent){evnt(25224,12187,"ide_methods.bas");if(r)goto S_46747;} do{ *_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; if(!qbevent)break;evnt(25224,12188,"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]))*85) ),_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(25224,12189,"ide_methods.bas");}while(r); } fornext_continue_5107:; } fornext_exit_5107:; S_46752:; if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS!=*_FUNC_IDERGBMIXER_LONG_PREVFOCUS))||new_error){ if(qbevent){evnt(25224,12195,"ide_methods.bas");if(r)goto S_46752;} do{ *_FUNC_IDERGBMIXER_LONG_PREVFOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS; if(!qbevent)break;evnt(25224,12197,"ide_methods.bas");}while(r); S_46754:; if (((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>= 1 ))&(-(*_FUNC_IDERGBMIXER_LONG_FOCUS<= 3 )))||new_error){ if(qbevent){evnt(25224,12198,"ide_methods.bas");if(r)goto S_46754;} 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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12199,"ide_methods.bas");}while(r); S_46756:; 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]))*85+77))> 0 ))||new_error){ if(qbevent){evnt(25224,12200,"ide_methods.bas");if(r)goto S_46756;} 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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12200,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12201,"ide_methods.bas");}while(r); } } S_46762:; 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(25224,12205,"ide_methods.bas");if(r)goto S_46762;} do{ *_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); if(!qbevent)break;evnt(25224,12206,"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]))*85+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(25224,12207,"ide_methods.bas");}while(r); S_46765:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,12208,"ide_methods.bas");if(r)goto S_46765;} 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]))*85+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(25224,12209,"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]))*85+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(25224,12210,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12212,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12213,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12214,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12215,"ide_methods.bas");}while(r); } S_46774:; 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(25224,12218,"ide_methods.bas");if(r)goto S_46774;} do{ *_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); if(!qbevent)break;evnt(25224,12219,"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]))*85+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(25224,12220,"ide_methods.bas");}while(r); S_46777:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,12221,"ide_methods.bas");if(r)goto S_46777;} 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]))*85+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(25224,12222,"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]))*85+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(25224,12223,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_FOCUS= 2 ; if(!qbevent)break;evnt(25224,12225,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12226,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12227,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12228,"ide_methods.bas");}while(r); } S_46786:; 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(25224,12231,"ide_methods.bas");if(r)goto S_46786;} do{ *_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); if(!qbevent)break;evnt(25224,12232,"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]))*85+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(25224,12233,"ide_methods.bas");}while(r); S_46789:; if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ if(qbevent){evnt(25224,12234,"ide_methods.bas");if(r)goto S_46789;} 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]))*85+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(25224,12235,"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]))*85+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(25224,12236,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_FOCUS= 3 ; if(!qbevent)break;evnt(25224,12238,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12239,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12240,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12241,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= 0 ; if(!qbevent)break;evnt(25224,12244,"ide_methods.bas");}while(r); S_46799:; 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(25224,12245,"ide_methods.bas");if(r)goto S_46799;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5113=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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12246,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12247,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12247,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12247,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; if(!qbevent)break;evnt(25224,12248,"ide_methods.bas");}while(r); } S_46806:; 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(25224,12251,"ide_methods.bas");if(r)goto S_46806;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5115=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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12252,"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]))*85+72))= -1 ; if(!qbevent)break;evnt(25224,12253,"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]))*85+73))= 0 ; if(!qbevent)break;evnt(25224,12253,"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]))*85+77))=((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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; if(!qbevent)break;evnt(25224,12253,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; if(!qbevent)break;evnt(25224,12254,"ide_methods.bas");}while(r); } S_46813:; fornext_value5118= 1 ; fornext_finalvalue5118= 3 ; fornext_step5118= 1 ; if (fornext_step5118<0) fornext_step_negative5118=1; else fornext_step_negative5118=0; if (new_error) goto fornext_error5118; goto fornext_entrylabel5118; while(1){ fornext_value5118=fornext_step5118+(*_FUNC_IDERGBMIXER_LONG_CHECKRGB); fornext_entrylabel5118: *_FUNC_IDERGBMIXER_LONG_CHECKRGB=fornext_value5118; if (fornext_step_negative5118){ if (fornext_value5118fornext_finalvalue5118) break; } fornext_error5118:; if(qbevent){evnt(25224,12258,"ide_methods.bas");if(r)goto S_46813;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12259,"ide_methods.bas");}while(r); S_46815:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A->len> 3 )))||new_error){ if(qbevent){evnt(25224,12260,"ide_methods.bas");if(r)goto S_46815;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_left(_FUNC_IDERGBMIXER_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12260,"ide_methods.bas");}while(r); } S_46818:; fornext_value5121= 1 ; fornext_finalvalue5121=_FUNC_IDERGBMIXER_STRING_A->len; fornext_step5121= 1 ; if (fornext_step5121<0) fornext_step_negative5121=1; else fornext_step_negative5121=0; if (new_error) goto fornext_error5121; goto fornext_entrylabel5121; while(1){ fornext_value5121=fornext_step5121+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5121: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5121; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5121){ if (fornext_value5121fornext_finalvalue5121) break; } fornext_error5121:; if(qbevent){evnt(25224,12261,"ide_methods.bas");if(r)goto S_46818;} 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(25224,12262,"ide_methods.bas");}while(r); S_46820:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDERGBMIXER_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A, 1 )== 48 ))))||new_error){ if(qbevent){evnt(25224,12263,"ide_methods.bas");if(r)goto S_46820;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12263,"ide_methods.bas");}while(r); do{ goto fornext_exit_5120; if(!qbevent)break;evnt(25224,12263,"ide_methods.bas");}while(r); } S_46824:; if (((-(*_FUNC_IDERGBMIXER_LONG_A< 48 ))|(-(*_FUNC_IDERGBMIXER_LONG_A> 57 )))||new_error){ if(qbevent){evnt(25224,12264,"ide_methods.bas");if(r)goto S_46824;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12264,"ide_methods.bas");}while(r); do{ goto fornext_exit_5120; if(!qbevent)break;evnt(25224,12264,"ide_methods.bas");}while(r); } fornext_continue_5120:; } fornext_exit_5120:; S_46829:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_A->len))||new_error){ if(qbevent){evnt(25224,12266,"ide_methods.bas");if(r)goto S_46829;} do{ *_FUNC_IDERGBMIXER_LONG_A=qbr(func_val(_FUNC_IDERGBMIXER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12267,"ide_methods.bas");}while(r); S_46831:; if ((-(*_FUNC_IDERGBMIXER_LONG_A> 255 ))||new_error){ if(qbevent){evnt(25224,12268,"ide_methods.bas");if(r)goto S_46831;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("255",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12268,"ide_methods.bas");}while(r); } S_46834:; if ((-(*_FUNC_IDERGBMIXER_LONG_A< 0 ))||new_error){ if(qbevent){evnt(25224,12269,"ide_methods.bas");if(r)goto S_46834;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12269,"ide_methods.bas");}while(r); } }else{ S_46838:; if ((-(*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ if(qbevent){evnt(25224,12271,"ide_methods.bas");if(r)goto S_46838;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12271,"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]))*85+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(25224,12273,"ide_methods.bas");}while(r); fornext_continue_5117:; } fornext_exit_5117:; 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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12276,"ide_methods.bas");}while(r); S_46845:; 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]))*85+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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ if(qbevent){evnt(25224,12277,"ide_methods.bas");if(r)goto S_46845;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12278,"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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12280,"ide_methods.bas");}while(r); } do{ sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,12282,"ide_methods.bas");}while(r); S_46851:; 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(25224,12284,"ide_methods.bas");if(r)goto S_46851;} do{ *__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; if(!qbevent)break;evnt(25224,12285,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12286,"ide_methods.bas");}while(r); } S_46855:; if ((((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))||new_error){ if(qbevent){evnt(25224,12289,"ide_methods.bas");if(r)goto S_46855;} S_46856:; 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]))*85+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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ if(qbevent){evnt(25224,12291,"ide_methods.bas");if(r)goto S_46856;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12292,"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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12294,"ide_methods.bas");}while(r); } do{ sub__clipboard(_FUNC_IDERGBMIXER_STRING_CURRENTRGB); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12297,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; if(!qbevent)break;evnt(25224,12298,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12299,"ide_methods.bas");}while(r); } S_46865:; 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(25224,12306,"ide_methods.bas");if(r)goto S_46865;} S_46866:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,12307,"ide_methods.bas");if(r)goto S_46866;} do{ qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12307,"ide_methods.bas");}while(r); } S_46869:; if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ if(qbevent){evnt(25224,12308,"ide_methods.bas");if(r)goto S_46869;} S_46870:; if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT> 0 ))||new_error){ if(qbevent){evnt(25224,12310,"ide_methods.bas");if(r)goto S_46870;} do{ *_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12311,"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),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12312,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12313,"ide_methods.bas");}while(r); S_46874:; 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(25224,12314,"ide_methods.bas");if(r)goto S_46874;} S_46875:; fornext_value5125=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2; fornext_finalvalue5125=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; fornext_step5125= -1 ; if (fornext_step5125<0) fornext_step_negative5125=1; else fornext_step_negative5125=0; if (new_error) goto fornext_error5125; goto fornext_entrylabel5125; while(1){ fornext_value5125=fornext_step5125+(*_FUNC_IDERGBMIXER_LONG_I); fornext_entrylabel5125: *_FUNC_IDERGBMIXER_LONG_I=fornext_value5125; if (fornext_step_negative5125){ if (fornext_value5125fornext_finalvalue5125) break; } fornext_error5125:; if(qbevent){evnt(25224,12315,"ide_methods.bas");if(r)goto S_46875;} S_46876:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_I)== 44 )))||new_error){ if(qbevent){evnt(25224,12316,"ide_methods.bas");if(r)goto S_46876;} do{ *_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_I; if(!qbevent)break;evnt(25224,12316,"ide_methods.bas");}while(r); do{ goto fornext_exit_5124; if(!qbevent)break;evnt(25224,12316,"ide_methods.bas");}while(r); } fornext_continue_5124:; } fornext_exit_5124:; } 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(25224,12319,"ide_methods.bas");}while(r); S_46883:; if ((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2== 0 ))||new_error){ if(qbevent){evnt(25224,12320,"ide_methods.bas");if(r)goto S_46883;} do{ *_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; if(!qbevent)break;evnt(25224,12320,"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(25224,12321,"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(25224,12322,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,12323,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDERGBMIXER_STRING_NEWLINE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12324,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ; if(!qbevent)break;evnt(25224,12327,"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(25224,12328,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,12329,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; if(!qbevent)break;evnt(25224,12330,"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(25224,12331,"ide_methods.bas");}while(r); } } S_46897:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len))||new_error){ if(qbevent){evnt(25224,12335,"ide_methods.bas");if(r)goto S_46897;} S_46898:; 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]))*85+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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ if(qbevent){evnt(25224,12337,"ide_methods.bas");if(r)goto S_46898;} 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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12338,"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]))*85+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]))*85+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]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12340,"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(25224,12344,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; if(!qbevent)break;evnt(25224,12345,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12346,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,12351,"ide_methods.bas");}while(r); do{ *_FUNC_IDERGBMIXER_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,12352,"ide_methods.bas");}while(r); dl_continue_5094:; }while(1); dl_exit_5094:; 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; 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 "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; S_46911:; do{ if(qbevent){evnt(25224,12357,"ide_methods.bas");if(r)goto S_46911;} do{ *_FUNC_COUNTITEMS_LONG_FOUND=func_instr(*_FUNC_COUNTITEMS_LONG_FOUND+ 1 ,_FUNC_COUNTITEMS_STRING_SEARCHSTRING,_FUNC_COUNTITEMS_STRING_ITEM,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12358,"ide_methods.bas");}while(r); S_46913:; if ((-(*_FUNC_COUNTITEMS_LONG_FOUND== 0 ))||new_error){ if(qbevent){evnt(25224,12359,"ide_methods.bas");if(r)goto S_46913;} do{ goto dl_exit_5130; if(!qbevent)break;evnt(25224,12359,"ide_methods.bas");}while(r); } do{ *_FUNC_COUNTITEMS_LONG_TOTAL=*_FUNC_COUNTITEMS_LONG_TOTAL+ 1 ; if(!qbevent)break;evnt(25224,12360,"ide_methods.bas");}while(r); dl_continue_5130:; }while(1); dl_exit_5130:; do{ *_FUNC_COUNTITEMS_LONG_COUNTITEMS=*_FUNC_COUNTITEMS_LONG_TOTAL; if(!qbevent)break;evnt(25224,12362,"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_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 "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{ *_SUB_IDERESTRICT417_LONG_X= 0 ; if(!qbevent)break;evnt(25224,12367,"ide_methods.bas");}while(r); S_46920:; if ((*_SUB_IDERESTRICT417_LONG_P417& 4 )||new_error){ if(qbevent){evnt(25224,12368,"ide_methods.bas");if(r)goto S_46920;} do{ *_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,12368,"ide_methods.bas");}while(r); } S_46923:; if ((*_SUB_IDERESTRICT417_LONG_P417& 8 )||new_error){ if(qbevent){evnt(25224,12369,"ide_methods.bas");if(r)goto S_46923;} do{ *_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; if(!qbevent)break;evnt(25224,12369,"ide_methods.bas");}while(r); } S_46926:; if ((-(*_SUB_IDERESTRICT417_LONG_X> 1 ))||new_error){ if(qbevent){evnt(25224,12370,"ide_methods.bas");if(r)goto S_46926;} do{ *_SUB_IDERESTRICT417_LONG_P417=*_SUB_IDERESTRICT417_LONG_P417& 243 ; if(!qbevent)break;evnt(25224,12370,"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; } 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 "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; S_46929:; if ((*__LONG_MACOSX)||new_error){ if(qbevent){evnt(25224,12383,"ide_methods.bas");if(r)goto S_46929;} S_46930:; if ((func__keydown( 100309 ))||new_error){ if(qbevent){evnt(25224,12384,"ide_methods.bas");if(r)goto S_46930;} do{ *_FUNC_CTRL2_LONG_CTRL2= 1 ; if(!qbevent)break;evnt(25224,12384,"ide_methods.bas");}while(r); } S_46933:; if ((func__keydown( 100310 ))||new_error){ if(qbevent){evnt(25224,12385,"ide_methods.bas");if(r)goto S_46933;} do{ *_FUNC_CTRL2_LONG_CTRL2= 1 ; if(!qbevent)break;evnt(25224,12385,"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; 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 "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{ if(!qbevent)break;evnt(25224,12392,"ide_methods.bas");}while(r); S_46938:; if ((*__LONG_ICHECKLATER)||new_error){ if(qbevent){evnt(25224,12394,"ide_methods.bas");if(r)goto S_46938;} do{ *__LONG_ICHECKLATER= 0 ; if(!qbevent)break;evnt(25224,12394,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12394,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= 0 ; if(!qbevent)break;evnt(25224,12396,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= 0 ; if(!qbevent)break;evnt(25224,12397,"ide_methods.bas");}while(r); do{ *__LONG_MCLICK= 0 ; if(!qbevent)break;evnt(25224,12398,"ide_methods.bas");}while(r); do{ *__LONG_MCLICK2= 0 ; if(!qbevent)break;evnt(25224,12398,"ide_methods.bas");}while(r); do{ *__LONG_MRELEASE= 0 ; if(!qbevent)break;evnt(25224,12398,"ide_methods.bas");}while(r); do{ *__LONG_MRELEASE2= 0 ; if(!qbevent)break;evnt(25224,12398,"ide_methods.bas");}while(r); do{ *__LONG_MWHEEL= 0 ; if(!qbevent)break;evnt(25224,12399,"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(25224,12400,"ide_methods.bas");}while(r); do{ *__LONG_KB= 0 ; if(!qbevent)break;evnt(25224,12400,"ide_methods.bas");}while(r); do{ *__LONG_MOB=*__LONG_MB; if(!qbevent)break;evnt(25224,12401,"ide_methods.bas");}while(r); do{ *__LONG_MOB2=*__LONG_MB2; if(!qbevent)break;evnt(25224,12401,"ide_methods.bas");}while(r); do{ *__LONG_KOALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,12402,"ide_methods.bas");}while(r); do{ *__LONG_KALTPRESS= 0 ; if(!qbevent)break;evnt(25224,12402,"ide_methods.bas");}while(r); do{ *__LONG_KALTRELEASE= 0 ; if(!qbevent)break;evnt(25224,12402,"ide_methods.bas");}while(r); S_46956:; do{ if(qbevent){evnt(25224,12404,"ide_methods.bas");if(r)goto S_46956;} S_46957:; dl_continue_5131:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); dl_exit_5131:; if(qbevent){evnt(25224,12404,"ide_methods.bas");if(r)goto S_46957;} do{ *_SUB_GETINPUT_LONG_K=func__keyhit(); if(!qbevent)break;evnt(25224,12406,"ide_methods.bas");}while(r); S_46959:; if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||new_error){ if(qbevent){evnt(25224,12409,"ide_methods.bas");if(r)goto S_46959;} 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(25224,12410,"ide_methods.bas");}while(r); } S_46962:; if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||new_error){ if(qbevent){evnt(25224,12412,"ide_methods.bas");if(r)goto S_46962;} S_46963:; if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||new_error){ if(qbevent){evnt(25224,12413,"ide_methods.bas");if(r)goto S_46963;} do{ *__LONG_KB=qbr(func_val(qbs_right(_SUB_GETINPUT_STRING_ASCVALUE, 3 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12414,"ide_methods.bas");}while(r); S_46965:; if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||new_error){ if(qbevent){evnt(25224,12415,"ide_methods.bas");if(r)goto S_46965;} do{ qbs_set(__STRING_K,func_chr(*__LONG_KB)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12416,"ide_methods.bas");}while(r); do{ *_SUB_GETINPUT_LONG_K=*__LONG_KB; if(!qbevent)break;evnt(25224,12417,"ide_methods.bas");}while(r); do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12418,"ide_methods.bas");}while(r); do{ *__BYTE_ALTSPECIAL= -1 ; if(!qbevent)break;evnt(25224,12419,"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(25224,12421,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12422,"ide_methods.bas");}while(r); } } S_46975:; if ((*_SUB_GETINPUT_LONG_K)||new_error){ if(qbevent){evnt(25224,12427,"ide_methods.bas");if(r)goto S_46975;} S_46976:; if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||new_error){ if(qbevent){evnt(25224,12428,"ide_methods.bas");if(r)goto S_46976;} do{ *_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K); if(!qbevent)break;evnt(25224,12428,"ide_methods.bas");}while(r); do{ *_SUB_GETINPUT_LONG_RELEASE= 1 ; if(!qbevent)break;evnt(25224,12428,"ide_methods.bas");}while(r); } S_46980:; if (((-(*_SUB_GETINPUT_LONG_K== 100304 ))|(-(*_SUB_GETINPUT_LONG_K== 100303 )))||new_error){ if(qbevent){evnt(25224,12430,"ide_methods.bas");if(r)goto S_46980;} S_46981:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ if(qbevent){evnt(25224,12431,"ide_methods.bas");if(r)goto S_46981;} do{ *__LONG_KSHIFT= 0 ; if(!qbevent)break;evnt(25224,12431,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KSHIFT= -1 ; if(!qbevent)break;evnt(25224,12431,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12432,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; if(!qbevent)break;evnt(25224,12432,"ide_methods.bas");}while(r); } S_46989:; if (((-(*_SUB_GETINPUT_LONG_K== 100308 ))|(-(*_SUB_GETINPUT_LONG_K== 100307 )))||new_error){ if(qbevent){evnt(25224,12434,"ide_methods.bas");if(r)goto S_46989;} S_46990:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ if(qbevent){evnt(25224,12435,"ide_methods.bas");if(r)goto S_46990;} do{ *__LONG_KALT= 0 ; if(!qbevent)break;evnt(25224,12436,"ide_methods.bas");}while(r); do{ *__LONG_KALTRELEASE= -1 ; if(!qbevent)break;evnt(25224,12436,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KALT= -1 ; if(!qbevent)break;evnt(25224,12438,"ide_methods.bas");}while(r); do{ *__LONG_KALTPRESS= -1 ; if(!qbevent)break;evnt(25224,12438,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12440,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; if(!qbevent)break;evnt(25224,12440,"ide_methods.bas");}while(r); } S_47000:; if (((-(*_SUB_GETINPUT_LONG_K== 100306 ))|(-(*_SUB_GETINPUT_LONG_K== 100305 )))||new_error){ if(qbevent){evnt(25224,12442,"ide_methods.bas");if(r)goto S_47000;} S_47001:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ if(qbevent){evnt(25224,12443,"ide_methods.bas");if(r)goto S_47001;} do{ *__LONG_KCTRL= 0 ; if(!qbevent)break;evnt(25224,12443,"ide_methods.bas");}while(r); do{ *__LONG_KCONTROL= 0 ; if(!qbevent)break;evnt(25224,12443,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KCTRL= -1 ; if(!qbevent)break;evnt(25224,12443,"ide_methods.bas");}while(r); do{ *__LONG_KCONTROL= -1 ; if(!qbevent)break;evnt(25224,12443,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12444,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; if(!qbevent)break;evnt(25224,12444,"ide_methods.bas");}while(r); } S_47011:; if (((-(*_SUB_GETINPUT_LONG_K== 100310 ))|(-(*_SUB_GETINPUT_LONG_K== 100309 )))||new_error){ if(qbevent){evnt(25224,12446,"ide_methods.bas");if(r)goto S_47011;} S_47012:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ if(qbevent){evnt(25224,12447,"ide_methods.bas");if(r)goto S_47012;} do{ *__LONG_KCONTROL= 0 ; if(!qbevent)break;evnt(25224,12447,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KCONTROL= -1 ; if(!qbevent)break;evnt(25224,12447,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12448,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; if(!qbevent)break;evnt(25224,12448,"ide_methods.bas");}while(r); } S_47020:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||new_error){ if(qbevent){evnt(25224,12451,"ide_methods.bas");if(r)goto S_47020;} do{ *__LONG_ICHANGED= -1 ; if(!qbevent)break;evnt(25224,12452,"ide_methods.bas");}while(r); S_47022:; if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||new_error){ if(qbevent){evnt(25224,12453,"ide_methods.bas");if(r)goto S_47022;} do{ qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12453,"ide_methods.bas");}while(r); } S_47025:; if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||new_error){ if(qbevent){evnt(25224,12454,"ide_methods.bas");if(r)goto S_47025;} 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(25224,12454,"ide_methods.bas");}while(r); } do{ *__LONG_KB=*_SUB_GETINPUT_LONG_K; if(!qbevent)break;evnt(25224,12455,"ide_methods.bas");}while(r); } S_47030:; if ((*__LONG_ICHANGED)||new_error){ if(qbevent){evnt(25224,12457,"ide_methods.bas");if(r)goto S_47030;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12457,"ide_methods.bas");}while(r); } } S_47034:; while((func__mouseinput(NULL,0))||new_error){ if(qbevent){evnt(25224,12459,"ide_methods.bas");if(r)goto S_47034;} do{ *__LONG_ICHANGED= 1 ; if(!qbevent)break;evnt(25224,12460,"ide_methods.bas");}while(r); S_47036:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ if(qbevent){evnt(25224,12461,"ide_methods.bas");if(r)goto S_47036;} do{ *__LONG_MB=func__mousebutton( 2 ,NULL,0); if(!qbevent)break;evnt(25224,12462,"ide_methods.bas");}while(r); do{ *__LONG_MB2=func__mousebutton( 1 ,NULL,0); if(!qbevent)break;evnt(25224,12462,"ide_methods.bas");}while(r); }else{ do{ *__LONG_MB=func__mousebutton( 1 ,NULL,0); if(!qbevent)break;evnt(25224,12464,"ide_methods.bas");}while(r); do{ *__LONG_MB2=func__mousebutton( 2 ,NULL,0); if(!qbevent)break;evnt(25224,12464,"ide_methods.bas");}while(r); } do{ *__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel(NULL,0); if(!qbevent)break;evnt(25224,12466,"ide_methods.bas");}while(r); do{ *__LONG_MX=qbr(func__mousex(NULL,0)); if(!qbevent)break;evnt(25224,12467,"ide_methods.bas");}while(r); do{ *__LONG_MY=qbr(func__mousey(NULL,0)); if(!qbevent)break;evnt(25224,12467,"ide_methods.bas");}while(r); S_47046:; if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||new_error){ if(qbevent){evnt(25224,12468,"ide_methods.bas");if(r)goto S_47046;} do{ *__LONG_MCLICK= -1 ; if(!qbevent)break;evnt(25224,12468,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12468,"ide_methods.bas");}while(r); } S_47050:; if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||new_error){ if(qbevent){evnt(25224,12469,"ide_methods.bas");if(r)goto S_47050;} do{ *__LONG_MCLICK2= -1 ; if(!qbevent)break;evnt(25224,12469,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12469,"ide_methods.bas");}while(r); } S_47054:; if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||new_error){ if(qbevent){evnt(25224,12470,"ide_methods.bas");if(r)goto S_47054;} do{ *__LONG_MRELEASE= -1 ; if(!qbevent)break;evnt(25224,12470,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12470,"ide_methods.bas");}while(r); } S_47058:; if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||new_error){ if(qbevent){evnt(25224,12471,"ide_methods.bas");if(r)goto S_47058;} do{ *__LONG_MRELEASE2= -1 ; if(!qbevent)break;evnt(25224,12471,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12471,"ide_methods.bas");}while(r); } dl_continue_5133:; } dl_exit_5133:; 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; } 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 "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(25224,12480,"ide_methods.bas");}while(r); S_47064:; 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(25224,12481,"ide_methods.bas");if(r)goto S_47064;} do{ *_SUB_HELP_SHOWTEXT_LONG_SETUP= 1 ; if(!qbevent)break;evnt(25224,12482,"ide_methods.bas");}while(r); S_47066:; if ((-(*__BYTE_IDECONTEXTHELPSF== 0 ))||new_error){ if(qbevent){evnt(25224,12483,"ide_methods.bas");if(r)goto S_47066;} 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(25224,12484,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_SUB_HELP_SHOWTEXT_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12485,"ide_methods.bas");}while(r); } } do{ if (__ARRAY_LONG_HELP_LINELEN[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_HELP_LINELEN)[8])->id=(++mem_lock_id); if (__ARRAY_LONG_HELP_LINELEN[2]&1){ if (__ARRAY_LONG_HELP_LINELEN[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_HELP_LINELEN[0])); }else{ free((void*)(__ARRAY_LONG_HELP_LINELEN[0])); } } __ARRAY_LONG_HELP_LINELEN[4]= 0 ; __ARRAY_LONG_HELP_LINELEN[5]=(*__LONG_HELP_WH)-__ARRAY_LONG_HELP_LINELEN[4]+1; __ARRAY_LONG_HELP_LINELEN[6]=1; if (__ARRAY_LONG_HELP_LINELEN[2]&4){ __ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_HELP_LINELEN[5]*4); memset((void*)(__ARRAY_LONG_HELP_LINELEN[0]),0,__ARRAY_LONG_HELP_LINELEN[5]*4); }else{ __ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)calloc(__ARRAY_LONG_HELP_LINELEN[5]*4,1); if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257); } __ARRAY_LONG_HELP_LINELEN[2]|=1; } if(!qbevent)break;evnt(25224,12489,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,12491,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SY=*__LONG_HELP_WY1; if(!qbevent)break;evnt(25224,12500,"ide_methods.bas");}while(r); S_47074:; fornext_value5135=*__LONG_HELP_SY; fornext_finalvalue5135=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ; fornext_step5135= 1 ; if (fornext_step5135<0) fornext_step_negative5135=1; else fornext_step_negative5135=0; if (new_error) goto fornext_error5135; goto fornext_entrylabel5135; while(1){ fornext_value5135=fornext_step5135+(*_SUB_HELP_SHOWTEXT_LONG_Y); fornext_entrylabel5135: *_SUB_HELP_SHOWTEXT_LONG_Y=fornext_value5135; if (fornext_step_negative5135){ if (fornext_value5135fornext_finalvalue5135) break; } fornext_error5135:; if(qbevent){evnt(25224,12501,"ide_methods.bas");if(r)goto S_47074;} S_47075:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_H))||new_error){ if(qbevent){evnt(25224,12502,"ide_methods.bas");if(r)goto S_47075;} do{ *_SUB_HELP_SHOWTEXT_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_HELP_SHOWTEXT_LONG_Y- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12504,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_L; if(!qbevent)break;evnt(25224,12505,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3= 1 ; if(!qbevent)break;evnt(25224,12506,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; if(!qbevent)break;evnt(25224,12508,"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(25224,12509,"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(25224,12509,"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(25224,12510,"ide_methods.bas");}while(r); S_47083:; while((!(-(*_SUB_HELP_SHOWTEXT_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,12511,"ide_methods.bas");if(r)goto S_47083;} do{ qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); if(!qbevent)break;evnt(25224,12512,"ide_methods.bas");}while(r); S_47085:; if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,12513,"ide_methods.bas");if(r)goto S_47085;} S_47086:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ if(qbevent){evnt(25224,12514,"ide_methods.bas");if(r)goto S_47086;} S_47087:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ if(qbevent){evnt(25224,12515,"ide_methods.bas");if(r)goto S_47087;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,12516,"ide_methods.bas");}while(r); } } } S_47092:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SX))||new_error){ if(qbevent){evnt(25224,12520,"ide_methods.bas");if(r)goto S_47092;} S_47093:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_SX<=*__LONG_HELP_WX2))||new_error){ if(qbevent){evnt(25224,12521,"ide_methods.bas");if(r)goto S_47093;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr(*_SUB_HELP_SHOWTEXT_LONG_C)); if (new_error) goto skip5137; makefit(tqbs); qbs_print(tqbs,0); skip5137: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12522,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*_SUB_HELP_SHOWTEXT_LONG_SX+ 1 ; if(!qbevent)break;evnt(25224,12523,"ide_methods.bas");}while(r); } } do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; if(!qbevent)break;evnt(25224,12526,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,12526,"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(25224,12526,"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(25224,12526,"ide_methods.bas");}while(r); dl_continue_5136:; } dl_exit_5136:; 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(25224,12529,"ide_methods.bas");}while(r); S_47104:; fornext_value5139= 1 ; fornext_finalvalue5139=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ; fornext_step5139= 1 ; if (fornext_step5139<0) fornext_step_negative5139=1; else fornext_step_negative5139=0; if (new_error) goto fornext_error5139; goto fornext_entrylabel5139; while(1){ fornext_value5139=fornext_step5139+(*_SUB_HELP_SHOWTEXT_LONG_X4); fornext_entrylabel5139: *_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value5139; if (fornext_step_negative5139){ if (fornext_value5139fornext_finalvalue5139) break; } fornext_error5139:; if(qbevent){evnt(25224,12531,"ide_methods.bas");if(r)goto S_47104;} S_47105:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_COL== 0 ))||new_error){ if(qbevent){evnt(25224,12532,"ide_methods.bas");if(r)goto S_47105;} do{ *_SUB_HELP_SHOWTEXT_LONG_COL= 7 ; if(!qbevent)break;evnt(25224,12532,"ide_methods.bas");}while(r); } do{ qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); if(!qbevent)break;evnt(25224,12533,"ide_methods.bas");}while(r); S_47109:; if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,12534,"ide_methods.bas");if(r)goto S_47109;} S_47110:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ if(qbevent){evnt(25224,12535,"ide_methods.bas");if(r)goto S_47110;} S_47111:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ if(qbevent){evnt(25224,12536,"ide_methods.bas");if(r)goto S_47111;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,12537,"ide_methods.bas");}while(r); } } } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" ",1)); if (new_error) goto skip5140; makefit(tqbs); qbs_print(tqbs,0); skip5140: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12541,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; if(!qbevent)break;evnt(25224,12542,"ide_methods.bas");}while(r); fornext_continue_5138:; } fornext_exit_5138:; }else{ do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; if(!qbevent)break;evnt(25224,12547,"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(25224,12548,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*__LONG_HELP_SX; if(!qbevent)break;evnt(25224,12549,"ide_methods.bas");}while(r); S_47123:; fornext_value5142= 1 ; fornext_finalvalue5142=*__LONG_HELP_WW; fornext_step5142= 1 ; if (fornext_step5142<0) fornext_step_negative5142=1; else fornext_step_negative5142=0; if (new_error) goto fornext_error5142; goto fornext_entrylabel5142; while(1){ fornext_value5142=fornext_step5142+(*_SUB_HELP_SHOWTEXT_LONG_X4); fornext_entrylabel5142: *_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value5142; if (fornext_step_negative5142){ if (fornext_value5142fornext_finalvalue5142) break; } fornext_error5142:; if(qbevent){evnt(25224,12550,"ide_methods.bas");if(r)goto S_47123;} do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,12551,"ide_methods.bas");}while(r); S_47125:; if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,12552,"ide_methods.bas");if(r)goto S_47125;} S_47126:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ if(qbevent){evnt(25224,12553,"ide_methods.bas");if(r)goto S_47126;} S_47127:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ if(qbevent){evnt(25224,12554,"ide_methods.bas");if(r)goto S_47127;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,12555,"ide_methods.bas");}while(r); } } } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" ",1)); if (new_error) goto skip5143; makefit(tqbs); qbs_print(tqbs,0); skip5143: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12559,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; if(!qbevent)break;evnt(25224,12560,"ide_methods.bas");}while(r); fornext_continue_5141:; } fornext_exit_5141:; 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(25224,12562,"ide_methods.bas");}while(r); } do{ *_SUB_HELP_SHOWTEXT_LONG_SY=*_SUB_HELP_SHOWTEXT_LONG_SY+ 1 ; if(!qbevent)break;evnt(25224,12565,"ide_methods.bas");}while(r); fornext_continue_5134:; } fornext_exit_5134:; 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; } 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,12590,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,12591,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12592,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12593,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,12594,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]+1; _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,12595,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,12596,"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(25224,12597,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_LN= 0 ; if(!qbevent)break;evnt(25224,12607,"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(25224,12608,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12609,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDESEARCHEDBOX_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12610,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,func_space(func_lof(*_FUNC_IDESEARCHEDBOX_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12610,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDESEARCHEDBOX_LONG_FH,NULL,_FUNC_IDESEARCHEDBOX_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12610,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_right(_FUNC_IDESEARCHEDBOX_STRING_A,_FUNC_IDESEARCHEDBOX_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12611,"ide_methods.bas");}while(r); S_47154:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDESEARCHEDBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,12612,"ide_methods.bas");if(r)goto S_47154;} do{ *_FUNC_IDESEARCHEDBOX_LONG_AI=func_instr(NULL,_FUNC_IDESEARCHEDBOX_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12613,"ide_methods.bas");}while(r); S_47156:; if ((*_FUNC_IDESEARCHEDBOX_LONG_AI)||new_error){ if(qbevent){evnt(25224,12614,"ide_methods.bas");if(r)goto S_47156;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,qbs_left(_FUNC_IDESEARCHEDBOX_STRING_A,*_FUNC_IDESEARCHEDBOX_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12615,"ide_methods.bas");}while(r); S_47158:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESEARCHEDBOX_LONG_AI==(_FUNC_IDESEARCHEDBOX_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,12615,"ide_methods.bas");if(r)goto S_47158;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12615,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_right(_FUNC_IDESEARCHEDBOX_STRING_A,_FUNC_IDESEARCHEDBOX_STRING_A->len-*_FUNC_IDESEARCHEDBOX_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12615,"ide_methods.bas");}while(r); } S_47163:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDESEARCHEDBOX_STRING_L->len))||new_error){ if(qbevent){evnt(25224,12616,"ide_methods.bas");if(r)goto S_47163;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING1_SEP),_FUNC_IDESEARCHEDBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12616,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12616,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_LN=*_FUNC_IDESEARCHEDBOX_LONG_LN+ 1 ; if(!qbevent)break;evnt(25224,12617,"ide_methods.bas");}while(r); } dl_continue_5146:; } dl_exit_5146:; do{ sub_close(*_FUNC_IDESEARCHEDBOX_LONG_FH,1); if(!qbevent)break;evnt(25224,12620,"ide_methods.bas");}while(r); S_47172:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN== 0 ))||new_error){ if(qbevent){evnt(25224,12622,"ide_methods.bas");if(r)goto S_47172;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING1_SEP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12623,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_H=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; if(!qbevent)break;evnt(25224,12628,"ide_methods.bas");}while(r); S_47176:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN<*_FUNC_IDESEARCHEDBOX_LONG_H))||new_error){ if(qbevent){evnt(25224,12629,"ide_methods.bas");if(r)goto S_47176;} do{ *_FUNC_IDESEARCHEDBOX_LONG_H=*_FUNC_IDESEARCHEDBOX_LONG_LN; if(!qbevent)break;evnt(25224,12629,"ide_methods.bas");}while(r); } S_47179:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_H< 3 ))||new_error){ if(qbevent){evnt(25224,12630,"ide_methods.bas");if(r)goto S_47179;} do{ *_FUNC_IDESEARCHEDBOX_LONG_H= 3 ; if(!qbevent)break;evnt(25224,12630,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,12632,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) ),&(pass5150= 20 ),_FUNC_IDESEARCHEDBOX_LONG_H,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12633,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))=*__LONG_IDEWX- 24 ; if(!qbevent)break;evnt(25224,12634,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))=*__LONG_IDEWY- 6 -*_FUNC_IDESEARCHEDBOX_LONG_H; if(!qbevent)break;evnt(25224,12635,"ide_methods.bas");}while(r); S_47186:; if ((-(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))< 3 ))||new_error){ if(qbevent){evnt(25224,12636,"ide_methods.bas");if(r)goto S_47186;} 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(25224,12637,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_H=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12)); if(!qbevent)break;evnt(25224,12638,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))= 3 ; if(!qbevent)break;evnt(25224,12639,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_I=*_FUNC_IDESEARCHEDBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12642,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,12643,"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]))*85+20))= -1 ; if(!qbevent)break;evnt(25224,12644,"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]))*85+24))= 0 ; if(!qbevent)break;evnt(25224,12644,"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]))*85+28))= 22 ; if(!qbevent)break;evnt(25224,12646,"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]))*85+32))=*_FUNC_IDESEARCHEDBOX_LONG_H; if(!qbevent)break;evnt(25224,12646,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESEARCHEDBOX_STRING_L); if(!qbevent)break;evnt(25224,12647,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,12648,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Find",4)); if(!qbevent)break;evnt(25224,12649,"ide_methods.bas");}while(r); S_47200:; fornext_value5152= 1 ; fornext_finalvalue5152= 100 ; fornext_step5152= 1 ; if (fornext_step5152<0) fornext_step_negative5152=1; else fornext_step_negative5152=0; if (new_error) goto fornext_error5152; goto fornext_entrylabel5152; while(1){ fornext_value5152=fornext_step5152+(*_FUNC_IDESEARCHEDBOX_LONG_I); fornext_entrylabel5152: *_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5152; if (fornext_step_negative5152){ if (fornext_value5152fornext_finalvalue5152) break; } fornext_error5152:; if(qbevent){evnt(25224,12660,"ide_methods.bas");if(r)goto S_47200;} 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]))*85)+ 0,((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,12660,"ide_methods.bas");}while(r); fornext_continue_5151:; } fornext_exit_5151:; S_47203:; do{ if(qbevent){evnt(25224,12663,"ide_methods.bas");if(r)goto S_47203;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,12666,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12667,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,12667,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,12667,"ide_methods.bas");}while(r); S_47208:; fornext_value5155= 1 ; fornext_finalvalue5155= 100 ; fornext_step5155= 1 ; if (fornext_step5155<0) fornext_step_negative5155=1; else fornext_step_negative5155=0; if (new_error) goto fornext_error5155; goto fornext_entrylabel5155; while(1){ fornext_value5155=fornext_step5155+(*_FUNC_IDESEARCHEDBOX_LONG_I); fornext_entrylabel5155: *_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5155; if (fornext_step_negative5155){ if (fornext_value5155fornext_finalvalue5155) break; } fornext_error5155:; if(qbevent){evnt(25224,12668,"ide_methods.bas");if(r)goto S_47208;} S_47209:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,12669,"ide_methods.bas");if(r)goto S_47209;} 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]))*85+60))=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; if(!qbevent)break;evnt(25224,12672,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,12673,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,12673,"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]))*85) ),_FUNC_IDESEARCHEDBOX_LONG_F); if(!qbevent)break;evnt(25224,12674,"ide_methods.bas");}while(r); S_47214:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,12675,"ide_methods.bas");if(r)goto S_47214;} 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]))*85+52)); if(!qbevent)break;evnt(25224,12675,"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]))*85+56)); if(!qbevent)break;evnt(25224,12675,"ide_methods.bas");}while(r); } } fornext_continue_5154:; } fornext_exit_5154:; do{ *_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS=*_FUNC_IDESEARCHEDBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,12678,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,12685,"ide_methods.bas");}while(r); S_47222:; if ((*_FUNC_IDESEARCHEDBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,12686,"ide_methods.bas");if(r)goto S_47222;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12686,"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(25224,12686,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12686,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,12689,"ide_methods.bas");}while(r); S_47228:; do{ if(qbevent){evnt(25224,12690,"ide_methods.bas");if(r)goto S_47228;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,12691,"ide_methods.bas");}while(r); S_47230:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,12692,"ide_methods.bas");if(r)goto S_47230;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12692,"ide_methods.bas");}while(r); } S_47233:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,12693,"ide_methods.bas");if(r)goto S_47233;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12693,"ide_methods.bas");}while(r); } S_47236:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,12694,"ide_methods.bas");if(r)goto S_47236;} do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,12694,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12694,"ide_methods.bas");}while(r); } S_47240:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,12695,"ide_methods.bas");if(r)goto S_47240;} do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,12695,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12695,"ide_methods.bas");}while(r); } S_47244:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,12696,"ide_methods.bas");if(r)goto S_47244;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12696,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,12697,"ide_methods.bas");}while(r); S_47248:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_ALT!=*_FUNC_IDESEARCHEDBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,12697,"ide_methods.bas");if(r)goto S_47248;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12697,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_OLDALT=*_FUNC_IDESEARCHEDBOX_LONG_ALT; if(!qbevent)break;evnt(25224,12698,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,12699,"ide_methods.bas");}while(r); S_47253:; dl_continue_5156:; }while((!(*_FUNC_IDESEARCHEDBOX_LONG_CHANGE))&&(!new_error)); dl_exit_5156:; if(qbevent){evnt(25224,12700,"ide_methods.bas");if(r)goto S_47253;} S_47254:; if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12701,"ide_methods.bas");if(r)goto S_47254;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,12701,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,12701,"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(25224,12703,"ide_methods.bas");}while(r); S_47260:; if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12704,"ide_methods.bas");if(r)goto S_47260;} S_47261:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,12705,"ide_methods.bas");if(r)goto S_47261;} do{ *_FUNC_IDESEARCHEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12706,"ide_methods.bas");}while(r); S_47263:; if (((-(*_FUNC_IDESEARCHEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,12707,"ide_methods.bas");if(r)goto S_47263;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDESEARCHEDBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12707,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12710,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,12710,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12710,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,12714,"ide_methods.bas");}while(r); S_47272:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,12715,"ide_methods.bas");if(r)goto S_47272;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12715,"ide_methods.bas");}while(r); } S_47275:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,12716,"ide_methods.bas");if(r)goto S_47275;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,12716,"ide_methods.bas");}while(r); } S_47278:; 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(25224,12717,"ide_methods.bas");if(r)goto S_47278;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,12717,"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(25224,12717,"ide_methods.bas");}while(r); } S_47282:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,12718,"ide_methods.bas");if(r)goto S_47282;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,12718,"ide_methods.bas");}while(r); } S_47285:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS>*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,12719,"ide_methods.bas");if(r)goto S_47285;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12719,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12720,"ide_methods.bas");}while(r); S_47289:; 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_IDESEARCHEDBOX_LONG_I); fornext_entrylabel5159: *_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5159; if (fornext_step_negative5159){ if (fornext_value5159fornext_finalvalue5159) break; } fornext_error5159:; if(qbevent){evnt(25224,12721,"ide_methods.bas");if(r)goto S_47289;} 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]))*85+36)); if(!qbevent)break;evnt(25224,12722,"ide_methods.bas");}while(r); S_47291:; if ((*_FUNC_IDESEARCHEDBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,12723,"ide_methods.bas");if(r)goto S_47291;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; if(!qbevent)break;evnt(25224,12724,"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]))*85) ),_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(25224,12725,"ide_methods.bas");}while(r); } fornext_continue_5158:; } fornext_exit_5158:; S_47296:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,12731,"ide_methods.bas");if(r)goto S_47296;} S_47297:; 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(25224,12732,"ide_methods.bas");if(r)goto S_47297;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12733,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12734,"ide_methods.bas");}while(r); } } S_47302:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ if(qbevent){evnt(25224,12738,"ide_methods.bas");if(r)goto S_47302;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12739,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12740,"ide_methods.bas");}while(r); } S_47306:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,12743,"ide_methods.bas");if(r)goto S_47306;} S_47307:; 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(25224,12744,"ide_methods.bas");if(r)goto S_47307;} 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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12745,"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(25224,12746,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12747,"ide_methods.bas");}while(r); } } S_47313:; 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(25224,12751,"ide_methods.bas");if(r)goto S_47313;} 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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12752,"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(25224,12753,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12754,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,12758,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,12759,"ide_methods.bas");}while(r); dl_continue_5153:; }while(1); dl_exit_5153:; 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; 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 "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{ *__LONG_IDEBMKN= 0 ; if(!qbevent)break;evnt(25224,12768,"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(25224,12769,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12770,"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(25224,12770,"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(25224,12770,"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(25224,12770,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,1); if(!qbevent)break;evnt(25224,12770,"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(25224,12771,"ide_methods.bas");}while(r); S_47329:; if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ if(qbevent){evnt(25224,12772,"ide_methods.bas");if(r)goto S_47329;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len, 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12773,"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(25224,12774,"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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12775,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_N=*_SUB_IDEIMPORTBOOKMARKS_LONG_L/ 16 ; if(!qbevent)break;evnt(25224,12776,"ide_methods.bas");}while(r); S_47334:; fornext_value5164= 1 ; fornext_finalvalue5164=*_SUB_IDEIMPORTBOOKMARKS_LONG_N; fornext_step5164= 1 ; if (fornext_step5164<0) fornext_step_negative5164=1; else fornext_step_negative5164=0; if (new_error) goto fornext_error5164; goto fornext_entrylabel5164; while(1){ fornext_value5164=fornext_step5164+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); fornext_entrylabel5164: *_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value5164; if (fornext_step_negative5164){ if (fornext_value5164fornext_finalvalue5164) break; } fornext_error5164:; if(qbevent){evnt(25224,12777,"ide_methods.bas");if(r)goto S_47334;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_BY=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12778,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12779,"ide_methods.bas");}while(r); S_47337:; if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_BY<=*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,12780,"ide_methods.bas");if(r)goto S_47337;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; if(!qbevent)break;evnt(25224,12781,"ide_methods.bas");}while(r); S_47339:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ if(qbevent){evnt(25224,12782,"ide_methods.bas");if(r)goto S_47339;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; if(!qbevent)break;evnt(25224,12782,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_UDT_IDEBMK[2]&1){ preserved_elements=__ARRAY_UDT_IDEBMK[5]; } else preserved_elements=0; __ARRAY_UDT_IDEBMK[4]= 0 ; __ARRAY_UDT_IDEBMK[5]=(*_SUB_IDEIMPORTBOOKMARKS_LONG_X)-__ARRAY_UDT_IDEBMK[4]+1; __ARRAY_UDT_IDEBMK[6]=1; if (__ARRAY_UDT_IDEBMK[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_IDEBMK[0]),preserved_elements*128/8+1); cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); tmp_long=__ARRAY_UDT_IDEBMK[5]; __ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*128/8+1); memcpy((void*)(__ARRAY_UDT_IDEBMK[0]),redim_preserve_cmem_buffer,preserved_elements*128/8+1); if (preserved_elements=mem_static)&&(tmp_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 "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{ 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(25224,12792,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12793,"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(25224,12793,"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(25224,12793,"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(25224,12793,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); if(!qbevent)break;evnt(25224,12793,"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(25224,12794,"ide_methods.bas");}while(r); S_47357:; if ((*_SUB_IDESAVEBOOKMARKS_LONG_X)||new_error){ if(qbevent){evnt(25224,12795,"ide_methods.bas");if(r)goto S_47357;} do{ *_SUB_IDESAVEBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len, 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12796,"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(25224,12797,"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(25224,12798,"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(25224,12802,"ide_methods.bas");}while(r); S_47363:; fornext_value5170= 1 ; fornext_finalvalue5170=*__LONG_IDEBMKN; fornext_step5170= 1 ; if (fornext_step5170<0) fornext_step_negative5170=1; else fornext_step_negative5170=0; if (new_error) goto fornext_error5170; goto fornext_entrylabel5170; while(1){ fornext_value5170=fornext_step5170+(*_SUB_IDESAVEBOOKMARKS_LONG_I); fornext_entrylabel5170: *_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value5170; if (fornext_step_negative5170){ if (fornext_value5170fornext_finalvalue5170) break; } fornext_error5170:; if(qbevent){evnt(25224,12803,"ide_methods.bas");if(r)goto S_47363;} 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(25224,12804,"ide_methods.bas");}while(r); fornext_continue_5169:; } fornext_exit_5169:; 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(25224,12806,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12807,"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(25224,12807,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); if(!qbevent)break;evnt(25224,12807,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12808,"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(25224,12808,"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_5172),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12808,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); if(!qbevent)break;evnt(25224,12808,"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* 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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,12814,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,12815,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12816,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12817,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,12818,"ide_methods.bas");}while(r); do{ if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDERECENTBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDERECENTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4]+1; _FUNC_IDERECENTBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDERECENTBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,12819,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,12820,"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(25224,12821,"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(25224,12831,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12832,"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(25224,12833,"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(25224,12833,"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(25224,12833,"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(25224,12834,"ide_methods.bas");}while(r); S_47388:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_A->len))||new_error){ if(qbevent){evnt(25224,12835,"ide_methods.bas");if(r)goto S_47388;} 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(25224,12836,"ide_methods.bas");}while(r); S_47390:; if ((*_FUNC_IDERECENTBOX_LONG_AI)||new_error){ if(qbevent){evnt(25224,12837,"ide_methods.bas");if(r)goto S_47390;} 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(25224,12838,"ide_methods.bas");}while(r); S_47392:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_AI==(_FUNC_IDERECENTBOX_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,12838,"ide_methods.bas");if(r)goto S_47392;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12838,"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(25224,12838,"ide_methods.bas");}while(r); } S_47397:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_L->len))||new_error){ if(qbevent){evnt(25224,12839,"ide_methods.bas");if(r)goto S_47397;} 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(25224,12839,"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(25224,12839,"ide_methods.bas");}while(r); } } dl_continue_5175:; } dl_exit_5175:; do{ sub_close(*_FUNC_IDERECENTBOX_LONG_FH,1); if(!qbevent)break;evnt(25224,12842,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,12845,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) ),&(pass5179=*__LONG_IDEWX- 8 ),&(pass5180=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("Open",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12846,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12848,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,12849,"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]))*85+24))= 1 ; if(!qbevent)break;evnt(25224,12850,"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]))*85+28))=*__LONG_IDEWX- 12 ; if(!qbevent)break;evnt(25224,12852,"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]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; if(!qbevent)break;evnt(25224,12852,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDERECENTBOX_STRING_L); if(!qbevent)break;evnt(25224,12853,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,12854,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Recent Programs",15)); if(!qbevent)break;evnt(25224,12855,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12857,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,12858,"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]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; if(!qbevent)break;evnt(25224,12859,"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]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_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(25224,12860,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,12861,"ide_methods.bas");}while(r); S_47420:; fornext_value5182= 1 ; fornext_finalvalue5182= 100 ; fornext_step5182= 1 ; if (fornext_step5182<0) fornext_step_negative5182=1; else fornext_step_negative5182=0; if (new_error) goto fornext_error5182; goto fornext_entrylabel5182; while(1){ fornext_value5182=fornext_step5182+(*_FUNC_IDERECENTBOX_LONG_I); fornext_entrylabel5182: *_FUNC_IDERECENTBOX_LONG_I=fornext_value5182; if (fornext_step_negative5182){ if (fornext_value5182fornext_finalvalue5182) break; } fornext_error5182:; if(qbevent){evnt(25224,12866,"ide_methods.bas");if(r)goto S_47420;} 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]))*85)+ 0,((char*)_FUNC_IDERECENTBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,12866,"ide_methods.bas");}while(r); fornext_continue_5181:; } fornext_exit_5181:; S_47423:; do{ if(qbevent){evnt(25224,12869,"ide_methods.bas");if(r)goto S_47423;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,12872,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12873,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,12873,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,12873,"ide_methods.bas");}while(r); S_47428:; fornext_value5185= 1 ; fornext_finalvalue5185= 100 ; fornext_step5185= 1 ; if (fornext_step5185<0) fornext_step_negative5185=1; else fornext_step_negative5185=0; if (new_error) goto fornext_error5185; goto fornext_entrylabel5185; while(1){ fornext_value5185=fornext_step5185+(*_FUNC_IDERECENTBOX_LONG_I); fornext_entrylabel5185: *_FUNC_IDERECENTBOX_LONG_I=fornext_value5185; if (fornext_step_negative5185){ if (fornext_value5185fornext_finalvalue5185) break; } fornext_error5185:; if(qbevent){evnt(25224,12874,"ide_methods.bas");if(r)goto S_47428;} S_47429:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,12875,"ide_methods.bas");if(r)goto S_47429;} 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]))*85+60))=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; if(!qbevent)break;evnt(25224,12878,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,12879,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,12879,"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]))*85) ),_FUNC_IDERECENTBOX_LONG_F); if(!qbevent)break;evnt(25224,12880,"ide_methods.bas");}while(r); S_47434:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,12881,"ide_methods.bas");if(r)goto S_47434;} 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]))*85+52)); if(!qbevent)break;evnt(25224,12881,"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]))*85+56)); if(!qbevent)break;evnt(25224,12881,"ide_methods.bas");}while(r); } } fornext_continue_5184:; } fornext_exit_5184:; do{ *_FUNC_IDERECENTBOX_LONG_LASTFOCUS=*_FUNC_IDERECENTBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,12884,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,12891,"ide_methods.bas");}while(r); S_47442:; if ((*_FUNC_IDERECENTBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,12892,"ide_methods.bas");if(r)goto S_47442;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12892,"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(25224,12892,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12892,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,12895,"ide_methods.bas");}while(r); S_47448:; do{ if(qbevent){evnt(25224,12896,"ide_methods.bas");if(r)goto S_47448;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,12897,"ide_methods.bas");}while(r); S_47450:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,12898,"ide_methods.bas");if(r)goto S_47450;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12898,"ide_methods.bas");}while(r); } S_47453:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,12899,"ide_methods.bas");if(r)goto S_47453;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12899,"ide_methods.bas");}while(r); } S_47456:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,12900,"ide_methods.bas");if(r)goto S_47456;} do{ *_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,12900,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12900,"ide_methods.bas");}while(r); } S_47460:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,12901,"ide_methods.bas");if(r)goto S_47460;} do{ *_FUNC_IDERECENTBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,12901,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12901,"ide_methods.bas");}while(r); } S_47464:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,12902,"ide_methods.bas");if(r)goto S_47464;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12902,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,12903,"ide_methods.bas");}while(r); S_47468:; if ((-(*_FUNC_IDERECENTBOX_LONG_ALT!=*_FUNC_IDERECENTBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,12903,"ide_methods.bas");if(r)goto S_47468;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,12903,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_OLDALT=*_FUNC_IDERECENTBOX_LONG_ALT; if(!qbevent)break;evnt(25224,12904,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,12905,"ide_methods.bas");}while(r); S_47473:; dl_continue_5186:; }while((!(*_FUNC_IDERECENTBOX_LONG_CHANGE))&&(!new_error)); dl_exit_5186:; if(qbevent){evnt(25224,12906,"ide_methods.bas");if(r)goto S_47473;} S_47474:; if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12907,"ide_methods.bas");if(r)goto S_47474;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,12907,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,12907,"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(25224,12909,"ide_methods.bas");}while(r); S_47480:; if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,12910,"ide_methods.bas");if(r)goto S_47480;} S_47481:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,12911,"ide_methods.bas");if(r)goto S_47481;} do{ *_FUNC_IDERECENTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12912,"ide_methods.bas");}while(r); S_47483:; if (((-(*_FUNC_IDERECENTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDERECENTBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,12913,"ide_methods.bas");if(r)goto S_47483;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDERECENTBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12913,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12916,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,12916,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,12916,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,12920,"ide_methods.bas");}while(r); S_47492:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,12921,"ide_methods.bas");if(r)goto S_47492;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12921,"ide_methods.bas");}while(r); } S_47495:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,12922,"ide_methods.bas");if(r)goto S_47495;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,12922,"ide_methods.bas");}while(r); } S_47498:; 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(25224,12923,"ide_methods.bas");if(r)goto S_47498;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,12923,"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(25224,12923,"ide_methods.bas");}while(r); } S_47502:; if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,12924,"ide_methods.bas");if(r)goto S_47502;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,12924,"ide_methods.bas");}while(r); } S_47505:; if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS>*_FUNC_IDERECENTBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,12925,"ide_methods.bas");if(r)goto S_47505;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,12925,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,12926,"ide_methods.bas");}while(r); S_47509:; fornext_value5189= 1 ; fornext_finalvalue5189= 100 ; fornext_step5189= 1 ; if (fornext_step5189<0) fornext_step_negative5189=1; else fornext_step_negative5189=0; if (new_error) goto fornext_error5189; goto fornext_entrylabel5189; while(1){ fornext_value5189=fornext_step5189+(*_FUNC_IDERECENTBOX_LONG_I); fornext_entrylabel5189: *_FUNC_IDERECENTBOX_LONG_I=fornext_value5189; if (fornext_step_negative5189){ if (fornext_value5189fornext_finalvalue5189) break; } fornext_error5189:; if(qbevent){evnt(25224,12927,"ide_methods.bas");if(r)goto S_47509;} 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]))*85+36)); if(!qbevent)break;evnt(25224,12928,"ide_methods.bas");}while(r); S_47511:; if ((*_FUNC_IDERECENTBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,12929,"ide_methods.bas");if(r)goto S_47511;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; if(!qbevent)break;evnt(25224,12930,"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]))*85) ),_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(25224,12931,"ide_methods.bas");}while(r); } fornext_continue_5188:; } fornext_exit_5188:; S_47516:; 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(25224,12936,"ide_methods.bas");if(r)goto S_47516;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12937,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12938,"ide_methods.bas");}while(r); } S_47520:; 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(25224,12941,"ide_methods.bas");if(r)goto S_47520;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12942,"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(25224,12943,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12944,"ide_methods.bas");}while(r); } S_47525:; 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(25224,12947,"ide_methods.bas");if(r)goto S_47525;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12948,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12949,"ide_methods.bas");}while(r); } S_47529:; 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(25224,12952,"ide_methods.bas");if(r)goto S_47529;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12953,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,12954,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,12958,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,12959,"ide_methods.bas");}while(r); dl_continue_5183:; }while(1); dl_exit_5183:; 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_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 "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{ *_SUB_IDEMAKEFILEMENU_LONG_M= 1 ; if(!qbevent)break;evnt(25224,12969,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I= 0 ; if(!qbevent)break;evnt(25224,12969,"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(25224,12970,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12970,"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(25224,12971,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12971,"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(25224,12972,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12972,"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(25224,12973,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12973,"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(25224,12974,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12974,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,12975,"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(25224,12976,"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(25224,12976,"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(25224,12976,"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(25224,12977,"ide_methods.bas");}while(r); S_47553:; fornext_value5192= 1 ; fornext_finalvalue5192= 5 ; fornext_step5192= 1 ; if (fornext_step5192<0) fornext_step_negative5192=1; else fornext_step_negative5192=0; if (new_error) goto fornext_error5192; goto fornext_entrylabel5192; while(1){ fornext_value5192=fornext_step5192+(*_SUB_IDEMAKEFILEMENU_LONG_R); fornext_entrylabel5192: *_SUB_IDEMAKEFILEMENU_LONG_R=fornext_value5192; if (fornext_step_negative5192){ if (fornext_value5192fornext_finalvalue5192) break; } fornext_error5192:; if(qbevent){evnt(25224,12978,"ide_methods.bas");if(r)goto S_47553;} S_47554:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ if(qbevent){evnt(25224,12979,"ide_methods.bas");if(r)goto S_47554;} 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(25224,12979,"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(25224,12980,"ide_methods.bas");}while(r); S_47558:; if ((*_SUB_IDEMAKEFILEMENU_LONG_AI)||new_error){ if(qbevent){evnt(25224,12981,"ide_methods.bas");if(r)goto S_47558;} S_47559:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 1 ))||new_error){ if(qbevent){evnt(25224,12982,"ide_methods.bas");if(r)goto S_47559;} 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(25224,12982,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12982,"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(25224,12983,"ide_methods.bas");}while(r); S_47564:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEFILEMENU_LONG_AI==(_SUB_IDEMAKEFILEMENU_STRING_A->len- 1 ))))||new_error){ if(qbevent){evnt(25224,12983,"ide_methods.bas");if(r)goto S_47564;} do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12983,"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(25224,12983,"ide_methods.bas");}while(r); } S_47569:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ if(qbevent){evnt(25224,12984,"ide_methods.bas");if(r)goto S_47569;} 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(25224,12984,"ide_methods.bas");}while(r); } S_47572:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 5 ))||new_error){ if(qbevent){evnt(25224,12985,"ide_methods.bas");if(r)goto S_47572;} do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_new_txt_len("#Recent...",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12985,"ide_methods.bas");}while(r); } S_47575:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKEFILEMENU_STRING_F->len> 25 )))||new_error){ if(qbevent){evnt(25224,12986,"ide_methods.bas");if(r)goto S_47575;} do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(func_string( 3 , 250 ),qbs_right(_SUB_IDEMAKEFILEMENU_STRING_F, 22 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,12986,"ide_methods.bas");}while(r); } S_47578:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ if(qbevent){evnt(25224,12987,"ide_methods.bas");if(r)goto S_47578;} 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(25224,12987,"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(25224,12988,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12988,"ide_methods.bas");}while(r); } fornext_continue_5191:; } fornext_exit_5191:; do{ sub_close(*_SUB_IDEMAKEFILEMENU_LONG_FH,1); if(!qbevent)break;evnt(25224,12991,"ide_methods.bas");}while(r); S_47586:; 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_new_txt_len("Save #As...",11)))))||new_error){ if(qbevent){evnt(25224,12992,"ide_methods.bas");if(r)goto S_47586;} 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(25224,12993,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12993,"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(25224,12995,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12995,"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(25224,12996,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,12996,"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(25224,12997,"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; } 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 "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; do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SUBFUNCLIST)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_SUBFUNCLIST[2]&1){ tmp_long=__ARRAY_STRING_SUBFUNCLIST[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]); free((void*)(__ARRAY_STRING_SUBFUNCLIST[0])); } __ARRAY_STRING_SUBFUNCLIST[4]= 0 ; __ARRAY_STRING_SUBFUNCLIST[5]=( 0 )-__ARRAY_STRING_SUBFUNCLIST[4]+1; __ARRAY_STRING_SUBFUNCLIST[6]=1; __ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)malloc(__ARRAY_STRING_SUBFUNCLIST[5]*8); if (!__ARRAY_STRING_SUBFUNCLIST[0]) error(257); __ARRAY_STRING_SUBFUNCLIST[2]|=1; tmp_long=__ARRAY_STRING_SUBFUNCLIST[5]; if (__ARRAY_STRING_SUBFUNCLIST[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,13001,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13002,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; if(!qbevent)break;evnt(25224,13004,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I= 0 ; if(!qbevent)break;evnt(25224,13004,"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(25224,13005,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13005,"ide_methods.bas");}while(r); S_47601:; if (((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ if(qbevent){evnt(25224,13007,"ide_methods.bas");if(r)goto S_47601;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,FUNC_GETSELECTEDTEXT(&(pass5196= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13009,"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(25224,13010,"ide_methods.bas");}while(r); S_47604:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 )))||new_error){ if(qbevent){evnt(25224,13011,"ide_methods.bas");if(r)goto S_47604;} do{ qbs_set(__STRING_IDECONTEXTUALSEARCH,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13012,"ide_methods.bas");}while(r); S_47606:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2->len> 22 )))||new_error){ if(qbevent){evnt(25224,13013,"ide_methods.bas");if(r)goto S_47606;} 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(25224,13014,"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(25224,13016,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13016,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF= 0 ; if(!qbevent)break;evnt(25224,13020,"ide_methods.bas");}while(r); S_47613:; fornext_value5200= 1 ; fornext_finalvalue5200=*__LONG_IDEN; 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+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y); fornext_entrylabel5200: *_SUB_IDEMAKECONTEXTUALMENU_LONG_Y=fornext_value5200; if (fornext_step_negative5200){ if (fornext_value5200fornext_finalvalue5200) break; } fornext_error5200:; if(qbevent){evnt(25224,13021,"ide_methods.bas");if(r)goto S_47613;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(_SUB_IDEMAKECONTEXTUALMENU_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13022,"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(25224,13023,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 0 ; if(!qbevent)break;evnt(25224,13024,"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(25224,13025,"ide_methods.bas");}while(r); S_47618:; 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(25224,13026,"ide_methods.bas");if(r)goto S_47618;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 1 ; if(!qbevent)break;evnt(25224,13026,"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(25224,13026,"ide_methods.bas");}while(r); } S_47622:; 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(25224,13027,"ide_methods.bas");if(r)goto S_47622;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 2 ; if(!qbevent)break;evnt(25224,13027,"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(25224,13027,"ide_methods.bas");}while(r); } S_47626:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)||new_error){ if(qbevent){evnt(25224,13028,"ide_methods.bas");if(r)goto S_47626;} S_47627:; 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(25224,13029,"ide_methods.bas");if(r)goto S_47627;} 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(25224,13030,"ide_methods.bas");}while(r); } S_47630:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF== 1 ))||new_error){ if(qbevent){evnt(25224,13033,"ide_methods.bas");if(r)goto S_47630;} 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(25224,13034,"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(25224,13036,"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(25224,13039,"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(25224,13040,"ide_methods.bas");}while(r); S_47637:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_X)||new_error){ if(qbevent){evnt(25224,13041,"ide_methods.bas");if(r)goto S_47637;} 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(25224,13042,"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(25224,13044,"ide_methods.bas");}while(r); do{ SUB_CLEANSUBNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13045,"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(25224,13048,"ide_methods.bas");}while(r); S_47644:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len> 1 )))||new_error){ if(qbevent){evnt(25224,13049,"ide_methods.bas");if(r)goto S_47644;} S_47645:; 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(25224,13050,"ide_methods.bas");if(r)goto S_47645;} 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(25224,13051,"ide_methods.bas");}while(r); dl_continue_5205:; } dl_exit_5205:; } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF+ 1 ; if(!qbevent)break;evnt(25224,13056,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SUBFUNCLIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_SUBFUNCLIST[2]&1){ preserved_elements=__ARRAY_STRING_SUBFUNCLIST[5]; } else preserved_elements=0; __ARRAY_STRING_SUBFUNCLIST[4]= 1 ; __ARRAY_STRING_SUBFUNCLIST[5]=(*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF)-__ARRAY_STRING_SUBFUNCLIST[4]+1; __ARRAY_STRING_SUBFUNCLIST[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_SUBFUNCLIST[5]; if (tmp_long2len)> 0 )))||new_error){ if(qbevent){evnt(25224,13066,"ide_methods.bas");if(r)goto S_47655;} S_47656:; 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(25224,13067,"ide_methods.bas");if(r)goto S_47656;} 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(25224,13068,"ide_methods.bas");}while(r); S_47658:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len== 0 )))||new_error){ if(qbevent){evnt(25224,13069,"ide_methods.bas");if(r)goto S_47658;} do{ goto dl_exit_5207; if(!qbevent)break;evnt(25224,13069,"ide_methods.bas");}while(r); } dl_continue_5207:; } dl_exit_5207:; 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(25224,13071,"ide_methods.bas");}while(r); } S_47664:; 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(25224,13074,"ide_methods.bas");if(r)goto S_47664;} 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(25224,13074,"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(25224,13074,"ide_methods.bas");}while(r); } S_47669:; if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3->len> 0 ))|(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 ))))||new_error){ if(qbevent){evnt(25224,13076,"ide_methods.bas");if(r)goto S_47669;} S_47670:; fornext_value5214= 1 ; fornext_finalvalue5214=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF; fornext_step5214= 1 ; if (fornext_step5214<0) fornext_step_negative5214=1; else fornext_step_negative5214=0; if (new_error) goto fornext_error5214; goto fornext_entrylabel5214; while(1){ fornext_value5214=fornext_step5214+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF); fornext_entrylabel5214: *_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF=fornext_value5214; if (fornext_step_negative5214){ if (fornext_value5214fornext_finalvalue5214) break; } fornext_error5214:; if(qbevent){evnt(25224,13078,"ide_methods.bas");if(r)goto S_47670;} S_47671:; 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(25224,13079,"ide_methods.bas");if(r)goto S_47671;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13080,"ide_methods.bas");}while(r); S_47673:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ if(qbevent){evnt(25224,13081,"ide_methods.bas");if(r)goto S_47673;} do{ goto LABEL_SKIPCHECKCURRSF; if(!qbevent)break;evnt(25224,13081,"ide_methods.bas");}while(r); } S_47676:; 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(25224,13083,"ide_methods.bas");if(r)goto S_47676;} 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(25224,13084,"ide_methods.bas");}while(r); S_47678:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ if(qbevent){evnt(25224,13085,"ide_methods.bas");if(r)goto S_47678;} do{ goto dl_exit_5216; if(!qbevent)break;evnt(25224,13085,"ide_methods.bas");}while(r); } dl_continue_5216:; } dl_exit_5216:; do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13087,"ide_methods.bas");}while(r); LABEL_SKIPCHECKCURRSF:; if(qbevent){evnt(25224,13089,"ide_methods.bas");r=0;} S_47683:; 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(25224,13090,"ide_methods.bas");if(r)goto S_47683;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("SUB ",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13091,"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(25224,13093,"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(25224,13095,"ide_methods.bas");}while(r); S_47689:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)))||new_error){ if(qbevent){evnt(25224,13097,"ide_methods.bas");if(r)goto S_47689;} do{ goto fornext_exit_5213; if(!qbevent)break;evnt(25224,13098,"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(25224,13100,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13100,"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(25224,13101,"ide_methods.bas");}while(r); do{ goto fornext_exit_5213; if(!qbevent)break;evnt(25224,13102,"ide_methods.bas");}while(r); } } fornext_continue_5213:; } fornext_exit_5213:; do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_V= 0 ; if(!qbevent)break;evnt(25224,13107,"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(25224,13108,"ide_methods.bas");}while(r); S_47701:; if ((~(*__LONG_ERROR_HAPPENED))||new_error){ if(qbevent){evnt(25224,13109,"ide_methods.bas");if(r)goto S_47701;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFIND(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,&(pass5219= 2 ),_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13109,"ide_methods.bas");}while(r); } LABEL_CHECKTHISLABEL:; if(qbevent){evnt(25224,13110,"ide_methods.bas");r=0;} S_47704:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_V)||new_error){ if(qbevent){evnt(25224,13111,"ide_methods.bas");if(r)goto S_47704;} 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(25224,13112,"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(25224,13113,"ide_methods.bas");}while(r); S_47707:; 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(25224,13114,"ide_methods.bas");if(r)goto S_47707;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFINDCONT(_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); if(!qbevent)break;evnt(25224,13115,"ide_methods.bas");}while(r); do{ goto LABEL_CHECKTHISLABEL; if(!qbevent)break;evnt(25224,13116,"ide_methods.bas");}while(r); } S_47711:; if (((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER> 0 ))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER!=*__LONG_IDECY)))||new_error){ if(qbevent){evnt(25224,13118,"ide_methods.bas");if(r)goto S_47711;} 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(25224,13119,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13119,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_SUBFUNCLIST)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_SUBFUNCLIST[2]&1){ preserved_elements=__ARRAY_STRING_SUBFUNCLIST[5]; } else preserved_elements=0; __ARRAY_STRING_SUBFUNCLIST[4]= 1 ; __ARRAY_STRING_SUBFUNCLIST[5]=(func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1)+ 1 )-__ARRAY_STRING_SUBFUNCLIST[4]+1; __ARRAY_STRING_SUBFUNCLIST[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_SUBFUNCLIST[5]; if (tmp_long2len> 0 )))||new_error){ if(qbevent){evnt(25224,13126,"ide_methods.bas");if(r)goto S_47719;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,13128,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13129,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS= 0 ; if(!qbevent)break;evnt(25224,13130,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_LNKS,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13130,"ide_methods.bas");}while(r); S_47724:; while((!(func_eof(*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH)))||new_error){ if(qbevent){evnt(25224,13131,"ide_methods.bas");if(r)goto S_47724;} do{ tmp_fileno=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH; if (new_error) goto skip5222; sub_file_line_input_string(tmp_fileno,_SUB_IDEMAKECONTEXTUALMENU_STRING_L); if (new_error) goto skip5222; skip5222: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13132,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_C=func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L,qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13133,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L,*_SUB_IDEMAKECONTEXTUALMENU_LONG_C- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13133,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_L,_SUB_IDEMAKECONTEXTUALMENU_STRING_L->len-*_SUB_IDEMAKECONTEXTUALMENU_LONG_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13133,"ide_methods.bas");}while(r); S_47729:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1)))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1, 2 ,NULL,0)))))))||new_error){ if(qbevent){evnt(25224,13134,"ide_methods.bas");if(r)goto S_47729;} S_47730:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_SUB_IDEMAKECONTEXTUALMENU_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ if(qbevent){evnt(25224,13135,"ide_methods.bas");if(r)goto S_47730;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS=*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS+ 1 ; if(!qbevent)break;evnt(25224,13136,"ide_methods.bas");}while(r); do{ goto dl_exit_5221; if(!qbevent)break;evnt(25224,13137,"ide_methods.bas");}while(r); } } dl_continue_5221:; } dl_exit_5221:; do{ sub_close(*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH,1); if(!qbevent)break;evnt(25224,13141,"ide_methods.bas");}while(r); S_47737:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS)||new_error){ if(qbevent){evnt(25224,13143,"ide_methods.bas");if(r)goto S_47737;} S_47738:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2->len> 15 )))||new_error){ if(qbevent){evnt(25224,13144,"ide_methods.bas");if(r)goto S_47738;} 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(25224,13145,"ide_methods.bas");}while(r); } S_47741:; 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(25224,13147,"ide_methods.bas");if(r)goto S_47741;} 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(25224,13148,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13148,"ide_methods.bas");}while(r); } } } S_47747:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_I> 1 ))||new_error){ if(qbevent){evnt(25224,13153,"ide_methods.bas");if(r)goto S_47747;} 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(25224,13154,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13154,"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(25224,13158,"ide_methods.bas");}while(r); S_47752:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,13159,"ide_methods.bas");if(r)goto S_47752;} S_47753:; if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ if(qbevent){evnt(25224,13160,"ide_methods.bas");if(r)goto S_47753;} do{ goto LABEL_NORGBFOUND; if(!qbevent)break;evnt(25224,13160,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB= 0 ; if(!qbevent)break;evnt(25224,13163,"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(25224,13164,"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(25224,13165,"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(25224,13166,"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(25224,13167,"ide_methods.bas");}while(r); S_47762:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB)||new_error){ if(qbevent){evnt(25224,13168,"ide_methods.bas");if(r)goto S_47762;} 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(25224,13169,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13169,"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(25224,13170,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13170,"ide_methods.bas");}while(r); } LABEL_NORGBFOUND:; if(qbevent){evnt(25224,13172,"ide_methods.bas");r=0;} S_47768:; if (((-(*__LONG_IDESELECT!= 0 )))||new_error){ if(qbevent){evnt(25224,13175,"ide_methods.bas");if(r)goto S_47768;} 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(25224,13175,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13175,"ide_methods.bas");}while(r); } S_47772:; if (((-(*__LONG_IDESELECT== 1 )))||new_error){ if(qbevent){evnt(25224,13176,"ide_methods.bas");if(r)goto S_47772;} 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(25224,13177,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13177,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13180,"ide_methods.bas");}while(r); S_47777:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP->len))||new_error){ if(qbevent){evnt(25224,13181,"ide_methods.bas");if(r)goto S_47777;} 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(25224,13181,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13181,"ide_methods.bas");}while(r); } S_47781:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,13183,"ide_methods.bas");if(r)goto S_47781;} 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(25224,13183,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13183,"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(25224,13184,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13184,"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(25224,13185,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13185,"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(25224,13186,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13186,"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(25224,13187,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13187,"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(25224,13188,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13188,"ide_methods.bas");}while(r); S_47795:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,13189,"ide_methods.bas");if(r)goto S_47795;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,13190,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,13191,"ide_methods.bas");}while(r); S_47798:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1==*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2))||new_error){ if(qbevent){evnt(25224,13192,"ide_methods.bas");if(r)goto S_47798;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13193,"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(25224,13194,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,13195,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,13195,"ide_methods.bas");}while(r); S_47803:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2<*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1))||new_error){ if(qbevent){evnt(25224,13196,"ide_methods.bas");if(r)goto S_47803;} do{ swap_32(&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1,&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2); if(!qbevent)break;evnt(25224,13196,"ide_methods.bas");}while(r); } S_47806:; fornext_value5227=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; fornext_finalvalue5227=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; fornext_step5227= 1 ; if (fornext_step5227<0) fornext_step_negative5227=1; else fornext_step_negative5227=0; if (new_error) goto fornext_error5227; goto fornext_entrylabel5227; while(1){ fornext_value5227=fornext_step5227+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X); fornext_entrylabel5227: *_SUB_IDEMAKECONTEXTUALMENU_LONG_X=fornext_value5227; if (fornext_step_negative5227){ if (fornext_value5227fornext_finalvalue5227) break; } fornext_error5227:; if(qbevent){evnt(25224,13197,"ide_methods.bas");if(r)goto S_47806;} S_47807:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,13198,"ide_methods.bas");if(r)goto S_47807;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13198,"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(25224,13198,"ide_methods.bas");}while(r); } fornext_continue_5226:; } fornext_exit_5226:; S_47813:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,13200,"ide_methods.bas");if(r)goto S_47813;} 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(25224,13201,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13201,"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(25224,13202,"ide_methods.bas");}while(r); S_47817:; 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(25224,13203,"ide_methods.bas");if(r)goto S_47817;} 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(25224,13203,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13204,"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(25224,13205,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13205,"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(25224,13208,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13208,"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(25224,13209,"ide_methods.bas");}while(r); S_47828:; 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(25224,13210,"ide_methods.bas");if(r)goto S_47828;} 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(25224,13210,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13211,"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(25224,13212,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13212,"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(25224,13215,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13215,"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(25224,13217,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13217,"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(25224,13218,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13218,"ide_methods.bas");}while(r); S_47843:; }else{ if (-(*__LONG_IDESYSTEM== 3 )){ if(qbevent){evnt(25224,13219,"ide_methods.bas");if(r)goto S_47843;} S_47844:; if (((-(*__LONG_HELP_SELECT== 2 )))||new_error){ if(qbevent){evnt(25224,13220,"ide_methods.bas");if(r)goto S_47844;} 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(25224,13221,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13221,"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(25224,13223,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13223,"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(25224,13224,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13224,"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(25224,13225,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13225,"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(25224,13226,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13226,"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(25224,13227,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13227,"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(25224,13228,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13228,"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(25224,13229,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13229,"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(25224,13230,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13230,"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(25224,13231,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13231,"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(25224,13232,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13232,"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(25224,13234,"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; } 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 "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_IDEMAKEEDITMENU_LONG_M=*__INTEGER_IDEEDITMENUID; if(!qbevent)break;evnt(25224,13238,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I= 0 ; if(!qbevent)break;evnt(25224,13238,"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(25224,13239,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13239,"ide_methods.bas");}while(r); S_47874:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,13241,"ide_methods.bas");if(r)goto S_47874;} 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(25224,13242,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13242,"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(25224,13243,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13243,"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(25224,13245,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13245,"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(25224,13246,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13246,"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(25224,13248,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13248,"ide_methods.bas");}while(r); S_47887:; if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ if(qbevent){evnt(25224,13250,"ide_methods.bas");if(r)goto S_47887;} 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(25224,13251,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13251,"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(25224,13252,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13252,"ide_methods.bas");}while(r); S_47892:; }else{ if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))){ if(qbevent){evnt(25224,13253,"ide_methods.bas");if(r)goto S_47892;} 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(25224,13254,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13254,"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(25224,13255,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13255,"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(25224,13257,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13257,"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(25224,13258,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13258,"ide_methods.bas");}while(r); } } do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13261,"ide_methods.bas");}while(r); S_47904:; if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDEMAKEEDITMENU_STRING_CLIP->len> 0 ))&(-(*__LONG_IDESYSTEM== 1 ))))|(-(*__LONG_IDESYSTEM== 2 ))))||new_error){ if(qbevent){evnt(25224,13262,"ide_methods.bas");if(r)goto S_47904;} 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(25224,13263,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13263,"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(25224,13265,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13265,"ide_methods.bas");}while(r); } S_47911:; if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ if(qbevent){evnt(25224,13268,"ide_methods.bas");if(r)goto S_47911;} 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(25224,13269,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13269,"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(25224,13271,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13271,"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(25224,13274,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13274,"ide_methods.bas");}while(r); S_47920:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ if(qbevent){evnt(25224,13276,"ide_methods.bas");if(r)goto S_47920;} 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(25224,13277,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13277,"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(25224,13278,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13278,"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(25224,13279,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13279,"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(25224,13280,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13280,"ide_methods.bas");}while(r); S_47929:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,13281,"ide_methods.bas");if(r)goto S_47929;} do{ *_SUB_IDEMAKEEDITMENU_LONG_Y1=*__LONG_IDECY; if(!qbevent)break;evnt(25224,13282,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_Y2=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,13283,"ide_methods.bas");}while(r); S_47932:; if ((-(*_SUB_IDEMAKEEDITMENU_LONG_Y1==*_SUB_IDEMAKEEDITMENU_LONG_Y2))||new_error){ if(qbevent){evnt(25224,13284,"ide_methods.bas");if(r)goto S_47932;} do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13285,"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(25224,13286,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,13287,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,13287,"ide_methods.bas");}while(r); S_47937:; if ((-(*_SUB_IDEMAKEEDITMENU_LONG_SX2<*_SUB_IDEMAKEEDITMENU_LONG_SX1))||new_error){ if(qbevent){evnt(25224,13288,"ide_methods.bas");if(r)goto S_47937;} do{ swap_32(&*_SUB_IDEMAKEEDITMENU_LONG_SX1,&*_SUB_IDEMAKEEDITMENU_LONG_SX2); if(!qbevent)break;evnt(25224,13288,"ide_methods.bas");}while(r); } S_47940:; fornext_value5231=*_SUB_IDEMAKEEDITMENU_LONG_SX1; fornext_finalvalue5231=*_SUB_IDEMAKEEDITMENU_LONG_SX2- 1 ; 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+(*_SUB_IDEMAKEEDITMENU_LONG_X); fornext_entrylabel5231: *_SUB_IDEMAKEEDITMENU_LONG_X=fornext_value5231; if (fornext_step_negative5231){ if (fornext_value5231fornext_finalvalue5231) break; } fornext_error5231:; if(qbevent){evnt(25224,13289,"ide_methods.bas");if(r)goto S_47940;} S_47941:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEEDITMENU_LONG_X<=_SUB_IDEMAKEEDITMENU_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,13290,"ide_methods.bas");if(r)goto S_47941;} do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,func_mid(_SUB_IDEMAKEEDITMENU_STRING_A,*_SUB_IDEMAKEEDITMENU_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13290,"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(25224,13290,"ide_methods.bas");}while(r); } fornext_continue_5230:; } fornext_exit_5230:; S_47947:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,13292,"ide_methods.bas");if(r)goto S_47947;} 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(25224,13293,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13293,"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(25224,13294,"ide_methods.bas");}while(r); S_47951:; 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(25224,13295,"ide_methods.bas");if(r)goto S_47951;} 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(25224,13295,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13296,"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(25224,13298,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13298,"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(25224,13299,"ide_methods.bas");}while(r); S_47959:; 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(25224,13300,"ide_methods.bas");if(r)goto S_47959;} 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(25224,13300,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13301,"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(25224,13304,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13304,"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(25224,13305,"ide_methods.bas");}while(r); S_47968:; 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(25224,13306,"ide_methods.bas");if(r)goto S_47968;} 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(25224,13306,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13307,"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(25224,13310,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13310,"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(25224,13311,"ide_methods.bas");}while(r); S_47977:; 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(25224,13312,"ide_methods.bas");if(r)goto S_47977;} 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(25224,13312,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13313,"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(25224,13315,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13315,"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(25224,13316,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13316,"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(25224,13317,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13317,"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(25224,13319,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13319,"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(25224,13320,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13320,"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(25224,13321,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13321,"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(25224,13322,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13322,"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(25224,13323,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13323,"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(25224,13324,"ide_methods.bas");}while(r); S_48000:; 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(25224,13325,"ide_methods.bas");if(r)goto S_48000;} 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(25224,13325,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13326,"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(25224,13327,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13327,"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(25224,13328,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13328,"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(25224,13329,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13329,"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(25224,13331,"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; } 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 "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{ qbs_set(_SUB_IDEADDRECENT_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDRECENT_STRING_F2),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13335,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDRECENT_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,13336,"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(25224,13337,"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(25224,13337,"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(25224,13337,"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(25224,13338,"ide_methods.bas");}while(r); S_48018:; if ((*_SUB_IDEADDRECENT_LONG_X)||new_error){ if(qbevent){evnt(25224,13339,"ide_methods.bas");if(r)goto S_48018;} 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(25224,13340,"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(25224,13342,"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_5236),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13344,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEADDRECENT_LONG_FH,1); if(!qbevent)break;evnt(25224,13345,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); if(!qbevent)break;evnt(25224,13346,"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_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 "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{ qbs_set(_SUB_IDEADDSEARCHED_STRING_S,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDSEARCHED_STRING_S2),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13350,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDSEARCHED_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,13351,"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(25224,13352,"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(25224,13352,"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(25224,13352,"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(25224,13353,"ide_methods.bas");}while(r); S_48032:; if ((*_SUB_IDEADDSEARCHED_LONG_X)||new_error){ if(qbevent){evnt(25224,13354,"ide_methods.bas");if(r)goto S_48032;} 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(25224,13355,"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(25224,13357,"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_5240),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13359,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEADDSEARCHED_LONG_FH,1); if(!qbevent)break;evnt(25224,13360,"ide_methods.bas");}while(r); 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; } void SUB_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 "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{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,13365,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,13366,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13367,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13368,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13369,"ide_methods.bas");}while(r); do{ if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4]= 1 ; _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]=( 100 )-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4]+1; _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[6]=1; if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&4){ _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]),0,_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]) error(257); } _SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,13370,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13371,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13372,"ide_methods.bas");}while(r); S_48047:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ if(qbevent){evnt(25224,13376,"ide_methods.bas");if(r)goto S_48047;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,13377,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=*__LONG_IDEWY; if(!qbevent)break;evnt(25224,13377,"ide_methods.bas");}while(r); do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; if(!qbevent)break;evnt(25224,13378,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; if(!qbevent)break;evnt(25224,13378,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; if(!qbevent)break;evnt(25224,13379,"ide_methods.bas");}while(r); do{ *__LONG_IDESUBWINDOW=*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW; if(!qbevent)break;evnt(25224,13380,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY; if(!qbevent)break;evnt(25224,13380,"ide_methods.bas");}while(r); } do{ *_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES= 2 ; if(!qbevent)break;evnt(25224,13383,"ide_methods.bas");}while(r); do{ if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); }else{ if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ error(10); }else{ _SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; _SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]=( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4]+1; _SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[6]=1; _SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]*8); if (!_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); _SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; tmp_long=_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]; if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ while(tmp_long--) ((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,13384,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; if(!qbevent)break;evnt(25224,13385,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,13387,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_W2=_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR->len+ 4 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13388,"ide_methods.bas");}while(r); S_48066:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_W<*_SUB_IDEUPDATEHELPBOX_LONG_W2))||new_error){ if(qbevent){evnt(25224,13389,"ide_methods.bas");if(r)goto S_48066;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_W=*_SUB_IDEUPDATEHELPBOX_LONG_W2; if(!qbevent)break;evnt(25224,13389,"ide_methods.bas");}while(r); } S_48069:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_W<*_SUB_IDEUPDATEHELPBOX_LONG_BUTTONSLEN))||new_error){ if(qbevent){evnt(25224,13390,"ide_methods.bas");if(r)goto S_48069;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_W=*_SUB_IDEUPDATEHELPBOX_LONG_BUTTONSLEN; if(!qbevent)break;evnt(25224,13390,"ide_methods.bas");}while(r); } S_48072:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ if(qbevent){evnt(25224,13391,"ide_methods.bas");if(r)goto S_48072;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_W=*__LONG_IDEWX- 4 ; if(!qbevent)break;evnt(25224,13391,"ide_methods.bas");}while(r); } do{ SUB_IDEPAR((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_UDT_P)) + (0) ),&(pass5242= 60 ),&(pass5243= 6 ),qbs_new_txt_len("Update Help",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13392,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_I=*_SUB_IDEUPDATEHELPBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13394,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_BUTTONID=*_SUB_IDEUPDATEHELPBOX_LONG_I; if(!qbevent)break;evnt(25224,13395,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,13396,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+24))= 6 ; if(!qbevent)break;evnt(25224,13397,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#Cancel",7)); if(!qbevent)break;evnt(25224,13398,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,13399,"ide_methods.bas");}while(r); S_48082:; fornext_value5245= 1 ; fornext_finalvalue5245= 100 ; 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+(*_SUB_IDEUPDATEHELPBOX_LONG_I); fornext_entrylabel5245: *_SUB_IDEUPDATEHELPBOX_LONG_I=fornext_value5245; if (fornext_step_negative5245){ if (fornext_value5245fornext_finalvalue5245) break; } fornext_error5245:; if(qbevent){evnt(25224,13403,"ide_methods.bas");if(r)goto S_48082;} do{ memcpy(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,13403,"ide_methods.bas");}while(r); fornext_continue_5244:; } fornext_exit_5244:; S_48085:; do{ if(qbevent){evnt(25224,13406,"ide_methods.bas");if(r)goto S_48085;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,13410,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13411,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,13411,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,13411,"ide_methods.bas");}while(r); S_48090:; fornext_value5248= 1 ; fornext_finalvalue5248= 100 ; fornext_step5248= 1 ; if (fornext_step5248<0) fornext_step_negative5248=1; else fornext_step_negative5248=0; if (new_error) goto fornext_error5248; goto fornext_entrylabel5248; while(1){ fornext_value5248=fornext_step5248+(*_SUB_IDEUPDATEHELPBOX_LONG_I); fornext_entrylabel5248: *_SUB_IDEUPDATEHELPBOX_LONG_I=fornext_value5248; if (fornext_step_negative5248){ if (fornext_value5248fornext_finalvalue5248) break; } fornext_error5248:; if(qbevent){evnt(25224,13412,"ide_methods.bas");if(r)goto S_48090;} S_48091:; if ((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ if(qbevent){evnt(25224,13413,"ide_methods.bas");if(r)goto S_48091;} do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS-*_SUB_IDEUPDATEHELPBOX_LONG_F; if(!qbevent)break;evnt(25224,13416,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,13417,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,13417,"ide_methods.bas");}while(r); do{ SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85) ),_SUB_IDEUPDATEHELPBOX_LONG_F); if(!qbevent)break;evnt(25224,13418,"ide_methods.bas");}while(r); S_48096:; if ((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ if(qbevent){evnt(25224,13419,"ide_methods.bas");if(r)goto S_48096;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_CX=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+52)); if(!qbevent)break;evnt(25224,13419,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_CY=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+56)); if(!qbevent)break;evnt(25224,13419,"ide_methods.bas");}while(r); } } fornext_continue_5247:; } fornext_exit_5247:; do{ *_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,13422,"ide_methods.bas");}while(r); S_48103:; if(qbevent){evnt(25224,13427,"ide_methods.bas");if(r)goto S_48103;} S_48104:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ if(qbevent){evnt(25224,13428,"ide_methods.bas");if(r)goto S_48104;} do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13429,"ide_methods.bas");}while(r); sc_ec_255_end:; goto sc_5249_end; } S_48106:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ if(qbevent){evnt(25224,13430,"ide_methods.bas");if(r)goto S_48106;} do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13431,"ide_methods.bas");}while(r); sc_ec_256_end:; goto sc_5249_end; } S_48108:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ if(qbevent){evnt(25224,13432,"ide_methods.bas");if(r)goto S_48108;} do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13433,"ide_methods.bas");}while(r); sc_ec_257_end:; goto sc_5249_end; } S_48110:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ if(qbevent){evnt(25224,13434,"ide_methods.bas");if(r)goto S_48110;} do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13435,"ide_methods.bas");}while(r); sc_ec_258_end:; goto sc_5249_end; } S_48112:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ if(qbevent){evnt(25224,13436,"ide_methods.bas");if(r)goto S_48112;} do{ tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(_SUB_IDEUPDATEHELPBOX_LONG_N)),qbs_new_txt_len("/",1)),FUNC_STR2(_SUB_IDEUPDATEHELPBOX_LONG_C)),qbs_new_txt_len("...",3))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13437,"ide_methods.bas");}while(r); sc_ec_259_end:; goto sc_5249_end; } sc_5249_end:; S_48115:; fornext_value5251= 1 ; fornext_finalvalue5251=*_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES; fornext_step5251= 1 ; if (fornext_step5251<0) fornext_step_negative5251=1; else fornext_step_negative5251=0; if (new_error) goto fornext_error5251; goto fornext_entrylabel5251; while(1){ fornext_value5251=fornext_step5251+(*_SUB_IDEUPDATEHELPBOX_LONG_I); fornext_entrylabel5251: *_SUB_IDEUPDATEHELPBOX_LONG_I=fornext_value5251; if (fornext_step_negative5251){ if (fornext_value5251fornext_finalvalue5251) break; } fornext_error5251:; if(qbevent){evnt(25224,13440,"ide_methods.bas");if(r)goto S_48115;} S_48116:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_I== 1 ))||new_error){ if(qbevent){evnt(25224,13441,"ide_methods.bas");if(r)goto S_48116;} do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13441,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 2 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13441,"ide_methods.bas");}while(r); } S_48121:; if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))- 2 ))))||new_error){ if(qbevent){evnt(25224,13442,"ide_methods.bas");if(r)goto S_48121;} do{ tmp_long=array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13443,"ide_methods.bas");}while(r); } do{ sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 1 +*_SUB_IDEUPDATEHELPBOX_LONG_I,((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13445,"ide_methods.bas");}while(r); fornext_continue_5250:; } fornext_exit_5250:; do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13448,"ide_methods.bas");}while(r); S_48127:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 5 ))||new_error){ if(qbevent){evnt(25224,13449,"ide_methods.bas");if(r)goto S_48127;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH= 52 ; if(!qbevent)break;evnt(25224,13450,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGE=qbr(floor(*_SUB_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_SUB_IDEUPDATEHELPBOX_LONG_C))* 100 )); if(!qbevent)break;evnt(25224,13451,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS=qbr(floor(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH**_SUB_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_SUB_IDEUPDATEHELPBOX_LONG_C)))); if(!qbevent)break;evnt(25224,13452,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH-*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13454,"ide_methods.bas");}while(r); do{ sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13455,"ide_methods.bas");}while(r); S_48133:; }else{ if (-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 6 )){ if(qbevent){evnt(25224,13456,"ide_methods.bas");if(r)goto S_48133;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(func_string(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13457,"ide_methods.bas");}while(r); do{ sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13458,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,13463,"ide_methods.bas");}while(r); S_48138:; if ((*_SUB_IDEUPDATEHELPBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,13464,"ide_methods.bas");if(r)goto S_48138;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13464,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_SUB_IDEUPDATEHELPBOX_LONG_CY,*_SUB_IDEUPDATEHELPBOX_LONG_CX, 1 ,NULL,NULL,7); if(!qbevent)break;evnt(25224,13464,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13464,"ide_methods.bas");}while(r); } do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,13467,"ide_methods.bas");}while(r); S_48144:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,13468,"ide_methods.bas");if(r)goto S_48144;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,13468,"ide_methods.bas");}while(r); } S_48147:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,13469,"ide_methods.bas");if(r)goto S_48147;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,13469,"ide_methods.bas");}while(r); } do{ *_SUB_IDEUPDATEHELPBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,13470,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_OLDALT=*_SUB_IDEUPDATEHELPBOX_LONG_ALT; if(!qbevent)break;evnt(25224,13471,"ide_methods.bas");}while(r); S_48152:; if ((*_SUB_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13473,"ide_methods.bas");if(r)goto S_48152;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,13473,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,13473,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13475,"ide_methods.bas");}while(r); S_48158:; if ((*_SUB_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13476,"ide_methods.bas");if(r)goto S_48158;} S_48159:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,13477,"ide_methods.bas");if(r)goto S_48159;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13478,"ide_methods.bas");}while(r); S_48161:; if (((-(*_SUB_IDEUPDATEHELPBOX_LONG_K>= 65 ))&(-(*_SUB_IDEUPDATEHELPBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,13479,"ide_methods.bas");if(r)goto S_48161;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,func_chr(*_SUB_IDEUPDATEHELPBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13479,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13482,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,13482,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13482,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,13486,"ide_methods.bas");}while(r); S_48170:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ if(qbevent){evnt(25224,13488,"ide_methods.bas");if(r)goto S_48170;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13488,"ide_methods.bas");}while(r); } S_48173:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,13490,"ide_methods.bas");if(r)goto S_48173;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13490,"ide_methods.bas");}while(r); } S_48176:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,13491,"ide_methods.bas");if(r)goto S_48176;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,13491,"ide_methods.bas");}while(r); } S_48179:; 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(25224,13492,"ide_methods.bas");if(r)goto S_48179;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,13492,"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(25224,13492,"ide_methods.bas");}while(r); } S_48183:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,13493,"ide_methods.bas");if(r)goto S_48183;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,13493,"ide_methods.bas");}while(r); } S_48186:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS>*_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,13494,"ide_methods.bas");if(r)goto S_48186;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13494,"ide_methods.bas");}while(r); } do{ *_SUB_IDEUPDATEHELPBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13495,"ide_methods.bas");}while(r); S_48190:; fornext_value5258= 1 ; fornext_finalvalue5258= 100 ; fornext_step5258= 1 ; if (fornext_step5258<0) fornext_step_negative5258=1; else fornext_step_negative5258=0; if (new_error) goto fornext_error5258; goto fornext_entrylabel5258; while(1){ fornext_value5258=fornext_step5258+(*_SUB_IDEUPDATEHELPBOX_LONG_I); fornext_entrylabel5258: *_SUB_IDEUPDATEHELPBOX_LONG_I=fornext_value5258; if (fornext_step_negative5258){ if (fornext_value5258fornext_finalvalue5258) break; } fornext_error5258:; if(qbevent){evnt(25224,13496,"ide_methods.bas");if(r)goto S_48190;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_T=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+36)); if(!qbevent)break;evnt(25224,13497,"ide_methods.bas");}while(r); S_48192:; if ((*_SUB_IDEUPDATEHELPBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,13498,"ide_methods.bas");if(r)goto S_48192;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS-*_SUB_IDEUPDATEHELPBOX_LONG_F; if(!qbevent)break;evnt(25224,13499,"ide_methods.bas");}while(r); do{ SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85) ),_SUB_IDEUPDATEHELPBOX_LONG_FOCUS,_SUB_IDEUPDATEHELPBOX_LONG_F,_SUB_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,__LONG_MB,_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN,_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDEUPDATEHELPBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13500,"ide_methods.bas");}while(r); } fornext_continue_5257:; } fornext_exit_5257:; S_48197:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_SUB_IDEUPDATEHELPBOX_LONG_INFO!= 0 )))))||new_error){ if(qbevent){evnt(25224,13506,"ide_methods.bas");if(r)goto S_48197;} S_48198:; if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP< 6 ))||new_error){ if(qbevent){evnt(25224,13507,"ide_methods.bas");if(r)goto S_48198;} do{ qbs_set(_SUB_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(25224,13507,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13507,"ide_methods.bas");}while(r); } S_48203:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,13508,"ide_methods.bas");if(r)goto S_48203;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13508,"ide_methods.bas");}while(r); } } S_48207:; if(qbevent){evnt(25224,13513,"ide_methods.bas");if(r)goto S_48207;} S_48208:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ if(qbevent){evnt(25224,13514,"ide_methods.bas");if(r)goto S_48208;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),FUNC_IDEZFILELIST(qbs_new_txt_len("internal/help",13),&(pass5260= 1 ),qbs_new_txt_len("",0))),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13516,"ide_methods.bas");}while(r); S_48210:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEUPDATEHELPBOX_STRING_F->len== 2 )))||new_error){ if(qbevent){evnt(25224,13517,"ide_methods.bas");if(r)goto S_48210;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13517,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("Keyword_Reference_-_By_usage.txt",32)),_SUB_IDEUPDATEHELPBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13520,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_Help_Menu.txt",18)),_SUB_IDEUPDATEHELPBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13521,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_FAQ.txt",12)),_SUB_IDEUPDATEHELPBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13522,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; if(!qbevent)break;evnt(25224,13523,"ide_methods.bas");}while(r); sc_ec_260_end:; goto sc_5259_end; } S_48217:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ if(qbevent){evnt(25224,13524,"ide_methods.bas");if(r)goto S_48217;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; if(!qbevent)break;evnt(25224,13525,"ide_methods.bas");}while(r); sc_ec_261_end:; goto sc_5259_end; } S_48219:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ if(qbevent){evnt(25224,13526,"ide_methods.bas");if(r)goto S_48219;} do{ tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13528,"ide_methods.bas");}while(r); do{ *__LONG_HELP_RECACHING= 1 ; if(!qbevent)break;evnt(25224,13529,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 1 ; if(!qbevent)break;evnt(25224,13529,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13530,"ide_methods.bas");}while(r); do{ *__LONG_HELP_RECACHING= 0 ; if(!qbevent)break;evnt(25224,13531,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 0 ; if(!qbevent)break;evnt(25224,13531,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_SUB_IDEUPDATEHELPBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13532,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; if(!qbevent)break;evnt(25224,13533,"ide_methods.bas");}while(r); sc_ec_262_end:; goto sc_5259_end; } S_48228:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ if(qbevent){evnt(25224,13534,"ide_methods.bas");if(r)goto S_48228;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,13536,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_SUB_IDEUPDATEHELPBOX_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13537,"ide_methods.bas");}while(r); S_48231:; while((!(func_eof(*_SUB_IDEUPDATEHELPBOX_LONG_FH)))||new_error){ if(qbevent){evnt(25224,13538,"ide_methods.bas");if(r)goto S_48231;} do{ tmp_fileno=*_SUB_IDEUPDATEHELPBOX_LONG_FH; if (new_error) goto skip5263; sub_file_line_input_string(tmp_fileno,_SUB_IDEUPDATEHELPBOX_STRING_L); if (new_error) goto skip5263; skip5263: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13539,"ide_methods.bas");}while(r); S_48233:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEUPDATEHELPBOX_STRING_L->len))||new_error){ if(qbevent){evnt(25224,13540,"ide_methods.bas");if(r)goto S_48233;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13541,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_L,_SUB_IDEUPDATEHELPBOX_STRING_L->len-*_SUB_IDEUPDATEHELPBOX_LONG_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13541,"ide_methods.bas");}while(r); S_48236:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(25224,13542,"ide_methods.bas");if(r)goto S_48236;} do{ tqbs=_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2; if (!new_error){ tmp_fileno=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0); 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(25224,13543,"ide_methods.bas");}while(r); dl_continue_5266:; } dl_exit_5266:; S_48239:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("&",1),0)))||new_error){ if(qbevent){evnt(25224,13545,"ide_methods.bas");if(r)goto S_48239;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_I=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("&",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13546,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,*_SUB_IDEUPDATEHELPBOX_LONG_I- 1 ),qbs_new_txt_len("%26",3)),qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2->len-*_SUB_IDEUPDATEHELPBOX_LONG_I))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13547,"ide_methods.bas");}while(r); dl_continue_5267:; } dl_exit_5267:; S_48243:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("/",1),0)))||new_error){ if(qbevent){evnt(25224,13549,"ide_methods.bas");if(r)goto S_48243;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_I=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13550,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,*_SUB_IDEUPDATEHELPBOX_LONG_I- 1 ),qbs_new_txt_len("%2F",3)),qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2->len-*_SUB_IDEUPDATEHELPBOX_LONG_I))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13551,"ide_methods.bas");}while(r); dl_continue_5269:; } dl_exit_5269:; do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(".txt",4))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13553,"ide_methods.bas");}while(r); S_48248:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ if(qbevent){evnt(25224,13554,"ide_methods.bas");if(r)goto S_48248;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13555,"ide_methods.bas");}while(r); } } dl_continue_5262:; } dl_exit_5262:; do{ sub_close(*_SUB_IDEUPDATEHELPBOX_LONG_FH,1); if(!qbevent)break;evnt(25224,13559,"ide_methods.bas");}while(r); S_48254:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 ))))||new_error){ if(qbevent){evnt(25224,13562,"ide_methods.bas");if(r)goto S_48254;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_C= 0 ; if(!qbevent)break;evnt(25224,13563,"ide_methods.bas");}while(r); S_48256:; fornext_value5272= 2 ; fornext_finalvalue5272=_SUB_IDEUPDATEHELPBOX_STRING_F->len; fornext_step5272= 1 ; if (fornext_step5272<0) fornext_step_negative5272=1; else fornext_step_negative5272=0; if (new_error) goto fornext_error5272; goto fornext_entrylabel5272; while(1){ fornext_value5272=fornext_step5272+(*_SUB_IDEUPDATEHELPBOX_LONG_X); fornext_entrylabel5272: *_SUB_IDEUPDATEHELPBOX_LONG_X=fornext_value5272; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5272){ if (fornext_value5272fornext_finalvalue5272) break; } fornext_error5272:; if(qbevent){evnt(25224,13564,"ide_methods.bas");if(r)goto S_48256;} S_48257:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEUPDATEHELPBOX_STRING_F,*_SUB_IDEUPDATEHELPBOX_LONG_X)== 0 )))||new_error){ if(qbevent){evnt(25224,13565,"ide_methods.bas");if(r)goto S_48257;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_C=*_SUB_IDEUPDATEHELPBOX_LONG_C+ 1 ; if(!qbevent)break;evnt(25224,13565,"ide_methods.bas");}while(r); } fornext_continue_5271:; } fornext_exit_5271:; do{ *_SUB_IDEUPDATEHELPBOX_LONG_C=*_SUB_IDEUPDATEHELPBOX_LONG_C- 1 ; if(!qbevent)break;evnt(25224,13567,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_F->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13569,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_Z,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13570,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_N= 0 ; if(!qbevent)break;evnt(25224,13571,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_STOPRECACHE; if(!qbevent)break;evnt(25224,13573,"ide_methods.bas");}while(r); } do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13575,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; if(!qbevent)break;evnt(25224,13576,"ide_methods.bas");}while(r); sc_ec_263_end:; goto sc_5259_end; } S_48270:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ if(qbevent){evnt(25224,13577,"ide_methods.bas");if(r)goto S_48270;} S_48271:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEUPDATEHELPBOX_STRING_F->len> 0 )))||new_error){ if(qbevent){evnt(25224,13578,"ide_methods.bas");if(r)goto S_48271;} do{ *_SUB_IDEUPDATEHELPBOX_LONG_X2=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_Z,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13579,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_F,*_SUB_IDEUPDATEHELPBOX_LONG_X2- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13580,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_F->len-*_SUB_IDEUPDATEHELPBOX_LONG_X2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13580,"ide_methods.bas");}while(r); S_48275:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F2, 4 ),qbs_new_txt_len(".txt",4))))||new_error){ if(qbevent){evnt(25224,13582,"ide_methods.bas");if(r)goto S_48275;} do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_F2,_SUB_IDEUPDATEHELPBOX_STRING_F2->len- 4 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13583,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_N=*_SUB_IDEUPDATEHELPBOX_LONG_N+ 1 ; if(!qbevent)break;evnt(25224,13584,"ide_methods.bas");}while(r); do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Page title: ",12),_SUB_IDEUPDATEHELPBOX_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13585,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 1 ; if(!qbevent)break;evnt(25224,13586,"ide_methods.bas");}while(r); do{ *__LONG_HELP_RECACHING= 1 ; if(!qbevent)break;evnt(25224,13586,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_IGNORE,FUNC_WIKI(_SUB_IDEUPDATEHELPBOX_STRING_F2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13586,"ide_methods.bas");}while(r); do{ *__LONG_HELP_RECACHING= 0 ; if(!qbevent)break;evnt(25224,13586,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 0 ; if(!qbevent)break;evnt(25224,13586,"ide_methods.bas");}while(r); } }else{ do{ *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; if(!qbevent)break;evnt(25224,13589,"ide_methods.bas");}while(r); } sc_ec_264_end:; goto sc_5259_end; } S_48288:; if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 6 )))||new_error){ if(qbevent){evnt(25224,13591,"ide_methods.bas");if(r)goto S_48288;} LABEL_STOPRECACHE:; if(qbevent){evnt(25224,13592,"ide_methods.bas");r=0;} do{ tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_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(25224,13593,"ide_methods.bas");}while(r); do{ tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13594,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_BUTTONID)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*85+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(25224,13595,"ide_methods.bas");}while(r); sc_ec_265_end:; goto sc_5259_end; } sc_5259_end:; do{ *_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,13599,"ide_methods.bas");}while(r); do{ *_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,13600,"ide_methods.bas");}while(r); dl_continue_5246:; }while(1); dl_exit_5246:; 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* 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 "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_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,13607,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,13608,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13609,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13610,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13611,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEASCIIBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEASCIIBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,13612,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13613,"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(25224,13614,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13618,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_RELAUNCH= 0 ; if(!qbevent)break;evnt(25224,13619,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,13621,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) ),&(pass5278= 56 ),&(pass5279= 21 ),qbs_new_txt_len("ASCII Chart",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13622,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13624,"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]))*85+36))= 1 ; if(!qbevent)break;evnt(25224,13625,"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]))*85+24))= 3 ; if(!qbevent)break;evnt(25224,13626,"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]))*85+20))= 5 ; if(!qbevent)break;evnt(25224,13627,"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]))*85+28))= 5 ; if(!qbevent)break;evnt(25224,13628,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&2){ error(10); }else{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&1){ error(10); }else{ _FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4]= 1 ; _FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]=( 255 )-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4]+1; _FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[6]=1; _FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]=(ptrszint)malloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]*96/8+1); if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]) error(257); _FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]|=1; 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(25224,13635,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_A= 0 ; if(!qbevent)break;evnt(25224,13637,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_X= 5 ; if(!qbevent)break;evnt(25224,13638,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_Y= 2 ; if(!qbevent)break;evnt(25224,13639,"ide_methods.bas");}while(r); S_48317:; fornext_value5281= 0 ; fornext_finalvalue5281= 15 ; fornext_step5281= 1 ; if (fornext_step5281<0) fornext_step_negative5281=1; else fornext_step_negative5281=0; if (new_error) goto fornext_error5281; goto fornext_entrylabel5281; while(1){ fornext_value5281=fornext_step5281+(*_FUNC_IDEASCIIBOX_LONG_I); fornext_entrylabel5281: *_FUNC_IDEASCIIBOX_LONG_I=fornext_value5281; if (fornext_step_negative5281){ if (fornext_value5281fornext_finalvalue5281) break; } fornext_error5281:; if(qbevent){evnt(25224,13640,"ide_methods.bas");if(r)goto S_48317;} S_48318:; fornext_value5283= 0 ; fornext_finalvalue5283= 15 ; fornext_step5283= 1 ; if (fornext_step5283<0) fornext_step_negative5283=1; else fornext_step_negative5283=0; if (new_error) goto fornext_error5283; goto fornext_entrylabel5283; while(1){ fornext_value5283=fornext_step5283+(*_FUNC_IDEASCIIBOX_LONG_J); fornext_entrylabel5283: *_FUNC_IDEASCIIBOX_LONG_J=fornext_value5283; if (fornext_step_negative5283){ if (fornext_value5283fornext_finalvalue5283) break; } fornext_error5283:; if(qbevent){evnt(25224,13641,"ide_methods.bas");if(r)goto S_48318;} do{ *_FUNC_IDEASCIIBOX_LONG_A=*_FUNC_IDEASCIIBOX_LONG_A+ 1 ; if(!qbevent)break;evnt(25224,13642,"ide_methods.bas");}while(r); S_48320:; if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ if(qbevent){evnt(25224,13643,"ide_methods.bas");if(r)goto S_48320;} do{ goto fornext_exit_5282; if(!qbevent)break;evnt(25224,13643,"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(25224,13644,"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(25224,13645,"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(25224,13646,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_X=*_FUNC_IDEASCIIBOX_LONG_X+ 3 ; if(!qbevent)break;evnt(25224,13647,"ide_methods.bas");}while(r); fornext_continue_5282:; } fornext_exit_5282:; S_48328:; if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ if(qbevent){evnt(25224,13649,"ide_methods.bas");if(r)goto S_48328;} do{ goto fornext_exit_5280; if(!qbevent)break;evnt(25224,13649,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_X= 5 ; if(!qbevent)break;evnt(25224,13650,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_Y=*_FUNC_IDEASCIIBOX_LONG_Y+ 1 ; if(!qbevent)break;evnt(25224,13651,"ide_methods.bas");}while(r); fornext_continue_5280:; } fornext_exit_5280:; do{ *_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13654,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,13655,"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]))*85+24))= 21 ; if(!qbevent)break;evnt(25224,13656,"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]))*85+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(25224,13657,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,13658,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; if(!qbevent)break;evnt(25224,13660,"ide_methods.bas");}while(r); S_48340:; 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_IDEASCIIBOX_LONG_I); fornext_entrylabel5285: *_FUNC_IDEASCIIBOX_LONG_I=fornext_value5285; if (fornext_step_negative5285){ if (fornext_value5285fornext_finalvalue5285) break; } fornext_error5285:; if(qbevent){evnt(25224,13665,"ide_methods.bas");if(r)goto S_48340;} 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]))*85)+ 0,((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,13665,"ide_methods.bas");}while(r); fornext_continue_5284:; } fornext_exit_5284:; S_48343:; do{ if(qbevent){evnt(25224,13668,"ide_methods.bas");if(r)goto S_48343;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,13670,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13671,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,13671,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,13671,"ide_methods.bas");}while(r); S_48348:; 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_IDEASCIIBOX_LONG_I); fornext_entrylabel5288: *_FUNC_IDEASCIIBOX_LONG_I=fornext_value5288; if (fornext_step_negative5288){ if (fornext_value5288fornext_finalvalue5288) break; } fornext_error5288:; if(qbevent){evnt(25224,13672,"ide_methods.bas");if(r)goto S_48348;} S_48349:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,13673,"ide_methods.bas");if(r)goto S_48349;} 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]))*85+60))=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; if(!qbevent)break;evnt(25224,13675,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,13676,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,13676,"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]))*85) ),_FUNC_IDEASCIIBOX_LONG_F); if(!qbevent)break;evnt(25224,13677,"ide_methods.bas");}while(r); S_48354:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,13678,"ide_methods.bas");if(r)goto S_48354;} 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]))*85+52)); if(!qbevent)break;evnt(25224,13678,"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]))*85+56)); if(!qbevent)break;evnt(25224,13678,"ide_methods.bas");}while(r); } } fornext_continue_5287:; } fornext_exit_5287:; do{ *_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=*_FUNC_IDEASCIIBOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,13681,"ide_methods.bas");}while(r); S_48361:; if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,13685,"ide_methods.bas");if(r)goto S_48361;} do{ SUB_IDEBOX(&(pass5289=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 4 ),&(pass5290=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 1 ),&(pass5291= 50 ),&(pass5292= 18 )); if(!qbevent)break;evnt(25224,13686,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_HOVER= 0 ; if(!qbevent)break;evnt(25224,13689,"ide_methods.bas");}while(r); S_48365:; fornext_value5294= 1 ; fornext_finalvalue5294= 255 ; 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+(*_FUNC_IDEASCIIBOX_LONG_I); fornext_entrylabel5294: *_FUNC_IDEASCIIBOX_LONG_I=fornext_value5294; if (fornext_step_negative5294){ if (fornext_value5294fornext_finalvalue5294) break; } fornext_error5294:; if(qbevent){evnt(25224,13690,"ide_methods.bas");if(r)goto S_48365;} S_48366:; 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(25224,13691,"ide_methods.bas");if(r)goto S_48366;} S_48367:; if ((*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED)||new_error){ if(qbevent){evnt(25224,13692,"ide_methods.bas");if(r)goto S_48367;} do{ *_FUNC_IDEASCIIBOX_LONG_HOVER=*_FUNC_IDEASCIIBOX_LONG_I; if(!qbevent)break;evnt(25224,13692,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,13692,"ide_methods.bas");}while(r); } S_48371:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,13693,"ide_methods.bas");if(r)goto S_48371;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_I; if(!qbevent)break;evnt(25224,13694,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13695,"ide_methods.bas");}while(r); S_48374:; 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(25224,13696,"ide_methods.bas");if(r)goto S_48374;} do{ *_FUNC_IDEASCIIBOX_LONG_RELAUNCH= -1 ; if(!qbevent)break;evnt(25224,13698,"ide_methods.bas");}while(r); do{ goto LABEL_INSERTCHAR; if(!qbevent)break;evnt(25224,13699,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=func_timer(NULL,0); if(!qbevent)break;evnt(25224,13701,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=*_FUNC_IDEASCIIBOX_LONG_I; if(!qbevent)break;evnt(25224,13702,"ide_methods.bas");}while(r); } }else{ do{ qbg_sub_color( 2 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13705,"ide_methods.bas");}while(r); } S_48384:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED==*_FUNC_IDEASCIIBOX_LONG_I))||new_error){ if(qbevent){evnt(25224,13707,"ide_methods.bas");if(r)goto S_48384;} do{ qbg_sub_color( 15 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,13707,"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(25224,13708,"ide_methods.bas");}while(r); fornext_continue_5293:; } fornext_exit_5293:; do{ qbg_sub_color( 0 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13711,"ide_methods.bas");}while(r); S_48390:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 ))||new_error){ if(qbevent){evnt(25224,13712,"ide_methods.bas");if(r)goto S_48390;} 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(25224,13713,"ide_methods.bas");}while(r); } do{ qbg_sub_color( 2 , 7 ,NULL,3); if(!qbevent)break;evnt(25224,13716,"ide_methods.bas");}while(r); S_48394:; if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER> 0 ))&(-(*_FUNC_IDEASCIIBOX_LONG_HOVER!=*_FUNC_IDEASCIIBOX_LONG_SELECTED)))||new_error){ if(qbevent){evnt(25224,13717,"ide_methods.bas");if(r)goto S_48394;} 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(25224,13718,"ide_methods.bas");}while(r); } do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,13724,"ide_methods.bas");}while(r); S_48398:; if ((*_FUNC_IDEASCIIBOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,13725,"ide_methods.bas");if(r)goto S_48398;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13726,"ide_methods.bas");}while(r); S_48400:; if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,13727,"ide_methods.bas");if(r)goto S_48400;} S_48401:; if ((*_FUNC_IDEASCIIBOX_LONG_SELECTED)||new_error){ if(qbevent){evnt(25224,13728,"ide_methods.bas");if(r)goto S_48401;} 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(25224,13729,"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(25224,13732,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13734,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,13738,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= 0 ; if(!qbevent)break;evnt(25224,13739,"ide_methods.bas");}while(r); S_48411:; do{ if(qbevent){evnt(25224,13740,"ide_methods.bas");if(r)goto S_48411;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,13741,"ide_methods.bas");}while(r); S_48413:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,13742,"ide_methods.bas");if(r)goto S_48413;} do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13742,"ide_methods.bas");}while(r); } S_48416:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,13743,"ide_methods.bas");if(r)goto S_48416;} do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13743,"ide_methods.bas");}while(r); } S_48419:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,13744,"ide_methods.bas");if(r)goto S_48419;} do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,13744,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13744,"ide_methods.bas");}while(r); } S_48423:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,13745,"ide_methods.bas");if(r)goto S_48423;} do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,13745,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13745,"ide_methods.bas");}while(r); } S_48427:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,13746,"ide_methods.bas");if(r)goto S_48427;} do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13746,"ide_methods.bas");}while(r); } S_48430:; 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(25224,13747,"ide_methods.bas");if(r)goto S_48430;} do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13747,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; if(!qbevent)break;evnt(25224,13747,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; if(!qbevent)break;evnt(25224,13747,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= -1 ; if(!qbevent)break;evnt(25224,13747,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,13748,"ide_methods.bas");}while(r); S_48437:; if ((-(*_FUNC_IDEASCIIBOX_LONG_ALT!=*_FUNC_IDEASCIIBOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,13748,"ide_methods.bas");if(r)goto S_48437;} do{ *_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13748,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_OLDALT=*_FUNC_IDEASCIIBOX_LONG_ALT; if(!qbevent)break;evnt(25224,13749,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,13750,"ide_methods.bas");}while(r); S_48442:; dl_continue_5295:; }while((!(*_FUNC_IDEASCIIBOX_LONG_CHANGE))&&(!new_error)); dl_exit_5295:; if(qbevent){evnt(25224,13751,"ide_methods.bas");if(r)goto S_48442;} S_48443:; if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13752,"ide_methods.bas");if(r)goto S_48443;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,13752,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,13752,"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(25224,13754,"ide_methods.bas");}while(r); S_48449:; if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13755,"ide_methods.bas");if(r)goto S_48449;} S_48450:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,13756,"ide_methods.bas");if(r)goto S_48450;} do{ *_FUNC_IDEASCIIBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13757,"ide_methods.bas");}while(r); S_48452:; if (((-(*_FUNC_IDEASCIIBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEASCIIBOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,13758,"ide_methods.bas");if(r)goto S_48452;} do{ qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEASCIIBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13758,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13761,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,13761,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13761,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,13765,"ide_methods.bas");}while(r); S_48461:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,13766,"ide_methods.bas");if(r)goto S_48461;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13766,"ide_methods.bas");}while(r); } S_48464:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,13767,"ide_methods.bas");if(r)goto S_48464;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,13767,"ide_methods.bas");}while(r); } S_48467:; 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(25224,13768,"ide_methods.bas");if(r)goto S_48467;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,13768,"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(25224,13768,"ide_methods.bas");}while(r); } S_48471:; if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,13769,"ide_methods.bas");if(r)goto S_48471;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,13769,"ide_methods.bas");}while(r); } S_48474:; if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS>*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,13770,"ide_methods.bas");if(r)goto S_48474;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13770,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEASCIIBOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13771,"ide_methods.bas");}while(r); S_48478:; fornext_value5298= 1 ; fornext_finalvalue5298= 100 ; 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+(*_FUNC_IDEASCIIBOX_LONG_I); fornext_entrylabel5298: *_FUNC_IDEASCIIBOX_LONG_I=fornext_value5298; if (fornext_step_negative5298){ if (fornext_value5298fornext_finalvalue5298) break; } fornext_error5298:; if(qbevent){evnt(25224,13772,"ide_methods.bas");if(r)goto S_48478;} 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]))*85+36)); if(!qbevent)break;evnt(25224,13773,"ide_methods.bas");}while(r); S_48480:; if ((*_FUNC_IDEASCIIBOX_LONG_T)||new_error){ if(qbevent){evnt(25224,13774,"ide_methods.bas");if(r)goto S_48480;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; if(!qbevent)break;evnt(25224,13775,"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]))*85) ),_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(25224,13776,"ide_methods.bas");}while(r); } fornext_continue_5297:; } fornext_exit_5297:; S_48485:; 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(25224,13781,"ide_methods.bas");if(r)goto S_48485;} S_48486:; if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER== 0 ))&*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,13782,"ide_methods.bas");if(r)goto S_48486;} do{ *_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13782,"ide_methods.bas");}while(r); } } S_48490:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 )))))||new_error){ if(qbevent){evnt(25224,13785,"ide_methods.bas");if(r)goto S_48490;} do{ goto LABEL_INSERTCHAR; if(!qbevent)break;evnt(25224,13786,"ide_methods.bas");}while(r); } S_48493:; 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(25224,13789,"ide_methods.bas");if(r)goto S_48493;} LABEL_INSERTCHAR:; if(qbevent){evnt(25224,13790,"ide_methods.bas");r=0;} S_48494:; if (((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 32 ))&(-(*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN== 0 )))||new_error){ if(qbevent){evnt(25224,13791,"ide_methods.bas");if(r)goto S_48494;} do{ *_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN= -1 ; if(!qbevent)break;evnt(25224,13792,"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(25224,13793,"ide_methods.bas");}while(r); S_48497:; if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 2 ))||new_error){ if(qbevent){evnt(25224,13794,"ide_methods.bas");if(r)goto S_48497;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13794,"ide_methods.bas");}while(r); } S_48500:; if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 3 ))||new_error){ if(qbevent){evnt(25224,13795,"ide_methods.bas");if(r)goto S_48500;} do{ goto LABEL_DLGLOOP; if(!qbevent)break;evnt(25224,13795,"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(25224,13797,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13798,"ide_methods.bas");}while(r); } S_48507:; 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(25224,13801,"ide_methods.bas");if(r)goto S_48507;} 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(25224,13802,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13803,"ide_methods.bas");}while(r); } S_48511:; 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(25224,13807,"ide_methods.bas");if(r)goto S_48511;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13807,"ide_methods.bas");}while(r); } S_48514:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ if(qbevent){evnt(25224,13809,"ide_methods.bas");if(r)goto S_48514;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13809,"ide_methods.bas");}while(r); } S_48517:; if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ if(qbevent){evnt(25224,13811,"ide_methods.bas");if(r)goto S_48517;} do{ *__LONG_KCTRL=func__keydown( 100305 )|func__keydown( 100306 ); if(!qbevent)break;evnt(25224,13812,"ide_methods.bas");}while(r); S_48519:; if(qbevent){evnt(25224,13813,"ide_methods.bas");if(r)goto S_48519;} S_48520:; if (((*__LONG_KB==( 18176 )))||new_error){ if(qbevent){evnt(25224,13814,"ide_methods.bas");if(r)goto S_48520;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; if(!qbevent)break;evnt(25224,13814,"ide_methods.bas");}while(r); sc_ec_266_end:; goto sc_5299_end; } S_48522:; if (((*__LONG_KB==( 20224 )))||new_error){ if(qbevent){evnt(25224,13815,"ide_methods.bas");if(r)goto S_48522;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; if(!qbevent)break;evnt(25224,13815,"ide_methods.bas");}while(r); sc_ec_267_end:; goto sc_5299_end; } S_48524:; if (((*__LONG_KB==( 19712 )))||new_error){ if(qbevent){evnt(25224,13816,"ide_methods.bas");if(r)goto S_48524;} S_48525:; if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ if(qbevent){evnt(25224,13817,"ide_methods.bas");if(r)goto S_48525;} S_48526:; while((!((-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 0 )))|(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 255 ))))||new_error){ if(qbevent){evnt(25224,13818,"ide_methods.bas");if(r)goto S_48526;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; if(!qbevent)break;evnt(25224,13819,"ide_methods.bas");}while(r); dl_continue_5300:; } dl_exit_5300:; }else{ do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; if(!qbevent)break;evnt(25224,13822,"ide_methods.bas");}while(r); } S_48532:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ if(qbevent){evnt(25224,13824,"ide_methods.bas");if(r)goto S_48532;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; if(!qbevent)break;evnt(25224,13824,"ide_methods.bas");}while(r); } sc_ec_268_end:; goto sc_5299_end; } S_48535:; if (((*__LONG_KB==( 19200 )))||new_error){ if(qbevent){evnt(25224,13825,"ide_methods.bas");if(r)goto S_48535;} S_48536:; if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ if(qbevent){evnt(25224,13826,"ide_methods.bas");if(r)goto S_48536;} S_48537:; while((!(-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 1 ))))||new_error){ if(qbevent){evnt(25224,13827,"ide_methods.bas");if(r)goto S_48537;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; if(!qbevent)break;evnt(25224,13828,"ide_methods.bas");}while(r); dl_continue_5301:; } dl_exit_5301:; }else{ do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; if(!qbevent)break;evnt(25224,13831,"ide_methods.bas");}while(r); } S_48543:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ if(qbevent){evnt(25224,13833,"ide_methods.bas");if(r)goto S_48543;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; if(!qbevent)break;evnt(25224,13833,"ide_methods.bas");}while(r); } sc_ec_269_end:; goto sc_5299_end; } S_48546:; if (((*__LONG_KB==( 20480 )))||new_error){ if(qbevent){evnt(25224,13834,"ide_methods.bas");if(r)goto S_48546;} S_48547:; if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ if(qbevent){evnt(25224,13835,"ide_methods.bas");if(r)goto S_48547;} S_48548:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ if(qbevent){evnt(25224,13836,"ide_methods.bas");if(r)goto S_48548;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; if(!qbevent)break;evnt(25224,13837,"ide_methods.bas");}while(r); }else{ S_48551:; while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED>= 240 )))||new_error){ if(qbevent){evnt(25224,13839,"ide_methods.bas");if(r)goto S_48551;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; if(!qbevent)break;evnt(25224,13840,"ide_methods.bas");}while(r); dl_continue_5302:; } dl_exit_5302:; } S_48555:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ if(qbevent){evnt(25224,13843,"ide_methods.bas");if(r)goto S_48555;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; if(!qbevent)break;evnt(25224,13843,"ide_methods.bas");}while(r); } }else{ S_48559:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ if(qbevent){evnt(25224,13845,"ide_methods.bas");if(r)goto S_48559;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; if(!qbevent)break;evnt(25224,13847,"ide_methods.bas");}while(r); S_48561:; }else{ if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 )<=( 255 ))){ if(qbevent){evnt(25224,13848,"ide_methods.bas");if(r)goto S_48561;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; if(!qbevent)break;evnt(25224,13849,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 - 256 ; if(!qbevent)break;evnt(25224,13851,"ide_methods.bas");}while(r); } } } sc_ec_270_end:; goto sc_5299_end; } S_48567:; if (((*__LONG_KB==( 18432 )))||new_error){ if(qbevent){evnt(25224,13854,"ide_methods.bas");if(r)goto S_48567;} S_48568:; if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ if(qbevent){evnt(25224,13855,"ide_methods.bas");if(r)goto S_48568;} S_48569:; while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED<= 16 )))||new_error){ if(qbevent){evnt(25224,13856,"ide_methods.bas");if(r)goto S_48569;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; if(!qbevent)break;evnt(25224,13857,"ide_methods.bas");}while(r); dl_continue_5303:; } dl_exit_5303:; S_48572:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ if(qbevent){evnt(25224,13859,"ide_methods.bas");if(r)goto S_48572;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; if(!qbevent)break;evnt(25224,13859,"ide_methods.bas");}while(r); } }else{ S_48576:; if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 16 ))||new_error){ if(qbevent){evnt(25224,13861,"ide_methods.bas");if(r)goto S_48576;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED= 240 ; if(!qbevent)break;evnt(25224,13863,"ide_methods.bas");}while(r); S_48578:; }else{ if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 )>=( 1 ))){ if(qbevent){evnt(25224,13864,"ide_methods.bas");if(r)goto S_48578;} do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; if(!qbevent)break;evnt(25224,13865,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 + 256 ; if(!qbevent)break;evnt(25224,13867,"ide_methods.bas");}while(r); } } } sc_ec_271_end:; goto sc_5299_end; } sc_5299_end:; } do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,13874,"ide_methods.bas");}while(r); do{ *_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,13875,"ide_methods.bas");}while(r); LABEL_DLGLOOP:; if(qbevent){evnt(25224,13877,"ide_methods.bas");r=0;} dl_continue_5286:; }while(1); dl_exit_5286:; 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; 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 "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; do{ sub_pcopy( 0 , 2 ); if(!qbevent)break;evnt(25224,13886,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); if(!qbevent)break;evnt(25224,13887,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13888,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13889,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13890,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&1){ error(10); }else{ _FUNC_IDEF1BOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEF1BOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4]+1; _FUNC_IDEF1BOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&4){ _FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1); memset((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0]),0,_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1); }else{ _FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1,1); if (!_FUNC_IDEF1BOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEF1BOX_ARRAY_UDT_O[2]|=1; } } if(!qbevent)break;evnt(25224,13891,"ide_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,13892,"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(25224,13893,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I= 0 ; if(!qbevent)break;evnt(25224,13900,"ide_methods.bas");}while(r); do{ SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) ),&(pass5305= 40 ),&(pass5306=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("Contextual help",15)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13901,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13903,"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]))*85+36))= 2 ; if(!qbevent)break;evnt(25224,13904,"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]))*85+24))= 1 ; if(!qbevent)break;evnt(25224,13905,"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]))*85+28))= 36 ; if(!qbevent)break;evnt(25224,13907,"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]))*85+32))=*_FUNC_IDEF1BOX_LONG_LNKS; if(!qbevent)break;evnt(25224,13907,"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]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS); if(!qbevent)break;evnt(25224,13908,"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]))*85+64))= 1 ; if(!qbevent)break;evnt(25224,13909,"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]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6)); if(!qbevent)break;evnt(25224,13910,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,13912,"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]))*85+36))= 3 ; if(!qbevent)break;evnt(25224,13913,"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]))*85+24))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ; if(!qbevent)break;evnt(25224,13914,"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]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); if(!qbevent)break;evnt(25224,13915,"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]))*85+48))= 1 ; if(!qbevent)break;evnt(25224,13916,"ide_methods.bas");}while(r); S_48612:; fornext_value5308= 1 ; fornext_finalvalue5308= 100 ; fornext_step5308= 1 ; if (fornext_step5308<0) fornext_step_negative5308=1; else fornext_step_negative5308=0; if (new_error) goto fornext_error5308; goto fornext_entrylabel5308; while(1){ fornext_value5308=fornext_step5308+(*_FUNC_IDEF1BOX_LONG_I); fornext_entrylabel5308: *_FUNC_IDEF1BOX_LONG_I=fornext_value5308; if (fornext_step_negative5308){ if (fornext_value5308fornext_finalvalue5308) break; } fornext_error5308:; if(qbevent){evnt(25224,13921,"ide_methods.bas");if(r)goto S_48612;} 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]))*85)+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+(0)+ 0, 20); if(!qbevent)break;evnt(25224,13921,"ide_methods.bas");}while(r); fornext_continue_5307:; } fornext_exit_5307:; S_48615:; do{ if(qbevent){evnt(25224,13924,"ide_methods.bas");if(r)goto S_48615;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) )); if(!qbevent)break;evnt(25224,13927,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13928,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CX= 0 ; if(!qbevent)break;evnt(25224,13928,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CY= 0 ; if(!qbevent)break;evnt(25224,13928,"ide_methods.bas");}while(r); S_48620:; fornext_value5311= 1 ; fornext_finalvalue5311= 100 ; fornext_step5311= 1 ; if (fornext_step5311<0) fornext_step_negative5311=1; else fornext_step_negative5311=0; if (new_error) goto fornext_error5311; goto fornext_entrylabel5311; while(1){ fornext_value5311=fornext_step5311+(*_FUNC_IDEF1BOX_LONG_I); fornext_entrylabel5311: *_FUNC_IDEF1BOX_LONG_I=fornext_value5311; if (fornext_step_negative5311){ if (fornext_value5311fornext_finalvalue5311) break; } fornext_error5311:; if(qbevent){evnt(25224,13929,"ide_methods.bas");if(r)goto S_48620;} S_48621:; 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]))*85+36)))||new_error){ if(qbevent){evnt(25224,13930,"ide_methods.bas");if(r)goto S_48621;} 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]))*85+60))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; if(!qbevent)break;evnt(25224,13933,"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]))*85+52))= 0 ; if(!qbevent)break;evnt(25224,13934,"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]))*85+56))= 0 ; if(!qbevent)break;evnt(25224,13934,"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]))*85) ),_FUNC_IDEF1BOX_LONG_F); if(!qbevent)break;evnt(25224,13935,"ide_methods.bas");}while(r); S_48626:; 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]))*85+52)))||new_error){ if(qbevent){evnt(25224,13936,"ide_methods.bas");if(r)goto S_48626;} 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]))*85+52)); if(!qbevent)break;evnt(25224,13936,"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]))*85+56)); if(!qbevent)break;evnt(25224,13936,"ide_methods.bas");}while(r); } } fornext_continue_5310:; } fornext_exit_5310:; do{ *_FUNC_IDEF1BOX_LONG_LASTFOCUS=*_FUNC_IDEF1BOX_LONG_F- 1 ; if(!qbevent)break;evnt(25224,13939,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); if(!qbevent)break;evnt(25224,13946,"ide_methods.bas");}while(r); S_48634:; if ((*_FUNC_IDEF1BOX_LONG_CX)||new_error){ if(qbevent){evnt(25224,13947,"ide_methods.bas");if(r)goto S_48634;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13947,"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(25224,13947,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13947,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 0 ; if(!qbevent)break;evnt(25224,13950,"ide_methods.bas");}while(r); S_48640:; do{ if(qbevent){evnt(25224,13951,"ide_methods.bas");if(r)goto S_48640;} do{ SUB_GETINPUT(); if(!qbevent)break;evnt(25224,13952,"ide_methods.bas");}while(r); S_48642:; if ((*__LONG_MWHEEL)||new_error){ if(qbevent){evnt(25224,13953,"ide_methods.bas");if(r)goto S_48642;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13953,"ide_methods.bas");}while(r); } S_48645:; if ((*__LONG_KB)||new_error){ if(qbevent){evnt(25224,13954,"ide_methods.bas");if(r)goto S_48645;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13954,"ide_methods.bas");}while(r); } S_48648:; if ((*__LONG_MCLICK)||new_error){ if(qbevent){evnt(25224,13955,"ide_methods.bas");if(r)goto S_48648;} do{ *_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 1 ; if(!qbevent)break;evnt(25224,13955,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13955,"ide_methods.bas");}while(r); } S_48652:; if ((*__LONG_MRELEASE)||new_error){ if(qbevent){evnt(25224,13956,"ide_methods.bas");if(r)goto S_48652;} do{ *_FUNC_IDEF1BOX_LONG_MOUSEUP= 1 ; if(!qbevent)break;evnt(25224,13956,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13956,"ide_methods.bas");}while(r); } S_48656:; if ((*__LONG_MB)||new_error){ if(qbevent){evnt(25224,13957,"ide_methods.bas");if(r)goto S_48656;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13957,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_ALT=*__LONG_KALT; if(!qbevent)break;evnt(25224,13958,"ide_methods.bas");}while(r); S_48660:; if ((-(*_FUNC_IDEF1BOX_LONG_ALT!=*_FUNC_IDEF1BOX_LONG_OLDALT))||new_error){ if(qbevent){evnt(25224,13958,"ide_methods.bas");if(r)goto S_48660;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; if(!qbevent)break;evnt(25224,13958,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_OLDALT=*_FUNC_IDEF1BOX_LONG_ALT; if(!qbevent)break;evnt(25224,13959,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,13960,"ide_methods.bas");}while(r); S_48665:; dl_continue_5312:; }while((!(*_FUNC_IDEF1BOX_LONG_CHANGE))&&(!new_error)); dl_exit_5312:; if(qbevent){evnt(25224,13961,"ide_methods.bas");if(r)goto S_48665;} S_48666:; if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13962,"ide_methods.bas");if(r)goto S_48666;} do{ *__LONG_IDEHL= 1 ; if(!qbevent)break;evnt(25224,13962,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; if(!qbevent)break;evnt(25224,13962,"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(25224,13964,"ide_methods.bas");}while(r); S_48672:; if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ if(qbevent){evnt(25224,13965,"ide_methods.bas");if(r)goto S_48672;} S_48673:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ if(qbevent){evnt(25224,13966,"ide_methods.bas");if(r)goto S_48673;} do{ *_FUNC_IDEF1BOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13967,"ide_methods.bas");}while(r); S_48675:; if (((-(*_FUNC_IDEF1BOX_LONG_K>= 65 ))&(-(*_FUNC_IDEF1BOX_LONG_K<= 90 )))||new_error){ if(qbevent){evnt(25224,13968,"ide_methods.bas");if(r)goto S_48675;} do{ qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEF1BOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13968,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13971,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,13971,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,13971,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_INFO= 0 ; if(!qbevent)break;evnt(25224,13975,"ide_methods.bas");}while(r); S_48684:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ if(qbevent){evnt(25224,13976,"ide_methods.bas");if(r)goto S_48684;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13976,"ide_methods.bas");}while(r); } S_48687:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ if(qbevent){evnt(25224,13977,"ide_methods.bas");if(r)goto S_48687;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS+ 1 ; if(!qbevent)break;evnt(25224,13977,"ide_methods.bas");}while(r); } S_48690:; 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(25224,13978,"ide_methods.bas");if(r)goto S_48690;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS- 1 ; if(!qbevent)break;evnt(25224,13978,"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(25224,13978,"ide_methods.bas");}while(r); } S_48694:; if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS< 1 ))||new_error){ if(qbevent){evnt(25224,13979,"ide_methods.bas");if(r)goto S_48694;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_LASTFOCUS; if(!qbevent)break;evnt(25224,13979,"ide_methods.bas");}while(r); } S_48697:; if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS>*_FUNC_IDEF1BOX_LONG_LASTFOCUS))||new_error){ if(qbevent){evnt(25224,13980,"ide_methods.bas");if(r)goto S_48697;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; if(!qbevent)break;evnt(25224,13980,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_F= 1 ; if(!qbevent)break;evnt(25224,13981,"ide_methods.bas");}while(r); S_48701:; fornext_value5315= 1 ; fornext_finalvalue5315= 100 ; fornext_step5315= 1 ; if (fornext_step5315<0) fornext_step_negative5315=1; else fornext_step_negative5315=0; if (new_error) goto fornext_error5315; goto fornext_entrylabel5315; while(1){ fornext_value5315=fornext_step5315+(*_FUNC_IDEF1BOX_LONG_I); fornext_entrylabel5315: *_FUNC_IDEF1BOX_LONG_I=fornext_value5315; if (fornext_step_negative5315){ if (fornext_value5315fornext_finalvalue5315) break; } fornext_error5315:; if(qbevent){evnt(25224,13982,"ide_methods.bas");if(r)goto S_48701;} 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]))*85+36)); if(!qbevent)break;evnt(25224,13983,"ide_methods.bas");}while(r); S_48703:; if ((*_FUNC_IDEF1BOX_LONG_T)||new_error){ if(qbevent){evnt(25224,13984,"ide_methods.bas");if(r)goto S_48703;} do{ *_FUNC_IDEF1BOX_LONG_FOCUSOFFSET=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; if(!qbevent)break;evnt(25224,13985,"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]))*85) ),_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(25224,13986,"ide_methods.bas");}while(r); } fornext_continue_5314:; } fornext_exit_5314:; S_48708:; 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(25224,13991,"ide_methods.bas");if(r)goto S_48708;} 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]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13992,"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(25224,13993,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13994,"ide_methods.bas");}while(r); S_48712:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 )))){ if(qbevent){evnt(25224,13995,"ide_methods.bas");if(r)goto S_48712;} do{ qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,13996,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,13997,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 0 ; if(!qbevent)break;evnt(25224,14001,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_MOUSEUP= 0 ; if(!qbevent)break;evnt(25224,14002,"ide_methods.bas");}while(r); dl_continue_5309:; }while(1); dl_exit_5309:; 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_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 "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; S_48719:; fornext_value5317=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1)+ 1 ; fornext_finalvalue5317=func_ubound(_SUB_SORT_ARRAY_STRING998_ARR,1,1); fornext_step5317= 1 ; if (fornext_step5317<0) fornext_step_negative5317=1; else fornext_step_negative5317=0; if (new_error) goto fornext_error5317; goto fornext_entrylabel5317; while(1){ fornext_value5317=fornext_step5317+(*_SUB_SORT_LONG_I); fornext_entrylabel5317: *_SUB_SORT_LONG_I=fornext_value5317; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5317){ if (fornext_value5317fornext_finalvalue5317) break; } fornext_error5317:; if(qbevent){evnt(25224,14011,"ide_methods.bas");if(r)goto S_48719;} 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(25224,14012,"ide_methods.bas");}while(r); do{ *_SUB_SORT_LONG_J=*_SUB_SORT_LONG_I- 1 ; if(!qbevent)break;evnt(25224,14013,"ide_methods.bas");}while(r); S_48722:; while((qbs_cleanup(qbs_tmp_base,-(*_SUB_SORT_LONG_J>=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1))))||new_error){ if(qbevent){evnt(25224,14014,"ide_methods.bas");if(r)goto S_48722;} S_48723:; 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(25224,14015,"ide_methods.bas");if(r)goto S_48723;} do{ goto ww_exit_5318; if(!qbevent)break;evnt(25224,14015,"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(25224,14016,"ide_methods.bas");}while(r); do{ *_SUB_SORT_LONG_J=*_SUB_SORT_LONG_J- 1 ; if(!qbevent)break;evnt(25224,14017,"ide_methods.bas");}while(r); ww_continue_5318:; } ww_exit_5318:; 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(25224,14019,"ide_methods.bas");}while(r); fornext_continue_5316:; } fornext_exit_5316:; 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* 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 "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; do{ if(!qbevent)break;evnt(25224,14027,"ide_methods.bas");}while(r); S_48732:; fornext_value5320= 1 ; fornext_finalvalue5320=*__LONG_IDEN; fornext_step5320= 1 ; if (fornext_step5320<0) fornext_step_negative5320=1; else fornext_step_negative5320=0; if (new_error) goto fornext_error5320; goto fornext_entrylabel5320; while(1){ fornext_value5320=fornext_step5320+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); fornext_entrylabel5320: *_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value5320; if (fornext_step_negative5320){ if (fornext_value5320fornext_finalvalue5320) break; } fornext_error5320:; if(qbevent){evnt(25224,14028,"ide_methods.bas");if(r)goto S_48732;} do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDPROPOSEDTITLE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14029,"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(25224,14030,"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(25224,14031,"ide_methods.bas");}while(r); S_48736:; if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE> 0 ))||new_error){ if(qbevent){evnt(25224,14032,"ide_methods.bas");if(r)goto S_48736;} 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(25224,14033,"ide_methods.bas");}while(r); S_48738:; if ((~(*_FUNC_FINDPROPOSEDTITLE_BYTE_Q))||new_error){ if(qbevent){evnt(25224,14034,"ide_methods.bas");if(r)goto S_48738;} do{ *_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE=func_instr(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,func_chr( 34 ),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14035,"ide_methods.bas");}while(r); S_48740:; if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE> 0 ))||new_error){ if(qbevent){evnt(25224,14036,"ide_methods.bas");if(r)goto S_48740;} 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14037,"ide_methods.bas");}while(r); } do{ goto fornext_exit_5319; if(!qbevent)break;evnt(25224,14039,"ide_methods.bas");}while(r); } } fornext_continue_5319:; } fornext_exit_5319:; 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(25224,14044,"ide_methods.bas");}while(r); S_48748:; fornext_value5322= 1 ; fornext_finalvalue5322=_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE->len; fornext_step5322= 1 ; if (fornext_step5322<0) fornext_step_negative5322=1; else fornext_step_negative5322=0; if (new_error) goto fornext_error5322; goto fornext_entrylabel5322; while(1){ fornext_value5322=fornext_step5322+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); fornext_entrylabel5322: *_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value5322; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5322){ if (fornext_value5322fornext_finalvalue5322) break; } fornext_error5322:; if(qbevent){evnt(25224,14045,"ide_methods.bas");if(r)goto S_48748;} do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,*_FUNC_FINDPROPOSEDTITLE_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14046,"ide_methods.bas");}while(r); S_48750:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,0)== 0 )))||new_error){ if(qbevent){evnt(25224,14047,"ide_methods.bas");if(r)goto S_48750;} 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(25224,14048,"ide_methods.bas");}while(r); } fornext_continue_5321:; } fornext_exit_5321:; 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(25224,14052,"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; 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 "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{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14060,"ide_methods.bas");}while(r); S_48756:; if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||new_error){ if(qbevent){evnt(25224,14061,"ide_methods.bas");if(r)goto S_48756;} S_48757:; fornext_value5325=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; fornext_finalvalue5325= 1 ; fornext_step5325= -1 ; if (fornext_step5325<0) fornext_step_negative5325=1; else fornext_step_negative5325=0; if (new_error) goto fornext_error5325; goto fornext_entrylabel5325; while(1){ fornext_value5325=fornext_step5325+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK); fornext_entrylabel5325: *_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value5325; if (fornext_step_negative5325){ if (fornext_value5325fornext_finalvalue5325) break; } fornext_error5325:; if(qbevent){evnt(25224,14062,"ide_methods.bas");if(r)goto S_48757;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14063,"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(25224,14064,"ide_methods.bas");}while(r); do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ; if(!qbevent)break;evnt(25224,14065,"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(25224,14066,"ide_methods.bas");}while(r); S_48762:; 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(25224,14067,"ide_methods.bas");if(r)goto S_48762;} do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ; if(!qbevent)break;evnt(25224,14067,"ide_methods.bas");}while(r); } S_48765:; 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(25224,14068,"ide_methods.bas");if(r)goto S_48765;} do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ; if(!qbevent)break;evnt(25224,14068,"ide_methods.bas");}while(r); } S_48768:; 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(25224,14069,"ide_methods.bas");if(r)goto S_48768;} do{ goto fornext_exit_5324; if(!qbevent)break;evnt(25224,14069,"ide_methods.bas");}while(r); } S_48771:; 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(25224,14070,"ide_methods.bas");if(r)goto S_48771;} do{ goto fornext_exit_5324; if(!qbevent)break;evnt(25224,14070,"ide_methods.bas");}while(r); } S_48774:; if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||new_error){ if(qbevent){evnt(25224,14071,"ide_methods.bas");if(r)goto S_48774;} S_48775:; 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(25224,14072,"ide_methods.bas");if(r)goto S_48775;} 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(25224,14073,"ide_methods.bas");}while(r); } S_48778:; if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||new_error){ if(qbevent){evnt(25224,14076,"ide_methods.bas");if(r)goto S_48778;} 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(25224,14077,"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(25224,14079,"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(25224,14081,"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(25224,14082,"ide_methods.bas");}while(r); S_48785:; if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||new_error){ if(qbevent){evnt(25224,14083,"ide_methods.bas");if(r)goto S_48785;} 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(25224,14084,"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(25224,14086,"ide_methods.bas");}while(r); } do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; if(!qbevent)break;evnt(25224,14091,"ide_methods.bas");}while(r); S_48791:; fornext_value5330=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK; fornext_finalvalue5330= 1 ; fornext_step5330= -1 ; if (fornext_step5330<0) fornext_step_negative5330=1; else fornext_step_negative5330=0; if (new_error) goto fornext_error5330; goto fornext_entrylabel5330; while(1){ fornext_value5330=fornext_step5330+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK); fornext_entrylabel5330: *_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value5330; if (fornext_step_negative5330){ if (fornext_value5330fornext_finalvalue5330) break; } fornext_error5330:; if(qbevent){evnt(25224,14092,"ide_methods.bas");if(r)goto S_48791;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14093,"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(25224,14094,"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(25224,14095,"ide_methods.bas");}while(r); S_48795:; 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(25224,14096,"ide_methods.bas");if(r)goto S_48795;} do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; if(!qbevent)break;evnt(25224,14096,"ide_methods.bas");}while(r); do{ goto fornext_exit_5329; if(!qbevent)break;evnt(25224,14096,"ide_methods.bas");}while(r); } S_48799:; 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(25224,14097,"ide_methods.bas");if(r)goto S_48799;} do{ goto fornext_exit_5329; if(!qbevent)break;evnt(25224,14097,"ide_methods.bas");}while(r); } fornext_continue_5329:; } fornext_exit_5329:; S_48803:; if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||new_error){ if(qbevent){evnt(25224,14100,"ide_methods.bas");if(r)goto S_48803;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14101,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ; if(!qbevent)break;evnt(25224,14107,"ide_methods.bas");}while(r); S_48807:; fornext_value5332=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; fornext_finalvalue5332=*__LONG_IDEN; fornext_step5332= 1 ; if (fornext_step5332<0) fornext_step_negative5332=1; else fornext_step_negative5332=0; if (new_error) goto fornext_error5332; goto fornext_entrylabel5332; while(1){ fornext_value5332=fornext_step5332+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK); fornext_entrylabel5332: *_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value5332; if (fornext_step_negative5332){ if (fornext_value5332fornext_finalvalue5332) break; } fornext_error5332:; if(qbevent){evnt(25224,14108,"ide_methods.bas");if(r)goto S_48807;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14109,"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(25224,14110,"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(25224,14111,"ide_methods.bas");}while(r); S_48811:; 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(25224,14112,"ide_methods.bas");if(r)goto S_48811;} do{ *_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; if(!qbevent)break;evnt(25224,14112,"ide_methods.bas");}while(r); do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14112,"ide_methods.bas");}while(r); } S_48815:; 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(25224,14113,"ide_methods.bas");if(r)goto S_48815;} do{ *_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; if(!qbevent)break;evnt(25224,14113,"ide_methods.bas");}while(r); do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14113,"ide_methods.bas");}while(r); } S_48819:; 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(25224,14114,"ide_methods.bas");if(r)goto S_48819;} do{ *_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; if(!qbevent)break;evnt(25224,14114,"ide_methods.bas");}while(r); do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14114,"ide_methods.bas");}while(r); } S_48823:; 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(25224,14115,"ide_methods.bas");if(r)goto S_48823;} do{ *_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; if(!qbevent)break;evnt(25224,14115,"ide_methods.bas");}while(r); do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14115,"ide_methods.bas");}while(r); } S_48827:; 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(25224,14116,"ide_methods.bas");if(r)goto S_48827;} do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14116,"ide_methods.bas");}while(r); } S_48830:; 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(25224,14117,"ide_methods.bas");if(r)goto S_48830;} do{ goto fornext_exit_5331; if(!qbevent)break;evnt(25224,14117,"ide_methods.bas");}while(r); } S_48833:; 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(25224,14118,"ide_methods.bas");if(r)goto S_48833;} do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; if(!qbevent)break;evnt(25224,14118,"ide_methods.bas");}while(r); } S_48836:; 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(25224,14119,"ide_methods.bas");if(r)goto S_48836;} do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; if(!qbevent)break;evnt(25224,14119,"ide_methods.bas");}while(r); } fornext_continue_5331:; } fornext_exit_5331:; S_48840:; if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||new_error){ if(qbevent){evnt(25224,14121,"ide_methods.bas");if(r)goto S_48840;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14121,"ide_methods.bas");}while(r); }else{ do{ goto fornext_exit_5324; if(!qbevent)break;evnt(25224,14121,"ide_methods.bas");}while(r); } } } fornext_continue_5324:; } fornext_exit_5324:; } do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14127,"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; qbs_maketmp(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF);return _FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF; } void SUB_ADDQUICKNAVHISTORY(int32*_SUB_ADDQUICKNAVHISTORY_LONG_LINENUMBER){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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; S_48850:; if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ if(qbevent){evnt(25224,14132,"ide_methods.bas");if(r)goto S_48850;} S_48851:; if ((-(((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]==*_SUB_ADDQUICKNAVHISTORY_LONG_LINENUMBER))||new_error){ if(qbevent){evnt(25224,14133,"ide_methods.bas");if(r)goto S_48851;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14133,"ide_methods.bas");}while(r); } } do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL+ 1 ; if(!qbevent)break;evnt(25224,14136,"ide_methods.bas");}while(r); do{ if (__ARRAY_LONG_QUICKNAVHISTORY[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_LONG_QUICKNAVHISTORY)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ preserved_elements=__ARRAY_LONG_QUICKNAVHISTORY[5]; } else preserved_elements=0; __ARRAY_LONG_QUICKNAVHISTORY[4]= 1 ; __ARRAY_LONG_QUICKNAVHISTORY[5]=(*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4]+1; __ARRAY_LONG_QUICKNAVHISTORY[6]=1; if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),preserved_elements*4); cmem_dynamic_free((uint8*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); tmp_long=__ARRAY_LONG_QUICKNAVHISTORY[5]; __ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); memcpy((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),redim_preserve_cmem_buffer,preserved_elements*4); if (preserved_elements=mem_static)&&(tmp_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 "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; S_48858:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEINFO->len))||new_error){ if(qbevent){evnt(25224,14144,"ide_methods.bas");if(r)goto S_48858;} S_48859:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_IDEINFO, 1 )== 0 )))||new_error){ if(qbevent){evnt(25224,14145,"ide_methods.bas");if(r)goto S_48859;} do{ qbs_set(__STRING_IDEINFO,func_mid(__STRING_IDEINFO, 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14147,"ide_methods.bas");}while(r); do{ *_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE=qbr_float_to_long(func_val(func_mid(__STRING_IDEINFO, 1 , 3 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14148,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,14149,"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(25224,14150,"ide_methods.bas");}while(r); } } do{ qbs_set(_SUB_UPDATEIDEINFO_STRING_A,__STRING_IDEINFO); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14153,"ide_methods.bas");}while(r); S_48867:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len>(*__LONG_IDEWX- 20 ))))||new_error){ if(qbevent){evnt(25224,14154,"ide_methods.bas");if(r)goto S_48867;} 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(25224,14154,"ide_methods.bas");}while(r); } S_48870:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len<(*__LONG_IDEWX- 20 ))))||new_error){ if(qbevent){evnt(25224,14155,"ide_methods.bas");if(r)goto S_48870;} 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(25224,14155,"ide_methods.bas");}while(r); } do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,14156,"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(25224,14157,"ide_methods.bas");}while(r); do{ qbg_sub_color( 2 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,14159,"ide_methods.bas");}while(r); S_48876:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ if(qbevent){evnt(25224,14160,"ide_methods.bas");if(r)goto S_48876;} do{ qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len("v",1),__STRING_VERSION)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14161,"ide_methods.bas");}while(r); S_48878:; if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ if(qbevent){evnt(25224,14162,"ide_methods.bas");if(r)goto S_48878;} do{ qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,func_mid(__STRING_AUTOBUILDMSG,func__instrrev(NULL,__STRING_AUTOBUILDMSG,qbs_new_txt_len(" ",1),0),NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14162,"ide_methods.bas");}while(r); } } do{ sub__printstring(*__LONG_IDEWX- 22 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14164,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14166,"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; } 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 "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; S_48884:; if ((-(*_FUNC_DARKENFGBG_BYTE_ACTION== 1 ))||new_error){ if(qbevent){evnt(25224,14172,"ide_methods.bas");if(r)goto S_48884;} 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(25224,14173,"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(25224,14174,"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(25224,14175,"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(25224,14176,"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(25224,14177,"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(25224,14178,"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(25224,14179,"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(25224,14180,"ide_methods.bas");}while(r); do{ sub__palettecolor( 1 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14181,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14182,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR, 0 ,1); if(!qbevent)break;evnt(25224,14183,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14184,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14185,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14186,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14187,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14188,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14189,"ide_methods.bas");}while(r); }else{ do{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14191,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14192,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); if(!qbevent)break;evnt(25224,14193,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14194,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14195,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14196,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14197,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14198,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); if(!qbevent)break;evnt(25224,14199,"ide_methods.bas");}while(r); } do{ *_FUNC_DARKENFGBG_LONG_DARKENFGBG= 0 ; if(!qbevent)break;evnt(25224,14202,"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; 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 "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{ *_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING=*__INTEGER_BRACKETHIGHLIGHT; if(!qbevent)break;evnt(25224,14209,"ide_methods.bas");}while(r); do{ *_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=*__INTEGER_MULTIHIGHLIGHT; if(!qbevent)break;evnt(25224,14210,"ide_methods.bas");}while(r); do{ *__INTEGER_BRACKETHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,14211,"ide_methods.bas");}while(r); do{ *__INTEGER_MULTIHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,14212,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 ,NULL,NULL,4); if(!qbevent)break;evnt(25224,14213,"ide_methods.bas");}while(r); do{ *__BYTE_HIDECURRENTLINEHIGHLIGHT= -1 ; if(!qbevent)break;evnt(25224,14214,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); if(!qbevent)break;evnt(25224,14215,"ide_methods.bas");}while(r); do{ *__BYTE_HIDECURRENTLINEHIGHLIGHT= 0 ; if(!qbevent)break;evnt(25224,14216,"ide_methods.bas");}while(r); do{ *__INTEGER_BRACKETHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING; if(!qbevent)break;evnt(25224,14217,"ide_methods.bas");}while(r); do{ *__INTEGER_MULTIHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING; if(!qbevent)break;evnt(25224,14218,"ide_methods.bas");}while(r); 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; } 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 "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(25224,14222,"ide_methods.bas");}while(r); do{ *__INTEGER_PRESETCOLORSCHEMES= 10 ; if(!qbevent)break;evnt(25224,14224,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_COLORSCHEMES)[8])->id=(++mem_lock_id); if (__ARRAY_STRING_COLORSCHEMES[2]&1){ tmp_long=__ARRAY_STRING_COLORSCHEMES[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]); free((void*)(__ARRAY_STRING_COLORSCHEMES[0])); } __ARRAY_STRING_COLORSCHEMES[4]= 1 ; __ARRAY_STRING_COLORSCHEMES[5]=(*__INTEGER_PRESETCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4]+1; __ARRAY_STRING_COLORSCHEMES[6]=1; __ARRAY_STRING_COLORSCHEMES[0]=(ptrszint)malloc(__ARRAY_STRING_COLORSCHEMES[5]*8); if (!__ARRAY_STRING_COLORSCHEMES[0]) error(257); __ARRAY_STRING_COLORSCHEMES[2]|=1; tmp_long=__ARRAY_STRING_COLORSCHEMES[5]; if (__ARRAY_STRING_COLORSCHEMES[2]&4){ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,14225,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; if(!qbevent)break;evnt(25224,14225,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14226,"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|216216216069118147216098078255167000085206085098098098000000039000049078000088108",97)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14226,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14227,"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|226226226069147216245128177255177000085255085049196196000000069000068108000147177",91)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14227,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14228,"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|226226226147196235245128177255255085085255085085255255000000170000108177000147177",95)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14228,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14229,"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|177177177177177177177177177177177177177177177177177177000000170000000170000147177",95)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14229,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14230,"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|226226226115222227255043138255178034185237049157118137043045037010000020088088088",89)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14230,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14231,"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|255255255206206000245010098000177000085255085049186245011022029100100100000147177",91)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14231,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14232,"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|196196196255255255245128177255177000137177147147137020000039029098069020000147177",92)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14232,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14233,"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|186186186255255255245128177255108000085186078085186255059000059088088128000147177",86)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14233,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14234,"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|051051051000000216245128177255157255147177093206206206234255234206255206000147177",93)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14234,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14235,"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|051051051000000216245128177206147000059177000206206206255255255245245245000147177",91)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14235,"ide_methods.bas");}while(r); do{ *__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_PRESETCOLORSCHEMES; if(!qbevent)break;evnt(25224,14236,"ide_methods.bas");}while(r); do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; if(!qbevent)break;evnt(25224,14237,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; if(!qbevent)break;evnt(25224,14240,"ide_methods.bas");}while(r); S_48951:; do{ if(qbevent){evnt(25224,14241,"ide_methods.bas");if(r)goto S_48951;} do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,14242,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_RESULT=FUNC_READCONFIGSETTING(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(25224,14243,"ide_methods.bas");}while(r); S_48954:; if ((*_SUB_LOADCOLORSCHEMES_LONG_RESULT)||new_error){ if(qbevent){evnt(25224,14244,"ide_methods.bas");if(r)goto S_48954;} do{ *__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_TOTALCOLORSCHEMES+ 1 ; if(!qbevent)break;evnt(25224,14245,"ide_methods.bas");}while(r); S_48956:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_TOTALCOLORSCHEMES>func_ubound(__ARRAY_STRING_COLORSCHEMES,1,1))))||new_error){ if(qbevent){evnt(25224,14246,"ide_methods.bas");if(r)goto S_48956;} do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_COLORSCHEMES)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (__ARRAY_STRING_COLORSCHEMES[2]&1){ preserved_elements=__ARRAY_STRING_COLORSCHEMES[5]; } else preserved_elements=0; __ARRAY_STRING_COLORSCHEMES[4]= 1 ; __ARRAY_STRING_COLORSCHEMES[5]=(func_ubound(__ARRAY_STRING_COLORSCHEMES,1,1)+ 10 )-__ARRAY_STRING_COLORSCHEMES[4]+1; __ARRAY_STRING_COLORSCHEMES[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=__ARRAY_STRING_COLORSCHEMES[5]; if (tmp_long2 0 ))||new_error){ if(qbevent){evnt(25224,14251,"ide_methods.bas");if(r)goto S_48961;} S_48962:; 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(25224,14252,"ide_methods.bas");if(r)goto S_48962;} do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; if(!qbevent)break;evnt(25224,14254,"ide_methods.bas");}while(r); S_48964:; }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(25224,14255,"ide_methods.bas");if(r)goto S_48964;} 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(25224,14258,"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 ,1)),qbs_new_txt_len("069147216245128177",18))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14259,"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("000147177",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14260,"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(25224,14261,"ide_methods.bas");}while(r); do{ SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),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(25224,14262,"ide_methods.bas");}while(r); do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; if(!qbevent)break;evnt(25224,14263,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_DISCARDINVALID; if(!qbevent)break;evnt(25224,14265,"ide_methods.bas");}while(r); } } }else{ LABEL_DISCARDINVALID:; if(qbevent){evnt(25224,14268,"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(25224,14269,"ide_methods.bas");}while(r); } }else{ do{ goto dl_exit_5340; if(!qbevent)break;evnt(25224,14273,"ide_methods.bas");}while(r); } dl_continue_5340:; }while(1); dl_exit_5340:; 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; } 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 "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; 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(25224,14281,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,14283,"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(25224,14284,"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(25224,14285,"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(25224,14286,"ide_methods.bas");}while(r); S_48986:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_BINARYFORMATCHECK_STRING_A,func_chr( 0 ),0)== 0 )))||new_error){ if(qbevent){evnt(25224,14287,"ide_methods.bas");if(r)goto S_48986;} do{ sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); if(!qbevent)break;evnt(25224,14287,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14287,"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(25224,14288,"ide_methods.bas");}while(r); do{ sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_5344),1); if(!qbevent)break;evnt(25224,14289,"ide_methods.bas");}while(r); do{ sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_5345),0); if(!qbevent)break;evnt(25224,14290,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); if(!qbevent)break;evnt(25224,14291,"ide_methods.bas");}while(r); S_48994:; if(qbevent){evnt(25224,14293,"ide_methods.bas");if(r)goto S_48994;} S_48995:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 2300 )))||new_error){ if(qbevent){evnt(25224,14294,"ide_methods.bas");if(r)goto S_48995;} 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(25224,14295,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; if(!qbevent)break;evnt(25224,14296,"ide_methods.bas");}while(r); sc_ec_272_end:; goto sc_5346_end; } S_48998:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 764 )))||new_error){ if(qbevent){evnt(25224,14297,"ide_methods.bas");if(r)goto S_48998;} 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(25224,14298,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; if(!qbevent)break;evnt(25224,14299,"ide_methods.bas");}while(r); sc_ec_273_end:; goto sc_5346_end; } S_49001:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 252 )))||new_error){ if(qbevent){evnt(25224,14300,"ide_methods.bas");if(r)goto S_49001;} S_49002:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(25224,14301,"ide_methods.bas");if(r)goto S_49002;} 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(25224,14302,"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(25224,14304,"ide_methods.bas");}while(r); } S_49007:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ if(qbevent){evnt(25224,14306,"ide_methods.bas");if(r)goto S_49007;} 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(25224,14307,"ide_methods.bas");}while(r); S_49009:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,14308,"ide_methods.bas");if(r)goto S_49009;} LABEL_CONVERTIT:; if(qbevent){evnt(25224,14309,"ide_methods.bas");r=0;} S_49010:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FILEHASEXTENSION(__STRING_FILE)))||new_error){ if(qbevent){evnt(25224,14310,"ide_methods.bas");if(r)goto S_49010;} S_49011:; fornext_value5348=__STRING_FILE->len; fornext_finalvalue5348= 1 ; fornext_step5348= -1 ; if (fornext_step5348<0) fornext_step_negative5348=1; else fornext_step_negative5348=0; if (new_error) goto fornext_error5348; goto fornext_entrylabel5348; while(1){ fornext_value5348=fornext_step5348+(*_FUNC_BINARYFORMATCHECK_LONG_I); fornext_entrylabel5348: *_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value5348; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5348){ if (fornext_value5348fornext_finalvalue5348) break; } fornext_error5348:; if(qbevent){evnt(25224,14311,"ide_methods.bas");if(r)goto S_49011;} S_49012:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I)== 46 )))||new_error){ if(qbevent){evnt(25224,14312,"ide_methods.bas");if(r)goto S_49012;} 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(25224,14314,"ide_methods.bas");}while(r); do{ goto fornext_exit_5347; if(!qbevent)break;evnt(25224,14315,"ide_methods.bas");}while(r); } fornext_continue_5347:; } fornext_exit_5347:; }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(25224,14319,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,14322,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5350= 1 )); if(!qbevent)break;evnt(25224,14323,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,14324,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,14325,"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(25224,14326,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14327,"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(25224,14329,"ide_methods.bas");}while(r); do{ sub_shell2(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14330,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,14332,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5351= 0 )); if(!qbevent)break;evnt(25224,14333,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14334,"ide_methods.bas");}while(r); S_49031:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_OFILE)== 0 )))||new_error){ if(qbevent){evnt(25224,14336,"ide_methods.bas");if(r)goto S_49031;} 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(25224,14337,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 2 ; if(!qbevent)break;evnt(25224,14338,"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(25224,14340,"ide_methods.bas");}while(r); S_49036:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len))||new_error){ if(qbevent){evnt(25224,14341,"ide_methods.bas");if(r)goto S_49036;} 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(25224,14342,"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(25224,14343,"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(25224,14345,"ide_methods.bas");}while(r); } } }else{ do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; if(!qbevent)break;evnt(25224,14349,"ide_methods.bas");}while(r); } }else{ S_49047:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("source/utilities/QB45BIN.bas",28))== 0 )))||new_error){ if(qbevent){evnt(25224,14352,"ide_methods.bas");if(r)goto S_49047;} 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(25224,14353,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; if(!qbevent)break;evnt(25224,14354,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14355,"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(25224,14357,"ide_methods.bas");}while(r); S_49053:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ if(qbevent){evnt(25224,14358,"ide_methods.bas");if(r)goto S_49053;} S_49054:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("./internal/utilities",20))== 0 )))||new_error){ if(qbevent){evnt(25224,14360,"ide_methods.bas");if(r)goto S_49054;} do{ sub_mkdir(qbs_new_txt_len("./internal/utilities",20)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14360,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14361,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); if(!qbevent)break;evnt(25224,14362,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5355= 1 )); if(!qbevent)break;evnt(25224,14363,"ide_methods.bas");}while(r); do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,14364,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,14365,"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(25224,14366,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14367,"ide_methods.bas");}while(r); S_49064:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ if(qbevent){evnt(25224,14368,"ide_methods.bas");if(r)goto S_49064;} do{ sub_shell2(qbs_new_txt_len("qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN",66),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14369,"ide_methods.bas");}while(r); }else{ do{ sub_shell2(qbs_new_txt_len("./qb64 -x ./source/utilities/QB45BIN.bas -o ./internal/utilities/QB45BIN",72),2); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14371,"ide_methods.bas");}while(r); } S_49069:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ if(qbevent){evnt(25224,14373,"ide_methods.bas");if(r)goto S_49069;} do{ goto LABEL_CONVERTIT; if(!qbevent)break;evnt(25224,14373,"ide_methods.bas");}while(r); } do{ SUB_CLEARSTATUSWINDOW(); if(!qbevent)break;evnt(25224,14374,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5356= 0 )); if(!qbevent)break;evnt(25224,14375,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,14376,"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(25224,14377,"ide_methods.bas");}while(r); } do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; if(!qbevent)break;evnt(25224,14379,"ide_methods.bas");}while(r); } sc_ec_274_end:; goto sc_5346_end; } sc_5346_end:; 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; 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 "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; 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(25224,14385,"ide_methods.bas");}while(r); S_49081:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14385,"ide_methods.bas");if(r)goto S_49081;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14385,"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(25224,14386,"ide_methods.bas");}while(r); S_49085:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14386,"ide_methods.bas");if(r)goto S_49085;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14386,"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(25224,14387,"ide_methods.bas");}while(r); S_49089:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14387,"ide_methods.bas");if(r)goto S_49089;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14387,"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(25224,14388,"ide_methods.bas");}while(r); S_49093:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14388,"ide_methods.bas");if(r)goto S_49093;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14388,"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(25224,14389,"ide_methods.bas");}while(r); S_49097:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14389,"ide_methods.bas");if(r)goto S_49097;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14389,"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(25224,14390,"ide_methods.bas");}while(r); S_49101:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14390,"ide_methods.bas");if(r)goto S_49101;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14390,"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(25224,14391,"ide_methods.bas");}while(r); S_49105:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ if(qbevent){evnt(25224,14391,"ide_methods.bas");if(r)goto S_49105;} do{ goto LABEL_FOUNDSYMBOL; if(!qbevent)break;evnt(25224,14391,"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(25224,14392,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14393,"ide_methods.bas");}while(r); LABEL_FOUNDSYMBOL:; if(qbevent){evnt(25224,14394,"ide_methods.bas");r=0;} S_49110:; if ((-(*_FUNC_REMOVESYMBOL2_LONG_I== 1 ))||new_error){ if(qbevent){evnt(25224,14395,"ide_methods.bas");if(r)goto S_49110;} do{ qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14395,"ide_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14395,"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(25224,14396,"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; 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 "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; 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(25224,14400,"ide_methods.bas");}while(r); S_49116:; if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ if(qbevent){evnt(25224,14400,"ide_methods.bas");if(r)goto S_49116;} 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(25224,14400,"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(25224,14401,"ide_methods.bas");}while(r); S_49120:; if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ if(qbevent){evnt(25224,14401,"ide_methods.bas");if(r)goto S_49120;} 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(25224,14401,"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(25224,14402,"ide_methods.bas");}while(r); S_49124:; if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ if(qbevent){evnt(25224,14402,"ide_methods.bas");if(r)goto S_49124;} 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(25224,14402,"ide_methods.bas");}while(r); } 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; } void SUB_CLEARSTATUSWINDOW(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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{ qbg_sub_color( 7 , 1 ,NULL,3); if(!qbevent)break;evnt(25224,14406,"ide_methods.bas");}while(r); do{ sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_space(*__LONG_IDEWX- 2 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14407,"ide_methods.bas");}while(r); do{ sub__printstring( 2 ,*__LONG_IDEWY- 2 ,func_space(*__LONG_IDEWX- 2 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14408,"ide_methods.bas");}while(r); do{ sub__printstring( 2 ,*__LONG_IDEWY- 1 ,func_space(*__LONG_IDEWX- 2 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14409,"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; } 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 "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; do{ qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14413,"ide_methods.bas");}while(r); do{ *_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX; if(!qbevent)break;evnt(25224,14414,"ide_methods.bas");}while(r); S_49133:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,14415,"ide_methods.bas");if(r)goto S_49133;} S_49134:; 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(25224,14416,"ide_methods.bas");if(r)goto S_49134;} do{ *_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; if(!qbevent)break;evnt(25224,14417,"ide_methods.bas");}while(r); S_49136:; while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ if(qbevent){evnt(25224,14418,"ide_methods.bas");if(r)goto S_49136;} S_49137:; 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(25224,14419,"ide_methods.bas");if(r)goto S_49137;} do{ *_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; if(!qbevent)break;evnt(25224,14419,"ide_methods.bas");}while(r); }else{ do{ goto dl_exit_5360; if(!qbevent)break;evnt(25224,14419,"ide_methods.bas");}while(r); } dl_continue_5360:; } dl_exit_5360:; do{ *_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; if(!qbevent)break;evnt(25224,14421,"ide_methods.bas");}while(r); S_49144:; while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,14422,"ide_methods.bas");if(r)goto S_49144;} S_49145:; 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(25224,14423,"ide_methods.bas");if(r)goto S_49145;} do{ *_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,14423,"ide_methods.bas");}while(r); }else{ do{ goto dl_exit_5362; if(!qbevent)break;evnt(25224,14423,"ide_methods.bas");}while(r); } dl_continue_5362:; } dl_exit_5362:; 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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14425,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14427,"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(25224,14429,"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; 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 "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; S_49157:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,14434,"ide_methods.bas");if(r)goto S_49157;} do{ *_FUNC_GETSELECTEDTEXT_LONG_SY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,14435,"ide_methods.bas");}while(r); do{ *_FUNC_GETSELECTEDTEXT_LONG_SY2=*__LONG_IDECY; if(!qbevent)break;evnt(25224,14436,"ide_methods.bas");}while(r); S_49160:; if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1>*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,14437,"ide_methods.bas");if(r)goto S_49160;} do{ swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SY1,&*_FUNC_GETSELECTEDTEXT_LONG_SY2); if(!qbevent)break;evnt(25224,14437,"ide_methods.bas");}while(r); } do{ *_FUNC_GETSELECTEDTEXT_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,14438,"ide_methods.bas");}while(r); do{ *_FUNC_GETSELECTEDTEXT_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,14439,"ide_methods.bas");}while(r); S_49165:; if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SX1>*_FUNC_GETSELECTEDTEXT_LONG_SX2))||new_error){ if(qbevent){evnt(25224,14440,"ide_methods.bas");if(r)goto S_49165;} do{ swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SX1,&*_FUNC_GETSELECTEDTEXT_LONG_SX2); if(!qbevent)break;evnt(25224,14440,"ide_methods.bas");}while(r); } S_49168:; fornext_value5364=*_FUNC_GETSELECTEDTEXT_LONG_SY1; fornext_finalvalue5364=*_FUNC_GETSELECTEDTEXT_LONG_SY2; fornext_step5364= 1 ; if (fornext_step5364<0) fornext_step_negative5364=1; else fornext_step_negative5364=0; if (new_error) goto fornext_error5364; goto fornext_entrylabel5364; while(1){ fornext_value5364=fornext_step5364+(*_FUNC_GETSELECTEDTEXT_LONG_Y); fornext_entrylabel5364: *_FUNC_GETSELECTEDTEXT_LONG_Y=fornext_value5364; if (fornext_step_negative5364){ if (fornext_value5364fornext_finalvalue5364) break; } fornext_error5364:; if(qbevent){evnt(25224,14441,"ide_methods.bas");if(r)goto S_49168;} S_49169:; if ((-(*_FUNC_GETSELECTEDTEXT_LONG_Y<=*__LONG_IDEN))||new_error){ if(qbevent){evnt(25224,14442,"ide_methods.bas");if(r)goto S_49169;} do{ qbs_set(_FUNC_GETSELECTEDTEXT_STRING_A,FUNC_IDEGETLINE(_FUNC_GETSELECTEDTEXT_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14443,"ide_methods.bas");}while(r); S_49171:; if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1==*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,14444,"ide_methods.bas");if(r)goto S_49171;} S_49172:; fornext_value5366=*_FUNC_GETSELECTEDTEXT_LONG_SX1; fornext_finalvalue5366=*_FUNC_GETSELECTEDTEXT_LONG_SX2- 1 ; fornext_step5366= 1 ; if (fornext_step5366<0) fornext_step_negative5366=1; else fornext_step_negative5366=0; if (new_error) goto fornext_error5366; goto fornext_entrylabel5366; while(1){ fornext_value5366=fornext_step5366+(*_FUNC_GETSELECTEDTEXT_LONG_X); fornext_entrylabel5366: *_FUNC_GETSELECTEDTEXT_LONG_X=fornext_value5366; if (fornext_step_negative5366){ if (fornext_value5366fornext_finalvalue5366) break; } fornext_error5366:; if(qbevent){evnt(25224,14445,"ide_methods.bas");if(r)goto S_49172;} S_49173:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETSELECTEDTEXT_LONG_X<=_FUNC_GETSELECTEDTEXT_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,14446,"ide_methods.bas");if(r)goto S_49173;} do{ qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,func_mid(_FUNC_GETSELECTEDTEXT_STRING_A,*_FUNC_GETSELECTEDTEXT_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14446,"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(25224,14446,"ide_methods.bas");}while(r); } fornext_continue_5365:; } fornext_exit_5365:; }else{ S_49180:; if ((~(*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE))||new_error){ if(qbevent){evnt(25224,14449,"ide_methods.bas");if(r)goto S_49180;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,14449,"ide_methods.bas");}while(r); } S_49183:; if (((-(*__LONG_IDECX== 1 ))&(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_FUNC_GETSELECTEDTEXT_LONG_SY1)))||new_error){ if(qbevent){evnt(25224,14450,"ide_methods.bas");if(r)goto S_49183;} do{ goto LABEL_NOFINALCOPY; if(!qbevent)break;evnt(25224,14450,"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(25224,14451,"ide_methods.bas");}while(r); LABEL_NOFINALCOPY:; if(qbevent){evnt(25224,14452,"ide_methods.bas");r=0;} S_49187:; 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(25224,14453,"ide_methods.bas");if(r)goto S_49187;} 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(25224,14453,"ide_methods.bas");}while(r); } } } fornext_continue_5363:; } fornext_exit_5363:; do{ qbs_set(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT,_FUNC_GETSELECTEDTEXT_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14457,"ide_methods.bas");}while(r); } 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; 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 "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; do{ *_SUB_DELSELECT_LONG_SY1=*__LONG_IDESELECTY1; if(!qbevent)break;evnt(25224,14462,"ide_methods.bas");}while(r); do{ *_SUB_DELSELECT_LONG_SY2=*__LONG_IDECY; if(!qbevent)break;evnt(25224,14463,"ide_methods.bas");}while(r); S_49197:; if ((-(*_SUB_DELSELECT_LONG_SY1>*_SUB_DELSELECT_LONG_SY2))||new_error){ if(qbevent){evnt(25224,14464,"ide_methods.bas");if(r)goto S_49197;} do{ swap_32(&*_SUB_DELSELECT_LONG_SY1,&*_SUB_DELSELECT_LONG_SY2); if(!qbevent)break;evnt(25224,14464,"ide_methods.bas");}while(r); } do{ *_SUB_DELSELECT_LONG_SX1=*__LONG_IDESELECTX1; if(!qbevent)break;evnt(25224,14465,"ide_methods.bas");}while(r); do{ *_SUB_DELSELECT_LONG_SX2=*__LONG_IDECX; if(!qbevent)break;evnt(25224,14466,"ide_methods.bas");}while(r); S_49202:; if ((-(*_SUB_DELSELECT_LONG_SX1>*_SUB_DELSELECT_LONG_SX2))||new_error){ if(qbevent){evnt(25224,14467,"ide_methods.bas");if(r)goto S_49202;} do{ swap_32(&*_SUB_DELSELECT_LONG_SX1,&*_SUB_DELSELECT_LONG_SX2); if(!qbevent)break;evnt(25224,14467,"ide_methods.bas");}while(r); } do{ *_SUB_DELSELECT_LONG_NOLASTLINEDEL= 0 ; if(!qbevent)break;evnt(25224,14468,"ide_methods.bas");}while(r); S_49206:; if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_SUB_DELSELECT_LONG_SY1)))||new_error){ if(qbevent){evnt(25224,14469,"ide_methods.bas");if(r)goto S_49206;} do{ *_SUB_DELSELECT_LONG_SY2=*_SUB_DELSELECT_LONG_SY2- 1 ; if(!qbevent)break;evnt(25224,14469,"ide_methods.bas");}while(r); do{ *_SUB_DELSELECT_LONG_NOLASTLINEDEL= 1 ; if(!qbevent)break;evnt(25224,14469,"ide_methods.bas");}while(r); } S_49210:; fornext_value5371=*_SUB_DELSELECT_LONG_SY2; fornext_finalvalue5371=*_SUB_DELSELECT_LONG_SY1; fornext_step5371= -1 ; if (fornext_step5371<0) fornext_step_negative5371=1; else fornext_step_negative5371=0; if (new_error) goto fornext_error5371; goto fornext_entrylabel5371; while(1){ fornext_value5371=fornext_step5371+(*_SUB_DELSELECT_LONG_Y); fornext_entrylabel5371: *_SUB_DELSELECT_LONG_Y=fornext_value5371; if (fornext_step_negative5371){ if (fornext_value5371fornext_finalvalue5371) break; } fornext_error5371:; if(qbevent){evnt(25224,14472,"ide_methods.bas");if(r)goto S_49210;} S_49211:; if (((-(*_SUB_DELSELECT_LONG_SY1==*_SUB_DELSELECT_LONG_SY2))&(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 0 )))||new_error){ if(qbevent){evnt(25224,14473,"ide_methods.bas");if(r)goto S_49211;} do{ qbs_set(_SUB_DELSELECT_STRING_A,FUNC_IDEGETLINE(_SUB_DELSELECT_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14474,"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(25224,14475,"ide_methods.bas");}while(r); S_49214:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX1<=_SUB_DELSELECT_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,14476,"ide_methods.bas");if(r)goto S_49214;} 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(25224,14476,"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(25224,14476,"ide_methods.bas");}while(r); } S_49219:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX2<=_SUB_DELSELECT_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,14477,"ide_methods.bas");if(r)goto S_49219;} 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(25224,14477,"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(25224,14478,"ide_methods.bas");}while(r); }else{ S_49224:; if (((-(*__LONG_IDEN== 1 ))&(-(*_SUB_DELSELECT_LONG_Y== 1 )))||new_error){ if(qbevent){evnt(25224,14480,"ide_methods.bas");if(r)goto S_49224;} do{ SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14480,"ide_methods.bas");}while(r); }else{ do{ SUB_IDEDELLINE(_SUB_DELSELECT_LONG_Y); if(!qbevent)break;evnt(25224,14480,"ide_methods.bas");}while(r); } } fornext_continue_5370:; } fornext_exit_5370:; do{ *__LONG_IDECX=*_SUB_DELSELECT_LONG_SX1; if(!qbevent)break;evnt(25224,14484,"ide_methods.bas");}while(r); S_49232:; if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))|(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 1 )))||new_error){ if(qbevent){evnt(25224,14484,"ide_methods.bas");if(r)goto S_49232;} do{ *__LONG_IDECX= 1 ; if(!qbevent)break;evnt(25224,14484,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*_SUB_DELSELECT_LONG_SY1; if(!qbevent)break;evnt(25224,14485,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; if(!qbevent)break;evnt(25224,14486,"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; } 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 "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; S_49237:; if ((*__LONG_IDESELECT)||new_error){ if(qbevent){evnt(25224,14491,"ide_methods.bas");if(r)goto S_49237;} do{ SUB_DELSELECT(); if(!qbevent)break;evnt(25224,14491,"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(25224,14492,"ide_methods.bas");}while(r); S_49241:; if ((qbs_cleanup(qbs_tmp_base,-((_SUB_INSERTATCURSOR_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ if(qbevent){evnt(25224,14493,"ide_methods.bas");if(r)goto S_49241;} 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(25224,14493,"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(25224,14494,"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(25224,14495,"ide_methods.bas");}while(r); S_49246:; if ((*__BYTE_PASTECURSORATEND)||new_error){ if(qbevent){evnt(25224,14497,"ide_methods.bas");if(r)goto S_49246;} do{ *__LONG_IDECX=*__LONG_IDECX+_SUB_INSERTATCURSOR_STRING_TEMPK->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,14499,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; if(!qbevent)break;evnt(25224,14502,"ide_methods.bas");}while(r); 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* 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 "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_49250:; 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(25224,2,"wiki_methods.bas");if(r)goto S_49250;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Alphabetical",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,2,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,2,"wiki_methods.bas");}while(r); } S_49254:; 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(25224,3,"wiki_methods.bas");if(r)goto S_49254;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("By Usage",8)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,3,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,3,"wiki_methods.bas");}while(r); } S_49258:; 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(25224,4,"wiki_methods.bas");if(r)goto S_49258;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Help",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,4,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,4,"wiki_methods.bas");}while(r); } S_49262:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 FAQ",8))))||new_error){ if(qbevent){evnt(25224,5,"wiki_methods.bas");if(r)goto S_49262;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("FAQ",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,5,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,5,"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(25224,6,"wiki_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_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 "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(__STRING_HELP_PAGELOADED,_FUNC_WIKI_STRING_PAGENAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,10,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,11,"wiki_methods.bas");}while(r); S_49269:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(25224,13,"wiki_methods.bas");if(r)goto S_49269;} do{ tqbs=_FUNC_WIKI_STRING_PAGENAME2; if (!new_error){ tmp_fileno=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0); 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(25224,14,"wiki_methods.bas");}while(r); dl_continue_5382:; } dl_exit_5382:; S_49272:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("&",1),0)))||new_error){ if(qbevent){evnt(25224,16,"wiki_methods.bas");if(r)goto S_49272;} do{ *_FUNC_WIKI_LONG_I=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("&",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,17,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_WIKI_STRING_PAGENAME2,*_FUNC_WIKI_LONG_I- 1 ),qbs_new_txt_len("%26",3)),qbs_right(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME2->len-*_FUNC_WIKI_LONG_I))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,18,"wiki_methods.bas");}while(r); dl_continue_5383:; } dl_exit_5383:; S_49276:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("/",1),0)))||new_error){ if(qbevent){evnt(25224,20,"wiki_methods.bas");if(r)goto S_49276;} do{ *_FUNC_WIKI_LONG_I=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,21,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_WIKI_STRING_PAGENAME2,*_FUNC_WIKI_LONG_I- 1 ),qbs_new_txt_len("%2F",3)),qbs_right(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME2->len-*_FUNC_WIKI_LONG_I))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,22,"wiki_methods.bas");}while(r); dl_continue_5385:; } dl_exit_5385:; S_49280:; if ((-(*__LONG_HELP_IGNORECACHE== 0 ))||new_error){ if(qbevent){evnt(25224,26,"wiki_methods.bas");if(r)goto S_49280;} S_49281:; 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_PAGENAME2),qbs_new_txt_len(".txt",4)))))||new_error){ if(qbevent){evnt(25224,27,"wiki_methods.bas");if(r)goto S_49281;} do{ *_FUNC_WIKI_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,28,"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_PAGENAME2),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(25224,29,"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(25224,30,"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(25224,31,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); if(!qbevent)break;evnt(25224,32,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_LONG_CHR13=func_instr(NULL,_FUNC_WIKI_STRING_A,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,33,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_LONG_REMOVEDCHR13= 0 ; if(!qbevent)break;evnt(25224,34,"wiki_methods.bas");}while(r); S_49289:; while((-(*_FUNC_WIKI_LONG_CHR13> 0 ))||new_error){ if(qbevent){evnt(25224,35,"wiki_methods.bas");if(r)goto S_49289;} do{ *_FUNC_WIKI_LONG_REMOVEDCHR13= -1 ; if(!qbevent)break;evnt(25224,36,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_CHR13- 1 ),func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_CHR13+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,37,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_LONG_CHR13=func_instr(NULL,_FUNC_WIKI_STRING_A,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,38,"wiki_methods.bas");}while(r); dl_continue_5387:; } dl_exit_5387:; S_49294:; if ((*_FUNC_WIKI_LONG_REMOVEDCHR13)||new_error){ if(qbevent){evnt(25224,40,"wiki_methods.bas");if(r)goto S_49294;} do{ *_FUNC_WIKI_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,41,"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_PAGENAME2),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,42,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); if(!qbevent)break;evnt(25224,42,"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_PAGENAME2),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(25224,43,"wiki_methods.bas");}while(r); do{ sub_put2(*_FUNC_WIKI_LONG_FH, 1 ,byte_element((uint64)_FUNC_WIKI_STRING_A->chr,_FUNC_WIKI_STRING_A->len,byte_element_5388),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,44,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); if(!qbevent)break;evnt(25224,45,"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(25224,47,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,48,"wiki_methods.bas");}while(r); } } S_49306:; if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ if(qbevent){evnt(25224,52,"wiki_methods.bas");if(r)goto S_49306;} 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(25224,53,"wiki_methods.bas");}while(r); S_49308:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ if(qbevent){evnt(25224,54,"wiki_methods.bas");if(r)goto S_49308;} 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(25224,54,"wiki_methods.bas");}while(r); } S_49311:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ if(qbevent){evnt(25224,55,"wiki_methods.bas");if(r)goto S_49311;} 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(25224,55,"wiki_methods.bas");}while(r); } do{ qbg_sub_color( 0 , 3 ,NULL,3); if(!qbevent)break;evnt(25224,57,"wiki_methods.bas");}while(r); do{ qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); if(!qbevent)break;evnt(25224,57,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_FUNC_WIKI_STRING_A); if (new_error) goto skip5392; makefit(tqbs); qbs_print(tqbs,0); skip5392: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,58,"wiki_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); if(!qbevent)break;evnt(25224,60,"wiki_methods.bas");}while(r); } do{ qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_new_txt_len("www.qb64.org/wiki/index.php?title=",34),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,63,"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(25224,65,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_URL2,_FUNC_WIKI_STRING_URL); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,66,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_LONG_X=func_instr(NULL,_FUNC_WIKI_STRING_URL2,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,67,"wiki_methods.bas");}while(r); S_49323:; if ((*_FUNC_WIKI_LONG_X)||new_error){ if(qbevent){evnt(25224,68,"wiki_methods.bas");if(r)goto S_49323;} do{ qbs_set(_FUNC_WIKI_STRING_URL2,qbs_left(_FUNC_WIKI_STRING_URL,*_FUNC_WIKI_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,68,"wiki_methods.bas");}while(r); } do{ *_FUNC_WIKI_LONG_C=func__openclient(qbs_add(qbs_new_txt_len("TCP/IP:80:",10),_FUNC_WIKI_STRING_URL2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,69,"wiki_methods.bas");}while(r); S_49327:; if ((-(*_FUNC_WIKI_LONG_C== 0 ))||new_error){ if(qbevent){evnt(25224,70,"wiki_methods.bas");if(r)goto S_49327;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,71,"wiki_methods.bas");}while(r); } do{ qbs_set(_FUNC_WIKI_STRING_E,qbs_add(func_chr( 13 ),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,73,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_URL3,qbs_right(_FUNC_WIKI_STRING_URL,_FUNC_WIKI_STRING_URL->len-*_FUNC_WIKI_LONG_X+ 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,74,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("GET ",4),_FUNC_WIKI_STRING_URL3),qbs_new_txt_len(" HTTP/1.1",9)),_FUNC_WIKI_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,75,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_X,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_WIKI_STRING_X,qbs_new_txt_len("Host: ",6)),_FUNC_WIKI_STRING_URL2),_FUNC_WIKI_STRING_E),_FUNC_WIKI_STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,76,"wiki_methods.bas");}while(r); do{ sub_put2(*_FUNC_WIKI_LONG_C,NULL,byte_element((uint64)_FUNC_WIKI_STRING_X->chr,_FUNC_WIKI_STRING_X->len,byte_element_5394),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,77,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_SINGLE_T=func_timer(NULL,0); if(!qbevent)break;evnt(25224,78,"wiki_methods.bas");}while(r); S_49336:; do{ if(qbevent){evnt(25224,80,"wiki_methods.bas");if(r)goto S_49336;} do{ sub_get2(*_FUNC_WIKI_LONG_C,NULL,_FUNC_WIKI_STRING_A2,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,81,"wiki_methods.bas");}while(r); S_49338:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_WIKI_STRING_A2->len))||new_error){ if(qbevent){evnt(25224,82,"wiki_methods.bas");if(r)goto S_49338;} do{ qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,83,"wiki_methods.bas");}while(r); S_49340:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("",7),0)))||new_error){ if(qbevent){evnt(25224,84,"wiki_methods.bas");if(r)goto S_49340;} do{ sub_close(*_FUNC_WIKI_LONG_C,1); if(!qbevent)break;evnt(25224,85,"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(25224,86,"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(25224,87,"wiki_methods.bas");}while(r); S_49344:; if ((-(*_FUNC_WIKI_LONG_S1== 0 ))||new_error){ if(qbevent){evnt(25224,87,"wiki_methods.bas");if(r)goto S_49344;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,87,"wiki_methods.bas");}while(r); } do{ *_FUNC_WIKI_LONG_S1=*_FUNC_WIKI_LONG_S1+_FUNC_WIKI_STRING_S1->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,88,"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(25224,89,"wiki_methods.bas");}while(r); S_49349:; if ((-(*_FUNC_WIKI_LONG_S2== 0 ))||new_error){ if(qbevent){evnt(25224,89,"wiki_methods.bas");if(r)goto S_49349;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,89,"wiki_methods.bas");}while(r); } do{ *_FUNC_WIKI_LONG_S2=*_FUNC_WIKI_LONG_S2- 1 ; if(!qbevent)break;evnt(25224,90,"wiki_methods.bas");}while(r); S_49353:; if ((-(*_FUNC_WIKI_LONG_S1>*_FUNC_WIKI_LONG_S2))||new_error){ if(qbevent){evnt(25224,91,"wiki_methods.bas");if(r)goto S_49353;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,91,"wiki_methods.bas");}while(r); } do{ qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S1,*_FUNC_WIKI_LONG_S2-*_FUNC_WIKI_LONG_S1+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,92,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKI_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,93,"wiki_methods.bas");}while(r); do{ *__LONG_E= 0 ; if(!qbevent)break;evnt(25224,94,"wiki_methods.bas");}while(r); do{ error_goto_line=13; if(!qbevent)break;evnt(25224,95,"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_PAGENAME2),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,96,"wiki_methods.bas");}while(r); do{ error_goto_line=14; if(!qbevent)break;evnt(25224,97,"wiki_methods.bas");}while(r); S_49362:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(25224,98,"wiki_methods.bas");if(r)goto S_49362;} do{ sub_close(*_FUNC_WIKI_LONG_FH,1); if(!qbevent)break;evnt(25224,99,"wiki_methods.bas");}while(r); do{ error_goto_line=15; if(!qbevent)break;evnt(25224,100,"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_PAGENAME2),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(25224,101,"wiki_methods.bas");}while(r); do{ error_goto_line=16; if(!qbevent)break;evnt(25224,102,"wiki_methods.bas");}while(r); S_49367:; if ((-(*__LONG_E== 0 ))||new_error){ if(qbevent){evnt(25224,103,"wiki_methods.bas");if(r)goto S_49367;} do{ sub_put2(*_FUNC_WIKI_LONG_FH,NULL,byte_element((uint64)_FUNC_WIKI_STRING_A->chr,_FUNC_WIKI_STRING_A->len,byte_element_5398),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,104,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); if(!qbevent)break;evnt(25224,105,"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(25224,108,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,109,"wiki_methods.bas");}while(r); } } do{ sub__limit( 100 ); if(!qbevent)break;evnt(25224,112,"wiki_methods.bas");}while(r); S_49377:; dl_continue_5395:; }while((!(-(func_abs((float)(func_timer(NULL,0)-*_FUNC_WIKI_SINGLE_T))> 20 )))&&(!new_error)); dl_exit_5395:; if(qbevent){evnt(25224,113,"wiki_methods.bas");if(r)goto S_49377;} do{ sub_close(*_FUNC_WIKI_LONG_C,1); if(!qbevent)break;evnt(25224,114,"wiki_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_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 "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; S_49379:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_HELP_ADDTXT_STRING_T,func_chr( 13 ))))||new_error){ if(qbevent){evnt(25224,119,"wiki_methods.bas");if(r)goto S_49379;} do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,119,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,119,"wiki_methods.bas");}while(r); } S_49383:; fornext_value5401= 1 ; fornext_finalvalue5401=_SUB_HELP_ADDTXT_STRING_T->len; fornext_step5401= 1 ; if (fornext_step5401<0) fornext_step_negative5401=1; else fornext_step_negative5401=0; if (new_error) goto fornext_error5401; goto fornext_entrylabel5401; while(1){ fornext_value5401=fornext_step5401+(*_SUB_HELP_ADDTXT_LONG_I); fornext_entrylabel5401: *_SUB_HELP_ADDTXT_LONG_I=fornext_value5401; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5401){ if (fornext_value5401fornext_finalvalue5401) break; } fornext_error5401:; if(qbevent){evnt(25224,121,"wiki_methods.bas");if(r)goto S_49383;} 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(25224,123,"wiki_methods.bas");}while(r); S_49385:; if (((-(*__LONG_HELP_BG_COL== 0 ))&(-(*__LONG_HELP_LOCKWRAP== 0 )))||new_error){ if(qbevent){evnt(25224,126,"wiki_methods.bas");if(r)goto S_49385;} S_49386:; if ((-(*_SUB_HELP_ADDTXT_LONG_C== 32 ))||new_error){ if(qbevent){evnt(25224,129,"wiki_methods.bas");if(r)goto S_49386;} S_49387:; if ((-(*__LONG_HELP_POS==*__LONG_HELP_WW))||new_error){ if(qbevent){evnt(25224,131,"wiki_methods.bas");if(r)goto S_49387;} do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,131,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,131,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,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= 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(25224,133,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,134,"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(25224,134,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,135,"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(25224,135,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,136,"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(25224,136,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS=*__LONG_HELP_TXT_LEN; if(!qbevent)break;evnt(25224,138,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; if(!qbevent)break;evnt(25224,139,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,140,"wiki_methods.bas");}while(r); } S_49403:; if ((-(*__LONG_HELP_POS>*__LONG_HELP_WW))||new_error){ if(qbevent){evnt(25224,143,"wiki_methods.bas");if(r)goto S_49403;} S_49404:; if ((*__LONG_HELP_WRAP_POS)||new_error){ if(qbevent){evnt(25224,144,"wiki_methods.bas");if(r)goto S_49404;} 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,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,147,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_WRAP_POS; if(!qbevent)break;evnt(25224,149,"wiki_methods.bas");}while(r); do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,151,"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(25224,153,"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(25224,153,"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(25224,155,"wiki_methods.bas");}while(r); } } } 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(25224,161,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,162,"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(25224,162,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,163,"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(25224,163,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,164,"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(25224,164,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,165,"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(25224,165,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; if(!qbevent)break;evnt(25224,167,"wiki_methods.bas");}while(r); LABEL_SPECIAL:; if(qbevent){evnt(25224,168,"wiki_methods.bas");r=0;} fornext_continue_5400:; } fornext_exit_5400:; 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; } 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 "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; S_49425:; if ((-(*__LONG_HELP_POS>*__LONG_HELP_W))||new_error){ if(qbevent){evnt(25224,174,"wiki_methods.bas");if(r)goto S_49425;} do{ *__LONG_HELP_W=*__LONG_HELP_POS; if(!qbevent)break;evnt(25224,174,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,176,"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(25224,176,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,177,"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_NEWLINE_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(25224,177,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,178,"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(25224,178,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; if(!qbevent)break;evnt(25224,179,"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(25224,179,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_H=*__LONG_HELP_H+ 1 ; if(!qbevent)break;evnt(25224,181,"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(25224,182,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; if(!qbevent)break;evnt(25224,183,"wiki_methods.bas");}while(r); S_49439:; if ((*__LONG_HELP_UNDERLINE)||new_error){ if(qbevent){evnt(25224,185,"wiki_methods.bas");if(r)goto S_49439;} do{ *__LONG_HELP_UNDERLINE= 0 ; if(!qbevent)break;evnt(25224,186,"wiki_methods.bas");}while(r); do{ *_SUB_HELP_NEWLINE_LONG_W=*__LONG_HELP_POS; if(!qbevent)break;evnt(25224,187,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS= 1 ; if(!qbevent)break;evnt(25224,188,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 196 ),&(pass5406=FUNC_HELP_COL()),&(pass5407= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,189,"wiki_methods.bas");}while(r); do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,190,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_POS= 1 ; if(!qbevent)break;evnt(25224,192,"wiki_methods.bas");}while(r); S_49447:; if ((*__LONG_HELP_NEWLINEINDENT)||new_error){ if(qbevent){evnt(25224,194,"wiki_methods.bas");if(r)goto S_49447;} do{ SUB_HELP_ADDTXT(func_space(*__LONG_HELP_NEWLINEINDENT),&(pass5408=FUNC_HELP_COL()),&(pass5409= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,195,"wiki_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; } void SUB_HELP_PREVIEW(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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{ sub_open(qbs_new_txt_len("help_preview.txt",16), 4 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,203,"wiki_methods.bas");}while(r); S_49451:; fornext_value5411= 1 ; fornext_finalvalue5411=__STRING_HELP_TXT->len; fornext_step5411= 4 ; if (fornext_step5411<0) fornext_step_negative5411=1; else fornext_step_negative5411=0; if (new_error) goto fornext_error5411; goto fornext_entrylabel5411; while(1){ fornext_value5411=fornext_step5411+(*_SUB_HELP_PREVIEW_LONG_I); fornext_entrylabel5411: *_SUB_HELP_PREVIEW_LONG_I=fornext_value5411; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5411){ if (fornext_value5411fornext_finalvalue5411) break; } fornext_error5411:; if(qbevent){evnt(25224,204,"wiki_methods.bas");if(r)goto S_49451;} do{ *_SUB_HELP_PREVIEW_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,205,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_HELP_PREVIEW_STRING_C,func_chr(*_SUB_HELP_PREVIEW_LONG_C)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,206,"wiki_methods.bas");}while(r); S_49454:; if ((-(*_SUB_HELP_PREVIEW_LONG_C== 13 ))||new_error){ if(qbevent){evnt(25224,207,"wiki_methods.bas");if(r)goto S_49454;} do{ qbs_set(_SUB_HELP_PREVIEW_STRING_C,qbs_add(func_chr( 13 ),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,207,"wiki_methods.bas");}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 1 ; if (new_error) goto skip5413; sub_file_print(tmp_fileno,_SUB_HELP_PREVIEW_STRING_C, 0 , 0 , 0 ); if (new_error) goto skip5413; skip5413: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,208,"wiki_methods.bas");}while(r); fornext_continue_5410:; } fornext_exit_5410:; do{ sub_close( 1 ,1); if(!qbevent)break;evnt(25224,210,"wiki_methods.bas");}while(r); do{ sub_cls(NULL,NULL,0); if(!qbevent)break;evnt(25224,212,"wiki_methods.bas");}while(r); S_49461:; fornext_value5415= 1 ; fornext_finalvalue5415=__STRING_HELP_TXT->len; fornext_step5415= 4 ; if (fornext_step5415<0) fornext_step_negative5415=1; else fornext_step_negative5415=0; if (new_error) goto fornext_error5415; goto fornext_entrylabel5415; while(1){ fornext_value5415=fornext_step5415+(*_SUB_HELP_PREVIEW_LONG_I); fornext_entrylabel5415: *_SUB_HELP_PREVIEW_LONG_I=fornext_value5415; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5415){ if (fornext_value5415fornext_finalvalue5415) break; } fornext_error5415:; if(qbevent){evnt(25224,213,"wiki_methods.bas");if(r)goto S_49461;} do{ *_SUB_HELP_PREVIEW_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,214,"wiki_methods.bas");}while(r); do{ *_SUB_HELP_PREVIEW_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I+ 1 ); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,215,"wiki_methods.bas");}while(r); S_49464:; if ((-(*_SUB_HELP_PREVIEW_LONG_C== 13 ))||new_error){ if(qbevent){evnt(25224,216,"wiki_methods.bas");if(r)goto S_49464;} do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); if(!qbevent)break;evnt(25224,217,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(*__LONG_HELP_W-func_pos( 0 ))); if (new_error) goto skip5417; makefit(tqbs); qbs_print(tqbs,0); skip5417: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,218,"wiki_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); if(!qbevent)break;evnt(25224,219,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(func__width(NULL,0)-func_pos( 0 )+ 1 )); if (new_error) goto skip5418; makefit(tqbs); qbs_print(tqbs,0); skip5418: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,220,"wiki_methods.bas");}while(r); do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); if(!qbevent)break;evnt(25224,221,"wiki_methods.bas");}while(r); do{ sub_sleep(NULL,0); if(!qbevent)break;evnt(25224,222,"wiki_methods.bas");}while(r); }else{ do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); if(!qbevent)break;evnt(25224,224,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr(*_SUB_HELP_PREVIEW_LONG_C)); if (new_error) goto skip5419; makefit(tqbs); qbs_print(tqbs,0); skip5419: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,225,"wiki_methods.bas");}while(r); } fornext_continue_5414:; } fornext_exit_5414:; 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; } 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 "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{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_NORMAL; if(!qbevent)break;evnt(25224,232,"wiki_methods.bas");}while(r); S_49477:; if ((*__LONG_HELP_ITALIC)||new_error){ if(qbevent){evnt(25224,233,"wiki_methods.bas");if(r)goto S_49477;} do{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; if(!qbevent)break;evnt(25224,233,"wiki_methods.bas");}while(r); } S_49480:; if ((*__LONG_HELP_BOLD)||new_error){ if(qbevent){evnt(25224,234,"wiki_methods.bas");if(r)goto S_49480;} do{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_BOLD; if(!qbevent)break;evnt(25224,234,"wiki_methods.bas");}while(r); } do{ *_FUNC_HELP_COL_LONG_HELP_COL=*_FUNC_HELP_COL_LONG_COL; if(!qbevent)break;evnt(25224,235,"wiki_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; 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 "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{ *__LONG_HELP_H= 0 ; if(!qbevent)break;evnt(25224,246,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_W= 0 ; if(!qbevent)break;evnt(25224,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(25224,246,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,246,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LINKN= 0 ; if(!qbevent)break;evnt(25224,246,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_TXT,func_space( 1000000 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,247,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN= 0 ; if(!qbevent)break;evnt(25224,248,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS= 1 ; if(!qbevent)break;evnt(25224,250,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; if(!qbevent)break;evnt(25224,250,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINE,l2string( 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,251,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 0 ; if(!qbevent)break;evnt(25224,252,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BOLD= 0 ; if(!qbevent)break;evnt(25224,253,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_ITALIC= 0 ; if(!qbevent)break;evnt(25224,253,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 0 ; if(!qbevent)break;evnt(25224,254,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 0 ; if(!qbevent)break;evnt(25224,255,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 0 ; if(!qbevent)break;evnt(25224,257,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_ELINK= 0 ; if(!qbevent)break;evnt(25224,257,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_CB= 0 ; if(!qbevent)break;evnt(25224,257,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); if(!qbevent)break;evnt(25224,259,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_PREFETCH= 16 ; if(!qbevent)break;evnt(25224,279,"wiki_methods.bas");}while(r); do{ if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&2){ error(10); }else{ if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&1){ error(10); }else{ _SUB_WIKIPARSE_ARRAY_STRING_C[4]= 0 ; _SUB_WIKIPARSE_ARRAY_STRING_C[5]=(*_SUB_WIKIPARSE_LONG_PREFETCH)-_SUB_WIKIPARSE_ARRAY_STRING_C[4]+1; _SUB_WIKIPARSE_ARRAY_STRING_C[6]=1; _SUB_WIKIPARSE_ARRAY_STRING_C[0]=(ptrszint)malloc(_SUB_WIKIPARSE_ARRAY_STRING_C[5]*8); if (!_SUB_WIKIPARSE_ARRAY_STRING_C[0]) error(257); _SUB_WIKIPARSE_ARRAY_STRING_C[2]|=1; tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_C[5]; if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&4){ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } if(!qbevent)break;evnt(25224,280,"wiki_methods.bas");}while(r); S_49505:; fornext_value5422= 1 ; fornext_finalvalue5422=*_SUB_WIKIPARSE_LONG_PREFETCH; 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+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5422: *_SUB_WIKIPARSE_LONG_II=fornext_value5422; if (fornext_step_negative5422){ if (fornext_value5422fornext_finalvalue5422) break; } fornext_error5422:; if(qbevent){evnt(25224,281,"wiki_methods.bas");if(r)goto S_49505;} 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(25224,282,"wiki_methods.bas");}while(r); fornext_continue_5421:; } fornext_exit_5421:; do{ *_SUB_WIKIPARSE_LONG_N=_SUB_WIKIPARSE_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,285,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I= 1 ; if(!qbevent)break;evnt(25224,286,"wiki_methods.bas");}while(r); S_49510:; while((-(*_SUB_WIKIPARSE_LONG_I<=*_SUB_WIKIPARSE_LONG_N))||new_error){ if(qbevent){evnt(25224,287,"wiki_methods.bas");if(r)goto S_49510;} 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(25224,289,"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(25224,289,"wiki_methods.bas");}while(r); S_49513:; fornext_value5426= 1 ; fornext_finalvalue5426=*_SUB_WIKIPARSE_LONG_PREFETCH; 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+(*_SUB_WIKIPARSE_LONG_I1); fornext_entrylabel5426: *_SUB_WIKIPARSE_LONG_I1=fornext_value5426; if (fornext_step_negative5426){ if (fornext_value5426fornext_finalvalue5426) break; } fornext_error5426:; if(qbevent){evnt(25224,290,"wiki_methods.bas");if(r)goto S_49513;} do{ *_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_I; if(!qbevent)break;evnt(25224,291,"wiki_methods.bas");}while(r); S_49515:; fornext_value5428= 1 ; fornext_finalvalue5428=*_SUB_WIKIPARSE_LONG_I1; fornext_step5428= 1 ; if (fornext_step5428<0) fornext_step_negative5428=1; else fornext_step_negative5428=0; if (new_error) goto fornext_error5428; goto fornext_entrylabel5428; while(1){ fornext_value5428=fornext_step5428+(*_SUB_WIKIPARSE_LONG_I2); fornext_entrylabel5428: *_SUB_WIKIPARSE_LONG_I2=fornext_value5428; if (fornext_step_negative5428){ if (fornext_value5428fornext_finalvalue5428) break; } fornext_error5428:; if(qbevent){evnt(25224,292,"wiki_methods.bas");if(r)goto S_49515;} S_49516:; if ((-(*_SUB_WIKIPARSE_LONG_II<=*_SUB_WIKIPARSE_LONG_N))||new_error){ if(qbevent){evnt(25224,293,"wiki_methods.bas");if(r)goto S_49516;} 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(25224,294,"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(25224,296,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_II+ 1 ; if(!qbevent)break;evnt(25224,298,"wiki_methods.bas");}while(r); fornext_continue_5427:; } fornext_exit_5427:; fornext_continue_5425:; } fornext_exit_5425:; S_49524:; if ((-(*_SUB_WIKIPARSE_LONG_C== 38 ))||new_error){ if(qbevent){evnt(25224,302,"wiki_methods.bas");if(r)goto S_49524;} do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len(""",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,303,"wiki_methods.bas");}while(r); S_49526:; 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(25224,304,"wiki_methods.bas");if(r)goto S_49526;} 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(25224,305,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 34 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,306,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,306,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; if(!qbevent)break;evnt(25224,307,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("&",5)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,310,"wiki_methods.bas");}while(r); S_49533:; 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(25224,311,"wiki_methods.bas");if(r)goto S_49533;} 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(25224,312,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,313,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,313,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; if(!qbevent)break;evnt(25224,314,"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(25224,317,"wiki_methods.bas");}while(r); S_49540:; 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(25224,318,"wiki_methods.bas");if(r)goto S_49540;} 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(25224,319,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(">",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,320,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,320,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; if(!qbevent)break;evnt(25224,321,"wiki_methods.bas");}while(r); } S_49546:; 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_add(func_chr( 194 ),func_chr( 160 ))))))||new_error){ if(qbevent){evnt(25224,324,"wiki_methods.bas");if(r)goto S_49546;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,325,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,326,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<code>",9)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,329,"wiki_methods.bas");}while(r); S_49551:; 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(25224,329,"wiki_methods.bas");if(r)goto S_49551;} 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(25224,329,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,329,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</code>",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,330,"wiki_methods.bas");}while(r); S_49556:; 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(25224,330,"wiki_methods.bas");if(r)goto S_49556;} 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(25224,330,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,330,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<center>",11)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,332,"wiki_methods.bas");}while(r); S_49561:; 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(25224,333,"wiki_methods.bas");if(r)goto S_49561;} 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(25224,334,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,335,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</center>",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,338,"wiki_methods.bas");}while(r); S_49566:; 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(25224,339,"wiki_methods.bas");if(r)goto S_49566;} 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(25224,340,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,341,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<p style=",12)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,344,"wiki_methods.bas");}while(r); S_49571:; 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(25224,345,"wiki_methods.bas");if(r)goto S_49571;} 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(25224,346,"wiki_methods.bas");}while(r); S_49573:; fornext_value5446=*_SUB_WIKIPARSE_LONG_I; fornext_finalvalue5446=_SUB_WIKIPARSE_STRING_A->len- 1 ; fornext_step5446= 1 ; if (fornext_step5446<0) fornext_step_negative5446=1; else fornext_step_negative5446=0; if (new_error) goto fornext_error5446; goto fornext_entrylabel5446; while(1){ fornext_value5446=fornext_step5446+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5446: *_SUB_WIKIPARSE_LONG_II=fornext_value5446; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5446){ if (fornext_value5446fornext_finalvalue5446) break; } fornext_error5446:; if(qbevent){evnt(25224,347,"wiki_methods.bas");if(r)goto S_49573;} S_49574:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,1),qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(25224,348,"wiki_methods.bas");if(r)goto S_49574;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; if(!qbevent)break;evnt(25224,348,"wiki_methods.bas");}while(r); do{ goto fornext_exit_5445; if(!qbevent)break;evnt(25224,348,"wiki_methods.bas");}while(r); } fornext_continue_5445:; } fornext_exit_5445:; do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,350,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</p",6)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,353,"wiki_methods.bas");}while(r); S_49582:; 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(25224,354,"wiki_methods.bas");if(r)goto S_49582;} 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(25224,355,"wiki_methods.bas");}while(r); S_49584:; fornext_value5451=*_SUB_WIKIPARSE_LONG_I; fornext_finalvalue5451=_SUB_WIKIPARSE_STRING_A->len- 1 ; fornext_step5451= 1 ; if (fornext_step5451<0) fornext_step_negative5451=1; else fornext_step_negative5451=0; if (new_error) goto fornext_error5451; goto fornext_entrylabel5451; while(1){ fornext_value5451=fornext_step5451+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5451: *_SUB_WIKIPARSE_LONG_II=fornext_value5451; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5451){ if (fornext_value5451fornext_finalvalue5451) break; } fornext_error5451:; if(qbevent){evnt(25224,356,"wiki_methods.bas");if(r)goto S_49584;} S_49585:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,1),qbs_new_txt_len(">",1))))||new_error){ if(qbevent){evnt(25224,357,"wiki_methods.bas");if(r)goto S_49585;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; if(!qbevent)break;evnt(25224,357,"wiki_methods.bas");}while(r); do{ goto fornext_exit_5450; if(!qbevent)break;evnt(25224,357,"wiki_methods.bas");}while(r); } fornext_continue_5450:; } fornext_exit_5450:; do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,359,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<div",7)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,362,"wiki_methods.bas");}while(r); S_49593:; 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(25224,363,"wiki_methods.bas");if(r)goto S_49593;} 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(25224,364,"wiki_methods.bas");}while(r); S_49595:; fornext_value5456=*_SUB_WIKIPARSE_LONG_I; fornext_finalvalue5456=_SUB_WIKIPARSE_STRING_A->len- 1 ; fornext_step5456= 1 ; if (fornext_step5456<0) fornext_step_negative5456=1; else fornext_step_negative5456=0; if (new_error) goto fornext_error5456; goto fornext_entrylabel5456; while(1){ fornext_value5456=fornext_step5456+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5456: *_SUB_WIKIPARSE_LONG_II=fornext_value5456; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5456){ if (fornext_value5456fornext_finalvalue5456) break; } fornext_error5456:; if(qbevent){evnt(25224,365,"wiki_methods.bas");if(r)goto S_49595;} S_49596:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 9 ,1),qbs_new_txt_len("</div>",9))))||new_error){ if(qbevent){evnt(25224,366,"wiki_methods.bas");if(r)goto S_49596;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 8 ; if(!qbevent)break;evnt(25224,366,"wiki_methods.bas");}while(r); do{ goto fornext_exit_5455; if(!qbevent)break;evnt(25224,366,"wiki_methods.bas");}while(r); } fornext_continue_5455:; } fornext_exit_5455:; do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,368,"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(25224,371,"wiki_methods.bas");}while(r); S_49604:; 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(25224,372,"wiki_methods.bas");if(r)goto S_49604;} 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(25224,373,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("<",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,374,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,374,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; if(!qbevent)break;evnt(25224,375,"wiki_methods.bas");}while(r); } LABEL_SPECIALCHR:; if(qbevent){evnt(25224,377,"wiki_methods.bas");r=0;} } S_49611:; if ((-(*_SUB_WIKIPARSE_LONG_C== 91 ))||new_error){ if(qbevent){evnt(25224,381,"wiki_methods.bas");if(r)goto S_49611;} S_49612:; 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(25224,382,"wiki_methods.bas");if(r)goto S_49612;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,383,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; if(!qbevent)break;evnt(25224,384,"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(25224,385,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,386,"wiki_methods.bas");}while(r); } } S_49619:; if ((-(*_SUB_WIKIPARSE_LONG_LINK== 1 ))||new_error){ if(qbevent){evnt(25224,389,"wiki_methods.bas");if(r)goto S_49619;} S_49620:; 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(25224,390,"wiki_methods.bas");if(r)goto S_49620;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,391,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 0 ; if(!qbevent)break;evnt(25224,392,"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(25224,393,"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(25224,394,"wiki_methods.bas");}while(r); S_49625:; if ((*_SUB_WIKIPARSE_LONG_I2)||new_error){ if(qbevent){evnt(25224,395,"wiki_methods.bas");if(r)goto S_49625;} do{ qbs_set(_SUB_WIKIPARSE_STRING_TEXT,qbs_right(_SUB_WIKIPARSE_STRING_LINK,_SUB_WIKIPARSE_STRING_LINK->len-*_SUB_WIKIPARSE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,396,"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(25224,397,"wiki_methods.bas");}while(r); } S_49629:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("#",1),0)))||new_error){ if(qbevent){evnt(25224,400,"wiki_methods.bas");if(r)goto S_49629;} do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,&(pass5461= 8 ),&(pass5462= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,401,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,402,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; if(!qbevent)break;evnt(25224,405,"wiki_methods.bas");}while(r); 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(25224,406,"wiki_methods.bas");}while(r); S_49635:; if ((-(*__LONG_HELP_BG_COL== 0 ))||new_error){ if(qbevent){evnt(25224,408,"wiki_methods.bas");if(r)goto S_49635;} do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,409,"wiki_methods.bas");}while(r); }else{ do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,__LONG_HELP_COL_BOLD,__LONG_HELP_LINKN); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,411,"wiki_methods.bas");}while(r); } do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,413,"wiki_methods.bas");}while(r); } 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(25224,415,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,416,"wiki_methods.bas");}while(r); } S_49645:; if ((-(*_SUB_WIKIPARSE_LONG_C== 91 ))||new_error){ if(qbevent){evnt(25224,421,"wiki_methods.bas");if(r)goto S_49645;} S_49646:; 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("[http:",6)))&(-(*_SUB_WIKIPARSE_LONG_ELINK== 0 ))))||new_error){ if(qbevent){evnt(25224,422,"wiki_methods.bas");if(r)goto S_49646;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 2 ; if(!qbevent)break;evnt(25224,423,"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(25224,424,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,425,"wiki_methods.bas");}while(r); } } S_49652:; if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 2 ))||new_error){ if(qbevent){evnt(25224,428,"wiki_methods.bas");if(r)goto S_49652;} S_49653:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(" ",1))))||new_error){ if(qbevent){evnt(25224,429,"wiki_methods.bas");if(r)goto S_49653;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 1 ; if(!qbevent)break;evnt(25224,430,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,431,"wiki_methods.bas");}while(r); } 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(25224,433,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,434,"wiki_methods.bas");}while(r); } S_49660:; if ((-(*_SUB_WIKIPARSE_LONG_ELINK>= 1 ))||new_error){ if(qbevent){evnt(25224,436,"wiki_methods.bas");if(r)goto S_49660;} S_49661:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("]",1))))||new_error){ if(qbevent){evnt(25224,437,"wiki_methods.bas");if(r)goto S_49661;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 0 ; if(!qbevent)break;evnt(25224,438,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_add(qbs_new_txt_len(" ",1),_SUB_WIKIPARSE_STRING_ELINK)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,439,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 1 ; if(!qbevent)break;evnt(25224,440,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; if(!qbevent)break;evnt(25224,440,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_ELINK,&(pass5463= 8 ),&(pass5464= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,441,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 0 ; if(!qbevent)break;evnt(25224,442,"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(25224,443,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,444,"wiki_methods.bas");}while(r); } } S_49672:; if ((-(*_SUB_WIKIPARSE_LONG_C== 123 ))||new_error){ if(qbevent){evnt(25224,448,"wiki_methods.bas");if(r)goto S_49672;} S_49673:; 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("{{KW|",5))))||new_error){ if(qbevent){evnt(25224,449,"wiki_methods.bas");if(r)goto S_49673;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; if(!qbevent)break;evnt(25224,450,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; if(!qbevent)break;evnt(25224,451,"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(25224,452,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,453,"wiki_methods.bas");}while(r); } S_49679:; 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("{{Cl|",5))))||new_error){ if(qbevent){evnt(25224,455,"wiki_methods.bas");if(r)goto S_49679;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; if(!qbevent)break;evnt(25224,456,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; if(!qbevent)break;evnt(25224,457,"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(25224,458,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,459,"wiki_methods.bas");}while(r); } S_49685:; 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(25224,461,"wiki_methods.bas");if(r)goto S_49685;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,462,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_CB= 1 ; if(!qbevent)break;evnt(25224,463,"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(25224,464,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,465,"wiki_methods.bas");}while(r); } } S_49692:; if ((-(*_SUB_WIKIPARSE_LONG_CB== 1 ))||new_error){ if(qbevent){evnt(25224,469,"wiki_methods.bas");if(r)goto S_49692;} S_49693:; 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(25224,470,"wiki_methods.bas");if(r)goto S_49693;} S_49694:; 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(25224,471,"wiki_methods.bas");if(r)goto S_49694;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,471,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_CB= 0 ; if(!qbevent)break;evnt(25224,472,"wiki_methods.bas");}while(r); S_49698:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSyntax",10))))||new_error){ if(qbevent){evnt(25224,474,"wiki_methods.bas");if(r)goto S_49698;} do{ SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Syntax:",7),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5465= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,474,"wiki_methods.bas");}while(r); } S_49701:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageDescription",15))))||new_error){ if(qbevent){evnt(25224,475,"wiki_methods.bas");if(r)goto S_49701;} do{ SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Description:",12),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5466= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,475,"wiki_methods.bas");}while(r); } S_49704:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageExamples",12))))||new_error){ if(qbevent){evnt(25224,476,"wiki_methods.bas");if(r)goto S_49704;} do{ SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Code Examples:",14),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5467= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,476,"wiki_methods.bas");}while(r); } S_49707:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSeeAlso",11))))||new_error){ if(qbevent){evnt(25224,477,"wiki_methods.bas");if(r)goto S_49707;} do{ SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("See also:",9),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5468= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,477,"wiki_methods.bas");}while(r); } S_49710:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeStart",9))))||new_error){ if(qbevent){evnt(25224,479,"wiki_methods.bas");if(r)goto S_49710;} do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,480,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 1 ; if(!qbevent)break;evnt(25224,481,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_WS= 1 ; if(!qbevent)break;evnt(25224,483,"wiki_methods.bas");}while(r); S_49714:; fornext_value5470=*_SUB_WIKIPARSE_LONG_I+ 1 ; fornext_finalvalue5470=_SUB_WIKIPARSE_STRING_A->len; fornext_step5470= 1 ; if (fornext_step5470<0) fornext_step_negative5470=1; else fornext_step_negative5470=0; if (new_error) goto fornext_error5470; goto fornext_entrylabel5470; while(1){ fornext_value5470=fornext_step5470+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5470: *_SUB_WIKIPARSE_LONG_II=fornext_value5470; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5470){ if (fornext_value5470fornext_finalvalue5470) break; } fornext_error5470:; if(qbevent){evnt(25224,484,"wiki_methods.bas");if(r)goto S_49714;} S_49715:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)== 10 )))||new_error){ if(qbevent){evnt(25224,485,"wiki_methods.bas");if(r)goto S_49715;} do{ goto fornext_exit_5469; if(!qbevent)break;evnt(25224,485,"wiki_methods.bas");}while(r); } S_49718:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 32 ))&(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 39 ))))||new_error){ if(qbevent){evnt(25224,486,"wiki_methods.bas");if(r)goto S_49718;} do{ *_SUB_WIKIPARSE_LONG_WS= 0 ; if(!qbevent)break;evnt(25224,486,"wiki_methods.bas");}while(r); } fornext_continue_5469:; } fornext_exit_5469:; S_49722:; if ((*_SUB_WIKIPARSE_LONG_WS)||new_error){ if(qbevent){evnt(25224,488,"wiki_methods.bas");if(r)goto S_49722;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; if(!qbevent)break;evnt(25224,488,"wiki_methods.bas");}while(r); } } S_49726:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeEnd",7))))||new_error){ if(qbevent){evnt(25224,490,"wiki_methods.bas");if(r)goto S_49726;} do{ *__LONG_HELP_BG_COL= 0 ; if(!qbevent)break;evnt(25224,490,"wiki_methods.bas");}while(r); } S_49729:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputStart",11))))||new_error){ if(qbevent){evnt(25224,491,"wiki_methods.bas");if(r)goto S_49729;} do{ SUB_HELP_NEWLINE(); if(!qbevent)break;evnt(25224,492,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 2 ; if(!qbevent)break;evnt(25224,493,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_WS= 1 ; if(!qbevent)break;evnt(25224,495,"wiki_methods.bas");}while(r); S_49733:; fornext_value5473=*_SUB_WIKIPARSE_LONG_I+ 1 ; fornext_finalvalue5473=_SUB_WIKIPARSE_STRING_A->len; fornext_step5473= 1 ; if (fornext_step5473<0) fornext_step_negative5473=1; else fornext_step_negative5473=0; if (new_error) goto fornext_error5473; goto fornext_entrylabel5473; while(1){ fornext_value5473=fornext_step5473+(*_SUB_WIKIPARSE_LONG_II); fornext_entrylabel5473: *_SUB_WIKIPARSE_LONG_II=fornext_value5473; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5473){ if (fornext_value5473fornext_finalvalue5473) break; } fornext_error5473:; if(qbevent){evnt(25224,496,"wiki_methods.bas");if(r)goto S_49733;} S_49734:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)== 10 )))||new_error){ if(qbevent){evnt(25224,497,"wiki_methods.bas");if(r)goto S_49734;} do{ goto fornext_exit_5472; if(!qbevent)break;evnt(25224,497,"wiki_methods.bas");}while(r); } S_49737:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 32 ))&(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 39 ))))||new_error){ if(qbevent){evnt(25224,498,"wiki_methods.bas");if(r)goto S_49737;} do{ *_SUB_WIKIPARSE_LONG_WS= 0 ; if(!qbevent)break;evnt(25224,498,"wiki_methods.bas");}while(r); } fornext_continue_5472:; } fornext_exit_5472:; S_49741:; if ((*_SUB_WIKIPARSE_LONG_WS)||new_error){ if(qbevent){evnt(25224,500,"wiki_methods.bas");if(r)goto S_49741;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; if(!qbevent)break;evnt(25224,500,"wiki_methods.bas");}while(r); } } S_49745:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputEnd",9))))||new_error){ if(qbevent){evnt(25224,502,"wiki_methods.bas");if(r)goto S_49745;} do{ *__LONG_HELP_BG_COL= 0 ; if(!qbevent)break;evnt(25224,502,"wiki_methods.bas");}while(r); } do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,504,"wiki_methods.bas");}while(r); } 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(25224,508,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,509,"wiki_methods.bas");}while(r); } S_49753:; 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(25224,512,"wiki_methods.bas");if(r)goto S_49753;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,513,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,514,"wiki_methods.bas");}while(r); } S_49757:; 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(25224,519,"wiki_methods.bas");if(r)goto S_49757;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,520,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; if(!qbevent)break;evnt(25224,521,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,522,"wiki_methods.bas");}while(r); } S_49762:; 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(25224,524,"wiki_methods.bas");if(r)goto S_49762;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,525,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; if(!qbevent)break;evnt(25224,526,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,527,"wiki_methods.bas");}while(r); } S_49767:; 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(25224,529,"wiki_methods.bas");if(r)goto S_49767;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,530,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,531,"wiki_methods.bas");}while(r); } S_49771:; 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(25224,533,"wiki_methods.bas");if(r)goto S_49771;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,534,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; if(!qbevent)break;evnt(25224,535,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,536,"wiki_methods.bas");}while(r); } S_49776:; 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(25224,540,"wiki_methods.bas");if(r)goto S_49776;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,541,"wiki_methods.bas");}while(r); S_49778:; if ((-(*__LONG_HELP_BOLD== 0 ))||new_error){ if(qbevent){evnt(25224,542,"wiki_methods.bas");if(r)goto S_49778;} do{ *__LONG_HELP_BOLD= 1 ; if(!qbevent)break;evnt(25224,542,"wiki_methods.bas");}while(r); }else{ do{ *__LONG_HELP_BOLD= 0 ; if(!qbevent)break;evnt(25224,542,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); if(!qbevent)break;evnt(25224,543,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,544,"wiki_methods.bas");}while(r); } S_49786:; 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(25224,547,"wiki_methods.bas");if(r)goto S_49786;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,548,"wiki_methods.bas");}while(r); S_49788:; if ((-(*__LONG_HELP_ITALIC== 0 ))||new_error){ if(qbevent){evnt(25224,549,"wiki_methods.bas");if(r)goto S_49788;} do{ *__LONG_HELP_ITALIC= 1 ; if(!qbevent)break;evnt(25224,549,"wiki_methods.bas");}while(r); }else{ do{ *__LONG_HELP_ITALIC= 0 ; if(!qbevent)break;evnt(25224,549,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); if(!qbevent)break;evnt(25224,550,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,551,"wiki_methods.bas");}while(r); } S_49796:; if ((-(*_SUB_WIKIPARSE_LONG_NL== 1 ))||new_error){ if(qbevent){evnt(25224,554,"wiki_methods.bas");if(r)goto S_49796;} S_49797:; 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(25224,556,"wiki_methods.bas");if(r)goto S_49797;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,557,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5475= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,558,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 6 ; if(!qbevent)break;evnt(25224,559,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,560,"wiki_methods.bas");}while(r); } S_49803:; 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(25224,562,"wiki_methods.bas");if(r)goto S_49803;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,563,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5476= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,564,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 2 ; if(!qbevent)break;evnt(25224,565,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,566,"wiki_methods.bas");}while(r); } S_49809:; 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(25224,568,"wiki_methods.bas");if(r)goto S_49809;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,569,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5477= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,570,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 6 ; if(!qbevent)break;evnt(25224,571,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,572,"wiki_methods.bas");}while(r); } S_49815:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("*",1))))||new_error){ if(qbevent){evnt(25224,574,"wiki_methods.bas");if(r)goto S_49815;} do{ SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5478= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,575,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 2 ; if(!qbevent)break;evnt(25224,576,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,577,"wiki_methods.bas");}while(r); } } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("{|",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,582,"wiki_methods.bas");}while(r); S_49822:; 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(25224,583,"wiki_methods.bas");if(r)goto S_49822;} S_49823:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal((func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I, 20 ,1)),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{| class=",9),func_chr( 34 )),qbs_new_txt_len("wikitable",9)),func_chr( 34 ))))))||new_error){ if(qbevent){evnt(25224,584,"wiki_methods.bas");if(r)goto S_49823;} do{ if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8])->id=(++mem_lock_id); if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&1){ tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]); free((void*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0])); } _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]= 1 ; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]=( 100 )-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]+1; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[6]=1; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]=(ptrszint)malloc(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]*8); if (!_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]) error(257); _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]|=1; tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&4){ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]=(uint64)qbs_new(0,0); } } if(!qbevent)break;evnt(25224,585,"wiki_methods.bas");}while(r); do{ if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8])->id=(++mem_lock_id); if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&1){ if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ cmem_dynamic_free((uint8*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); }else{ free((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); } } _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]= 1 ; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]=( 100 )-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]+1; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[6]=1; if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)cmem_dynamic_malloc(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2); memset((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),0,_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2); }else{ _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)calloc(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2,1); if (!_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]) error(257); } _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]|=1; } if(!qbevent)break;evnt(25224,586,"wiki_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,587,"wiki_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,588,"wiki_methods.bas");}while(r); do{ if(!qbevent)break;evnt(25224,589,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_INTEGER_TOTALCOLS= 0 ; if(!qbevent)break;evnt(25224,590,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_INTEGER_TOTALROWS= 0 ; if(!qbevent)break;evnt(25224,590,"wiki_methods.bas");}while(r); S_49831:; do{ if(qbevent){evnt(25224,591,"wiki_methods.bas");if(r)goto S_49831;} do{ qbs_set(_SUB_WIKIPARSE_STRING_L,FUNC_WIKIGETLINE(_SUB_WIKIPARSE_STRING_A,_SUB_WIKIPARSE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,592,"wiki_methods.bas");}while(r); S_49833:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_L,qbs_new_txt_len("|}",2)))|(-(*_SUB_WIKIPARSE_LONG_I>=_SUB_WIKIPARSE_STRING_A->len))))||new_error){ if(qbevent){evnt(25224,593,"wiki_methods.bas");if(r)goto S_49833;} do{ goto dl_exit_5480; if(!qbevent)break;evnt(25224,593,"wiki_methods.bas");}while(r); } S_49836:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_L,qbs_new_txt_len("|-",2))))||new_error){ if(qbevent){evnt(25224,594,"wiki_methods.bas");if(r)goto S_49836;} do{ goto dl_continue_5480; if(!qbevent)break;evnt(25224,594,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,596,"wiki_methods.bas");}while(r); S_49840:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_L, 2 ),qbs_new_txt_len("! ",2))))||new_error){ if(qbevent){evnt(25224,597,"wiki_methods.bas");if(r)goto S_49840;} do{ qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("!!",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,597,"wiki_methods.bas");}while(r); } S_49843:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_L, 2 ),qbs_new_txt_len("| ",2))))||new_error){ if(qbevent){evnt(25224,598,"wiki_methods.bas");if(r)goto S_49843;} do{ qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("||",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,598,"wiki_methods.bas");}while(r); } S_49846:; if ((qbs_cleanup(qbs_tmp_base,_SUB_WIKIPARSE_STRING_M->len))||new_error){ if(qbevent){evnt(25224,600,"wiki_methods.bas");if(r)goto S_49846;} do{ *_SUB_WIKIPARSE_INTEGER_TOTALROWS=*_SUB_WIKIPARSE_INTEGER_TOTALROWS+ 1 ; if(!qbevent)break;evnt(25224,602,"wiki_methods.bas");}while(r); S_49848:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_WIKIPARSE_INTEGER_TOTALROWS>func_ubound(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW,1,1))))||new_error){ if(qbevent){evnt(25224,603,"wiki_methods.bas");if(r)goto S_49848;} do{ if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&1){ preserved_elements=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; } else preserved_elements=0; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]= 1 ; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]=(func_ubound(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW,1,1)+ 99 )-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]+1; _SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[6]=1; if (preserved_elements){ static ptrszint tmp_long2; tmp_long2=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; if (tmp_long2len)))||new_error){ if(qbevent){evnt(25224,613,"wiki_methods.bas");if(r)goto S_49856;} do{ *_SUB_WIKIPARSE_INTEGER_THISCOL=*_SUB_WIKIPARSE_INTEGER_THISCOL+ 1 ; if(!qbevent)break;evnt(25224,614,"wiki_methods.bas");}while(r); S_49858:; if ((-(*_SUB_WIKIPARSE_INTEGER_TOTALCOLS<*_SUB_WIKIPARSE_INTEGER_THISCOL))||new_error){ if(qbevent){evnt(25224,615,"wiki_methods.bas");if(r)goto S_49858;} do{ *_SUB_WIKIPARSE_INTEGER_TOTALCOLS=*_SUB_WIKIPARSE_INTEGER_THISCOL; if(!qbevent)break;evnt(25224,615,"wiki_methods.bas");}while(r); } S_49861:; if ((-(*_SUB_WIKIPARSE_INTEGER_THISCOL>func_ubound(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL,1,1)))||new_error){ if(qbevent){evnt(25224,616,"wiki_methods.bas");if(r)goto S_49861;} do{ if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8])->id=(++mem_lock_id); static int32 preserved_elements; if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&1){ preserved_elements=_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]; } else preserved_elements=0; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]= 1 ; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]=(func_ubound(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL,1,1)+ 99 )-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]+1; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[6]=1; if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ if (preserved_elements){ memcpy(redim_preserve_cmem_buffer,(void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),preserved_elements*2); cmem_dynamic_free((uint8*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); tmp_long=_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]; _SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); memcpy((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),redim_preserve_cmem_buffer,preserved_elements*2); if (preserved_elementslen)+ 2 ))))||new_error){ if(qbevent){evnt(25224,619,"wiki_methods.bas");if(r)goto S_49864;} do{ tmp_long=array_check((*_SUB_WIKIPARSE_INTEGER_THISCOL)-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4],_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]); if (!new_error) ((int16*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]))[tmp_long]=((int32)(qbs__trim(_SUB_WIKIPARSE_STRING_P))->len)+ 2 ; if(!qbevent)break;evnt(25224,619,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("<",4),qbs_new_txt_len("<",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,620,"wiki_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_WIKIPARSE_INTEGER_TOTALROWS)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[array_check((*_SUB_WIKIPARSE_INTEGER_TOTALROWS)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5])])),qbs__trim(_SUB_WIKIPARSE_STRING_P)),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,621,"wiki_methods.bas");}while(r); } S_49870:; dl_continue_5483:; }while((qbs_cleanup(qbs_tmp_base,-(*_SUB_WIKIPARSE_LONG_J<_SUB_WIKIPARSE_STRING_L->len)))&&(!new_error)); dl_exit_5483:; if(qbevent){evnt(25224,623,"wiki_methods.bas");if(r)goto S_49870;} } dl_continue_5480:; }while(1); dl_exit_5480:; do{ *_SUB_WIKIPARSE_LONG_BACKUPHELP_BG_COL=*__LONG_HELP_BG_COL; if(!qbevent)break;evnt(25224,626,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_BACKUPBOLD=*__LONG_HELP_BOLD; if(!qbevent)break;evnt(25224,627,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 2 ; if(!qbevent)break;evnt(25224,628,"wiki_methods.bas");}while(r); S_49876:; fornext_value5486= 1 ; fornext_finalvalue5486=*_SUB_WIKIPARSE_INTEGER_TOTALROWS; fornext_step5486= 1 ; if (fornext_step5486<0) fornext_step_negative5486=1; else fornext_step_negative5486=0; if (new_error) goto fornext_error5486; goto fornext_entrylabel5486; while(1){ fornext_value5486=fornext_step5486+(*_SUB_WIKIPARSE_LONG_PRINTTABLE); fornext_entrylabel5486: *_SUB_WIKIPARSE_LONG_PRINTTABLE=fornext_value5486; if (fornext_step_negative5486){ if (fornext_value5486fornext_finalvalue5486) break; } fornext_error5486:; if(qbevent){evnt(25224,629,"wiki_methods.bas");if(r)goto S_49876;} S_49877:; if ((-(*_SUB_WIKIPARSE_LONG_PRINTTABLE== 1 ))||new_error){ if(qbevent){evnt(25224,630,"wiki_methods.bas");if(r)goto S_49877;} do{ *__LONG_HELP_BOLD= 1 ; if(!qbevent)break;evnt(25224,631,"wiki_methods.bas");}while(r); }else{ do{ *__LONG_HELP_BOLD= 0 ; if(!qbevent)break;evnt(25224,633,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); if(!qbevent)break;evnt(25224,635,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_J= 1 ; if(!qbevent)break;evnt(25224,637,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,638,"wiki_methods.bas");}while(r); S_49885:; fornext_value5488= 1 ; fornext_finalvalue5488=*_SUB_WIKIPARSE_INTEGER_TOTALCOLS; fornext_step5488= 1 ; if (fornext_step5488<0) fornext_step_negative5488=1; else fornext_step_negative5488=0; if (new_error) goto fornext_error5488; goto fornext_entrylabel5488; while(1){ fornext_value5488=fornext_step5488+(*_SUB_WIKIPARSE_LONG_CHECKCOL); fornext_entrylabel5488: *_SUB_WIKIPARSE_LONG_CHECKCOL=fornext_value5488; if (fornext_step_negative5488){ if (fornext_value5488fornext_finalvalue5488) break; } fornext_error5488:; if(qbevent){evnt(25224,639,"wiki_methods.bas");if(r)goto S_49885;} do{ qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_WIKIGETUNTIL(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[array_check((*_SUB_WIKIPARSE_LONG_PRINTTABLE)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5])])),_SUB_WIKIPARSE_LONG_J,func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,640,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_THISCOL,func_space(((int16*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]))[array_check((*_SUB_WIKIPARSE_LONG_CHECKCOL)-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4],_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5])])); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,641,"wiki_methods.bas");}while(r); do{ sub_mid(_SUB_WIKIPARSE_STRING_THISCOL, 2 ,0,_SUB_WIKIPARSE_STRING_P,0); if(!qbevent)break;evnt(25224,642,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,qbs_add(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,_SUB_WIKIPARSE_STRING_THISCOL)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,643,"wiki_methods.bas");}while(r); fornext_continue_5487:; } fornext_exit_5487:; do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,_SUB_WIKIPARSE_LONG_COL,&(pass5489= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,645,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass5490= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,646,"wiki_methods.bas");}while(r); fornext_continue_5485:; } fornext_exit_5485:; do{ *__LONG_HELP_BG_COL=*_SUB_WIKIPARSE_LONG_BACKUPHELP_BG_COL; if(!qbevent)break;evnt(25224,648,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BOLD=*_SUB_WIKIPARSE_LONG_BACKUPBOLD; if(!qbevent)break;evnt(25224,649,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass5491= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,650,"wiki_methods.bas");}while(r); }else{ do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,652,"wiki_methods.bas");}while(r); S_49899:; fornext_value5493=*_SUB_WIKIPARSE_LONG_I; fornext_finalvalue5493=_SUB_WIKIPARSE_STRING_A->len- 1 ; 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_WIKIPARSE_LONG_II); fornext_entrylabel5493: *_SUB_WIKIPARSE_LONG_II=fornext_value5493; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5493){ if (fornext_value5493fornext_finalvalue5493) break; } fornext_error5493:; if(qbevent){evnt(25224,653,"wiki_methods.bas");if(r)goto S_49899;} S_49900:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 2 ,1),qbs_new_txt_len("|}",2))))||new_error){ if(qbevent){evnt(25224,654,"wiki_methods.bas");if(r)goto S_49900;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 1 ; if(!qbevent)break;evnt(25224,654,"wiki_methods.bas");}while(r); do{ goto fornext_exit_5492; if(!qbevent)break;evnt(25224,654,"wiki_methods.bas");}while(r); } fornext_continue_5492:; } fornext_exit_5492:; } do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,657,"wiki_methods.bas");}while(r); } S_49908:; 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_add(func_chr( 226 ),func_chr( 128 )),func_chr( 166 ))))))||new_error){ if(qbevent){evnt(25224,660,"wiki_methods.bas");if(r)goto S_49908;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,661,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(qbs_new_txt_len("...",3),_SUB_WIKIPARSE_LONG_COL,&(pass5495= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,662,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,663,"wiki_methods.bas");}while(r); } S_49913:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,func_chr( 226 ))))||new_error){ if(qbevent){evnt(25224,666,"wiki_methods.bas");if(r)goto S_49913;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; if(!qbevent)break;evnt(25224,667,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,668,"wiki_methods.bas");}while(r); } S_49917:; 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(25224,671,"wiki_methods.bas");if(r)goto S_49917;} do{ SUB_HELP_ADDTXT(qbs_new_txt_len(" ",4),_SUB_WIKIPARSE_LONG_COL,&(pass5496= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,672,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 4 ; if(!qbevent)break;evnt(25224,673,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,674,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL2; if(!qbevent)break;evnt(25224,674,"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(25224,677,"wiki_methods.bas");}while(r); S_49924:; 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(25224,678,"wiki_methods.bas");if(r)goto S_49924;} 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(25224,679,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,680,"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(25224,682,"wiki_methods.bas");}while(r); S_49929:; 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(25224,683,"wiki_methods.bas");if(r)goto S_49929;} 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(25224,684,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,685,"wiki_methods.bas");}while(r); } S_49933:; 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(25224,688,"wiki_methods.bas");if(r)goto S_49933;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; if(!qbevent)break;evnt(25224,689,"wiki_methods.bas");}while(r); do{ SUB_HELP_ADDTXT(func_string( 100 , 196 ),&(pass5501= 8 ),&(pass5502= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,690,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; if(!qbevent)break;evnt(25224,691,"wiki_methods.bas");}while(r); } S_49938:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,func_chr( 10 ))))||new_error){ if(qbevent){evnt(25224,696,"wiki_methods.bas");if(r)goto S_49938;} do{ *__LONG_HELP_NEWLINEINDENT= 0 ; if(!qbevent)break;evnt(25224,697,"wiki_methods.bas");}while(r); S_49940:; if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ if(qbevent){evnt(25224,699,"wiki_methods.bas");if(r)goto S_49940;} S_49941:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 3 )== 13 ))&(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 7 )== 13 ))))||new_error){ if(qbevent){evnt(25224,700,"wiki_methods.bas");if(r)goto S_49941;} do{ goto LABEL_SKIPDOUBLEBLANKS; if(!qbevent)break;evnt(25224,700,"wiki_methods.bas");}while(r); } } do{ SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass5503= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,703,"wiki_methods.bas");}while(r); LABEL_SKIPDOUBLEBLANKS:; if(qbevent){evnt(25224,705,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_NL= 1 ; if(!qbevent)break;evnt(25224,706,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,707,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL2; if(!qbevent)break;evnt(25224,707,"wiki_methods.bas");}while(r); } do{ SUB_HELP_ADDTXT(func_chr(*_SUB_WIKIPARSE_LONG_C),_SUB_WIKIPARSE_LONG_COL,&(pass5504= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,710,"wiki_methods.bas");}while(r); LABEL_SPECIAL:; if(qbevent){evnt(25224,712,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; if(!qbevent)break;evnt(25224,713,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_NL= 0 ; if(!qbevent)break;evnt(25224,714,"wiki_methods.bas");}while(r); LABEL_SPECIAL2:; if(qbevent){evnt(25224,715,"wiki_methods.bas");r=0;} dl_continue_5424:; } dl_exit_5424:; do{ qbs_set(__STRING_HELP_TXT,qbs_add(qbs_left(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN),func_chr( 13 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,719,"wiki_methods.bas");}while(r); S_49955:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HELP_PAGELOADED,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ if(qbevent){evnt(25224,734,"wiki_methods.bas");if(r)goto S_49955;} do{ *_SUB_WIKIPARSE_LONG_FH=func_freefile(); if(!qbevent)break;evnt(25224,736,"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(25224,737,"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(25224,738,"wiki_methods.bas");}while(r); S_49959:; fornext_value5506= 1 ; fornext_finalvalue5506=*__LONG_HELP_H; fornext_step5506= 1 ; if (fornext_step5506<0) fornext_step_negative5506=1; else fornext_step_negative5506=0; if (new_error) goto fornext_error5506; goto fornext_entrylabel5506; while(1){ fornext_value5506=fornext_step5506+(*_SUB_WIKIPARSE_LONG_CY); fornext_entrylabel5506: *_SUB_WIKIPARSE_LONG_CY=fornext_value5506; if (fornext_step_negative5506){ if (fornext_value5506fornext_finalvalue5506) break; } fornext_error5506:; if(qbevent){evnt(25224,739,"wiki_methods.bas");if(r)goto S_49959;} do{ *_SUB_WIKIPARSE_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_WIKIPARSE_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,741,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_L; if(!qbevent)break;evnt(25224,742,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X2= 1 ; if(!qbevent)break;evnt(25224,743,"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(25224,744,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_OLDLNK= 0 ; if(!qbevent)break;evnt(25224,745,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX1= 0 ; if(!qbevent)break;evnt(25224,746,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX2= 0 ; if(!qbevent)break;evnt(25224,746,"wiki_methods.bas");}while(r); S_49967:; while((!(-(*_SUB_WIKIPARSE_LONG_C== 13 )))||new_error){ if(qbevent){evnt(25224,747,"wiki_methods.bas");if(r)goto S_49967;} 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(25224,748,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,749,"wiki_methods.bas");}while(r); S_49970:; if (((-(*_SUB_WIKIPARSE_LONG_OLDLNK== 0 ))&(-(*_SUB_WIKIPARSE_LONG_LNK!= 0 )))||new_error){ if(qbevent){evnt(25224,750,"wiki_methods.bas");if(r)goto S_49970;} do{ *_SUB_WIKIPARSE_LONG_LNKX1=*_SUB_WIKIPARSE_LONG_X2; if(!qbevent)break;evnt(25224,750,"wiki_methods.bas");}while(r); } S_49973:; if ((qbs_cleanup(qbs_tmp_base,(((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))|(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 4 )== 13 ))))&(-(*_SUB_WIKIPARSE_LONG_LNKX1!= 0 ))))||new_error){ if(qbevent){evnt(25224,751,"wiki_methods.bas");if(r)goto S_49973;} do{ *_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_X2; if(!qbevent)break;evnt(25224,752,"wiki_methods.bas");}while(r); S_49975:; if ((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))||new_error){ if(qbevent){evnt(25224,752,"wiki_methods.bas");if(r)goto S_49975;} do{ *_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_LNKX2- 1 ; if(!qbevent)break;evnt(25224,752,"wiki_methods.bas");}while(r); } S_49978:; if ((-(*_SUB_WIKIPARSE_LONG_LNKX1!= 3 ))||new_error){ if(qbevent){evnt(25224,754,"wiki_methods.bas");if(r)goto S_49978;} do{ goto LABEL_IGNORELINK; if(!qbevent)break;evnt(25224,754,"wiki_methods.bas");}while(r); } S_49981:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A, 1 )!= 254 )))||new_error){ if(qbevent){evnt(25224,755,"wiki_methods.bas");if(r)goto S_49981;} do{ goto LABEL_IGNORELINK; if(!qbevent)break;evnt(25224,755,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_LNK; if(!qbevent)break;evnt(25224,758,"wiki_methods.bas");}while(r); S_49985:; if ((-(*_SUB_WIKIPARSE_LONG_LNK2== 0 ))||new_error){ if(qbevent){evnt(25224,758,"wiki_methods.bas");if(r)goto S_49985;} do{ *_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_OLDLNK; if(!qbevent)break;evnt(25224,758,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_L1= 1 ; if(!qbevent)break;evnt(25224,759,"wiki_methods.bas");}while(r); S_49989:; fornext_value5509= 1 ; fornext_finalvalue5509=*_SUB_WIKIPARSE_LONG_LNK2- 1 ; fornext_step5509= 1 ; if (fornext_step5509<0) fornext_step_negative5509=1; else fornext_step_negative5509=0; if (new_error) goto fornext_error5509; goto fornext_entrylabel5509; while(1){ fornext_value5509=fornext_step5509+(*_SUB_WIKIPARSE_LONG_LX); fornext_entrylabel5509: *_SUB_WIKIPARSE_LONG_LX=fornext_value5509; if (fornext_step_negative5509){ if (fornext_value5509fornext_finalvalue5509) break; } fornext_error5509:; if(qbevent){evnt(25224,760,"wiki_methods.bas");if(r)goto S_49989;} do{ *_SUB_WIKIPARSE_LONG_L1=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,761,"wiki_methods.bas");}while(r); fornext_continue_5508:; } fornext_exit_5508:; do{ *_SUB_WIKIPARSE_LONG_L2=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)- 1 ; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,763,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,764,"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(25224,766,"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 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,768,"wiki_methods.bas");}while(r); S_49996:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ if(qbevent){evnt(25224,770,"wiki_methods.bas");if(r)goto S_49996;} 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(25224,770,"wiki_methods.bas");}while(r); } S_49999:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(25224,771,"wiki_methods.bas");if(r)goto S_49999;} 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(25224,771,"wiki_methods.bas");}while(r); } S_50002:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ if(qbevent){evnt(25224,772,"wiki_methods.bas");if(r)goto S_50002;} 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(25224,773,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; if(!qbevent)break;evnt(25224,775,"wiki_methods.bas");}while(r); S_50005:; 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(25224,777,"wiki_methods.bas");if(r)goto S_50005;} S_50006:; fornext_value5513= 1 ; fornext_finalvalue5513=_SUB_WIKIPARSE_STRING_A3->len; fornext_step5513= 1 ; if (fornext_step5513<0) fornext_step_negative5513=1; else fornext_step_negative5513=0; if (new_error) goto fornext_error5513; goto fornext_entrylabel5513; while(1){ fornext_value5513=fornext_step5513+(*_SUB_WIKIPARSE_LONG_CI); fornext_entrylabel5513: *_SUB_WIKIPARSE_LONG_CI=fornext_value5513; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5513){ if (fornext_value5513fornext_finalvalue5513) break; } fornext_error5513:; if(qbevent){evnt(25224,778,"wiki_methods.bas");if(r)goto S_50006;} 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(25224,779,"wiki_methods.bas");}while(r); S_50008:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ if(qbevent){evnt(25224,780,"wiki_methods.bas");if(r)goto S_50008;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,780,"wiki_methods.bas");}while(r); } S_50011:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ if(qbevent){evnt(25224,781,"wiki_methods.bas");if(r)goto S_50011;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,781,"wiki_methods.bas");}while(r); } fornext_continue_5512:; } fornext_exit_5512:; } S_50016:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ if(qbevent){evnt(25224,785,"wiki_methods.bas");if(r)goto S_50016;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; if (new_error) goto skip5515; 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 skip5515; skip5515: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,785,"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(25224,787,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; if(!qbevent)break;evnt(25224,791,"wiki_methods.bas");}while(r); S_50022:; 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(25224,792,"wiki_methods.bas");if(r)goto S_50022;} S_50023:; fornext_value5517= 1 ; fornext_finalvalue5517=_SUB_WIKIPARSE_STRING_A2->len; 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_WIKIPARSE_LONG_CI); fornext_entrylabel5517: *_SUB_WIKIPARSE_LONG_CI=fornext_value5517; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5517){ if (fornext_value5517fornext_finalvalue5517) break; } fornext_error5517:; if(qbevent){evnt(25224,793,"wiki_methods.bas");if(r)goto S_50023;} 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(25224,794,"wiki_methods.bas");}while(r); S_50025:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ if(qbevent){evnt(25224,795,"wiki_methods.bas");if(r)goto S_50025;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,795,"wiki_methods.bas");}while(r); } S_50028:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ if(qbevent){evnt(25224,796,"wiki_methods.bas");if(r)goto S_50028;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,796,"wiki_methods.bas");}while(r); } fornext_continue_5516:; } fornext_exit_5516:; } S_50033:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ if(qbevent){evnt(25224,799,"wiki_methods.bas");if(r)goto S_50033;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; if (new_error) goto skip5519; 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 skip5519; skip5519: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,799,"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(25224,800,"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(25224,802,"wiki_methods.bas");}while(r); S_50038:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ if(qbevent){evnt(25224,803,"wiki_methods.bas");if(r)goto S_50038;} 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(25224,803,"wiki_methods.bas");}while(r); } S_50041:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ if(qbevent){evnt(25224,804,"wiki_methods.bas");if(r)goto S_50041;} 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(25224,804,"wiki_methods.bas");}while(r); } S_50044:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ if(qbevent){evnt(25224,805,"wiki_methods.bas");if(r)goto S_50044;} 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(25224,806,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; if(!qbevent)break;evnt(25224,808,"wiki_methods.bas");}while(r); S_50047:; 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(25224,809,"wiki_methods.bas");if(r)goto S_50047;} S_50048:; fornext_value5522= 1 ; fornext_finalvalue5522=_SUB_WIKIPARSE_STRING_A3->len; fornext_step5522= 1 ; if (fornext_step5522<0) fornext_step_negative5522=1; else fornext_step_negative5522=0; if (new_error) goto fornext_error5522; goto fornext_entrylabel5522; while(1){ fornext_value5522=fornext_step5522+(*_SUB_WIKIPARSE_LONG_CI); fornext_entrylabel5522: *_SUB_WIKIPARSE_LONG_CI=fornext_value5522; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5522){ if (fornext_value5522fornext_finalvalue5522) break; } fornext_error5522:; if(qbevent){evnt(25224,810,"wiki_methods.bas");if(r)goto S_50048;} 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(25224,811,"wiki_methods.bas");}while(r); S_50050:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ if(qbevent){evnt(25224,812,"wiki_methods.bas");if(r)goto S_50050;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,812,"wiki_methods.bas");}while(r); } S_50053:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ if(qbevent){evnt(25224,813,"wiki_methods.bas");if(r)goto S_50053;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,813,"wiki_methods.bas");}while(r); } fornext_continue_5521:; } fornext_exit_5521:; } S_50058:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ if(qbevent){evnt(25224,816,"wiki_methods.bas");if(r)goto S_50058;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; if (new_error) goto skip5524; 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 skip5524; skip5524: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,816,"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(25224,818,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; if(!qbevent)break;evnt(25224,821,"wiki_methods.bas");}while(r); S_50064:; 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(25224,822,"wiki_methods.bas");if(r)goto S_50064;} S_50065:; fornext_value5526= 1 ; fornext_finalvalue5526=_SUB_WIKIPARSE_STRING_A2->len; fornext_step5526= 1 ; if (fornext_step5526<0) fornext_step_negative5526=1; else fornext_step_negative5526=0; if (new_error) goto fornext_error5526; goto fornext_entrylabel5526; while(1){ fornext_value5526=fornext_step5526+(*_SUB_WIKIPARSE_LONG_CI); fornext_entrylabel5526: *_SUB_WIKIPARSE_LONG_CI=fornext_value5526; qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative5526){ if (fornext_value5526fornext_finalvalue5526) break; } fornext_error5526:; if(qbevent){evnt(25224,823,"wiki_methods.bas");if(r)goto S_50065;} 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(25224,824,"wiki_methods.bas");}while(r); S_50067:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ if(qbevent){evnt(25224,825,"wiki_methods.bas");if(r)goto S_50067;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,825,"wiki_methods.bas");}while(r); } S_50070:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ if(qbevent){evnt(25224,826,"wiki_methods.bas");if(r)goto S_50070;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; if(!qbevent)break;evnt(25224,826,"wiki_methods.bas");}while(r); } fornext_continue_5525:; } fornext_exit_5525:; } S_50075:; 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(25224,829,"wiki_methods.bas");if(r)goto S_50075;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; if (new_error) goto skip5528; 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 skip5528; skip5528: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(25224,829,"wiki_methods.bas");}while(r); } LABEL_IGNORELINK:; if(qbevent){evnt(25224,831,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_LNKX1= 0 ; if(!qbevent)break;evnt(25224,833,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX2= 0 ; if(!qbevent)break;evnt(25224,833,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_X+ 4 ; if(!qbevent)break;evnt(25224,835,"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(25224,835,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X2=*_SUB_WIKIPARSE_LONG_X2+ 1 ; if(!qbevent)break;evnt(25224,836,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_OLDLNK=*_SUB_WIKIPARSE_LONG_LNK; if(!qbevent)break;evnt(25224,837,"wiki_methods.bas");}while(r); dl_continue_5507:; } dl_exit_5507:; fornext_continue_5505:; } fornext_exit_5505:; do{ sub_close(*_SUB_WIKIPARSE_LONG_FH,1); if(!qbevent)break;evnt(25224,840,"wiki_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* FUNC_WIKIGETLINE(qbs*_FUNC_WIKIGETLINE_STRING_A,int32*_FUNC_WIKIGETLINE_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 "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; do{ qbs_set(_FUNC_WIKIGETLINE_STRING_WIKIGETLINE,FUNC_WIKIGETUNTIL(_FUNC_WIKIGETLINE_STRING_A,_FUNC_WIKIGETLINE_LONG_I,func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,851,"wiki_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_WIKIGETLINE_STRING_WIKIGETLINE);return _FUNC_WIKIGETLINE_STRING_WIKIGETLINE; } qbs* FUNC_WIKIGETUNTIL(qbs*_FUNC_WIKIGETUNTIL_STRING_A,int32*_FUNC_WIKIGETUNTIL_LONG_I,qbs*_FUNC_WIKIGETUNTIL_STRING_SEPARATOR){ qbs *tqbs; ptrszint tmp_long; int32 tmp_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; S_50090:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKIGETUNTIL_LONG_I>=_FUNC_WIKIGETUNTIL_STRING_A->len)))||new_error){ if(qbevent){evnt(25224,855,"wiki_methods.bas");if(r)goto S_50090;} do{ goto exit_subfunc; if(!qbevent)break;evnt(25224,855,"wiki_methods.bas");}while(r); } do{ *_FUNC_WIKIGETUNTIL_LONG_J=func_instr(*_FUNC_WIKIGETUNTIL_LONG_I,_FUNC_WIKIGETUNTIL_STRING_A,_FUNC_WIKIGETUNTIL_STRING_SEPARATOR,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,856,"wiki_methods.bas");}while(r); S_50094:; if ((-(*_FUNC_WIKIGETUNTIL_LONG_J== 0 ))||new_error){ if(qbevent){evnt(25224,857,"wiki_methods.bas");if(r)goto S_50094;} do{ qbs_set(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL,func_mid(_FUNC_WIKIGETUNTIL_STRING_A,*_FUNC_WIKIGETUNTIL_LONG_I,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,858,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKIGETUNTIL_LONG_I=_FUNC_WIKIGETUNTIL_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,859,"wiki_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL,func_mid(_FUNC_WIKIGETUNTIL_STRING_A,*_FUNC_WIKIGETUNTIL_LONG_I,*_FUNC_WIKIGETUNTIL_LONG_J-*_FUNC_WIKIGETUNTIL_LONG_I,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(25224,861,"wiki_methods.bas");}while(r); do{ *_FUNC_WIKIGETUNTIL_LONG_I=*_FUNC_WIKIGETUNTIL_LONG_J+ 1 ; if(!qbevent)break;evnt(25224,862,"wiki_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_maketmp(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL);return _FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL; }