#line 15563 "qb64pe.bas"
qbs* FUNC_ARRAYREFERENCE(qbs*_FUNC_ARRAYREFERENCE_STRING_INDEXES,int32*_FUNC_ARRAYREFERENCE_LONG_TYP){
#line 15563 "qb64pe.bas"
qbs *tqbs;
#line 15563 "qb64pe.bas"
ptrszint tmp_long;
#line 15563 "qb64pe.bas"
int32 tmp_fileno;
#line 15563 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 15563 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 15563 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 15563 "qb64pe.bas"
#include "data14.txt"
#line 15563 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 15563 "qb64pe.bas"
new_mem_lock();
#line 15563 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 15563 "qb64pe.bas"
sf_mem_lock->type=3;
#line 15563 "qb64pe.bas"
libqb_check_stack();
#line 15563 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 15564 "qb64pe.bas"
do{
#line 15564 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 1 ;
#line 15564 "qb64pe.bas"
if(!qbevent)break;evnt(15564);}while(r);
#line 15574 "qb64pe.bas"
do{
#line 15574 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0));
#line 15574 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15574 "qb64pe.bas"
if(!qbevent)break;evnt(15574);}while(r);
#line 15576 "qb64pe.bas"
do{
#line 15576 "qb64pe.bas"
if(!qbevent)break;evnt(15576);}while(r);
#line 15578 "qb64pe.bas"
do{
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+0))),(((char*)__UDT_ID)+((0+0))+((0+0))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+256))),(((char*)__UDT_ID)+((0+0))+((0+256))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+512))),(((char*)__UDT_ID)+((0+0))+((0+512))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+516))),(((char*)__UDT_ID)+((0+0))+((0+516))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+518))),(((char*)__UDT_ID)+((0+0))+((0+518))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+520))),(((char*)__UDT_ID)+((0+0))+((0+520))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+522))),(((char*)__UDT_ID)+((0+0))+((0+522))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+524))),(((char*)__UDT_ID)+((0+0))+((0+524))),8);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+532))),(((char*)__UDT_ID)+((0+0))+((0+532))),8);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+540))),(((char*)__UDT_ID)+((0+0))+((0+540))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+544))),(((char*)__UDT_ID)+((0+0))+((0+544))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+548))),(((char*)__UDT_ID)+((0+0))+((0+548))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+550))),(((char*)__UDT_ID)+((0+0))+((0+550))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+552))),(((char*)__UDT_ID)+((0+0))+((0+552))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+554))),(((char*)__UDT_ID)+((0+0))+((0+554))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+810))),(((char*)__UDT_ID)+((0+0))+((0+810))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+812))),(((char*)__UDT_ID)+((0+0))+((0+812))),1);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+813))),(((char*)__UDT_ID)+((0+0))+((0+813))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+815))),(((char*)__UDT_ID)+((0+0))+((0+815))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+817))),(((char*)__UDT_ID)+((0+0))+((0+817))),400);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+1217))),(((char*)__UDT_ID)+((0+0))+((0+1217))),400);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+1617))),(((char*)__UDT_ID)+((0+0))+((0+1617))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+1873))),(((char*)__UDT_ID)+((0+0))+((0+1873))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2129))),(((char*)__UDT_ID)+((0+0))+((0+2129))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2385))),(((char*)__UDT_ID)+((0+0))+((0+2385))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2389))),(((char*)__UDT_ID)+((0+0))+((0+2389))),256);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2645))),(((char*)__UDT_ID)+((0+0))+((0+2645))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2649))),(((char*)__UDT_ID)+((0+0))+((0+2649))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2651))),(((char*)__UDT_ID)+((0+0))+((0+2651))),100);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2751))),(((char*)__UDT_ID)+((0+0))+((0+2751))),100);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2851))),(((char*)__UDT_ID)+((0+0))+((0+2851))),100);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2951))),(((char*)__UDT_ID)+((0+0))+((0+2951))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2955))),(((char*)__UDT_ID)+((0+0))+((0+2955))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2957))),(((char*)__UDT_ID)+((0+0))+((0+2957))),2);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2959))),(((char*)__UDT_ID)+((0+0))+((0+2959))),4);
#line 15578 "qb64pe.bas"
memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2963))),(((char*)__UDT_ID)+((0+0))+((0+2963))),2);
#line 15578 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))));
#line 15578 "qb64pe.bas"
if(!qbevent)break;evnt(15578);}while(r);
#line 15580 "qb64pe.bas"
do{
#line 15580 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_STRING_INDEXES);
#line 15580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15580 "qb64pe.bas"
if(!qbevent)break;evnt(15580);}while(r);
#line 15581 "qb64pe.bas"
do{
#line 15581 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_TYP=*(int32*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+512)))+*__LONG_ISARRAY+*__LONG_ISREFERENCE;
#line 15581 "qb64pe.bas"
if(!qbevent)break;evnt(15581);}while(r);
#line 15582 "qb64pe.bas"
do{
#line 15582 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+554))),256,1)));
#line 15582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15582 "qb64pe.bas"
if(!qbevent)break;evnt(15582);}while(r);
#line 15584 "qb64pe.bas"
S_18061:;
#line 15584 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 15584 "qb64pe.bas"
if(qbevent){evnt(15584);if(r)goto S_18061;}
#line 15585 "qb64pe.bas"
do{
#line 15585 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("0",1));
#line 15585 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15585 "qb64pe.bas"
if(!qbevent)break;evnt(15585);}while(r);
#line 15586 "qb64pe.bas"
do{
#line 15586 "qb64pe.bas"
goto LABEL_GOTARRAYINDEX;
#line 15586 "qb64pe.bas"
if(!qbevent)break;evnt(15586);}while(r);
#line 15587 "qb64pe.bas"
}
#line 15589 "qb64pe.bas"
do{
#line 15589 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A);
#line 15589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15589 "qb64pe.bas"
if(!qbevent)break;evnt(15589);}while(r);
#line 15592 "qb64pe.bas"
do{
#line 15592 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS= 1 ;
#line 15592 "qb64pe.bas"
if(!qbevent)break;evnt(15592);}while(r);
#line 15593 "qb64pe.bas"
do{
#line 15593 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_B= 0 ;
#line 15593 "qb64pe.bas"
if(!qbevent)break;evnt(15593);}while(r);
#line 15594 "qb64pe.bas"
S_18068:;
#line 15594 "qb64pe.bas"
fornext_value2112= 1 ;
#line 15594 "qb64pe.bas"
fornext_finalvalue2112=*_FUNC_ARRAYREFERENCE_LONG_N;
#line 15594 "qb64pe.bas"
fornext_step2112= 1 ;
#line 15594 "qb64pe.bas"
if (fornext_step2112<0) fornext_step_negative2112=1; else fornext_step_negative2112=0;
#line 15594 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2112;
#line 15594 "qb64pe.bas"
goto fornext_entrylabel2112;
#line 15594 "qb64pe.bas"
while(1){
#line 15594 "qb64pe.bas"
fornext_value2112=fornext_step2112+(*_FUNC_ARRAYREFERENCE_LONG_I);
#line 15594 "qb64pe.bas"
fornext_entrylabel2112:
#line 15594 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2112;
#line 15594 "qb64pe.bas"
if (fornext_step_negative2112){
#line 15594 "qb64pe.bas"
if (fornext_value2112<fornext_finalvalue2112) break;
#line 15594 "qb64pe.bas"
}else{
#line 15594 "qb64pe.bas"
if (fornext_value2112>fornext_finalvalue2112) break;
#line 15594 "qb64pe.bas"
}
#line 15594 "qb64pe.bas"
fornext_error2112:;
#line 15594 "qb64pe.bas"
if(qbevent){evnt(15594);if(r)goto S_18068;}
#line 15595 "qb64pe.bas"
do{
#line 15595 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_A=qbs_asc(FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I));
#line 15595 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15595 "qb64pe.bas"
if(!qbevent)break;evnt(15595);}while(r);
#line 15596 "qb64pe.bas"
S_18070:;
#line 15596 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 40 ))||is_error_pending()){
#line 15596 "qb64pe.bas"
if(qbevent){evnt(15596);if(r)goto S_18070;}
#line 15596 "qb64pe.bas"
do{
#line 15596 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ;
#line 15596 "qb64pe.bas"
if(!qbevent)break;evnt(15596);}while(r);
#line 15596 "qb64pe.bas"
}
#line 15597 "qb64pe.bas"
S_18073:;
#line 15597 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 41 ))||is_error_pending()){
#line 15597 "qb64pe.bas"
if(qbevent){evnt(15597);if(r)goto S_18073;}
#line 15597 "qb64pe.bas"
do{
#line 15597 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ;
#line 15597 "qb64pe.bas"
if(!qbevent)break;evnt(15597);}while(r);
#line 15597 "qb64pe.bas"
}
#line 15598 "qb64pe.bas"
S_18076:;
#line 15598 "qb64pe.bas"
if (((-(*_FUNC_ARRAYREFERENCE_LONG_A== 44 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))||is_error_pending()){
#line 15598 "qb64pe.bas"
if(qbevent){evnt(15598);if(r)goto S_18076;}
#line 15598 "qb64pe.bas"
do{
#line 15598 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS+ 1 ;
#line 15598 "qb64pe.bas"
if(!qbevent)break;evnt(15598);}while(r);
#line 15598 "qb64pe.bas"
}
#line 15599 "qb64pe.bas"
fornext_continue_2111:;
#line 15599 "qb64pe.bas"
}
#line 15599 "qb64pe.bas"
fornext_exit_2111:;
#line 15601 "qb64pe.bas"
S_18080:;
#line 15601 "qb64pe.bas"
if ((-(*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+516)))== -1 ))||is_error_pending()){
#line 15601 "qb64pe.bas"
if(qbevent){evnt(15601);if(r)goto S_18080;}
#line 15602 "qb64pe.bas"
S_18081:;
#line 15602 "qb64pe.bas"
if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||is_error_pending()){
#line 15602 "qb64pe.bas"
if(qbevent){evnt(15602);if(r)goto S_18081;}
#line 15602 "qb64pe.bas"
do{
#line 15602 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 15602 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15602 "qb64pe.bas"
if(!qbevent)break;evnt(15602);}while(r);
#line 15602 "qb64pe.bas"
do{
#line 15602 "qb64pe.bas"
goto exit_subfunc;
#line 15602 "qb64pe.bas"
if(!qbevent)break;evnt(15602);}while(r);
#line 15602 "qb64pe.bas"
}
#line 15603 "qb64pe.bas"
S_18085:;
#line 15603 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS== 1 ))||is_error_pending()){
#line 15603 "qb64pe.bas"
if(qbevent){evnt(15603);if(r)goto S_18085;}
#line 15603 "qb64pe.bas"
do{
#line 15603 "qb64pe.bas"
*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+516)))= 1 ;
#line 15603 "qb64pe.bas"
if(!qbevent)break;evnt(15603);}while(r);
#line 15603 "qb64pe.bas"
do{
#line 15603 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+516)))= 1 ;
#line 15603 "qb64pe.bas"
if(!qbevent)break;evnt(15603);}while(r);
#line 15603 "qb64pe.bas"
}
#line 15604 "qb64pe.bas"
do{
#line 15604 "qb64pe.bas"
tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
#line 15604 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS;
#line 15604 "qb64pe.bas"
if(!qbevent)break;evnt(15604);}while(r);
#line 15605 "qb64pe.bas"
}else{
#line 15606 "qb64pe.bas"
S_18091:;
#line 15606 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+((0+516)))))||is_error_pending()){
#line 15606 "qb64pe.bas"
if(qbevent){evnt(15606);if(r)goto S_18091;}
#line 15606 "qb64pe.bas"
do{
#line 15606 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 15606 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15606 "qb64pe.bas"
if(!qbevent)break;evnt(15606);}while(r);
#line 15606 "qb64pe.bas"
do{
#line 15606 "qb64pe.bas"
goto exit_subfunc;
#line 15606 "qb64pe.bas"
if(!qbevent)break;evnt(15606);}while(r);
#line 15606 "qb64pe.bas"
}
#line 15607 "qb64pe.bas"
}
#line 15609 "qb64pe.bas"
do{
#line 15609 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_CURARG= 1 ;
#line 15609 "qb64pe.bas"
if(!qbevent)break;evnt(15609);}while(r);
#line 15610 "qb64pe.bas"
do{
#line 15610 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_FIRSTI= 1 ;
#line 15610 "qb64pe.bas"
if(!qbevent)break;evnt(15610);}while(r);
#line 15611 "qb64pe.bas"
S_18098:;
#line 15611 "qb64pe.bas"
fornext_value2114= 1 ;
#line 15611 "qb64pe.bas"
fornext_finalvalue2114=*_FUNC_ARRAYREFERENCE_LONG_N;
#line 15611 "qb64pe.bas"
fornext_step2114= 1 ;
#line 15611 "qb64pe.bas"
if (fornext_step2114<0) fornext_step_negative2114=1; else fornext_step_negative2114=0;
#line 15611 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2114;
#line 15611 "qb64pe.bas"
goto fornext_entrylabel2114;
#line 15611 "qb64pe.bas"
while(1){
#line 15611 "qb64pe.bas"
fornext_value2114=fornext_step2114+(*_FUNC_ARRAYREFERENCE_LONG_I);
#line 15611 "qb64pe.bas"
fornext_entrylabel2114:
#line 15611 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2114;
#line 15611 "qb64pe.bas"
if (fornext_step_negative2114){
#line 15611 "qb64pe.bas"
if (fornext_value2114<fornext_finalvalue2114) break;
#line 15611 "qb64pe.bas"
}else{
#line 15611 "qb64pe.bas"
if (fornext_value2114>fornext_finalvalue2114) break;
#line 15611 "qb64pe.bas"
}
#line 15611 "qb64pe.bas"
fornext_error2114:;
#line 15611 "qb64pe.bas"
if(qbevent){evnt(15611);if(r)goto S_18098;}
#line 15612 "qb64pe.bas"
do{
#line 15612 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_L,FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I));
#line 15612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15612 "qb64pe.bas"
if(!qbevent)break;evnt(15612);}while(r);
#line 15613 "qb64pe.bas"
S_18100:;
#line 15613 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 15613 "qb64pe.bas"
if(qbevent){evnt(15613);if(r)goto S_18100;}
#line 15613 "qb64pe.bas"
do{
#line 15613 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ;
#line 15613 "qb64pe.bas"
if(!qbevent)break;evnt(15613);}while(r);
#line 15613 "qb64pe.bas"
}
#line 15614 "qb64pe.bas"
S_18103:;
#line 15614 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 15614 "qb64pe.bas"
if(qbevent){evnt(15614);if(r)goto S_18103;}
#line 15614 "qb64pe.bas"
do{
#line 15614 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ;
#line 15614 "qb64pe.bas"
if(!qbevent)break;evnt(15614);}while(r);
#line 15614 "qb64pe.bas"
}
#line 15615 "qb64pe.bas"
S_18106:;
#line 15615 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))|(-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))))||is_error_pending()){
#line 15615 "qb64pe.bas"
if(qbevent){evnt(15615);if(r)goto S_18106;}
#line 15616 "qb64pe.bas"
S_18107:;
#line 15616 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))||is_error_pending()){
#line 15616 "qb64pe.bas"
if(qbevent){evnt(15616);if(r)goto S_18107;}
#line 15617 "qb64pe.bas"
S_18108:;
#line 15617 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 15617 "qb64pe.bas"
if(qbevent){evnt(15617);if(r)goto S_18108;}
#line 15617 "qb64pe.bas"
do{
#line 15617 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 15617 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15617 "qb64pe.bas"
if(!qbevent)break;evnt(15617);}while(r);
#line 15617 "qb64pe.bas"
do{
#line 15617 "qb64pe.bas"
goto exit_subfunc;
#line 15617 "qb64pe.bas"
if(!qbevent)break;evnt(15617);}while(r);
#line 15617 "qb64pe.bas"
}
#line 15618 "qb64pe.bas"
do{
#line 15618 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,_FUNC_ARRAYREFERENCE_LONG_I),&(pass2115= 64 )));
#line 15618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15618 "qb64pe.bas"
if(!qbevent)break;evnt(15618);}while(r);
#line 15619 "qb64pe.bas"
S_18113:;
#line 15619 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15619 "qb64pe.bas"
if(qbevent){evnt(15619);if(r)goto S_18113;}
#line 15619 "qb64pe.bas"
do{
#line 15619 "qb64pe.bas"
goto exit_subfunc;
#line 15619 "qb64pe.bas"
if(!qbevent)break;evnt(15619);}while(r);
#line 15619 "qb64pe.bas"
}
#line 15620 "qb64pe.bas"
}else{
#line 15621 "qb64pe.bas"
do{
#line 15621 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2116=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2117= 64 )));
#line 15621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15621 "qb64pe.bas"
if(!qbevent)break;evnt(15621);}while(r);
#line 15622 "qb64pe.bas"
S_18118:;
#line 15622 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15622 "qb64pe.bas"
if(qbevent){evnt(15622);if(r)goto S_18118;}
#line 15622 "qb64pe.bas"
do{
#line 15622 "qb64pe.bas"
goto exit_subfunc;
#line 15622 "qb64pe.bas"
if(!qbevent)break;evnt(15622);}while(r);
#line 15622 "qb64pe.bas"
}
#line 15623 "qb64pe.bas"
}
#line 15624 "qb64pe.bas"
S_18122:;
#line 15624 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 15624 "qb64pe.bas"
if(qbevent){evnt(15624);if(r)goto S_18122;}
#line 15624 "qb64pe.bas"
do{
#line 15624 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 15624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15624 "qb64pe.bas"
if(!qbevent)break;evnt(15624);}while(r);
#line 15624 "qb64pe.bas"
do{
#line 15624 "qb64pe.bas"
goto exit_subfunc;
#line 15624 "qb64pe.bas"
if(!qbevent)break;evnt(15624);}while(r);
#line 15624 "qb64pe.bas"
}
#line 15625 "qb64pe.bas"
do{
#line 15625 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_ARGI=((*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS-*_FUNC_ARRAYREFERENCE_LONG_CURARG)* 4 )+( 4 );
#line 15625 "qb64pe.bas"
if(!qbevent)break;evnt(15625);}while(r);
#line 15626 "qb64pe.bas"
S_18127:;
#line 15626 "qb64pe.bas"
if ((-(*_FUNC_ARRAYREFERENCE_LONG_CURARG== 1 ))||is_error_pending()){
#line 15626 "qb64pe.bas"
if(qbevent){evnt(15626);if(r)goto S_18127;}
#line 15627 "qb64pe.bas"
S_18128:;
#line 15627 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 15627 "qb64pe.bas"
if(qbevent){evnt(15627);if(r)goto S_18128;}
#line 15628 "qb64pe.bas"
do{
#line 15628 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ARRAYREFERENCE_LONG_ARGI),NULL,0)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("])+",3)));
#line 15628 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15628 "qb64pe.bas"
if(!qbevent)break;evnt(15628);}while(r);
#line 15629 "qb64pe.bas"
}else{
#line 15630 "qb64pe.bas"
do{
#line 15630 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("(",1)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ARRAYREFERENCE_LONG_ARGI),NULL,0)),qbs_new_txt_len("]+",2)));
#line 15630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15630 "qb64pe.bas"
if(!qbevent)break;evnt(15630);}while(r);
#line 15631 "qb64pe.bas"
}
#line 15633 "qb64pe.bas"
}else{
#line 15634 "qb64pe.bas"
S_18134:;
#line 15634 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 15634 "qb64pe.bas"
if(qbevent){evnt(15634);if(r)goto S_18134;}
#line 15635 "qb64pe.bas"
do{
#line 15635 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ARRAYREFERENCE_LONG_ARGI),NULL,0)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("]+",2)));
#line 15635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15635 "qb64pe.bas"
if(!qbevent)break;evnt(15635);}while(r);
#line 15636 "qb64pe.bas"
}else{
#line 15637 "qb64pe.bas"
do{
#line 15637 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("((",2)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ARRAYREFERENCE_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("]+",2)));
#line 15637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15637 "qb64pe.bas"
if(!qbevent)break;evnt(15637);}while(r);
#line 15638 "qb64pe.bas"
}
#line 15639 "qb64pe.bas"
}
#line 15640 "qb64pe.bas"
do{
#line 15640 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_FIRSTI=*_FUNC_ARRAYREFERENCE_LONG_I+ 1 ;
#line 15640 "qb64pe.bas"
if(!qbevent)break;evnt(15640);}while(r);
#line 15641 "qb64pe.bas"
do{
#line 15641 "qb64pe.bas"
*_FUNC_ARRAYREFERENCE_LONG_CURARG=*_FUNC_ARRAYREFERENCE_LONG_CURARG+ 1 ;
#line 15641 "qb64pe.bas"
if(!qbevent)break;evnt(15641);}while(r);
#line 15642 "qb64pe.bas"
}
#line 15643 "qb64pe.bas"
fornext_continue_2113:;
#line 15643 "qb64pe.bas"
}
#line 15643 "qb64pe.bas"
fornext_exit_2113:;
#line 15644 "qb64pe.bas"
do{
#line 15644 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_left(_FUNC_ARRAYREFERENCE_STRING_R,_FUNC_ARRAYREFERENCE_STRING_R->len- 1 ));
#line 15644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15644 "qb64pe.bas"
if(!qbevent)break;evnt(15644);}while(r);
#line 15645 "qb64pe.bas"
LABEL_GOTARRAYINDEX:;
#line 15645 "qb64pe.bas"
if(qbevent){evnt(15645);r=0;}
#line 15647 "qb64pe.bas"
do{
#line 15647 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,__STRING1_SP3),_FUNC_ARRAYREFERENCE_STRING_R));
#line 15647 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15647 "qb64pe.bas"
if(!qbevent)break;evnt(15647);}while(r);
#line 15648 "qb64pe.bas"
do{
#line 15648 "qb64pe.bas"
qbs_set(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE,_FUNC_ARRAYREFERENCE_STRING_R);
#line 15648 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15648 "qb64pe.bas"
if(!qbevent)break;evnt(15648);}while(r);
#line 15651 "qb64pe.bas"
exit_subfunc:;
#line 15651 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 15651 "qb64pe.bas"
#include "free14.txt"
#line 15651 "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 15651 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 15651 "qb64pe.bas"
qbs_maketmp(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE);return _FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE;
#line 15651 "qb64pe.bas"
}
