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 "data24.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(15423);}while(r);
do{
*_FUNC_DIM2_LONG_DIM2= 1 ;
if(!qbevent)break;evnt(15424);}while(r);
S_17853:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15426);if(r)goto S_17853;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2653;
sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0);
if (is_error_pending()) goto skip2653;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1);
if (is_error_pending()) goto skip2653;
skip2653:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15426);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15428);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15429);}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(15430);}while(r);
S_17859:;
if ((-(*__INTEGER_DIMSFARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(15432);if(r)goto S_17859;}
do{
*_FUNC_DIM2_LONG_F= 0 ;
if(!qbevent)break;evnt(15432);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_F= 1 ;
if(!qbevent)break;evnt(15432);}while(r);
}
S_17864:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(15434);if(r)goto S_17864;}
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(15437);}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(15438);}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(15439);}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(15443);}while(r);
S_17870:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(15446);if(r)goto S_17870;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15446);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15446);}while(r);
}
S_17874:;
fornext_value2656= 1 ;
fornext_finalvalue2656=*__LONG_LASTTYPE;
fornext_step2656= 1 ;
if (fornext_step2656<0) fornext_step_negative2656=1; else fornext_step_negative2656=0;
if (is_error_pending()) goto fornext_error2656;
goto fornext_entrylabel2656;
while(1){
fornext_value2656=fornext_step2656+(*_FUNC_DIM2_LONG_I);
fornext_entrylabel2656:
*_FUNC_DIM2_LONG_I=fornext_value2656;
if (fornext_step_negative2656){
if (fornext_value2656<fornext_finalvalue2656) break;
}else{
if (fornext_value2656>fornext_finalvalue2656) break;
}
fornext_error2656:;
if(qbevent){evnt(15450);if(r)goto S_17874;}
S_17875:;
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(15451);if(r)goto S_17875;}
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(15452);}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(15454);}while(r);
S_17878:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15457);if(r)goto S_17878;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15458);}while(r);
S_17880:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15459);if(r)goto S_17880;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15460);}while(r);
S_17882:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15461);if(r)goto S_17882;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15461);}while(r);
}
S_17885:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15462);if(r)goto S_17885;}
S_17886:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(15463);if(r)goto S_17886;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15464);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15465);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15465);}while(r);
do{
goto dl_exit_2657;
if(!qbevent)break;evnt(15466);}while(r);
}
S_17892:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15468);if(r)goto S_17892;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15468);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15468);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15468);}while(r);
}
S_17898:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15469);if(r)goto S_17898;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15469);}while(r);
}
dl_continue_2657:;
}
dl_exit_2657:;
}
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(15472);}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(15473);}while(r);
S_17905:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15475);if(r)goto S_17905;}
S_17906:;
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(15477);if(r)goto S_17906;}
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(15478);}while(r);
S_17908:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15478);if(r)goto S_17908;}
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(15478);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2659=*_FUNC_DIM2_LONG_BITS/  8 ),_FUNC_DIM2_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15480);}while(r);
S_17913:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15481);if(r)goto S_17913;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15481);}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(15482);}while(r);
S_17917:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15483);if(r)goto S_17917;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15483);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15484);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15487);}while(r);
S_17923:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15488);if(r)goto S_17923;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15489);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15490);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15491);}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(15493);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(15497);}while(r);
S_17932:;
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(15498);if(r)goto S_17932;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15498);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15499);}while(r);
S_17936:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15501);if(r)goto S_17936;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15501);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(15501);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15503);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15504);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15505);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2660= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15506);}while(r);
S_17944:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15507);if(r)goto S_17944;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15507);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15508);}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(15512);}while(r);
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/  8 ;
if(!qbevent)break;evnt(15512);}while(r);
S_17951:;
if ((*_FUNC_DIM2_LONG_BITS% 8 )||is_error_pending()){
if(qbevent){evnt(15513);if(r)goto S_17951;}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ;
if(!qbevent)break;evnt(15514);}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(15516);}while(r);
S_17955:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15517);if(r)goto S_17955;}
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(15517);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15518);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15519);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
if(!qbevent)break;evnt(15520);}while(r);
S_17961:;
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(15521);if(r)goto S_17961;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15522);}while(r);
S_17963:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15523);if(r)goto S_17963;}
do{
SUB_WRITEBUFLINE(&(pass2661=*__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(15524);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2662=*__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(15525);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2663=*__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(15526);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2664=*__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(15527);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2665=*__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(15528);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2666=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15529);}while(r);
}
}else{
S_17972:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15532);if(r)goto S_17972;}
do{
SUB_WRITEBUFLINE(&(pass2667=*__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(15533);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2668=*__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(15534);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2669=*__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(15535);}while(r);
S_17976:;
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(15536);if(r)goto S_17976;}
do{
SUB_INITIALISE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_DATATXTBUF,&(pass2670= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15537);}while(r);
do{
SUB_FREE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_FREETXTBUF,&(pass2671= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15538);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2672=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15540);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15543);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15544);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2673= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15545);}while(r);
S_17986:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15546);if(r)goto S_17986;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15546);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15547);}while(r);
}
fornext_continue_2655:;
}
fornext_exit_2655:;
do{
qbs_set(_FUNC_DIM2_STRING_TYP,FUNC_SYMBOL2FULLTYPENAME(_FUNC_DIM2_STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15552);}while(r);
S_17993:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15553);if(r)goto S_17993;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15553);}while(r);
}
do{
*_FUNC_DIM2_LONG_UNSGN= 0 ;
if(!qbevent)break;evnt(15556);}while(r);
S_17997:;
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(15557);if(r)goto S_17997;}
do{
*_FUNC_DIM2_LONG_UNSGN= 1 ;
if(!qbevent)break;evnt(15558);}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(15559);}while(r);
S_18000:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(15560);if(r)goto S_18000;}
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(15560);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15560);}while(r);
}
}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15563);}while(r);
S_18006:;
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(15565);if(r)goto S_18006;}
S_18007:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||is_error_pending()){
if(qbevent){evnt(15567);if(r)goto S_18007;}
S_18008:;
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(15568);if(r)goto S_18008;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15568);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15568);}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(15570);}while(r);
do{
*_FUNC_DIM2_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(15573);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15574);}while(r);
do{
*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(15575);}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(15576);}while(r);
S_18017:;
while((*_FUNC_DIM2_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(15577);if(r)goto S_18017;}
S_18018:;
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(15578);if(r)goto S_18018;}
S_18019:;
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(15579);if(r)goto S_18019;}
do{
*_FUNC_DIM2_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(15580);}while(r);
do{
goto dl_exit_2677;
if(!qbevent)break;evnt(15581);}while(r);
}
}
S_18024:;
if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(15584);if(r)goto S_18024;}
do{
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
if(!qbevent)break;evnt(15584);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(15584);}while(r);
}
dl_continue_2677:;
}
dl_exit_2677:;
S_18030:;
if ((*_FUNC_DIM2_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(15586);if(r)goto S_18030;}
do{
*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF;
if(!qbevent)break;evnt(15587);}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(15588);}while(r);
S_18033:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(15589);if(r)goto S_18033;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15589);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15589);}while(r);
}
S_18037:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(15591);if(r)goto S_18037;}
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(15592);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V);
if(!qbevent)break;evnt(15593);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(15594);}while(r);
}else{
S_18042:;
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(15596);if(r)goto S_18042;}
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(15597);}while(r);
do{
*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V;
if(!qbevent)break;evnt(15598);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(15599);}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(15601);}while(r);
do{
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(15602);}while(r);
do{
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(15603);}while(r);
}
}
S_18052:;
if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||is_error_pending()){
if(qbevent){evnt(15606);if(r)goto S_18052;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15606);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15606);}while(r);
}
do{
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V;
if(!qbevent)break;evnt(15607);}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(15608);}while(r);
do{
goto LABEL_CONSTANTLENSTR;
if(!qbevent)break;evnt(15609);}while(r);
}
S_18060:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(15612);if(r)goto S_18060;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15612);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15612);}while(r);
}
S_18064:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||is_error_pending()){
if(qbevent){evnt(15613);if(r)goto S_18064;}
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(15613);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15613);}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(15614);}while(r);
S_18069:;
if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||is_error_pending()){
if(qbevent){evnt(15615);if(r)goto S_18069;}
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(15615);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15615);}while(r);
}
LABEL_CONSTANTLENSTR:;
if(qbevent){evnt(15616);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(15617);}while(r);
S_18074:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15620);if(r)goto S_18074;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15621);}while(r);
S_18076:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15622);if(r)goto S_18076;}
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(15623);}while(r);
S_18078:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15624);if(r)goto S_18078;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15624);}while(r);
}
S_18081:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15625);if(r)goto S_18081;}
S_18082:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(15626);if(r)goto S_18082;}
S_18083:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 ))|(-(*(int32*)(((char*)__UDT_ID)+((0+540)))!=*_FUNC_DIM2_LONG_BYTES)))||is_error_pending()){
if(qbevent){evnt(15628);if(r)goto S_18083;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15628);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15628);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15629);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15630);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15630);}while(r);
do{
goto dl_exit_2679;
if(!qbevent)break;evnt(15631);}while(r);
}
S_18092:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15633);if(r)goto S_18092;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15633);}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(15633);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15633);}while(r);
}
S_18098:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15634);if(r)goto S_18098;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15634);}while(r);
}
dl_continue_2679:;
}
dl_exit_2679:;
}
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(15637);}while(r);
S_18104:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15643);if(r)goto S_18104;}
S_18105:;
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(15645);if(r)goto S_18105;}
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(15646);}while(r);
S_18107:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15646);if(r)goto S_18107;}
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(15646);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2681= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15648);}while(r);
S_18112:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15649);if(r)goto S_18112;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15649);}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(15650);}while(r);
S_18116:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15651);if(r)goto S_18116;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15651);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15652);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15655);}while(r);
S_18122:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15656);if(r)goto S_18122;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15657);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15658);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15659);}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(15661);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(15665);}while(r);
S_18131:;
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(15666);if(r)goto S_18131;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15666);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15667);}while(r);
S_18135:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15668);if(r)goto S_18135;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15668);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(15668);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15670);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15671);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(15672);}while(r);
S_18142:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15673);if(r)goto S_18142;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15674);}while(r);
}
S_18145:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15676);if(r)goto S_18145;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15677);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(15679);}while(r);
S_18149:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15680);if(r)goto S_18149;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15680);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2682= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15681);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15682);}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(15686);}while(r);
S_18156:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15687);if(r)goto S_18156;}
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(15687);}while(r);
}
S_18159:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15688);if(r)goto S_18159;}
do{
SUB_WRITEBUFLINE(&(pass2683=*__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(15688);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15689);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15690);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(15691);}while(r);
S_18165:;
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(15692);if(r)goto S_18165;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15693);}while(r);
S_18167:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15694);if(r)goto S_18167;}
do{
SUB_WRITEBUFLINE(&(pass2684=*__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(15694);}while(r);
}
S_18170:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15695);if(r)goto S_18170;}
do{
SUB_WRITEBUFLINE(&(pass2685=*__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(15695);}while(r);
}
S_18173:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15696);if(r)goto S_18173;}
do{
SUB_WRITEBUFLINE(&(pass2686=*__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(15696);}while(r);
}
S_18176:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15697);if(r)goto S_18176;}
do{
SUB_WRITEBUFLINE(&(pass2687=*__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(15697);}while(r);
}
S_18179:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15698);if(r)goto S_18179;}
do{
SUB_WRITEBUFLINE(&(pass2688=*__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(15698);}while(r);
}
S_18182:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15699);if(r)goto S_18182;}
do{
SUB_WRITEBUFLINE(&(pass2689=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15699);}while(r);
}
}else{
S_18186:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15701);if(r)goto S_18186;}
do{
SUB_WRITEBUFLINE(&(pass2690=*__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(15701);}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(15702);}while(r);
S_18190:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15703);if(r)goto S_18190;}
do{
SUB_WRITEBUFLINE(&(pass2691=*__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(15703);}while(r);
}
S_18193:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15704);if(r)goto S_18193;}
do{
SUB_WRITEBUFLINE(&(pass2692=*__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(15704);}while(r);
}
S_18196:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15705);if(r)goto S_18196;}
do{
SUB_WRITEBUFLINE(&(pass2693=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15705);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+540)))=*_FUNC_DIM2_LONG_BYTES;
if(!qbevent)break;evnt(15707);}while(r);
S_18201:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15708);if(r)goto S_18201;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15709);}while(r);
}
S_18204:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15711);if(r)goto S_18204;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15712);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15714);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15715);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2694= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15716);}while(r);
S_18210:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15717);if(r)goto S_18210;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15717);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15718);}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(15722);}while(r);
S_18216:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15725);if(r)goto S_18216;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15726);}while(r);
S_18218:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15727);if(r)goto S_18218;}
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(15728);}while(r);
S_18220:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15729);if(r)goto S_18220;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15729);}while(r);
}
S_18223:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15730);if(r)goto S_18223;}
S_18224:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(15731);if(r)goto S_18224;}
S_18225:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)!= 0 )))||is_error_pending()){
if(qbevent){evnt(15733);if(r)goto S_18225;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15733);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15733);}while(r);
}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15734);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15735);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15735);}while(r);
do{
goto dl_exit_2695;
if(!qbevent)break;evnt(15736);}while(r);
}
S_18234:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15738);if(r)goto S_18234;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15738);}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(15738);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15738);}while(r);
}
S_18240:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15739);if(r)goto S_18240;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15739);}while(r);
}
dl_continue_2695:;
}
dl_exit_2695:;
}
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(15742);}while(r);
S_18246:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15748);if(r)goto S_18246;}
S_18247:;
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(15750);if(r)goto S_18247;}
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(15751);}while(r);
S_18249:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15751);if(r)goto S_18249;}
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(15751);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2697= -2147483647 ),&(pass2698= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15753);}while(r);
S_18254:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15754);if(r)goto S_18254;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15754);}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(15755);}while(r);
S_18258:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15756);if(r)goto S_18258;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15756);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15757);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15760);}while(r);
S_18264:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15761);if(r)goto S_18264;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15762);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15763);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15764);}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(15766);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15770);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(15771);}while(r);
S_18274:;
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(15772);if(r)goto S_18274;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15772);}while(r);
}
S_18277:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15773);if(r)goto S_18277;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15773);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(15773);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15775);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15776);}while(r);
S_18283:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15777);if(r)goto S_18283;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15778);}while(r);
}
S_18286:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15780);if(r)goto S_18286;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15781);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(15783);}while(r);
S_18290:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15784);if(r)goto S_18290;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15784);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2699= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15785);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15786);}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(15790);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15791);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15792);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(15793);}while(r);
S_18300:;
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(15794);if(r)goto S_18300;}
S_18301:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15795);if(r)goto S_18301;}
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(15795);}while(r);
}
S_18304:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15796);if(r)goto S_18304;}
do{
SUB_WRITEBUFLINE(&(pass2700=*__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(15796);}while(r);
}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15797);}while(r);
}else{
S_18309:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15799);if(r)goto S_18309;}
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(15799);}while(r);
}
S_18312:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15800);if(r)goto S_18312;}
do{
SUB_WRITEBUFLINE(&(pass2701=*__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(15800);}while(r);
}
}
S_18316:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(15802);if(r)goto S_18316;}
do{
SUB_WRITEBUFLINE(&(pass2702=*__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(15802);}while(r);
}
S_18319:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15803);if(r)goto S_18319;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15804);}while(r);
}
S_18322:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15806);if(r)goto S_18322;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("$",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15807);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15809);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15810);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2703= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15811);}while(r);
S_18328:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15812);if(r)goto S_18328;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15812);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15813);}while(r);
}
S_18333:;
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(15816);if(r)goto S_18333;}
S_18334:;
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(15817);if(r)goto S_18334;}
S_18335:;
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(15818);if(r)goto S_18335;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15818);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15818);}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(15819);}while(r);
S_18340:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
if(qbevent){evnt(15820);if(r)goto S_18340;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15820);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15820);}while(r);
}
S_18344:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||is_error_pending()){
if(qbevent){evnt(15821);if(r)goto S_18344;}
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(15821);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15821);}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(15822);}while(r);
S_18349:;
if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||is_error_pending()){
if(qbevent){evnt(15823);if(r)goto S_18349;}
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(15823);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15823);}while(r);
}
S_18353:;
if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(15824);if(r)goto S_18353;}
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(15824);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15824);}while(r);
}
}else{
do{
*_FUNC_DIM2_LONG_BITS= 1 ;
if(!qbevent)break;evnt(15826);}while(r);
}
S_18360:;
if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||is_error_pending()){
if(qbevent){evnt(15828);if(r)goto S_18360;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15828);}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(15828);}while(r);
}
S_18365:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15829);if(r)goto S_18365;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15829);}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(15829);}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(15830);}while(r);
S_18370:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15833);if(r)goto S_18370;}
S_18371:;
if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||is_error_pending()){
if(qbevent){evnt(15834);if(r)goto S_18371;}
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(15834);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15834);}while(r);
}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15835);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15836);}while(r);
S_18377:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15836);if(r)goto S_18377;}
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(15836);}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(15837);}while(r);
S_18381:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15838);if(r)goto S_18381;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15839);}while(r);
S_18383:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15840);if(r)goto S_18383;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15840);}while(r);
}
S_18386:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15841);if(r)goto S_18386;}
S_18387:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(15842);if(r)goto S_18387;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15843);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15844);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15844);}while(r);
do{
goto dl_exit_2706;
if(!qbevent)break;evnt(15845);}while(r);
}
S_18393:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15847);if(r)goto S_18393;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15847);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15847);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15847);}while(r);
}
S_18399:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15848);if(r)goto S_18399;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15848);}while(r);
}
dl_continue_2706:;
}
dl_exit_2706:;
}
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(15851);}while(r);
S_18405:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15857);if(r)goto S_18405;}
S_18406:;
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(15859);if(r)goto S_18406;}
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(15860);}while(r);
S_18408:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15860);if(r)goto S_18408;}
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(15860);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2708=-(*_FUNC_DIM2_LONG_BITS)),&(pass2709= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15862);}while(r);
S_18413:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15863);if(r)goto S_18413;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15863);}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(15864);}while(r);
S_18417:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15865);if(r)goto S_18417;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15865);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15866);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15869);}while(r);
S_18423:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15870);if(r)goto S_18423;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15871);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15872);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15873);}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(15875);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15879);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS;
if(!qbevent)break;evnt(15880);}while(r);
S_18433:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15881);if(r)goto S_18433;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15881);}while(r);
}
S_18436:;
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(15882);if(r)goto S_18436;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15882);}while(r);
}
S_18439:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15883);if(r)goto S_18439;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15883);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(15883);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15885);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15886);}while(r);
S_18445:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15887);if(r)goto S_18445;}
S_18446:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15888);if(r)goto S_18446;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15888);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15888);}while(r);
}
}
S_18452:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15890);if(r)goto S_18452;}
S_18453:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15891);if(r)goto S_18453;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15891);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15891);}while(r);
}
}
do{
SUB_REGID();
if(!qbevent)break;evnt(15893);}while(r);
S_18460:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15894);if(r)goto S_18460;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15894);}while(r);
}
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2710= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15895);}while(r);
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15896);}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(15899);}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(15900);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2711=*__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(15901);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2712=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15902);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2713=*__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(15903);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2714=*__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(15904);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2715=*__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(15905);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2716=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15906);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15907);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15908);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15909);}while(r);
S_18477:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15909);if(r)goto S_18477;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15909);}while(r);
}
S_18480:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15910);if(r)goto S_18480;}
S_18481:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15911);if(r)goto S_18481;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15911);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15911);}while(r);
}
}
S_18487:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(15913);if(r)goto S_18487;}
S_18488:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15914);if(r)goto S_18488;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15914);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+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(15914);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15916);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(15917);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2717= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15918);}while(r);
S_18497:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15919);if(r)goto S_18497;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15919);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15920);}while(r);
}
S_18502:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
if(qbevent){evnt(15923);if(r)goto S_18502;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15924);}while(r);
S_18504:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15925);if(r)goto S_18504;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15925);}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(15925);}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(15926);}while(r);
S_18509:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15927);if(r)goto S_18509;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(15928);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15929);}while(r);
S_18512:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15929);if(r)goto S_18512;}
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(15929);}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(15930);}while(r);
S_18516:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15931);if(r)goto S_18516;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15932);}while(r);
S_18518:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15933);if(r)goto S_18518;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15933);}while(r);
}
S_18521:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15934);if(r)goto S_18521;}
S_18522:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(15935);if(r)goto S_18522;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15936);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15937);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15937);}while(r);
do{
goto dl_exit_2718;
if(!qbevent)break;evnt(15938);}while(r);
}
S_18528:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15940);if(r)goto S_18528;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15940);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15940);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15940);}while(r);
}
S_18534:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15941);if(r)goto S_18534;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15941);}while(r);
}
dl_continue_2718:;
}
dl_exit_2718:;
}
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(15945);}while(r);
S_18540:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15951);if(r)goto S_18540;}
S_18541:;
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(15953);if(r)goto S_18541;}
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(15954);}while(r);
S_18543:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(15954);if(r)goto S_18543;}
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(15954);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2720= 1 ),&(pass2721= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15956);}while(r);
S_18548:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15957);if(r)goto S_18548;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15957);}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(15958);}while(r);
S_18552:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(15959);if(r)goto S_18552;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(15959);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15960);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15963);}while(r);
S_18558:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(15964);if(r)goto S_18558;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(15965);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(15966);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(15967);}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(15969);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(15973);}while(r);
S_18567:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15973);if(r)goto S_18567;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15973);}while(r);
}
S_18570:;
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(15974);if(r)goto S_18570;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15974);}while(r);
}
S_18573:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(15975);if(r)goto S_18573;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(15975);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(15975);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(15977);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15978);}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(15980);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(15981);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_BYTETYPE;
if(!qbevent)break;evnt(15982);}while(r);
S_18583:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15982);if(r)goto S_18583;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(15982);}while(r);
}
S_18586:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15983);if(r)goto S_18586;}
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(15983);}while(r);
}
S_18589:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15984);if(r)goto S_18589;}
do{
SUB_WRITEBUFLINE(&(pass2722=*__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(15984);}while(r);
}
S_18592:;
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(15985);if(r)goto S_18592;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(15986);}while(r);
S_18594:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15987);if(r)goto S_18594;}
do{
SUB_WRITEBUFLINE(&(pass2723=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15987);}while(r);
}
S_18597:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15988);if(r)goto S_18597;}
do{
SUB_WRITEBUFLINE(&(pass2724=*__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(15988);}while(r);
}
S_18600:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15989);if(r)goto S_18600;}
do{
SUB_WRITEBUFLINE(&(pass2725=*__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(15989);}while(r);
}
}else{
S_18604:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15991);if(r)goto S_18604;}
do{
SUB_WRITEBUFLINE(&(pass2726=*__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(15991);}while(r);
}
}
S_18608:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15993);if(r)goto S_18608;}
do{
SUB_WRITEBUFLINE(&(pass2727=*__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(15993);}while(r);
}
S_18611:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(15994);if(r)goto S_18611;}
do{
SUB_WRITEBUFLINE(&(pass2728=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15994);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15996);}while(r);
S_18616:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(15997);if(r)goto S_18616;}
S_18617:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(15998);if(r)goto S_18617;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15998);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15998);}while(r);
}
}
S_18623:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16000);if(r)goto S_18623;}
S_18624:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16001);if(r)goto S_18624;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("~%%",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16001);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("%%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16001);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16003);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16004);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2729= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16005);}while(r);
S_18633:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16006);if(r)goto S_18633;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16006);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16007);}while(r);
}
S_18638:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
if(qbevent){evnt(16010);if(r)goto S_18638;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16011);}while(r);
S_18640:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16012);if(r)goto S_18640;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16012);}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(16012);}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(16013);}while(r);
S_18645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16015);if(r)goto S_18645;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16016);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16017);}while(r);
S_18648:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16017);if(r)goto S_18648;}
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(16017);}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(16018);}while(r);
S_18652:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16019);if(r)goto S_18652;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16020);}while(r);
S_18654:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16021);if(r)goto S_18654;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16021);}while(r);
}
S_18657:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16022);if(r)goto S_18657;}
S_18658:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16023);if(r)goto S_18658;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16024);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16025);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16025);}while(r);
do{
goto dl_exit_2730;
if(!qbevent)break;evnt(16026);}while(r);
}
S_18664:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16028);if(r)goto S_18664;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16028);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16028);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16028);}while(r);
}
S_18670:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16029);if(r)goto S_18670;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16029);}while(r);
}
dl_continue_2730:;
}
dl_exit_2730:;
}
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(16032);}while(r);
S_18676:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16034);if(r)goto S_18676;}
S_18677:;
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(16036);if(r)goto S_18677;}
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(16037);}while(r);
S_18679:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16037);if(r)goto S_18679;}
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(16037);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2732= 2 ),&(pass2733= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16039);}while(r);
S_18684:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16040);if(r)goto S_18684;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16040);}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(16041);}while(r);
S_18688:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16042);if(r)goto S_18688;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16042);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16043);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16046);}while(r);
S_18694:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16047);if(r)goto S_18694;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16048);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16049);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16050);}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(16052);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(16057);}while(r);
S_18703:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16057);if(r)goto S_18703;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16057);}while(r);
}
S_18706:;
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(16058);if(r)goto S_18706;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16058);}while(r);
}
S_18709:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16059);if(r)goto S_18709;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16059);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16059);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16061);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16062);}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(16064);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16065);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_INTEGERTYPE;
if(!qbevent)break;evnt(16066);}while(r);
S_18719:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16066);if(r)goto S_18719;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16066);}while(r);
}
S_18722:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16067);if(r)goto S_18722;}
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(16067);}while(r);
}
S_18725:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16068);if(r)goto S_18725;}
do{
SUB_WRITEBUFLINE(&(pass2734=*__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(16068);}while(r);
}
S_18728:;
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(16069);if(r)goto S_18728;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16070);}while(r);
S_18730:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16071);if(r)goto S_18730;}
do{
SUB_WRITEBUFLINE(&(pass2735=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16071);}while(r);
}
S_18733:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16072);if(r)goto S_18733;}
do{
SUB_WRITEBUFLINE(&(pass2736=*__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(16072);}while(r);
}
S_18736:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16073);if(r)goto S_18736;}
do{
SUB_WRITEBUFLINE(&(pass2737=*__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(16073);}while(r);
}
}else{
S_18740:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16075);if(r)goto S_18740;}
do{
SUB_WRITEBUFLINE(&(pass2738=*__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(16075);}while(r);
}
}
S_18744:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16077);if(r)goto S_18744;}
do{
SUB_WRITEBUFLINE(&(pass2739=*__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(16077);}while(r);
}
S_18747:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16078);if(r)goto S_18747;}
do{
SUB_WRITEBUFLINE(&(pass2740=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16078);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16080);}while(r);
S_18752:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16081);if(r)goto S_18752;}
S_18753:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16082);if(r)goto S_18753;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16082);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16082);}while(r);
}
}
S_18759:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16084);if(r)goto S_18759;}
S_18760:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16085);if(r)goto S_18760;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("~%",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16085);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16085);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16087);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16088);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2741= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16089);}while(r);
S_18769:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16090);if(r)goto S_18769;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16090);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16091);}while(r);
}
S_18774:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(16101);if(r)goto S_18774;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16102);}while(r);
S_18776:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16103);if(r)goto S_18776;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16103);}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(16103);}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(16104);}while(r);
S_18781:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16105);if(r)goto S_18781;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16106);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16107);}while(r);
S_18784:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16107);if(r)goto S_18784;}
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(16107);}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(16108);}while(r);
S_18788:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16109);if(r)goto S_18788;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16110);}while(r);
S_18790:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16111);if(r)goto S_18790;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16111);}while(r);
}
S_18793:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16112);if(r)goto S_18793;}
S_18794:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16113);if(r)goto S_18794;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16114);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16115);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16115);}while(r);
do{
goto dl_exit_2742;
if(!qbevent)break;evnt(16116);}while(r);
}
S_18800:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16118);if(r)goto S_18800;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16118);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16118);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16118);}while(r);
}
S_18806:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16119);if(r)goto S_18806;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16119);}while(r);
}
dl_continue_2742:;
}
dl_exit_2742:;
}
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(16122);}while(r);
S_18812:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16124);if(r)goto S_18812;}
S_18813:;
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(16126);if(r)goto S_18813;}
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(16127);}while(r);
S_18815:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16127);if(r)goto S_18815;}
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(16127);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2744=*__LONG_OS_BITS/  8 ),&(pass2745= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16129);}while(r);
S_18820:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16130);if(r)goto S_18820;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16130);}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(16131);}while(r);
S_18824:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16132);if(r)goto S_18824;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16132);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16133);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16136);}while(r);
S_18830:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16137);if(r)goto S_18830;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16138);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16139);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16140);}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(16142);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(16146);}while(r);
S_18839:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16146);if(r)goto S_18839;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16146);}while(r);
}
S_18842:;
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(16147);if(r)goto S_18842;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16147);}while(r);
}
S_18845:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16148);if(r)goto S_18845;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16148);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16148);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16150);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16151);}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(16153);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16154);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(16155);}while(r);
S_18855:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16155);if(r)goto S_18855;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16155);}while(r);
}
S_18858:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16156);if(r)goto S_18858;}
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(16156);}while(r);
}
S_18861:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16157);if(r)goto S_18861;}
do{
SUB_WRITEBUFLINE(&(pass2746=*__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(16157);}while(r);
}
S_18864:;
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(16158);if(r)goto S_18864;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16159);}while(r);
S_18866:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16160);if(r)goto S_18866;}
do{
SUB_WRITEBUFLINE(&(pass2747=*__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(16160);}while(r);
}
S_18869:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16161);if(r)goto S_18869;}
do{
SUB_WRITEBUFLINE(&(pass2748=*__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(16161);}while(r);
}
S_18872:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16162);if(r)goto S_18872;}
do{
SUB_WRITEBUFLINE(&(pass2749=*__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(16162);}while(r);
}
}else{
S_18876:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16164);if(r)goto S_18876;}
do{
SUB_WRITEBUFLINE(&(pass2750=*__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(16164);}while(r);
}
}
S_18880:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16166);if(r)goto S_18880;}
do{
SUB_WRITEBUFLINE(&(pass2751=*__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(16166);}while(r);
}
S_18883:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16167);if(r)goto S_18883;}
do{
SUB_WRITEBUFLINE(&(pass2752=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16167);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16169);}while(r);
S_18888:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16170);if(r)goto S_18888;}
S_18889:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16171);if(r)goto S_18889;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16171);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16171);}while(r);
}
}
S_18895:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16173);if(r)goto S_18895;}
S_18896:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16174);if(r)goto S_18896;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("~%&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16174);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16174);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16176);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16177);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2753= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16178);}while(r);
S_18905:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16179);if(r)goto S_18905;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16179);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16180);}while(r);
}
S_18910:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("LONG",4))))||is_error_pending()){
if(qbevent){evnt(16183);if(r)goto S_18910;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16184);}while(r);
S_18912:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16185);if(r)goto S_18912;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16185);}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(16185);}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(16186);}while(r);
S_18917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16187);if(r)goto S_18917;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16188);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16189);}while(r);
S_18920:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16189);if(r)goto S_18920;}
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(16189);}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(16190);}while(r);
S_18924:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16191);if(r)goto S_18924;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16192);}while(r);
S_18926:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16193);if(r)goto S_18926;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16193);}while(r);
}
S_18929:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16194);if(r)goto S_18929;}
S_18930:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16195);if(r)goto S_18930;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16196);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16197);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16197);}while(r);
do{
goto dl_exit_2754;
if(!qbevent)break;evnt(16198);}while(r);
}
S_18936:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16200);if(r)goto S_18936;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16200);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16200);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16200);}while(r);
}
S_18942:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16201);if(r)goto S_18942;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16201);}while(r);
}
dl_continue_2754:;
}
dl_exit_2754:;
}
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(16204);}while(r);
S_18948:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16210);if(r)goto S_18948;}
S_18949:;
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(16212);if(r)goto S_18949;}
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(16213);}while(r);
S_18951:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16213);if(r)goto S_18951;}
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(16213);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2756= 4 ),&(pass2757= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16215);}while(r);
S_18956:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16216);if(r)goto S_18956;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16216);}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(16217);}while(r);
S_18960:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16218);if(r)goto S_18960;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16218);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16219);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16222);}while(r);
S_18966:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16223);if(r)goto S_18966;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16224);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16225);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16226);}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(16228);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(16232);}while(r);
S_18975:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16232);if(r)goto S_18975;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16232);}while(r);
}
S_18978:;
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(16233);if(r)goto S_18978;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16233);}while(r);
}
S_18981:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16234);if(r)goto S_18981;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16234);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16234);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16236);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16237);}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(16239);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16240);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(16241);}while(r);
S_18991:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16241);if(r)goto S_18991;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16241);}while(r);
}
S_18994:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16242);if(r)goto S_18994;}
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(16242);}while(r);
}
S_18997:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16243);if(r)goto S_18997;}
do{
SUB_WRITEBUFLINE(&(pass2758=*__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(16243);}while(r);
}
S_19000:;
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(16244);if(r)goto S_19000;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16245);}while(r);
S_19002:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16246);if(r)goto S_19002;}
do{
SUB_WRITEBUFLINE(&(pass2759=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16246);}while(r);
}
S_19005:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16247);if(r)goto S_19005;}
do{
SUB_WRITEBUFLINE(&(pass2760=*__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(16247);}while(r);
}
S_19008:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16248);if(r)goto S_19008;}
do{
SUB_WRITEBUFLINE(&(pass2761=*__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(16248);}while(r);
}
}else{
S_19012:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16250);if(r)goto S_19012;}
do{
SUB_WRITEBUFLINE(&(pass2762=*__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(16250);}while(r);
}
}
S_19016:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16252);if(r)goto S_19016;}
do{
SUB_WRITEBUFLINE(&(pass2763=*__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(16252);}while(r);
}
S_19019:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16253);if(r)goto S_19019;}
do{
SUB_WRITEBUFLINE(&(pass2764=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16253);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16255);}while(r);
S_19024:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16256);if(r)goto S_19024;}
S_19025:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16257);if(r)goto S_19025;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16257);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16257);}while(r);
}
}
S_19031:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16259);if(r)goto S_19031;}
S_19032:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16260);if(r)goto S_19032;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("~&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16260);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16260);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16262);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16263);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2765= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16264);}while(r);
S_19041:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16265);if(r)goto S_19041;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16265);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16266);}while(r);
}
S_19046:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
if(qbevent){evnt(16269);if(r)goto S_19046;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16270);}while(r);
S_19048:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16271);if(r)goto S_19048;}
do{
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16271);}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(16271);}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(16272);}while(r);
S_19053:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16273);if(r)goto S_19053;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16274);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16275);}while(r);
S_19056:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16275);if(r)goto S_19056;}
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(16275);}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(16276);}while(r);
S_19060:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16277);if(r)goto S_19060;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16278);}while(r);
S_19062:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16279);if(r)goto S_19062;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16279);}while(r);
}
S_19065:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16280);if(r)goto S_19065;}
S_19066:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16281);if(r)goto S_19066;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16282);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16283);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16283);}while(r);
do{
goto dl_exit_2766;
if(!qbevent)break;evnt(16284);}while(r);
}
S_19072:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16286);if(r)goto S_19072;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16286);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16286);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16286);}while(r);
}
S_19078:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16287);if(r)goto S_19078;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16287);}while(r);
}
dl_continue_2766:;
}
dl_exit_2766:;
}
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(16290);}while(r);
S_19084:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16296);if(r)goto S_19084;}
S_19085:;
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(16298);if(r)goto S_19085;}
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(16299);}while(r);
S_19087:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16299);if(r)goto S_19087;}
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(16299);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2768= 8 ),&(pass2769= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16301);}while(r);
S_19092:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16302);if(r)goto S_19092;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16302);}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(16303);}while(r);
S_19096:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16304);if(r)goto S_19096;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16304);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16305);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16308);}while(r);
S_19102:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16309);if(r)goto S_19102;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16310);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16311);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16312);}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(16314);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(16318);}while(r);
S_19111:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16318);if(r)goto S_19111;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16318);}while(r);
}
S_19114:;
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(16319);if(r)goto S_19114;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16319);}while(r);
}
S_19117:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16320);if(r)goto S_19117;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16320);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16320);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16322);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16323);}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(16325);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16326);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(16327);}while(r);
S_19127:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16327);if(r)goto S_19127;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16327);}while(r);
}
S_19130:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16328);if(r)goto S_19130;}
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(16328);}while(r);
}
S_19133:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16329);if(r)goto S_19133;}
do{
SUB_WRITEBUFLINE(&(pass2770=*__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(16329);}while(r);
}
S_19136:;
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(16330);if(r)goto S_19136;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16331);}while(r);
S_19138:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16332);if(r)goto S_19138;}
do{
SUB_WRITEBUFLINE(&(pass2771=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16332);}while(r);
}
S_19141:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16333);if(r)goto S_19141;}
do{
SUB_WRITEBUFLINE(&(pass2772=*__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(16333);}while(r);
}
S_19144:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16334);if(r)goto S_19144;}
do{
SUB_WRITEBUFLINE(&(pass2773=*__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(16334);}while(r);
}
}else{
S_19148:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16336);if(r)goto S_19148;}
do{
SUB_WRITEBUFLINE(&(pass2774=*__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(16336);}while(r);
}
}
S_19152:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16338);if(r)goto S_19152;}
do{
SUB_WRITEBUFLINE(&(pass2775=*__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(16338);}while(r);
}
S_19155:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16339);if(r)goto S_19155;}
do{
SUB_WRITEBUFLINE(&(pass2776=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16339);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16341);}while(r);
S_19160:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16342);if(r)goto S_19160;}
S_19161:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16343);if(r)goto S_19161;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16343);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16343);}while(r);
}
}
S_19167:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16345);if(r)goto S_19167;}
S_19168:;
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
if(qbevent){evnt(16346);if(r)goto S_19168;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("~&&",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16346);}while(r);
}else{
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16346);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16348);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16349);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2777= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16350);}while(r);
S_19177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16351);if(r)goto S_19177;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16351);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16352);}while(r);
}
S_19182:;
if ((-(*_FUNC_DIM2_LONG_UNSGN== 1 ))||is_error_pending()){
if(qbevent){evnt(16355);if(r)goto S_19182;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Type cannot be _UNSIGNED",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16355);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16355);}while(r);
}
S_19186:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
if(qbevent){evnt(16357);if(r)goto S_19186;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16358);}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(16359);}while(r);
S_19189:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16360);if(r)goto S_19189;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16361);}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(16362);}while(r);
S_19192:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16363);if(r)goto S_19192;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16364);}while(r);
S_19194:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16365);if(r)goto S_19194;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16365);}while(r);
}
S_19197:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16366);if(r)goto S_19197;}
S_19198:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16367);if(r)goto S_19198;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16368);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16369);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16369);}while(r);
do{
goto dl_exit_2778;
if(!qbevent)break;evnt(16370);}while(r);
}
S_19204:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16372);if(r)goto S_19204;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16372);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16372);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16372);}while(r);
}
S_19210:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16373);if(r)goto S_19210;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16373);}while(r);
}
dl_continue_2778:;
}
dl_exit_2778:;
}
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(16376);}while(r);
S_19216:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16382);if(r)goto S_19216;}
S_19217:;
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(16384);if(r)goto S_19217;}
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(16385);}while(r);
S_19219:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16385);if(r)goto S_19219;}
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(16385);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2780= 4 ),&(pass2781= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16387);}while(r);
S_19224:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16388);if(r)goto S_19224;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16388);}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(16389);}while(r);
S_19228:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16390);if(r)goto S_19228;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16390);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16391);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16394);}while(r);
S_19234:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16395);if(r)goto S_19234;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16396);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16397);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16398);}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(16400);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(16404);}while(r);
S_19243:;
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(16405);if(r)goto S_19243;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16405);}while(r);
}
S_19246:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16406);if(r)goto S_19246;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16406);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16406);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16408);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16409);}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(16411);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16412);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_SINGLETYPE;
if(!qbevent)break;evnt(16413);}while(r);
S_19256:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16414);if(r)goto S_19256;}
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(16414);}while(r);
}
S_19259:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16415);if(r)goto S_19259;}
do{
SUB_WRITEBUFLINE(&(pass2782=*__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(16415);}while(r);
}
S_19262:;
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(16416);if(r)goto S_19262;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16417);}while(r);
S_19264:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16418);if(r)goto S_19264;}
do{
SUB_WRITEBUFLINE(&(pass2783=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16418);}while(r);
}
S_19267:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16419);if(r)goto S_19267;}
do{
SUB_WRITEBUFLINE(&(pass2784=*__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(16419);}while(r);
}
S_19270:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16420);if(r)goto S_19270;}
do{
SUB_WRITEBUFLINE(&(pass2785=*__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(16420);}while(r);
}
}else{
S_19274:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16422);if(r)goto S_19274;}
do{
SUB_WRITEBUFLINE(&(pass2786=*__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(16422);}while(r);
}
}
S_19278:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16424);if(r)goto S_19278;}
do{
SUB_WRITEBUFLINE(&(pass2787=*__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(16424);}while(r);
}
S_19281:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16425);if(r)goto S_19281;}
do{
SUB_WRITEBUFLINE(&(pass2788=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16425);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16427);}while(r);
S_19286:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16428);if(r)goto S_19286;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16429);}while(r);
}
S_19289:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16431);if(r)goto S_19289;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16432);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16434);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16435);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2789= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16436);}while(r);
S_19295:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16437);if(r)goto S_19295;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16437);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16438);}while(r);
}
S_19300:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
if(qbevent){evnt(16441);if(r)goto S_19300;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16442);}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(16443);}while(r);
S_19303:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16444);if(r)goto S_19303;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16445);}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(16446);}while(r);
S_19306:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16447);if(r)goto S_19306;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16448);}while(r);
S_19308:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16449);if(r)goto S_19308;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16449);}while(r);
}
S_19311:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16450);if(r)goto S_19311;}
S_19312:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16451);if(r)goto S_19312;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16452);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16453);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16453);}while(r);
do{
goto dl_exit_2790;
if(!qbevent)break;evnt(16454);}while(r);
}
S_19318:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16456);if(r)goto S_19318;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16456);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16456);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16456);}while(r);
}
S_19324:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16457);if(r)goto S_19324;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16457);}while(r);
}
dl_continue_2790:;
}
dl_exit_2790:;
}
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(16460);}while(r);
S_19330:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16466);if(r)goto S_19330;}
S_19331:;
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(16468);if(r)goto S_19331;}
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(16469);}while(r);
S_19333:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16469);if(r)goto S_19333;}
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(16469);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2792= 8 ),&(pass2793= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16471);}while(r);
S_19338:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16472);if(r)goto S_19338;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16472);}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(16473);}while(r);
S_19342:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16474);if(r)goto S_19342;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16474);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16475);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16478);}while(r);
S_19348:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16479);if(r)goto S_19348;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16480);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16481);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16482);}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(16484);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(16488);}while(r);
S_19357:;
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(16489);if(r)goto S_19357;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16489);}while(r);
}
S_19360:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16490);if(r)goto S_19360;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16490);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16490);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16492);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16493);}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(16495);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16496);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_DOUBLETYPE;
if(!qbevent)break;evnt(16497);}while(r);
S_19370:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16498);if(r)goto S_19370;}
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(16498);}while(r);
}
S_19373:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16499);if(r)goto S_19373;}
do{
SUB_WRITEBUFLINE(&(pass2794=*__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(16499);}while(r);
}
S_19376:;
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(16500);if(r)goto S_19376;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16501);}while(r);
S_19378:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16502);if(r)goto S_19378;}
do{
SUB_WRITEBUFLINE(&(pass2795=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16502);}while(r);
}
S_19381:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16503);if(r)goto S_19381;}
do{
SUB_WRITEBUFLINE(&(pass2796=*__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(16503);}while(r);
}
S_19384:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16504);if(r)goto S_19384;}
do{
SUB_WRITEBUFLINE(&(pass2797=*__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(16504);}while(r);
}
}else{
S_19388:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16506);if(r)goto S_19388;}
do{
SUB_WRITEBUFLINE(&(pass2798=*__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(16506);}while(r);
}
}
S_19392:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16508);if(r)goto S_19392;}
do{
SUB_WRITEBUFLINE(&(pass2799=*__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(16508);}while(r);
}
S_19395:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16509);if(r)goto S_19395;}
do{
SUB_WRITEBUFLINE(&(pass2800=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16509);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16511);}while(r);
S_19400:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16512);if(r)goto S_19400;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16513);}while(r);
}
S_19403:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16515);if(r)goto S_19403;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16516);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16518);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16519);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2801= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16520);}while(r);
S_19409:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16521);if(r)goto S_19409;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16521);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16522);}while(r);
}
S_19414:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
if(qbevent){evnt(16525);if(r)goto S_19414;}
do{
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16526);}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(16527);}while(r);
S_19417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(16528);if(r)goto S_19417;}
do{
*__INTEGER_ARRAYDESC= 0 ;
if(!qbevent)break;evnt(16529);}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(16530);}while(r);
S_19420:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16531);if(r)goto S_19420;}
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16532);}while(r);
S_19422:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16533);if(r)goto S_19422;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16533);}while(r);
}
S_19425:;
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16534);if(r)goto S_19425;}
S_19426:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(16535);if(r)goto S_19426;}
do{
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16536);}while(r);
do{
*__INTEGER_ARRAYDESC=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16537);}while(r);
do{
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16537);}while(r);
do{
goto dl_exit_2802;
if(!qbevent)break;evnt(16538);}while(r);
}
S_19432:;
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16540);if(r)goto S_19432;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16540);}while(r);
do{
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16540);}while(r);
}else{
do{
*_FUNC_DIM2_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16540);}while(r);
}
S_19438:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16541);if(r)goto S_19438;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16541);}while(r);
}
dl_continue_2802:;
}
dl_exit_2802:;
}
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(16544);}while(r);
S_19444:;
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
if(qbevent){evnt(16550);if(r)goto S_19444;}
S_19445:;
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(16552);if(r)goto S_19445;}
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(16553);}while(r);
S_19447:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(16553);if(r)goto S_19447;}
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(16553);}while(r);
}
}
do{
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2804= 32 ),&(pass2805= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16555);}while(r);
S_19452:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16556);if(r)goto S_19452;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16556);}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(16557);}while(r);
S_19456:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(16558);if(r)goto S_19456;}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16558);}while(r);
}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16559);}while(r);
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16562);}while(r);
S_19462:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(16563);if(r)goto S_19462;}
do{
*_FUNC_DIM2_LONG_NUME= -1 ;
if(!qbevent)break;evnt(16564);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2847)))=*__LONG_GLINKID;
if(!qbevent)break;evnt(16565);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+2851)))=*__INTEGER_GLINKARG;
if(!qbevent)break;evnt(16566);}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(16568);}while(r);
}
}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(16572);}while(r);
S_19471:;
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(16573);if(r)goto S_19471;}
do{
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16573);}while(r);
}
S_19474:;
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
if(qbevent){evnt(16574);if(r)goto S_19474;}
do{
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
if(!qbevent)break;evnt(16574);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
if(!qbevent)break;evnt(16574);}while(r);
}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
if(!qbevent)break;evnt(16576);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16577);}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(16579);}while(r);
do{
SUB_CLEARID();
if(!qbevent)break;evnt(16580);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*__LONG_FLOATTYPE;
if(!qbevent)break;evnt(16581);}while(r);
S_19484:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16582);if(r)goto S_19484;}
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(16582);}while(r);
}
S_19487:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16583);if(r)goto S_19487;}
do{
SUB_WRITEBUFLINE(&(pass2806=*__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(16583);}while(r);
}
S_19490:;
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(16584);if(r)goto S_19490;}
do{
*(int32*)(((char*)__UDT_ID)+((0+536)))=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(16585);}while(r);
S_19492:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16586);if(r)goto S_19492;}
do{
SUB_WRITEBUFLINE(&(pass2807=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=32;",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16586);}while(r);
}
S_19495:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16587);if(r)goto S_19495;}
do{
SUB_WRITEBUFLINE(&(pass2808=*__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(16587);}while(r);
}
S_19498:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16588);if(r)goto S_19498;}
do{
SUB_WRITEBUFLINE(&(pass2809=*__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(16588);}while(r);
}
}else{
S_19502:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16590);if(r)goto S_19502;}
do{
SUB_WRITEBUFLINE(&(pass2810=*__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(16590);}while(r);
}
}
S_19506:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16592);if(r)goto S_19506;}
do{
SUB_WRITEBUFLINE(&(pass2811=*__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(16592);}while(r);
}
S_19509:;
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
if(qbevent){evnt(16593);if(r)goto S_19509;}
do{
SUB_WRITEBUFLINE(&(pass2812=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16593);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16595);}while(r);
S_19514:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(16596);if(r)goto S_19514;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16597);}while(r);
}
S_19517:;
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(16599);if(r)goto S_19517;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1),qbs_new_txt_len("##",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16600);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),_FUNC_DIM2_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16602);}while(r);
do{
SUB_REGID();
if(!qbevent)break;evnt(16603);}while(r);
do{
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2813= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16604);}while(r);
S_19523:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16605);if(r)goto S_19523;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16605);}while(r);
}
do{
goto LABEL_DIM2EXITFUNC;
if(!qbevent)break;evnt(16606);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unknown type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16609);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16609);}while(r);
LABEL_DIM2EXITFUNC:;
if(qbevent){evnt(16610);r=0;}
S_19530:;
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
if(qbevent){evnt(16612);if(r)goto S_19530;}
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(16613);}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(16614);}while(r);
}
S_19534:;
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
if(qbevent){evnt(16618);if(r)goto S_19534;}
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(16619);}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(16620);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(16621);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,_FUNC_DIM2_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16624);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free24.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
return *_FUNC_DIM2_LONG_DIM2;
}
