#line 28344 "qb64pe.bas"
int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR){
#line 28344 "qb64pe.bas"
qbs *tqbs;
#line 28344 "qb64pe.bas"
ptrszint tmp_long;
#line 28344 "qb64pe.bas"
int32 tmp_fileno;
#line 28344 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 28344 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 28344 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 28344 "qb64pe.bas"
#include "data111.txt"
#line 28344 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 28344 "qb64pe.bas"
new_mem_lock();
#line 28344 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 28344 "qb64pe.bas"
sf_mem_lock->type=3;
#line 28344 "qb64pe.bas"
libqb_check_stack();
#line 28344 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 28345 "qb64pe.bas"
do{
#line 28345 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_TEMP,_FUNC_EVALPREIF_STRING_TEXT);
#line 28345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28345 "qb64pe.bas"
if(!qbevent)break;evnt(28345);}while(r);
#line 28346 "qb64pe.bas"
do{
#line 28346 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("",0));
#line 28346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28346 "qb64pe.bas"
if(!qbevent)break;evnt(28346);}while(r);
#line 28348 "qb64pe.bas"
do{
if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 3 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]) error(257);
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&4){
while(tmp_long--) ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=qbs_new(0,0);
}
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]=alloc_new_desc[4];
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]=alloc_new_desc[5];
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[6]=alloc_new_desc[6];
_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[7]=alloc_new_desc[7];
}
}
#line 28348 "qb64pe.bas"
if(!qbevent)break;evnt(28348);}while(r);
#line 28349 "qb64pe.bas"
do{
#line 28349 "qb64pe.bas"
tmp_long=array_check(( 1 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28349 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len("=",1));
#line 28349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28349 "qb64pe.bas"
if(!qbevent)break;evnt(28349);}while(r);
#line 28350 "qb64pe.bas"
do{
#line 28350 "qb64pe.bas"
tmp_long=array_check(( 2 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28350 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len("<",1));
#line 28350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28350 "qb64pe.bas"
if(!qbevent)break;evnt(28350);}while(r);
#line 28351 "qb64pe.bas"
do{
#line 28351 "qb64pe.bas"
tmp_long=array_check(( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28351 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len(">",1));
#line 28351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28351 "qb64pe.bas"
if(!qbevent)break;evnt(28351);}while(r);
#line 28352 "qb64pe.bas"
S_36717:;
#line 28352 "qb64pe.bas"
do{
#line 28352 "qb64pe.bas"
if(qbevent){evnt(28352);if(r)goto S_36717;}
#line 28354 "qb64pe.bas"
do{
#line 28354 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0));
#line 28354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28354 "qb64pe.bas"
if(!qbevent)break;evnt(28354);}while(r);
#line 28354 "qb64pe.bas"
do{
#line 28354 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST= 0 ;
#line 28354 "qb64pe.bas"
if(!qbevent)break;evnt(28354);}while(r);
#line 28355 "qb64pe.bas"
S_36720:;
#line 28355 "qb64pe.bas"
fornext_value3469= 1 ;
#line 28355 "qb64pe.bas"
fornext_finalvalue3469=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1);
#line 28355 "qb64pe.bas"
fornext_step3469= 1 ;
#line 28355 "qb64pe.bas"
if (fornext_step3469<0) fornext_step_negative3469=1; else fornext_step_negative3469=0;
#line 28355 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3469;
#line 28355 "qb64pe.bas"
goto fornext_entrylabel3469;
#line 28355 "qb64pe.bas"
while(1){
#line 28355 "qb64pe.bas"
fornext_value3469=fornext_step3469+(*_FUNC_EVALPREIF_LONG_I);
#line 28355 "qb64pe.bas"
fornext_entrylabel3469:
#line 28355 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3469;
#line 28355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28355 "qb64pe.bas"
if (fornext_step_negative3469){
#line 28355 "qb64pe.bas"
if (fornext_value3469<fornext_finalvalue3469) break;
#line 28355 "qb64pe.bas"
}else{
#line 28355 "qb64pe.bas"
if (fornext_value3469>fornext_finalvalue3469) break;
#line 28355 "qb64pe.bas"
}
#line 28355 "qb64pe.bas"
fornext_error3469:;
#line 28355 "qb64pe.bas"
if(qbevent){evnt(28355);if(r)goto S_36720;}
#line 28356 "qb64pe.bas"
do{
#line 28356 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_TEMP=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]),0);
#line 28356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28356 "qb64pe.bas"
if(!qbevent)break;evnt(28356);}while(r);
#line 28357 "qb64pe.bas"
S_36722:;
#line 28357 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||is_error_pending()){
#line 28357 "qb64pe.bas"
if(qbevent){evnt(28357);if(r)goto S_36722;}
#line 28357 "qb64pe.bas"
do{
#line 28357 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP;
#line 28357 "qb64pe.bas"
if(!qbevent)break;evnt(28357);}while(r);
#line 28357 "qb64pe.bas"
do{
#line 28357 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]));
#line 28357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28357 "qb64pe.bas"
if(!qbevent)break;evnt(28357);}while(r);
#line 28357 "qb64pe.bas"
}
#line 28358 "qb64pe.bas"
S_36726:;
#line 28358 "qb64pe.bas"
if (((-(*_FUNC_EVALPREIF_LONG_TEMP!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_TEMP<*_FUNC_EVALPREIF_LONG_FIRST)))||is_error_pending()){
#line 28358 "qb64pe.bas"
if(qbevent){evnt(28358);if(r)goto S_36726;}
#line 28358 "qb64pe.bas"
do{
#line 28358 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP;
#line 28358 "qb64pe.bas"
if(!qbevent)break;evnt(28358);}while(r);
#line 28358 "qb64pe.bas"
do{
#line 28358 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]));
#line 28358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28358 "qb64pe.bas"
if(!qbevent)break;evnt(28358);}while(r);
#line 28358 "qb64pe.bas"
}
#line 28359 "qb64pe.bas"
fornext_continue_3468:;
#line 28359 "qb64pe.bas"
}
#line 28359 "qb64pe.bas"
fornext_exit_3468:;
#line 28360 "qb64pe.bas"
S_36731:;
#line 28360 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
#line 28360 "qb64pe.bas"
if(qbevent){evnt(28360);if(r)goto S_36731;}
#line 28361 "qb64pe.bas"
do{
#line 28361 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_SECONDSYMBOL= 0 ;
#line 28361 "qb64pe.bas"
if(!qbevent)break;evnt(28361);}while(r);
#line 28361 "qb64pe.bas"
do{
#line 28361 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_SECOND= 0 ;
#line 28361 "qb64pe.bas"
if(!qbevent)break;evnt(28361);}while(r);
#line 28362 "qb64pe.bas"
S_36734:;
#line 28362 "qb64pe.bas"
fornext_value3471=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ;
#line 28362 "qb64pe.bas"
fornext_finalvalue3471=_FUNC_EVALPREIF_STRING_TEMP->len;
#line 28362 "qb64pe.bas"
fornext_step3471= 1 ;
#line 28362 "qb64pe.bas"
if (fornext_step3471<0) fornext_step_negative3471=1; else fornext_step_negative3471=0;
#line 28362 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3471;
#line 28362 "qb64pe.bas"
goto fornext_entrylabel3471;
#line 28362 "qb64pe.bas"
while(1){
#line 28362 "qb64pe.bas"
fornext_value3471=fornext_step3471+(*_FUNC_EVALPREIF_LONG_I);
#line 28362 "qb64pe.bas"
fornext_entrylabel3471:
#line 28362 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3471;
#line 28362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28362 "qb64pe.bas"
if (fornext_step_negative3471){
#line 28362 "qb64pe.bas"
if (fornext_value3471<fornext_finalvalue3471) break;
#line 28362 "qb64pe.bas"
}else{
#line 28362 "qb64pe.bas"
if (fornext_value3471>fornext_finalvalue3471) break;
#line 28362 "qb64pe.bas"
}
#line 28362 "qb64pe.bas"
fornext_error3471:;
#line 28362 "qb64pe.bas"
if(qbevent){evnt(28362);if(r)goto S_36734;}
#line 28363 "qb64pe.bas"
do{
#line 28363 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_A,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I, 1 ,0|1));
#line 28363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28363 "qb64pe.bas"
if(!qbevent)break;evnt(28363);}while(r);
#line 28364 "qb64pe.bas"
S_36736:;
#line 28364 "qb64pe.bas"
if(qbevent){evnt(28364);if(r)goto S_36736;}
#line 28365 "qb64pe.bas"
S_36737:;
#line 28365 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(" ",1))))||is_error_pending()){
#line 28365 "qb64pe.bas"
if(qbevent){evnt(28365);if(r)goto S_36737;}
#line 28366 "qb64pe.bas"
sc_ec_105_end:;
#line 28366 "qb64pe.bas"
goto sc_3473_end;
#line 28366 "qb64pe.bas"
}
#line 28366 "qb64pe.bas"
S_36738:;
#line 28366 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("=",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("<",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(">",1))))||is_error_pending()){
#line 28366 "qb64pe.bas"
if(qbevent){evnt(28366);if(r)goto S_36738;}
#line 28367 "qb64pe.bas"
S_36739:;
#line 28367 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)))||is_error_pending()){
#line 28367 "qb64pe.bas"
if(qbevent){evnt(28367);if(r)goto S_36739;}
#line 28367 "qb64pe.bas"
do{
#line 28367 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_add(qbs_add(qbs_new_txt_len("Duplicate operator (",20),_FUNC_EVALPREIF_STRING_A),qbs_new_txt_len(")",1)));
#line 28367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28367 "qb64pe.bas"
if(!qbevent)break;evnt(28367);}while(r);
#line 28367 "qb64pe.bas"
do{
#line 28367 "qb64pe.bas"
goto exit_subfunc;
#line 28367 "qb64pe.bas"
if(!qbevent)break;evnt(28367);}while(r);
#line 28367 "qb64pe.bas"
}
#line 28368 "qb64pe.bas"
do{
#line 28368 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_SECOND=*_FUNC_EVALPREIF_LONG_I;
#line 28368 "qb64pe.bas"
if(!qbevent)break;evnt(28368);}while(r);
#line 28368 "qb64pe.bas"
do{
#line 28368 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SECONDSYMBOL,_FUNC_EVALPREIF_STRING_A);
#line 28368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28368 "qb64pe.bas"
if(!qbevent)break;evnt(28368);}while(r);
#line 28369 "qb64pe.bas"
sc_ec_106_end:;
#line 28369 "qb64pe.bas"
goto sc_3473_end;
#line 28369 "qb64pe.bas"
}
#line 28370 "qb64pe.bas"
do{
#line 28370 "qb64pe.bas"
goto fornext_exit_3470;
#line 28370 "qb64pe.bas"
if(!qbevent)break;evnt(28370);}while(r);
#line 28371 "qb64pe.bas"
sc_3473_end:;
#line 28372 "qb64pe.bas"
fornext_continue_3470:;
#line 28372 "qb64pe.bas"
}
#line 28372 "qb64pe.bas"
fornext_exit_3470:;
#line 28373 "qb64pe.bas"
}
#line 28374 "qb64pe.bas"
S_36750:;
#line 28374 "qb64pe.bas"
if ((*_FUNC_EVALPREIF_LONG_FIRST)||is_error_pending()){
#line 28374 "qb64pe.bas"
if(qbevent){evnt(28374);if(r)goto S_36750;}
#line 28375 "qb64pe.bas"
do{
#line 28375 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 )));
#line 28375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28375 "qb64pe.bas"
if(!qbevent)break;evnt(28375);}while(r);
#line 28376 "qb64pe.bas"
S_36752:;
#line 28376 "qb64pe.bas"
if ((*_FUNC_EVALPREIF_LONG_SECOND)||is_error_pending()){
#line 28376 "qb64pe.bas"
if(qbevent){evnt(28376);if(r)goto S_36752;}
#line 28376 "qb64pe.bas"
do{
#line 28376 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_SECOND+ 1 ;
#line 28376 "qb64pe.bas"
if(!qbevent)break;evnt(28376);}while(r);
#line 28376 "qb64pe.bas"
}else{
#line 28376 "qb64pe.bas"
do{
#line 28376 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ;
#line 28376 "qb64pe.bas"
if(!qbevent)break;evnt(28376);}while(r);
#line 28376 "qb64pe.bas"
}
#line 28378 "qb64pe.bas"
do{
#line 28378 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_RIGHTSTART,NULL,0)));
#line 28378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28378 "qb64pe.bas"
if(!qbevent)break;evnt(28378);}while(r);
#line 28379 "qb64pe.bas"
do{
#line 28379 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_add(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST, 1 ,0|1),func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_SECOND, 1 ,0|1)));
#line 28379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28379 "qb64pe.bas"
if(!qbevent)break;evnt(28379);}while(r);
#line 28381 "qb64pe.bas"
S_36759:;
#line 28381 "qb64pe.bas"
fornext_value3475=_FUNC_EVALPREIF_STRING_L->len;
#line 28381 "qb64pe.bas"
fornext_finalvalue3475= 1 ;
#line 28381 "qb64pe.bas"
fornext_step3475= -1 ;
#line 28381 "qb64pe.bas"
if (fornext_step3475<0) fornext_step_negative3475=1; else fornext_step_negative3475=0;
#line 28381 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3475;
#line 28381 "qb64pe.bas"
goto fornext_entrylabel3475;
#line 28381 "qb64pe.bas"
while(1){
#line 28381 "qb64pe.bas"
fornext_value3475=fornext_step3475+(*_FUNC_EVALPREIF_LONG_I);
#line 28381 "qb64pe.bas"
fornext_entrylabel3475:
#line 28381 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3475;
#line 28381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28381 "qb64pe.bas"
if (fornext_step_negative3475){
#line 28381 "qb64pe.bas"
if (fornext_value3475<fornext_finalvalue3475) break;
#line 28381 "qb64pe.bas"
}else{
#line 28381 "qb64pe.bas"
if (fornext_value3475>fornext_finalvalue3475) break;
#line 28381 "qb64pe.bas"
}
#line 28381 "qb64pe.bas"
fornext_error3475:;
#line 28381 "qb64pe.bas"
if(qbevent){evnt(28381);if(r)goto S_36759;}
#line 28382 "qb64pe.bas"
S_36760:;
#line 28382 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_L,*_FUNC_EVALPREIF_LONG_I)== 32 )))||is_error_pending()){
#line 28382 "qb64pe.bas"
if(qbevent){evnt(28382);if(r)goto S_36760;}
#line 28382 "qb64pe.bas"
do{
#line 28382 "qb64pe.bas"
goto fornext_exit_3474;
#line 28382 "qb64pe.bas"
if(!qbevent)break;evnt(28382);}while(r);
#line 28382 "qb64pe.bas"
}
#line 28383 "qb64pe.bas"
fornext_continue_3474:;
#line 28383 "qb64pe.bas"
}
#line 28383 "qb64pe.bas"
fornext_exit_3474:;
#line 28384 "qb64pe.bas"
do{
#line 28384 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I)));
#line 28384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28384 "qb64pe.bas"
if(!qbevent)break;evnt(28384);}while(r);
#line 28385 "qb64pe.bas"
do{
#line 28385 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_ltrim(qbs_rtrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I+ 1 ,_FUNC_EVALPREIF_STRING_L->len-*_FUNC_EVALPREIF_LONG_I,0|1))));
#line 28385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28385 "qb64pe.bas"
if(!qbevent)break;evnt(28385);}while(r);
#line 28386 "qb64pe.bas"
do{
#line 28386 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTSTOP=_FUNC_EVALPREIF_STRING_R->len;
#line 28386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28386 "qb64pe.bas"
if(!qbevent)break;evnt(28386);}while(r);
#line 28387 "qb64pe.bas"
S_36767:;
#line 28387 "qb64pe.bas"
fornext_value3480= 1 ;
#line 28387 "qb64pe.bas"
fornext_finalvalue3480=_FUNC_EVALPREIF_STRING_R->len;
#line 28387 "qb64pe.bas"
fornext_step3480= 1 ;
#line 28387 "qb64pe.bas"
if (fornext_step3480<0) fornext_step_negative3480=1; else fornext_step_negative3480=0;
#line 28387 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3480;
#line 28387 "qb64pe.bas"
goto fornext_entrylabel3480;
#line 28387 "qb64pe.bas"
while(1){
#line 28387 "qb64pe.bas"
fornext_value3480=fornext_step3480+(*_FUNC_EVALPREIF_LONG_I);
#line 28387 "qb64pe.bas"
fornext_entrylabel3480:
#line 28387 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3480;
#line 28387 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28387 "qb64pe.bas"
if (fornext_step_negative3480){
#line 28387 "qb64pe.bas"
if (fornext_value3480<fornext_finalvalue3480) break;
#line 28387 "qb64pe.bas"
}else{
#line 28387 "qb64pe.bas"
if (fornext_value3480>fornext_finalvalue3480) break;
#line 28387 "qb64pe.bas"
}
#line 28387 "qb64pe.bas"
fornext_error3480:;
#line 28387 "qb64pe.bas"
if(qbevent){evnt(28387);if(r)goto S_36767;}
#line 28388 "qb64pe.bas"
S_36768:;
#line 28388 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I)== 32 )))||is_error_pending()){
#line 28388 "qb64pe.bas"
if(qbevent){evnt(28388);if(r)goto S_36768;}
#line 28388 "qb64pe.bas"
do{
#line 28388 "qb64pe.bas"
goto fornext_exit_3479;
#line 28388 "qb64pe.bas"
if(!qbevent)break;evnt(28388);}while(r);
#line 28388 "qb64pe.bas"
}
#line 28389 "qb64pe.bas"
fornext_continue_3479:;
#line 28389 "qb64pe.bas"
}
#line 28389 "qb64pe.bas"
fornext_exit_3479:;
#line 28390 "qb64pe.bas"
do{
#line 28390 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I+ 1 ,NULL,0)));
#line 28390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28390 "qb64pe.bas"
if(!qbevent)break;evnt(28390);}while(r);
#line 28391 "qb64pe.bas"
do{
#line 28391 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I- 1 ))));
#line 28391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28391 "qb64pe.bas"
if(!qbevent)break;evnt(28391);}while(r);
#line 28392 "qb64pe.bas"
S_36774:;
#line 28392 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=<",2))))||is_error_pending()){
#line 28392 "qb64pe.bas"
if(qbevent){evnt(28392);if(r)goto S_36774;}
#line 28392 "qb64pe.bas"
do{
#line 28392 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<=",2));
#line 28392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28392 "qb64pe.bas"
if(!qbevent)break;evnt(28392);}while(r);
#line 28392 "qb64pe.bas"
}
#line 28393 "qb64pe.bas"
S_36777:;
#line 28393 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=>",2))))||is_error_pending()){
#line 28393 "qb64pe.bas"
if(qbevent){evnt(28393);if(r)goto S_36777;}
#line 28393 "qb64pe.bas"
do{
#line 28393 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">=",2));
#line 28393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28393 "qb64pe.bas"
if(!qbevent)break;evnt(28393);}while(r);
#line 28393 "qb64pe.bas"
}
#line 28394 "qb64pe.bas"
S_36780:;
#line 28394 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("><",2))))||is_error_pending()){
#line 28394 "qb64pe.bas"
if(qbevent){evnt(28394);if(r)goto S_36780;}
#line 28394 "qb64pe.bas"
do{
#line 28394 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2));
#line 28394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28394 "qb64pe.bas"
if(!qbevent)break;evnt(28394);}while(r);
#line 28394 "qb64pe.bas"
}
#line 28395 "qb64pe.bas"
do{
#line 28395 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3));
#line 28395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28395 "qb64pe.bas"
if(!qbevent)break;evnt(28395);}while(r);
#line 28396 "qb64pe.bas"
S_36784:;
#line 28396 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2))))||is_error_pending()){
#line 28396 "qb64pe.bas"
if(qbevent){evnt(28396);if(r)goto S_36784;}
#line 28397 "qb64pe.bas"
S_36785:;
#line 28397 "qb64pe.bas"
fornext_value3483= 0 ;
#line 28397 "qb64pe.bas"
fornext_finalvalue3483=*__INTEGER_USERDEFINECOUNT;
#line 28397 "qb64pe.bas"
fornext_step3483= 1 ;
#line 28397 "qb64pe.bas"
if (fornext_step3483<0) fornext_step_negative3483=1; else fornext_step_negative3483=0;
#line 28397 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3483;
#line 28397 "qb64pe.bas"
goto fornext_entrylabel3483;
#line 28397 "qb64pe.bas"
while(1){
#line 28397 "qb64pe.bas"
fornext_value3483=fornext_step3483+(*_FUNC_EVALPREIF_LONG_I);
#line 28397 "qb64pe.bas"
fornext_entrylabel3483:
#line 28397 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3483;
#line 28397 "qb64pe.bas"
if (fornext_step_negative3483){
#line 28397 "qb64pe.bas"
if (fornext_value3483<fornext_finalvalue3483) break;
#line 28397 "qb64pe.bas"
}else{
#line 28397 "qb64pe.bas"
if (fornext_value3483>fornext_finalvalue3483) break;
#line 28397 "qb64pe.bas"
}
#line 28397 "qb64pe.bas"
fornext_error3483:;
#line 28397 "qb64pe.bas"
if(qbevent){evnt(28397);if(r)goto S_36785;}
#line 28398 "qb64pe.bas"
S_36786:;
#line 28398 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L))&(qbs_notequal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_R))))||is_error_pending()){
#line 28398 "qb64pe.bas"
if(qbevent){evnt(28398);if(r)goto S_36786;}
#line 28398 "qb64pe.bas"
do{
#line 28398 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28398 "qb64pe.bas"
if(!qbevent)break;evnt(28398);}while(r);
#line 28398 "qb64pe.bas"
do{
#line 28398 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28398 "qb64pe.bas"
if(!qbevent)break;evnt(28398);}while(r);
#line 28398 "qb64pe.bas"
}
#line 28399 "qb64pe.bas"
fornext_continue_3482:;
#line 28399 "qb64pe.bas"
}
#line 28399 "qb64pe.bas"
fornext_exit_3482:;
#line 28400 "qb64pe.bas"
}
#line 28401 "qb64pe.bas"
S_36792:;
#line 28401 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=",1),0)))||is_error_pending()){
#line 28401 "qb64pe.bas"
if(qbevent){evnt(28401);if(r)goto S_36792;}
#line 28402 "qb64pe.bas"
do{
#line 28402 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_USERFOUND= 0 ;
#line 28402 "qb64pe.bas"
if(!qbevent)break;evnt(28402);}while(r);
#line 28403 "qb64pe.bas"
S_36794:;
#line 28403 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,(((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))||is_error_pending()){
#line 28403 "qb64pe.bas"
if(qbevent){evnt(28403);if(r)goto S_36794;}
#line 28404 "qb64pe.bas"
do{
#line 28404 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R);
#line 28404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28404 "qb64pe.bas"
if(!qbevent)break;evnt(28404);}while(r);
#line 28405 "qb64pe.bas"
S_36796:;
#line 28405 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 0 ))||is_error_pending()){
#line 28405 "qb64pe.bas"
if(qbevent){evnt(28405);if(r)goto S_36796;}
#line 28405 "qb64pe.bas"
do{
#line 28405 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28405 "qb64pe.bas"
if(!qbevent)break;evnt(28405);}while(r);
#line 28405 "qb64pe.bas"
do{
#line 28405 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28405 "qb64pe.bas"
if(!qbevent)break;evnt(28405);}while(r);
#line 28405 "qb64pe.bas"
}
#line 28406 "qb64pe.bas"
}
#line 28407 "qb64pe.bas"
S_36801:;
#line 28407 "qb64pe.bas"
fornext_value3485= 0 ;
#line 28407 "qb64pe.bas"
fornext_finalvalue3485=*__INTEGER_USERDEFINECOUNT;
#line 28407 "qb64pe.bas"
fornext_step3485= 1 ;
#line 28407 "qb64pe.bas"
if (fornext_step3485<0) fornext_step_negative3485=1; else fornext_step_negative3485=0;
#line 28407 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3485;
#line 28407 "qb64pe.bas"
goto fornext_entrylabel3485;
#line 28407 "qb64pe.bas"
while(1){
#line 28407 "qb64pe.bas"
fornext_value3485=fornext_step3485+(*_FUNC_EVALPREIF_LONG_I);
#line 28407 "qb64pe.bas"
fornext_entrylabel3485:
#line 28407 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3485;
#line 28407 "qb64pe.bas"
if (fornext_step_negative3485){
#line 28407 "qb64pe.bas"
if (fornext_value3485<fornext_finalvalue3485) break;
#line 28407 "qb64pe.bas"
}else{
#line 28407 "qb64pe.bas"
if (fornext_value3485>fornext_finalvalue3485) break;
#line 28407 "qb64pe.bas"
}
#line 28407 "qb64pe.bas"
fornext_error3485:;
#line 28407 "qb64pe.bas"
if(qbevent){evnt(28407);if(r)goto S_36801;}
#line 28408 "qb64pe.bas"
S_36802:;
#line 28408 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||is_error_pending()){
#line 28408 "qb64pe.bas"
if(qbevent){evnt(28408);if(r)goto S_36802;}
#line 28408 "qb64pe.bas"
do{
#line 28408 "qb64pe.bas"
goto fornext_continue_3484;
#line 28408 "qb64pe.bas"
if(!qbevent)break;evnt(28408);}while(r);
#line 28408 "qb64pe.bas"
}
#line 28409 "qb64pe.bas"
S_36805:;
#line 28409 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L)))||is_error_pending()){
#line 28409 "qb64pe.bas"
if(qbevent){evnt(28409);if(r)goto S_36805;}
#line 28410 "qb64pe.bas"
do{
#line 28410 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_USERFOUND= -1 ;
#line 28410 "qb64pe.bas"
if(!qbevent)break;evnt(28410);}while(r);
#line 28411 "qb64pe.bas"
S_36807:;
#line 28411 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_R)))||is_error_pending()){
#line 28411 "qb64pe.bas"
if(qbevent){evnt(28411);if(r)goto S_36807;}
#line 28411 "qb64pe.bas"
do{
#line 28411 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28411 "qb64pe.bas"
if(!qbevent)break;evnt(28411);}while(r);
#line 28411 "qb64pe.bas"
do{
#line 28411 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28411 "qb64pe.bas"
if(!qbevent)break;evnt(28411);}while(r);
#line 28411 "qb64pe.bas"
}
#line 28412 "qb64pe.bas"
}
#line 28413 "qb64pe.bas"
fornext_continue_3484:;
#line 28413 "qb64pe.bas"
}
#line 28413 "qb64pe.bas"
fornext_exit_3484:;
#line 28414 "qb64pe.bas"
S_36813:;
#line 28414 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== 0 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("UNDEFINED",9)))))||is_error_pending()){
#line 28414 "qb64pe.bas"
if(qbevent){evnt(28414);if(r)goto S_36813;}
#line 28414 "qb64pe.bas"
do{
#line 28414 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28414 "qb64pe.bas"
if(!qbevent)break;evnt(28414);}while(r);
#line 28414 "qb64pe.bas"
do{
#line 28414 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28414 "qb64pe.bas"
if(!qbevent)break;evnt(28414);}while(r);
#line 28414 "qb64pe.bas"
}
#line 28415 "qb64pe.bas"
S_36817:;
#line 28415 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== -1 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("DEFINED",7)))))||is_error_pending()){
#line 28415 "qb64pe.bas"
if(qbevent){evnt(28415);if(r)goto S_36817;}
#line 28415 "qb64pe.bas"
do{
#line 28415 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28415 "qb64pe.bas"
if(!qbevent)break;evnt(28415);}while(r);
#line 28415 "qb64pe.bas"
do{
#line 28415 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28415 "qb64pe.bas"
if(!qbevent)break;evnt(28415);}while(r);
#line 28415 "qb64pe.bas"
}
#line 28416 "qb64pe.bas"
}
#line 28418 "qb64pe.bas"
S_36822:;
#line 28418 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">",1),0)))||is_error_pending()){
#line 28418 "qb64pe.bas"
if(qbevent){evnt(28418);if(r)goto S_36822;}
#line 28419 "qb64pe.bas"
S_36823:;
#line 28419 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,(((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))||is_error_pending()){
#line 28419 "qb64pe.bas"
if(qbevent){evnt(28419);if(r)goto S_36823;}
#line 28420 "qb64pe.bas"
do{
#line 28420 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R);
#line 28420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28420 "qb64pe.bas"
if(!qbevent)break;evnt(28420);}while(r);
#line 28421 "qb64pe.bas"
S_36825:;
#line 28421 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 1 ))||is_error_pending()){
#line 28421 "qb64pe.bas"
if(qbevent){evnt(28421);if(r)goto S_36825;}
#line 28421 "qb64pe.bas"
do{
#line 28421 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28421 "qb64pe.bas"
if(!qbevent)break;evnt(28421);}while(r);
#line 28421 "qb64pe.bas"
do{
#line 28421 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28421 "qb64pe.bas"
if(!qbevent)break;evnt(28421);}while(r);
#line 28421 "qb64pe.bas"
}
#line 28422 "qb64pe.bas"
}
#line 28423 "qb64pe.bas"
S_36830:;
#line 28423 "qb64pe.bas"
fornext_value3487= 0 ;
#line 28423 "qb64pe.bas"
fornext_finalvalue3487=*__INTEGER_USERDEFINECOUNT;
#line 28423 "qb64pe.bas"
fornext_step3487= 1 ;
#line 28423 "qb64pe.bas"
if (fornext_step3487<0) fornext_step_negative3487=1; else fornext_step_negative3487=0;
#line 28423 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3487;
#line 28423 "qb64pe.bas"
goto fornext_entrylabel3487;
#line 28423 "qb64pe.bas"
while(1){
#line 28423 "qb64pe.bas"
fornext_value3487=fornext_step3487+(*_FUNC_EVALPREIF_LONG_I);
#line 28423 "qb64pe.bas"
fornext_entrylabel3487:
#line 28423 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3487;
#line 28423 "qb64pe.bas"
if (fornext_step_negative3487){
#line 28423 "qb64pe.bas"
if (fornext_value3487<fornext_finalvalue3487) break;
#line 28423 "qb64pe.bas"
}else{
#line 28423 "qb64pe.bas"
if (fornext_value3487>fornext_finalvalue3487) break;
#line 28423 "qb64pe.bas"
}
#line 28423 "qb64pe.bas"
fornext_error3487:;
#line 28423 "qb64pe.bas"
if(qbevent){evnt(28423);if(r)goto S_36830;}
#line 28424 "qb64pe.bas"
S_36831:;
#line 28424 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||is_error_pending()){
#line 28424 "qb64pe.bas"
if(qbevent){evnt(28424);if(r)goto S_36831;}
#line 28424 "qb64pe.bas"
do{
#line 28424 "qb64pe.bas"
goto fornext_continue_3486;
#line 28424 "qb64pe.bas"
if(!qbevent)break;evnt(28424);}while(r);
#line 28424 "qb64pe.bas"
}
#line 28425 "qb64pe.bas"
S_36834:;
#line 28425 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))||is_error_pending()){
#line 28425 "qb64pe.bas"
if(qbevent){evnt(28425);if(r)goto S_36834;}
#line 28426 "qb64pe.bas"
S_36835:;
#line 28426 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L))&(-(qbs_val<long double>((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))>qbs_val<long double>(_FUNC_EVALPREIF_STRING_R)))))||is_error_pending()){
#line 28426 "qb64pe.bas"
if(qbevent){evnt(28426);if(r)goto S_36835;}
#line 28426 "qb64pe.bas"
do{
#line 28426 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28426 "qb64pe.bas"
if(!qbevent)break;evnt(28426);}while(r);
#line 28426 "qb64pe.bas"
do{
#line 28426 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28426 "qb64pe.bas"
if(!qbevent)break;evnt(28426);}while(r);
#line 28426 "qb64pe.bas"
}
#line 28427 "qb64pe.bas"
}else{
#line 28428 "qb64pe.bas"
S_36840:;
#line 28428 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L))&(qbs_greaterthan((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_R))))||is_error_pending()){
#line 28428 "qb64pe.bas"
if(qbevent){evnt(28428);if(r)goto S_36840;}
#line 28428 "qb64pe.bas"
do{
#line 28428 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28428 "qb64pe.bas"
if(!qbevent)break;evnt(28428);}while(r);
#line 28428 "qb64pe.bas"
do{
#line 28428 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28428 "qb64pe.bas"
if(!qbevent)break;evnt(28428);}while(r);
#line 28428 "qb64pe.bas"
}
#line 28429 "qb64pe.bas"
}
#line 28430 "qb64pe.bas"
fornext_continue_3486:;
#line 28430 "qb64pe.bas"
}
#line 28430 "qb64pe.bas"
fornext_exit_3486:;
#line 28431 "qb64pe.bas"
}
#line 28433 "qb64pe.bas"
S_36847:;
#line 28433 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<",1),0)))||is_error_pending()){
#line 28433 "qb64pe.bas"
if(qbevent){evnt(28433);if(r)goto S_36847;}
#line 28434 "qb64pe.bas"
S_36848:;
#line 28434 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,(((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))||is_error_pending()){
#line 28434 "qb64pe.bas"
if(qbevent){evnt(28434);if(r)goto S_36848;}
#line 28435 "qb64pe.bas"
do{
#line 28435 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R);
#line 28435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28435 "qb64pe.bas"
if(!qbevent)break;evnt(28435);}while(r);
#line 28436 "qb64pe.bas"
S_36850:;
#line 28436 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_RESULT== -1 ))||is_error_pending()){
#line 28436 "qb64pe.bas"
if(qbevent){evnt(28436);if(r)goto S_36850;}
#line 28436 "qb64pe.bas"
do{
#line 28436 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28436 "qb64pe.bas"
if(!qbevent)break;evnt(28436);}while(r);
#line 28436 "qb64pe.bas"
do{
#line 28436 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28436 "qb64pe.bas"
if(!qbevent)break;evnt(28436);}while(r);
#line 28436 "qb64pe.bas"
}
#line 28437 "qb64pe.bas"
}
#line 28438 "qb64pe.bas"
S_36855:;
#line 28438 "qb64pe.bas"
fornext_value3489= 0 ;
#line 28438 "qb64pe.bas"
fornext_finalvalue3489=*__INTEGER_USERDEFINECOUNT;
#line 28438 "qb64pe.bas"
fornext_step3489= 1 ;
#line 28438 "qb64pe.bas"
if (fornext_step3489<0) fornext_step_negative3489=1; else fornext_step_negative3489=0;
#line 28438 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3489;
#line 28438 "qb64pe.bas"
goto fornext_entrylabel3489;
#line 28438 "qb64pe.bas"
while(1){
#line 28438 "qb64pe.bas"
fornext_value3489=fornext_step3489+(*_FUNC_EVALPREIF_LONG_I);
#line 28438 "qb64pe.bas"
fornext_entrylabel3489:
#line 28438 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3489;
#line 28438 "qb64pe.bas"
if (fornext_step_negative3489){
#line 28438 "qb64pe.bas"
if (fornext_value3489<fornext_finalvalue3489) break;
#line 28438 "qb64pe.bas"
}else{
#line 28438 "qb64pe.bas"
if (fornext_value3489>fornext_finalvalue3489) break;
#line 28438 "qb64pe.bas"
}
#line 28438 "qb64pe.bas"
fornext_error3489:;
#line 28438 "qb64pe.bas"
if(qbevent){evnt(28438);if(r)goto S_36855;}
#line 28439 "qb64pe.bas"
S_36856:;
#line 28439 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||is_error_pending()){
#line 28439 "qb64pe.bas"
if(qbevent){evnt(28439);if(r)goto S_36856;}
#line 28439 "qb64pe.bas"
do{
#line 28439 "qb64pe.bas"
goto fornext_continue_3488;
#line 28439 "qb64pe.bas"
if(!qbevent)break;evnt(28439);}while(r);
#line 28439 "qb64pe.bas"
}
#line 28440 "qb64pe.bas"
S_36859:;
#line 28440 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))||is_error_pending()){
#line 28440 "qb64pe.bas"
if(qbevent){evnt(28440);if(r)goto S_36859;}
#line 28441 "qb64pe.bas"
S_36860:;
#line 28441 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L))&(-(qbs_val<long double>((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))<qbs_val<long double>(_FUNC_EVALPREIF_STRING_R)))))||is_error_pending()){
#line 28441 "qb64pe.bas"
if(qbevent){evnt(28441);if(r)goto S_36860;}
#line 28441 "qb64pe.bas"
do{
#line 28441 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28441 "qb64pe.bas"
if(!qbevent)break;evnt(28441);}while(r);
#line 28441 "qb64pe.bas"
do{
#line 28441 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28441 "qb64pe.bas"
if(!qbevent)break;evnt(28441);}while(r);
#line 28441 "qb64pe.bas"
}
#line 28442 "qb64pe.bas"
}else{
#line 28443 "qb64pe.bas"
S_36865:;
#line 28443 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_L))&(qbs_lessthan((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_R))))||is_error_pending()){
#line 28443 "qb64pe.bas"
if(qbevent){evnt(28443);if(r)goto S_36865;}
#line 28443 "qb64pe.bas"
do{
#line 28443 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28443 "qb64pe.bas"
if(!qbevent)break;evnt(28443);}while(r);
#line 28443 "qb64pe.bas"
do{
#line 28443 "qb64pe.bas"
goto LABEL_FINISHEDCHECK;
#line 28443 "qb64pe.bas"
if(!qbevent)break;evnt(28443);}while(r);
#line 28443 "qb64pe.bas"
}
#line 28444 "qb64pe.bas"
}
#line 28445 "qb64pe.bas"
fornext_continue_3488:;
#line 28445 "qb64pe.bas"
}
#line 28445 "qb64pe.bas"
fornext_exit_3488:;
#line 28446 "qb64pe.bas"
}
#line 28448 "qb64pe.bas"
LABEL_FINISHEDCHECK:;
#line 28448 "qb64pe.bas"
if(qbevent){evnt(28448);r=0;}
#line 28449 "qb64pe.bas"
do{
#line 28449 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_TEMP,qbs_add(qbs_add(_FUNC_EVALPREIF_STRING_LEFTSIDE,_FUNC_EVALPREIF_STRING_RESULT),_FUNC_EVALPREIF_STRING_RIGHTSIDE));
#line 28449 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28449 "qb64pe.bas"
if(!qbevent)break;evnt(28449);}while(r);
#line 28450 "qb64pe.bas"
}
#line 28451 "qb64pe.bas"
S_36874:;
#line 28451 "qb64pe.bas"
dl_continue_3467:;
#line 28451 "qb64pe.bas"
}while((!(-(*_FUNC_EVALPREIF_LONG_FIRST== 0 )))&&(!is_error_pending()));
#line 28451 "qb64pe.bas"
dl_exit_3467:;
#line 28451 "qb64pe.bas"
if(qbevent){evnt(28451);if(r)goto S_36874;}
#line 28455 "qb64pe.bas"
do{
#line 28455 "qb64pe.bas"
tmp_long=array_check(( 1 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28455 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len(" AND ",5));
#line 28455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28455 "qb64pe.bas"
if(!qbevent)break;evnt(28455);}while(r);
#line 28456 "qb64pe.bas"
do{
#line 28456 "qb64pe.bas"
tmp_long=array_check(( 2 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28456 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len(" OR ",4));
#line 28456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28456 "qb64pe.bas"
if(!qbevent)break;evnt(28456);}while(r);
#line 28457 "qb64pe.bas"
do{
#line 28457 "qb64pe.bas"
tmp_long=array_check(( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]);
#line 28457 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long],qbs_new_txt_len(" XOR ",5));
#line 28457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28457 "qb64pe.bas"
if(!qbevent)break;evnt(28457);}while(r);
#line 28459 "qb64pe.bas"
S_36878:;
#line 28459 "qb64pe.bas"
do{
#line 28459 "qb64pe.bas"
if(qbevent){evnt(28459);if(r)goto S_36878;}
#line 28460 "qb64pe.bas"
do{
#line 28460 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST= 0 ;
#line 28460 "qb64pe.bas"
if(!qbevent)break;evnt(28460);}while(r);
#line 28461 "qb64pe.bas"
S_36880:;
#line 28461 "qb64pe.bas"
fornext_value3492= 1 ;
#line 28461 "qb64pe.bas"
fornext_finalvalue3492=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1);
#line 28461 "qb64pe.bas"
fornext_step3492= 1 ;
#line 28461 "qb64pe.bas"
if (fornext_step3492<0) fornext_step_negative3492=1; else fornext_step_negative3492=0;
#line 28461 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3492;
#line 28461 "qb64pe.bas"
goto fornext_entrylabel3492;
#line 28461 "qb64pe.bas"
while(1){
#line 28461 "qb64pe.bas"
fornext_value3492=fornext_step3492+(*_FUNC_EVALPREIF_LONG_I);
#line 28461 "qb64pe.bas"
fornext_entrylabel3492:
#line 28461 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3492;
#line 28461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28461 "qb64pe.bas"
if (fornext_step_negative3492){
#line 28461 "qb64pe.bas"
if (fornext_value3492<fornext_finalvalue3492) break;
#line 28461 "qb64pe.bas"
}else{
#line 28461 "qb64pe.bas"
if (fornext_value3492>fornext_finalvalue3492) break;
#line 28461 "qb64pe.bas"
}
#line 28461 "qb64pe.bas"
fornext_error3492:;
#line 28461 "qb64pe.bas"
if(qbevent){evnt(28461);if(r)goto S_36880;}
#line 28462 "qb64pe.bas"
S_36881:;
#line 28462 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]),qbs_new_txt_len("",0))))||is_error_pending()){
#line 28462 "qb64pe.bas"
if(qbevent){evnt(28462);if(r)goto S_36881;}
#line 28463 "qb64pe.bas"
do{
#line 28463 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]),0);
#line 28463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28463 "qb64pe.bas"
if(!qbevent)break;evnt(28463);}while(r);
#line 28464 "qb64pe.bas"
S_36883:;
#line 28464 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_FIRST!= 0 ))||is_error_pending()){
#line 28464 "qb64pe.bas"
if(qbevent){evnt(28464);if(r)goto S_36883;}
#line 28465 "qb64pe.bas"
S_36884:;
#line 28465 "qb64pe.bas"
if (((-(*_FUNC_EVALPREIF_LONG_T<*_FUNC_EVALPREIF_LONG_FIRST))&(-(*_FUNC_EVALPREIF_LONG_T!= 0 )))||is_error_pending()){
#line 28465 "qb64pe.bas"
if(qbevent){evnt(28465);if(r)goto S_36884;}
#line 28465 "qb64pe.bas"
do{
#line 28465 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T;
#line 28465 "qb64pe.bas"
if(!qbevent)break;evnt(28465);}while(r);
#line 28465 "qb64pe.bas"
do{
#line 28465 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I;
#line 28465 "qb64pe.bas"
if(!qbevent)break;evnt(28465);}while(r);
#line 28465 "qb64pe.bas"
}
#line 28466 "qb64pe.bas"
}else{
#line 28467 "qb64pe.bas"
do{
#line 28467 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T;
#line 28467 "qb64pe.bas"
if(!qbevent)break;evnt(28467);}while(r);
#line 28467 "qb64pe.bas"
do{
#line 28467 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I;
#line 28467 "qb64pe.bas"
if(!qbevent)break;evnt(28467);}while(r);
#line 28468 "qb64pe.bas"
}
#line 28469 "qb64pe.bas"
}
#line 28470 "qb64pe.bas"
fornext_continue_3491:;
#line 28470 "qb64pe.bas"
}
#line 28470 "qb64pe.bas"
fornext_exit_3491:;
#line 28471 "qb64pe.bas"
S_36894:;
#line 28471 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||is_error_pending()){
#line 28471 "qb64pe.bas"
if(qbevent){evnt(28471);if(r)goto S_36894;}
#line 28471 "qb64pe.bas"
do{
#line 28471 "qb64pe.bas"
goto dl_exit_3490;
#line 28471 "qb64pe.bas"
if(!qbevent)break;evnt(28471);}while(r);
#line 28471 "qb64pe.bas"
}
#line 28472 "qb64pe.bas"
do{
#line 28472 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 )));
#line 28472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28472 "qb64pe.bas"
if(!qbevent)break;evnt(28472);}while(r);
#line 28473 "qb64pe.bas"
do{
#line 28473 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST,(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])->len,0|1));
#line 28473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28473 "qb64pe.bas"
if(!qbevent)break;evnt(28473);}while(r);
#line 28474 "qb64pe.bas"
do{
#line 28474 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_T,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST+(((qbs**)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])->len,NULL,0));
#line 28474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28474 "qb64pe.bas"
if(!qbevent)break;evnt(28474);}while(r);
#line 28475 "qb64pe.bas"
do{
#line 28475 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len(" ",1),0);
#line 28475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28475 "qb64pe.bas"
if(!qbevent)break;evnt(28475);}while(r);
#line 28476 "qb64pe.bas"
S_36901:;
#line 28476 "qb64pe.bas"
if ((*_FUNC_EVALPREIF_LONG_T)||is_error_pending()){
#line 28476 "qb64pe.bas"
if(qbevent){evnt(28476);if(r)goto S_36901;}
#line 28477 "qb64pe.bas"
do{
#line 28477 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T- 1 ))));
#line 28477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28477 "qb64pe.bas"
if(!qbevent)break;evnt(28477);}while(r);
#line 28478 "qb64pe.bas"
do{
#line 28478 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0)));
#line 28478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28478 "qb64pe.bas"
if(!qbevent)break;evnt(28478);}while(r);
#line 28479 "qb64pe.bas"
}else{
#line 28480 "qb64pe.bas"
do{
#line 28480 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0)));
#line 28480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28480 "qb64pe.bas"
if(!qbevent)break;evnt(28480);}while(r);
#line 28481 "qb64pe.bas"
do{
#line 28481 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_new_txt_len("",0));
#line 28481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28481 "qb64pe.bas"
if(!qbevent)break;evnt(28481);}while(r);
#line 28482 "qb64pe.bas"
}
#line 28483 "qb64pe.bas"
do{
#line 28483 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_LEFTRESULT= 0 ;
#line 28483 "qb64pe.bas"
if(!qbevent)break;evnt(28483);}while(r);
#line 28484 "qb64pe.bas"
S_36909:;
#line 28484 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_LEFTSIDE)))||is_error_pending()){
#line 28484 "qb64pe.bas"
if(qbevent){evnt(28484);if(r)goto S_36909;}
#line 28485 "qb64pe.bas"
S_36910:;
#line 28485 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_EVALPREIF_STRING_LEFTSIDE)!= 0 )))||is_error_pending()){
#line 28485 "qb64pe.bas"
if(qbevent){evnt(28485);if(r)goto S_36910;}
#line 28485 "qb64pe.bas"
do{
#line 28485 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ;
#line 28485 "qb64pe.bas"
if(!qbevent)break;evnt(28485);}while(r);
#line 28485 "qb64pe.bas"
}
#line 28486 "qb64pe.bas"
}else{
#line 28487 "qb64pe.bas"
S_36914:;
#line 28487 "qb64pe.bas"
fornext_value3496= 0 ;
#line 28487 "qb64pe.bas"
fornext_finalvalue3496=*__INTEGER_USERDEFINECOUNT;
#line 28487 "qb64pe.bas"
fornext_step3496= 1 ;
#line 28487 "qb64pe.bas"
if (fornext_step3496<0) fornext_step_negative3496=1; else fornext_step_negative3496=0;
#line 28487 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3496;
#line 28487 "qb64pe.bas"
goto fornext_entrylabel3496;
#line 28487 "qb64pe.bas"
while(1){
#line 28487 "qb64pe.bas"
fornext_value3496=fornext_step3496+(*_FUNC_EVALPREIF_LONG_I);
#line 28487 "qb64pe.bas"
fornext_entrylabel3496:
#line 28487 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3496;
#line 28487 "qb64pe.bas"
if (fornext_step_negative3496){
#line 28487 "qb64pe.bas"
if (fornext_value3496<fornext_finalvalue3496) break;
#line 28487 "qb64pe.bas"
}else{
#line 28487 "qb64pe.bas"
if (fornext_value3496>fornext_finalvalue3496) break;
#line 28487 "qb64pe.bas"
}
#line 28487 "qb64pe.bas"
fornext_error3496:;
#line 28487 "qb64pe.bas"
if(qbevent){evnt(28487);if(r)goto S_36914;}
#line 28488 "qb64pe.bas"
S_36915:;
#line 28488 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_LEFTSIDE)))||is_error_pending()){
#line 28488 "qb64pe.bas"
if(qbevent){evnt(28488);if(r)goto S_36915;}
#line 28489 "qb64pe.bas"
do{
#line 28489 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))));
#line 28489 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28489 "qb64pe.bas"
if(!qbevent)break;evnt(28489);}while(r);
#line 28490 "qb64pe.bas"
S_36917:;
#line 28490 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 28490 "qb64pe.bas"
if(qbevent){evnt(28490);if(r)goto S_36917;}
#line 28490 "qb64pe.bas"
do{
#line 28490 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ;
#line 28490 "qb64pe.bas"
if(!qbevent)break;evnt(28490);}while(r);
#line 28490 "qb64pe.bas"
do{
#line 28490 "qb64pe.bas"
goto fornext_exit_3495;
#line 28490 "qb64pe.bas"
if(!qbevent)break;evnt(28490);}while(r);
#line 28490 "qb64pe.bas"
}
#line 28491 "qb64pe.bas"
}
#line 28492 "qb64pe.bas"
fornext_continue_3495:;
#line 28492 "qb64pe.bas"
}
#line 28492 "qb64pe.bas"
fornext_exit_3495:;
#line 28493 "qb64pe.bas"
}
#line 28494 "qb64pe.bas"
do{
#line 28494 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTRESULT= 0 ;
#line 28494 "qb64pe.bas"
if(!qbevent)break;evnt(28494);}while(r);
#line 28495 "qb64pe.bas"
S_36925:;
#line 28495 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_M)))||is_error_pending()){
#line 28495 "qb64pe.bas"
if(qbevent){evnt(28495);if(r)goto S_36925;}
#line 28496 "qb64pe.bas"
S_36926:;
#line 28496 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_EVALPREIF_STRING_M)!= 0 )))||is_error_pending()){
#line 28496 "qb64pe.bas"
if(qbevent){evnt(28496);if(r)goto S_36926;}
#line 28496 "qb64pe.bas"
do{
#line 28496 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ;
#line 28496 "qb64pe.bas"
if(!qbevent)break;evnt(28496);}while(r);
#line 28496 "qb64pe.bas"
}
#line 28497 "qb64pe.bas"
}else{
#line 28498 "qb64pe.bas"
S_36930:;
#line 28498 "qb64pe.bas"
fornext_value3498= 0 ;
#line 28498 "qb64pe.bas"
fornext_finalvalue3498=*__INTEGER_USERDEFINECOUNT;
#line 28498 "qb64pe.bas"
fornext_step3498= 1 ;
#line 28498 "qb64pe.bas"
if (fornext_step3498<0) fornext_step_negative3498=1; else fornext_step_negative3498=0;
#line 28498 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3498;
#line 28498 "qb64pe.bas"
goto fornext_entrylabel3498;
#line 28498 "qb64pe.bas"
while(1){
#line 28498 "qb64pe.bas"
fornext_value3498=fornext_step3498+(*_FUNC_EVALPREIF_LONG_I);
#line 28498 "qb64pe.bas"
fornext_entrylabel3498:
#line 28498 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3498;
#line 28498 "qb64pe.bas"
if (fornext_step_negative3498){
#line 28498 "qb64pe.bas"
if (fornext_value3498<fornext_finalvalue3498) break;
#line 28498 "qb64pe.bas"
}else{
#line 28498 "qb64pe.bas"
if (fornext_value3498>fornext_finalvalue3498) break;
#line 28498 "qb64pe.bas"
}
#line 28498 "qb64pe.bas"
fornext_error3498:;
#line 28498 "qb64pe.bas"
if(qbevent){evnt(28498);if(r)goto S_36930;}
#line 28499 "qb64pe.bas"
S_36931:;
#line 28499 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_M)))||is_error_pending()){
#line 28499 "qb64pe.bas"
if(qbevent){evnt(28499);if(r)goto S_36931;}
#line 28500 "qb64pe.bas"
do{
#line 28500 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))));
#line 28500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28500 "qb64pe.bas"
if(!qbevent)break;evnt(28500);}while(r);
#line 28501 "qb64pe.bas"
S_36933:;
#line 28501 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 28501 "qb64pe.bas"
if(qbevent){evnt(28501);if(r)goto S_36933;}
#line 28501 "qb64pe.bas"
do{
#line 28501 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ;
#line 28501 "qb64pe.bas"
if(!qbevent)break;evnt(28501);}while(r);
#line 28501 "qb64pe.bas"
do{
#line 28501 "qb64pe.bas"
goto fornext_exit_3497;
#line 28501 "qb64pe.bas"
if(!qbevent)break;evnt(28501);}while(r);
#line 28501 "qb64pe.bas"
}
#line 28502 "qb64pe.bas"
}
#line 28503 "qb64pe.bas"
fornext_continue_3497:;
#line 28503 "qb64pe.bas"
}
#line 28503 "qb64pe.bas"
fornext_exit_3497:;
#line 28504 "qb64pe.bas"
}
#line 28505 "qb64pe.bas"
S_36940:;
#line 28505 "qb64pe.bas"
qbs_set(sc_3499,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL)));
#line 28505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28505 "qb64pe.bas"
if(qbevent){evnt(28505);if(r)goto S_36940;}
#line 28506 "qb64pe.bas"
S_36941:;
#line 28506 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3499,qbs_new_txt_len("AND",3))))||is_error_pending()){
#line 28506 "qb64pe.bas"
if(qbevent){evnt(28506);if(r)goto S_36941;}
#line 28507 "qb64pe.bas"
S_36942:;
#line 28507 "qb64pe.bas"
if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||is_error_pending()){
#line 28507 "qb64pe.bas"
if(qbevent){evnt(28507);if(r)goto S_36942;}
#line 28507 "qb64pe.bas"
do{
#line 28507 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28507 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28507 "qb64pe.bas"
if(!qbevent)break;evnt(28507);}while(r);
#line 28507 "qb64pe.bas"
}else{
#line 28507 "qb64pe.bas"
do{
#line 28507 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3));
#line 28507 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28507 "qb64pe.bas"
if(!qbevent)break;evnt(28507);}while(r);
#line 28507 "qb64pe.bas"
}
#line 28508 "qb64pe.bas"
sc_ec_107_end:;
#line 28508 "qb64pe.bas"
goto sc_3499_end;
#line 28508 "qb64pe.bas"
}
#line 28508 "qb64pe.bas"
S_36947:;
#line 28508 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3499,qbs_new_txt_len("OR",2))))||is_error_pending()){
#line 28508 "qb64pe.bas"
if(qbevent){evnt(28508);if(r)goto S_36947;}
#line 28509 "qb64pe.bas"
S_36948:;
#line 28509 "qb64pe.bas"
if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))|(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||is_error_pending()){
#line 28509 "qb64pe.bas"
if(qbevent){evnt(28509);if(r)goto S_36948;}
#line 28509 "qb64pe.bas"
do{
#line 28509 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28509 "qb64pe.bas"
if(!qbevent)break;evnt(28509);}while(r);
#line 28509 "qb64pe.bas"
}else{
#line 28509 "qb64pe.bas"
do{
#line 28509 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3));
#line 28509 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28509 "qb64pe.bas"
if(!qbevent)break;evnt(28509);}while(r);
#line 28509 "qb64pe.bas"
}
#line 28510 "qb64pe.bas"
sc_ec_108_end:;
#line 28510 "qb64pe.bas"
goto sc_3499_end;
#line 28510 "qb64pe.bas"
}
#line 28510 "qb64pe.bas"
S_36953:;
#line 28510 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3499,qbs_new_txt_len("XOR",3))))||is_error_pending()){
#line 28510 "qb64pe.bas"
if(qbevent){evnt(28510);if(r)goto S_36953;}
#line 28511 "qb64pe.bas"
S_36954:;
#line 28511 "qb64pe.bas"
if ((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!=*_FUNC_EVALPREIF_LONG_RIGHTRESULT))||is_error_pending()){
#line 28511 "qb64pe.bas"
if(qbevent){evnt(28511);if(r)goto S_36954;}
#line 28511 "qb64pe.bas"
do{
#line 28511 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4));
#line 28511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28511 "qb64pe.bas"
if(!qbevent)break;evnt(28511);}while(r);
#line 28511 "qb64pe.bas"
}else{
#line 28511 "qb64pe.bas"
do{
#line 28511 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3));
#line 28511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28511 "qb64pe.bas"
if(!qbevent)break;evnt(28511);}while(r);
#line 28511 "qb64pe.bas"
}
#line 28512 "qb64pe.bas"
sc_ec_109_end:;
#line 28512 "qb64pe.bas"
goto sc_3499_end;
#line 28512 "qb64pe.bas"
}
#line 28512 "qb64pe.bas"
sc_3499_end:;
#line 28513 "qb64pe.bas"
do{
#line 28513 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_TEMP,qbs_add(_FUNC_EVALPREIF_STRING_RESULT,_FUNC_EVALPREIF_STRING_RIGHTSIDE));
#line 28513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28513 "qb64pe.bas"
if(!qbevent)break;evnt(28513);}while(r);
#line 28514 "qb64pe.bas"
dl_continue_3490:;
#line 28514 "qb64pe.bas"
}while(1);
#line 28514 "qb64pe.bas"
dl_exit_3490:;
#line 28516 "qb64pe.bas"
S_36962:;
#line 28516 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_TEMP)))||is_error_pending()){
#line 28516 "qb64pe.bas"
if(qbevent){evnt(28516);if(r)goto S_36962;}
#line 28517 "qb64pe.bas"
do{
#line 28517 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_EVALPREIF=qbr(qbs_val<long double>(_FUNC_EVALPREIF_STRING_TEMP));
#line 28517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28517 "qb64pe.bas"
if(!qbevent)break;evnt(28517);}while(r);
#line 28518 "qb64pe.bas"
}else{
#line 28519 "qb64pe.bas"
S_36965:;
#line 28519 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,qbs_new_txt_len(" ",1),0)))||is_error_pending()){
#line 28519 "qb64pe.bas"
if(qbevent){evnt(28519);if(r)goto S_36965;}
#line 28519 "qb64pe.bas"
do{
#line 28519 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid Resolution of $IF; check statements",43));
#line 28519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28519 "qb64pe.bas"
if(!qbevent)break;evnt(28519);}while(r);
#line 28519 "qb64pe.bas"
}
#line 28520 "qb64pe.bas"
S_36968:;
#line 28520 "qb64pe.bas"
fornext_value3501= 0 ;
#line 28520 "qb64pe.bas"
fornext_finalvalue3501=*__INTEGER_USERDEFINECOUNT;
#line 28520 "qb64pe.bas"
fornext_step3501= 1 ;
#line 28520 "qb64pe.bas"
if (fornext_step3501<0) fornext_step_negative3501=1; else fornext_step_negative3501=0;
#line 28520 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3501;
#line 28520 "qb64pe.bas"
goto fornext_entrylabel3501;
#line 28520 "qb64pe.bas"
while(1){
#line 28520 "qb64pe.bas"
fornext_value3501=fornext_step3501+(*_FUNC_EVALPREIF_LONG_I);
#line 28520 "qb64pe.bas"
fornext_entrylabel3501:
#line 28520 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_I=fornext_value3501;
#line 28520 "qb64pe.bas"
if (fornext_step_negative3501){
#line 28520 "qb64pe.bas"
if (fornext_value3501<fornext_finalvalue3501) break;
#line 28520 "qb64pe.bas"
}else{
#line 28520 "qb64pe.bas"
if (fornext_value3501>fornext_finalvalue3501) break;
#line 28520 "qb64pe.bas"
}
#line 28520 "qb64pe.bas"
fornext_error3501:;
#line 28520 "qb64pe.bas"
if(qbevent){evnt(28520);if(r)goto S_36968;}
#line 28521 "qb64pe.bas"
S_36969:;
#line 28521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]),_FUNC_EVALPREIF_STRING_TEMP)))||is_error_pending()){
#line 28521 "qb64pe.bas"
if(qbevent){evnt(28521);if(r)goto S_36969;}
#line 28522 "qb64pe.bas"
do{
#line 28522 "qb64pe.bas"
qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim((((qbs**)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))));
#line 28522 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28522 "qb64pe.bas"
if(!qbevent)break;evnt(28522);}while(r);
#line 28523 "qb64pe.bas"
S_36971:;
#line 28523 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 28523 "qb64pe.bas"
if(qbevent){evnt(28523);if(r)goto S_36971;}
#line 28523 "qb64pe.bas"
do{
#line 28523 "qb64pe.bas"
*_FUNC_EVALPREIF_LONG_EVALPREIF= -1 ;
#line 28523 "qb64pe.bas"
if(!qbevent)break;evnt(28523);}while(r);
#line 28523 "qb64pe.bas"
do{
#line 28523 "qb64pe.bas"
goto fornext_exit_3500;
#line 28523 "qb64pe.bas"
if(!qbevent)break;evnt(28523);}while(r);
#line 28523 "qb64pe.bas"
}
#line 28524 "qb64pe.bas"
}
#line 28525 "qb64pe.bas"
fornext_continue_3500:;
#line 28525 "qb64pe.bas"
}
#line 28525 "qb64pe.bas"
fornext_exit_3500:;
#line 28526 "qb64pe.bas"
}
#line 28528 "qb64pe.bas"
exit_subfunc:;
#line 28528 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 28528 "qb64pe.bas"
#include "free111.txt"
#line 28528 "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 28528 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 28528 "qb64pe.bas"
return *_FUNC_EVALPREIF_LONG_EVALPREIF;
#line 28528 "qb64pe.bas"
}
