#line 23405 "qb64pe.bas"
int32 FUNC_FINDARRAY(qbs*_FUNC_FINDARRAY_STRING_SECURE){
#line 23405 "qb64pe.bas"
qbs *tqbs;
#line 23405 "qb64pe.bas"
ptrszint tmp_long;
#line 23405 "qb64pe.bas"
int32 tmp_fileno;
#line 23405 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 23405 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 23405 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 23405 "qb64pe.bas"
#include "data69.txt"
#line 23405 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 23405 "qb64pe.bas"
new_mem_lock();
#line 23405 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 23405 "qb64pe.bas"
sf_mem_lock->type=3;
#line 23405 "qb64pe.bas"
libqb_check_stack();
#line 23405 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 23406 "qb64pe.bas"
do{
#line 23406 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ;
#line 23406 "qb64pe.bas"
if(!qbevent)break;evnt(23406);}while(r);
#line 23407 "qb64pe.bas"
do{
#line 23407 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE);
#line 23407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23407 "qb64pe.bas"
if(!qbevent)break;evnt(23407);}while(r);
#line 23408 "qb64pe.bas"
S_26828:;
#line 23408 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23408 "qb64pe.bas"
if(qbevent){evnt(23408);if(r)goto S_26828;}
#line 23408 "qb64pe.bas"
do{
#line 23408 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23408 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23408 "qb64pe.bas"
if (is_error_pending()) goto skip2898;
#line 23408 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("func findarray:in:",18),_FUNC_FINDARRAY_STRING_N), 0, 0, 1);
#line 23408 "qb64pe.bas"
if (is_error_pending()) goto skip2898;
#line 23408 "qb64pe.bas"
skip2898:
#line 23408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23408 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23408 "qb64pe.bas"
if(!qbevent)break;evnt(23408);}while(r);
#line 23408 "qb64pe.bas"
}
#line 23409 "qb64pe.bas"
S_26831:;
#line 23409 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_FINDARRAY_STRING_N))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||is_error_pending()){
#line 23409 "qb64pe.bas"
if(qbevent){evnt(23409);if(r)goto S_26831;}
#line 23409 "qb64pe.bas"
do{
#line 23409 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ;
#line 23409 "qb64pe.bas"
if(!qbevent)break;evnt(23409);}while(r);
#line 23409 "qb64pe.bas"
do{
#line 23409 "qb64pe.bas"
goto exit_subfunc;
#line 23409 "qb64pe.bas"
if(!qbevent)break;evnt(23409);}while(r);
#line 23409 "qb64pe.bas"
}
#line 23412 "qb64pe.bas"
do{
#line 23412 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("~",1),0);
#line 23412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23412 "qb64pe.bas"
if(!qbevent)break;evnt(23412);}while(r);
#line 23412 "qb64pe.bas"
S_26836:;
#line 23412 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23412 "qb64pe.bas"
if(qbevent){evnt(23412);if(r)goto S_26836;}
#line 23412 "qb64pe.bas"
do{
#line 23412 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23412 "qb64pe.bas"
if(!qbevent)break;evnt(23412);}while(r);
#line 23412 "qb64pe.bas"
do{
#line 23412 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23412 "qb64pe.bas"
if(!qbevent)break;evnt(23412);}while(r);
#line 23412 "qb64pe.bas"
do{
#line 23412 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23412 "qb64pe.bas"
if(!qbevent)break;evnt(23412);}while(r);
#line 23412 "qb64pe.bas"
}
#line 23413 "qb64pe.bas"
do{
#line 23413 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("`",1),0);
#line 23413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23413 "qb64pe.bas"
if(!qbevent)break;evnt(23413);}while(r);
#line 23413 "qb64pe.bas"
S_26842:;
#line 23413 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23413 "qb64pe.bas"
if(qbevent){evnt(23413);if(r)goto S_26842;}
#line 23413 "qb64pe.bas"
do{
#line 23413 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23413 "qb64pe.bas"
if(!qbevent)break;evnt(23413);}while(r);
#line 23413 "qb64pe.bas"
do{
#line 23413 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23413 "qb64pe.bas"
if(!qbevent)break;evnt(23413);}while(r);
#line 23413 "qb64pe.bas"
do{
#line 23413 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23413 "qb64pe.bas"
if(!qbevent)break;evnt(23413);}while(r);
#line 23413 "qb64pe.bas"
}
#line 23414 "qb64pe.bas"
do{
#line 23414 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("%",1),0);
#line 23414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23414 "qb64pe.bas"
if(!qbevent)break;evnt(23414);}while(r);
#line 23414 "qb64pe.bas"
S_26848:;
#line 23414 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23414 "qb64pe.bas"
if(qbevent){evnt(23414);if(r)goto S_26848;}
#line 23414 "qb64pe.bas"
do{
#line 23414 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23414 "qb64pe.bas"
if(!qbevent)break;evnt(23414);}while(r);
#line 23414 "qb64pe.bas"
do{
#line 23414 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23414 "qb64pe.bas"
if(!qbevent)break;evnt(23414);}while(r);
#line 23414 "qb64pe.bas"
do{
#line 23414 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23414 "qb64pe.bas"
if(!qbevent)break;evnt(23414);}while(r);
#line 23414 "qb64pe.bas"
}
#line 23415 "qb64pe.bas"
do{
#line 23415 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("&",1),0);
#line 23415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23415 "qb64pe.bas"
if(!qbevent)break;evnt(23415);}while(r);
#line 23415 "qb64pe.bas"
S_26854:;
#line 23415 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23415 "qb64pe.bas"
if(qbevent){evnt(23415);if(r)goto S_26854;}
#line 23415 "qb64pe.bas"
do{
#line 23415 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23415 "qb64pe.bas"
if(!qbevent)break;evnt(23415);}while(r);
#line 23415 "qb64pe.bas"
do{
#line 23415 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23415 "qb64pe.bas"
if(!qbevent)break;evnt(23415);}while(r);
#line 23415 "qb64pe.bas"
do{
#line 23415 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23415 "qb64pe.bas"
if(!qbevent)break;evnt(23415);}while(r);
#line 23415 "qb64pe.bas"
}
#line 23416 "qb64pe.bas"
do{
#line 23416 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("!",1),0);
#line 23416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23416 "qb64pe.bas"
if(!qbevent)break;evnt(23416);}while(r);
#line 23416 "qb64pe.bas"
S_26860:;
#line 23416 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23416 "qb64pe.bas"
if(qbevent){evnt(23416);if(r)goto S_26860;}
#line 23416 "qb64pe.bas"
do{
#line 23416 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23416 "qb64pe.bas"
if(!qbevent)break;evnt(23416);}while(r);
#line 23416 "qb64pe.bas"
do{
#line 23416 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23416 "qb64pe.bas"
if(!qbevent)break;evnt(23416);}while(r);
#line 23416 "qb64pe.bas"
do{
#line 23416 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23416 "qb64pe.bas"
if(!qbevent)break;evnt(23416);}while(r);
#line 23416 "qb64pe.bas"
}
#line 23417 "qb64pe.bas"
do{
#line 23417 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("#",1),0);
#line 23417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23417 "qb64pe.bas"
if(!qbevent)break;evnt(23417);}while(r);
#line 23417 "qb64pe.bas"
S_26866:;
#line 23417 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23417 "qb64pe.bas"
if(qbevent){evnt(23417);if(r)goto S_26866;}
#line 23417 "qb64pe.bas"
do{
#line 23417 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23417 "qb64pe.bas"
if(!qbevent)break;evnt(23417);}while(r);
#line 23417 "qb64pe.bas"
do{
#line 23417 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23417 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23417 "qb64pe.bas"
if(!qbevent)break;evnt(23417);}while(r);
#line 23417 "qb64pe.bas"
do{
#line 23417 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23417 "qb64pe.bas"
if(!qbevent)break;evnt(23417);}while(r);
#line 23417 "qb64pe.bas"
}
#line 23418 "qb64pe.bas"
do{
#line 23418 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("$",1),0);
#line 23418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23418 "qb64pe.bas"
if(!qbevent)break;evnt(23418);}while(r);
#line 23418 "qb64pe.bas"
S_26872:;
#line 23418 "qb64pe.bas"
if ((*_FUNC_FINDARRAY_LONG_I)||is_error_pending()){
#line 23418 "qb64pe.bas"
if(qbevent){evnt(23418);if(r)goto S_26872;}
#line 23418 "qb64pe.bas"
do{
#line 23418 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 ));
#line 23418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23418 "qb64pe.bas"
if(!qbevent)break;evnt(23418);}while(r);
#line 23418 "qb64pe.bas"
do{
#line 23418 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 ));
#line 23418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23418 "qb64pe.bas"
if(!qbevent)break;evnt(23418);}while(r);
#line 23418 "qb64pe.bas"
do{
#line 23418 "qb64pe.bas"
goto LABEL_GOTSC2;
#line 23418 "qb64pe.bas"
if(!qbevent)break;evnt(23418);}while(r);
#line 23418 "qb64pe.bas"
}
#line 23419 "qb64pe.bas"
LABEL_GOTSC2:;
#line 23419 "qb64pe.bas"
if(qbevent){evnt(23419);r=0;}
#line 23420 "qb64pe.bas"
do{
#line 23420 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SC));
#line 23420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23420 "qb64pe.bas"
if(!qbevent)break;evnt(23420);}while(r);
#line 23422 "qb64pe.bas"
S_26878:;
#line 23422 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 23422 "qb64pe.bas"
if(qbevent){evnt(23422);if(r)goto S_26878;}
#line 23425 "qb64pe.bas"
do{
#line 23425 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23425 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23425 "qb64pe.bas"
if(!qbevent)break;evnt(23425);}while(r);
#line 23425 "qb64pe.bas"
S_26880:;
#line 23425 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23425 "qb64pe.bas"
if(qbevent){evnt(23425);if(r)goto S_26880;}
#line 23425 "qb64pe.bas"
do{
#line 23425 "qb64pe.bas"
goto exit_subfunc;
#line 23425 "qb64pe.bas"
if(!qbevent)break;evnt(23425);}while(r);
#line 23425 "qb64pe.bas"
}
#line 23426 "qb64pe.bas"
S_26883:;
#line 23426 "qb64pe.bas"
while((*_FUNC_FINDARRAY_LONG_TRY)||is_error_pending()){
#line 23426 "qb64pe.bas"
if(qbevent){evnt(23426);if(r)goto S_26883;}
#line 23427 "qb64pe.bas"
S_26884:;
#line 23427 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23427 "qb64pe.bas"
if(qbevent){evnt(23427);if(r)goto S_26884;}
#line 23428 "qb64pe.bas"
do{
#line 23428 "qb64pe.bas"
goto exit_subfunc;
#line 23428 "qb64pe.bas"
if(!qbevent)break;evnt(23428);}while(r);
#line 23429 "qb64pe.bas"
}
#line 23430 "qb64pe.bas"
S_26887:;
#line 23430 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||is_error_pending()){
#line 23430 "qb64pe.bas"
if(qbevent){evnt(23430);if(r)goto S_26887;}
#line 23430 "qb64pe.bas"
do{
#line 23430 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23430 "qb64pe.bas"
if(!qbevent)break;evnt(23430);}while(r);
#line 23430 "qb64pe.bas"
do{
#line 23430 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23430 "qb64pe.bas"
if(!qbevent)break;evnt(23430);}while(r);
#line 23430 "qb64pe.bas"
}else{
#line 23430 "qb64pe.bas"
do{
#line 23430 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY= 0 ;
#line 23430 "qb64pe.bas"
if(!qbevent)break;evnt(23430);}while(r);
#line 23430 "qb64pe.bas"
}
#line 23431 "qb64pe.bas"
S_26893:;
#line 23431 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23431 "qb64pe.bas"
if(qbevent){evnt(23431);if(r)goto S_26893;}
#line 23431 "qb64pe.bas"
do{
#line 23431 "qb64pe.bas"
goto exit_subfunc;
#line 23431 "qb64pe.bas"
if(!qbevent)break;evnt(23431);}while(r);
#line 23431 "qb64pe.bas"
}
#line 23432 "qb64pe.bas"
dl_continue_2906:;
#line 23432 "qb64pe.bas"
}
#line 23432 "qb64pe.bas"
dl_exit_2906:;
#line 23434 "qb64pe.bas"
}else{
#line 23438 "qb64pe.bas"
do{
#line 23438 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23438 "qb64pe.bas"
if(!qbevent)break;evnt(23438);}while(r);
#line 23438 "qb64pe.bas"
S_26899:;
#line 23438 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23438 "qb64pe.bas"
if(qbevent){evnt(23438);if(r)goto S_26899;}
#line 23438 "qb64pe.bas"
do{
#line 23438 "qb64pe.bas"
goto exit_subfunc;
#line 23438 "qb64pe.bas"
if(!qbevent)break;evnt(23438);}while(r);
#line 23438 "qb64pe.bas"
}
#line 23439 "qb64pe.bas"
S_26902:;
#line 23439 "qb64pe.bas"
while((*_FUNC_FINDARRAY_LONG_TRY)||is_error_pending()){
#line 23439 "qb64pe.bas"
if(qbevent){evnt(23439);if(r)goto S_26902;}
#line 23440 "qb64pe.bas"
S_26903:;
#line 23440 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23440 "qb64pe.bas"
if(qbevent){evnt(23440);if(r)goto S_26903;}
#line 23441 "qb64pe.bas"
S_26904:;
#line 23441 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
#line 23441 "qb64pe.bas"
if(qbevent){evnt(23441);if(r)goto S_26904;}
#line 23441 "qb64pe.bas"
do{
#line 23441 "qb64pe.bas"
goto exit_subfunc;
#line 23441 "qb64pe.bas"
if(!qbevent)break;evnt(23441);}while(r);
#line 23441 "qb64pe.bas"
}
#line 23442 "qb64pe.bas"
S_26907:;
#line 23442 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 23442 "qb64pe.bas"
if(qbevent){evnt(23442);if(r)goto S_26907;}
#line 23442 "qb64pe.bas"
do{
#line 23442 "qb64pe.bas"
goto exit_subfunc;
#line 23442 "qb64pe.bas"
if(!qbevent)break;evnt(23442);}while(r);
#line 23442 "qb64pe.bas"
}
#line 23443 "qb64pe.bas"
}
#line 23444 "qb64pe.bas"
S_26911:;
#line 23444 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||is_error_pending()){
#line 23444 "qb64pe.bas"
if(qbevent){evnt(23444);if(r)goto S_26911;}
#line 23444 "qb64pe.bas"
do{
#line 23444 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23444 "qb64pe.bas"
if(!qbevent)break;evnt(23444);}while(r);
#line 23444 "qb64pe.bas"
do{
#line 23444 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23444 "qb64pe.bas"
if(!qbevent)break;evnt(23444);}while(r);
#line 23444 "qb64pe.bas"
}else{
#line 23444 "qb64pe.bas"
do{
#line 23444 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY= 0 ;
#line 23444 "qb64pe.bas"
if(!qbevent)break;evnt(23444);}while(r);
#line 23444 "qb64pe.bas"
}
#line 23445 "qb64pe.bas"
S_26917:;
#line 23445 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23445 "qb64pe.bas"
if(qbevent){evnt(23445);if(r)goto S_26917;}
#line 23445 "qb64pe.bas"
do{
#line 23445 "qb64pe.bas"
goto exit_subfunc;
#line 23445 "qb64pe.bas"
if(!qbevent)break;evnt(23445);}while(r);
#line 23445 "qb64pe.bas"
}
#line 23446 "qb64pe.bas"
dl_continue_2907:;
#line 23446 "qb64pe.bas"
}
#line 23446 "qb64pe.bas"
dl_exit_2907:;
#line 23449 "qb64pe.bas"
do{
#line 23449 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N));
#line 23449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23449 "qb64pe.bas"
if(!qbevent)break;evnt(23449);}while(r);
#line 23449 "qb64pe.bas"
S_26922:;
#line 23449 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||is_error_pending()){
#line 23449 "qb64pe.bas"
if(qbevent){evnt(23449);if(r)goto S_26922;}
#line 23449 "qb64pe.bas"
do{
#line 23449 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A= 91 ;
#line 23449 "qb64pe.bas"
if(!qbevent)break;evnt(23449);}while(r);
#line 23449 "qb64pe.bas"
}
#line 23450 "qb64pe.bas"
do{
#line 23450 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ;
#line 23450 "qb64pe.bas"
if(!qbevent)break;evnt(23450);}while(r);
#line 23451 "qb64pe.bas"
do{
#line 23451 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
#line 23451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23451 "qb64pe.bas"
if(!qbevent)break;evnt(23451);}while(r);
#line 23452 "qb64pe.bas"
do{
#line 23452 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23452 "qb64pe.bas"
if(!qbevent)break;evnt(23452);}while(r);
#line 23452 "qb64pe.bas"
S_26928:;
#line 23452 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23452 "qb64pe.bas"
if(qbevent){evnt(23452);if(r)goto S_26928;}
#line 23452 "qb64pe.bas"
do{
#line 23452 "qb64pe.bas"
goto exit_subfunc;
#line 23452 "qb64pe.bas"
if(!qbevent)break;evnt(23452);}while(r);
#line 23452 "qb64pe.bas"
}
#line 23453 "qb64pe.bas"
S_26931:;
#line 23453 "qb64pe.bas"
while((*_FUNC_FINDARRAY_LONG_TRY)||is_error_pending()){
#line 23453 "qb64pe.bas"
if(qbevent){evnt(23453);if(r)goto S_26931;}
#line 23454 "qb64pe.bas"
S_26932:;
#line 23454 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23454 "qb64pe.bas"
if(qbevent){evnt(23454);if(r)goto S_26932;}
#line 23455 "qb64pe.bas"
S_26933:;
#line 23455 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
#line 23455 "qb64pe.bas"
if(qbevent){evnt(23455);if(r)goto S_26933;}
#line 23455 "qb64pe.bas"
do{
#line 23455 "qb64pe.bas"
goto exit_subfunc;
#line 23455 "qb64pe.bas"
if(!qbevent)break;evnt(23455);}while(r);
#line 23455 "qb64pe.bas"
}
#line 23456 "qb64pe.bas"
S_26936:;
#line 23456 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
#line 23456 "qb64pe.bas"
if(qbevent){evnt(23456);if(r)goto S_26936;}
#line 23456 "qb64pe.bas"
do{
#line 23456 "qb64pe.bas"
goto exit_subfunc;
#line 23456 "qb64pe.bas"
if(!qbevent)break;evnt(23456);}while(r);
#line 23456 "qb64pe.bas"
}
#line 23457 "qb64pe.bas"
do{
#line 23457 "qb64pe.bas"
goto exit_subfunc;
#line 23457 "qb64pe.bas"
if(!qbevent)break;evnt(23457);}while(r);
#line 23458 "qb64pe.bas"
}
#line 23459 "qb64pe.bas"
S_26941:;
#line 23459 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||is_error_pending()){
#line 23459 "qb64pe.bas"
if(qbevent){evnt(23459);if(r)goto S_26941;}
#line 23459 "qb64pe.bas"
do{
#line 23459 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23459 "qb64pe.bas"
if(!qbevent)break;evnt(23459);}while(r);
#line 23459 "qb64pe.bas"
do{
#line 23459 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23459 "qb64pe.bas"
if(!qbevent)break;evnt(23459);}while(r);
#line 23459 "qb64pe.bas"
}else{
#line 23459 "qb64pe.bas"
do{
#line 23459 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY= 0 ;
#line 23459 "qb64pe.bas"
if(!qbevent)break;evnt(23459);}while(r);
#line 23459 "qb64pe.bas"
}
#line 23460 "qb64pe.bas"
S_26947:;
#line 23460 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23460 "qb64pe.bas"
if(qbevent){evnt(23460);if(r)goto S_26947;}
#line 23460 "qb64pe.bas"
do{
#line 23460 "qb64pe.bas"
goto exit_subfunc;
#line 23460 "qb64pe.bas"
if(!qbevent)break;evnt(23460);}while(r);
#line 23460 "qb64pe.bas"
}
#line 23461 "qb64pe.bas"
dl_continue_2908:;
#line 23461 "qb64pe.bas"
}
#line 23461 "qb64pe.bas"
dl_exit_2908:;
#line 23464 "qb64pe.bas"
do{
#line 23464 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N);
#line 23464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23464 "qb64pe.bas"
if(!qbevent)break;evnt(23464);}while(r);
#line 23465 "qb64pe.bas"
do{
#line 23465 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23465 "qb64pe.bas"
if(!qbevent)break;evnt(23465);}while(r);
#line 23465 "qb64pe.bas"
S_26953:;
#line 23465 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23465 "qb64pe.bas"
if(qbevent){evnt(23465);if(r)goto S_26953;}
#line 23465 "qb64pe.bas"
do{
#line 23465 "qb64pe.bas"
goto exit_subfunc;
#line 23465 "qb64pe.bas"
if(!qbevent)break;evnt(23465);}while(r);
#line 23465 "qb64pe.bas"
}
#line 23466 "qb64pe.bas"
S_26956:;
#line 23466 "qb64pe.bas"
while((*_FUNC_FINDARRAY_LONG_TRY)||is_error_pending()){
#line 23466 "qb64pe.bas"
if(qbevent){evnt(23466);if(r)goto S_26956;}
#line 23467 "qb64pe.bas"
S_26957:;
#line 23467 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23467 "qb64pe.bas"
if(qbevent){evnt(23467);if(r)goto S_26957;}
#line 23468 "qb64pe.bas"
do{
#line 23468 "qb64pe.bas"
goto exit_subfunc;
#line 23468 "qb64pe.bas"
if(!qbevent)break;evnt(23468);}while(r);
#line 23469 "qb64pe.bas"
}
#line 23470 "qb64pe.bas"
S_26960:;
#line 23470 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||is_error_pending()){
#line 23470 "qb64pe.bas"
if(qbevent){evnt(23470);if(r)goto S_26960;}
#line 23470 "qb64pe.bas"
do{
#line 23470 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23470 "qb64pe.bas"
if(!qbevent)break;evnt(23470);}while(r);
#line 23470 "qb64pe.bas"
do{
#line 23470 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23470 "qb64pe.bas"
if(!qbevent)break;evnt(23470);}while(r);
#line 23470 "qb64pe.bas"
}else{
#line 23470 "qb64pe.bas"
do{
#line 23470 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY= 0 ;
#line 23470 "qb64pe.bas"
if(!qbevent)break;evnt(23470);}while(r);
#line 23470 "qb64pe.bas"
}
#line 23471 "qb64pe.bas"
S_26966:;
#line 23471 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23471 "qb64pe.bas"
if(qbevent){evnt(23471);if(r)goto S_26966;}
#line 23471 "qb64pe.bas"
do{
#line 23471 "qb64pe.bas"
goto exit_subfunc;
#line 23471 "qb64pe.bas"
if(!qbevent)break;evnt(23471);}while(r);
#line 23471 "qb64pe.bas"
}
#line 23472 "qb64pe.bas"
dl_continue_2909:;
#line 23472 "qb64pe.bas"
}
#line 23472 "qb64pe.bas"
dl_exit_2909:;
#line 23475 "qb64pe.bas"
do{
#line 23475 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N));
#line 23475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23475 "qb64pe.bas"
if(!qbevent)break;evnt(23475);}while(r);
#line 23475 "qb64pe.bas"
S_26971:;
#line 23475 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||is_error_pending()){
#line 23475 "qb64pe.bas"
if(qbevent){evnt(23475);if(r)goto S_26971;}
#line 23475 "qb64pe.bas"
do{
#line 23475 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A= 91 ;
#line 23475 "qb64pe.bas"
if(!qbevent)break;evnt(23475);}while(r);
#line 23475 "qb64pe.bas"
}
#line 23476 "qb64pe.bas"
do{
#line 23476 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ;
#line 23476 "qb64pe.bas"
if(!qbevent)break;evnt(23476);}while(r);
#line 23477 "qb64pe.bas"
do{
#line 23477 "qb64pe.bas"
qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
#line 23477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23477 "qb64pe.bas"
if(!qbevent)break;evnt(23477);}while(r);
#line 23478 "qb64pe.bas"
do{
#line 23478 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23478 "qb64pe.bas"
if(!qbevent)break;evnt(23478);}while(r);
#line 23478 "qb64pe.bas"
S_26977:;
#line 23478 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23478 "qb64pe.bas"
if(qbevent){evnt(23478);if(r)goto S_26977;}
#line 23478 "qb64pe.bas"
do{
#line 23478 "qb64pe.bas"
goto exit_subfunc;
#line 23478 "qb64pe.bas"
if(!qbevent)break;evnt(23478);}while(r);
#line 23478 "qb64pe.bas"
}
#line 23479 "qb64pe.bas"
S_26980:;
#line 23479 "qb64pe.bas"
while((*_FUNC_FINDARRAY_LONG_TRY)||is_error_pending()){
#line 23479 "qb64pe.bas"
if(qbevent){evnt(23479);if(r)goto S_26980;}
#line 23480 "qb64pe.bas"
S_26981:;
#line 23480 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23480 "qb64pe.bas"
if(qbevent){evnt(23480);if(r)goto S_26981;}
#line 23481 "qb64pe.bas"
do{
#line 23481 "qb64pe.bas"
goto exit_subfunc;
#line 23481 "qb64pe.bas"
if(!qbevent)break;evnt(23481);}while(r);
#line 23482 "qb64pe.bas"
}
#line 23483 "qb64pe.bas"
S_26984:;
#line 23483 "qb64pe.bas"
if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||is_error_pending()){
#line 23483 "qb64pe.bas"
if(qbevent){evnt(23483);if(r)goto S_26984;}
#line 23483 "qb64pe.bas"
do{
#line 23483 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23483 "qb64pe.bas"
if(!qbevent)break;evnt(23483);}while(r);
#line 23483 "qb64pe.bas"
do{
#line 23483 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2);
#line 23483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23483 "qb64pe.bas"
if(!qbevent)break;evnt(23483);}while(r);
#line 23483 "qb64pe.bas"
}else{
#line 23483 "qb64pe.bas"
do{
#line 23483 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_TRY= 0 ;
#line 23483 "qb64pe.bas"
if(!qbevent)break;evnt(23483);}while(r);
#line 23483 "qb64pe.bas"
}
#line 23484 "qb64pe.bas"
S_26990:;
#line 23484 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23484 "qb64pe.bas"
if(qbevent){evnt(23484);if(r)goto S_26990;}
#line 23484 "qb64pe.bas"
do{
#line 23484 "qb64pe.bas"
goto exit_subfunc;
#line 23484 "qb64pe.bas"
if(!qbevent)break;evnt(23484);}while(r);
#line 23484 "qb64pe.bas"
}
#line 23485 "qb64pe.bas"
dl_continue_2910:;
#line 23485 "qb64pe.bas"
}
#line 23485 "qb64pe.bas"
dl_exit_2910:;
#line 23487 "qb64pe.bas"
}
#line 23488 "qb64pe.bas"
do{
#line 23488 "qb64pe.bas"
*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ;
#line 23488 "qb64pe.bas"
if(!qbevent)break;evnt(23488);}while(r);
#line 23489 "qb64pe.bas"
exit_subfunc:;
#line 23489 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 23489 "qb64pe.bas"
#include "free69.txt"
#line 23489 "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 23489 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 23489 "qb64pe.bas"
return *_FUNC_FINDARRAY_LONG_FINDARRAY;
#line 23489 "qb64pe.bas"
}
