#line 17624 "qb64pe.bas"
int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){
#line 17624 "qb64pe.bas"
qbs *tqbs;
#line 17624 "qb64pe.bas"
ptrszint tmp_long;
#line 17624 "qb64pe.bas"
int32 tmp_fileno;
#line 17624 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 17624 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 17624 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 17624 "qb64pe.bas"
#include "data57.txt"
#line 17624 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 17624 "qb64pe.bas"
new_mem_lock();
#line 17624 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 17624 "qb64pe.bas"
sf_mem_lock->type=3;
#line 17624 "qb64pe.bas"
libqb_check_stack();
#line 17624 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 17644 "qb64pe.bas"
do{
#line 17644 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2);
#line 17644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17644 "qb64pe.bas"
if(!qbevent)break;evnt(17644);}while(r);
#line 17645 "qb64pe.bas"
do{
#line 17645 "qb64pe.bas"
*_FUNC_DIM2_LONG_DIM2= 1 ;
#line 17645 "qb64pe.bas"
if(!qbevent)break;evnt(17645);}while(r);
#line 17647 "qb64pe.bas"
S_20113:;
#line 17647 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 17647 "qb64pe.bas"
if(qbevent){evnt(17647);if(r)goto S_20113;}
#line 17647 "qb64pe.bas"
do{
#line 17647 "qb64pe.bas"
tab_spc_cr_size=2;
#line 17647 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 17647 "qb64pe.bas"
if (is_error_pending()) goto skip2444;
#line 17647 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0);
#line 17647 "qb64pe.bas"
if (is_error_pending()) goto skip2444;
#line 17647 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1);
#line 17647 "qb64pe.bas"
if (is_error_pending()) goto skip2444;
#line 17647 "qb64pe.bas"
skip2444:
#line 17647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17647 "qb64pe.bas"
tab_spc_cr_size=1;
#line 17647 "qb64pe.bas"
if(!qbevent)break;evnt(17647);}while(r);
#line 17647 "qb64pe.bas"
}
#line 17649 "qb64pe.bas"
do{
#line 17649 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME);
#line 17649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17649 "qb64pe.bas"
if(!qbevent)break;evnt(17649);}while(r);
#line 17650 "qb64pe.bas"
do{
#line 17650 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME);
#line 17650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17650 "qb64pe.bas"
if(!qbevent)break;evnt(17650);}while(r);
#line 17651 "qb64pe.bas"
do{
#line 17651 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME));
#line 17651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17651 "qb64pe.bas"
if(!qbevent)break;evnt(17651);}while(r);
#line 17653 "qb64pe.bas"
S_20119:;
#line 17653 "qb64pe.bas"
if ((-(*__INTEGER_DIMSFARRAY== 1 ))||is_error_pending()){
#line 17653 "qb64pe.bas"
if(qbevent){evnt(17653);if(r)goto S_20119;}
#line 17653 "qb64pe.bas"
do{
#line 17653 "qb64pe.bas"
*_FUNC_DIM2_LONG_F= 0 ;
#line 17653 "qb64pe.bas"
if(!qbevent)break;evnt(17653);}while(r);
#line 17653 "qb64pe.bas"
}else{
#line 17653 "qb64pe.bas"
do{
#line 17653 "qb64pe.bas"
*_FUNC_DIM2_LONG_F= 1 ;
#line 17653 "qb64pe.bas"
if(!qbevent)break;evnt(17653);}while(r);
#line 17653 "qb64pe.bas"
}
#line 17655 "qb64pe.bas"
S_20124:;
#line 17655 "qb64pe.bas"
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
#line 17655 "qb64pe.bas"
if(qbevent){evnt(17655);if(r)goto S_20124;}
#line 17658 "qb64pe.bas"
do{
#line 17658 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
#line 17658 "qb64pe.bas"
if(!qbevent)break;evnt(17658);}while(r);
#line 17659 "qb64pe.bas"
do{
#line 17659 "qb64pe.bas"
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
#line 17659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17659 "qb64pe.bas"
if(!qbevent)break;evnt(17659);}while(r);
#line 17660 "qb64pe.bas"
do{
#line 17660 "qb64pe.bas"
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
#line 17660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17660 "qb64pe.bas"
if(!qbevent)break;evnt(17660);}while(r);
#line 17661 "qb64pe.bas"
}
#line 17664 "qb64pe.bas"
do{
#line 17664 "qb64pe.bas"
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)));
#line 17664 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17664 "qb64pe.bas"
if(!qbevent)break;evnt(17664);}while(r);
#line 17667 "qb64pe.bas"
S_20130:;
#line 17667 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
#line 17667 "qb64pe.bas"
if(qbevent){evnt(17667);if(r)goto S_20130;}
#line 17667 "qb64pe.bas"
do{
#line 17667 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24));
#line 17667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17667 "qb64pe.bas"
if(!qbevent)break;evnt(17667);}while(r);
#line 17667 "qb64pe.bas"
do{
#line 17667 "qb64pe.bas"
goto exit_subfunc;
#line 17667 "qb64pe.bas"
if(!qbevent)break;evnt(17667);}while(r);
#line 17667 "qb64pe.bas"
}
#line 17673 "qb64pe.bas"
S_20134:;
#line 17673 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_TYP->len<= 256 ))&(qbs_notequal(qbs_right(_FUNC_DIM2_STRING_TYP, 1 ),qbs_new_txt_len(" ",1)))))||is_error_pending()){
#line 17673 "qb64pe.bas"
if(qbevent){evnt(17673);if(r)goto S_20134;}
#line 17674 "qb64pe.bas"
do{
#line 17674 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_TYPPADDED,qbs_add(_FUNC_DIM2_STRING_TYP,func_space( 256 -_FUNC_DIM2_STRING_TYP->len)));
#line 17674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17674 "qb64pe.bas"
if(!qbevent)break;evnt(17674);}while(r);
#line 17675 "qb64pe.bas"
}else{
#line 17676 "qb64pe.bas"
do{
#line 17676 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_TYPPADDED,qbs_new_txt_len("",0));
#line 17676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17676 "qb64pe.bas"
if(!qbevent)break;evnt(17676);}while(r);
#line 17677 "qb64pe.bas"
}
#line 17678 "qb64pe.bas"
S_20139:;
#line 17678 "qb64pe.bas"
fornext_value2449= 1 ;
#line 17678 "qb64pe.bas"
fornext_finalvalue2449=*__LONG_LASTTYPE;
#line 17678 "qb64pe.bas"
fornext_step2449= 1 ;
#line 17678 "qb64pe.bas"
if (fornext_step2449<0) fornext_step_negative2449=1; else fornext_step_negative2449=0;
#line 17678 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2449;
#line 17678 "qb64pe.bas"
goto fornext_entrylabel2449;
#line 17678 "qb64pe.bas"
while(1){
#line 17678 "qb64pe.bas"
fornext_value2449=fornext_step2449+(*_FUNC_DIM2_LONG_I);
#line 17678 "qb64pe.bas"
fornext_entrylabel2449:
#line 17678 "qb64pe.bas"
*_FUNC_DIM2_LONG_I=fornext_value2449;
#line 17678 "qb64pe.bas"
if (fornext_step_negative2449){
#line 17678 "qb64pe.bas"
if (fornext_value2449<fornext_finalvalue2449) break;
#line 17678 "qb64pe.bas"
}else{
#line 17678 "qb64pe.bas"
if (fornext_value2449>fornext_finalvalue2449) break;
#line 17678 "qb64pe.bas"
}
#line 17678 "qb64pe.bas"
fornext_error2449:;
#line 17678 "qb64pe.bas"
if(qbevent){evnt(17678);if(r)goto S_20139;}
#line 17679 "qb64pe.bas"
S_20140:;
#line 17679 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYPPADDED,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()){
#line 17679 "qb64pe.bas"
if(qbevent){evnt(17679);if(r)goto S_20140;}
#line 17680 "qb64pe.bas"
do{
#line 17680 "qb64pe.bas"
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)));
#line 17680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17680 "qb64pe.bas"
if(!qbevent)break;evnt(17680);}while(r);
#line 17682 "qb64pe.bas"
do{
#line 17682 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME));
#line 17682 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17682 "qb64pe.bas"
if(!qbevent)break;evnt(17682);}while(r);
#line 17685 "qb64pe.bas"
S_20143:;
#line 17685 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 17685 "qb64pe.bas"
if(qbevent){evnt(17685);if(r)goto S_20143;}
#line 17686 "qb64pe.bas"
do{
#line 17686 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 17686 "qb64pe.bas"
if(!qbevent)break;evnt(17686);}while(r);
#line 17687 "qb64pe.bas"
S_20145:;
#line 17687 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 17687 "qb64pe.bas"
if(qbevent){evnt(17687);if(r)goto S_20145;}
#line 17688 "qb64pe.bas"
do{
#line 17688 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
#line 17688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17688 "qb64pe.bas"
if(!qbevent)break;evnt(17688);}while(r);
#line 17689 "qb64pe.bas"
S_20147:;
#line 17689 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17689 "qb64pe.bas"
if(qbevent){evnt(17689);if(r)goto S_20147;}
#line 17689 "qb64pe.bas"
do{
#line 17689 "qb64pe.bas"
goto exit_subfunc;
#line 17689 "qb64pe.bas"
if(!qbevent)break;evnt(17689);}while(r);
#line 17689 "qb64pe.bas"
}
#line 17690 "qb64pe.bas"
S_20150:;
#line 17690 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 17690 "qb64pe.bas"
if(qbevent){evnt(17690);if(r)goto S_20150;}
#line 17691 "qb64pe.bas"
S_20151:;
#line 17691 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 17691 "qb64pe.bas"
if(qbevent){evnt(17691);if(r)goto S_20151;}
#line 17692 "qb64pe.bas"
do{
#line 17692 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 17692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17692 "qb64pe.bas"
if(!qbevent)break;evnt(17692);}while(r);
#line 17693 "qb64pe.bas"
do{
#line 17693 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 17693 "qb64pe.bas"
if(!qbevent)break;evnt(17693);}while(r);
#line 17693 "qb64pe.bas"
do{
#line 17693 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 17693 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17693 "qb64pe.bas"
if(!qbevent)break;evnt(17693);}while(r);
#line 17694 "qb64pe.bas"
do{
#line 17694 "qb64pe.bas"
goto dl_exit_2450;
#line 17694 "qb64pe.bas"
if(!qbevent)break;evnt(17694);}while(r);
#line 17695 "qb64pe.bas"
}
#line 17696 "qb64pe.bas"
S_20157:;
#line 17696 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 17696 "qb64pe.bas"
if(qbevent){evnt(17696);if(r)goto S_20157;}
#line 17696 "qb64pe.bas"
do{
#line 17696 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 17696 "qb64pe.bas"
if(!qbevent)break;evnt(17696);}while(r);
#line 17696 "qb64pe.bas"
do{
#line 17696 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME);
#line 17696 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17696 "qb64pe.bas"
if(!qbevent)break;evnt(17696);}while(r);
#line 17696 "qb64pe.bas"
}else{
#line 17696 "qb64pe.bas"
do{
#line 17696 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 17696 "qb64pe.bas"
if(!qbevent)break;evnt(17696);}while(r);
#line 17696 "qb64pe.bas"
}
#line 17697 "qb64pe.bas"
S_20163:;
#line 17697 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17697 "qb64pe.bas"
if(qbevent){evnt(17697);if(r)goto S_20163;}
#line 17697 "qb64pe.bas"
do{
#line 17697 "qb64pe.bas"
goto exit_subfunc;
#line 17697 "qb64pe.bas"
if(!qbevent)break;evnt(17697);}while(r);
#line 17697 "qb64pe.bas"
}
#line 17698 "qb64pe.bas"
dl_continue_2450:;
#line 17698 "qb64pe.bas"
}
#line 17698 "qb64pe.bas"
dl_exit_2450:;
#line 17699 "qb64pe.bas"
}
#line 17700 "qb64pe.bas"
do{
#line 17700 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 17700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17700 "qb64pe.bas"
if(!qbevent)break;evnt(17700);}while(r);
#line 17701 "qb64pe.bas"
do{
#line 17701 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
#line 17701 "qb64pe.bas"
if(!qbevent)break;evnt(17701);}while(r);
#line 17702 "qb64pe.bas"
do{
#line 17702 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYN_UDT_MODE=FUNC_GETUDTCANONMODE(_FUNC_DIM2_LONG_I);
#line 17702 "qb64pe.bas"
if(!qbevent)break;evnt(17702);}while(r);
#line 17703 "qb64pe.bas"
S_20171:;
#line 17703 "qb64pe.bas"
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
#line 17703 "qb64pe.bas"
if(qbevent){evnt(17703);if(r)goto S_20171;}
#line 17704 "qb64pe.bas"
do{
#line 17704 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE=*__INTEGER_SF_UDT_DYNMODE;
#line 17704 "qb64pe.bas"
if(!qbevent)break;evnt(17704);}while(r);
#line 17705 "qb64pe.bas"
S_20173:;
#line 17705 "qb64pe.bas"
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE< 0 ))|(-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 1 )))||is_error_pending()){
#line 17705 "qb64pe.bas"
if(qbevent){evnt(17705);if(r)goto S_20173;}
#line 17705 "qb64pe.bas"
do{
#line 17705 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
#line 17705 "qb64pe.bas"
if(!qbevent)break;evnt(17705);}while(r);
#line 17705 "qb64pe.bas"
}
#line 17708 "qb64pe.bas"
S_20176:;
#line 17708 "qb64pe.bas"
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 0 ))&(-(*_FUNC_DIM2_LONG_DYNPARAMMODE!=*_FUNC_DIM2_LONG_DYN_UDT_MODE)))||is_error_pending()){
#line 17708 "qb64pe.bas"
if(qbevent){evnt(17708);if(r)goto S_20176;}
#line 17709 "qb64pe.bas"
do{
#line 17709 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Internal TYPE parameter layout does not match its declaration",61));
#line 17709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17709 "qb64pe.bas"
if(!qbevent)break;evnt(17709);}while(r);
#line 17709 "qb64pe.bas"
do{
#line 17709 "qb64pe.bas"
goto exit_subfunc;
#line 17709 "qb64pe.bas"
if(!qbevent)break;evnt(17709);}while(r);
#line 17710 "qb64pe.bas"
}
#line 17711 "qb64pe.bas"
}
#line 17712 "qb64pe.bas"
do{
#line 17712 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
#line 17712 "qb64pe.bas"
if(!qbevent)break;evnt(17712);}while(r);
#line 17713 "qb64pe.bas"
do{
#line 17713 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT= 0 ;
#line 17713 "qb64pe.bas"
if(!qbevent)break;evnt(17713);}while(r);
#line 17714 "qb64pe.bas"
S_20183:;
#line 17714 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_DYN_UDT_MODE> 0 ))||is_error_pending()){
#line 17714 "qb64pe.bas"
if(qbevent){evnt(17714);if(r)goto S_20183;}
#line 17715 "qb64pe.bas"
S_20184:;
#line 17715 "qb64pe.bas"
if ((-(FUNC_UDTDYNMEMBERSOK(_FUNC_DIM2_LONG_I,_FUNC_DIM2_LONG_DYN_UDT_MODE)== 0 ))||is_error_pending()){
#line 17715 "qb64pe.bas"
if(qbevent){evnt(17715);if(r)goto S_20184;}
#line 17715 "qb64pe.bas"
do{
#line 17715 "qb64pe.bas"
goto exit_subfunc;
#line 17715 "qb64pe.bas"
if(!qbevent)break;evnt(17715);}while(r);
#line 17715 "qb64pe.bas"
}
#line 17716 "qb64pe.bas"
do{
#line 17716 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS=FUNC_UDTDYNLAYOUTSIZE(_FUNC_DIM2_LONG_I);
#line 17716 "qb64pe.bas"
if(!qbevent)break;evnt(17716);}while(r);
#line 17717 "qb64pe.bas"
do{
#line 17717 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT= -1 ;
#line 17717 "qb64pe.bas"
if(!qbevent)break;evnt(17717);}while(r);
#line 17718 "qb64pe.bas"
}
#line 17720 "qb64pe.bas"
S_20190:;
#line 17720 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 17720 "qb64pe.bas"
if(qbevent){evnt(17720);if(r)goto S_20190;}
#line 17722 "qb64pe.bas"
S_20191:;
#line 17722 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 17722 "qb64pe.bas"
if(qbevent){evnt(17722);if(r)goto S_20191;}
#line 17723 "qb64pe.bas"
do{
#line 17723 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 17723 "qb64pe.bas"
if(!qbevent)break;evnt(17723);}while(r);
#line 17723 "qb64pe.bas"
S_20193:;
#line 17723 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 17723 "qb64pe.bas"
if(qbevent){evnt(17723);if(r)goto S_20193;}
#line 17723 "qb64pe.bas"
do{
#line 17723 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 17723 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17723 "qb64pe.bas"
if(!qbevent)break;evnt(17723);}while(r);
#line 17723 "qb64pe.bas"
}
#line 17724 "qb64pe.bas"
}
#line 17725 "qb64pe.bas"
do{
#line 17725 "qb64pe.bas"
*__LONG_UDT_ALLOC_DYNMODE=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
#line 17725 "qb64pe.bas"
if(!qbevent)break;evnt(17725);}while(r);
#line 17726 "qb64pe.bas"
do{
#line 17726 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2452=qb_safe_idiv(*_FUNC_DIM2_LONG_BITS, 8 )),_FUNC_DIM2_LONG_I);
#line 17726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17726 "qb64pe.bas"
if(!qbevent)break;evnt(17726);}while(r);
#line 17727 "qb64pe.bas"
do{
#line 17727 "qb64pe.bas"
*__LONG_UDT_ALLOC_DYNMODE= 0 ;
#line 17727 "qb64pe.bas"
if(!qbevent)break;evnt(17727);}while(r);
#line 17728 "qb64pe.bas"
S_20200:;
#line 17728 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17728 "qb64pe.bas"
if(qbevent){evnt(17728);if(r)goto S_20200;}
#line 17728 "qb64pe.bas"
do{
#line 17728 "qb64pe.bas"
goto exit_subfunc;
#line 17728 "qb64pe.bas"
if(!qbevent)break;evnt(17728);}while(r);
#line 17728 "qb64pe.bas"
}
#line 17729 "qb64pe.bas"
do{
#line 17729 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 17729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17729 "qb64pe.bas"
if(!qbevent)break;evnt(17729);}while(r);
#line 17730 "qb64pe.bas"
S_20204:;
#line 17730 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 17730 "qb64pe.bas"
if(qbevent){evnt(17730);if(r)goto S_20204;}
#line 17731 "qb64pe.bas"
S_20205:;
#line 17731 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT)||is_error_pending()){
#line 17731 "qb64pe.bas"
if(qbevent){evnt(17731);if(r)goto S_20205;}
#line 17731 "qb64pe.bas"
do{
#line 17731 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_ARRAYDESC)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+520)))= -1 ;
#line 17731 "qb64pe.bas"
if(!qbevent)break;evnt(17731);}while(r);
#line 17731 "qb64pe.bas"
do{
#line 17731 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_ARRAYDESC)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+522)))=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
#line 17731 "qb64pe.bas"
if(!qbevent)break;evnt(17731);}while(r);
#line 17731 "qb64pe.bas"
}
#line 17732 "qb64pe.bas"
do{
#line 17732 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 17732 "qb64pe.bas"
if(!qbevent)break;evnt(17732);}while(r);
#line 17733 "qb64pe.bas"
}
#line 17734 "qb64pe.bas"
do{
#line 17734 "qb64pe.bas"
SUB_CLEARID();
#line 17734 "qb64pe.bas"
if(!qbevent)break;evnt(17734);}while(r);
#line 17736 "qb64pe.bas"
}else{
#line 17737 "qb64pe.bas"
do{
#line 17737 "qb64pe.bas"
SUB_CLEARID();
#line 17737 "qb64pe.bas"
if(!qbevent)break;evnt(17737);}while(r);
#line 17738 "qb64pe.bas"
S_20214:;
#line 17738 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 17738 "qb64pe.bas"
if(qbevent){evnt(17738);if(r)goto S_20214;}
#line 17739 "qb64pe.bas"
do{
#line 17739 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 17739 "qb64pe.bas"
if(!qbevent)break;evnt(17739);}while(r);
#line 17740 "qb64pe.bas"
do{
#line 17740 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 17740 "qb64pe.bas"
if(!qbevent)break;evnt(17740);}while(r);
#line 17741 "qb64pe.bas"
do{
#line 17741 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 17741 "qb64pe.bas"
if(!qbevent)break;evnt(17741);}while(r);
#line 17742 "qb64pe.bas"
}else{
#line 17743 "qb64pe.bas"
do{
#line 17743 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 17743 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17743 "qb64pe.bas"
if(!qbevent)break;evnt(17743);}while(r);
#line 17744 "qb64pe.bas"
}
#line 17745 "qb64pe.bas"
}
#line 17747 "qb64pe.bas"
do{
#line 17747 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
#line 17747 "qb64pe.bas"
if(!qbevent)break;evnt(17747);}while(r);
#line 17748 "qb64pe.bas"
S_20223:;
#line 17748 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_DYN_UDT_LAYOUT)||is_error_pending()){
#line 17748 "qb64pe.bas"
if(qbevent){evnt(17748);if(r)goto S_20223;}
#line 17748 "qb64pe.bas"
do{
#line 17748 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+520)))= -1 ;
#line 17748 "qb64pe.bas"
if(!qbevent)break;evnt(17748);}while(r);
#line 17748 "qb64pe.bas"
do{
#line 17748 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+522)))=*_FUNC_DIM2_LONG_DYN_UDT_MODE;
#line 17748 "qb64pe.bas"
if(!qbevent)break;evnt(17748);}while(r);
#line 17748 "qb64pe.bas"
}
#line 17749 "qb64pe.bas"
S_20227:;
#line 17749 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 17749 "qb64pe.bas"
if(qbevent){evnt(17749);if(r)goto S_20227;}
#line 17749 "qb64pe.bas"
do{
#line 17749 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 17749 "qb64pe.bas"
if(!qbevent)break;evnt(17749);}while(r);
#line 17749 "qb64pe.bas"
}
#line 17750 "qb64pe.bas"
do{
#line 17750 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 17750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17750 "qb64pe.bas"
if(!qbevent)break;evnt(17750);}while(r);
#line 17752 "qb64pe.bas"
S_20231:;
#line 17752 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 17752 "qb64pe.bas"
if(qbevent){evnt(17752);if(r)goto S_20231;}
#line 17752 "qb64pe.bas"
do{
#line 17752 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 17752 "qb64pe.bas"
if(!qbevent)break;evnt(17752);}while(r);
#line 17752 "qb64pe.bas"
do{
#line 17752 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 17752 "qb64pe.bas"
if(!qbevent)break;evnt(17752);}while(r);
#line 17752 "qb64pe.bas"
}
#line 17754 "qb64pe.bas"
do{
#line 17754 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 17754 "qb64pe.bas"
if(!qbevent)break;evnt(17754);}while(r);
#line 17755 "qb64pe.bas"
do{
#line 17755 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 17755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17755 "qb64pe.bas"
if(!qbevent)break;evnt(17755);}while(r);
#line 17756 "qb64pe.bas"
do{
#line 17756 "qb64pe.bas"
SUB_REGID();
#line 17756 "qb64pe.bas"
if(!qbevent)break;evnt(17756);}while(r);
#line 17757 "qb64pe.bas"
do{
#line 17757 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2453= 0 ));
#line 17757 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17757 "qb64pe.bas"
if(!qbevent)break;evnt(17757);}while(r);
#line 17758 "qb64pe.bas"
S_20239:;
#line 17758 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17758 "qb64pe.bas"
if(qbevent){evnt(17758);if(r)goto S_20239;}
#line 17758 "qb64pe.bas"
do{
#line 17758 "qb64pe.bas"
goto exit_subfunc;
#line 17758 "qb64pe.bas"
if(!qbevent)break;evnt(17758);}while(r);
#line 17758 "qb64pe.bas"
}
#line 17759 "qb64pe.bas"
do{
#line 17759 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 17759 "qb64pe.bas"
if(!qbevent)break;evnt(17759);}while(r);
#line 17760 "qb64pe.bas"
}
#line 17763 "qb64pe.bas"
do{
#line 17763 "qb64pe.bas"
*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT= 0 ;
#line 17763 "qb64pe.bas"
if(!qbevent)break;evnt(17763);}while(r);
#line 17764 "qb64pe.bas"
do{
#line 17764 "qb64pe.bas"
*_FUNC_DIM2_LONG_SCALAR_DYN_MODE= 0 ;
#line 17764 "qb64pe.bas"
if(!qbevent)break;evnt(17764);}while(r);
#line 17765 "qb64pe.bas"
do{
#line 17765 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
#line 17765 "qb64pe.bas"
if(!qbevent)break;evnt(17765);}while(r);
#line 17766 "qb64pe.bas"
do{
#line 17766 "qb64pe.bas"
*_FUNC_DIM2_LONG_SCALAR_DYN_MODE=FUNC_GETUDTCANONMODE(_FUNC_DIM2_LONG_I);
#line 17766 "qb64pe.bas"
if(!qbevent)break;evnt(17766);}while(r);
#line 17767 "qb64pe.bas"
S_20248:;
#line 17767 "qb64pe.bas"
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
#line 17767 "qb64pe.bas"
if(qbevent){evnt(17767);if(r)goto S_20248;}
#line 17768 "qb64pe.bas"
do{
#line 17768 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE=*__INTEGER_SF_UDT_DYNMODE;
#line 17768 "qb64pe.bas"
if(!qbevent)break;evnt(17768);}while(r);
#line 17769 "qb64pe.bas"
S_20250:;
#line 17769 "qb64pe.bas"
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE< 0 ))|(-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 1 )))||is_error_pending()){
#line 17769 "qb64pe.bas"
if(qbevent){evnt(17769);if(r)goto S_20250;}
#line 17769 "qb64pe.bas"
do{
#line 17769 "qb64pe.bas"
*_FUNC_DIM2_LONG_DYNPARAMMODE= 0 ;
#line 17769 "qb64pe.bas"
if(!qbevent)break;evnt(17769);}while(r);
#line 17769 "qb64pe.bas"
}
#line 17770 "qb64pe.bas"
S_20253:;
#line 17770 "qb64pe.bas"
if (((-(*_FUNC_DIM2_LONG_DYNPARAMMODE> 0 ))&(-(*_FUNC_DIM2_LONG_DYNPARAMMODE!=*_FUNC_DIM2_LONG_SCALAR_DYN_MODE)))||is_error_pending()){
#line 17770 "qb64pe.bas"
if(qbevent){evnt(17770);if(r)goto S_20253;}
#line 17771 "qb64pe.bas"
do{
#line 17771 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Internal TYPE parameter layout does not match its declaration",61));
#line 17771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17771 "qb64pe.bas"
if(!qbevent)break;evnt(17771);}while(r);
#line 17771 "qb64pe.bas"
do{
#line 17771 "qb64pe.bas"
goto exit_subfunc;
#line 17771 "qb64pe.bas"
if(!qbevent)break;evnt(17771);}while(r);
#line 17772 "qb64pe.bas"
}
#line 17773 "qb64pe.bas"
}
#line 17774 "qb64pe.bas"
do{
#line 17774 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
#line 17774 "qb64pe.bas"
if(!qbevent)break;evnt(17774);}while(r);
#line 17775 "qb64pe.bas"
S_20259:;
#line 17775 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_SCALAR_DYN_MODE> 0 ))||is_error_pending()){
#line 17775 "qb64pe.bas"
if(qbevent){evnt(17775);if(r)goto S_20259;}
#line 17776 "qb64pe.bas"
S_20260:;
#line 17776 "qb64pe.bas"
if ((-(FUNC_UDTDYNMEMBERSOK(_FUNC_DIM2_LONG_I,_FUNC_DIM2_LONG_SCALAR_DYN_MODE)== 0 ))||is_error_pending()){
#line 17776 "qb64pe.bas"
if(qbevent){evnt(17776);if(r)goto S_20260;}
#line 17776 "qb64pe.bas"
do{
#line 17776 "qb64pe.bas"
goto exit_subfunc;
#line 17776 "qb64pe.bas"
if(!qbevent)break;evnt(17776);}while(r);
#line 17776 "qb64pe.bas"
}
#line 17777 "qb64pe.bas"
do{
#line 17777 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS=FUNC_UDTDYNLAYOUTSIZE(_FUNC_DIM2_LONG_I);
#line 17777 "qb64pe.bas"
if(!qbevent)break;evnt(17777);}while(r);
#line 17778 "qb64pe.bas"
do{
#line 17778 "qb64pe.bas"
*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT= -1 ;
#line 17778 "qb64pe.bas"
if(!qbevent)break;evnt(17778);}while(r);
#line 17779 "qb64pe.bas"
}
#line 17780 "qb64pe.bas"
do{
#line 17780 "qb64pe.bas"
*_FUNC_DIM2_LONG_BYTES=qb_safe_idiv(*_FUNC_DIM2_LONG_BITS, 8 );
#line 17780 "qb64pe.bas"
if(!qbevent)break;evnt(17780);}while(r);
#line 17781 "qb64pe.bas"
S_20267:;
#line 17781 "qb64pe.bas"
if ((qb_safe_mod(*_FUNC_DIM2_LONG_BITS, 8 ))||is_error_pending()){
#line 17781 "qb64pe.bas"
if(qbevent){evnt(17781);if(r)goto S_20267;}
#line 17782 "qb64pe.bas"
do{
#line 17782 "qb64pe.bas"
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ;
#line 17782 "qb64pe.bas"
if(!qbevent)break;evnt(17782);}while(r);
#line 17783 "qb64pe.bas"
}
#line 17784 "qb64pe.bas"
do{
#line 17784 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 17784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17784 "qb64pe.bas"
if(!qbevent)break;evnt(17784);}while(r);
#line 17785 "qb64pe.bas"
S_20271:;
#line 17785 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 17785 "qb64pe.bas"
if(qbevent){evnt(17785);if(r)goto S_20271;}
#line 17785 "qb64pe.bas"
do{
#line 17785 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
#line 17785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17785 "qb64pe.bas"
if(!qbevent)break;evnt(17785);}while(r);
#line 17785 "qb64pe.bas"
}
#line 17786 "qb64pe.bas"
do{
#line 17786 "qb64pe.bas"
SUB_CLEARID();
#line 17786 "qb64pe.bas"
if(!qbevent)break;evnt(17786);}while(r);
#line 17787 "qb64pe.bas"
do{
#line 17787 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 17787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17787 "qb64pe.bas"
if(!qbevent)break;evnt(17787);}while(r);
#line 17788 "qb64pe.bas"
do{
#line 17788 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I;
#line 17788 "qb64pe.bas"
if(!qbevent)break;evnt(17788);}while(r);
#line 17789 "qb64pe.bas"
S_20277:;
#line 17789 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
#line 17789 "qb64pe.bas"
if(qbevent){evnt(17789);if(r)goto S_20277;}
#line 17789 "qb64pe.bas"
do{
#line 17789 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+520)))= -1 ;
#line 17789 "qb64pe.bas"
if(!qbevent)break;evnt(17789);}while(r);
#line 17789 "qb64pe.bas"
do{
#line 17789 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+522)))=*_FUNC_DIM2_LONG_SCALAR_DYN_MODE;
#line 17789 "qb64pe.bas"
if(!qbevent)break;evnt(17789);}while(r);
#line 17789 "qb64pe.bas"
}
#line 17790 "qb64pe.bas"
S_20281:;
#line 17790 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 17790 "qb64pe.bas"
if(qbevent){evnt(17790);if(r)goto S_20281;}
#line 17791 "qb64pe.bas"
do{
#line 17791 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 17791 "qb64pe.bas"
if(!qbevent)break;evnt(17791);}while(r);
#line 17792 "qb64pe.bas"
S_20283:;
#line 17792 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 17792 "qb64pe.bas"
if(qbevent){evnt(17792);if(r)goto S_20283;}
#line 17793 "qb64pe.bas"
do{
#line 17793 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 17793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17793 "qb64pe.bas"
if(!qbevent)break;evnt(17793);}while(r);
#line 17794 "qb64pe.bas"
do{
#line 17794 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 17794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17794 "qb64pe.bas"
if(!qbevent)break;evnt(17794);}while(r);
#line 17795 "qb64pe.bas"
do{
#line 17795 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 17795 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17795 "qb64pe.bas"
if(!qbevent)break;evnt(17795);}while(r);
#line 17796 "qb64pe.bas"
do{
#line 17796 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(void*)(dblock+cmem_sp);",25)));
#line 17796 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17796 "qb64pe.bas"
if(!qbevent)break;evnt(17796);}while(r);
#line 17797 "qb64pe.bas"
do{
#line 17797 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 17797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17797 "qb64pe.bas"
if(!qbevent)break;evnt(17797);}while(r);
#line 17798 "qb64pe.bas"
S_20289:;
#line 17798 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
#line 17798 "qb64pe.bas"
if(qbevent){evnt(17798);if(r)goto S_20289;}
#line 17799 "qb64pe.bas"
do{
#line 17799 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
#line 17799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17799 "qb64pe.bas"
if(!qbevent)break;evnt(17799);}while(r);
#line 17800 "qb64pe.bas"
S_20291:;
#line 17800 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 17800 "qb64pe.bas"
if(qbevent){evnt(17800);if(r)goto S_20291;}
#line 17805 "qb64pe.bas"
do{
#line 17805 "qb64pe.bas"
SUB_APPENDDYNUDTOWNINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2454= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17805 "qb64pe.bas"
if(!qbevent)break;evnt(17805);}while(r);
#line 17806 "qb64pe.bas"
}else{
#line 17807 "qb64pe.bas"
do{
#line 17807 "qb64pe.bas"
SUB_APPENDDYNUDTDESCINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2455= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17807 "qb64pe.bas"
if(!qbevent)break;evnt(17807);}while(r);
#line 17808 "qb64pe.bas"
}
#line 17809 "qb64pe.bas"
S_20296:;
#line 17809 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17809 "qb64pe.bas"
if(qbevent){evnt(17809);if(r)goto S_20296;}
#line 17809 "qb64pe.bas"
do{
#line 17809 "qb64pe.bas"
goto exit_subfunc;
#line 17809 "qb64pe.bas"
if(!qbevent)break;evnt(17809);}while(r);
#line 17809 "qb64pe.bas"
}
#line 17810 "qb64pe.bas"
do{
#line 17810 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,_FUNC_DIM2_STRING_ACC);
#line 17810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17810 "qb64pe.bas"
if(!qbevent)break;evnt(17810);}while(r);
#line 17811 "qb64pe.bas"
do{
#line 17811 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
#line 17811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17811 "qb64pe.bas"
if(!qbevent)break;evnt(17811);}while(r);
#line 17812 "qb64pe.bas"
S_20301:;
#line 17812 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 17812 "qb64pe.bas"
if(qbevent){evnt(17812);if(r)goto S_20301;}
#line 17813 "qb64pe.bas"
do{
#line 17813 "qb64pe.bas"
SUB_APPENDDYNUDTOWNFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2456= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17813 "qb64pe.bas"
if(!qbevent)break;evnt(17813);}while(r);
#line 17814 "qb64pe.bas"
}else{
#line 17815 "qb64pe.bas"
do{
#line 17815 "qb64pe.bas"
SUB_APPENDDYNUDTDESCFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2457= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17815 "qb64pe.bas"
if(!qbevent)break;evnt(17815);}while(r);
#line 17816 "qb64pe.bas"
}
#line 17817 "qb64pe.bas"
S_20306:;
#line 17817 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17817 "qb64pe.bas"
if(qbevent){evnt(17817);if(r)goto S_20306;}
#line 17817 "qb64pe.bas"
do{
#line 17817 "qb64pe.bas"
goto exit_subfunc;
#line 17817 "qb64pe.bas"
if(!qbevent)break;evnt(17817);}while(r);
#line 17817 "qb64pe.bas"
}
#line 17818 "qb64pe.bas"
S_20309:;
#line 17818 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 17818 "qb64pe.bas"
if(qbevent){evnt(17818);if(r)goto S_20309;}
#line 17818 "qb64pe.bas"
do{
#line 17818 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2458=*__LONG_FREETXTBUF),_FUNC_DIM2_STRING_ACC);
#line 17818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17818 "qb64pe.bas"
if(!qbevent)break;evnt(17818);}while(r);
#line 17818 "qb64pe.bas"
}
#line 17819 "qb64pe.bas"
}
#line 17820 "qb64pe.bas"
do{
#line 17820 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 17820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17820 "qb64pe.bas"
if(!qbevent)break;evnt(17820);}while(r);
#line 17821 "qb64pe.bas"
}
#line 17822 "qb64pe.bas"
}else{
#line 17823 "qb64pe.bas"
S_20316:;
#line 17823 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 17823 "qb64pe.bas"
if(qbevent){evnt(17823);if(r)goto S_20316;}
#line 17824 "qb64pe.bas"
do{
#line 17824 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 17824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17824 "qb64pe.bas"
if(!qbevent)break;evnt(17824);}while(r);
#line 17825 "qb64pe.bas"
do{
#line 17825 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 17825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17825 "qb64pe.bas"
if(!qbevent)break;evnt(17825);}while(r);
#line 17826 "qb64pe.bas"
do{
#line 17826 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 17826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17826 "qb64pe.bas"
if(!qbevent)break;evnt(17826);}while(r);
#line 17827 "qb64pe.bas"
S_20320:;
#line 17827 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_SCALAR_DYN_LAYOUT)||is_error_pending()){
#line 17827 "qb64pe.bas"
if(qbevent){evnt(17827);if(r)goto S_20320;}
#line 17828 "qb64pe.bas"
do{
#line 17828 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
#line 17828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17828 "qb64pe.bas"
if(!qbevent)break;evnt(17828);}while(r);
#line 17829 "qb64pe.bas"
S_20322:;
#line 17829 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 17829 "qb64pe.bas"
if(qbevent){evnt(17829);if(r)goto S_20322;}
#line 17834 "qb64pe.bas"
do{
#line 17834 "qb64pe.bas"
SUB_APPENDDYNUDTOWNINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2459= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17834 "qb64pe.bas"
if(!qbevent)break;evnt(17834);}while(r);
#line 17835 "qb64pe.bas"
}else{
#line 17836 "qb64pe.bas"
do{
#line 17836 "qb64pe.bas"
SUB_APPENDDYNUDTDESCINITAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2460= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17836 "qb64pe.bas"
if(!qbevent)break;evnt(17836);}while(r);
#line 17837 "qb64pe.bas"
}
#line 17838 "qb64pe.bas"
S_20327:;
#line 17838 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17838 "qb64pe.bas"
if(qbevent){evnt(17838);if(r)goto S_20327;}
#line 17838 "qb64pe.bas"
do{
#line 17838 "qb64pe.bas"
goto exit_subfunc;
#line 17838 "qb64pe.bas"
if(!qbevent)break;evnt(17838);}while(r);
#line 17838 "qb64pe.bas"
}
#line 17839 "qb64pe.bas"
do{
#line 17839 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,_FUNC_DIM2_STRING_ACC);
#line 17839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17839 "qb64pe.bas"
if(!qbevent)break;evnt(17839);}while(r);
#line 17840 "qb64pe.bas"
do{
#line 17840 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0));
#line 17840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17840 "qb64pe.bas"
if(!qbevent)break;evnt(17840);}while(r);
#line 17841 "qb64pe.bas"
S_20332:;
#line 17841 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 17841 "qb64pe.bas"
if(qbevent){evnt(17841);if(r)goto S_20332;}
#line 17842 "qb64pe.bas"
do{
#line 17842 "qb64pe.bas"
SUB_APPENDDYNUDTOWNFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2461= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17842 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17842 "qb64pe.bas"
if(!qbevent)break;evnt(17842);}while(r);
#line 17843 "qb64pe.bas"
}else{
#line 17844 "qb64pe.bas"
do{
#line 17844 "qb64pe.bas"
SUB_APPENDDYNUDTDESCFREEAT(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,&(pass2462= 0 ),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0),qbs_new_txt_len("0",1),_FUNC_DIM2_STRING_ACC,_FUNC_DIM2_LONG_SCALAR_DYN_MODE);
#line 17844 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17844 "qb64pe.bas"
if(!qbevent)break;evnt(17844);}while(r);
#line 17845 "qb64pe.bas"
}
#line 17846 "qb64pe.bas"
S_20337:;
#line 17846 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17846 "qb64pe.bas"
if(qbevent){evnt(17846);if(r)goto S_20337;}
#line 17846 "qb64pe.bas"
do{
#line 17846 "qb64pe.bas"
goto exit_subfunc;
#line 17846 "qb64pe.bas"
if(!qbevent)break;evnt(17846);}while(r);
#line 17846 "qb64pe.bas"
}
#line 17847 "qb64pe.bas"
S_20340:;
#line 17847 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ACC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 17847 "qb64pe.bas"
if(qbevent){evnt(17847);if(r)goto S_20340;}
#line 17847 "qb64pe.bas"
do{
#line 17847 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2463=*__LONG_FREETXTBUF),_FUNC_DIM2_STRING_ACC);
#line 17847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17847 "qb64pe.bas"
if(!qbevent)break;evnt(17847);}while(r);
#line 17847 "qb64pe.bas"
}
#line 17848 "qb64pe.bas"
}
#line 17849 "qb64pe.bas"
S_20344:;
#line 17849 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(-(*_FUNC_DIM2_LONG_SCALAR_DYN_MODE== 0 )))||is_error_pending()){
#line 17849 "qb64pe.bas"
if(qbevent){evnt(17849);if(r)goto S_20344;}
#line 17850 "qb64pe.bas"
do{
#line 17850 "qb64pe.bas"
SUB_INITIALISE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_DATATXTBUF,&(pass2464= 0 ));
#line 17850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17850 "qb64pe.bas"
if(!qbevent)break;evnt(17850);}while(r);
#line 17851 "qb64pe.bas"
do{
#line 17851 "qb64pe.bas"
SUB_FREE_UDT_VARSTRINGS(_FUNC_DIM2_STRING_N,_FUNC_DIM2_LONG_I,__LONG_FREETXTBUF,&(pass2465= 0 ));
#line 17851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17851 "qb64pe.bas"
if(!qbevent)break;evnt(17851);}while(r);
#line 17852 "qb64pe.bas"
}
#line 17853 "qb64pe.bas"
do{
#line 17853 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 17853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17853 "qb64pe.bas"
if(!qbevent)break;evnt(17853);}while(r);
#line 17854 "qb64pe.bas"
}
#line 17855 "qb64pe.bas"
}
#line 17856 "qb64pe.bas"
do{
#line 17856 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 17856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17856 "qb64pe.bas"
if(!qbevent)break;evnt(17856);}while(r);
#line 17857 "qb64pe.bas"
do{
#line 17857 "qb64pe.bas"
SUB_REGID();
#line 17857 "qb64pe.bas"
if(!qbevent)break;evnt(17857);}while(r);
#line 17858 "qb64pe.bas"
do{
#line 17858 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2466= 0 ));
#line 17858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17858 "qb64pe.bas"
if(!qbevent)break;evnt(17858);}while(r);
#line 17859 "qb64pe.bas"
S_20354:;
#line 17859 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17859 "qb64pe.bas"
if(qbevent){evnt(17859);if(r)goto S_20354;}
#line 17859 "qb64pe.bas"
do{
#line 17859 "qb64pe.bas"
goto exit_subfunc;
#line 17859 "qb64pe.bas"
if(!qbevent)break;evnt(17859);}while(r);
#line 17859 "qb64pe.bas"
}
#line 17860 "qb64pe.bas"
do{
#line 17860 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 17860 "qb64pe.bas"
if(!qbevent)break;evnt(17860);}while(r);
#line 17861 "qb64pe.bas"
}
#line 17862 "qb64pe.bas"
fornext_continue_2448:;
#line 17862 "qb64pe.bas"
}
#line 17862 "qb64pe.bas"
fornext_exit_2448:;
#line 17865 "qb64pe.bas"
do{
#line 17865 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_TYP,FUNC_SYMBOL2FULLTYPENAME(_FUNC_DIM2_STRING_TYP));
#line 17865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17865 "qb64pe.bas"
if(!qbevent)break;evnt(17865);}while(r);
#line 17866 "qb64pe.bas"
S_20361:;
#line 17866 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17866 "qb64pe.bas"
if(qbevent){evnt(17866);if(r)goto S_20361;}
#line 17866 "qb64pe.bas"
do{
#line 17866 "qb64pe.bas"
goto exit_subfunc;
#line 17866 "qb64pe.bas"
if(!qbevent)break;evnt(17866);}while(r);
#line 17866 "qb64pe.bas"
}
#line 17869 "qb64pe.bas"
do{
#line 17869 "qb64pe.bas"
*_FUNC_DIM2_LONG_UNSGN= 0 ;
#line 17869 "qb64pe.bas"
if(!qbevent)break;evnt(17869);}while(r);
#line 17870 "qb64pe.bas"
S_20365:;
#line 17870 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||is_error_pending()){
#line 17870 "qb64pe.bas"
if(qbevent){evnt(17870);if(r)goto S_20365;}
#line 17871 "qb64pe.bas"
do{
#line 17871 "qb64pe.bas"
*_FUNC_DIM2_LONG_UNSGN= 1 ;
#line 17871 "qb64pe.bas"
if(!qbevent)break;evnt(17871);}while(r);
#line 17872 "qb64pe.bas"
do{
#line 17872 "qb64pe.bas"
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));
#line 17872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17872 "qb64pe.bas"
if(!qbevent)break;evnt(17872);}while(r);
#line 17873 "qb64pe.bas"
S_20368:;
#line 17873 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||is_error_pending()){
#line 17873 "qb64pe.bas"
if(qbevent){evnt(17873);if(r)goto S_20368;}
#line 17873 "qb64pe.bas"
do{
#line 17873 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected more type information after _UNSIGNED!",47));
#line 17873 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17873 "qb64pe.bas"
if(!qbevent)break;evnt(17873);}while(r);
#line 17873 "qb64pe.bas"
do{
#line 17873 "qb64pe.bas"
goto exit_subfunc;
#line 17873 "qb64pe.bas"
if(!qbevent)break;evnt(17873);}while(r);
#line 17873 "qb64pe.bas"
}
#line 17874 "qb64pe.bas"
}
#line 17876 "qb64pe.bas"
do{
#line 17876 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0));
#line 17876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17876 "qb64pe.bas"
if(!qbevent)break;evnt(17876);}while(r);
#line 17878 "qb64pe.bas"
S_20374:;
#line 17878 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||is_error_pending()){
#line 17878 "qb64pe.bas"
if(qbevent){evnt(17878);if(r)goto S_20374;}
#line 17880 "qb64pe.bas"
S_20375:;
#line 17880 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||is_error_pending()){
#line 17880 "qb64pe.bas"
if(qbevent){evnt(17880);if(r)goto S_20375;}
#line 17881 "qb64pe.bas"
S_20376:;
#line 17881 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||is_error_pending()){
#line 17881 "qb64pe.bas"
if(qbevent){evnt(17881);if(r)goto S_20376;}
#line 17881 "qb64pe.bas"
do{
#line 17881 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33));
#line 17881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17881 "qb64pe.bas"
if(!qbevent)break;evnt(17881);}while(r);
#line 17881 "qb64pe.bas"
do{
#line 17881 "qb64pe.bas"
goto exit_subfunc;
#line 17881 "qb64pe.bas"
if(!qbevent)break;evnt(17881);}while(r);
#line 17881 "qb64pe.bas"
}
#line 17883 "qb64pe.bas"
do{
#line 17883 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 ));
#line 17883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17883 "qb64pe.bas"
if(!qbevent)break;evnt(17883);}while(r);
#line 17886 "qb64pe.bas"
do{
#line 17886 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHFOUND= 0 ;
#line 17886 "qb64pe.bas"
if(!qbevent)break;evnt(17886);}while(r);
#line 17887 "qb64pe.bas"
do{
#line 17887 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C);
#line 17887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17887 "qb64pe.bas"
if(!qbevent)break;evnt(17887);}while(r);
#line 17888 "qb64pe.bas"
do{
#line 17888 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024ll ;
#line 17888 "qb64pe.bas"
if(!qbevent)break;evnt(17888);}while(r);
#line 17889 "qb64pe.bas"
do{
#line 17889 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
#line 17889 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17889 "qb64pe.bas"
if(!qbevent)break;evnt(17889);}while(r);
#line 17890 "qb64pe.bas"
S_20385:;
#line 17890 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_HASHRES)||is_error_pending()){
#line 17890 "qb64pe.bas"
if(qbevent){evnt(17890);if(r)goto S_20385;}
#line 17891 "qb64pe.bas"
S_20386:;
#line 17891 "qb64pe.bas"
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()){
#line 17891 "qb64pe.bas"
if(qbevent){evnt(17891);if(r)goto S_20386;}
#line 17892 "qb64pe.bas"
S_20387:;
#line 17892 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
#line 17892 "qb64pe.bas"
if(qbevent){evnt(17892);if(r)goto S_20387;}
#line 17893 "qb64pe.bas"
do{
#line 17893 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHFOUND= 1 ;
#line 17893 "qb64pe.bas"
if(!qbevent)break;evnt(17893);}while(r);
#line 17894 "qb64pe.bas"
do{
#line 17894 "qb64pe.bas"
goto dl_exit_2470;
#line 17894 "qb64pe.bas"
if(!qbevent)break;evnt(17894);}while(r);
#line 17895 "qb64pe.bas"
}
#line 17896 "qb64pe.bas"
}
#line 17897 "qb64pe.bas"
S_20392:;
#line 17897 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 17897 "qb64pe.bas"
if(qbevent){evnt(17897);if(r)goto S_20392;}
#line 17897 "qb64pe.bas"
do{
#line 17897 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF);
#line 17897 "qb64pe.bas"
if(!qbevent)break;evnt(17897);}while(r);
#line 17897 "qb64pe.bas"
}else{
#line 17897 "qb64pe.bas"
do{
#line 17897 "qb64pe.bas"
*_FUNC_DIM2_LONG_HASHRES= 0 ;
#line 17897 "qb64pe.bas"
if(!qbevent)break;evnt(17897);}while(r);
#line 17897 "qb64pe.bas"
}
#line 17898 "qb64pe.bas"
dl_continue_2470:;
#line 17898 "qb64pe.bas"
}
#line 17898 "qb64pe.bas"
dl_exit_2470:;
#line 17899 "qb64pe.bas"
S_20398:;
#line 17899 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_HASHFOUND)||is_error_pending()){
#line 17899 "qb64pe.bas"
if(qbevent){evnt(17899);if(r)goto S_20398;}
#line 17900 "qb64pe.bas"
do{
#line 17900 "qb64pe.bas"
*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF;
#line 17900 "qb64pe.bas"
if(!qbevent)break;evnt(17900);}while(r);
#line 17901 "qb64pe.bas"
do{
#line 17901 "qb64pe.bas"
*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
#line 17901 "qb64pe.bas"
if(!qbevent)break;evnt(17901);}while(r);
#line 17902 "qb64pe.bas"
S_20401:;
#line 17902 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 17902 "qb64pe.bas"
if(qbevent){evnt(17902);if(r)goto S_20401;}
#line 17902 "qb64pe.bas"
do{
#line 17902 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34));
#line 17902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17902 "qb64pe.bas"
if(!qbevent)break;evnt(17902);}while(r);
#line 17902 "qb64pe.bas"
do{
#line 17902 "qb64pe.bas"
goto exit_subfunc;
#line 17902 "qb64pe.bas"
if(!qbevent)break;evnt(17902);}while(r);
#line 17902 "qb64pe.bas"
}
#line 17904 "qb64pe.bas"
S_20405:;
#line 17904 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 17904 "qb64pe.bas"
if(qbevent){evnt(17904);if(r)goto S_20405;}
#line 17905 "qb64pe.bas"
do{
#line 17905 "qb64pe.bas"
*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
#line 17905 "qb64pe.bas"
if(!qbevent)break;evnt(17905);}while(r);
#line 17906 "qb64pe.bas"
do{
#line 17906 "qb64pe.bas"
*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V);
#line 17906 "qb64pe.bas"
if(!qbevent)break;evnt(17906);}while(r);
#line 17907 "qb64pe.bas"
do{
#line 17907 "qb64pe.bas"
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
#line 17907 "qb64pe.bas"
if(!qbevent)break;evnt(17907);}while(r);
#line 17908 "qb64pe.bas"
}else{
#line 17909 "qb64pe.bas"
S_20410:;
#line 17909 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 17909 "qb64pe.bas"
if(qbevent){evnt(17909);if(r)goto S_20410;}
#line 17910 "qb64pe.bas"
do{
#line 17910 "qb64pe.bas"
*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
#line 17910 "qb64pe.bas"
if(!qbevent)break;evnt(17910);}while(r);
#line 17911 "qb64pe.bas"
do{
#line 17911 "qb64pe.bas"
*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V;
#line 17911 "qb64pe.bas"
if(!qbevent)break;evnt(17911);}while(r);
#line 17912 "qb64pe.bas"
do{
#line 17912 "qb64pe.bas"
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
#line 17912 "qb64pe.bas"
if(!qbevent)break;evnt(17912);}while(r);
#line 17913 "qb64pe.bas"
}else{
#line 17914 "qb64pe.bas"
do{
#line 17914 "qb64pe.bas"
*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
#line 17914 "qb64pe.bas"
if(!qbevent)break;evnt(17914);}while(r);
#line 17915 "qb64pe.bas"
do{
#line 17915 "qb64pe.bas"
*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V;
#line 17915 "qb64pe.bas"
if(!qbevent)break;evnt(17915);}while(r);
#line 17916 "qb64pe.bas"
do{
#line 17916 "qb64pe.bas"
*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V;
#line 17916 "qb64pe.bas"
if(!qbevent)break;evnt(17916);}while(r);
#line 17917 "qb64pe.bas"
}
#line 17918 "qb64pe.bas"
}
#line 17919 "qb64pe.bas"
S_20420:;
#line 17919 "qb64pe.bas"
if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||is_error_pending()){
#line 17919 "qb64pe.bas"
if(qbevent){evnt(17919);if(r)goto S_20420;}
#line 17919 "qb64pe.bas"
do{
#line 17919 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30));
#line 17919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17919 "qb64pe.bas"
if(!qbevent)break;evnt(17919);}while(r);
#line 17919 "qb64pe.bas"
do{
#line 17919 "qb64pe.bas"
goto exit_subfunc;
#line 17919 "qb64pe.bas"
if(!qbevent)break;evnt(17919);}while(r);
#line 17919 "qb64pe.bas"
}
#line 17920 "qb64pe.bas"
do{
#line 17920 "qb64pe.bas"
*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V;
#line 17920 "qb64pe.bas"
if(!qbevent)break;evnt(17920);}while(r);
#line 17921 "qb64pe.bas"
do{
#line 17921 "qb64pe.bas"
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),(((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])));
#line 17921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17921 "qb64pe.bas"
if(!qbevent)break;evnt(17921);}while(r);
#line 17922 "qb64pe.bas"
do{
#line 17922 "qb64pe.bas"
goto LABEL_CONSTANTLENSTR;
#line 17922 "qb64pe.bas"
if(!qbevent)break;evnt(17922);}while(r);
#line 17923 "qb64pe.bas"
}
#line 17925 "qb64pe.bas"
S_20428:;
#line 17925 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
#line 17925 "qb64pe.bas"
if(qbevent){evnt(17925);if(r)goto S_20428;}
#line 17925 "qb64pe.bas"
do{
#line 17925 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32));
#line 17925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17925 "qb64pe.bas"
if(!qbevent)break;evnt(17925);}while(r);
#line 17925 "qb64pe.bas"
do{
#line 17925 "qb64pe.bas"
goto exit_subfunc;
#line 17925 "qb64pe.bas"
if(!qbevent)break;evnt(17925);}while(r);
#line 17925 "qb64pe.bas"
}
#line 17926 "qb64pe.bas"
S_20432:;
#line 17926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||is_error_pending()){
#line 17926 "qb64pe.bas"
if(qbevent){evnt(17926);if(r)goto S_20432;}
#line 17926 "qb64pe.bas"
do{
#line 17926 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37));
#line 17926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17926 "qb64pe.bas"
if(!qbevent)break;evnt(17926);}while(r);
#line 17926 "qb64pe.bas"
do{
#line 17926 "qb64pe.bas"
goto exit_subfunc;
#line 17926 "qb64pe.bas"
if(!qbevent)break;evnt(17926);}while(r);
#line 17926 "qb64pe.bas"
}
#line 17927 "qb64pe.bas"
do{
#line 17927 "qb64pe.bas"
*_FUNC_DIM2_LONG_BYTES=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
#line 17927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17927 "qb64pe.bas"
if(!qbevent)break;evnt(17927);}while(r);
#line 17928 "qb64pe.bas"
S_20437:;
#line 17928 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||is_error_pending()){
#line 17928 "qb64pe.bas"
if(qbevent){evnt(17928);if(r)goto S_20437;}
#line 17928 "qb64pe.bas"
do{
#line 17928 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40));
#line 17928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17928 "qb64pe.bas"
if(!qbevent)break;evnt(17928);}while(r);
#line 17928 "qb64pe.bas"
do{
#line 17928 "qb64pe.bas"
goto exit_subfunc;
#line 17928 "qb64pe.bas"
if(!qbevent)break;evnt(17928);}while(r);
#line 17928 "qb64pe.bas"
}
#line 17929 "qb64pe.bas"
LABEL_CONSTANTLENSTR:;
#line 17929 "qb64pe.bas"
if(qbevent){evnt(17929);r=0;}
#line 17930 "qb64pe.bas"
do{
#line 17930 "qb64pe.bas"
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));
#line 17930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17930 "qb64pe.bas"
if(!qbevent)break;evnt(17930);}while(r);
#line 17933 "qb64pe.bas"
S_20442:;
#line 17933 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 17933 "qb64pe.bas"
if(qbevent){evnt(17933);if(r)goto S_20442;}
#line 17934 "qb64pe.bas"
do{
#line 17934 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 17934 "qb64pe.bas"
if(!qbevent)break;evnt(17934);}while(r);
#line 17935 "qb64pe.bas"
S_20444:;
#line 17935 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 17935 "qb64pe.bas"
if(qbevent){evnt(17935);if(r)goto S_20444;}
#line 17936 "qb64pe.bas"
do{
#line 17936 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
#line 17936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17936 "qb64pe.bas"
if(!qbevent)break;evnt(17936);}while(r);
#line 17937 "qb64pe.bas"
S_20446:;
#line 17937 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17937 "qb64pe.bas"
if(qbevent){evnt(17937);if(r)goto S_20446;}
#line 17937 "qb64pe.bas"
do{
#line 17937 "qb64pe.bas"
goto exit_subfunc;
#line 17937 "qb64pe.bas"
if(!qbevent)break;evnt(17937);}while(r);
#line 17937 "qb64pe.bas"
}
#line 17938 "qb64pe.bas"
S_20449:;
#line 17938 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 17938 "qb64pe.bas"
if(qbevent){evnt(17938);if(r)goto S_20449;}
#line 17939 "qb64pe.bas"
S_20450:;
#line 17939 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 17939 "qb64pe.bas"
if(qbevent){evnt(17939);if(r)goto S_20450;}
#line 17941 "qb64pe.bas"
S_20451:;
#line 17941 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 ))|(-(*(int32*)(((char*)__UDT_ID)+((0+544)))!=*_FUNC_DIM2_LONG_BYTES)))||is_error_pending()){
#line 17941 "qb64pe.bas"
if(qbevent){evnt(17941);if(r)goto S_20451;}
#line 17941 "qb64pe.bas"
do{
#line 17941 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
#line 17941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17941 "qb64pe.bas"
if(!qbevent)break;evnt(17941);}while(r);
#line 17941 "qb64pe.bas"
do{
#line 17941 "qb64pe.bas"
goto exit_subfunc;
#line 17941 "qb64pe.bas"
if(!qbevent)break;evnt(17941);}while(r);
#line 17941 "qb64pe.bas"
}
#line 17942 "qb64pe.bas"
do{
#line 17942 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 17942 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17942 "qb64pe.bas"
if(!qbevent)break;evnt(17942);}while(r);
#line 17943 "qb64pe.bas"
do{
#line 17943 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 17943 "qb64pe.bas"
if(!qbevent)break;evnt(17943);}while(r);
#line 17943 "qb64pe.bas"
do{
#line 17943 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 17943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17943 "qb64pe.bas"
if(!qbevent)break;evnt(17943);}while(r);
#line 17944 "qb64pe.bas"
do{
#line 17944 "qb64pe.bas"
goto dl_exit_2472;
#line 17944 "qb64pe.bas"
if(!qbevent)break;evnt(17944);}while(r);
#line 17945 "qb64pe.bas"
}
#line 17946 "qb64pe.bas"
S_20460:;
#line 17946 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 17946 "qb64pe.bas"
if(qbevent){evnt(17946);if(r)goto S_20460;}
#line 17946 "qb64pe.bas"
do{
#line 17946 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 17946 "qb64pe.bas"
if(!qbevent)break;evnt(17946);}while(r);
#line 17946 "qb64pe.bas"
do{
#line 17946 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
#line 17946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17946 "qb64pe.bas"
if(!qbevent)break;evnt(17946);}while(r);
#line 17946 "qb64pe.bas"
}else{
#line 17946 "qb64pe.bas"
do{
#line 17946 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 17946 "qb64pe.bas"
if(!qbevent)break;evnt(17946);}while(r);
#line 17946 "qb64pe.bas"
}
#line 17947 "qb64pe.bas"
S_20466:;
#line 17947 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17947 "qb64pe.bas"
if(qbevent){evnt(17947);if(r)goto S_20466;}
#line 17947 "qb64pe.bas"
do{
#line 17947 "qb64pe.bas"
goto exit_subfunc;
#line 17947 "qb64pe.bas"
if(!qbevent)break;evnt(17947);}while(r);
#line 17947 "qb64pe.bas"
}
#line 17948 "qb64pe.bas"
dl_continue_2472:;
#line 17948 "qb64pe.bas"
}
#line 17948 "qb64pe.bas"
dl_exit_2472:;
#line 17949 "qb64pe.bas"
}
#line 17950 "qb64pe.bas"
do{
#line 17950 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 17950 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17950 "qb64pe.bas"
if(!qbevent)break;evnt(17950);}while(r);
#line 17956 "qb64pe.bas"
S_20472:;
#line 17956 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 17956 "qb64pe.bas"
if(qbevent){evnt(17956);if(r)goto S_20472;}
#line 17958 "qb64pe.bas"
S_20473:;
#line 17958 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 17958 "qb64pe.bas"
if(qbevent){evnt(17958);if(r)goto S_20473;}
#line 17959 "qb64pe.bas"
do{
#line 17959 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 17959 "qb64pe.bas"
if(!qbevent)break;evnt(17959);}while(r);
#line 17959 "qb64pe.bas"
S_20475:;
#line 17959 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 17959 "qb64pe.bas"
if(qbevent){evnt(17959);if(r)goto S_20475;}
#line 17959 "qb64pe.bas"
do{
#line 17959 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 17959 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17959 "qb64pe.bas"
if(!qbevent)break;evnt(17959);}while(r);
#line 17959 "qb64pe.bas"
}
#line 17960 "qb64pe.bas"
}
#line 17961 "qb64pe.bas"
do{
#line 17961 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2474= 0 ));
#line 17961 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17961 "qb64pe.bas"
if(!qbevent)break;evnt(17961);}while(r);
#line 17962 "qb64pe.bas"
S_20480:;
#line 17962 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17962 "qb64pe.bas"
if(qbevent){evnt(17962);if(r)goto S_20480;}
#line 17962 "qb64pe.bas"
do{
#line 17962 "qb64pe.bas"
goto exit_subfunc;
#line 17962 "qb64pe.bas"
if(!qbevent)break;evnt(17962);}while(r);
#line 17962 "qb64pe.bas"
}
#line 17963 "qb64pe.bas"
do{
#line 17963 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 17963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17963 "qb64pe.bas"
if(!qbevent)break;evnt(17963);}while(r);
#line 17964 "qb64pe.bas"
S_20484:;
#line 17964 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 17964 "qb64pe.bas"
if(qbevent){evnt(17964);if(r)goto S_20484;}
#line 17964 "qb64pe.bas"
do{
#line 17964 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 17964 "qb64pe.bas"
if(!qbevent)break;evnt(17964);}while(r);
#line 17964 "qb64pe.bas"
}
#line 17965 "qb64pe.bas"
do{
#line 17965 "qb64pe.bas"
SUB_CLEARID();
#line 17965 "qb64pe.bas"
if(!qbevent)break;evnt(17965);}while(r);
#line 17967 "qb64pe.bas"
}else{
#line 17968 "qb64pe.bas"
do{
#line 17968 "qb64pe.bas"
SUB_CLEARID();
#line 17968 "qb64pe.bas"
if(!qbevent)break;evnt(17968);}while(r);
#line 17969 "qb64pe.bas"
S_20490:;
#line 17969 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 17969 "qb64pe.bas"
if(qbevent){evnt(17969);if(r)goto S_20490;}
#line 17970 "qb64pe.bas"
do{
#line 17970 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 17970 "qb64pe.bas"
if(!qbevent)break;evnt(17970);}while(r);
#line 17971 "qb64pe.bas"
do{
#line 17971 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 17971 "qb64pe.bas"
if(!qbevent)break;evnt(17971);}while(r);
#line 17972 "qb64pe.bas"
do{
#line 17972 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 17972 "qb64pe.bas"
if(!qbevent)break;evnt(17972);}while(r);
#line 17973 "qb64pe.bas"
}else{
#line 17974 "qb64pe.bas"
do{
#line 17974 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 17974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17974 "qb64pe.bas"
if(!qbevent)break;evnt(17974);}while(r);
#line 17975 "qb64pe.bas"
}
#line 17976 "qb64pe.bas"
}
#line 17978 "qb64pe.bas"
do{
#line 17978 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
#line 17978 "qb64pe.bas"
if(!qbevent)break;evnt(17978);}while(r);
#line 17979 "qb64pe.bas"
S_20499:;
#line 17979 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 17979 "qb64pe.bas"
if(qbevent){evnt(17979);if(r)goto S_20499;}
#line 17979 "qb64pe.bas"
do{
#line 17979 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 17979 "qb64pe.bas"
if(!qbevent)break;evnt(17979);}while(r);
#line 17979 "qb64pe.bas"
}
#line 17980 "qb64pe.bas"
do{
#line 17980 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 17980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17980 "qb64pe.bas"
if(!qbevent)break;evnt(17980);}while(r);
#line 17981 "qb64pe.bas"
S_20503:;
#line 17981 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 17981 "qb64pe.bas"
if(qbevent){evnt(17981);if(r)goto S_20503;}
#line 17981 "qb64pe.bas"
do{
#line 17981 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 17981 "qb64pe.bas"
if(!qbevent)break;evnt(17981);}while(r);
#line 17981 "qb64pe.bas"
do{
#line 17981 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 17981 "qb64pe.bas"
if(!qbevent)break;evnt(17981);}while(r);
#line 17981 "qb64pe.bas"
}
#line 17983 "qb64pe.bas"
do{
#line 17983 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 17983 "qb64pe.bas"
if(!qbevent)break;evnt(17983);}while(r);
#line 17984 "qb64pe.bas"
do{
#line 17984 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 17984 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17984 "qb64pe.bas"
if(!qbevent)break;evnt(17984);}while(r);
#line 17985 "qb64pe.bas"
do{
#line 17985 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+544)))=*_FUNC_DIM2_LONG_BYTES;
#line 17985 "qb64pe.bas"
if(!qbevent)break;evnt(17985);}while(r);
#line 17986 "qb64pe.bas"
S_20510:;
#line 17986 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 17986 "qb64pe.bas"
if(qbevent){evnt(17986);if(r)goto S_20510;}
#line 17987 "qb64pe.bas"
do{
#line 17987 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
#line 17987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17987 "qb64pe.bas"
if(!qbevent)break;evnt(17987);}while(r);
#line 17988 "qb64pe.bas"
}
#line 17989 "qb64pe.bas"
S_20513:;
#line 17989 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 17989 "qb64pe.bas"
if(qbevent){evnt(17989);if(r)goto S_20513;}
#line 17990 "qb64pe.bas"
do{
#line 17990 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
#line 17990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17990 "qb64pe.bas"
if(!qbevent)break;evnt(17990);}while(r);
#line 17991 "qb64pe.bas"
}
#line 17992 "qb64pe.bas"
do{
#line 17992 "qb64pe.bas"
SUB_REGID();
#line 17992 "qb64pe.bas"
if(!qbevent)break;evnt(17992);}while(r);
#line 17993 "qb64pe.bas"
S_20517:;
#line 17993 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17993 "qb64pe.bas"
if(qbevent){evnt(17993);if(r)goto S_20517;}
#line 17993 "qb64pe.bas"
do{
#line 17993 "qb64pe.bas"
goto exit_subfunc;
#line 17993 "qb64pe.bas"
if(!qbevent)break;evnt(17993);}while(r);
#line 17993 "qb64pe.bas"
}
#line 17994 "qb64pe.bas"
do{
#line 17994 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2475= 0 ));
#line 17994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17994 "qb64pe.bas"
if(!qbevent)break;evnt(17994);}while(r);
#line 17995 "qb64pe.bas"
do{
#line 17995 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 17995 "qb64pe.bas"
if(!qbevent)break;evnt(17995);}while(r);
#line 17996 "qb64pe.bas"
}
#line 17999 "qb64pe.bas"
do{
#line 17999 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 17999 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17999 "qb64pe.bas"
if(!qbevent)break;evnt(17999);}while(r);
#line 18000 "qb64pe.bas"
S_20524:;
#line 18000 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18000 "qb64pe.bas"
if(qbevent){evnt(18000);if(r)goto S_20524;}
#line 18000 "qb64pe.bas"
do{
#line 18000 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
#line 18000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18000 "qb64pe.bas"
if(!qbevent)break;evnt(18000);}while(r);
#line 18000 "qb64pe.bas"
}
#line 18001 "qb64pe.bas"
S_20527:;
#line 18001 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18001 "qb64pe.bas"
if(qbevent){evnt(18001);if(r)goto S_20527;}
#line 18001 "qb64pe.bas"
do{
#line 18001 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2476=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
#line 18001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18001 "qb64pe.bas"
if(!qbevent)break;evnt(18001);}while(r);
#line 18001 "qb64pe.bas"
}
#line 18002 "qb64pe.bas"
do{
#line 18002 "qb64pe.bas"
SUB_CLEARID();
#line 18002 "qb64pe.bas"
if(!qbevent)break;evnt(18002);}while(r);
#line 18003 "qb64pe.bas"
do{
#line 18003 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18003 "qb64pe.bas"
if(!qbevent)break;evnt(18003);}while(r);
#line 18004 "qb64pe.bas"
do{
#line 18004 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH;
#line 18004 "qb64pe.bas"
if(!qbevent)break;evnt(18004);}while(r);
#line 18005 "qb64pe.bas"
S_20533:;
#line 18005 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18005 "qb64pe.bas"
if(qbevent){evnt(18005);if(r)goto S_20533;}
#line 18006 "qb64pe.bas"
do{
#line 18006 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18006 "qb64pe.bas"
if(!qbevent)break;evnt(18006);}while(r);
#line 18007 "qb64pe.bas"
S_20535:;
#line 18007 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18007 "qb64pe.bas"
if(qbevent){evnt(18007);if(r)goto S_20535;}
#line 18007 "qb64pe.bas"
do{
#line 18007 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18007 "qb64pe.bas"
if(!qbevent)break;evnt(18007);}while(r);
#line 18007 "qb64pe.bas"
}
#line 18008 "qb64pe.bas"
S_20538:;
#line 18008 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18008 "qb64pe.bas"
if(qbevent){evnt(18008);if(r)goto S_20538;}
#line 18008 "qb64pe.bas"
do{
#line 18008 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18008 "qb64pe.bas"
if(!qbevent)break;evnt(18008);}while(r);
#line 18008 "qb64pe.bas"
}
#line 18009 "qb64pe.bas"
S_20541:;
#line 18009 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18009 "qb64pe.bas"
if(qbevent){evnt(18009);if(r)goto S_20541;}
#line 18009 "qb64pe.bas"
do{
#line 18009 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18009 "qb64pe.bas"
if(!qbevent)break;evnt(18009);}while(r);
#line 18009 "qb64pe.bas"
}
#line 18010 "qb64pe.bas"
S_20544:;
#line 18010 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18010 "qb64pe.bas"
if(qbevent){evnt(18010);if(r)goto S_20544;}
#line 18010 "qb64pe.bas"
do{
#line 18010 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18010 "qb64pe.bas"
if(!qbevent)break;evnt(18010);}while(r);
#line 18010 "qb64pe.bas"
}
#line 18011 "qb64pe.bas"
S_20547:;
#line 18011 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18011 "qb64pe.bas"
if(qbevent){evnt(18011);if(r)goto S_20547;}
#line 18011 "qb64pe.bas"
do{
#line 18011 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18011 "qb64pe.bas"
if(!qbevent)break;evnt(18011);}while(r);
#line 18011 "qb64pe.bas"
}
#line 18012 "qb64pe.bas"
S_20550:;
#line 18012 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18012 "qb64pe.bas"
if(qbevent){evnt(18012);if(r)goto S_20550;}
#line 18012 "qb64pe.bas"
do{
#line 18012 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18012 "qb64pe.bas"
if(!qbevent)break;evnt(18012);}while(r);
#line 18012 "qb64pe.bas"
}
#line 18013 "qb64pe.bas"
}else{
#line 18014 "qb64pe.bas"
S_20554:;
#line 18014 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18014 "qb64pe.bas"
if(qbevent){evnt(18014);if(r)goto S_20554;}
#line 18014 "qb64pe.bas"
do{
#line 18014 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18014 "qb64pe.bas"
if(!qbevent)break;evnt(18014);}while(r);
#line 18014 "qb64pe.bas"
}
#line 18015 "qb64pe.bas"
do{
#line 18015 "qb64pe.bas"
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)));
#line 18015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18015 "qb64pe.bas"
if(!qbevent)break;evnt(18015);}while(r);
#line 18016 "qb64pe.bas"
S_20558:;
#line 18016 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18016 "qb64pe.bas"
if(qbevent){evnt(18016);if(r)goto S_20558;}
#line 18016 "qb64pe.bas"
do{
#line 18016 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18016 "qb64pe.bas"
if(!qbevent)break;evnt(18016);}while(r);
#line 18016 "qb64pe.bas"
}
#line 18017 "qb64pe.bas"
S_20561:;
#line 18017 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18017 "qb64pe.bas"
if(qbevent){evnt(18017);if(r)goto S_20561;}
#line 18017 "qb64pe.bas"
do{
#line 18017 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18017 "qb64pe.bas"
if(!qbevent)break;evnt(18017);}while(r);
#line 18017 "qb64pe.bas"
}
#line 18018 "qb64pe.bas"
S_20564:;
#line 18018 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18018 "qb64pe.bas"
if(qbevent){evnt(18018);if(r)goto S_20564;}
#line 18018 "qb64pe.bas"
do{
#line 18018 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18018 "qb64pe.bas"
if(!qbevent)break;evnt(18018);}while(r);
#line 18018 "qb64pe.bas"
}
#line 18019 "qb64pe.bas"
}
#line 18020 "qb64pe.bas"
do{
#line 18020 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+544)))=*_FUNC_DIM2_LONG_BYTES;
#line 18020 "qb64pe.bas"
if(!qbevent)break;evnt(18020);}while(r);
#line 18021 "qb64pe.bas"
S_20569:;
#line 18021 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18021 "qb64pe.bas"
if(qbevent){evnt(18021);if(r)goto S_20569;}
#line 18022 "qb64pe.bas"
do{
#line 18022 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
#line 18022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18022 "qb64pe.bas"
if(!qbevent)break;evnt(18022);}while(r);
#line 18023 "qb64pe.bas"
}
#line 18024 "qb64pe.bas"
S_20572:;
#line 18024 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18024 "qb64pe.bas"
if(qbevent){evnt(18024);if(r)goto S_20572;}
#line 18025 "qb64pe.bas"
do{
#line 18025 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("$",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BYTES),NULL,0)));
#line 18025 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18025 "qb64pe.bas"
if(!qbevent)break;evnt(18025);}while(r);
#line 18026 "qb64pe.bas"
}
#line 18027 "qb64pe.bas"
do{
#line 18027 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18027 "qb64pe.bas"
if(!qbevent)break;evnt(18027);}while(r);
#line 18028 "qb64pe.bas"
do{
#line 18028 "qb64pe.bas"
SUB_REGID();
#line 18028 "qb64pe.bas"
if(!qbevent)break;evnt(18028);}while(r);
#line 18029 "qb64pe.bas"
do{
#line 18029 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2477= 0 ));
#line 18029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18029 "qb64pe.bas"
if(!qbevent)break;evnt(18029);}while(r);
#line 18030 "qb64pe.bas"
S_20578:;
#line 18030 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18030 "qb64pe.bas"
if(qbevent){evnt(18030);if(r)goto S_20578;}
#line 18030 "qb64pe.bas"
do{
#line 18030 "qb64pe.bas"
goto exit_subfunc;
#line 18030 "qb64pe.bas"
if(!qbevent)break;evnt(18030);}while(r);
#line 18030 "qb64pe.bas"
}
#line 18031 "qb64pe.bas"
do{
#line 18031 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18031 "qb64pe.bas"
if(!qbevent)break;evnt(18031);}while(r);
#line 18032 "qb64pe.bas"
}
#line 18035 "qb64pe.bas"
do{
#line 18035 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME));
#line 18035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18035 "qb64pe.bas"
if(!qbevent)break;evnt(18035);}while(r);
#line 18038 "qb64pe.bas"
S_20584:;
#line 18038 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18038 "qb64pe.bas"
if(qbevent){evnt(18038);if(r)goto S_20584;}
#line 18039 "qb64pe.bas"
do{
#line 18039 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18039 "qb64pe.bas"
if(!qbevent)break;evnt(18039);}while(r);
#line 18040 "qb64pe.bas"
S_20586:;
#line 18040 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18040 "qb64pe.bas"
if(qbevent){evnt(18040);if(r)goto S_20586;}
#line 18041 "qb64pe.bas"
do{
#line 18041 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
#line 18041 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18041 "qb64pe.bas"
if(!qbevent)break;evnt(18041);}while(r);
#line 18042 "qb64pe.bas"
S_20588:;
#line 18042 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18042 "qb64pe.bas"
if(qbevent){evnt(18042);if(r)goto S_20588;}
#line 18042 "qb64pe.bas"
do{
#line 18042 "qb64pe.bas"
goto exit_subfunc;
#line 18042 "qb64pe.bas"
if(!qbevent)break;evnt(18042);}while(r);
#line 18042 "qb64pe.bas"
}
#line 18043 "qb64pe.bas"
S_20591:;
#line 18043 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18043 "qb64pe.bas"
if(qbevent){evnt(18043);if(r)goto S_20591;}
#line 18044 "qb64pe.bas"
S_20592:;
#line 18044 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18044 "qb64pe.bas"
if(qbevent){evnt(18044);if(r)goto S_20592;}
#line 18046 "qb64pe.bas"
S_20593:;
#line 18046 "qb64pe.bas"
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)!= 0 )))||is_error_pending()){
#line 18046 "qb64pe.bas"
if(qbevent){evnt(18046);if(r)goto S_20593;}
#line 18046 "qb64pe.bas"
do{
#line 18046 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
#line 18046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18046 "qb64pe.bas"
if(!qbevent)break;evnt(18046);}while(r);
#line 18046 "qb64pe.bas"
do{
#line 18046 "qb64pe.bas"
goto exit_subfunc;
#line 18046 "qb64pe.bas"
if(!qbevent)break;evnt(18046);}while(r);
#line 18046 "qb64pe.bas"
}
#line 18047 "qb64pe.bas"
do{
#line 18047 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18047 "qb64pe.bas"
if(!qbevent)break;evnt(18047);}while(r);
#line 18048 "qb64pe.bas"
do{
#line 18048 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18048 "qb64pe.bas"
if(!qbevent)break;evnt(18048);}while(r);
#line 18048 "qb64pe.bas"
do{
#line 18048 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18048 "qb64pe.bas"
if(!qbevent)break;evnt(18048);}while(r);
#line 18049 "qb64pe.bas"
do{
#line 18049 "qb64pe.bas"
goto dl_exit_2478;
#line 18049 "qb64pe.bas"
if(!qbevent)break;evnt(18049);}while(r);
#line 18050 "qb64pe.bas"
}
#line 18051 "qb64pe.bas"
S_20602:;
#line 18051 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18051 "qb64pe.bas"
if(qbevent){evnt(18051);if(r)goto S_20602;}
#line 18051 "qb64pe.bas"
do{
#line 18051 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18051 "qb64pe.bas"
if(!qbevent)break;evnt(18051);}while(r);
#line 18051 "qb64pe.bas"
do{
#line 18051 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1)));
#line 18051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18051 "qb64pe.bas"
if(!qbevent)break;evnt(18051);}while(r);
#line 18051 "qb64pe.bas"
}else{
#line 18051 "qb64pe.bas"
do{
#line 18051 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18051 "qb64pe.bas"
if(!qbevent)break;evnt(18051);}while(r);
#line 18051 "qb64pe.bas"
}
#line 18052 "qb64pe.bas"
S_20608:;
#line 18052 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18052 "qb64pe.bas"
if(qbevent){evnt(18052);if(r)goto S_20608;}
#line 18052 "qb64pe.bas"
do{
#line 18052 "qb64pe.bas"
goto exit_subfunc;
#line 18052 "qb64pe.bas"
if(!qbevent)break;evnt(18052);}while(r);
#line 18052 "qb64pe.bas"
}
#line 18053 "qb64pe.bas"
dl_continue_2478:;
#line 18053 "qb64pe.bas"
}
#line 18053 "qb64pe.bas"
dl_exit_2478:;
#line 18054 "qb64pe.bas"
}
#line 18055 "qb64pe.bas"
do{
#line 18055 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18055 "qb64pe.bas"
if(!qbevent)break;evnt(18055);}while(r);
#line 18061 "qb64pe.bas"
S_20614:;
#line 18061 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18061 "qb64pe.bas"
if(qbevent){evnt(18061);if(r)goto S_20614;}
#line 18063 "qb64pe.bas"
S_20615:;
#line 18063 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18063 "qb64pe.bas"
if(qbevent){evnt(18063);if(r)goto S_20615;}
#line 18064 "qb64pe.bas"
do{
#line 18064 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18064 "qb64pe.bas"
if(!qbevent)break;evnt(18064);}while(r);
#line 18064 "qb64pe.bas"
S_20617:;
#line 18064 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18064 "qb64pe.bas"
if(qbevent){evnt(18064);if(r)goto S_20617;}
#line 18064 "qb64pe.bas"
do{
#line 18064 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18064 "qb64pe.bas"
if(!qbevent)break;evnt(18064);}while(r);
#line 18064 "qb64pe.bas"
}
#line 18065 "qb64pe.bas"
}
#line 18066 "qb64pe.bas"
do{
#line 18066 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2480= -2147483647 ),&(pass2481= 0 ));
#line 18066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18066 "qb64pe.bas"
if(!qbevent)break;evnt(18066);}while(r);
#line 18067 "qb64pe.bas"
S_20622:;
#line 18067 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18067 "qb64pe.bas"
if(qbevent){evnt(18067);if(r)goto S_20622;}
#line 18067 "qb64pe.bas"
do{
#line 18067 "qb64pe.bas"
goto exit_subfunc;
#line 18067 "qb64pe.bas"
if(!qbevent)break;evnt(18067);}while(r);
#line 18067 "qb64pe.bas"
}
#line 18068 "qb64pe.bas"
do{
#line 18068 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18068 "qb64pe.bas"
if(!qbevent)break;evnt(18068);}while(r);
#line 18069 "qb64pe.bas"
S_20626:;
#line 18069 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18069 "qb64pe.bas"
if(qbevent){evnt(18069);if(r)goto S_20626;}
#line 18069 "qb64pe.bas"
do{
#line 18069 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18069 "qb64pe.bas"
if(!qbevent)break;evnt(18069);}while(r);
#line 18069 "qb64pe.bas"
}
#line 18070 "qb64pe.bas"
do{
#line 18070 "qb64pe.bas"
SUB_CLEARID();
#line 18070 "qb64pe.bas"
if(!qbevent)break;evnt(18070);}while(r);
#line 18072 "qb64pe.bas"
}else{
#line 18073 "qb64pe.bas"
do{
#line 18073 "qb64pe.bas"
SUB_CLEARID();
#line 18073 "qb64pe.bas"
if(!qbevent)break;evnt(18073);}while(r);
#line 18074 "qb64pe.bas"
S_20632:;
#line 18074 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18074 "qb64pe.bas"
if(qbevent){evnt(18074);if(r)goto S_20632;}
#line 18075 "qb64pe.bas"
do{
#line 18075 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18075 "qb64pe.bas"
if(!qbevent)break;evnt(18075);}while(r);
#line 18076 "qb64pe.bas"
do{
#line 18076 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18076 "qb64pe.bas"
if(!qbevent)break;evnt(18076);}while(r);
#line 18077 "qb64pe.bas"
do{
#line 18077 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18077 "qb64pe.bas"
if(!qbevent)break;evnt(18077);}while(r);
#line 18078 "qb64pe.bas"
}else{
#line 18079 "qb64pe.bas"
do{
#line 18079 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18079 "qb64pe.bas"
if(!qbevent)break;evnt(18079);}while(r);
#line 18080 "qb64pe.bas"
}
#line 18081 "qb64pe.bas"
}
#line 18083 "qb64pe.bas"
do{
#line 18083 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18083 "qb64pe.bas"
if(!qbevent)break;evnt(18083);}while(r);
#line 18084 "qb64pe.bas"
do{
#line 18084 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_STRINGTYPE;
#line 18084 "qb64pe.bas"
if(!qbevent)break;evnt(18084);}while(r);
#line 18085 "qb64pe.bas"
S_20642:;
#line 18085 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18085 "qb64pe.bas"
if(qbevent){evnt(18085);if(r)goto S_20642;}
#line 18085 "qb64pe.bas"
do{
#line 18085 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18085 "qb64pe.bas"
if(!qbevent)break;evnt(18085);}while(r);
#line 18085 "qb64pe.bas"
}
#line 18086 "qb64pe.bas"
S_20645:;
#line 18086 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18086 "qb64pe.bas"
if(qbevent){evnt(18086);if(r)goto S_20645;}
#line 18086 "qb64pe.bas"
do{
#line 18086 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18086 "qb64pe.bas"
if(!qbevent)break;evnt(18086);}while(r);
#line 18086 "qb64pe.bas"
do{
#line 18086 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18086 "qb64pe.bas"
if(!qbevent)break;evnt(18086);}while(r);
#line 18086 "qb64pe.bas"
}
#line 18088 "qb64pe.bas"
do{
#line 18088 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18088 "qb64pe.bas"
if(!qbevent)break;evnt(18088);}while(r);
#line 18089 "qb64pe.bas"
do{
#line 18089 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18089 "qb64pe.bas"
if(!qbevent)break;evnt(18089);}while(r);
#line 18090 "qb64pe.bas"
S_20651:;
#line 18090 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18090 "qb64pe.bas"
if(qbevent){evnt(18090);if(r)goto S_20651;}
#line 18091 "qb64pe.bas"
do{
#line 18091 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1));
#line 18091 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18091 "qb64pe.bas"
if(!qbevent)break;evnt(18091);}while(r);
#line 18092 "qb64pe.bas"
}
#line 18093 "qb64pe.bas"
S_20654:;
#line 18093 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18093 "qb64pe.bas"
if(qbevent){evnt(18093);if(r)goto S_20654;}
#line 18094 "qb64pe.bas"
do{
#line 18094 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("$",1));
#line 18094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18094 "qb64pe.bas"
if(!qbevent)break;evnt(18094);}while(r);
#line 18095 "qb64pe.bas"
}
#line 18096 "qb64pe.bas"
do{
#line 18096 "qb64pe.bas"
SUB_REGID();
#line 18096 "qb64pe.bas"
if(!qbevent)break;evnt(18096);}while(r);
#line 18097 "qb64pe.bas"
S_20658:;
#line 18097 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18097 "qb64pe.bas"
if(qbevent){evnt(18097);if(r)goto S_20658;}
#line 18097 "qb64pe.bas"
do{
#line 18097 "qb64pe.bas"
goto exit_subfunc;
#line 18097 "qb64pe.bas"
if(!qbevent)break;evnt(18097);}while(r);
#line 18097 "qb64pe.bas"
}
#line 18098 "qb64pe.bas"
do{
#line 18098 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2482= 0 ));
#line 18098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18098 "qb64pe.bas"
if(!qbevent)break;evnt(18098);}while(r);
#line 18099 "qb64pe.bas"
do{
#line 18099 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18099 "qb64pe.bas"
if(!qbevent)break;evnt(18099);}while(r);
#line 18100 "qb64pe.bas"
}
#line 18103 "qb64pe.bas"
do{
#line 18103 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18103 "qb64pe.bas"
if(!qbevent)break;evnt(18103);}while(r);
#line 18104 "qb64pe.bas"
do{
#line 18104 "qb64pe.bas"
SUB_CLEARID();
#line 18104 "qb64pe.bas"
if(!qbevent)break;evnt(18104);}while(r);
#line 18105 "qb64pe.bas"
do{
#line 18105 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18105 "qb64pe.bas"
if(!qbevent)break;evnt(18105);}while(r);
#line 18106 "qb64pe.bas"
do{
#line 18106 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_STRINGTYPE;
#line 18106 "qb64pe.bas"
if(!qbevent)break;evnt(18106);}while(r);
#line 18107 "qb64pe.bas"
S_20668:;
#line 18107 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18107 "qb64pe.bas"
if(qbevent){evnt(18107);if(r)goto S_20668;}
#line 18108 "qb64pe.bas"
S_20669:;
#line 18108 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18108 "qb64pe.bas"
if(qbevent){evnt(18108);if(r)goto S_20669;}
#line 18108 "qb64pe.bas"
do{
#line 18108 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
#line 18108 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18108 "qb64pe.bas"
if(!qbevent)break;evnt(18108);}while(r);
#line 18108 "qb64pe.bas"
}
#line 18109 "qb64pe.bas"
S_20672:;
#line 18109 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18109 "qb64pe.bas"
if(qbevent){evnt(18109);if(r)goto S_20672;}
#line 18109 "qb64pe.bas"
do{
#line 18109 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18109 "qb64pe.bas"
if(!qbevent)break;evnt(18109);}while(r);
#line 18109 "qb64pe.bas"
}
#line 18110 "qb64pe.bas"
do{
#line 18110 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18110 "qb64pe.bas"
if(!qbevent)break;evnt(18110);}while(r);
#line 18111 "qb64pe.bas"
}else{
#line 18112 "qb64pe.bas"
S_20677:;
#line 18112 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18112 "qb64pe.bas"
if(qbevent){evnt(18112);if(r)goto S_20677;}
#line 18112 "qb64pe.bas"
do{
#line 18112 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)));
#line 18112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18112 "qb64pe.bas"
if(!qbevent)break;evnt(18112);}while(r);
#line 18112 "qb64pe.bas"
}
#line 18113 "qb64pe.bas"
S_20680:;
#line 18113 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18113 "qb64pe.bas"
if(qbevent){evnt(18113);if(r)goto S_20680;}
#line 18113 "qb64pe.bas"
do{
#line 18113 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18113 "qb64pe.bas"
if(!qbevent)break;evnt(18113);}while(r);
#line 18113 "qb64pe.bas"
}
#line 18114 "qb64pe.bas"
}
#line 18115 "qb64pe.bas"
S_20684:;
#line 18115 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18115 "qb64pe.bas"
if(qbevent){evnt(18115);if(r)goto S_20684;}
#line 18115 "qb64pe.bas"
do{
#line 18115 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2483=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)));
#line 18115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18115 "qb64pe.bas"
if(!qbevent)break;evnt(18115);}while(r);
#line 18115 "qb64pe.bas"
}
#line 18116 "qb64pe.bas"
S_20687:;
#line 18116 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18116 "qb64pe.bas"
if(qbevent){evnt(18116);if(r)goto S_20687;}
#line 18117 "qb64pe.bas"
do{
#line 18117 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1));
#line 18117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18117 "qb64pe.bas"
if(!qbevent)break;evnt(18117);}while(r);
#line 18118 "qb64pe.bas"
}
#line 18119 "qb64pe.bas"
S_20690:;
#line 18119 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18119 "qb64pe.bas"
if(qbevent){evnt(18119);if(r)goto S_20690;}
#line 18120 "qb64pe.bas"
do{
#line 18120 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("$",1));
#line 18120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18120 "qb64pe.bas"
if(!qbevent)break;evnt(18120);}while(r);
#line 18121 "qb64pe.bas"
}
#line 18122 "qb64pe.bas"
do{
#line 18122 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18122 "qb64pe.bas"
if(!qbevent)break;evnt(18122);}while(r);
#line 18123 "qb64pe.bas"
do{
#line 18123 "qb64pe.bas"
SUB_REGID();
#line 18123 "qb64pe.bas"
if(!qbevent)break;evnt(18123);}while(r);
#line 18124 "qb64pe.bas"
do{
#line 18124 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2484= 0 ));
#line 18124 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18124 "qb64pe.bas"
if(!qbevent)break;evnt(18124);}while(r);
#line 18125 "qb64pe.bas"
S_20696:;
#line 18125 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18125 "qb64pe.bas"
if(qbevent){evnt(18125);if(r)goto S_20696;}
#line 18125 "qb64pe.bas"
do{
#line 18125 "qb64pe.bas"
goto exit_subfunc;
#line 18125 "qb64pe.bas"
if(!qbevent)break;evnt(18125);}while(r);
#line 18125 "qb64pe.bas"
}
#line 18126 "qb64pe.bas"
do{
#line 18126 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18126 "qb64pe.bas"
if(!qbevent)break;evnt(18126);}while(r);
#line 18127 "qb64pe.bas"
}
#line 18129 "qb64pe.bas"
S_20701:;
#line 18129 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4))))||is_error_pending()){
#line 18129 "qb64pe.bas"
if(qbevent){evnt(18129);if(r)goto S_20701;}
#line 18130 "qb64pe.bas"
S_20702:;
#line 18130 "qb64pe.bas"
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()){
#line 18130 "qb64pe.bas"
if(qbevent){evnt(18130);if(r)goto S_20702;}
#line 18131 "qb64pe.bas"
S_20703:;
#line 18131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7))))||is_error_pending()){
#line 18131 "qb64pe.bas"
if(qbevent){evnt(18131);if(r)goto S_20703;}
#line 18131 "qb64pe.bas"
do{
#line 18131 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22));
#line 18131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18131 "qb64pe.bas"
if(!qbevent)break;evnt(18131);}while(r);
#line 18131 "qb64pe.bas"
do{
#line 18131 "qb64pe.bas"
goto exit_subfunc;
#line 18131 "qb64pe.bas"
if(!qbevent)break;evnt(18131);}while(r);
#line 18131 "qb64pe.bas"
}
#line 18132 "qb64pe.bas"
do{
#line 18132 "qb64pe.bas"
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));
#line 18132 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18132 "qb64pe.bas"
if(!qbevent)break;evnt(18132);}while(r);
#line 18133 "qb64pe.bas"
S_20708:;
#line 18133 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||is_error_pending()){
#line 18133 "qb64pe.bas"
if(qbevent){evnt(18133);if(r)goto S_20708;}
#line 18133 "qb64pe.bas"
do{
#line 18133 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23));
#line 18133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18133 "qb64pe.bas"
if(!qbevent)break;evnt(18133);}while(r);
#line 18133 "qb64pe.bas"
do{
#line 18133 "qb64pe.bas"
goto exit_subfunc;
#line 18133 "qb64pe.bas"
if(!qbevent)break;evnt(18133);}while(r);
#line 18133 "qb64pe.bas"
}
#line 18134 "qb64pe.bas"
S_20712:;
#line 18134 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||is_error_pending()){
#line 18134 "qb64pe.bas"
if(qbevent){evnt(18134);if(r)goto S_20712;}
#line 18134 "qb64pe.bas"
do{
#line 18134 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
#line 18134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18134 "qb64pe.bas"
if(!qbevent)break;evnt(18134);}while(r);
#line 18134 "qb64pe.bas"
do{
#line 18134 "qb64pe.bas"
goto exit_subfunc;
#line 18134 "qb64pe.bas"
if(!qbevent)break;evnt(18134);}while(r);
#line 18134 "qb64pe.bas"
}
#line 18135 "qb64pe.bas"
do{
#line 18135 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_C));
#line 18135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18135 "qb64pe.bas"
if(!qbevent)break;evnt(18135);}while(r);
#line 18136 "qb64pe.bas"
S_20717:;
#line 18136 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||is_error_pending()){
#line 18136 "qb64pe.bas"
if(qbevent){evnt(18136);if(r)goto S_20717;}
#line 18136 "qb64pe.bas"
do{
#line 18136 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size 0 bits",44));
#line 18136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18136 "qb64pe.bas"
if(!qbevent)break;evnt(18136);}while(r);
#line 18136 "qb64pe.bas"
do{
#line 18136 "qb64pe.bas"
goto exit_subfunc;
#line 18136 "qb64pe.bas"
if(!qbevent)break;evnt(18136);}while(r);
#line 18136 "qb64pe.bas"
}
#line 18137 "qb64pe.bas"
S_20721:;
#line 18137 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||is_error_pending()){
#line 18137 "qb64pe.bas"
if(qbevent){evnt(18137);if(r)goto S_20721;}
#line 18137 "qb64pe.bas"
do{
#line 18137 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT variable of size > 64 bits",47));
#line 18137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18137 "qb64pe.bas"
if(!qbevent)break;evnt(18137);}while(r);
#line 18137 "qb64pe.bas"
do{
#line 18137 "qb64pe.bas"
goto exit_subfunc;
#line 18137 "qb64pe.bas"
if(!qbevent)break;evnt(18137);}while(r);
#line 18137 "qb64pe.bas"
}
#line 18138 "qb64pe.bas"
}else{
#line 18139 "qb64pe.bas"
do{
#line 18139 "qb64pe.bas"
*_FUNC_DIM2_LONG_BITS= 1 ;
#line 18139 "qb64pe.bas"
if(!qbevent)break;evnt(18139);}while(r);
#line 18140 "qb64pe.bas"
}
#line 18141 "qb64pe.bas"
S_20728:;
#line 18141 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||is_error_pending()){
#line 18141 "qb64pe.bas"
if(qbevent){evnt(18141);if(r)goto S_20728;}
#line 18141 "qb64pe.bas"
do{
#line 18141 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
#line 18141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18141 "qb64pe.bas"
if(!qbevent)break;evnt(18141);}while(r);
#line 18141 "qb64pe.bas"
}else{
#line 18141 "qb64pe.bas"
do{
#line 18141 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
#line 18141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18141 "qb64pe.bas"
if(!qbevent)break;evnt(18141);}while(r);
#line 18141 "qb64pe.bas"
}
#line 18142 "qb64pe.bas"
S_20733:;
#line 18142 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18142 "qb64pe.bas"
if(qbevent){evnt(18142);if(r)goto S_20733;}
#line 18142 "qb64pe.bas"
do{
#line 18142 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18142 "qb64pe.bas"
if(!qbevent)break;evnt(18142);}while(r);
#line 18142 "qb64pe.bas"
do{
#line 18142 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18142 "qb64pe.bas"
if(!qbevent)break;evnt(18142);}while(r);
#line 18142 "qb64pe.bas"
}
#line 18143 "qb64pe.bas"
do{
#line 18143 "qb64pe.bas"
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));
#line 18143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18143 "qb64pe.bas"
if(!qbevent)break;evnt(18143);}while(r);
#line 18146 "qb64pe.bas"
S_20738:;
#line 18146 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18146 "qb64pe.bas"
if(qbevent){evnt(18146);if(r)goto S_20738;}
#line 18147 "qb64pe.bas"
S_20739:;
#line 18147 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||is_error_pending()){
#line 18147 "qb64pe.bas"
if(qbevent){evnt(18147);if(r)goto S_20739;}
#line 18147 "qb64pe.bas"
do{
#line 18147 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a _BIT array of size > 63 bits",44));
#line 18147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18147 "qb64pe.bas"
if(!qbevent)break;evnt(18147);}while(r);
#line 18147 "qb64pe.bas"
do{
#line 18147 "qb64pe.bas"
goto exit_subfunc;
#line 18147 "qb64pe.bas"
if(!qbevent)break;evnt(18147);}while(r);
#line 18147 "qb64pe.bas"
}
#line 18148 "qb64pe.bas"
do{
#line 18148 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18148 "qb64pe.bas"
if(!qbevent)break;evnt(18148);}while(r);
#line 18149 "qb64pe.bas"
do{
#line 18149 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18149 "qb64pe.bas"
if(!qbevent)break;evnt(18149);}while(r);
#line 18149 "qb64pe.bas"
S_20745:;
#line 18149 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18149 "qb64pe.bas"
if(qbevent){evnt(18149);if(r)goto S_20745;}
#line 18149 "qb64pe.bas"
do{
#line 18149 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18149 "qb64pe.bas"
if(!qbevent)break;evnt(18149);}while(r);
#line 18149 "qb64pe.bas"
}
#line 18150 "qb64pe.bas"
do{
#line 18150 "qb64pe.bas"
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)));
#line 18150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18150 "qb64pe.bas"
if(!qbevent)break;evnt(18150);}while(r);
#line 18151 "qb64pe.bas"
S_20749:;
#line 18151 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18151 "qb64pe.bas"
if(qbevent){evnt(18151);if(r)goto S_20749;}
#line 18152 "qb64pe.bas"
do{
#line 18152 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18152 "qb64pe.bas"
if(!qbevent)break;evnt(18152);}while(r);
#line 18153 "qb64pe.bas"
S_20751:;
#line 18153 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18153 "qb64pe.bas"
if(qbevent){evnt(18153);if(r)goto S_20751;}
#line 18153 "qb64pe.bas"
do{
#line 18153 "qb64pe.bas"
goto exit_subfunc;
#line 18153 "qb64pe.bas"
if(!qbevent)break;evnt(18153);}while(r);
#line 18153 "qb64pe.bas"
}
#line 18154 "qb64pe.bas"
S_20754:;
#line 18154 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18154 "qb64pe.bas"
if(qbevent){evnt(18154);if(r)goto S_20754;}
#line 18155 "qb64pe.bas"
S_20755:;
#line 18155 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18155 "qb64pe.bas"
if(qbevent){evnt(18155);if(r)goto S_20755;}
#line 18156 "qb64pe.bas"
do{
#line 18156 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18156 "qb64pe.bas"
if(!qbevent)break;evnt(18156);}while(r);
#line 18157 "qb64pe.bas"
do{
#line 18157 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18157 "qb64pe.bas"
if(!qbevent)break;evnt(18157);}while(r);
#line 18157 "qb64pe.bas"
do{
#line 18157 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18157 "qb64pe.bas"
if(!qbevent)break;evnt(18157);}while(r);
#line 18158 "qb64pe.bas"
do{
#line 18158 "qb64pe.bas"
goto dl_exit_2487;
#line 18158 "qb64pe.bas"
if(!qbevent)break;evnt(18158);}while(r);
#line 18159 "qb64pe.bas"
}
#line 18160 "qb64pe.bas"
S_20761:;
#line 18160 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18160 "qb64pe.bas"
if(qbevent){evnt(18160);if(r)goto S_20761;}
#line 18160 "qb64pe.bas"
do{
#line 18160 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18160 "qb64pe.bas"
if(!qbevent)break;evnt(18160);}while(r);
#line 18160 "qb64pe.bas"
do{
#line 18160 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18160 "qb64pe.bas"
if(!qbevent)break;evnt(18160);}while(r);
#line 18160 "qb64pe.bas"
}else{
#line 18160 "qb64pe.bas"
do{
#line 18160 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18160 "qb64pe.bas"
if(!qbevent)break;evnt(18160);}while(r);
#line 18160 "qb64pe.bas"
}
#line 18161 "qb64pe.bas"
S_20767:;
#line 18161 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18161 "qb64pe.bas"
if(qbevent){evnt(18161);if(r)goto S_20767;}
#line 18161 "qb64pe.bas"
do{
#line 18161 "qb64pe.bas"
goto exit_subfunc;
#line 18161 "qb64pe.bas"
if(!qbevent)break;evnt(18161);}while(r);
#line 18161 "qb64pe.bas"
}
#line 18162 "qb64pe.bas"
dl_continue_2487:;
#line 18162 "qb64pe.bas"
}
#line 18162 "qb64pe.bas"
dl_exit_2487:;
#line 18163 "qb64pe.bas"
}
#line 18164 "qb64pe.bas"
do{
#line 18164 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18164 "qb64pe.bas"
if(!qbevent)break;evnt(18164);}while(r);
#line 18170 "qb64pe.bas"
S_20773:;
#line 18170 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18170 "qb64pe.bas"
if(qbevent){evnt(18170);if(r)goto S_20773;}
#line 18172 "qb64pe.bas"
S_20774:;
#line 18172 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18172 "qb64pe.bas"
if(qbevent){evnt(18172);if(r)goto S_20774;}
#line 18173 "qb64pe.bas"
do{
#line 18173 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18173 "qb64pe.bas"
if(!qbevent)break;evnt(18173);}while(r);
#line 18173 "qb64pe.bas"
S_20776:;
#line 18173 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18173 "qb64pe.bas"
if(qbevent){evnt(18173);if(r)goto S_20776;}
#line 18173 "qb64pe.bas"
do{
#line 18173 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18173 "qb64pe.bas"
if(!qbevent)break;evnt(18173);}while(r);
#line 18173 "qb64pe.bas"
}
#line 18174 "qb64pe.bas"
}
#line 18175 "qb64pe.bas"
do{
#line 18175 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2489=-(*_FUNC_DIM2_LONG_BITS)),&(pass2490= 0 ));
#line 18175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18175 "qb64pe.bas"
if(!qbevent)break;evnt(18175);}while(r);
#line 18176 "qb64pe.bas"
S_20781:;
#line 18176 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18176 "qb64pe.bas"
if(qbevent){evnt(18176);if(r)goto S_20781;}
#line 18176 "qb64pe.bas"
do{
#line 18176 "qb64pe.bas"
goto exit_subfunc;
#line 18176 "qb64pe.bas"
if(!qbevent)break;evnt(18176);}while(r);
#line 18176 "qb64pe.bas"
}
#line 18177 "qb64pe.bas"
do{
#line 18177 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18177 "qb64pe.bas"
if(!qbevent)break;evnt(18177);}while(r);
#line 18178 "qb64pe.bas"
S_20785:;
#line 18178 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18178 "qb64pe.bas"
if(qbevent){evnt(18178);if(r)goto S_20785;}
#line 18178 "qb64pe.bas"
do{
#line 18178 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18178 "qb64pe.bas"
if(!qbevent)break;evnt(18178);}while(r);
#line 18178 "qb64pe.bas"
}
#line 18179 "qb64pe.bas"
do{
#line 18179 "qb64pe.bas"
SUB_CLEARID();
#line 18179 "qb64pe.bas"
if(!qbevent)break;evnt(18179);}while(r);
#line 18181 "qb64pe.bas"
}else{
#line 18182 "qb64pe.bas"
do{
#line 18182 "qb64pe.bas"
SUB_CLEARID();
#line 18182 "qb64pe.bas"
if(!qbevent)break;evnt(18182);}while(r);
#line 18183 "qb64pe.bas"
S_20791:;
#line 18183 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18183 "qb64pe.bas"
if(qbevent){evnt(18183);if(r)goto S_20791;}
#line 18184 "qb64pe.bas"
do{
#line 18184 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18184 "qb64pe.bas"
if(!qbevent)break;evnt(18184);}while(r);
#line 18185 "qb64pe.bas"
do{
#line 18185 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18185 "qb64pe.bas"
if(!qbevent)break;evnt(18185);}while(r);
#line 18186 "qb64pe.bas"
do{
#line 18186 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18186 "qb64pe.bas"
if(!qbevent)break;evnt(18186);}while(r);
#line 18187 "qb64pe.bas"
}else{
#line 18188 "qb64pe.bas"
do{
#line 18188 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18188 "qb64pe.bas"
if(!qbevent)break;evnt(18188);}while(r);
#line 18189 "qb64pe.bas"
}
#line 18190 "qb64pe.bas"
}
#line 18192 "qb64pe.bas"
do{
#line 18192 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18192 "qb64pe.bas"
if(!qbevent)break;evnt(18192);}while(r);
#line 18193 "qb64pe.bas"
do{
#line 18193 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS;
#line 18193 "qb64pe.bas"
if(!qbevent)break;evnt(18193);}while(r);
#line 18194 "qb64pe.bas"
S_20801:;
#line 18194 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18194 "qb64pe.bas"
if(qbevent){evnt(18194);if(r)goto S_20801;}
#line 18194 "qb64pe.bas"
do{
#line 18194 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18194 "qb64pe.bas"
if(!qbevent)break;evnt(18194);}while(r);
#line 18194 "qb64pe.bas"
}
#line 18195 "qb64pe.bas"
S_20804:;
#line 18195 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18195 "qb64pe.bas"
if(qbevent){evnt(18195);if(r)goto S_20804;}
#line 18195 "qb64pe.bas"
do{
#line 18195 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18195 "qb64pe.bas"
if(!qbevent)break;evnt(18195);}while(r);
#line 18195 "qb64pe.bas"
}
#line 18196 "qb64pe.bas"
S_20807:;
#line 18196 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18196 "qb64pe.bas"
if(qbevent){evnt(18196);if(r)goto S_20807;}
#line 18196 "qb64pe.bas"
do{
#line 18196 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18196 "qb64pe.bas"
if(!qbevent)break;evnt(18196);}while(r);
#line 18196 "qb64pe.bas"
do{
#line 18196 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18196 "qb64pe.bas"
if(!qbevent)break;evnt(18196);}while(r);
#line 18196 "qb64pe.bas"
}
#line 18198 "qb64pe.bas"
do{
#line 18198 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18198 "qb64pe.bas"
if(!qbevent)break;evnt(18198);}while(r);
#line 18199 "qb64pe.bas"
do{
#line 18199 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18199 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18199 "qb64pe.bas"
if(!qbevent)break;evnt(18199);}while(r);
#line 18200 "qb64pe.bas"
S_20813:;
#line 18200 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18200 "qb64pe.bas"
if(qbevent){evnt(18200);if(r)goto S_20813;}
#line 18201 "qb64pe.bas"
S_20814:;
#line 18201 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18201 "qb64pe.bas"
if(qbevent){evnt(18201);if(r)goto S_20814;}
#line 18201 "qb64pe.bas"
do{
#line 18201 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18201 "qb64pe.bas"
if(!qbevent)break;evnt(18201);}while(r);
#line 18201 "qb64pe.bas"
}else{
#line 18201 "qb64pe.bas"
do{
#line 18201 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18201 "qb64pe.bas"
if(!qbevent)break;evnt(18201);}while(r);
#line 18201 "qb64pe.bas"
}
#line 18202 "qb64pe.bas"
}
#line 18203 "qb64pe.bas"
S_20820:;
#line 18203 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18203 "qb64pe.bas"
if(qbevent){evnt(18203);if(r)goto S_20820;}
#line 18204 "qb64pe.bas"
S_20821:;
#line 18204 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18204 "qb64pe.bas"
if(qbevent){evnt(18204);if(r)goto S_20821;}
#line 18204 "qb64pe.bas"
do{
#line 18204 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18204 "qb64pe.bas"
if(!qbevent)break;evnt(18204);}while(r);
#line 18204 "qb64pe.bas"
}else{
#line 18204 "qb64pe.bas"
do{
#line 18204 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18204 "qb64pe.bas"
if(!qbevent)break;evnt(18204);}while(r);
#line 18204 "qb64pe.bas"
}
#line 18205 "qb64pe.bas"
}
#line 18206 "qb64pe.bas"
do{
#line 18206 "qb64pe.bas"
SUB_REGID();
#line 18206 "qb64pe.bas"
if(!qbevent)break;evnt(18206);}while(r);
#line 18207 "qb64pe.bas"
S_20828:;
#line 18207 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18207 "qb64pe.bas"
if(qbevent){evnt(18207);if(r)goto S_20828;}
#line 18207 "qb64pe.bas"
do{
#line 18207 "qb64pe.bas"
goto exit_subfunc;
#line 18207 "qb64pe.bas"
if(!qbevent)break;evnt(18207);}while(r);
#line 18207 "qb64pe.bas"
}
#line 18208 "qb64pe.bas"
do{
#line 18208 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2491= 0 ));
#line 18208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18208 "qb64pe.bas"
if(!qbevent)break;evnt(18208);}while(r);
#line 18209 "qb64pe.bas"
do{
#line 18209 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18209 "qb64pe.bas"
if(!qbevent)break;evnt(18209);}while(r);
#line 18210 "qb64pe.bas"
}
#line 18212 "qb64pe.bas"
do{
#line 18212 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18212 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18212 "qb64pe.bas"
if(!qbevent)break;evnt(18212);}while(r);
#line 18213 "qb64pe.bas"
do{
#line 18213 "qb64pe.bas"
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)));
#line 18213 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18213 "qb64pe.bas"
if(!qbevent)break;evnt(18213);}while(r);
#line 18214 "qb64pe.bas"
do{
#line 18214 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18214 "qb64pe.bas"
if(!qbevent)break;evnt(18214);}while(r);
#line 18215 "qb64pe.bas"
do{
#line 18215 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=4;",11));
#line 18215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18215 "qb64pe.bas"
if(!qbevent)break;evnt(18215);}while(r);
#line 18216 "qb64pe.bas"
do{
#line 18216 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18216 "qb64pe.bas"
if(!qbevent)break;evnt(18216);}while(r);
#line 18217 "qb64pe.bas"
do{
#line 18217 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18217 "qb64pe.bas"
if(!qbevent)break;evnt(18217);}while(r);
#line 18218 "qb64pe.bas"
do{
#line 18218 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18218 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18218 "qb64pe.bas"
if(!qbevent)break;evnt(18218);}while(r);
#line 18219 "qb64pe.bas"
do{
#line 18219 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18219 "qb64pe.bas"
if(!qbevent)break;evnt(18219);}while(r);
#line 18220 "qb64pe.bas"
do{
#line 18220 "qb64pe.bas"
SUB_CLEARID();
#line 18220 "qb64pe.bas"
if(!qbevent)break;evnt(18220);}while(r);
#line 18221 "qb64pe.bas"
do{
#line 18221 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18221 "qb64pe.bas"
if(!qbevent)break;evnt(18221);}while(r);
#line 18222 "qb64pe.bas"
do{
#line 18222 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS+*__LONG_ISINCONVENTIONALMEMORY;
#line 18222 "qb64pe.bas"
if(!qbevent)break;evnt(18222);}while(r);
#line 18222 "qb64pe.bas"
S_20845:;
#line 18222 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18222 "qb64pe.bas"
if(qbevent){evnt(18222);if(r)goto S_20845;}
#line 18222 "qb64pe.bas"
do{
#line 18222 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18222 "qb64pe.bas"
if(!qbevent)break;evnt(18222);}while(r);
#line 18222 "qb64pe.bas"
}
#line 18223 "qb64pe.bas"
S_20848:;
#line 18223 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18223 "qb64pe.bas"
if(qbevent){evnt(18223);if(r)goto S_20848;}
#line 18224 "qb64pe.bas"
S_20849:;
#line 18224 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18224 "qb64pe.bas"
if(qbevent){evnt(18224);if(r)goto S_20849;}
#line 18224 "qb64pe.bas"
do{
#line 18224 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18224 "qb64pe.bas"
if(!qbevent)break;evnt(18224);}while(r);
#line 18224 "qb64pe.bas"
}else{
#line 18224 "qb64pe.bas"
do{
#line 18224 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18224 "qb64pe.bas"
if(!qbevent)break;evnt(18224);}while(r);
#line 18224 "qb64pe.bas"
}
#line 18225 "qb64pe.bas"
}
#line 18226 "qb64pe.bas"
S_20855:;
#line 18226 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18226 "qb64pe.bas"
if(qbevent){evnt(18226);if(r)goto S_20855;}
#line 18227 "qb64pe.bas"
S_20856:;
#line 18227 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18227 "qb64pe.bas"
if(qbevent){evnt(18227);if(r)goto S_20856;}
#line 18227 "qb64pe.bas"
do{
#line 18227 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("~`",2),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18227 "qb64pe.bas"
if(!qbevent)break;evnt(18227);}while(r);
#line 18227 "qb64pe.bas"
}else{
#line 18227 "qb64pe.bas"
do{
#line 18227 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_add(qbs_new_txt_len("`",1),qbs__tostr((int32)(*_FUNC_DIM2_LONG_BITS),NULL,0)));
#line 18227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18227 "qb64pe.bas"
if(!qbevent)break;evnt(18227);}while(r);
#line 18227 "qb64pe.bas"
}
#line 18228 "qb64pe.bas"
}
#line 18229 "qb64pe.bas"
do{
#line 18229 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18229 "qb64pe.bas"
if(!qbevent)break;evnt(18229);}while(r);
#line 18230 "qb64pe.bas"
do{
#line 18230 "qb64pe.bas"
SUB_REGID();
#line 18230 "qb64pe.bas"
if(!qbevent)break;evnt(18230);}while(r);
#line 18231 "qb64pe.bas"
do{
#line 18231 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2492= 0 ));
#line 18231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18231 "qb64pe.bas"
if(!qbevent)break;evnt(18231);}while(r);
#line 18232 "qb64pe.bas"
S_20865:;
#line 18232 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18232 "qb64pe.bas"
if(qbevent){evnt(18232);if(r)goto S_20865;}
#line 18232 "qb64pe.bas"
do{
#line 18232 "qb64pe.bas"
goto exit_subfunc;
#line 18232 "qb64pe.bas"
if(!qbevent)break;evnt(18232);}while(r);
#line 18232 "qb64pe.bas"
}
#line 18233 "qb64pe.bas"
do{
#line 18233 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18233 "qb64pe.bas"
if(!qbevent)break;evnt(18233);}while(r);
#line 18234 "qb64pe.bas"
}
#line 18236 "qb64pe.bas"
S_20870:;
#line 18236 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
#line 18236 "qb64pe.bas"
if(qbevent){evnt(18236);if(r)goto S_20870;}
#line 18237 "qb64pe.bas"
do{
#line 18237 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int8",4));
#line 18237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18237 "qb64pe.bas"
if(!qbevent)break;evnt(18237);}while(r);
#line 18238 "qb64pe.bas"
S_20872:;
#line 18238 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18238 "qb64pe.bas"
if(qbevent){evnt(18238);if(r)goto S_20872;}
#line 18238 "qb64pe.bas"
do{
#line 18238 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18238 "qb64pe.bas"
if(!qbevent)break;evnt(18238);}while(r);
#line 18238 "qb64pe.bas"
do{
#line 18238 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18238 "qb64pe.bas"
if(!qbevent)break;evnt(18238);}while(r);
#line 18238 "qb64pe.bas"
}
#line 18239 "qb64pe.bas"
do{
#line 18239 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BYTE_",5)),_FUNC_DIM2_STRING_VARNAME));
#line 18239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18239 "qb64pe.bas"
if(!qbevent)break;evnt(18239);}while(r);
#line 18240 "qb64pe.bas"
S_20877:;
#line 18240 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18240 "qb64pe.bas"
if(qbevent){evnt(18240);if(r)goto S_20877;}
#line 18241 "qb64pe.bas"
do{
#line 18241 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18241 "qb64pe.bas"
if(!qbevent)break;evnt(18241);}while(r);
#line 18242 "qb64pe.bas"
do{
#line 18242 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18242 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18242 "qb64pe.bas"
if(!qbevent)break;evnt(18242);}while(r);
#line 18242 "qb64pe.bas"
S_20880:;
#line 18242 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18242 "qb64pe.bas"
if(qbevent){evnt(18242);if(r)goto S_20880;}
#line 18242 "qb64pe.bas"
do{
#line 18242 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18242 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18242 "qb64pe.bas"
if(!qbevent)break;evnt(18242);}while(r);
#line 18242 "qb64pe.bas"
}
#line 18243 "qb64pe.bas"
do{
#line 18243 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%%",2)));
#line 18243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18243 "qb64pe.bas"
if(!qbevent)break;evnt(18243);}while(r);
#line 18244 "qb64pe.bas"
S_20884:;
#line 18244 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18244 "qb64pe.bas"
if(qbevent){evnt(18244);if(r)goto S_20884;}
#line 18245 "qb64pe.bas"
do{
#line 18245 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18245 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18245 "qb64pe.bas"
if(!qbevent)break;evnt(18245);}while(r);
#line 18246 "qb64pe.bas"
S_20886:;
#line 18246 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18246 "qb64pe.bas"
if(qbevent){evnt(18246);if(r)goto S_20886;}
#line 18246 "qb64pe.bas"
do{
#line 18246 "qb64pe.bas"
goto exit_subfunc;
#line 18246 "qb64pe.bas"
if(!qbevent)break;evnt(18246);}while(r);
#line 18246 "qb64pe.bas"
}
#line 18247 "qb64pe.bas"
S_20889:;
#line 18247 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18247 "qb64pe.bas"
if(qbevent){evnt(18247);if(r)goto S_20889;}
#line 18248 "qb64pe.bas"
S_20890:;
#line 18248 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18248 "qb64pe.bas"
if(qbevent){evnt(18248);if(r)goto S_20890;}
#line 18249 "qb64pe.bas"
do{
#line 18249 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18249 "qb64pe.bas"
if(!qbevent)break;evnt(18249);}while(r);
#line 18250 "qb64pe.bas"
do{
#line 18250 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18250 "qb64pe.bas"
if(!qbevent)break;evnt(18250);}while(r);
#line 18250 "qb64pe.bas"
do{
#line 18250 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18250 "qb64pe.bas"
if(!qbevent)break;evnt(18250);}while(r);
#line 18251 "qb64pe.bas"
do{
#line 18251 "qb64pe.bas"
goto dl_exit_2493;
#line 18251 "qb64pe.bas"
if(!qbevent)break;evnt(18251);}while(r);
#line 18252 "qb64pe.bas"
}
#line 18253 "qb64pe.bas"
S_20896:;
#line 18253 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18253 "qb64pe.bas"
if(qbevent){evnt(18253);if(r)goto S_20896;}
#line 18253 "qb64pe.bas"
do{
#line 18253 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18253 "qb64pe.bas"
if(!qbevent)break;evnt(18253);}while(r);
#line 18253 "qb64pe.bas"
do{
#line 18253 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18253 "qb64pe.bas"
if(!qbevent)break;evnt(18253);}while(r);
#line 18253 "qb64pe.bas"
}else{
#line 18253 "qb64pe.bas"
do{
#line 18253 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18253 "qb64pe.bas"
if(!qbevent)break;evnt(18253);}while(r);
#line 18253 "qb64pe.bas"
}
#line 18254 "qb64pe.bas"
S_20902:;
#line 18254 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18254 "qb64pe.bas"
if(qbevent){evnt(18254);if(r)goto S_20902;}
#line 18254 "qb64pe.bas"
do{
#line 18254 "qb64pe.bas"
goto exit_subfunc;
#line 18254 "qb64pe.bas"
if(!qbevent)break;evnt(18254);}while(r);
#line 18254 "qb64pe.bas"
}
#line 18255 "qb64pe.bas"
dl_continue_2493:;
#line 18255 "qb64pe.bas"
}
#line 18255 "qb64pe.bas"
dl_exit_2493:;
#line 18257 "qb64pe.bas"
}
#line 18258 "qb64pe.bas"
do{
#line 18258 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18258 "qb64pe.bas"
if(!qbevent)break;evnt(18258);}while(r);
#line 18264 "qb64pe.bas"
S_20908:;
#line 18264 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18264 "qb64pe.bas"
if(qbevent){evnt(18264);if(r)goto S_20908;}
#line 18266 "qb64pe.bas"
S_20909:;
#line 18266 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18266 "qb64pe.bas"
if(qbevent){evnt(18266);if(r)goto S_20909;}
#line 18267 "qb64pe.bas"
do{
#line 18267 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18267 "qb64pe.bas"
if(!qbevent)break;evnt(18267);}while(r);
#line 18267 "qb64pe.bas"
S_20911:;
#line 18267 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18267 "qb64pe.bas"
if(qbevent){evnt(18267);if(r)goto S_20911;}
#line 18267 "qb64pe.bas"
do{
#line 18267 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18267 "qb64pe.bas"
if(!qbevent)break;evnt(18267);}while(r);
#line 18267 "qb64pe.bas"
}
#line 18268 "qb64pe.bas"
}
#line 18269 "qb64pe.bas"
do{
#line 18269 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2495= 1 ),&(pass2496= 0 ));
#line 18269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18269 "qb64pe.bas"
if(!qbevent)break;evnt(18269);}while(r);
#line 18270 "qb64pe.bas"
S_20916:;
#line 18270 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18270 "qb64pe.bas"
if(qbevent){evnt(18270);if(r)goto S_20916;}
#line 18270 "qb64pe.bas"
do{
#line 18270 "qb64pe.bas"
goto exit_subfunc;
#line 18270 "qb64pe.bas"
if(!qbevent)break;evnt(18270);}while(r);
#line 18270 "qb64pe.bas"
}
#line 18271 "qb64pe.bas"
do{
#line 18271 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18271 "qb64pe.bas"
if(!qbevent)break;evnt(18271);}while(r);
#line 18272 "qb64pe.bas"
S_20920:;
#line 18272 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18272 "qb64pe.bas"
if(qbevent){evnt(18272);if(r)goto S_20920;}
#line 18272 "qb64pe.bas"
do{
#line 18272 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18272 "qb64pe.bas"
if(!qbevent)break;evnt(18272);}while(r);
#line 18272 "qb64pe.bas"
}
#line 18273 "qb64pe.bas"
do{
#line 18273 "qb64pe.bas"
SUB_CLEARID();
#line 18273 "qb64pe.bas"
if(!qbevent)break;evnt(18273);}while(r);
#line 18275 "qb64pe.bas"
}else{
#line 18276 "qb64pe.bas"
do{
#line 18276 "qb64pe.bas"
SUB_CLEARID();
#line 18276 "qb64pe.bas"
if(!qbevent)break;evnt(18276);}while(r);
#line 18277 "qb64pe.bas"
S_20926:;
#line 18277 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18277 "qb64pe.bas"
if(qbevent){evnt(18277);if(r)goto S_20926;}
#line 18278 "qb64pe.bas"
do{
#line 18278 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18278 "qb64pe.bas"
if(!qbevent)break;evnt(18278);}while(r);
#line 18279 "qb64pe.bas"
do{
#line 18279 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18279 "qb64pe.bas"
if(!qbevent)break;evnt(18279);}while(r);
#line 18280 "qb64pe.bas"
do{
#line 18280 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18280 "qb64pe.bas"
if(!qbevent)break;evnt(18280);}while(r);
#line 18281 "qb64pe.bas"
}else{
#line 18282 "qb64pe.bas"
do{
#line 18282 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18282 "qb64pe.bas"
if(!qbevent)break;evnt(18282);}while(r);
#line 18283 "qb64pe.bas"
}
#line 18284 "qb64pe.bas"
}
#line 18286 "qb64pe.bas"
do{
#line 18286 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_BYTETYPE;
#line 18286 "qb64pe.bas"
if(!qbevent)break;evnt(18286);}while(r);
#line 18286 "qb64pe.bas"
S_20935:;
#line 18286 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18286 "qb64pe.bas"
if(qbevent){evnt(18286);if(r)goto S_20935;}
#line 18286 "qb64pe.bas"
do{
#line 18286 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18286 "qb64pe.bas"
if(!qbevent)break;evnt(18286);}while(r);
#line 18286 "qb64pe.bas"
}
#line 18287 "qb64pe.bas"
S_20938:;
#line 18287 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18287 "qb64pe.bas"
if(qbevent){evnt(18287);if(r)goto S_20938;}
#line 18287 "qb64pe.bas"
do{
#line 18287 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18287 "qb64pe.bas"
if(!qbevent)break;evnt(18287);}while(r);
#line 18287 "qb64pe.bas"
}
#line 18288 "qb64pe.bas"
S_20941:;
#line 18288 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18288 "qb64pe.bas"
if(qbevent){evnt(18288);if(r)goto S_20941;}
#line 18288 "qb64pe.bas"
do{
#line 18288 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18288 "qb64pe.bas"
if(!qbevent)break;evnt(18288);}while(r);
#line 18288 "qb64pe.bas"
do{
#line 18288 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18288 "qb64pe.bas"
if(!qbevent)break;evnt(18288);}while(r);
#line 18288 "qb64pe.bas"
}
#line 18290 "qb64pe.bas"
do{
#line 18290 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18290 "qb64pe.bas"
if(!qbevent)break;evnt(18290);}while(r);
#line 18291 "qb64pe.bas"
do{
#line 18291 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18291 "qb64pe.bas"
if(!qbevent)break;evnt(18291);}while(r);
#line 18292 "qb64pe.bas"
}else{
#line 18293 "qb64pe.bas"
do{
#line 18293 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18293 "qb64pe.bas"
if(!qbevent)break;evnt(18293);}while(r);
#line 18294 "qb64pe.bas"
do{
#line 18294 "qb64pe.bas"
SUB_CLEARID();
#line 18294 "qb64pe.bas"
if(!qbevent)break;evnt(18294);}while(r);
#line 18295 "qb64pe.bas"
do{
#line 18295 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_BYTETYPE;
#line 18295 "qb64pe.bas"
if(!qbevent)break;evnt(18295);}while(r);
#line 18295 "qb64pe.bas"
S_20951:;
#line 18295 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18295 "qb64pe.bas"
if(qbevent){evnt(18295);if(r)goto S_20951;}
#line 18295 "qb64pe.bas"
do{
#line 18295 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18295 "qb64pe.bas"
if(!qbevent)break;evnt(18295);}while(r);
#line 18295 "qb64pe.bas"
}
#line 18296 "qb64pe.bas"
S_20954:;
#line 18296 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18296 "qb64pe.bas"
if(qbevent){evnt(18296);if(r)goto S_20954;}
#line 18296 "qb64pe.bas"
do{
#line 18296 "qb64pe.bas"
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)));
#line 18296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18296 "qb64pe.bas"
if(!qbevent)break;evnt(18296);}while(r);
#line 18296 "qb64pe.bas"
}
#line 18297 "qb64pe.bas"
S_20957:;
#line 18297 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18297 "qb64pe.bas"
if(qbevent){evnt(18297);if(r)goto S_20957;}
#line 18297 "qb64pe.bas"
do{
#line 18297 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18297 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18297 "qb64pe.bas"
if(!qbevent)break;evnt(18297);}while(r);
#line 18297 "qb64pe.bas"
}
#line 18298 "qb64pe.bas"
S_20960:;
#line 18298 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18298 "qb64pe.bas"
if(qbevent){evnt(18298);if(r)goto S_20960;}
#line 18299 "qb64pe.bas"
do{
#line 18299 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18299 "qb64pe.bas"
if(!qbevent)break;evnt(18299);}while(r);
#line 18300 "qb64pe.bas"
S_20962:;
#line 18300 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18300 "qb64pe.bas"
if(qbevent){evnt(18300);if(r)goto S_20962;}
#line 18300 "qb64pe.bas"
do{
#line 18300 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=1;",11));
#line 18300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18300 "qb64pe.bas"
if(!qbevent)break;evnt(18300);}while(r);
#line 18300 "qb64pe.bas"
}
#line 18301 "qb64pe.bas"
S_20965:;
#line 18301 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18301 "qb64pe.bas"
if(qbevent){evnt(18301);if(r)goto S_20965;}
#line 18301 "qb64pe.bas"
do{
#line 18301 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18301 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18301 "qb64pe.bas"
if(!qbevent)break;evnt(18301);}while(r);
#line 18301 "qb64pe.bas"
}
#line 18302 "qb64pe.bas"
S_20968:;
#line 18302 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18302 "qb64pe.bas"
if(qbevent){evnt(18302);if(r)goto S_20968;}
#line 18302 "qb64pe.bas"
do{
#line 18302 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18302 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18302 "qb64pe.bas"
if(!qbevent)break;evnt(18302);}while(r);
#line 18302 "qb64pe.bas"
}
#line 18303 "qb64pe.bas"
}else{
#line 18304 "qb64pe.bas"
S_20972:;
#line 18304 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18304 "qb64pe.bas"
if(qbevent){evnt(18304);if(r)goto S_20972;}
#line 18304 "qb64pe.bas"
do{
#line 18304 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18304 "qb64pe.bas"
if(!qbevent)break;evnt(18304);}while(r);
#line 18304 "qb64pe.bas"
}
#line 18305 "qb64pe.bas"
}
#line 18306 "qb64pe.bas"
S_20976:;
#line 18306 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18306 "qb64pe.bas"
if(qbevent){evnt(18306);if(r)goto S_20976;}
#line 18306 "qb64pe.bas"
do{
#line 18306 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18306 "qb64pe.bas"
if(!qbevent)break;evnt(18306);}while(r);
#line 18306 "qb64pe.bas"
}
#line 18307 "qb64pe.bas"
S_20979:;
#line 18307 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18307 "qb64pe.bas"
if(qbevent){evnt(18307);if(r)goto S_20979;}
#line 18307 "qb64pe.bas"
do{
#line 18307 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18307 "qb64pe.bas"
if(!qbevent)break;evnt(18307);}while(r);
#line 18307 "qb64pe.bas"
}
#line 18308 "qb64pe.bas"
}
#line 18309 "qb64pe.bas"
do{
#line 18309 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18309 "qb64pe.bas"
if(!qbevent)break;evnt(18309);}while(r);
#line 18310 "qb64pe.bas"
S_20984:;
#line 18310 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18310 "qb64pe.bas"
if(qbevent){evnt(18310);if(r)goto S_20984;}
#line 18311 "qb64pe.bas"
S_20985:;
#line 18311 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18311 "qb64pe.bas"
if(qbevent){evnt(18311);if(r)goto S_20985;}
#line 18311 "qb64pe.bas"
do{
#line 18311 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%%",3));
#line 18311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18311 "qb64pe.bas"
if(!qbevent)break;evnt(18311);}while(r);
#line 18311 "qb64pe.bas"
}else{
#line 18311 "qb64pe.bas"
do{
#line 18311 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%%",2));
#line 18311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18311 "qb64pe.bas"
if(!qbevent)break;evnt(18311);}while(r);
#line 18311 "qb64pe.bas"
}
#line 18312 "qb64pe.bas"
}
#line 18313 "qb64pe.bas"
S_20991:;
#line 18313 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18313 "qb64pe.bas"
if(qbevent){evnt(18313);if(r)goto S_20991;}
#line 18314 "qb64pe.bas"
S_20992:;
#line 18314 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18314 "qb64pe.bas"
if(qbevent){evnt(18314);if(r)goto S_20992;}
#line 18314 "qb64pe.bas"
do{
#line 18314 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%%",3));
#line 18314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18314 "qb64pe.bas"
if(!qbevent)break;evnt(18314);}while(r);
#line 18314 "qb64pe.bas"
}else{
#line 18314 "qb64pe.bas"
do{
#line 18314 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%%",2));
#line 18314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18314 "qb64pe.bas"
if(!qbevent)break;evnt(18314);}while(r);
#line 18314 "qb64pe.bas"
}
#line 18315 "qb64pe.bas"
}
#line 18316 "qb64pe.bas"
do{
#line 18316 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18316 "qb64pe.bas"
if(!qbevent)break;evnt(18316);}while(r);
#line 18317 "qb64pe.bas"
do{
#line 18317 "qb64pe.bas"
SUB_REGID();
#line 18317 "qb64pe.bas"
if(!qbevent)break;evnt(18317);}while(r);
#line 18318 "qb64pe.bas"
do{
#line 18318 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2497= 0 ));
#line 18318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18318 "qb64pe.bas"
if(!qbevent)break;evnt(18318);}while(r);
#line 18319 "qb64pe.bas"
S_21001:;
#line 18319 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18319 "qb64pe.bas"
if(qbevent){evnt(18319);if(r)goto S_21001;}
#line 18319 "qb64pe.bas"
do{
#line 18319 "qb64pe.bas"
goto exit_subfunc;
#line 18319 "qb64pe.bas"
if(!qbevent)break;evnt(18319);}while(r);
#line 18319 "qb64pe.bas"
}
#line 18320 "qb64pe.bas"
do{
#line 18320 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18320 "qb64pe.bas"
if(!qbevent)break;evnt(18320);}while(r);
#line 18321 "qb64pe.bas"
}
#line 18323 "qb64pe.bas"
S_21006:;
#line 18323 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
#line 18323 "qb64pe.bas"
if(qbevent){evnt(18323);if(r)goto S_21006;}
#line 18324 "qb64pe.bas"
do{
#line 18324 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int16",5));
#line 18324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18324 "qb64pe.bas"
if(!qbevent)break;evnt(18324);}while(r);
#line 18325 "qb64pe.bas"
S_21008:;
#line 18325 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18325 "qb64pe.bas"
if(qbevent){evnt(18325);if(r)goto S_21008;}
#line 18325 "qb64pe.bas"
do{
#line 18325 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18325 "qb64pe.bas"
if(!qbevent)break;evnt(18325);}while(r);
#line 18325 "qb64pe.bas"
do{
#line 18325 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18325 "qb64pe.bas"
if(!qbevent)break;evnt(18325);}while(r);
#line 18325 "qb64pe.bas"
}
#line 18326 "qb64pe.bas"
do{
#line 18326 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER_",8)),_FUNC_DIM2_STRING_VARNAME));
#line 18326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18326 "qb64pe.bas"
if(!qbevent)break;evnt(18326);}while(r);
#line 18328 "qb64pe.bas"
S_21013:;
#line 18328 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18328 "qb64pe.bas"
if(qbevent){evnt(18328);if(r)goto S_21013;}
#line 18329 "qb64pe.bas"
do{
#line 18329 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18329 "qb64pe.bas"
if(!qbevent)break;evnt(18329);}while(r);
#line 18330 "qb64pe.bas"
do{
#line 18330 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18330 "qb64pe.bas"
if(!qbevent)break;evnt(18330);}while(r);
#line 18330 "qb64pe.bas"
S_21016:;
#line 18330 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18330 "qb64pe.bas"
if(qbevent){evnt(18330);if(r)goto S_21016;}
#line 18330 "qb64pe.bas"
do{
#line 18330 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18330 "qb64pe.bas"
if(!qbevent)break;evnt(18330);}while(r);
#line 18330 "qb64pe.bas"
}
#line 18331 "qb64pe.bas"
do{
#line 18331 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%",1)));
#line 18331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18331 "qb64pe.bas"
if(!qbevent)break;evnt(18331);}while(r);
#line 18332 "qb64pe.bas"
S_21020:;
#line 18332 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18332 "qb64pe.bas"
if(qbevent){evnt(18332);if(r)goto S_21020;}
#line 18333 "qb64pe.bas"
do{
#line 18333 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18333 "qb64pe.bas"
if(!qbevent)break;evnt(18333);}while(r);
#line 18334 "qb64pe.bas"
S_21022:;
#line 18334 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18334 "qb64pe.bas"
if(qbevent){evnt(18334);if(r)goto S_21022;}
#line 18334 "qb64pe.bas"
do{
#line 18334 "qb64pe.bas"
goto exit_subfunc;
#line 18334 "qb64pe.bas"
if(!qbevent)break;evnt(18334);}while(r);
#line 18334 "qb64pe.bas"
}
#line 18335 "qb64pe.bas"
S_21025:;
#line 18335 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18335 "qb64pe.bas"
if(qbevent){evnt(18335);if(r)goto S_21025;}
#line 18336 "qb64pe.bas"
S_21026:;
#line 18336 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18336 "qb64pe.bas"
if(qbevent){evnt(18336);if(r)goto S_21026;}
#line 18337 "qb64pe.bas"
do{
#line 18337 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18337 "qb64pe.bas"
if(!qbevent)break;evnt(18337);}while(r);
#line 18338 "qb64pe.bas"
do{
#line 18338 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18338 "qb64pe.bas"
if(!qbevent)break;evnt(18338);}while(r);
#line 18338 "qb64pe.bas"
do{
#line 18338 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18338 "qb64pe.bas"
if(!qbevent)break;evnt(18338);}while(r);
#line 18339 "qb64pe.bas"
do{
#line 18339 "qb64pe.bas"
goto dl_exit_2498;
#line 18339 "qb64pe.bas"
if(!qbevent)break;evnt(18339);}while(r);
#line 18340 "qb64pe.bas"
}
#line 18341 "qb64pe.bas"
S_21032:;
#line 18341 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18341 "qb64pe.bas"
if(qbevent){evnt(18341);if(r)goto S_21032;}
#line 18341 "qb64pe.bas"
do{
#line 18341 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18341 "qb64pe.bas"
if(!qbevent)break;evnt(18341);}while(r);
#line 18341 "qb64pe.bas"
do{
#line 18341 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18341 "qb64pe.bas"
if(!qbevent)break;evnt(18341);}while(r);
#line 18341 "qb64pe.bas"
}else{
#line 18341 "qb64pe.bas"
do{
#line 18341 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18341 "qb64pe.bas"
if(!qbevent)break;evnt(18341);}while(r);
#line 18341 "qb64pe.bas"
}
#line 18342 "qb64pe.bas"
S_21038:;
#line 18342 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18342 "qb64pe.bas"
if(qbevent){evnt(18342);if(r)goto S_21038;}
#line 18342 "qb64pe.bas"
do{
#line 18342 "qb64pe.bas"
goto exit_subfunc;
#line 18342 "qb64pe.bas"
if(!qbevent)break;evnt(18342);}while(r);
#line 18342 "qb64pe.bas"
}
#line 18343 "qb64pe.bas"
dl_continue_2498:;
#line 18343 "qb64pe.bas"
}
#line 18343 "qb64pe.bas"
dl_exit_2498:;
#line 18344 "qb64pe.bas"
}
#line 18345 "qb64pe.bas"
do{
#line 18345 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18345 "qb64pe.bas"
if(!qbevent)break;evnt(18345);}while(r);
#line 18347 "qb64pe.bas"
S_21044:;
#line 18347 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18347 "qb64pe.bas"
if(qbevent){evnt(18347);if(r)goto S_21044;}
#line 18349 "qb64pe.bas"
S_21045:;
#line 18349 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18349 "qb64pe.bas"
if(qbevent){evnt(18349);if(r)goto S_21045;}
#line 18350 "qb64pe.bas"
do{
#line 18350 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18350 "qb64pe.bas"
if(!qbevent)break;evnt(18350);}while(r);
#line 18350 "qb64pe.bas"
S_21047:;
#line 18350 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18350 "qb64pe.bas"
if(qbevent){evnt(18350);if(r)goto S_21047;}
#line 18350 "qb64pe.bas"
do{
#line 18350 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18350 "qb64pe.bas"
if(!qbevent)break;evnt(18350);}while(r);
#line 18350 "qb64pe.bas"
}
#line 18351 "qb64pe.bas"
}
#line 18352 "qb64pe.bas"
do{
#line 18352 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2500= 2 ),&(pass2501= 0 ));
#line 18352 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18352 "qb64pe.bas"
if(!qbevent)break;evnt(18352);}while(r);
#line 18353 "qb64pe.bas"
S_21052:;
#line 18353 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18353 "qb64pe.bas"
if(qbevent){evnt(18353);if(r)goto S_21052;}
#line 18353 "qb64pe.bas"
do{
#line 18353 "qb64pe.bas"
goto exit_subfunc;
#line 18353 "qb64pe.bas"
if(!qbevent)break;evnt(18353);}while(r);
#line 18353 "qb64pe.bas"
}
#line 18354 "qb64pe.bas"
do{
#line 18354 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18354 "qb64pe.bas"
if(!qbevent)break;evnt(18354);}while(r);
#line 18355 "qb64pe.bas"
S_21056:;
#line 18355 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18355 "qb64pe.bas"
if(qbevent){evnt(18355);if(r)goto S_21056;}
#line 18355 "qb64pe.bas"
do{
#line 18355 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18355 "qb64pe.bas"
if(!qbevent)break;evnt(18355);}while(r);
#line 18355 "qb64pe.bas"
}
#line 18356 "qb64pe.bas"
do{
#line 18356 "qb64pe.bas"
SUB_CLEARID();
#line 18356 "qb64pe.bas"
if(!qbevent)break;evnt(18356);}while(r);
#line 18358 "qb64pe.bas"
}else{
#line 18359 "qb64pe.bas"
do{
#line 18359 "qb64pe.bas"
SUB_CLEARID();
#line 18359 "qb64pe.bas"
if(!qbevent)break;evnt(18359);}while(r);
#line 18360 "qb64pe.bas"
S_21062:;
#line 18360 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18360 "qb64pe.bas"
if(qbevent){evnt(18360);if(r)goto S_21062;}
#line 18361 "qb64pe.bas"
do{
#line 18361 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18361 "qb64pe.bas"
if(!qbevent)break;evnt(18361);}while(r);
#line 18362 "qb64pe.bas"
do{
#line 18362 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18362 "qb64pe.bas"
if(!qbevent)break;evnt(18362);}while(r);
#line 18363 "qb64pe.bas"
do{
#line 18363 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18363 "qb64pe.bas"
if(!qbevent)break;evnt(18363);}while(r);
#line 18364 "qb64pe.bas"
}else{
#line 18365 "qb64pe.bas"
do{
#line 18365 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18365 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18365 "qb64pe.bas"
if(!qbevent)break;evnt(18365);}while(r);
#line 18366 "qb64pe.bas"
}
#line 18367 "qb64pe.bas"
}
#line 18370 "qb64pe.bas"
do{
#line 18370 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGERTYPE;
#line 18370 "qb64pe.bas"
if(!qbevent)break;evnt(18370);}while(r);
#line 18370 "qb64pe.bas"
S_21071:;
#line 18370 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18370 "qb64pe.bas"
if(qbevent){evnt(18370);if(r)goto S_21071;}
#line 18370 "qb64pe.bas"
do{
#line 18370 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18370 "qb64pe.bas"
if(!qbevent)break;evnt(18370);}while(r);
#line 18370 "qb64pe.bas"
}
#line 18371 "qb64pe.bas"
S_21074:;
#line 18371 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18371 "qb64pe.bas"
if(qbevent){evnt(18371);if(r)goto S_21074;}
#line 18371 "qb64pe.bas"
do{
#line 18371 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18371 "qb64pe.bas"
if(!qbevent)break;evnt(18371);}while(r);
#line 18371 "qb64pe.bas"
}
#line 18372 "qb64pe.bas"
S_21077:;
#line 18372 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18372 "qb64pe.bas"
if(qbevent){evnt(18372);if(r)goto S_21077;}
#line 18372 "qb64pe.bas"
do{
#line 18372 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18372 "qb64pe.bas"
if(!qbevent)break;evnt(18372);}while(r);
#line 18372 "qb64pe.bas"
do{
#line 18372 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18372 "qb64pe.bas"
if(!qbevent)break;evnt(18372);}while(r);
#line 18372 "qb64pe.bas"
}
#line 18374 "qb64pe.bas"
do{
#line 18374 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18374 "qb64pe.bas"
if(!qbevent)break;evnt(18374);}while(r);
#line 18375 "qb64pe.bas"
do{
#line 18375 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18375 "qb64pe.bas"
if(!qbevent)break;evnt(18375);}while(r);
#line 18376 "qb64pe.bas"
}else{
#line 18377 "qb64pe.bas"
do{
#line 18377 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18377 "qb64pe.bas"
if(!qbevent)break;evnt(18377);}while(r);
#line 18378 "qb64pe.bas"
do{
#line 18378 "qb64pe.bas"
SUB_CLEARID();
#line 18378 "qb64pe.bas"
if(!qbevent)break;evnt(18378);}while(r);
#line 18379 "qb64pe.bas"
do{
#line 18379 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_INTEGERTYPE;
#line 18379 "qb64pe.bas"
if(!qbevent)break;evnt(18379);}while(r);
#line 18379 "qb64pe.bas"
S_21087:;
#line 18379 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18379 "qb64pe.bas"
if(qbevent){evnt(18379);if(r)goto S_21087;}
#line 18379 "qb64pe.bas"
do{
#line 18379 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18379 "qb64pe.bas"
if(!qbevent)break;evnt(18379);}while(r);
#line 18379 "qb64pe.bas"
}
#line 18380 "qb64pe.bas"
S_21090:;
#line 18380 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18380 "qb64pe.bas"
if(qbevent){evnt(18380);if(r)goto S_21090;}
#line 18380 "qb64pe.bas"
do{
#line 18380 "qb64pe.bas"
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)));
#line 18380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18380 "qb64pe.bas"
if(!qbevent)break;evnt(18380);}while(r);
#line 18380 "qb64pe.bas"
}
#line 18381 "qb64pe.bas"
S_21093:;
#line 18381 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18381 "qb64pe.bas"
if(qbevent){evnt(18381);if(r)goto S_21093;}
#line 18381 "qb64pe.bas"
do{
#line 18381 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18381 "qb64pe.bas"
if(!qbevent)break;evnt(18381);}while(r);
#line 18381 "qb64pe.bas"
}
#line 18382 "qb64pe.bas"
S_21096:;
#line 18382 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18382 "qb64pe.bas"
if(qbevent){evnt(18382);if(r)goto S_21096;}
#line 18383 "qb64pe.bas"
do{
#line 18383 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18383 "qb64pe.bas"
if(!qbevent)break;evnt(18383);}while(r);
#line 18384 "qb64pe.bas"
S_21098:;
#line 18384 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18384 "qb64pe.bas"
if(qbevent){evnt(18384);if(r)goto S_21098;}
#line 18384 "qb64pe.bas"
do{
#line 18384 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=2;",11));
#line 18384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18384 "qb64pe.bas"
if(!qbevent)break;evnt(18384);}while(r);
#line 18384 "qb64pe.bas"
}
#line 18385 "qb64pe.bas"
S_21101:;
#line 18385 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18385 "qb64pe.bas"
if(qbevent){evnt(18385);if(r)goto S_21101;}
#line 18385 "qb64pe.bas"
do{
#line 18385 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18385 "qb64pe.bas"
if(!qbevent)break;evnt(18385);}while(r);
#line 18385 "qb64pe.bas"
}
#line 18386 "qb64pe.bas"
S_21104:;
#line 18386 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18386 "qb64pe.bas"
if(qbevent){evnt(18386);if(r)goto S_21104;}
#line 18386 "qb64pe.bas"
do{
#line 18386 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18386 "qb64pe.bas"
if(!qbevent)break;evnt(18386);}while(r);
#line 18386 "qb64pe.bas"
}
#line 18387 "qb64pe.bas"
}else{
#line 18388 "qb64pe.bas"
S_21108:;
#line 18388 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18388 "qb64pe.bas"
if(qbevent){evnt(18388);if(r)goto S_21108;}
#line 18388 "qb64pe.bas"
do{
#line 18388 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18388 "qb64pe.bas"
if(!qbevent)break;evnt(18388);}while(r);
#line 18388 "qb64pe.bas"
}
#line 18389 "qb64pe.bas"
}
#line 18390 "qb64pe.bas"
S_21112:;
#line 18390 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18390 "qb64pe.bas"
if(qbevent){evnt(18390);if(r)goto S_21112;}
#line 18390 "qb64pe.bas"
do{
#line 18390 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18390 "qb64pe.bas"
if(!qbevent)break;evnt(18390);}while(r);
#line 18390 "qb64pe.bas"
}
#line 18391 "qb64pe.bas"
S_21115:;
#line 18391 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18391 "qb64pe.bas"
if(qbevent){evnt(18391);if(r)goto S_21115;}
#line 18391 "qb64pe.bas"
do{
#line 18391 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18391 "qb64pe.bas"
if(!qbevent)break;evnt(18391);}while(r);
#line 18391 "qb64pe.bas"
}
#line 18392 "qb64pe.bas"
}
#line 18393 "qb64pe.bas"
do{
#line 18393 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18393 "qb64pe.bas"
if(!qbevent)break;evnt(18393);}while(r);
#line 18394 "qb64pe.bas"
S_21120:;
#line 18394 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18394 "qb64pe.bas"
if(qbevent){evnt(18394);if(r)goto S_21120;}
#line 18395 "qb64pe.bas"
S_21121:;
#line 18395 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18395 "qb64pe.bas"
if(qbevent){evnt(18395);if(r)goto S_21121;}
#line 18395 "qb64pe.bas"
do{
#line 18395 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%",2));
#line 18395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18395 "qb64pe.bas"
if(!qbevent)break;evnt(18395);}while(r);
#line 18395 "qb64pe.bas"
}else{
#line 18395 "qb64pe.bas"
do{
#line 18395 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%",1));
#line 18395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18395 "qb64pe.bas"
if(!qbevent)break;evnt(18395);}while(r);
#line 18395 "qb64pe.bas"
}
#line 18396 "qb64pe.bas"
}
#line 18397 "qb64pe.bas"
S_21127:;
#line 18397 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18397 "qb64pe.bas"
if(qbevent){evnt(18397);if(r)goto S_21127;}
#line 18398 "qb64pe.bas"
S_21128:;
#line 18398 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18398 "qb64pe.bas"
if(qbevent){evnt(18398);if(r)goto S_21128;}
#line 18398 "qb64pe.bas"
do{
#line 18398 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%",2));
#line 18398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18398 "qb64pe.bas"
if(!qbevent)break;evnt(18398);}while(r);
#line 18398 "qb64pe.bas"
}else{
#line 18398 "qb64pe.bas"
do{
#line 18398 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%",1));
#line 18398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18398 "qb64pe.bas"
if(!qbevent)break;evnt(18398);}while(r);
#line 18398 "qb64pe.bas"
}
#line 18399 "qb64pe.bas"
}
#line 18400 "qb64pe.bas"
do{
#line 18400 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18400 "qb64pe.bas"
if(!qbevent)break;evnt(18400);}while(r);
#line 18401 "qb64pe.bas"
do{
#line 18401 "qb64pe.bas"
SUB_REGID();
#line 18401 "qb64pe.bas"
if(!qbevent)break;evnt(18401);}while(r);
#line 18402 "qb64pe.bas"
do{
#line 18402 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2502= 0 ));
#line 18402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18402 "qb64pe.bas"
if(!qbevent)break;evnt(18402);}while(r);
#line 18403 "qb64pe.bas"
S_21137:;
#line 18403 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18403 "qb64pe.bas"
if(qbevent){evnt(18403);if(r)goto S_21137;}
#line 18403 "qb64pe.bas"
do{
#line 18403 "qb64pe.bas"
goto exit_subfunc;
#line 18403 "qb64pe.bas"
if(!qbevent)break;evnt(18403);}while(r);
#line 18403 "qb64pe.bas"
}
#line 18404 "qb64pe.bas"
do{
#line 18404 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18404 "qb64pe.bas"
if(!qbevent)break;evnt(18404);}while(r);
#line 18405 "qb64pe.bas"
}
#line 18414 "qb64pe.bas"
S_21142:;
#line 18414 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
#line 18414 "qb64pe.bas"
if(qbevent){evnt(18414);if(r)goto S_21142;}
#line 18415 "qb64pe.bas"
do{
#line 18415 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("ptrszint",8));
#line 18415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18415 "qb64pe.bas"
if(!qbevent)break;evnt(18415);}while(r);
#line 18416 "qb64pe.bas"
S_21144:;
#line 18416 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18416 "qb64pe.bas"
if(qbevent){evnt(18416);if(r)goto S_21144;}
#line 18416 "qb64pe.bas"
do{
#line 18416 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18416 "qb64pe.bas"
if(!qbevent)break;evnt(18416);}while(r);
#line 18416 "qb64pe.bas"
do{
#line 18416 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18416 "qb64pe.bas"
if(!qbevent)break;evnt(18416);}while(r);
#line 18416 "qb64pe.bas"
}
#line 18417 "qb64pe.bas"
do{
#line 18417 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("OFFSET_",7)),_FUNC_DIM2_STRING_VARNAME));
#line 18417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18417 "qb64pe.bas"
if(!qbevent)break;evnt(18417);}while(r);
#line 18418 "qb64pe.bas"
S_21149:;
#line 18418 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18418 "qb64pe.bas"
if(qbevent){evnt(18418);if(r)goto S_21149;}
#line 18419 "qb64pe.bas"
do{
#line 18419 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18419 "qb64pe.bas"
if(!qbevent)break;evnt(18419);}while(r);
#line 18420 "qb64pe.bas"
do{
#line 18420 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18420 "qb64pe.bas"
if(!qbevent)break;evnt(18420);}while(r);
#line 18420 "qb64pe.bas"
S_21152:;
#line 18420 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18420 "qb64pe.bas"
if(qbevent){evnt(18420);if(r)goto S_21152;}
#line 18420 "qb64pe.bas"
do{
#line 18420 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18420 "qb64pe.bas"
if(!qbevent)break;evnt(18420);}while(r);
#line 18420 "qb64pe.bas"
}
#line 18421 "qb64pe.bas"
do{
#line 18421 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("%&",2)));
#line 18421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18421 "qb64pe.bas"
if(!qbevent)break;evnt(18421);}while(r);
#line 18422 "qb64pe.bas"
S_21156:;
#line 18422 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18422 "qb64pe.bas"
if(qbevent){evnt(18422);if(r)goto S_21156;}
#line 18423 "qb64pe.bas"
do{
#line 18423 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18423 "qb64pe.bas"
if(!qbevent)break;evnt(18423);}while(r);
#line 18424 "qb64pe.bas"
S_21158:;
#line 18424 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18424 "qb64pe.bas"
if(qbevent){evnt(18424);if(r)goto S_21158;}
#line 18424 "qb64pe.bas"
do{
#line 18424 "qb64pe.bas"
goto exit_subfunc;
#line 18424 "qb64pe.bas"
if(!qbevent)break;evnt(18424);}while(r);
#line 18424 "qb64pe.bas"
}
#line 18425 "qb64pe.bas"
S_21161:;
#line 18425 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18425 "qb64pe.bas"
if(qbevent){evnt(18425);if(r)goto S_21161;}
#line 18426 "qb64pe.bas"
S_21162:;
#line 18426 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18426 "qb64pe.bas"
if(qbevent){evnt(18426);if(r)goto S_21162;}
#line 18427 "qb64pe.bas"
do{
#line 18427 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18427 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18427 "qb64pe.bas"
if(!qbevent)break;evnt(18427);}while(r);
#line 18428 "qb64pe.bas"
do{
#line 18428 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18428 "qb64pe.bas"
if(!qbevent)break;evnt(18428);}while(r);
#line 18428 "qb64pe.bas"
do{
#line 18428 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18428 "qb64pe.bas"
if(!qbevent)break;evnt(18428);}while(r);
#line 18429 "qb64pe.bas"
do{
#line 18429 "qb64pe.bas"
goto dl_exit_2503;
#line 18429 "qb64pe.bas"
if(!qbevent)break;evnt(18429);}while(r);
#line 18430 "qb64pe.bas"
}
#line 18431 "qb64pe.bas"
S_21168:;
#line 18431 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18431 "qb64pe.bas"
if(qbevent){evnt(18431);if(r)goto S_21168;}
#line 18431 "qb64pe.bas"
do{
#line 18431 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18431 "qb64pe.bas"
if(!qbevent)break;evnt(18431);}while(r);
#line 18431 "qb64pe.bas"
do{
#line 18431 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18431 "qb64pe.bas"
if(!qbevent)break;evnt(18431);}while(r);
#line 18431 "qb64pe.bas"
}else{
#line 18431 "qb64pe.bas"
do{
#line 18431 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18431 "qb64pe.bas"
if(!qbevent)break;evnt(18431);}while(r);
#line 18431 "qb64pe.bas"
}
#line 18432 "qb64pe.bas"
S_21174:;
#line 18432 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18432 "qb64pe.bas"
if(qbevent){evnt(18432);if(r)goto S_21174;}
#line 18432 "qb64pe.bas"
do{
#line 18432 "qb64pe.bas"
goto exit_subfunc;
#line 18432 "qb64pe.bas"
if(!qbevent)break;evnt(18432);}while(r);
#line 18432 "qb64pe.bas"
}
#line 18433 "qb64pe.bas"
dl_continue_2503:;
#line 18433 "qb64pe.bas"
}
#line 18433 "qb64pe.bas"
dl_exit_2503:;
#line 18434 "qb64pe.bas"
}
#line 18435 "qb64pe.bas"
do{
#line 18435 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18435 "qb64pe.bas"
if(!qbevent)break;evnt(18435);}while(r);
#line 18437 "qb64pe.bas"
S_21180:;
#line 18437 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18437 "qb64pe.bas"
if(qbevent){evnt(18437);if(r)goto S_21180;}
#line 18439 "qb64pe.bas"
S_21181:;
#line 18439 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18439 "qb64pe.bas"
if(qbevent){evnt(18439);if(r)goto S_21181;}
#line 18440 "qb64pe.bas"
do{
#line 18440 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18440 "qb64pe.bas"
if(!qbevent)break;evnt(18440);}while(r);
#line 18440 "qb64pe.bas"
S_21183:;
#line 18440 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18440 "qb64pe.bas"
if(qbevent){evnt(18440);if(r)goto S_21183;}
#line 18440 "qb64pe.bas"
do{
#line 18440 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18440 "qb64pe.bas"
if(!qbevent)break;evnt(18440);}while(r);
#line 18440 "qb64pe.bas"
}
#line 18441 "qb64pe.bas"
}
#line 18442 "qb64pe.bas"
do{
#line 18442 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2505=qb_safe_idiv(*__LONG_TARGET_BITS, 8 )),&(pass2506= 0 ));
#line 18442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18442 "qb64pe.bas"
if(!qbevent)break;evnt(18442);}while(r);
#line 18443 "qb64pe.bas"
S_21188:;
#line 18443 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18443 "qb64pe.bas"
if(qbevent){evnt(18443);if(r)goto S_21188;}
#line 18443 "qb64pe.bas"
do{
#line 18443 "qb64pe.bas"
goto exit_subfunc;
#line 18443 "qb64pe.bas"
if(!qbevent)break;evnt(18443);}while(r);
#line 18443 "qb64pe.bas"
}
#line 18444 "qb64pe.bas"
do{
#line 18444 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18444 "qb64pe.bas"
if(!qbevent)break;evnt(18444);}while(r);
#line 18445 "qb64pe.bas"
S_21192:;
#line 18445 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18445 "qb64pe.bas"
if(qbevent){evnt(18445);if(r)goto S_21192;}
#line 18445 "qb64pe.bas"
do{
#line 18445 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18445 "qb64pe.bas"
if(!qbevent)break;evnt(18445);}while(r);
#line 18445 "qb64pe.bas"
}
#line 18446 "qb64pe.bas"
do{
#line 18446 "qb64pe.bas"
SUB_CLEARID();
#line 18446 "qb64pe.bas"
if(!qbevent)break;evnt(18446);}while(r);
#line 18448 "qb64pe.bas"
}else{
#line 18449 "qb64pe.bas"
do{
#line 18449 "qb64pe.bas"
SUB_CLEARID();
#line 18449 "qb64pe.bas"
if(!qbevent)break;evnt(18449);}while(r);
#line 18450 "qb64pe.bas"
S_21198:;
#line 18450 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18450 "qb64pe.bas"
if(qbevent){evnt(18450);if(r)goto S_21198;}
#line 18451 "qb64pe.bas"
do{
#line 18451 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18451 "qb64pe.bas"
if(!qbevent)break;evnt(18451);}while(r);
#line 18452 "qb64pe.bas"
do{
#line 18452 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18452 "qb64pe.bas"
if(!qbevent)break;evnt(18452);}while(r);
#line 18453 "qb64pe.bas"
do{
#line 18453 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18453 "qb64pe.bas"
if(!qbevent)break;evnt(18453);}while(r);
#line 18454 "qb64pe.bas"
}else{
#line 18455 "qb64pe.bas"
do{
#line 18455 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18455 "qb64pe.bas"
if(!qbevent)break;evnt(18455);}while(r);
#line 18456 "qb64pe.bas"
}
#line 18457 "qb64pe.bas"
}
#line 18459 "qb64pe.bas"
do{
#line 18459 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_OFFSETTYPE;
#line 18459 "qb64pe.bas"
if(!qbevent)break;evnt(18459);}while(r);
#line 18459 "qb64pe.bas"
S_21207:;
#line 18459 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18459 "qb64pe.bas"
if(qbevent){evnt(18459);if(r)goto S_21207;}
#line 18459 "qb64pe.bas"
do{
#line 18459 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18459 "qb64pe.bas"
if(!qbevent)break;evnt(18459);}while(r);
#line 18459 "qb64pe.bas"
}
#line 18460 "qb64pe.bas"
S_21210:;
#line 18460 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18460 "qb64pe.bas"
if(qbevent){evnt(18460);if(r)goto S_21210;}
#line 18460 "qb64pe.bas"
do{
#line 18460 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18460 "qb64pe.bas"
if(!qbevent)break;evnt(18460);}while(r);
#line 18460 "qb64pe.bas"
}
#line 18461 "qb64pe.bas"
S_21213:;
#line 18461 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18461 "qb64pe.bas"
if(qbevent){evnt(18461);if(r)goto S_21213;}
#line 18461 "qb64pe.bas"
do{
#line 18461 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18461 "qb64pe.bas"
if(!qbevent)break;evnt(18461);}while(r);
#line 18461 "qb64pe.bas"
do{
#line 18461 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18461 "qb64pe.bas"
if(!qbevent)break;evnt(18461);}while(r);
#line 18461 "qb64pe.bas"
}
#line 18463 "qb64pe.bas"
do{
#line 18463 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18463 "qb64pe.bas"
if(!qbevent)break;evnt(18463);}while(r);
#line 18464 "qb64pe.bas"
do{
#line 18464 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18464 "qb64pe.bas"
if(!qbevent)break;evnt(18464);}while(r);
#line 18465 "qb64pe.bas"
}else{
#line 18466 "qb64pe.bas"
do{
#line 18466 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18466 "qb64pe.bas"
if(!qbevent)break;evnt(18466);}while(r);
#line 18467 "qb64pe.bas"
do{
#line 18467 "qb64pe.bas"
SUB_CLEARID();
#line 18467 "qb64pe.bas"
if(!qbevent)break;evnt(18467);}while(r);
#line 18468 "qb64pe.bas"
do{
#line 18468 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_OFFSETTYPE;
#line 18468 "qb64pe.bas"
if(!qbevent)break;evnt(18468);}while(r);
#line 18468 "qb64pe.bas"
S_21223:;
#line 18468 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18468 "qb64pe.bas"
if(qbevent){evnt(18468);if(r)goto S_21223;}
#line 18468 "qb64pe.bas"
do{
#line 18468 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18468 "qb64pe.bas"
if(!qbevent)break;evnt(18468);}while(r);
#line 18468 "qb64pe.bas"
}
#line 18469 "qb64pe.bas"
S_21226:;
#line 18469 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18469 "qb64pe.bas"
if(qbevent){evnt(18469);if(r)goto S_21226;}
#line 18469 "qb64pe.bas"
do{
#line 18469 "qb64pe.bas"
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)));
#line 18469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18469 "qb64pe.bas"
if(!qbevent)break;evnt(18469);}while(r);
#line 18469 "qb64pe.bas"
}
#line 18470 "qb64pe.bas"
S_21229:;
#line 18470 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18470 "qb64pe.bas"
if(qbevent){evnt(18470);if(r)goto S_21229;}
#line 18470 "qb64pe.bas"
do{
#line 18470 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18470 "qb64pe.bas"
if(!qbevent)break;evnt(18470);}while(r);
#line 18470 "qb64pe.bas"
}
#line 18471 "qb64pe.bas"
S_21232:;
#line 18471 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18471 "qb64pe.bas"
if(qbevent){evnt(18471);if(r)goto S_21232;}
#line 18472 "qb64pe.bas"
do{
#line 18472 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18472 "qb64pe.bas"
if(!qbevent)break;evnt(18472);}while(r);
#line 18473 "qb64pe.bas"
S_21234:;
#line 18473 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18473 "qb64pe.bas"
if(qbevent){evnt(18473);if(r)goto S_21234;}
#line 18473 "qb64pe.bas"
do{
#line 18473 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int64)(qb_safe_idiv(*__LONG_TARGET_BITS, 8 )),NULL,0)),qbs_new_txt_len(";",1)));
#line 18473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18473 "qb64pe.bas"
if(!qbevent)break;evnt(18473);}while(r);
#line 18473 "qb64pe.bas"
}
#line 18474 "qb64pe.bas"
S_21237:;
#line 18474 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18474 "qb64pe.bas"
if(qbevent){evnt(18474);if(r)goto S_21237;}
#line 18474 "qb64pe.bas"
do{
#line 18474 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18474 "qb64pe.bas"
if(!qbevent)break;evnt(18474);}while(r);
#line 18474 "qb64pe.bas"
}
#line 18475 "qb64pe.bas"
S_21240:;
#line 18475 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18475 "qb64pe.bas"
if(qbevent){evnt(18475);if(r)goto S_21240;}
#line 18475 "qb64pe.bas"
do{
#line 18475 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18475 "qb64pe.bas"
if(!qbevent)break;evnt(18475);}while(r);
#line 18475 "qb64pe.bas"
}
#line 18476 "qb64pe.bas"
}else{
#line 18477 "qb64pe.bas"
S_21244:;
#line 18477 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18477 "qb64pe.bas"
if(qbevent){evnt(18477);if(r)goto S_21244;}
#line 18477 "qb64pe.bas"
do{
#line 18477 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)(qb_safe_idiv(*__LONG_TARGET_BITS, 8 )),NULL,0)),qbs_new_txt_len(");",2)));
#line 18477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18477 "qb64pe.bas"
if(!qbevent)break;evnt(18477);}while(r);
#line 18477 "qb64pe.bas"
}
#line 18478 "qb64pe.bas"
}
#line 18479 "qb64pe.bas"
S_21248:;
#line 18479 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18479 "qb64pe.bas"
if(qbevent){evnt(18479);if(r)goto S_21248;}
#line 18479 "qb64pe.bas"
do{
#line 18479 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18479 "qb64pe.bas"
if(!qbevent)break;evnt(18479);}while(r);
#line 18479 "qb64pe.bas"
}
#line 18480 "qb64pe.bas"
S_21251:;
#line 18480 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18480 "qb64pe.bas"
if(qbevent){evnt(18480);if(r)goto S_21251;}
#line 18480 "qb64pe.bas"
do{
#line 18480 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18480 "qb64pe.bas"
if(!qbevent)break;evnt(18480);}while(r);
#line 18480 "qb64pe.bas"
}
#line 18481 "qb64pe.bas"
}
#line 18482 "qb64pe.bas"
do{
#line 18482 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18482 "qb64pe.bas"
if(!qbevent)break;evnt(18482);}while(r);
#line 18483 "qb64pe.bas"
S_21256:;
#line 18483 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18483 "qb64pe.bas"
if(qbevent){evnt(18483);if(r)goto S_21256;}
#line 18484 "qb64pe.bas"
S_21257:;
#line 18484 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18484 "qb64pe.bas"
if(qbevent){evnt(18484);if(r)goto S_21257;}
#line 18484 "qb64pe.bas"
do{
#line 18484 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~%&",3));
#line 18484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18484 "qb64pe.bas"
if(!qbevent)break;evnt(18484);}while(r);
#line 18484 "qb64pe.bas"
}else{
#line 18484 "qb64pe.bas"
do{
#line 18484 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("%&",2));
#line 18484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18484 "qb64pe.bas"
if(!qbevent)break;evnt(18484);}while(r);
#line 18484 "qb64pe.bas"
}
#line 18485 "qb64pe.bas"
}
#line 18486 "qb64pe.bas"
S_21263:;
#line 18486 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18486 "qb64pe.bas"
if(qbevent){evnt(18486);if(r)goto S_21263;}
#line 18487 "qb64pe.bas"
S_21264:;
#line 18487 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18487 "qb64pe.bas"
if(qbevent){evnt(18487);if(r)goto S_21264;}
#line 18487 "qb64pe.bas"
do{
#line 18487 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~%&",3));
#line 18487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18487 "qb64pe.bas"
if(!qbevent)break;evnt(18487);}while(r);
#line 18487 "qb64pe.bas"
}else{
#line 18487 "qb64pe.bas"
do{
#line 18487 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("%&",2));
#line 18487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18487 "qb64pe.bas"
if(!qbevent)break;evnt(18487);}while(r);
#line 18487 "qb64pe.bas"
}
#line 18488 "qb64pe.bas"
}
#line 18489 "qb64pe.bas"
do{
#line 18489 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18489 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18489 "qb64pe.bas"
if(!qbevent)break;evnt(18489);}while(r);
#line 18490 "qb64pe.bas"
do{
#line 18490 "qb64pe.bas"
SUB_REGID();
#line 18490 "qb64pe.bas"
if(!qbevent)break;evnt(18490);}while(r);
#line 18491 "qb64pe.bas"
do{
#line 18491 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2507= 0 ));
#line 18491 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18491 "qb64pe.bas"
if(!qbevent)break;evnt(18491);}while(r);
#line 18492 "qb64pe.bas"
S_21273:;
#line 18492 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18492 "qb64pe.bas"
if(qbevent){evnt(18492);if(r)goto S_21273;}
#line 18492 "qb64pe.bas"
do{
#line 18492 "qb64pe.bas"
goto exit_subfunc;
#line 18492 "qb64pe.bas"
if(!qbevent)break;evnt(18492);}while(r);
#line 18492 "qb64pe.bas"
}
#line 18493 "qb64pe.bas"
do{
#line 18493 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18493 "qb64pe.bas"
if(!qbevent)break;evnt(18493);}while(r);
#line 18494 "qb64pe.bas"
}
#line 18496 "qb64pe.bas"
S_21278:;
#line 18496 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("LONG",4))))||is_error_pending()){
#line 18496 "qb64pe.bas"
if(qbevent){evnt(18496);if(r)goto S_21278;}
#line 18497 "qb64pe.bas"
do{
#line 18497 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5));
#line 18497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18497 "qb64pe.bas"
if(!qbevent)break;evnt(18497);}while(r);
#line 18498 "qb64pe.bas"
S_21280:;
#line 18498 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18498 "qb64pe.bas"
if(qbevent){evnt(18498);if(r)goto S_21280;}
#line 18498 "qb64pe.bas"
do{
#line 18498 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18498 "qb64pe.bas"
if(!qbevent)break;evnt(18498);}while(r);
#line 18498 "qb64pe.bas"
do{
#line 18498 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18498 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18498 "qb64pe.bas"
if(!qbevent)break;evnt(18498);}while(r);
#line 18498 "qb64pe.bas"
}
#line 18499 "qb64pe.bas"
do{
#line 18499 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("LONG_",5)),_FUNC_DIM2_STRING_VARNAME));
#line 18499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18499 "qb64pe.bas"
if(!qbevent)break;evnt(18499);}while(r);
#line 18500 "qb64pe.bas"
S_21285:;
#line 18500 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18500 "qb64pe.bas"
if(qbevent){evnt(18500);if(r)goto S_21285;}
#line 18501 "qb64pe.bas"
do{
#line 18501 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18501 "qb64pe.bas"
if(!qbevent)break;evnt(18501);}while(r);
#line 18502 "qb64pe.bas"
do{
#line 18502 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18502 "qb64pe.bas"
if(!qbevent)break;evnt(18502);}while(r);
#line 18502 "qb64pe.bas"
S_21288:;
#line 18502 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18502 "qb64pe.bas"
if(qbevent){evnt(18502);if(r)goto S_21288;}
#line 18502 "qb64pe.bas"
do{
#line 18502 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18502 "qb64pe.bas"
if(!qbevent)break;evnt(18502);}while(r);
#line 18502 "qb64pe.bas"
}
#line 18503 "qb64pe.bas"
do{
#line 18503 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&",1)));
#line 18503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18503 "qb64pe.bas"
if(!qbevent)break;evnt(18503);}while(r);
#line 18504 "qb64pe.bas"
S_21292:;
#line 18504 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18504 "qb64pe.bas"
if(qbevent){evnt(18504);if(r)goto S_21292;}
#line 18505 "qb64pe.bas"
do{
#line 18505 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18505 "qb64pe.bas"
if(!qbevent)break;evnt(18505);}while(r);
#line 18506 "qb64pe.bas"
S_21294:;
#line 18506 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18506 "qb64pe.bas"
if(qbevent){evnt(18506);if(r)goto S_21294;}
#line 18506 "qb64pe.bas"
do{
#line 18506 "qb64pe.bas"
goto exit_subfunc;
#line 18506 "qb64pe.bas"
if(!qbevent)break;evnt(18506);}while(r);
#line 18506 "qb64pe.bas"
}
#line 18507 "qb64pe.bas"
S_21297:;
#line 18507 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18507 "qb64pe.bas"
if(qbevent){evnt(18507);if(r)goto S_21297;}
#line 18508 "qb64pe.bas"
S_21298:;
#line 18508 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18508 "qb64pe.bas"
if(qbevent){evnt(18508);if(r)goto S_21298;}
#line 18509 "qb64pe.bas"
do{
#line 18509 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18509 "qb64pe.bas"
if(!qbevent)break;evnt(18509);}while(r);
#line 18510 "qb64pe.bas"
do{
#line 18510 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18510 "qb64pe.bas"
if(!qbevent)break;evnt(18510);}while(r);
#line 18510 "qb64pe.bas"
do{
#line 18510 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18510 "qb64pe.bas"
if(!qbevent)break;evnt(18510);}while(r);
#line 18511 "qb64pe.bas"
do{
#line 18511 "qb64pe.bas"
goto dl_exit_2508;
#line 18511 "qb64pe.bas"
if(!qbevent)break;evnt(18511);}while(r);
#line 18512 "qb64pe.bas"
}
#line 18513 "qb64pe.bas"
S_21304:;
#line 18513 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18513 "qb64pe.bas"
if(qbevent){evnt(18513);if(r)goto S_21304;}
#line 18513 "qb64pe.bas"
do{
#line 18513 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18513 "qb64pe.bas"
if(!qbevent)break;evnt(18513);}while(r);
#line 18513 "qb64pe.bas"
do{
#line 18513 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18513 "qb64pe.bas"
if(!qbevent)break;evnt(18513);}while(r);
#line 18513 "qb64pe.bas"
}else{
#line 18513 "qb64pe.bas"
do{
#line 18513 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18513 "qb64pe.bas"
if(!qbevent)break;evnt(18513);}while(r);
#line 18513 "qb64pe.bas"
}
#line 18514 "qb64pe.bas"
S_21310:;
#line 18514 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18514 "qb64pe.bas"
if(qbevent){evnt(18514);if(r)goto S_21310;}
#line 18514 "qb64pe.bas"
do{
#line 18514 "qb64pe.bas"
goto exit_subfunc;
#line 18514 "qb64pe.bas"
if(!qbevent)break;evnt(18514);}while(r);
#line 18514 "qb64pe.bas"
}
#line 18515 "qb64pe.bas"
dl_continue_2508:;
#line 18515 "qb64pe.bas"
}
#line 18515 "qb64pe.bas"
dl_exit_2508:;
#line 18516 "qb64pe.bas"
}
#line 18517 "qb64pe.bas"
do{
#line 18517 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18517 "qb64pe.bas"
if(!qbevent)break;evnt(18517);}while(r);
#line 18523 "qb64pe.bas"
S_21316:;
#line 18523 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18523 "qb64pe.bas"
if(qbevent){evnt(18523);if(r)goto S_21316;}
#line 18525 "qb64pe.bas"
S_21317:;
#line 18525 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18525 "qb64pe.bas"
if(qbevent){evnt(18525);if(r)goto S_21317;}
#line 18526 "qb64pe.bas"
do{
#line 18526 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18526 "qb64pe.bas"
if(!qbevent)break;evnt(18526);}while(r);
#line 18526 "qb64pe.bas"
S_21319:;
#line 18526 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18526 "qb64pe.bas"
if(qbevent){evnt(18526);if(r)goto S_21319;}
#line 18526 "qb64pe.bas"
do{
#line 18526 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18526 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18526 "qb64pe.bas"
if(!qbevent)break;evnt(18526);}while(r);
#line 18526 "qb64pe.bas"
}
#line 18527 "qb64pe.bas"
}
#line 18528 "qb64pe.bas"
do{
#line 18528 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2510= 4 ),&(pass2511= 0 ));
#line 18528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18528 "qb64pe.bas"
if(!qbevent)break;evnt(18528);}while(r);
#line 18529 "qb64pe.bas"
S_21324:;
#line 18529 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18529 "qb64pe.bas"
if(qbevent){evnt(18529);if(r)goto S_21324;}
#line 18529 "qb64pe.bas"
do{
#line 18529 "qb64pe.bas"
goto exit_subfunc;
#line 18529 "qb64pe.bas"
if(!qbevent)break;evnt(18529);}while(r);
#line 18529 "qb64pe.bas"
}
#line 18530 "qb64pe.bas"
do{
#line 18530 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18530 "qb64pe.bas"
if(!qbevent)break;evnt(18530);}while(r);
#line 18531 "qb64pe.bas"
S_21328:;
#line 18531 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18531 "qb64pe.bas"
if(qbevent){evnt(18531);if(r)goto S_21328;}
#line 18531 "qb64pe.bas"
do{
#line 18531 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18531 "qb64pe.bas"
if(!qbevent)break;evnt(18531);}while(r);
#line 18531 "qb64pe.bas"
}
#line 18532 "qb64pe.bas"
do{
#line 18532 "qb64pe.bas"
SUB_CLEARID();
#line 18532 "qb64pe.bas"
if(!qbevent)break;evnt(18532);}while(r);
#line 18534 "qb64pe.bas"
}else{
#line 18535 "qb64pe.bas"
do{
#line 18535 "qb64pe.bas"
SUB_CLEARID();
#line 18535 "qb64pe.bas"
if(!qbevent)break;evnt(18535);}while(r);
#line 18536 "qb64pe.bas"
S_21334:;
#line 18536 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18536 "qb64pe.bas"
if(qbevent){evnt(18536);if(r)goto S_21334;}
#line 18537 "qb64pe.bas"
do{
#line 18537 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18537 "qb64pe.bas"
if(!qbevent)break;evnt(18537);}while(r);
#line 18538 "qb64pe.bas"
do{
#line 18538 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18538 "qb64pe.bas"
if(!qbevent)break;evnt(18538);}while(r);
#line 18539 "qb64pe.bas"
do{
#line 18539 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18539 "qb64pe.bas"
if(!qbevent)break;evnt(18539);}while(r);
#line 18540 "qb64pe.bas"
}else{
#line 18541 "qb64pe.bas"
do{
#line 18541 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18541 "qb64pe.bas"
if(!qbevent)break;evnt(18541);}while(r);
#line 18542 "qb64pe.bas"
}
#line 18543 "qb64pe.bas"
}
#line 18545 "qb64pe.bas"
do{
#line 18545 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_LONGTYPE;
#line 18545 "qb64pe.bas"
if(!qbevent)break;evnt(18545);}while(r);
#line 18545 "qb64pe.bas"
S_21343:;
#line 18545 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18545 "qb64pe.bas"
if(qbevent){evnt(18545);if(r)goto S_21343;}
#line 18545 "qb64pe.bas"
do{
#line 18545 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18545 "qb64pe.bas"
if(!qbevent)break;evnt(18545);}while(r);
#line 18545 "qb64pe.bas"
}
#line 18546 "qb64pe.bas"
S_21346:;
#line 18546 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18546 "qb64pe.bas"
if(qbevent){evnt(18546);if(r)goto S_21346;}
#line 18546 "qb64pe.bas"
do{
#line 18546 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18546 "qb64pe.bas"
if(!qbevent)break;evnt(18546);}while(r);
#line 18546 "qb64pe.bas"
}
#line 18547 "qb64pe.bas"
S_21349:;
#line 18547 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18547 "qb64pe.bas"
if(qbevent){evnt(18547);if(r)goto S_21349;}
#line 18547 "qb64pe.bas"
do{
#line 18547 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18547 "qb64pe.bas"
if(!qbevent)break;evnt(18547);}while(r);
#line 18547 "qb64pe.bas"
do{
#line 18547 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18547 "qb64pe.bas"
if(!qbevent)break;evnt(18547);}while(r);
#line 18547 "qb64pe.bas"
}
#line 18549 "qb64pe.bas"
do{
#line 18549 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18549 "qb64pe.bas"
if(!qbevent)break;evnt(18549);}while(r);
#line 18550 "qb64pe.bas"
do{
#line 18550 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18550 "qb64pe.bas"
if(!qbevent)break;evnt(18550);}while(r);
#line 18551 "qb64pe.bas"
}else{
#line 18552 "qb64pe.bas"
do{
#line 18552 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18552 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18552 "qb64pe.bas"
if(!qbevent)break;evnt(18552);}while(r);
#line 18553 "qb64pe.bas"
do{
#line 18553 "qb64pe.bas"
SUB_CLEARID();
#line 18553 "qb64pe.bas"
if(!qbevent)break;evnt(18553);}while(r);
#line 18554 "qb64pe.bas"
do{
#line 18554 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_LONGTYPE;
#line 18554 "qb64pe.bas"
if(!qbevent)break;evnt(18554);}while(r);
#line 18554 "qb64pe.bas"
S_21359:;
#line 18554 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18554 "qb64pe.bas"
if(qbevent){evnt(18554);if(r)goto S_21359;}
#line 18554 "qb64pe.bas"
do{
#line 18554 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18554 "qb64pe.bas"
if(!qbevent)break;evnt(18554);}while(r);
#line 18554 "qb64pe.bas"
}
#line 18555 "qb64pe.bas"
S_21362:;
#line 18555 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18555 "qb64pe.bas"
if(qbevent){evnt(18555);if(r)goto S_21362;}
#line 18555 "qb64pe.bas"
do{
#line 18555 "qb64pe.bas"
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)));
#line 18555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18555 "qb64pe.bas"
if(!qbevent)break;evnt(18555);}while(r);
#line 18555 "qb64pe.bas"
}
#line 18556 "qb64pe.bas"
S_21365:;
#line 18556 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18556 "qb64pe.bas"
if(qbevent){evnt(18556);if(r)goto S_21365;}
#line 18556 "qb64pe.bas"
do{
#line 18556 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18556 "qb64pe.bas"
if(!qbevent)break;evnt(18556);}while(r);
#line 18556 "qb64pe.bas"
}
#line 18557 "qb64pe.bas"
S_21368:;
#line 18557 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18557 "qb64pe.bas"
if(qbevent){evnt(18557);if(r)goto S_21368;}
#line 18558 "qb64pe.bas"
do{
#line 18558 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18558 "qb64pe.bas"
if(!qbevent)break;evnt(18558);}while(r);
#line 18559 "qb64pe.bas"
S_21370:;
#line 18559 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18559 "qb64pe.bas"
if(qbevent){evnt(18559);if(r)goto S_21370;}
#line 18559 "qb64pe.bas"
do{
#line 18559 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=4;",11));
#line 18559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18559 "qb64pe.bas"
if(!qbevent)break;evnt(18559);}while(r);
#line 18559 "qb64pe.bas"
}
#line 18560 "qb64pe.bas"
S_21373:;
#line 18560 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18560 "qb64pe.bas"
if(qbevent){evnt(18560);if(r)goto S_21373;}
#line 18560 "qb64pe.bas"
do{
#line 18560 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18560 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18560 "qb64pe.bas"
if(!qbevent)break;evnt(18560);}while(r);
#line 18560 "qb64pe.bas"
}
#line 18561 "qb64pe.bas"
S_21376:;
#line 18561 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18561 "qb64pe.bas"
if(qbevent){evnt(18561);if(r)goto S_21376;}
#line 18561 "qb64pe.bas"
do{
#line 18561 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18561 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18561 "qb64pe.bas"
if(!qbevent)break;evnt(18561);}while(r);
#line 18561 "qb64pe.bas"
}
#line 18562 "qb64pe.bas"
}else{
#line 18563 "qb64pe.bas"
S_21380:;
#line 18563 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18563 "qb64pe.bas"
if(qbevent){evnt(18563);if(r)goto S_21380;}
#line 18563 "qb64pe.bas"
do{
#line 18563 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18563 "qb64pe.bas"
if(!qbevent)break;evnt(18563);}while(r);
#line 18563 "qb64pe.bas"
}
#line 18564 "qb64pe.bas"
}
#line 18565 "qb64pe.bas"
S_21384:;
#line 18565 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18565 "qb64pe.bas"
if(qbevent){evnt(18565);if(r)goto S_21384;}
#line 18565 "qb64pe.bas"
do{
#line 18565 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18565 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18565 "qb64pe.bas"
if(!qbevent)break;evnt(18565);}while(r);
#line 18565 "qb64pe.bas"
}
#line 18566 "qb64pe.bas"
S_21387:;
#line 18566 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18566 "qb64pe.bas"
if(qbevent){evnt(18566);if(r)goto S_21387;}
#line 18566 "qb64pe.bas"
do{
#line 18566 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18566 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18566 "qb64pe.bas"
if(!qbevent)break;evnt(18566);}while(r);
#line 18566 "qb64pe.bas"
}
#line 18567 "qb64pe.bas"
}
#line 18568 "qb64pe.bas"
do{
#line 18568 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18568 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18568 "qb64pe.bas"
if(!qbevent)break;evnt(18568);}while(r);
#line 18569 "qb64pe.bas"
S_21392:;
#line 18569 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18569 "qb64pe.bas"
if(qbevent){evnt(18569);if(r)goto S_21392;}
#line 18570 "qb64pe.bas"
S_21393:;
#line 18570 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18570 "qb64pe.bas"
if(qbevent){evnt(18570);if(r)goto S_21393;}
#line 18570 "qb64pe.bas"
do{
#line 18570 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~&",2));
#line 18570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18570 "qb64pe.bas"
if(!qbevent)break;evnt(18570);}while(r);
#line 18570 "qb64pe.bas"
}else{
#line 18570 "qb64pe.bas"
do{
#line 18570 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("&",1));
#line 18570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18570 "qb64pe.bas"
if(!qbevent)break;evnt(18570);}while(r);
#line 18570 "qb64pe.bas"
}
#line 18571 "qb64pe.bas"
}
#line 18572 "qb64pe.bas"
S_21399:;
#line 18572 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18572 "qb64pe.bas"
if(qbevent){evnt(18572);if(r)goto S_21399;}
#line 18573 "qb64pe.bas"
S_21400:;
#line 18573 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18573 "qb64pe.bas"
if(qbevent){evnt(18573);if(r)goto S_21400;}
#line 18573 "qb64pe.bas"
do{
#line 18573 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~&",2));
#line 18573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18573 "qb64pe.bas"
if(!qbevent)break;evnt(18573);}while(r);
#line 18573 "qb64pe.bas"
}else{
#line 18573 "qb64pe.bas"
do{
#line 18573 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("&",1));
#line 18573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18573 "qb64pe.bas"
if(!qbevent)break;evnt(18573);}while(r);
#line 18573 "qb64pe.bas"
}
#line 18574 "qb64pe.bas"
}
#line 18575 "qb64pe.bas"
do{
#line 18575 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18575 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18575 "qb64pe.bas"
if(!qbevent)break;evnt(18575);}while(r);
#line 18576 "qb64pe.bas"
do{
#line 18576 "qb64pe.bas"
SUB_REGID();
#line 18576 "qb64pe.bas"
if(!qbevent)break;evnt(18576);}while(r);
#line 18577 "qb64pe.bas"
do{
#line 18577 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2512= 0 ));
#line 18577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18577 "qb64pe.bas"
if(!qbevent)break;evnt(18577);}while(r);
#line 18578 "qb64pe.bas"
S_21409:;
#line 18578 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18578 "qb64pe.bas"
if(qbevent){evnt(18578);if(r)goto S_21409;}
#line 18578 "qb64pe.bas"
do{
#line 18578 "qb64pe.bas"
goto exit_subfunc;
#line 18578 "qb64pe.bas"
if(!qbevent)break;evnt(18578);}while(r);
#line 18578 "qb64pe.bas"
}
#line 18579 "qb64pe.bas"
do{
#line 18579 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18579 "qb64pe.bas"
if(!qbevent)break;evnt(18579);}while(r);
#line 18580 "qb64pe.bas"
}
#line 18582 "qb64pe.bas"
S_21414:;
#line 18582 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
#line 18582 "qb64pe.bas"
if(qbevent){evnt(18582);if(r)goto S_21414;}
#line 18583 "qb64pe.bas"
do{
#line 18583 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5));
#line 18583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18583 "qb64pe.bas"
if(!qbevent)break;evnt(18583);}while(r);
#line 18584 "qb64pe.bas"
S_21416:;
#line 18584 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18584 "qb64pe.bas"
if(qbevent){evnt(18584);if(r)goto S_21416;}
#line 18584 "qb64pe.bas"
do{
#line 18584 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1));
#line 18584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18584 "qb64pe.bas"
if(!qbevent)break;evnt(18584);}while(r);
#line 18584 "qb64pe.bas"
do{
#line 18584 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT));
#line 18584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18584 "qb64pe.bas"
if(!qbevent)break;evnt(18584);}while(r);
#line 18584 "qb64pe.bas"
}
#line 18585 "qb64pe.bas"
do{
#line 18585 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("INTEGER64_",10)),_FUNC_DIM2_STRING_VARNAME));
#line 18585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18585 "qb64pe.bas"
if(!qbevent)break;evnt(18585);}while(r);
#line 18586 "qb64pe.bas"
S_21421:;
#line 18586 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18586 "qb64pe.bas"
if(qbevent){evnt(18586);if(r)goto S_21421;}
#line 18587 "qb64pe.bas"
do{
#line 18587 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18587 "qb64pe.bas"
if(!qbevent)break;evnt(18587);}while(r);
#line 18588 "qb64pe.bas"
do{
#line 18588 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME);
#line 18588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18588 "qb64pe.bas"
if(!qbevent)break;evnt(18588);}while(r);
#line 18588 "qb64pe.bas"
S_21424:;
#line 18588 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18588 "qb64pe.bas"
if(qbevent){evnt(18588);if(r)goto S_21424;}
#line 18588 "qb64pe.bas"
do{
#line 18588 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1)));
#line 18588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18588 "qb64pe.bas"
if(!qbevent)break;evnt(18588);}while(r);
#line 18588 "qb64pe.bas"
}
#line 18589 "qb64pe.bas"
do{
#line 18589 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&&",2)));
#line 18589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18589 "qb64pe.bas"
if(!qbevent)break;evnt(18589);}while(r);
#line 18590 "qb64pe.bas"
S_21428:;
#line 18590 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18590 "qb64pe.bas"
if(qbevent){evnt(18590);if(r)goto S_21428;}
#line 18591 "qb64pe.bas"
do{
#line 18591 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18591 "qb64pe.bas"
if(!qbevent)break;evnt(18591);}while(r);
#line 18592 "qb64pe.bas"
S_21430:;
#line 18592 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18592 "qb64pe.bas"
if(qbevent){evnt(18592);if(r)goto S_21430;}
#line 18592 "qb64pe.bas"
do{
#line 18592 "qb64pe.bas"
goto exit_subfunc;
#line 18592 "qb64pe.bas"
if(!qbevent)break;evnt(18592);}while(r);
#line 18592 "qb64pe.bas"
}
#line 18593 "qb64pe.bas"
S_21433:;
#line 18593 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18593 "qb64pe.bas"
if(qbevent){evnt(18593);if(r)goto S_21433;}
#line 18594 "qb64pe.bas"
S_21434:;
#line 18594 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18594 "qb64pe.bas"
if(qbevent){evnt(18594);if(r)goto S_21434;}
#line 18595 "qb64pe.bas"
do{
#line 18595 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18595 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18595 "qb64pe.bas"
if(!qbevent)break;evnt(18595);}while(r);
#line 18596 "qb64pe.bas"
do{
#line 18596 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18596 "qb64pe.bas"
if(!qbevent)break;evnt(18596);}while(r);
#line 18596 "qb64pe.bas"
do{
#line 18596 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18596 "qb64pe.bas"
if(!qbevent)break;evnt(18596);}while(r);
#line 18597 "qb64pe.bas"
do{
#line 18597 "qb64pe.bas"
goto dl_exit_2513;
#line 18597 "qb64pe.bas"
if(!qbevent)break;evnt(18597);}while(r);
#line 18598 "qb64pe.bas"
}
#line 18599 "qb64pe.bas"
S_21440:;
#line 18599 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18599 "qb64pe.bas"
if(qbevent){evnt(18599);if(r)goto S_21440;}
#line 18599 "qb64pe.bas"
do{
#line 18599 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18599 "qb64pe.bas"
if(!qbevent)break;evnt(18599);}while(r);
#line 18599 "qb64pe.bas"
do{
#line 18599 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18599 "qb64pe.bas"
if(!qbevent)break;evnt(18599);}while(r);
#line 18599 "qb64pe.bas"
}else{
#line 18599 "qb64pe.bas"
do{
#line 18599 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18599 "qb64pe.bas"
if(!qbevent)break;evnt(18599);}while(r);
#line 18599 "qb64pe.bas"
}
#line 18600 "qb64pe.bas"
S_21446:;
#line 18600 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18600 "qb64pe.bas"
if(qbevent){evnt(18600);if(r)goto S_21446;}
#line 18600 "qb64pe.bas"
do{
#line 18600 "qb64pe.bas"
goto exit_subfunc;
#line 18600 "qb64pe.bas"
if(!qbevent)break;evnt(18600);}while(r);
#line 18600 "qb64pe.bas"
}
#line 18601 "qb64pe.bas"
dl_continue_2513:;
#line 18601 "qb64pe.bas"
}
#line 18601 "qb64pe.bas"
dl_exit_2513:;
#line 18602 "qb64pe.bas"
}
#line 18603 "qb64pe.bas"
do{
#line 18603 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18603 "qb64pe.bas"
if(!qbevent)break;evnt(18603);}while(r);
#line 18609 "qb64pe.bas"
S_21452:;
#line 18609 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18609 "qb64pe.bas"
if(qbevent){evnt(18609);if(r)goto S_21452;}
#line 18611 "qb64pe.bas"
S_21453:;
#line 18611 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18611 "qb64pe.bas"
if(qbevent){evnt(18611);if(r)goto S_21453;}
#line 18612 "qb64pe.bas"
do{
#line 18612 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18612 "qb64pe.bas"
if(!qbevent)break;evnt(18612);}while(r);
#line 18612 "qb64pe.bas"
S_21455:;
#line 18612 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18612 "qb64pe.bas"
if(qbevent){evnt(18612);if(r)goto S_21455;}
#line 18612 "qb64pe.bas"
do{
#line 18612 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18612 "qb64pe.bas"
if(!qbevent)break;evnt(18612);}while(r);
#line 18612 "qb64pe.bas"
}
#line 18613 "qb64pe.bas"
}
#line 18614 "qb64pe.bas"
do{
#line 18614 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2515= 8 ),&(pass2516= 0 ));
#line 18614 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18614 "qb64pe.bas"
if(!qbevent)break;evnt(18614);}while(r);
#line 18615 "qb64pe.bas"
S_21460:;
#line 18615 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18615 "qb64pe.bas"
if(qbevent){evnt(18615);if(r)goto S_21460;}
#line 18615 "qb64pe.bas"
do{
#line 18615 "qb64pe.bas"
goto exit_subfunc;
#line 18615 "qb64pe.bas"
if(!qbevent)break;evnt(18615);}while(r);
#line 18615 "qb64pe.bas"
}
#line 18616 "qb64pe.bas"
do{
#line 18616 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18616 "qb64pe.bas"
if(!qbevent)break;evnt(18616);}while(r);
#line 18617 "qb64pe.bas"
S_21464:;
#line 18617 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18617 "qb64pe.bas"
if(qbevent){evnt(18617);if(r)goto S_21464;}
#line 18617 "qb64pe.bas"
do{
#line 18617 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18617 "qb64pe.bas"
if(!qbevent)break;evnt(18617);}while(r);
#line 18617 "qb64pe.bas"
}
#line 18618 "qb64pe.bas"
do{
#line 18618 "qb64pe.bas"
SUB_CLEARID();
#line 18618 "qb64pe.bas"
if(!qbevent)break;evnt(18618);}while(r);
#line 18620 "qb64pe.bas"
}else{
#line 18621 "qb64pe.bas"
do{
#line 18621 "qb64pe.bas"
SUB_CLEARID();
#line 18621 "qb64pe.bas"
if(!qbevent)break;evnt(18621);}while(r);
#line 18622 "qb64pe.bas"
S_21470:;
#line 18622 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18622 "qb64pe.bas"
if(qbevent){evnt(18622);if(r)goto S_21470;}
#line 18623 "qb64pe.bas"
do{
#line 18623 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18623 "qb64pe.bas"
if(!qbevent)break;evnt(18623);}while(r);
#line 18624 "qb64pe.bas"
do{
#line 18624 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18624 "qb64pe.bas"
if(!qbevent)break;evnt(18624);}while(r);
#line 18625 "qb64pe.bas"
do{
#line 18625 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18625 "qb64pe.bas"
if(!qbevent)break;evnt(18625);}while(r);
#line 18626 "qb64pe.bas"
}else{
#line 18627 "qb64pe.bas"
do{
#line 18627 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18627 "qb64pe.bas"
if(!qbevent)break;evnt(18627);}while(r);
#line 18628 "qb64pe.bas"
}
#line 18629 "qb64pe.bas"
}
#line 18631 "qb64pe.bas"
do{
#line 18631 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_INTEGER64TYPE;
#line 18631 "qb64pe.bas"
if(!qbevent)break;evnt(18631);}while(r);
#line 18631 "qb64pe.bas"
S_21479:;
#line 18631 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18631 "qb64pe.bas"
if(qbevent){evnt(18631);if(r)goto S_21479;}
#line 18631 "qb64pe.bas"
do{
#line 18631 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISUNSIGNED;
#line 18631 "qb64pe.bas"
if(!qbevent)break;evnt(18631);}while(r);
#line 18631 "qb64pe.bas"
}
#line 18632 "qb64pe.bas"
S_21482:;
#line 18632 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18632 "qb64pe.bas"
if(qbevent){evnt(18632);if(r)goto S_21482;}
#line 18632 "qb64pe.bas"
do{
#line 18632 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18632 "qb64pe.bas"
if(!qbevent)break;evnt(18632);}while(r);
#line 18632 "qb64pe.bas"
}
#line 18633 "qb64pe.bas"
S_21485:;
#line 18633 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18633 "qb64pe.bas"
if(qbevent){evnt(18633);if(r)goto S_21485;}
#line 18633 "qb64pe.bas"
do{
#line 18633 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18633 "qb64pe.bas"
if(!qbevent)break;evnt(18633);}while(r);
#line 18633 "qb64pe.bas"
do{
#line 18633 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18633 "qb64pe.bas"
if(!qbevent)break;evnt(18633);}while(r);
#line 18633 "qb64pe.bas"
}
#line 18635 "qb64pe.bas"
do{
#line 18635 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18635 "qb64pe.bas"
if(!qbevent)break;evnt(18635);}while(r);
#line 18636 "qb64pe.bas"
do{
#line 18636 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18636 "qb64pe.bas"
if(!qbevent)break;evnt(18636);}while(r);
#line 18637 "qb64pe.bas"
}else{
#line 18638 "qb64pe.bas"
do{
#line 18638 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18638 "qb64pe.bas"
if(!qbevent)break;evnt(18638);}while(r);
#line 18639 "qb64pe.bas"
do{
#line 18639 "qb64pe.bas"
SUB_CLEARID();
#line 18639 "qb64pe.bas"
if(!qbevent)break;evnt(18639);}while(r);
#line 18640 "qb64pe.bas"
do{
#line 18640 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_INTEGER64TYPE;
#line 18640 "qb64pe.bas"
if(!qbevent)break;evnt(18640);}while(r);
#line 18640 "qb64pe.bas"
S_21495:;
#line 18640 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18640 "qb64pe.bas"
if(qbevent){evnt(18640);if(r)goto S_21495;}
#line 18640 "qb64pe.bas"
do{
#line 18640 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISUNSIGNED;
#line 18640 "qb64pe.bas"
if(!qbevent)break;evnt(18640);}while(r);
#line 18640 "qb64pe.bas"
}
#line 18641 "qb64pe.bas"
S_21498:;
#line 18641 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18641 "qb64pe.bas"
if(qbevent){evnt(18641);if(r)goto S_21498;}
#line 18641 "qb64pe.bas"
do{
#line 18641 "qb64pe.bas"
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)));
#line 18641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18641 "qb64pe.bas"
if(!qbevent)break;evnt(18641);}while(r);
#line 18641 "qb64pe.bas"
}
#line 18642 "qb64pe.bas"
S_21501:;
#line 18642 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18642 "qb64pe.bas"
if(qbevent){evnt(18642);if(r)goto S_21501;}
#line 18642 "qb64pe.bas"
do{
#line 18642 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18642 "qb64pe.bas"
if(!qbevent)break;evnt(18642);}while(r);
#line 18642 "qb64pe.bas"
}
#line 18643 "qb64pe.bas"
S_21504:;
#line 18643 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18643 "qb64pe.bas"
if(qbevent){evnt(18643);if(r)goto S_21504;}
#line 18644 "qb64pe.bas"
do{
#line 18644 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18644 "qb64pe.bas"
if(!qbevent)break;evnt(18644);}while(r);
#line 18645 "qb64pe.bas"
S_21506:;
#line 18645 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18645 "qb64pe.bas"
if(qbevent){evnt(18645);if(r)goto S_21506;}
#line 18645 "qb64pe.bas"
do{
#line 18645 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=8;",11));
#line 18645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18645 "qb64pe.bas"
if(!qbevent)break;evnt(18645);}while(r);
#line 18645 "qb64pe.bas"
}
#line 18646 "qb64pe.bas"
S_21509:;
#line 18646 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18646 "qb64pe.bas"
if(qbevent){evnt(18646);if(r)goto S_21509;}
#line 18646 "qb64pe.bas"
do{
#line 18646 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18646 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18646 "qb64pe.bas"
if(!qbevent)break;evnt(18646);}while(r);
#line 18646 "qb64pe.bas"
}
#line 18647 "qb64pe.bas"
S_21512:;
#line 18647 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18647 "qb64pe.bas"
if(qbevent){evnt(18647);if(r)goto S_21512;}
#line 18647 "qb64pe.bas"
do{
#line 18647 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18647 "qb64pe.bas"
if(!qbevent)break;evnt(18647);}while(r);
#line 18647 "qb64pe.bas"
}
#line 18648 "qb64pe.bas"
}else{
#line 18649 "qb64pe.bas"
S_21516:;
#line 18649 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18649 "qb64pe.bas"
if(qbevent){evnt(18649);if(r)goto S_21516;}
#line 18649 "qb64pe.bas"
do{
#line 18649 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18649 "qb64pe.bas"
if(!qbevent)break;evnt(18649);}while(r);
#line 18649 "qb64pe.bas"
}
#line 18650 "qb64pe.bas"
}
#line 18651 "qb64pe.bas"
S_21520:;
#line 18651 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18651 "qb64pe.bas"
if(qbevent){evnt(18651);if(r)goto S_21520;}
#line 18651 "qb64pe.bas"
do{
#line 18651 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18651 "qb64pe.bas"
if(!qbevent)break;evnt(18651);}while(r);
#line 18651 "qb64pe.bas"
}
#line 18652 "qb64pe.bas"
S_21523:;
#line 18652 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18652 "qb64pe.bas"
if(qbevent){evnt(18652);if(r)goto S_21523;}
#line 18652 "qb64pe.bas"
do{
#line 18652 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18652 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18652 "qb64pe.bas"
if(!qbevent)break;evnt(18652);}while(r);
#line 18652 "qb64pe.bas"
}
#line 18653 "qb64pe.bas"
}
#line 18654 "qb64pe.bas"
do{
#line 18654 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18654 "qb64pe.bas"
if(!qbevent)break;evnt(18654);}while(r);
#line 18655 "qb64pe.bas"
S_21528:;
#line 18655 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18655 "qb64pe.bas"
if(qbevent){evnt(18655);if(r)goto S_21528;}
#line 18656 "qb64pe.bas"
S_21529:;
#line 18656 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18656 "qb64pe.bas"
if(qbevent){evnt(18656);if(r)goto S_21529;}
#line 18656 "qb64pe.bas"
do{
#line 18656 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("~&&",3));
#line 18656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18656 "qb64pe.bas"
if(!qbevent)break;evnt(18656);}while(r);
#line 18656 "qb64pe.bas"
}else{
#line 18656 "qb64pe.bas"
do{
#line 18656 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("&&",2));
#line 18656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18656 "qb64pe.bas"
if(!qbevent)break;evnt(18656);}while(r);
#line 18656 "qb64pe.bas"
}
#line 18657 "qb64pe.bas"
}
#line 18658 "qb64pe.bas"
S_21535:;
#line 18658 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18658 "qb64pe.bas"
if(qbevent){evnt(18658);if(r)goto S_21535;}
#line 18659 "qb64pe.bas"
S_21536:;
#line 18659 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_UNSGN)||is_error_pending()){
#line 18659 "qb64pe.bas"
if(qbevent){evnt(18659);if(r)goto S_21536;}
#line 18659 "qb64pe.bas"
do{
#line 18659 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("~&&",3));
#line 18659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18659 "qb64pe.bas"
if(!qbevent)break;evnt(18659);}while(r);
#line 18659 "qb64pe.bas"
}else{
#line 18659 "qb64pe.bas"
do{
#line 18659 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("&&",2));
#line 18659 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18659 "qb64pe.bas"
if(!qbevent)break;evnt(18659);}while(r);
#line 18659 "qb64pe.bas"
}
#line 18660 "qb64pe.bas"
}
#line 18661 "qb64pe.bas"
do{
#line 18661 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18661 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18661 "qb64pe.bas"
if(!qbevent)break;evnt(18661);}while(r);
#line 18662 "qb64pe.bas"
do{
#line 18662 "qb64pe.bas"
SUB_REGID();
#line 18662 "qb64pe.bas"
if(!qbevent)break;evnt(18662);}while(r);
#line 18663 "qb64pe.bas"
do{
#line 18663 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2517= 0 ));
#line 18663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18663 "qb64pe.bas"
if(!qbevent)break;evnt(18663);}while(r);
#line 18664 "qb64pe.bas"
S_21545:;
#line 18664 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18664 "qb64pe.bas"
if(qbevent){evnt(18664);if(r)goto S_21545;}
#line 18664 "qb64pe.bas"
do{
#line 18664 "qb64pe.bas"
goto exit_subfunc;
#line 18664 "qb64pe.bas"
if(!qbevent)break;evnt(18664);}while(r);
#line 18664 "qb64pe.bas"
}
#line 18665 "qb64pe.bas"
do{
#line 18665 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18665 "qb64pe.bas"
if(!qbevent)break;evnt(18665);}while(r);
#line 18666 "qb64pe.bas"
}
#line 18668 "qb64pe.bas"
S_21550:;
#line 18668 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_UNSGN== 1 ))||is_error_pending()){
#line 18668 "qb64pe.bas"
if(qbevent){evnt(18668);if(r)goto S_21550;}
#line 18668 "qb64pe.bas"
do{
#line 18668 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Type cannot be _UNSIGNED",24));
#line 18668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18668 "qb64pe.bas"
if(!qbevent)break;evnt(18668);}while(r);
#line 18668 "qb64pe.bas"
do{
#line 18668 "qb64pe.bas"
goto exit_subfunc;
#line 18668 "qb64pe.bas"
if(!qbevent)break;evnt(18668);}while(r);
#line 18668 "qb64pe.bas"
}
#line 18670 "qb64pe.bas"
S_21554:;
#line 18670 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
#line 18670 "qb64pe.bas"
if(qbevent){evnt(18670);if(r)goto S_21554;}
#line 18671 "qb64pe.bas"
do{
#line 18671 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("float",5));
#line 18671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18671 "qb64pe.bas"
if(!qbevent)break;evnt(18671);}while(r);
#line 18672 "qb64pe.bas"
do{
#line 18672 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("SINGLE_",7)),_FUNC_DIM2_STRING_VARNAME));
#line 18672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18672 "qb64pe.bas"
if(!qbevent)break;evnt(18672);}while(r);
#line 18673 "qb64pe.bas"
S_21557:;
#line 18673 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18673 "qb64pe.bas"
if(qbevent){evnt(18673);if(r)goto S_21557;}
#line 18674 "qb64pe.bas"
do{
#line 18674 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18674 "qb64pe.bas"
if(!qbevent)break;evnt(18674);}while(r);
#line 18675 "qb64pe.bas"
do{
#line 18675 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("!",1)));
#line 18675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18675 "qb64pe.bas"
if(!qbevent)break;evnt(18675);}while(r);
#line 18676 "qb64pe.bas"
S_21560:;
#line 18676 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18676 "qb64pe.bas"
if(qbevent){evnt(18676);if(r)goto S_21560;}
#line 18677 "qb64pe.bas"
do{
#line 18677 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18677 "qb64pe.bas"
if(!qbevent)break;evnt(18677);}while(r);
#line 18678 "qb64pe.bas"
S_21562:;
#line 18678 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18678 "qb64pe.bas"
if(qbevent){evnt(18678);if(r)goto S_21562;}
#line 18678 "qb64pe.bas"
do{
#line 18678 "qb64pe.bas"
goto exit_subfunc;
#line 18678 "qb64pe.bas"
if(!qbevent)break;evnt(18678);}while(r);
#line 18678 "qb64pe.bas"
}
#line 18679 "qb64pe.bas"
S_21565:;
#line 18679 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18679 "qb64pe.bas"
if(qbevent){evnt(18679);if(r)goto S_21565;}
#line 18680 "qb64pe.bas"
S_21566:;
#line 18680 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18680 "qb64pe.bas"
if(qbevent){evnt(18680);if(r)goto S_21566;}
#line 18681 "qb64pe.bas"
do{
#line 18681 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18681 "qb64pe.bas"
if(!qbevent)break;evnt(18681);}while(r);
#line 18682 "qb64pe.bas"
do{
#line 18682 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18682 "qb64pe.bas"
if(!qbevent)break;evnt(18682);}while(r);
#line 18682 "qb64pe.bas"
do{
#line 18682 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18682 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18682 "qb64pe.bas"
if(!qbevent)break;evnt(18682);}while(r);
#line 18683 "qb64pe.bas"
do{
#line 18683 "qb64pe.bas"
goto dl_exit_2518;
#line 18683 "qb64pe.bas"
if(!qbevent)break;evnt(18683);}while(r);
#line 18684 "qb64pe.bas"
}
#line 18685 "qb64pe.bas"
S_21572:;
#line 18685 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18685 "qb64pe.bas"
if(qbevent){evnt(18685);if(r)goto S_21572;}
#line 18685 "qb64pe.bas"
do{
#line 18685 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18685 "qb64pe.bas"
if(!qbevent)break;evnt(18685);}while(r);
#line 18685 "qb64pe.bas"
do{
#line 18685 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18685 "qb64pe.bas"
if(!qbevent)break;evnt(18685);}while(r);
#line 18685 "qb64pe.bas"
}else{
#line 18685 "qb64pe.bas"
do{
#line 18685 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18685 "qb64pe.bas"
if(!qbevent)break;evnt(18685);}while(r);
#line 18685 "qb64pe.bas"
}
#line 18686 "qb64pe.bas"
S_21578:;
#line 18686 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18686 "qb64pe.bas"
if(qbevent){evnt(18686);if(r)goto S_21578;}
#line 18686 "qb64pe.bas"
do{
#line 18686 "qb64pe.bas"
goto exit_subfunc;
#line 18686 "qb64pe.bas"
if(!qbevent)break;evnt(18686);}while(r);
#line 18686 "qb64pe.bas"
}
#line 18687 "qb64pe.bas"
dl_continue_2518:;
#line 18687 "qb64pe.bas"
}
#line 18687 "qb64pe.bas"
dl_exit_2518:;
#line 18688 "qb64pe.bas"
}
#line 18689 "qb64pe.bas"
do{
#line 18689 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18689 "qb64pe.bas"
if(!qbevent)break;evnt(18689);}while(r);
#line 18695 "qb64pe.bas"
S_21584:;
#line 18695 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18695 "qb64pe.bas"
if(qbevent){evnt(18695);if(r)goto S_21584;}
#line 18697 "qb64pe.bas"
S_21585:;
#line 18697 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18697 "qb64pe.bas"
if(qbevent){evnt(18697);if(r)goto S_21585;}
#line 18698 "qb64pe.bas"
do{
#line 18698 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18698 "qb64pe.bas"
if(!qbevent)break;evnt(18698);}while(r);
#line 18698 "qb64pe.bas"
S_21587:;
#line 18698 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18698 "qb64pe.bas"
if(qbevent){evnt(18698);if(r)goto S_21587;}
#line 18698 "qb64pe.bas"
do{
#line 18698 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18698 "qb64pe.bas"
if(!qbevent)break;evnt(18698);}while(r);
#line 18698 "qb64pe.bas"
}
#line 18699 "qb64pe.bas"
}
#line 18700 "qb64pe.bas"
do{
#line 18700 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2520= 4 ),&(pass2521= 0 ));
#line 18700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18700 "qb64pe.bas"
if(!qbevent)break;evnt(18700);}while(r);
#line 18701 "qb64pe.bas"
S_21592:;
#line 18701 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18701 "qb64pe.bas"
if(qbevent){evnt(18701);if(r)goto S_21592;}
#line 18701 "qb64pe.bas"
do{
#line 18701 "qb64pe.bas"
goto exit_subfunc;
#line 18701 "qb64pe.bas"
if(!qbevent)break;evnt(18701);}while(r);
#line 18701 "qb64pe.bas"
}
#line 18702 "qb64pe.bas"
do{
#line 18702 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18702 "qb64pe.bas"
if(!qbevent)break;evnt(18702);}while(r);
#line 18703 "qb64pe.bas"
S_21596:;
#line 18703 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18703 "qb64pe.bas"
if(qbevent){evnt(18703);if(r)goto S_21596;}
#line 18703 "qb64pe.bas"
do{
#line 18703 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18703 "qb64pe.bas"
if(!qbevent)break;evnt(18703);}while(r);
#line 18703 "qb64pe.bas"
}
#line 18704 "qb64pe.bas"
do{
#line 18704 "qb64pe.bas"
SUB_CLEARID();
#line 18704 "qb64pe.bas"
if(!qbevent)break;evnt(18704);}while(r);
#line 18706 "qb64pe.bas"
}else{
#line 18707 "qb64pe.bas"
do{
#line 18707 "qb64pe.bas"
SUB_CLEARID();
#line 18707 "qb64pe.bas"
if(!qbevent)break;evnt(18707);}while(r);
#line 18708 "qb64pe.bas"
S_21602:;
#line 18708 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18708 "qb64pe.bas"
if(qbevent){evnt(18708);if(r)goto S_21602;}
#line 18709 "qb64pe.bas"
do{
#line 18709 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18709 "qb64pe.bas"
if(!qbevent)break;evnt(18709);}while(r);
#line 18710 "qb64pe.bas"
do{
#line 18710 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18710 "qb64pe.bas"
if(!qbevent)break;evnt(18710);}while(r);
#line 18711 "qb64pe.bas"
do{
#line 18711 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18711 "qb64pe.bas"
if(!qbevent)break;evnt(18711);}while(r);
#line 18712 "qb64pe.bas"
}else{
#line 18713 "qb64pe.bas"
do{
#line 18713 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18713 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18713 "qb64pe.bas"
if(!qbevent)break;evnt(18713);}while(r);
#line 18714 "qb64pe.bas"
}
#line 18715 "qb64pe.bas"
}
#line 18717 "qb64pe.bas"
do{
#line 18717 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_SINGLETYPE;
#line 18717 "qb64pe.bas"
if(!qbevent)break;evnt(18717);}while(r);
#line 18718 "qb64pe.bas"
S_21611:;
#line 18718 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18718 "qb64pe.bas"
if(qbevent){evnt(18718);if(r)goto S_21611;}
#line 18718 "qb64pe.bas"
do{
#line 18718 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18718 "qb64pe.bas"
if(!qbevent)break;evnt(18718);}while(r);
#line 18718 "qb64pe.bas"
}
#line 18719 "qb64pe.bas"
S_21614:;
#line 18719 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18719 "qb64pe.bas"
if(qbevent){evnt(18719);if(r)goto S_21614;}
#line 18719 "qb64pe.bas"
do{
#line 18719 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18719 "qb64pe.bas"
if(!qbevent)break;evnt(18719);}while(r);
#line 18719 "qb64pe.bas"
do{
#line 18719 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18719 "qb64pe.bas"
if(!qbevent)break;evnt(18719);}while(r);
#line 18719 "qb64pe.bas"
}
#line 18721 "qb64pe.bas"
do{
#line 18721 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18721 "qb64pe.bas"
if(!qbevent)break;evnt(18721);}while(r);
#line 18722 "qb64pe.bas"
do{
#line 18722 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18722 "qb64pe.bas"
if(!qbevent)break;evnt(18722);}while(r);
#line 18723 "qb64pe.bas"
}else{
#line 18724 "qb64pe.bas"
do{
#line 18724 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18724 "qb64pe.bas"
if(!qbevent)break;evnt(18724);}while(r);
#line 18725 "qb64pe.bas"
do{
#line 18725 "qb64pe.bas"
SUB_CLEARID();
#line 18725 "qb64pe.bas"
if(!qbevent)break;evnt(18725);}while(r);
#line 18726 "qb64pe.bas"
do{
#line 18726 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_SINGLETYPE;
#line 18726 "qb64pe.bas"
if(!qbevent)break;evnt(18726);}while(r);
#line 18727 "qb64pe.bas"
S_21624:;
#line 18727 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18727 "qb64pe.bas"
if(qbevent){evnt(18727);if(r)goto S_21624;}
#line 18727 "qb64pe.bas"
do{
#line 18727 "qb64pe.bas"
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)));
#line 18727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18727 "qb64pe.bas"
if(!qbevent)break;evnt(18727);}while(r);
#line 18727 "qb64pe.bas"
}
#line 18728 "qb64pe.bas"
S_21627:;
#line 18728 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18728 "qb64pe.bas"
if(qbevent){evnt(18728);if(r)goto S_21627;}
#line 18728 "qb64pe.bas"
do{
#line 18728 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18728 "qb64pe.bas"
if(!qbevent)break;evnt(18728);}while(r);
#line 18728 "qb64pe.bas"
}
#line 18729 "qb64pe.bas"
S_21630:;
#line 18729 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18729 "qb64pe.bas"
if(qbevent){evnt(18729);if(r)goto S_21630;}
#line 18730 "qb64pe.bas"
do{
#line 18730 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18730 "qb64pe.bas"
if(!qbevent)break;evnt(18730);}while(r);
#line 18731 "qb64pe.bas"
S_21632:;
#line 18731 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18731 "qb64pe.bas"
if(qbevent){evnt(18731);if(r)goto S_21632;}
#line 18731 "qb64pe.bas"
do{
#line 18731 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=4;",11));
#line 18731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18731 "qb64pe.bas"
if(!qbevent)break;evnt(18731);}while(r);
#line 18731 "qb64pe.bas"
}
#line 18732 "qb64pe.bas"
S_21635:;
#line 18732 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18732 "qb64pe.bas"
if(qbevent){evnt(18732);if(r)goto S_21635;}
#line 18732 "qb64pe.bas"
do{
#line 18732 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18732 "qb64pe.bas"
if(!qbevent)break;evnt(18732);}while(r);
#line 18732 "qb64pe.bas"
}
#line 18733 "qb64pe.bas"
S_21638:;
#line 18733 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18733 "qb64pe.bas"
if(qbevent){evnt(18733);if(r)goto S_21638;}
#line 18733 "qb64pe.bas"
do{
#line 18733 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18733 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18733 "qb64pe.bas"
if(!qbevent)break;evnt(18733);}while(r);
#line 18733 "qb64pe.bas"
}
#line 18734 "qb64pe.bas"
}else{
#line 18735 "qb64pe.bas"
S_21642:;
#line 18735 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18735 "qb64pe.bas"
if(qbevent){evnt(18735);if(r)goto S_21642;}
#line 18735 "qb64pe.bas"
do{
#line 18735 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18735 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18735 "qb64pe.bas"
if(!qbevent)break;evnt(18735);}while(r);
#line 18735 "qb64pe.bas"
}
#line 18736 "qb64pe.bas"
}
#line 18737 "qb64pe.bas"
S_21646:;
#line 18737 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18737 "qb64pe.bas"
if(qbevent){evnt(18737);if(r)goto S_21646;}
#line 18737 "qb64pe.bas"
do{
#line 18737 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18737 "qb64pe.bas"
if(!qbevent)break;evnt(18737);}while(r);
#line 18737 "qb64pe.bas"
}
#line 18738 "qb64pe.bas"
S_21649:;
#line 18738 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18738 "qb64pe.bas"
if(qbevent){evnt(18738);if(r)goto S_21649;}
#line 18738 "qb64pe.bas"
do{
#line 18738 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18738 "qb64pe.bas"
if(!qbevent)break;evnt(18738);}while(r);
#line 18738 "qb64pe.bas"
}
#line 18739 "qb64pe.bas"
}
#line 18740 "qb64pe.bas"
do{
#line 18740 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18740 "qb64pe.bas"
if(!qbevent)break;evnt(18740);}while(r);
#line 18741 "qb64pe.bas"
S_21654:;
#line 18741 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18741 "qb64pe.bas"
if(qbevent){evnt(18741);if(r)goto S_21654;}
#line 18742 "qb64pe.bas"
do{
#line 18742 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("!",1));
#line 18742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18742 "qb64pe.bas"
if(!qbevent)break;evnt(18742);}while(r);
#line 18743 "qb64pe.bas"
}
#line 18744 "qb64pe.bas"
S_21657:;
#line 18744 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18744 "qb64pe.bas"
if(qbevent){evnt(18744);if(r)goto S_21657;}
#line 18745 "qb64pe.bas"
do{
#line 18745 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("!",1));
#line 18745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18745 "qb64pe.bas"
if(!qbevent)break;evnt(18745);}while(r);
#line 18746 "qb64pe.bas"
}
#line 18747 "qb64pe.bas"
do{
#line 18747 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18747 "qb64pe.bas"
if(!qbevent)break;evnt(18747);}while(r);
#line 18748 "qb64pe.bas"
do{
#line 18748 "qb64pe.bas"
SUB_REGID();
#line 18748 "qb64pe.bas"
if(!qbevent)break;evnt(18748);}while(r);
#line 18749 "qb64pe.bas"
do{
#line 18749 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2522= 0 ));
#line 18749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18749 "qb64pe.bas"
if(!qbevent)break;evnt(18749);}while(r);
#line 18750 "qb64pe.bas"
S_21663:;
#line 18750 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18750 "qb64pe.bas"
if(qbevent){evnt(18750);if(r)goto S_21663;}
#line 18750 "qb64pe.bas"
do{
#line 18750 "qb64pe.bas"
goto exit_subfunc;
#line 18750 "qb64pe.bas"
if(!qbevent)break;evnt(18750);}while(r);
#line 18750 "qb64pe.bas"
}
#line 18751 "qb64pe.bas"
do{
#line 18751 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18751 "qb64pe.bas"
if(!qbevent)break;evnt(18751);}while(r);
#line 18752 "qb64pe.bas"
}
#line 18754 "qb64pe.bas"
S_21668:;
#line 18754 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
#line 18754 "qb64pe.bas"
if(qbevent){evnt(18754);if(r)goto S_21668;}
#line 18755 "qb64pe.bas"
do{
#line 18755 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("double",6));
#line 18755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18755 "qb64pe.bas"
if(!qbevent)break;evnt(18755);}while(r);
#line 18756 "qb64pe.bas"
do{
#line 18756 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("DOUBLE_",7)),_FUNC_DIM2_STRING_VARNAME));
#line 18756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18756 "qb64pe.bas"
if(!qbevent)break;evnt(18756);}while(r);
#line 18757 "qb64pe.bas"
S_21671:;
#line 18757 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18757 "qb64pe.bas"
if(qbevent){evnt(18757);if(r)goto S_21671;}
#line 18758 "qb64pe.bas"
do{
#line 18758 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18758 "qb64pe.bas"
if(!qbevent)break;evnt(18758);}while(r);
#line 18759 "qb64pe.bas"
do{
#line 18759 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("#",1)));
#line 18759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18759 "qb64pe.bas"
if(!qbevent)break;evnt(18759);}while(r);
#line 18760 "qb64pe.bas"
S_21674:;
#line 18760 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18760 "qb64pe.bas"
if(qbevent){evnt(18760);if(r)goto S_21674;}
#line 18761 "qb64pe.bas"
do{
#line 18761 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18761 "qb64pe.bas"
if(!qbevent)break;evnt(18761);}while(r);
#line 18762 "qb64pe.bas"
S_21676:;
#line 18762 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18762 "qb64pe.bas"
if(qbevent){evnt(18762);if(r)goto S_21676;}
#line 18762 "qb64pe.bas"
do{
#line 18762 "qb64pe.bas"
goto exit_subfunc;
#line 18762 "qb64pe.bas"
if(!qbevent)break;evnt(18762);}while(r);
#line 18762 "qb64pe.bas"
}
#line 18763 "qb64pe.bas"
S_21679:;
#line 18763 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18763 "qb64pe.bas"
if(qbevent){evnt(18763);if(r)goto S_21679;}
#line 18764 "qb64pe.bas"
S_21680:;
#line 18764 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18764 "qb64pe.bas"
if(qbevent){evnt(18764);if(r)goto S_21680;}
#line 18765 "qb64pe.bas"
do{
#line 18765 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18765 "qb64pe.bas"
if(!qbevent)break;evnt(18765);}while(r);
#line 18766 "qb64pe.bas"
do{
#line 18766 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18766 "qb64pe.bas"
if(!qbevent)break;evnt(18766);}while(r);
#line 18766 "qb64pe.bas"
do{
#line 18766 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18766 "qb64pe.bas"
if(!qbevent)break;evnt(18766);}while(r);
#line 18767 "qb64pe.bas"
do{
#line 18767 "qb64pe.bas"
goto dl_exit_2523;
#line 18767 "qb64pe.bas"
if(!qbevent)break;evnt(18767);}while(r);
#line 18768 "qb64pe.bas"
}
#line 18769 "qb64pe.bas"
S_21686:;
#line 18769 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18769 "qb64pe.bas"
if(qbevent){evnt(18769);if(r)goto S_21686;}
#line 18769 "qb64pe.bas"
do{
#line 18769 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18769 "qb64pe.bas"
if(!qbevent)break;evnt(18769);}while(r);
#line 18769 "qb64pe.bas"
do{
#line 18769 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18769 "qb64pe.bas"
if(!qbevent)break;evnt(18769);}while(r);
#line 18769 "qb64pe.bas"
}else{
#line 18769 "qb64pe.bas"
do{
#line 18769 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18769 "qb64pe.bas"
if(!qbevent)break;evnt(18769);}while(r);
#line 18769 "qb64pe.bas"
}
#line 18770 "qb64pe.bas"
S_21692:;
#line 18770 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18770 "qb64pe.bas"
if(qbevent){evnt(18770);if(r)goto S_21692;}
#line 18770 "qb64pe.bas"
do{
#line 18770 "qb64pe.bas"
goto exit_subfunc;
#line 18770 "qb64pe.bas"
if(!qbevent)break;evnt(18770);}while(r);
#line 18770 "qb64pe.bas"
}
#line 18771 "qb64pe.bas"
dl_continue_2523:;
#line 18771 "qb64pe.bas"
}
#line 18771 "qb64pe.bas"
dl_exit_2523:;
#line 18772 "qb64pe.bas"
}
#line 18773 "qb64pe.bas"
do{
#line 18773 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18773 "qb64pe.bas"
if(!qbevent)break;evnt(18773);}while(r);
#line 18779 "qb64pe.bas"
S_21698:;
#line 18779 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18779 "qb64pe.bas"
if(qbevent){evnt(18779);if(r)goto S_21698;}
#line 18781 "qb64pe.bas"
S_21699:;
#line 18781 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18781 "qb64pe.bas"
if(qbevent){evnt(18781);if(r)goto S_21699;}
#line 18782 "qb64pe.bas"
do{
#line 18782 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18782 "qb64pe.bas"
if(!qbevent)break;evnt(18782);}while(r);
#line 18782 "qb64pe.bas"
S_21701:;
#line 18782 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18782 "qb64pe.bas"
if(qbevent){evnt(18782);if(r)goto S_21701;}
#line 18782 "qb64pe.bas"
do{
#line 18782 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18782 "qb64pe.bas"
if(!qbevent)break;evnt(18782);}while(r);
#line 18782 "qb64pe.bas"
}
#line 18783 "qb64pe.bas"
}
#line 18784 "qb64pe.bas"
do{
#line 18784 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2525= 8 ),&(pass2526= 0 ));
#line 18784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18784 "qb64pe.bas"
if(!qbevent)break;evnt(18784);}while(r);
#line 18785 "qb64pe.bas"
S_21706:;
#line 18785 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18785 "qb64pe.bas"
if(qbevent){evnt(18785);if(r)goto S_21706;}
#line 18785 "qb64pe.bas"
do{
#line 18785 "qb64pe.bas"
goto exit_subfunc;
#line 18785 "qb64pe.bas"
if(!qbevent)break;evnt(18785);}while(r);
#line 18785 "qb64pe.bas"
}
#line 18786 "qb64pe.bas"
do{
#line 18786 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18786 "qb64pe.bas"
if(!qbevent)break;evnt(18786);}while(r);
#line 18787 "qb64pe.bas"
S_21710:;
#line 18787 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18787 "qb64pe.bas"
if(qbevent){evnt(18787);if(r)goto S_21710;}
#line 18787 "qb64pe.bas"
do{
#line 18787 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18787 "qb64pe.bas"
if(!qbevent)break;evnt(18787);}while(r);
#line 18787 "qb64pe.bas"
}
#line 18788 "qb64pe.bas"
do{
#line 18788 "qb64pe.bas"
SUB_CLEARID();
#line 18788 "qb64pe.bas"
if(!qbevent)break;evnt(18788);}while(r);
#line 18790 "qb64pe.bas"
}else{
#line 18791 "qb64pe.bas"
do{
#line 18791 "qb64pe.bas"
SUB_CLEARID();
#line 18791 "qb64pe.bas"
if(!qbevent)break;evnt(18791);}while(r);
#line 18792 "qb64pe.bas"
S_21716:;
#line 18792 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18792 "qb64pe.bas"
if(qbevent){evnt(18792);if(r)goto S_21716;}
#line 18793 "qb64pe.bas"
do{
#line 18793 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18793 "qb64pe.bas"
if(!qbevent)break;evnt(18793);}while(r);
#line 18794 "qb64pe.bas"
do{
#line 18794 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18794 "qb64pe.bas"
if(!qbevent)break;evnt(18794);}while(r);
#line 18795 "qb64pe.bas"
do{
#line 18795 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18795 "qb64pe.bas"
if(!qbevent)break;evnt(18795);}while(r);
#line 18796 "qb64pe.bas"
}else{
#line 18797 "qb64pe.bas"
do{
#line 18797 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18797 "qb64pe.bas"
if(!qbevent)break;evnt(18797);}while(r);
#line 18798 "qb64pe.bas"
}
#line 18799 "qb64pe.bas"
}
#line 18801 "qb64pe.bas"
do{
#line 18801 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_DOUBLETYPE;
#line 18801 "qb64pe.bas"
if(!qbevent)break;evnt(18801);}while(r);
#line 18802 "qb64pe.bas"
S_21725:;
#line 18802 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18802 "qb64pe.bas"
if(qbevent){evnt(18802);if(r)goto S_21725;}
#line 18802 "qb64pe.bas"
do{
#line 18802 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18802 "qb64pe.bas"
if(!qbevent)break;evnt(18802);}while(r);
#line 18802 "qb64pe.bas"
}
#line 18803 "qb64pe.bas"
S_21728:;
#line 18803 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18803 "qb64pe.bas"
if(qbevent){evnt(18803);if(r)goto S_21728;}
#line 18803 "qb64pe.bas"
do{
#line 18803 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18803 "qb64pe.bas"
if(!qbevent)break;evnt(18803);}while(r);
#line 18803 "qb64pe.bas"
do{
#line 18803 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18803 "qb64pe.bas"
if(!qbevent)break;evnt(18803);}while(r);
#line 18803 "qb64pe.bas"
}
#line 18805 "qb64pe.bas"
do{
#line 18805 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18805 "qb64pe.bas"
if(!qbevent)break;evnt(18805);}while(r);
#line 18806 "qb64pe.bas"
do{
#line 18806 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18806 "qb64pe.bas"
if(!qbevent)break;evnt(18806);}while(r);
#line 18807 "qb64pe.bas"
}else{
#line 18808 "qb64pe.bas"
do{
#line 18808 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18808 "qb64pe.bas"
if(!qbevent)break;evnt(18808);}while(r);
#line 18809 "qb64pe.bas"
do{
#line 18809 "qb64pe.bas"
SUB_CLEARID();
#line 18809 "qb64pe.bas"
if(!qbevent)break;evnt(18809);}while(r);
#line 18810 "qb64pe.bas"
do{
#line 18810 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_DOUBLETYPE;
#line 18810 "qb64pe.bas"
if(!qbevent)break;evnt(18810);}while(r);
#line 18811 "qb64pe.bas"
S_21738:;
#line 18811 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18811 "qb64pe.bas"
if(qbevent){evnt(18811);if(r)goto S_21738;}
#line 18811 "qb64pe.bas"
do{
#line 18811 "qb64pe.bas"
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)));
#line 18811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18811 "qb64pe.bas"
if(!qbevent)break;evnt(18811);}while(r);
#line 18811 "qb64pe.bas"
}
#line 18812 "qb64pe.bas"
S_21741:;
#line 18812 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18812 "qb64pe.bas"
if(qbevent){evnt(18812);if(r)goto S_21741;}
#line 18812 "qb64pe.bas"
do{
#line 18812 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18812 "qb64pe.bas"
if(!qbevent)break;evnt(18812);}while(r);
#line 18812 "qb64pe.bas"
}
#line 18813 "qb64pe.bas"
S_21744:;
#line 18813 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18813 "qb64pe.bas"
if(qbevent){evnt(18813);if(r)goto S_21744;}
#line 18814 "qb64pe.bas"
do{
#line 18814 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18814 "qb64pe.bas"
if(!qbevent)break;evnt(18814);}while(r);
#line 18815 "qb64pe.bas"
S_21746:;
#line 18815 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18815 "qb64pe.bas"
if(qbevent){evnt(18815);if(r)goto S_21746;}
#line 18815 "qb64pe.bas"
do{
#line 18815 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=8;",11));
#line 18815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18815 "qb64pe.bas"
if(!qbevent)break;evnt(18815);}while(r);
#line 18815 "qb64pe.bas"
}
#line 18816 "qb64pe.bas"
S_21749:;
#line 18816 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18816 "qb64pe.bas"
if(qbevent){evnt(18816);if(r)goto S_21749;}
#line 18816 "qb64pe.bas"
do{
#line 18816 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18816 "qb64pe.bas"
if(!qbevent)break;evnt(18816);}while(r);
#line 18816 "qb64pe.bas"
}
#line 18817 "qb64pe.bas"
S_21752:;
#line 18817 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18817 "qb64pe.bas"
if(qbevent){evnt(18817);if(r)goto S_21752;}
#line 18817 "qb64pe.bas"
do{
#line 18817 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18817 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18817 "qb64pe.bas"
if(!qbevent)break;evnt(18817);}while(r);
#line 18817 "qb64pe.bas"
}
#line 18818 "qb64pe.bas"
}else{
#line 18819 "qb64pe.bas"
S_21756:;
#line 18819 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18819 "qb64pe.bas"
if(qbevent){evnt(18819);if(r)goto S_21756;}
#line 18819 "qb64pe.bas"
do{
#line 18819 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18819 "qb64pe.bas"
if(!qbevent)break;evnt(18819);}while(r);
#line 18819 "qb64pe.bas"
}
#line 18820 "qb64pe.bas"
}
#line 18821 "qb64pe.bas"
S_21760:;
#line 18821 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18821 "qb64pe.bas"
if(qbevent){evnt(18821);if(r)goto S_21760;}
#line 18821 "qb64pe.bas"
do{
#line 18821 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18821 "qb64pe.bas"
if(!qbevent)break;evnt(18821);}while(r);
#line 18821 "qb64pe.bas"
}
#line 18822 "qb64pe.bas"
S_21763:;
#line 18822 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18822 "qb64pe.bas"
if(qbevent){evnt(18822);if(r)goto S_21763;}
#line 18822 "qb64pe.bas"
do{
#line 18822 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18822 "qb64pe.bas"
if(!qbevent)break;evnt(18822);}while(r);
#line 18822 "qb64pe.bas"
}
#line 18823 "qb64pe.bas"
}
#line 18824 "qb64pe.bas"
do{
#line 18824 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18824 "qb64pe.bas"
if(!qbevent)break;evnt(18824);}while(r);
#line 18825 "qb64pe.bas"
S_21768:;
#line 18825 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18825 "qb64pe.bas"
if(qbevent){evnt(18825);if(r)goto S_21768;}
#line 18826 "qb64pe.bas"
do{
#line 18826 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("#",1));
#line 18826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18826 "qb64pe.bas"
if(!qbevent)break;evnt(18826);}while(r);
#line 18827 "qb64pe.bas"
}
#line 18828 "qb64pe.bas"
S_21771:;
#line 18828 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18828 "qb64pe.bas"
if(qbevent){evnt(18828);if(r)goto S_21771;}
#line 18829 "qb64pe.bas"
do{
#line 18829 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("#",1));
#line 18829 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18829 "qb64pe.bas"
if(!qbevent)break;evnt(18829);}while(r);
#line 18830 "qb64pe.bas"
}
#line 18831 "qb64pe.bas"
do{
#line 18831 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18831 "qb64pe.bas"
if(!qbevent)break;evnt(18831);}while(r);
#line 18832 "qb64pe.bas"
do{
#line 18832 "qb64pe.bas"
SUB_REGID();
#line 18832 "qb64pe.bas"
if(!qbevent)break;evnt(18832);}while(r);
#line 18833 "qb64pe.bas"
do{
#line 18833 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2527= 0 ));
#line 18833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18833 "qb64pe.bas"
if(!qbevent)break;evnt(18833);}while(r);
#line 18834 "qb64pe.bas"
S_21777:;
#line 18834 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18834 "qb64pe.bas"
if(qbevent){evnt(18834);if(r)goto S_21777;}
#line 18834 "qb64pe.bas"
do{
#line 18834 "qb64pe.bas"
goto exit_subfunc;
#line 18834 "qb64pe.bas"
if(!qbevent)break;evnt(18834);}while(r);
#line 18834 "qb64pe.bas"
}
#line 18835 "qb64pe.bas"
do{
#line 18835 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18835 "qb64pe.bas"
if(!qbevent)break;evnt(18835);}while(r);
#line 18836 "qb64pe.bas"
}
#line 18838 "qb64pe.bas"
S_21782:;
#line 18838 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
#line 18838 "qb64pe.bas"
if(qbevent){evnt(18838);if(r)goto S_21782;}
#line 18839 "qb64pe.bas"
do{
#line 18839 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("long double",11));
#line 18839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18839 "qb64pe.bas"
if(!qbevent)break;evnt(18839);}while(r);
#line 18840 "qb64pe.bas"
do{
#line 18840 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("FLOAT_",6)),_FUNC_DIM2_STRING_VARNAME));
#line 18840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18840 "qb64pe.bas"
if(!qbevent)break;evnt(18840);}while(r);
#line 18841 "qb64pe.bas"
S_21785:;
#line 18841 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||is_error_pending()){
#line 18841 "qb64pe.bas"
if(qbevent){evnt(18841);if(r)goto S_21785;}
#line 18842 "qb64pe.bas"
do{
#line 18842 "qb64pe.bas"
*__LONG_ARRAYDESC= 0 ;
#line 18842 "qb64pe.bas"
if(!qbevent)break;evnt(18842);}while(r);
#line 18843 "qb64pe.bas"
do{
#line 18843 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("##",2)));
#line 18843 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18843 "qb64pe.bas"
if(!qbevent)break;evnt(18843);}while(r);
#line 18844 "qb64pe.bas"
S_21788:;
#line 18844 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18844 "qb64pe.bas"
if(qbevent){evnt(18844);if(r)goto S_21788;}
#line 18845 "qb64pe.bas"
do{
#line 18845 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18845 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18845 "qb64pe.bas"
if(!qbevent)break;evnt(18845);}while(r);
#line 18846 "qb64pe.bas"
S_21790:;
#line 18846 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18846 "qb64pe.bas"
if(qbevent){evnt(18846);if(r)goto S_21790;}
#line 18846 "qb64pe.bas"
do{
#line 18846 "qb64pe.bas"
goto exit_subfunc;
#line 18846 "qb64pe.bas"
if(!qbevent)break;evnt(18846);}while(r);
#line 18846 "qb64pe.bas"
}
#line 18847 "qb64pe.bas"
S_21793:;
#line 18847 "qb64pe.bas"
while((*_FUNC_DIM2_LONG_TRY)||is_error_pending()){
#line 18847 "qb64pe.bas"
if(qbevent){evnt(18847);if(r)goto S_21793;}
#line 18848 "qb64pe.bas"
S_21794:;
#line 18848 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 18848 "qb64pe.bas"
if(qbevent){evnt(18848);if(r)goto S_21794;}
#line 18849 "qb64pe.bas"
do{
#line 18849 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
#line 18849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18849 "qb64pe.bas"
if(!qbevent)break;evnt(18849);}while(r);
#line 18850 "qb64pe.bas"
do{
#line 18850 "qb64pe.bas"
*__LONG_ARRAYDESC=*__LONG_CURRENTID;
#line 18850 "qb64pe.bas"
if(!qbevent)break;evnt(18850);}while(r);
#line 18850 "qb64pe.bas"
do{
#line 18850 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE());
#line 18850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18850 "qb64pe.bas"
if(!qbevent)break;evnt(18850);}while(r);
#line 18851 "qb64pe.bas"
do{
#line 18851 "qb64pe.bas"
goto dl_exit_2528;
#line 18851 "qb64pe.bas"
if(!qbevent)break;evnt(18851);}while(r);
#line 18852 "qb64pe.bas"
}
#line 18853 "qb64pe.bas"
S_21800:;
#line 18853 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||is_error_pending()){
#line 18853 "qb64pe.bas"
if(qbevent){evnt(18853);if(r)goto S_21800;}
#line 18853 "qb64pe.bas"
do{
#line 18853 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 18853 "qb64pe.bas"
if(!qbevent)break;evnt(18853);}while(r);
#line 18853 "qb64pe.bas"
do{
#line 18853 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS);
#line 18853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18853 "qb64pe.bas"
if(!qbevent)break;evnt(18853);}while(r);
#line 18853 "qb64pe.bas"
}else{
#line 18853 "qb64pe.bas"
do{
#line 18853 "qb64pe.bas"
*_FUNC_DIM2_LONG_TRY= 0 ;
#line 18853 "qb64pe.bas"
if(!qbevent)break;evnt(18853);}while(r);
#line 18853 "qb64pe.bas"
}
#line 18854 "qb64pe.bas"
S_21806:;
#line 18854 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18854 "qb64pe.bas"
if(qbevent){evnt(18854);if(r)goto S_21806;}
#line 18854 "qb64pe.bas"
do{
#line 18854 "qb64pe.bas"
goto exit_subfunc;
#line 18854 "qb64pe.bas"
if(!qbevent)break;evnt(18854);}while(r);
#line 18854 "qb64pe.bas"
}
#line 18855 "qb64pe.bas"
dl_continue_2528:;
#line 18855 "qb64pe.bas"
}
#line 18855 "qb64pe.bas"
dl_exit_2528:;
#line 18856 "qb64pe.bas"
}
#line 18857 "qb64pe.bas"
do{
#line 18857 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N));
#line 18857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18857 "qb64pe.bas"
if(!qbevent)break;evnt(18857);}while(r);
#line 18863 "qb64pe.bas"
S_21812:;
#line 18863 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_F== 1 ))||is_error_pending()){
#line 18863 "qb64pe.bas"
if(qbevent){evnt(18863);if(r)goto S_21812;}
#line 18865 "qb64pe.bas"
S_21813:;
#line 18865 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||is_error_pending()){
#line 18865 "qb64pe.bas"
if(qbevent){evnt(18865);if(r)goto S_21813;}
#line 18866 "qb64pe.bas"
do{
#line 18866 "qb64pe.bas"
*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])];
#line 18866 "qb64pe.bas"
if(!qbevent)break;evnt(18866);}while(r);
#line 18866 "qb64pe.bas"
S_21815:;
#line 18866 "qb64pe.bas"
if ((*__LONG_E)||is_error_pending()){
#line 18866 "qb64pe.bas"
if(qbevent){evnt(18866);if(r)goto S_21815;}
#line 18866 "qb64pe.bas"
do{
#line 18866 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,qbs__tostr((int32)(*__LONG_E),NULL,0)));
#line 18866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18866 "qb64pe.bas"
if(!qbevent)break;evnt(18866);}while(r);
#line 18866 "qb64pe.bas"
}
#line 18867 "qb64pe.bas"
}
#line 18868 "qb64pe.bas"
do{
#line 18868 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2530= 32 ),&(pass2531= 0 ));
#line 18868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18868 "qb64pe.bas"
if(!qbevent)break;evnt(18868);}while(r);
#line 18869 "qb64pe.bas"
S_21820:;
#line 18869 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18869 "qb64pe.bas"
if(qbevent){evnt(18869);if(r)goto S_21820;}
#line 18869 "qb64pe.bas"
do{
#line 18869 "qb64pe.bas"
goto exit_subfunc;
#line 18869 "qb64pe.bas"
if(!qbevent)break;evnt(18869);}while(r);
#line 18869 "qb64pe.bas"
}
#line 18870 "qb64pe.bas"
do{
#line 18870 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 18870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18870 "qb64pe.bas"
if(!qbevent)break;evnt(18870);}while(r);
#line 18871 "qb64pe.bas"
S_21824:;
#line 18871 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 18871 "qb64pe.bas"
if(qbevent){evnt(18871);if(r)goto S_21824;}
#line 18871 "qb64pe.bas"
do{
#line 18871 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18871 "qb64pe.bas"
if(!qbevent)break;evnt(18871);}while(r);
#line 18871 "qb64pe.bas"
}
#line 18872 "qb64pe.bas"
do{
#line 18872 "qb64pe.bas"
SUB_CLEARID();
#line 18872 "qb64pe.bas"
if(!qbevent)break;evnt(18872);}while(r);
#line 18874 "qb64pe.bas"
}else{
#line 18875 "qb64pe.bas"
do{
#line 18875 "qb64pe.bas"
SUB_CLEARID();
#line 18875 "qb64pe.bas"
if(!qbevent)break;evnt(18875);}while(r);
#line 18876 "qb64pe.bas"
S_21830:;
#line 18876 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||is_error_pending()){
#line 18876 "qb64pe.bas"
if(qbevent){evnt(18876);if(r)goto S_21830;}
#line 18877 "qb64pe.bas"
do{
#line 18877 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME= -1 ;
#line 18877 "qb64pe.bas"
if(!qbevent)break;evnt(18877);}while(r);
#line 18878 "qb64pe.bas"
do{
#line 18878 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2951)))=*__LONG_GLINKID;
#line 18878 "qb64pe.bas"
if(!qbevent)break;evnt(18878);}while(r);
#line 18879 "qb64pe.bas"
do{
#line 18879 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2955)))=*__INTEGER_GLINKARG;
#line 18879 "qb64pe.bas"
if(!qbevent)break;evnt(18879);}while(r);
#line 18880 "qb64pe.bas"
}else{
#line 18881 "qb64pe.bas"
do{
#line 18881 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=qbr(qbs_val<long double>(_FUNC_DIM2_STRING_ELEMENTS));
#line 18881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18881 "qb64pe.bas"
if(!qbevent)break;evnt(18881);}while(r);
#line 18882 "qb64pe.bas"
}
#line 18883 "qb64pe.bas"
}
#line 18885 "qb64pe.bas"
do{
#line 18885 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*__LONG_FLOATTYPE;
#line 18885 "qb64pe.bas"
if(!qbevent)break;evnt(18885);}while(r);
#line 18886 "qb64pe.bas"
S_21839:;
#line 18886 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18886 "qb64pe.bas"
if(qbevent){evnt(18886);if(r)goto S_21839;}
#line 18886 "qb64pe.bas"
do{
#line 18886 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+512)))=*(int32*)(((char*)__UDT_ID)+((0+512)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18886 "qb64pe.bas"
if(!qbevent)break;evnt(18886);}while(r);
#line 18886 "qb64pe.bas"
}
#line 18887 "qb64pe.bas"
S_21842:;
#line 18887 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||is_error_pending()){
#line 18887 "qb64pe.bas"
if(qbevent){evnt(18887);if(r)goto S_21842;}
#line 18887 "qb64pe.bas"
do{
#line 18887 "qb64pe.bas"
*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ;
#line 18887 "qb64pe.bas"
if(!qbevent)break;evnt(18887);}while(r);
#line 18887 "qb64pe.bas"
do{
#line 18887 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+518)))= 1 ;
#line 18887 "qb64pe.bas"
if(!qbevent)break;evnt(18887);}while(r);
#line 18887 "qb64pe.bas"
}
#line 18889 "qb64pe.bas"
do{
#line 18889 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))=*_FUNC_DIM2_LONG_NUME;
#line 18889 "qb64pe.bas"
if(!qbevent)break;evnt(18889);}while(r);
#line 18890 "qb64pe.bas"
do{
#line 18890 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18890 "qb64pe.bas"
if(!qbevent)break;evnt(18890);}while(r);
#line 18891 "qb64pe.bas"
}else{
#line 18892 "qb64pe.bas"
do{
#line 18892 "qb64pe.bas"
qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N));
#line 18892 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18892 "qb64pe.bas"
if(!qbevent)break;evnt(18892);}while(r);
#line 18893 "qb64pe.bas"
do{
#line 18893 "qb64pe.bas"
SUB_CLEARID();
#line 18893 "qb64pe.bas"
if(!qbevent)break;evnt(18893);}while(r);
#line 18894 "qb64pe.bas"
do{
#line 18894 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*__LONG_FLOATTYPE;
#line 18894 "qb64pe.bas"
if(!qbevent)break;evnt(18894);}while(r);
#line 18895 "qb64pe.bas"
S_21852:;
#line 18895 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18895 "qb64pe.bas"
if(qbevent){evnt(18895);if(r)goto S_21852;}
#line 18895 "qb64pe.bas"
do{
#line 18895 "qb64pe.bas"
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)));
#line 18895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18895 "qb64pe.bas"
if(!qbevent)break;evnt(18895);}while(r);
#line 18895 "qb64pe.bas"
}
#line 18896 "qb64pe.bas"
S_21855:;
#line 18896 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18896 "qb64pe.bas"
if(qbevent){evnt(18896);if(r)goto S_21855;}
#line 18896 "qb64pe.bas"
do{
#line 18896 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)));
#line 18896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18896 "qb64pe.bas"
if(!qbevent)break;evnt(18896);}while(r);
#line 18896 "qb64pe.bas"
}
#line 18897 "qb64pe.bas"
S_21858:;
#line 18897 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 18897 "qb64pe.bas"
if(qbevent){evnt(18897);if(r)goto S_21858;}
#line 18898 "qb64pe.bas"
do{
#line 18898 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+540)))=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISINCONVENTIONALMEMORY;
#line 18898 "qb64pe.bas"
if(!qbevent)break;evnt(18898);}while(r);
#line 18899 "qb64pe.bas"
S_21860:;
#line 18899 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18899 "qb64pe.bas"
if(qbevent){evnt(18899);if(r)goto S_21860;}
#line 18899 "qb64pe.bas"
do{
#line 18899 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("cmem_sp-=32;",12));
#line 18899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18899 "qb64pe.bas"
if(!qbevent)break;evnt(18899);}while(r);
#line 18899 "qb64pe.bas"
}
#line 18900 "qb64pe.bas"
S_21863:;
#line 18900 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18900 "qb64pe.bas"
if(qbevent){evnt(18900);if(r)goto S_21863;}
#line 18900 "qb64pe.bas"
do{
#line 18900 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18900 "qb64pe.bas"
if(!qbevent)break;evnt(18900);}while(r);
#line 18900 "qb64pe.bas"
}
#line 18901 "qb64pe.bas"
S_21866:;
#line 18901 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18901 "qb64pe.bas"
if(qbevent){evnt(18901);if(r)goto S_21866;}
#line 18901 "qb64pe.bas"
do{
#line 18901 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 18901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18901 "qb64pe.bas"
if(!qbevent)break;evnt(18901);}while(r);
#line 18901 "qb64pe.bas"
}
#line 18902 "qb64pe.bas"
}else{
#line 18903 "qb64pe.bas"
S_21870:;
#line 18903 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18903 "qb64pe.bas"
if(qbevent){evnt(18903);if(r)goto S_21870;}
#line 18903 "qb64pe.bas"
do{
#line 18903 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 18903 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18903 "qb64pe.bas"
if(!qbevent)break;evnt(18903);}while(r);
#line 18903 "qb64pe.bas"
}
#line 18904 "qb64pe.bas"
}
#line 18905 "qb64pe.bas"
S_21874:;
#line 18905 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18905 "qb64pe.bas"
if(qbevent){evnt(18905);if(r)goto S_21874;}
#line 18905 "qb64pe.bas"
do{
#line 18905 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("*",1),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=0;",3)));
#line 18905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18905 "qb64pe.bas"
if(!qbevent)break;evnt(18905);}while(r);
#line 18905 "qb64pe.bas"
}
#line 18906 "qb64pe.bas"
S_21877:;
#line 18906 "qb64pe.bas"
if ((*_FUNC_DIM2_LONG_F)||is_error_pending()){
#line 18906 "qb64pe.bas"
if(qbevent){evnt(18906);if(r)goto S_21877;}
#line 18906 "qb64pe.bas"
do{
#line 18906 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 18906 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18906 "qb64pe.bas"
if(!qbevent)break;evnt(18906);}while(r);
#line 18906 "qb64pe.bas"
}
#line 18907 "qb64pe.bas"
}
#line 18908 "qb64pe.bas"
do{
#line 18908 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),_FUNC_DIM2_STRING_CVARNAME);
#line 18908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18908 "qb64pe.bas"
if(!qbevent)break;evnt(18908);}while(r);
#line 18909 "qb64pe.bas"
S_21882:;
#line 18909 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||is_error_pending()){
#line 18909 "qb64pe.bas"
if(qbevent){evnt(18909);if(r)goto S_21882;}
#line 18910 "qb64pe.bas"
do{
#line 18910 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("##",2));
#line 18910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18910 "qb64pe.bas"
if(!qbevent)break;evnt(18910);}while(r);
#line 18911 "qb64pe.bas"
}
#line 18912 "qb64pe.bas"
S_21885:;
#line 18912 "qb64pe.bas"
if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||is_error_pending()){
#line 18912 "qb64pe.bas"
if(qbevent){evnt(18912);if(r)goto S_21885;}
#line 18913 "qb64pe.bas"
do{
#line 18913 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1),qbs_new_txt_len("##",2));
#line 18913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18913 "qb64pe.bas"
if(!qbevent)break;evnt(18913);}while(r);
#line 18914 "qb64pe.bas"
}
#line 18915 "qb64pe.bas"
do{
#line 18915 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),_FUNC_DIM2_STRING_N);
#line 18915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18915 "qb64pe.bas"
if(!qbevent)break;evnt(18915);}while(r);
#line 18916 "qb64pe.bas"
do{
#line 18916 "qb64pe.bas"
SUB_REGID();
#line 18916 "qb64pe.bas"
if(!qbevent)break;evnt(18916);}while(r);
#line 18917 "qb64pe.bas"
do{
#line 18917 "qb64pe.bas"
SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2532= 0 ));
#line 18917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18917 "qb64pe.bas"
if(!qbevent)break;evnt(18917);}while(r);
#line 18918 "qb64pe.bas"
S_21891:;
#line 18918 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 18918 "qb64pe.bas"
if(qbevent){evnt(18918);if(r)goto S_21891;}
#line 18918 "qb64pe.bas"
do{
#line 18918 "qb64pe.bas"
goto exit_subfunc;
#line 18918 "qb64pe.bas"
if(!qbevent)break;evnt(18918);}while(r);
#line 18918 "qb64pe.bas"
}
#line 18919 "qb64pe.bas"
do{
#line 18919 "qb64pe.bas"
goto LABEL_DIM2EXITFUNC;
#line 18919 "qb64pe.bas"
if(!qbevent)break;evnt(18919);}while(r);
#line 18920 "qb64pe.bas"
}
#line 18922 "qb64pe.bas"
do{
#line 18922 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Unknown type",12));
#line 18922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18922 "qb64pe.bas"
if(!qbevent)break;evnt(18922);}while(r);
#line 18922 "qb64pe.bas"
do{
#line 18922 "qb64pe.bas"
goto exit_subfunc;
#line 18922 "qb64pe.bas"
if(!qbevent)break;evnt(18922);}while(r);
#line 18923 "qb64pe.bas"
LABEL_DIM2EXITFUNC:;
#line 18923 "qb64pe.bas"
if(qbevent){evnt(18923);r=0;}
#line 18925 "qb64pe.bas"
S_21898:;
#line 18925 "qb64pe.bas"
if ((*__INTEGER_DIMSFARRAY)||is_error_pending()){
#line 18925 "qb64pe.bas"
if(qbevent){evnt(18925);if(r)goto S_21898;}
#line 18926 "qb64pe.bas"
do{
#line 18926 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2959)))=*__LONG_GLINKID;
#line 18926 "qb64pe.bas"
if(!qbevent)break;evnt(18926);}while(r);
#line 18927 "qb64pe.bas"
do{
#line 18927 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2963)))=*__INTEGER_GLINKARG;
#line 18927 "qb64pe.bas"
if(!qbevent)break;evnt(18927);}while(r);
#line 18928 "qb64pe.bas"
}
#line 18931 "qb64pe.bas"
S_21902:;
#line 18931 "qb64pe.bas"
if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||is_error_pending()){
#line 18931 "qb64pe.bas"
if(qbevent){evnt(18931);if(r)goto S_21902;}
#line 18932 "qb64pe.bas"
do{
#line 18932 "qb64pe.bas"
*__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)));
#line 18932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18932 "qb64pe.bas"
if(!qbevent)break;evnt(18932);}while(r);
#line 18933 "qb64pe.bas"
do{
#line 18933 "qb64pe.bas"
*__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)));
#line 18933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18933 "qb64pe.bas"
if(!qbevent)break;evnt(18933);}while(r);
#line 18934 "qb64pe.bas"
do{
#line 18934 "qb64pe.bas"
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
#line 18934 "qb64pe.bas"
if(!qbevent)break;evnt(18934);}while(r);
#line 18935 "qb64pe.bas"
}
#line 18937 "qb64pe.bas"
do{
#line 18937 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_FUNC_DIM2_STRING_L);
#line 18937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18937 "qb64pe.bas"
if(!qbevent)break;evnt(18937);}while(r);
#line 18939 "qb64pe.bas"
exit_subfunc:;
#line 18939 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 18939 "qb64pe.bas"
#include "free57.txt"
#line 18939 "qb64pe.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 18939 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 18939 "qb64pe.bas"
return *_FUNC_DIM2_LONG_DIM2;
#line 18939 "qb64pe.bas"
}
