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 "data18.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14475);}while(r);
do{
*_FUNC_DIM2_LONG_DIM2= 1 ;
if(!qbevent)break;evnt(14476);}while(r);
S_16978:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14478);if(r)goto S_16978;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2512;
sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0);
if (is_error_pending()) goto skip2512;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1);
if (is_error_pending()) goto skip2512;
skip2512:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14478);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14480);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14481);}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(14482);}while(r);
S_16984:;
if ((-(*__INTEGER_DIMSFARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(14484);if(r)goto S_16984;}
do{
*_FUNC_DIM2_LONG_F= 0 ;
if(!qbevent)break;evnt(14484);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_F= 1 ;
if(!qbevent)break;evnt(14484);}while(r);
}
S_16989:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(14486);if(r)goto S_16989;}
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(14489);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14490);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14491);}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(14495);}while(r);
S_16995:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(14498);if(r)goto S_16995;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14498);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14498);}while(r);
}
S_16999:;
fornext_value2515= 1 ;
fornext_finalvalue2515=*__LONG_LASTTYPE;
fornext_step2515= 1 ;
if (fornext_step2515<0) fornext_step_negative2515=1; else fornext_step_negative2515=0;
if (is_error_pending()) goto fornext_error2515;
goto fornext_entrylabel2515;
while(1){
fornext_value2515=fornext_step2515+(*_FUNC_DIM2_LONG_I);
fornext_entrylabel2515:
*_FUNC_DIM2_LONG_I=fornext_value2515;
if (fornext_step_negative2515){
if (fornext_value2515<fornext_finalvalue2515) break;
}else{
if (fornext_value2515>fornext_finalvalue2515) break;
}
fornext_error2515:;
if(qbevent){evnt(14502);if(r)goto S_16999;}
S_17000:;
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)))))||is_error_pending()){
if(qbevent){evnt(14503);if(r)goto S_17000;}
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(14504);}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(14506);}while(r);
S_17003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14509);if(r)goto S_17003;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(14510);}while(r);
S_17005:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14511);if(r)goto S_17005;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14512);}while(r);
S_17007:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14513);if(r)goto S_17007;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14513);}while(r);
}
S_17010:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14514);if(r)goto S_17010;}
S_17011:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(14515);if(r)goto S_17011;}
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(14516);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(14517);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14517);}while(r);
do{
goto dl_exit_2516;
if(!qbevent)break;evnt(14518);}while(r);
}
S_17017:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14520);if(r)goto S_17017;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14520);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14520);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14520);}while(r);
}
S_17023:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14521);if(r)goto S_17023;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14521);}while(r);
}
dl_continue_2516:;
}
dl_exit_2516:;
}
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(14524);}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(14525);}while(r);
S_17030:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14527);if(r)goto S_17030;}
S_17031:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(14529);if(r)goto S_17031;}
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(14530);}while(r);
S_17033:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(14530);if(r)goto S_17033;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14530);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2518=*_FUNC_DIM2_LONG_BITS/  8 ),_FUNC_DIM2_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14532);}while(r);
S_17038:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14533);if(r)goto S_17038;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14533);}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(14534);}while(r);
S_17042:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14535);if(r)goto S_17042;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14535);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14536);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14539);}while(r);
S_17048:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(14540);if(r)goto S_17048;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(14541);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(14542);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(14543);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14545);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(14549);}while(r);
S_17057:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14550);if(r)goto S_17057;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14550);}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(14551);}while(r);
S_17061:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(14553);if(r)goto S_17061;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(14553);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(14553);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(14555);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14556);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(14557);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2519= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14558);}while(r);
S_17069:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14559);if(r)goto S_17069;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14559);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14560);}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(14564);}while(r);
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/  8 ;
if(!qbevent)break;evnt(14564);}while(r);
S_17076:;
if ((*_FUNC_DIM2_LONG_BITS% 8 )||is_error_pending()){
if(qbevent){evnt(14565);if(r)goto S_17076;}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ;
if(!qbevent)break;evnt(14566);}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(14568);}while(r);
S_17080:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14569);if(r)goto S_17080;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14569);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14570);}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(14571);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(14572);}while(r);
S_17086:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14573);if(r)goto S_17086;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14574);}while(r);
S_17088:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14575);if(r)goto S_17088;}
do{
SUB_WRITEBUFLINE(&(pass2520=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14576);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2521=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14577);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2522=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14578);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2523=*__LONG_DATATXTBUF),qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(void*)(dblock+cmem_sp);",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14579);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2524=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14580);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2525=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14581);}while(r);
}
}else{
S_17097:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14584);if(r)goto S_17097;}
do{
SUB_WRITEBUFLINE(&(pass2526=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14585);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2527=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(void*)mem_static_malloc(",26)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14586);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2528=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14587);}while(r);
S_17101:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(14588);if(r)goto S_17101;}
do{
SUB_INITIALISE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_DATATXTBUF,&(pass2529= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14589);}while(r);
do{
SUB_FREE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_FREETXTBUF,&(pass2530= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14590);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2531=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14592);}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(14595);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(14596);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2532= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14597);}while(r);
S_17111:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14598);if(r)goto S_17111;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14598);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14599);}while(r);
}
fornext_continue_2514:;
}
fornext_exit_2514:;
do{
qbs_set(_FUNC_DIM2_STRING_TYP,FUNC_SYMBOL2FULLTYPENAME(_FUNC_DIM2_STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14604);}while(r);
S_17118:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14605);if(r)goto S_17118;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14605);}while(r);
}
do{
*_FUNC_DIM2_LONG_UNSGN= 0 ;
if(!qbevent)break;evnt(14608);}while(r);
S_17122:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
if(qbevent){evnt(14609);if(r)goto S_17122;}
do{
*_FUNC_DIM2_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(14610);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_TYP,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,func_chr( 32 ),0)+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14611);}while(r);
S_17125:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(14612);if(r)goto S_17125;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected more type information after _UNSIGNED!",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14612);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14612);}while(r);
}
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14615);}while(r);
S_17131:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(14617);if(r)goto S_17131;}
S_17132:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||is_error_pending()){
if(qbevent){evnt(14619);if(r)goto S_17132;}
S_17133:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
if(qbevent){evnt(14620);if(r)goto S_17133;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14620);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14620);}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(14622);}while(r);
do{
*_FUNC_DIM2_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(14625);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14626);}while(r);
do{
*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(14627);}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(14628);}while(r);
S_17142:;
while((*_FUNC_DIM2_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(14629);if(r)goto S_17142;}
S_17143:;
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 )))||is_error_pending()){
if(qbevent){evnt(14630);if(r)goto S_17143;}
S_17144:;
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
if(qbevent){evnt(14631);if(r)goto S_17144;}
do{
*_FUNC_DIM2_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(14632);}while(r);
do{
goto dl_exit_2536;
if(!qbevent)break;evnt(14633);}while(r);
}
}
S_17149:;
if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(14636);if(r)goto S_17149;}
do{
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
if(!qbevent)break;evnt(14636);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(14636);}while(r);
}
dl_continue_2536:;
}
dl_exit_2536:;
S_17155:;
if ((*_FUNC_DIM2_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(14638);if(r)goto S_17155;}
do{
*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF;
if(!qbevent)break;evnt(14639);}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(14640);}while(r);
S_17158:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(14641);if(r)goto S_17158;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14641);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14641);}while(r);
}
S_17162:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(14643);if(r)goto S_17162;}
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(14644);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V);
if(!qbevent)break;evnt(14645);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(14646);}while(r);
}else{
S_17167:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(14648);if(r)goto S_17167;}
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(14649);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V;
if(!qbevent)break;evnt(14650);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(14651);}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(14653);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(14654);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(14655);}while(r);
}
}
S_17177:;
if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(14658);if(r)goto S_17177;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14658);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14658);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(14659);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14660);}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(14661);}while(r);
}
S_17185:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(14664);if(r)goto S_17185;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14664);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14664);}while(r);
}
S_17189:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||is_error_pending()){
if(qbevent){evnt(14665);if(r)goto S_17189;}
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(14665);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14665);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14666);}while(r);
S_17194:;
if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||is_error_pending()){
if(qbevent){evnt(14667);if(r)goto S_17194;}
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(14667);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14667);}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(14668);r=0;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14669);}while(r);
S_17199:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14672);if(r)goto S_17199;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(14673);}while(r);
S_17201:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14674);if(r)goto S_17201;}
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(14675);}while(r);
S_17203:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14676);if(r)goto S_17203;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14676);}while(r);
}
S_17206:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14677);if(r)goto S_17206;}
S_17207:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(14678);if(r)goto S_17207;}
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(14679);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(14680);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14680);}while(r);
do{
goto dl_exit_2538;
if(!qbevent)break;evnt(14681);}while(r);
}
S_17213:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14683);if(r)goto S_17213;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14683);}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(14683);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14683);}while(r);
}
S_17219:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14684);if(r)goto S_17219;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14684);}while(r);
}
dl_continue_2538:;
}
dl_exit_2538:;
}
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(14687);}while(r);
S_17225:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14693);if(r)goto S_17225;}
S_17226:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(14695);if(r)goto S_17226;}
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(14696);}while(r);
S_17228:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(14696);if(r)goto S_17228;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14696);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2540= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14698);}while(r);
S_17233:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14699);if(r)goto S_17233;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14699);}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(14700);}while(r);
S_17237:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14701);if(r)goto S_17237;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14701);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14702);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14705);}while(r);
S_17243:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(14706);if(r)goto S_17243;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(14707);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(14708);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(14709);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14711);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(14715);}while(r);
S_17252:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14716);if(r)goto S_17252;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14716);}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(14717);}while(r);
S_17256:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(14718);if(r)goto S_17256;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(14718);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(14718);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(14720);}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(14721);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(14722);}while(r);
S_17263:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14723);if(r)goto S_17263;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14724);}while(r);
}
S_17266:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14726);if(r)goto S_17266;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14727);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(14729);}while(r);
S_17270:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14730);if(r)goto S_17270;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14730);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2541= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14731);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14732);}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(14736);}while(r);
S_17277:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14737);if(r)goto S_17277;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14737);}while(r);
}
S_17280:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14738);if(r)goto S_17280;}
do{
SUB_WRITEBUFLINE(&(pass2542=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14738);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14739);}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(14740);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(14741);}while(r);
S_17286:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14742);if(r)goto S_17286;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14743);}while(r);
S_17288:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14744);if(r)goto S_17288;}
do{
SUB_WRITEBUFLINE(&(pass2543=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14744);}while(r);
}
S_17291:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14745);if(r)goto S_17291;}
do{
SUB_WRITEBUFLINE(&(pass2544=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14745);}while(r);
}
S_17294:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14746);if(r)goto S_17294;}
do{
SUB_WRITEBUFLINE(&(pass2545=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14746);}while(r);
}
S_17297:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14747);if(r)goto S_17297;}
do{
SUB_WRITEBUFLINE(&(pass2546=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed((uint8*)(dblock+cmem_sp),",40)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14747);}while(r);
}
S_17300:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14748);if(r)goto S_17300;}
do{
SUB_WRITEBUFLINE(&(pass2547=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14748);}while(r);
}
S_17303:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14749);if(r)goto S_17303;}
do{
SUB_WRITEBUFLINE(&(pass2548=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14749);}while(r);
}
}else{
S_17307:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14751);if(r)goto S_17307;}
do{
SUB_WRITEBUFLINE(&(pass2549=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14751);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14752);}while(r);
S_17311:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14753);if(r)goto S_17311;}
do{
SUB_WRITEBUFLINE(&(pass2550=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14753);}while(r);
}
S_17314:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14754);if(r)goto S_17314;}
do{
SUB_WRITEBUFLINE(&(pass2551=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14754);}while(r);
}
S_17317:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14755);if(r)goto S_17317;}
do{
SUB_WRITEBUFLINE(&(pass2552=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14755);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(14757);}while(r);
S_17322:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14758);if(r)goto S_17322;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14759);}while(r);
}
S_17325:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14761);if(r)goto S_17325;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14762);}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(14764);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(14765);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2553= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14766);}while(r);
S_17331:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14767);if(r)goto S_17331;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14767);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14768);}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(14772);}while(r);
S_17337:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14775);if(r)goto S_17337;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(14776);}while(r);
S_17339:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14777);if(r)goto S_17339;}
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(14778);}while(r);
S_17341:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14779);if(r)goto S_17341;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14779);}while(r);
}
S_17344:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14780);if(r)goto S_17344;}
S_17345:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(14781);if(r)goto S_17345;}
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(14782);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(14783);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14783);}while(r);
do{
goto dl_exit_2554;
if(!qbevent)break;evnt(14784);}while(r);
}
S_17351:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14786);if(r)goto S_17351;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14786);}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(14786);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14786);}while(r);
}
S_17357:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14787);if(r)goto S_17357;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14787);}while(r);
}
dl_continue_2554:;
}
dl_exit_2554:;
}
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(14790);}while(r);
S_17363:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14796);if(r)goto S_17363;}
S_17364:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(14798);if(r)goto S_17364;}
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(14799);}while(r);
S_17366:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(14799);if(r)goto S_17366;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14799);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2556= -2147483647 ),&(pass2557= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14801);}while(r);
S_17371:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14802);if(r)goto S_17371;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14802);}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(14803);}while(r);
S_17375:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14804);if(r)goto S_17375;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14804);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14805);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14808);}while(r);
S_17381:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(14809);if(r)goto S_17381;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(14810);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(14811);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(14812);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14814);}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(14818);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(14819);}while(r);
S_17391:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14820);if(r)goto S_17391;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14820);}while(r);
}
S_17394:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(14821);if(r)goto S_17394;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(14821);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(14821);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(14823);}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(14824);}while(r);
S_17400:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14825);if(r)goto S_17400;}
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(14826);}while(r);
}
S_17403:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14828);if(r)goto S_17403;}
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(14829);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(14831);}while(r);
S_17407:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14832);if(r)goto S_17407;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14832);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2558= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14833);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14834);}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(14838);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14839);}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(14840);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(14841);}while(r);
S_17417:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14842);if(r)goto S_17417;}
S_17418:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14843);if(r)goto S_17418;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14843);}while(r);
}
S_17421:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14844);if(r)goto S_17421;}
do{
SUB_WRITEBUFLINE(&(pass2559=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14844);}while(r);
}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14845);}while(r);
}else{
S_17426:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14847);if(r)goto S_17426;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14847);}while(r);
}
S_17429:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14848);if(r)goto S_17429;}
do{
SUB_WRITEBUFLINE(&(pass2560=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14848);}while(r);
}
}
S_17433:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(14850);if(r)goto S_17433;}
do{
SUB_WRITEBUFLINE(&(pass2561=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14850);}while(r);
}
S_17436:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14851);if(r)goto S_17436;}
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(14852);}while(r);
}
S_17439:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14854);if(r)goto S_17439;}
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(14855);}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(14857);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(14858);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2562= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14859);}while(r);
S_17445:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14860);if(r)goto S_17445;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14860);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14861);}while(r);
}
S_17450:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
if(qbevent){evnt(14864);if(r)goto S_17450;}
S_17451:;
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 ))))||is_error_pending()){
if(qbevent){evnt(14865);if(r)goto S_17451;}
S_17452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
if(qbevent){evnt(14866);if(r)goto S_17452;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14866);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14866);}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(14867);}while(r);
S_17457:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(14868);if(r)goto S_17457;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14868);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14868);}while(r);
}
S_17461:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||is_error_pending()){
if(qbevent){evnt(14869);if(r)goto S_17461;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14869);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14869);}while(r);
}
do{
*_FUNC_DIM2_LONG_BITS=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14870);}while(r);
S_17466:;
if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||is_error_pending()){
if(qbevent){evnt(14871);if(r)goto S_17466;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size 0 bits",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14871);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14871);}while(r);
}
S_17470:;
if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(14872);if(r)goto S_17470;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14872);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14872);}while(r);
}
}else{
do{
*_FUNC_DIM2_LONG_BITS= 1 ;
if(!qbevent)break;evnt(14874);}while(r);
}
S_17477:;
if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||is_error_pending()){
if(qbevent){evnt(14876);if(r)goto S_17477;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14876);}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(14876);}while(r);
}
S_17482:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14877);if(r)goto S_17482;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14877);}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(14877);}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)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14878);}while(r);
S_17487:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14881);if(r)goto S_17487;}
S_17488:;
if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||is_error_pending()){
if(qbevent){evnt(14882);if(r)goto S_17488;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT array of size > 63 bits",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14882);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14882);}while(r);
}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(14883);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14884);}while(r);
S_17494:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14884);if(r)goto S_17494;}
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(14884);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14885);}while(r);
S_17498:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14886);if(r)goto S_17498;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14887);}while(r);
S_17500:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14888);if(r)goto S_17500;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14888);}while(r);
}
S_17503:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14889);if(r)goto S_17503;}
S_17504:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(14890);if(r)goto S_17504;}
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(14891);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(14892);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14892);}while(r);
do{
goto dl_exit_2565;
if(!qbevent)break;evnt(14893);}while(r);
}
S_17510:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14895);if(r)goto S_17510;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14895);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14895);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14895);}while(r);
}
S_17516:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14896);if(r)goto S_17516;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14896);}while(r);
}
dl_continue_2565:;
}
dl_exit_2565:;
}
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(14899);}while(r);
S_17522:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14905);if(r)goto S_17522;}
S_17523:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(14907);if(r)goto S_17523;}
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(14908);}while(r);
S_17525:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(14908);if(r)goto S_17525;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14908);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2567=-(*_FUNC_DIM2_LONG_BITS)),&(pass2568= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14910);}while(r);
S_17530:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14911);if(r)goto S_17530;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14911);}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(14912);}while(r);
S_17534:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14913);if(r)goto S_17534;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14913);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14914);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14917);}while(r);
S_17540:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(14918);if(r)goto S_17540;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(14919);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(14920);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(14921);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14923);}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(14927);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS;
if(!qbevent)break;evnt(14928);}while(r);
S_17550:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14929);if(r)goto S_17550;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(14929);}while(r);
}
S_17553:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14930);if(r)goto S_17553;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14930);}while(r);
}
S_17556:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(14931);if(r)goto S_17556;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(14931);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(14931);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(14933);}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(14934);}while(r);
S_17562:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14935);if(r)goto S_17562;}
S_17563:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14936);if(r)goto S_17563;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14936);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14936);}while(r);
}
}
S_17569:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14938);if(r)goto S_17569;}
S_17570:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14939);if(r)goto S_17570;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14939);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14939);}while(r);
}
}
do{
SUB_REGID();
if(!qbevent)break;evnt(14941);}while(r);
S_17577:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14942);if(r)goto S_17577;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14942);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2569= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14943);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14944);}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(14947);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14948);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2570=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14949);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2571=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14950);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2572=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14951);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2573=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14952);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2574=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14953);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2575=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14954);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(14955);}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(14956);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(14957);}while(r);
S_17594:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14957);if(r)goto S_17594;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(14957);}while(r);
}
S_17597:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(14958);if(r)goto S_17597;}
S_17598:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14959);if(r)goto S_17598;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14959);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14959);}while(r);
}
}
S_17604:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(14961);if(r)goto S_17604;}
S_17605:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14962);if(r)goto S_17605;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14962);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14962);}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(14964);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(14965);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2576= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14966);}while(r);
S_17614:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14967);if(r)goto S_17614;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14967);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(14968);}while(r);
}
S_17619:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(14971);if(r)goto S_17619;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14972);}while(r);
S_17621:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14973);if(r)goto S_17621;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14973);}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(14973);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BYTE_",5)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14974);}while(r);
S_17626:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14975);if(r)goto S_17626;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(14976);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14977);}while(r);
S_17629:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(14977);if(r)goto S_17629;}
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(14977);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%%",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14978);}while(r);
S_17633:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14979);if(r)goto S_17633;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14980);}while(r);
S_17635:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14981);if(r)goto S_17635;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14981);}while(r);
}
S_17638:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14982);if(r)goto S_17638;}
S_17639:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(14983);if(r)goto S_17639;}
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(14984);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(14985);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14985);}while(r);
do{
goto dl_exit_2577;
if(!qbevent)break;evnt(14986);}while(r);
}
S_17645:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14988);if(r)goto S_17645;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14988);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14988);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14988);}while(r);
}
S_17651:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14989);if(r)goto S_17651;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14989);}while(r);
}
dl_continue_2577:;
}
dl_exit_2577:;
}
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(14993);}while(r);
S_17657:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(14999);if(r)goto S_17657;}
S_17658:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15001);if(r)goto S_17658;}
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(15002);}while(r);
S_17660:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15002);if(r)goto S_17660;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15002);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2579= 1 ),&(pass2580= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15004);}while(r);
S_17665:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15005);if(r)goto S_17665;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15005);}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(15006);}while(r);
S_17669:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15007);if(r)goto S_17669;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15007);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15008);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15011);}while(r);
S_17675:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15012);if(r)goto S_17675;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15013);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15014);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15015);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15017);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(15021);}while(r);
S_17684:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15021);if(r)goto S_17684;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15021);}while(r);
}
S_17687:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15022);if(r)goto S_17687;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15022);}while(r);
}
S_17690:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15023);if(r)goto S_17690;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15023);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15023);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15025);}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(15026);}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(15028);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15029);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(15030);}while(r);
S_17700:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15030);if(r)goto S_17700;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15030);}while(r);
}
S_17703:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15031);if(r)goto S_17703;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15031);}while(r);
}
S_17706:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15032);if(r)goto S_17706;}
do{
SUB_WRITEBUFLINE(&(pass2581=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15032);}while(r);
}
S_17709:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15033);if(r)goto S_17709;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15034);}while(r);
S_17711:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15035);if(r)goto S_17711;}
do{
SUB_WRITEBUFLINE(&(pass2582=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15035);}while(r);
}
S_17714:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15036);if(r)goto S_17714;}
do{
SUB_WRITEBUFLINE(&(pass2583=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15036);}while(r);
}
S_17717:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15037);if(r)goto S_17717;}
do{
SUB_WRITEBUFLINE(&(pass2584=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15037);}while(r);
}
}else{
S_17721:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15039);if(r)goto S_17721;}
do{
SUB_WRITEBUFLINE(&(pass2585=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(1);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15039);}while(r);
}
}
S_17725:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15041);if(r)goto S_17725;}
do{
SUB_WRITEBUFLINE(&(pass2586=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15041);}while(r);
}
S_17728:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15042);if(r)goto S_17728;}
do{
SUB_WRITEBUFLINE(&(pass2587=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15042);}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(15044);}while(r);
S_17733:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15045);if(r)goto S_17733;}
S_17734:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15046);if(r)goto S_17734;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15046);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15046);}while(r);
}
}
S_17740:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15048);if(r)goto S_17740;}
S_17741:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15049);if(r)goto S_17741;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15049);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15049);}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(15051);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15052);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2588= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15053);}while(r);
S_17750:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15054);if(r)goto S_17750;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15054);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15055);}while(r);
}
S_17755:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(15058);if(r)goto S_17755;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15059);}while(r);
S_17757:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15060);if(r)goto S_17757;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15060);}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(15060);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER_",8)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15061);}while(r);
S_17762:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15063);if(r)goto S_17762;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15064);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15065);}while(r);
S_17765:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15065);if(r)goto S_17765;}
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(15065);}while(r);
}
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(15066);}while(r);
S_17769:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15067);if(r)goto S_17769;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15068);}while(r);
S_17771:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15069);if(r)goto S_17771;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15069);}while(r);
}
S_17774:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15070);if(r)goto S_17774;}
S_17775:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15071);if(r)goto S_17775;}
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(15072);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15073);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15073);}while(r);
do{
goto dl_exit_2589;
if(!qbevent)break;evnt(15074);}while(r);
}
S_17781:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15076);if(r)goto S_17781;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15076);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15076);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15076);}while(r);
}
S_17787:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15077);if(r)goto S_17787;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15077);}while(r);
}
dl_continue_2589:;
}
dl_exit_2589:;
}
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(15080);}while(r);
S_17793:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15082);if(r)goto S_17793;}
S_17794:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15084);if(r)goto S_17794;}
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(15085);}while(r);
S_17796:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15085);if(r)goto S_17796;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15085);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2591= 2 ),&(pass2592= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15087);}while(r);
S_17801:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15088);if(r)goto S_17801;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15088);}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(15089);}while(r);
S_17805:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15090);if(r)goto S_17805;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15090);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15091);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15094);}while(r);
S_17811:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15095);if(r)goto S_17811;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15096);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15097);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15098);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15100);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(15105);}while(r);
S_17820:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15105);if(r)goto S_17820;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15105);}while(r);
}
S_17823:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15106);if(r)goto S_17823;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15106);}while(r);
}
S_17826:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15107);if(r)goto S_17826;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15107);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15107);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15109);}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(15110);}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(15112);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15113);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(15114);}while(r);
S_17836:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15114);if(r)goto S_17836;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15114);}while(r);
}
S_17839:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15115);if(r)goto S_17839;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15115);}while(r);
}
S_17842:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15116);if(r)goto S_17842;}
do{
SUB_WRITEBUFLINE(&(pass2593=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15116);}while(r);
}
S_17845:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15117);if(r)goto S_17845;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15118);}while(r);
S_17847:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15119);if(r)goto S_17847;}
do{
SUB_WRITEBUFLINE(&(pass2594=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15119);}while(r);
}
S_17850:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15120);if(r)goto S_17850;}
do{
SUB_WRITEBUFLINE(&(pass2595=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15120);}while(r);
}
S_17853:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15121);if(r)goto S_17853;}
do{
SUB_WRITEBUFLINE(&(pass2596=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15121);}while(r);
}
}else{
S_17857:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15123);if(r)goto S_17857;}
do{
SUB_WRITEBUFLINE(&(pass2597=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(2);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15123);}while(r);
}
}
S_17861:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15125);if(r)goto S_17861;}
do{
SUB_WRITEBUFLINE(&(pass2598=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15125);}while(r);
}
S_17864:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15126);if(r)goto S_17864;}
do{
SUB_WRITEBUFLINE(&(pass2599=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15126);}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(15128);}while(r);
S_17869:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15129);if(r)goto S_17869;}
S_17870:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15130);if(r)goto S_17870;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15130);}while(r);
}else{
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(15130);}while(r);
}
}
S_17876:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15132);if(r)goto S_17876;}
S_17877:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15133);if(r)goto S_17877;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15133);}while(r);
}else{
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(15133);}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(15135);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15136);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2600= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15137);}while(r);
S_17886:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15138);if(r)goto S_17886;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15138);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15139);}while(r);
}
S_17891:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(15149);if(r)goto S_17891;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15150);}while(r);
S_17893:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15151);if(r)goto S_17893;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15151);}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(15151);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("OFFSET_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15152);}while(r);
S_17898:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15153);if(r)goto S_17898;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15154);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15155);}while(r);
S_17901:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15155);if(r)goto S_17901;}
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(15155);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%&",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15156);}while(r);
S_17905:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15157);if(r)goto S_17905;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15158);}while(r);
S_17907:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15159);if(r)goto S_17907;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15159);}while(r);
}
S_17910:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15160);if(r)goto S_17910;}
S_17911:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15161);if(r)goto S_17911;}
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(15162);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15163);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15163);}while(r);
do{
goto dl_exit_2601;
if(!qbevent)break;evnt(15164);}while(r);
}
S_17917:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15166);if(r)goto S_17917;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15166);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15166);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15166);}while(r);
}
S_17923:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15167);if(r)goto S_17923;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15167);}while(r);
}
dl_continue_2601:;
}
dl_exit_2601:;
}
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(15170);}while(r);
S_17929:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15172);if(r)goto S_17929;}
S_17930:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15174);if(r)goto S_17930;}
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(15175);}while(r);
S_17932:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15175);if(r)goto S_17932;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15175);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2603=*__LONG_OS_BITS/  8 ),&(pass2604= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15177);}while(r);
S_17937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15178);if(r)goto S_17937;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15178);}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(15179);}while(r);
S_17941:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15180);if(r)goto S_17941;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15180);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15181);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15184);}while(r);
S_17947:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15185);if(r)goto S_17947;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15186);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15187);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15188);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15190);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(15194);}while(r);
S_17956:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15194);if(r)goto S_17956;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15194);}while(r);
}
S_17959:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15195);if(r)goto S_17959;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15195);}while(r);
}
S_17962:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15196);if(r)goto S_17962;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15196);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15196);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15198);}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(15199);}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(15201);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15202);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(15203);}while(r);
S_17972:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15203);if(r)goto S_17972;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15203);}while(r);
}
S_17975:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15204);if(r)goto S_17975;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15204);}while(r);
}
S_17978:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15205);if(r)goto S_17978;}
do{
SUB_WRITEBUFLINE(&(pass2605=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15205);}while(r);
}
S_17981:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15206);if(r)goto S_17981;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15207);}while(r);
S_17983:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15208);if(r)goto S_17983;}
do{
SUB_WRITEBUFLINE(&(pass2606=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int64)(*__LONG_OS_BITS/  8 ),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15208);}while(r);
}
S_17986:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15209);if(r)goto S_17986;}
do{
SUB_WRITEBUFLINE(&(pass2607=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15209);}while(r);
}
S_17989:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15210);if(r)goto S_17989;}
do{
SUB_WRITEBUFLINE(&(pass2608=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15210);}while(r);
}
}else{
S_17993:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15212);if(r)goto S_17993;}
do{
SUB_WRITEBUFLINE(&(pass2609=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(",20)),qbs__tostr((int64)(*__LONG_OS_BITS/  8 ),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15212);}while(r);
}
}
S_17997:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15214);if(r)goto S_17997;}
do{
SUB_WRITEBUFLINE(&(pass2610=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15214);}while(r);
}
S_18000:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15215);if(r)goto S_18000;}
do{
SUB_WRITEBUFLINE(&(pass2611=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15215);}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(15217);}while(r);
S_18005:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15218);if(r)goto S_18005;}
S_18006:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15219);if(r)goto S_18006;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15219);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15219);}while(r);
}
}
S_18012:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15221);if(r)goto S_18012;}
S_18013:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15222);if(r)goto S_18013;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15222);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15222);}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(15224);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15225);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2612= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15226);}while(r);
S_18022:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15227);if(r)goto S_18022;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15227);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15228);}while(r);
}
S_18027:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(15231);if(r)goto S_18027;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15232);}while(r);
S_18029:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15233);if(r)goto S_18029;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15233);}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(15233);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("LONG_",5)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15234);}while(r);
S_18034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15235);if(r)goto S_18034;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15236);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15237);}while(r);
S_18037:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15237);if(r)goto S_18037;}
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(15237);}while(r);
}
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(15238);}while(r);
S_18041:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15239);if(r)goto S_18041;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15240);}while(r);
S_18043:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15241);if(r)goto S_18043;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15241);}while(r);
}
S_18046:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15242);if(r)goto S_18046;}
S_18047:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15243);if(r)goto S_18047;}
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(15244);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15245);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15245);}while(r);
do{
goto dl_exit_2613;
if(!qbevent)break;evnt(15246);}while(r);
}
S_18053:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15248);if(r)goto S_18053;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15248);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15248);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15248);}while(r);
}
S_18059:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15249);if(r)goto S_18059;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15249);}while(r);
}
dl_continue_2613:;
}
dl_exit_2613:;
}
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(15252);}while(r);
S_18065:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15258);if(r)goto S_18065;}
S_18066:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15260);if(r)goto S_18066;}
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(15261);}while(r);
S_18068:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15261);if(r)goto S_18068;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15261);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2615= 4 ),&(pass2616= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15263);}while(r);
S_18073:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15264);if(r)goto S_18073;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15264);}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(15265);}while(r);
S_18077:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15266);if(r)goto S_18077;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15266);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15267);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15270);}while(r);
S_18083:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15271);if(r)goto S_18083;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15272);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15273);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15274);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15276);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(15280);}while(r);
S_18092:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15280);if(r)goto S_18092;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15280);}while(r);
}
S_18095:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15281);if(r)goto S_18095;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15281);}while(r);
}
S_18098:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15282);if(r)goto S_18098;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15282);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15282);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15284);}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(15285);}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(15287);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15288);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(15289);}while(r);
S_18108:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15289);if(r)goto S_18108;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15289);}while(r);
}
S_18111:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15290);if(r)goto S_18111;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15290);}while(r);
}
S_18114:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15291);if(r)goto S_18114;}
do{
SUB_WRITEBUFLINE(&(pass2617=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15291);}while(r);
}
S_18117:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15292);if(r)goto S_18117;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15293);}while(r);
S_18119:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15294);if(r)goto S_18119;}
do{
SUB_WRITEBUFLINE(&(pass2618=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15294);}while(r);
}
S_18122:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15295);if(r)goto S_18122;}
do{
SUB_WRITEBUFLINE(&(pass2619=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15295);}while(r);
}
S_18125:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15296);if(r)goto S_18125;}
do{
SUB_WRITEBUFLINE(&(pass2620=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15296);}while(r);
}
}else{
S_18129:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15298);if(r)goto S_18129;}
do{
SUB_WRITEBUFLINE(&(pass2621=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(4);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15298);}while(r);
}
}
S_18133:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15300);if(r)goto S_18133;}
do{
SUB_WRITEBUFLINE(&(pass2622=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15300);}while(r);
}
S_18136:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15301);if(r)goto S_18136;}
do{
SUB_WRITEBUFLINE(&(pass2623=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15301);}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(15303);}while(r);
S_18141:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15304);if(r)goto S_18141;}
S_18142:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15305);if(r)goto S_18142;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15305);}while(r);
}else{
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(15305);}while(r);
}
}
S_18148:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15307);if(r)goto S_18148;}
S_18149:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15308);if(r)goto S_18149;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15308);}while(r);
}else{
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(15308);}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(15310);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15311);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2624= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15312);}while(r);
S_18158:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15313);if(r)goto S_18158;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15313);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15314);}while(r);
}
S_18163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(15317);if(r)goto S_18163;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15318);}while(r);
S_18165:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15319);if(r)goto S_18165;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15319);}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(15319);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER64_",10)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15320);}while(r);
S_18170:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15321);if(r)goto S_18170;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15322);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15323);}while(r);
S_18173:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15323);if(r)goto S_18173;}
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(15323);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&&",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15324);}while(r);
S_18177:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15325);if(r)goto S_18177;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15326);}while(r);
S_18179:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15327);if(r)goto S_18179;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15327);}while(r);
}
S_18182:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15328);if(r)goto S_18182;}
S_18183:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15329);if(r)goto S_18183;}
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(15330);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15331);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15331);}while(r);
do{
goto dl_exit_2625;
if(!qbevent)break;evnt(15332);}while(r);
}
S_18189:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15334);if(r)goto S_18189;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15334);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15334);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15334);}while(r);
}
S_18195:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15335);if(r)goto S_18195;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15335);}while(r);
}
dl_continue_2625:;
}
dl_exit_2625:;
}
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(15338);}while(r);
S_18201:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15344);if(r)goto S_18201;}
S_18202:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15346);if(r)goto S_18202;}
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(15347);}while(r);
S_18204:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15347);if(r)goto S_18204;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15347);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2627= 8 ),&(pass2628= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15349);}while(r);
S_18209:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15350);if(r)goto S_18209;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15350);}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(15351);}while(r);
S_18213:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15352);if(r)goto S_18213;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15352);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15353);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15356);}while(r);
S_18219:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15357);if(r)goto S_18219;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15358);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15359);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15360);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15362);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(15366);}while(r);
S_18228:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15366);if(r)goto S_18228;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15366);}while(r);
}
S_18231:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15367);if(r)goto S_18231;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15367);}while(r);
}
S_18234:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15368);if(r)goto S_18234;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15368);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15368);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15370);}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(15371);}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(15373);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15374);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(15375);}while(r);
S_18244:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15375);if(r)goto S_18244;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15375);}while(r);
}
S_18247:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15376);if(r)goto S_18247;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15376);}while(r);
}
S_18250:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15377);if(r)goto S_18250;}
do{
SUB_WRITEBUFLINE(&(pass2629=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15377);}while(r);
}
S_18253:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15378);if(r)goto S_18253;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15379);}while(r);
S_18255:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15380);if(r)goto S_18255;}
do{
SUB_WRITEBUFLINE(&(pass2630=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15380);}while(r);
}
S_18258:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15381);if(r)goto S_18258;}
do{
SUB_WRITEBUFLINE(&(pass2631=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15381);}while(r);
}
S_18261:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15382);if(r)goto S_18261;}
do{
SUB_WRITEBUFLINE(&(pass2632=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15382);}while(r);
}
}else{
S_18265:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15384);if(r)goto S_18265;}
do{
SUB_WRITEBUFLINE(&(pass2633=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(8);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15384);}while(r);
}
}
S_18269:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15386);if(r)goto S_18269;}
do{
SUB_WRITEBUFLINE(&(pass2634=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15386);}while(r);
}
S_18272:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15387);if(r)goto S_18272;}
do{
SUB_WRITEBUFLINE(&(pass2635=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15387);}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(15389);}while(r);
S_18277:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15390);if(r)goto S_18277;}
S_18278:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15391);if(r)goto S_18278;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15391);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15391);}while(r);
}
}
S_18284:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15393);if(r)goto S_18284;}
S_18285:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15394);if(r)goto S_18285;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15394);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15394);}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(15396);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15397);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2636= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15398);}while(r);
S_18294:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15399);if(r)goto S_18294;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15399);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15400);}while(r);
}
S_18299:;
if ((-(*_FUNC_DIM2_LONG_UNSGN== 1 ))||is_error_pending()){
if(qbevent){evnt(15403);if(r)goto S_18299;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type cannot be _UNSIGNED",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15403);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15403);}while(r);
}
S_18303:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(15405);if(r)goto S_18303;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15406);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("SINGLE_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15407);}while(r);
S_18306:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15408);if(r)goto S_18306;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15409);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("!",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15410);}while(r);
S_18309:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15411);if(r)goto S_18309;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15412);}while(r);
S_18311:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15413);if(r)goto S_18311;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15413);}while(r);
}
S_18314:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15414);if(r)goto S_18314;}
S_18315:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15415);if(r)goto S_18315;}
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(15416);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15417);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15417);}while(r);
do{
goto dl_exit_2637;
if(!qbevent)break;evnt(15418);}while(r);
}
S_18321:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15420);if(r)goto S_18321;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15420);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15420);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15420);}while(r);
}
S_18327:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15421);if(r)goto S_18327;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15421);}while(r);
}
dl_continue_2637:;
}
dl_exit_2637:;
}
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(15424);}while(r);
S_18333:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15430);if(r)goto S_18333;}
S_18334:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15432);if(r)goto S_18334;}
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(15433);}while(r);
S_18336:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15433);if(r)goto S_18336;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15433);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2639= 4 ),&(pass2640= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15435);}while(r);
S_18341:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15436);if(r)goto S_18341;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15436);}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(15437);}while(r);
S_18345:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15438);if(r)goto S_18345;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15438);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15439);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15442);}while(r);
S_18351:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15443);if(r)goto S_18351;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15444);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15445);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15446);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15448);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(15452);}while(r);
S_18360:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15453);if(r)goto S_18360;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15453);}while(r);
}
S_18363:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15454);if(r)goto S_18363;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15454);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15454);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15456);}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(15457);}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(15459);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15460);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(15461);}while(r);
S_18373:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15462);if(r)goto S_18373;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15462);}while(r);
}
S_18376:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15463);if(r)goto S_18376;}
do{
SUB_WRITEBUFLINE(&(pass2641=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15463);}while(r);
}
S_18379:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15464);if(r)goto S_18379;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15465);}while(r);
S_18381:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15466);if(r)goto S_18381;}
do{
SUB_WRITEBUFLINE(&(pass2642=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15466);}while(r);
}
S_18384:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15467);if(r)goto S_18384;}
do{
SUB_WRITEBUFLINE(&(pass2643=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15467);}while(r);
}
S_18387:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15468);if(r)goto S_18387;}
do{
SUB_WRITEBUFLINE(&(pass2644=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15468);}while(r);
}
}else{
S_18391:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15470);if(r)goto S_18391;}
do{
SUB_WRITEBUFLINE(&(pass2645=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(4);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15470);}while(r);
}
}
S_18395:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15472);if(r)goto S_18395;}
do{
SUB_WRITEBUFLINE(&(pass2646=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15472);}while(r);
}
S_18398:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15473);if(r)goto S_18398;}
do{
SUB_WRITEBUFLINE(&(pass2647=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15473);}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(15475);}while(r);
S_18403:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15476);if(r)goto S_18403;}
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(15477);}while(r);
}
S_18406:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15479);if(r)goto S_18406;}
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(15480);}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(15482);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15483);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2648= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15484);}while(r);
S_18412:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15485);if(r)goto S_18412;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15485);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15486);}while(r);
}
S_18417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(15489);if(r)goto S_18417;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15490);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("DOUBLE_",7)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15491);}while(r);
S_18420:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15492);if(r)goto S_18420;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15493);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("#",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15494);}while(r);
S_18423:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15495);if(r)goto S_18423;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15496);}while(r);
S_18425:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15497);if(r)goto S_18425;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15497);}while(r);
}
S_18428:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15498);if(r)goto S_18428;}
S_18429:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15499);if(r)goto S_18429;}
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(15500);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15501);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15501);}while(r);
do{
goto dl_exit_2649;
if(!qbevent)break;evnt(15502);}while(r);
}
S_18435:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15504);if(r)goto S_18435;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15504);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15504);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15504);}while(r);
}
S_18441:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15505);if(r)goto S_18441;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15505);}while(r);
}
dl_continue_2649:;
}
dl_exit_2649:;
}
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(15508);}while(r);
S_18447:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15514);if(r)goto S_18447;}
S_18448:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15516);if(r)goto S_18448;}
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(15517);}while(r);
S_18450:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15517);if(r)goto S_18450;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15517);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2651= 8 ),&(pass2652= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15519);}while(r);
S_18455:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15520);if(r)goto S_18455;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15520);}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(15521);}while(r);
S_18459:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15522);if(r)goto S_18459;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15522);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15523);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15526);}while(r);
S_18465:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15527);if(r)goto S_18465;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15528);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15529);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15530);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15532);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(15536);}while(r);
S_18474:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15537);if(r)goto S_18474;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15537);}while(r);
}
S_18477:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15538);if(r)goto S_18477;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15538);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15538);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15540);}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(15541);}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(15543);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15544);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(15545);}while(r);
S_18487:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15546);if(r)goto S_18487;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15546);}while(r);
}
S_18490:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15547);if(r)goto S_18490;}
do{
SUB_WRITEBUFLINE(&(pass2653=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15547);}while(r);
}
S_18493:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15548);if(r)goto S_18493;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15549);}while(r);
S_18495:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15550);if(r)goto S_18495;}
do{
SUB_WRITEBUFLINE(&(pass2654=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15550);}while(r);
}
S_18498:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15551);if(r)goto S_18498;}
do{
SUB_WRITEBUFLINE(&(pass2655=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15551);}while(r);
}
S_18501:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15552);if(r)goto S_18501;}
do{
SUB_WRITEBUFLINE(&(pass2656=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15552);}while(r);
}
}else{
S_18505:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15554);if(r)goto S_18505;}
do{
SUB_WRITEBUFLINE(&(pass2657=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(8);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15554);}while(r);
}
}
S_18509:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15556);if(r)goto S_18509;}
do{
SUB_WRITEBUFLINE(&(pass2658=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15556);}while(r);
}
S_18512:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15557);if(r)goto S_18512;}
do{
SUB_WRITEBUFLINE(&(pass2659=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15557);}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(15559);}while(r);
S_18517:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15560);if(r)goto S_18517;}
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(15561);}while(r);
}
S_18520:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15563);if(r)goto S_18520;}
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(15564);}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(15566);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15567);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2660= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15568);}while(r);
S_18526:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15569);if(r)goto S_18526;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15569);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15570);}while(r);
}
S_18531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(15573);if(r)goto S_18531;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15574);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("FLOAT_",6)),_FUNC_DIM2_STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15575);}while(r);
S_18534:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15576);if(r)goto S_18534;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15577);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("##",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15578);}while(r);
S_18537:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15579);if(r)goto S_18537;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15580);}while(r);
S_18539:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15581);if(r)goto S_18539;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15581);}while(r);
}
S_18542:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15582);if(r)goto S_18542;}
S_18543:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15583);if(r)goto S_18543;}
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(15584);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15585);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15585);}while(r);
do{
goto dl_exit_2661;
if(!qbevent)break;evnt(15586);}while(r);
}
S_18549:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15588);if(r)goto S_18549;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15588);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15588);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15588);}while(r);
}
S_18555:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15589);if(r)goto S_18555;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15589);}while(r);
}
dl_continue_2661:;
}
dl_exit_2661:;
}
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(15592);}while(r);
S_18561:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15598);if(r)goto S_18561;}
S_18562:;
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
if(qbevent){evnt(15600);if(r)goto S_18562;}
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(15601);}while(r);
S_18564:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15601);if(r)goto S_18564;}
do{
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15601);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2663= 32 ),&(pass2664= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15603);}while(r);
S_18569:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15604);if(r)goto S_18569;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15604);}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(15605);}while(r);
S_18573:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15606);if(r)goto S_18573;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15606);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15607);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15610);}while(r);
S_18579:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15611);if(r)goto S_18579;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15612);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15613);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15614);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15616);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(15620);}while(r);
S_18588:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15621);if(r)goto S_18588;}
do{
*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15621);}while(r);
}
S_18591:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15622);if(r)goto S_18591;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15622);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+(518))= 1 ;
if(!qbevent)break;evnt(15622);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15624);}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(15625);}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(15627);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15628);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(15629);}while(r);
S_18601:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15630);if(r)goto S_18601;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15630);}while(r);
}
S_18604:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15631);if(r)goto S_18604;}
do{
SUB_WRITEBUFLINE(&(pass2665=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15631);}while(r);
}
S_18607:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(15632);if(r)goto S_18607;}
do{
*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15633);}while(r);
S_18609:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15634);if(r)goto S_18609;}
do{
SUB_WRITEBUFLINE(&(pass2666=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=32;",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15634);}while(r);
}
S_18612:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15635);if(r)goto S_18612;}
do{
SUB_WRITEBUFLINE(&(pass2667=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15635);}while(r);
}
S_18615:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15636);if(r)goto S_18615;}
do{
SUB_WRITEBUFLINE(&(pass2668=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15636);}while(r);
}
}else{
S_18619:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15638);if(r)goto S_18619;}
do{
SUB_WRITEBUFLINE(&(pass2669=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)mem_static_malloc(32);",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15638);}while(r);
}
}
S_18623:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15640);if(r)goto S_18623;}
do{
SUB_WRITEBUFLINE(&(pass2670=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15640);}while(r);
}
S_18626:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15641);if(r)goto S_18626;}
do{
SUB_WRITEBUFLINE(&(pass2671=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15641);}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(15643);}while(r);
S_18631:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15644);if(r)goto S_18631;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15645);}while(r);
}
S_18634:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15647);if(r)goto S_18634;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15648);}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(15650);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15651);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2672= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15652);}while(r);
S_18640:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15653);if(r)goto S_18640;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15653);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15654);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unknown type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15657);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15657);}while(r);
LABEL_DIM2EXITFUNC:;
if(qbevent){evnt(15658);r=0;}
S_18647:;
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
if(qbevent){evnt(15660);if(r)goto S_18647;}
do{
*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2855))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15661);}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2859))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15662);}while(r);
}
S_18651:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(15666);if(r)goto S_18651;}
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15667);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15668);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(15669);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,_FUNC_DIM2_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15672);}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_DIM2_LONG_DIM2;
}
