#line 19355 "qb64pe.bas"
qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){
#line 19355 "qb64pe.bas"
qbs *tqbs;
#line 19355 "qb64pe.bas"
ptrszint tmp_long;
#line 19355 "qb64pe.bas"
int32 tmp_fileno;
#line 19355 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 19355 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 19355 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 19355 "qb64pe.bas"
#include "data64.txt"
#line 19355 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 19355 "qb64pe.bas"
new_mem_lock();
#line 19355 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 19355 "qb64pe.bas"
sf_mem_lock->type=3;
#line 19355 "qb64pe.bas"
libqb_check_stack();
#line 19355 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 19358 "qb64pe.bas"
do{
#line 19358 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2);
#line 19358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19358 "qb64pe.bas"
if(!qbevent)break;evnt(19358);}while(r);
#line 19359 "qb64pe.bas"
do{
#line 19359 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP= -1 ;
#line 19359 "qb64pe.bas"
if(!qbevent)break;evnt(19359);}while(r);
#line 19361 "qb64pe.bas"
S_22394:;
#line 19361 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19361 "qb64pe.bas"
if(qbevent){evnt(19361);if(r)goto S_22394;}
#line 19361 "qb64pe.bas"
do{
#line 19361 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19361 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19361 "qb64pe.bas"
if (is_error_pending()) goto skip2584;
#line 19361 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluating:[",12),_FUNC_EVALUATE_STRING_A2),qbs_new_txt_len("]",1)), 0, 0, 1);
#line 19361 "qb64pe.bas"
if (is_error_pending()) goto skip2584;
#line 19361 "qb64pe.bas"
skip2584:
#line 19361 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19361 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19361 "qb64pe.bas"
if(!qbevent)break;evnt(19361);}while(r);
#line 19361 "qb64pe.bas"
}
#line 19362 "qb64pe.bas"
S_22397:;
#line 19362 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
#line 19362 "qb64pe.bas"
if(qbevent){evnt(19362);if(r)goto S_22397;}
#line 19362 "qb64pe.bas"
do{
#line 19362 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12));
#line 19362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19362 "qb64pe.bas"
if(!qbevent)break;evnt(19362);}while(r);
#line 19362 "qb64pe.bas"
do{
#line 19362 "qb64pe.bas"
goto exit_subfunc;
#line 19362 "qb64pe.bas"
if(!qbevent)break;evnt(19362);}while(r);
#line 19362 "qb64pe.bas"
}
#line 19371 "qb64pe.bas"
do{
#line 19371 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN= 0 ;
#line 19371 "qb64pe.bas"
if(!qbevent)break;evnt(19371);}while(r);
#line 19372 "qb64pe.bas"
do{
#line 19372 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A);
#line 19372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19372 "qb64pe.bas"
if(!qbevent)break;evnt(19372);}while(r);
#line 19380 "qb64pe.bas"
do{
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[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;
((mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){
preserve_old_ptr=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0];
preserve_old_flags=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2];
preserve_old_total=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_EVALUATE_LONG_N+ 2 )-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);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=preserve_new_ptr;
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&4){
while(tmp_long--) ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]) error(257);
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&4){
while(tmp_long--) ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=qbs_new(0,0);
}
}
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[7]=alloc_new_desc[7];
}
#line 19380 "qb64pe.bas"
if(!qbevent)break;evnt(19380);}while(r);
#line 19381 "qb64pe.bas"
do{
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[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;
((mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){
preserve_old_ptr=_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0];
preserve_old_flags=_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2];
preserve_old_total=_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_EVALUATE_LONG_N+ 2 )-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)(2);
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);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257);
memset((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257);
}
}
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1;
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[7]=alloc_new_desc[7];
}
#line 19381 "qb64pe.bas"
if(!qbevent)break;evnt(19381);}while(r);
#line 19382 "qb64pe.bas"
do{
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[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;
((mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){
preserve_old_ptr=_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0];
preserve_old_flags=_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2];
preserve_old_total=_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_EVALUATE_LONG_N+ 2 )-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)(4);
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);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257);
memset((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257);
}
}
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1;
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[7]=alloc_new_desc[7];
}
#line 19382 "qb64pe.bas"
if(!qbevent)break;evnt(19382);}while(r);
#line 19384 "qb64pe.bas"
do{
#line 19384 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B= 0 ;
#line 19384 "qb64pe.bas"
if(!qbevent)break;evnt(19384);}while(r);
#line 19385 "qb64pe.bas"
S_22407:;
#line 19385 "qb64pe.bas"
fornext_value2586= 1 ;
#line 19385 "qb64pe.bas"
fornext_finalvalue2586=*_FUNC_EVALUATE_LONG_N;
#line 19385 "qb64pe.bas"
fornext_step2586= 1 ;
#line 19385 "qb64pe.bas"
if (fornext_step2586<0) fornext_step_negative2586=1; else fornext_step_negative2586=0;
#line 19385 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2586;
#line 19385 "qb64pe.bas"
goto fornext_entrylabel2586;
#line 19385 "qb64pe.bas"
while(1){
#line 19385 "qb64pe.bas"
fornext_value2586=fornext_step2586+(*_FUNC_EVALUATE_LONG_I);
#line 19385 "qb64pe.bas"
fornext_entrylabel2586:
#line 19385 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=fornext_value2586;
#line 19385 "qb64pe.bas"
if (fornext_step_negative2586){
#line 19385 "qb64pe.bas"
if (fornext_value2586<fornext_finalvalue2586) break;
#line 19385 "qb64pe.bas"
}else{
#line 19385 "qb64pe.bas"
if (fornext_value2586>fornext_finalvalue2586) break;
#line 19385 "qb64pe.bas"
}
#line 19385 "qb64pe.bas"
fornext_error2586:;
#line 19385 "qb64pe.bas"
if(qbevent){evnt(19385);if(r)goto S_22407;}
#line 19387 "qb64pe.bas"
LABEL_REEVALUATE:;
#line 19387 "qb64pe.bas"
if(qbevent){evnt(19387);r=0;}
#line 19392 "qb64pe.bas"
do{
#line 19392 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I));
#line 19392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19392 "qb64pe.bas"
if(!qbevent)break;evnt(19392);}while(r);
#line 19395 "qb64pe.bas"
S_22409:;
#line 19395 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19395 "qb64pe.bas"
if(qbevent){evnt(19395);if(r)goto S_22409;}
#line 19395 "qb64pe.bas"
do{
#line 19395 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19395 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19395 "qb64pe.bas"
if (is_error_pending()) goto skip2587;
#line 19395 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0, 1, 0);
#line 19395 "qb64pe.bas"
if (is_error_pending()) goto skip2587;
#line 19395 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
#line 19395 "qb64pe.bas"
if (is_error_pending()) goto skip2587;
#line 19395 "qb64pe.bas"
skip2587:
#line 19395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19395 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19395 "qb64pe.bas"
if(!qbevent)break;evnt(19395);}while(r);
#line 19395 "qb64pe.bas"
}
#line 19398 "qb64pe.bas"
S_22412:;
#line 19398 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
#line 19398 "qb64pe.bas"
if(qbevent){evnt(19398);if(r)goto S_22412;}
#line 19398 "qb64pe.bas"
do{
#line 19398 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2588=*_FUNC_EVALUATE_LONG_I+ 1 )));
#line 19398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19398 "qb64pe.bas"
if(!qbevent)break;evnt(19398);}while(r);
#line 19398 "qb64pe.bas"
}else{
#line 19398 "qb64pe.bas"
do{
#line 19398 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("",0));
#line 19398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19398 "qb64pe.bas"
if(!qbevent)break;evnt(19398);}while(r);
#line 19398 "qb64pe.bas"
}
#line 19402 "qb64pe.bas"
S_22417:;
#line 19402 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
#line 19402 "qb64pe.bas"
if(qbevent){evnt(19402);if(r)goto S_22417;}
#line 19404 "qb64pe.bas"
S_22418:;
#line 19404 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19404 "qb64pe.bas"
if(qbevent){evnt(19404);if(r)goto S_22418;}
#line 19404 "qb64pe.bas"
do{
#line 19404 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19404 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19404 "qb64pe.bas"
if (is_error_pending()) goto skip2589;
#line 19404 "qb64pe.bas"
sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0, 0, 1);
#line 19404 "qb64pe.bas"
if (is_error_pending()) goto skip2589;
#line 19404 "qb64pe.bas"
skip2589:
#line 19404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19404 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19404 "qb64pe.bas"
if(!qbevent)break;evnt(19404);}while(r);
#line 19404 "qb64pe.bas"
}
#line 19406 "qb64pe.bas"
do{
#line 19406 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L);
#line 19406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19406 "qb64pe.bas"
if(!qbevent)break;evnt(19406);}while(r);
#line 19407 "qb64pe.bas"
S_22422:;
#line 19407 "qb64pe.bas"
fornext_value2591= 1 ;
#line 19407 "qb64pe.bas"
fornext_finalvalue2591= 4 ;
#line 19407 "qb64pe.bas"
fornext_step2591= 1 ;
#line 19407 "qb64pe.bas"
if (fornext_step2591<0) fornext_step_negative2591=1; else fornext_step_negative2591=0;
#line 19407 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2591;
#line 19407 "qb64pe.bas"
goto fornext_entrylabel2591;
#line 19407 "qb64pe.bas"
while(1){
#line 19407 "qb64pe.bas"
fornext_value2591=fornext_step2591+(*_FUNC_EVALUATE_LONG_TRY_METHOD);
#line 19407 "qb64pe.bas"
fornext_entrylabel2591:
#line 19407 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2591;
#line 19407 "qb64pe.bas"
if (fornext_step_negative2591){
#line 19407 "qb64pe.bas"
if (fornext_value2591<fornext_finalvalue2591) break;
#line 19407 "qb64pe.bas"
}else{
#line 19407 "qb64pe.bas"
if (fornext_value2591>fornext_finalvalue2591) break;
#line 19407 "qb64pe.bas"
}
#line 19407 "qb64pe.bas"
fornext_error2591:;
#line 19407 "qb64pe.bas"
if(qbevent){evnt(19407);if(r)goto S_22422;}
#line 19408 "qb64pe.bas"
do{
#line 19408 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
#line 19408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19408 "qb64pe.bas"
if(!qbevent)break;evnt(19408);}while(r);
#line 19409 "qb64pe.bas"
S_22424:;
#line 19409 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||is_error_pending()){
#line 19409 "qb64pe.bas"
if(qbevent){evnt(19409);if(r)goto S_22424;}
#line 19410 "qb64pe.bas"
S_22425:;
#line 19410 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19410 "qb64pe.bas"
if(qbevent){evnt(19410);if(r)goto S_22425;}
#line 19410 "qb64pe.bas"
do{
#line 19410 "qb64pe.bas"
goto exit_subfunc;
#line 19410 "qb64pe.bas"
if(!qbevent)break;evnt(19410);}while(r);
#line 19410 "qb64pe.bas"
}
#line 19411 "qb64pe.bas"
do{
#line 19411 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L));
#line 19411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19411 "qb64pe.bas"
if(!qbevent)break;evnt(19411);}while(r);
#line 19411 "qb64pe.bas"
S_22429:;
#line 19411 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19411 "qb64pe.bas"
if(qbevent){evnt(19411);if(r)goto S_22429;}
#line 19411 "qb64pe.bas"
do{
#line 19411 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0));
#line 19411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19411 "qb64pe.bas"
if(!qbevent)break;evnt(19411);}while(r);
#line 19411 "qb64pe.bas"
do{
#line 19411 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 19411 "qb64pe.bas"
if(!qbevent)break;evnt(19411);}while(r);
#line 19411 "qb64pe.bas"
}
#line 19412 "qb64pe.bas"
S_22433:;
#line 19412 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||is_error_pending()){
#line 19412 "qb64pe.bas"
if(qbevent){evnt(19412);if(r)goto S_22433;}
#line 19413 "qb64pe.bas"
S_22434:;
#line 19413 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
#line 19413 "qb64pe.bas"
if(qbevent){evnt(19413);if(r)goto S_22434;}
#line 19414 "qb64pe.bas"
S_22435:;
#line 19414 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
#line 19414 "qb64pe.bas"
if(qbevent){evnt(19414);if(r)goto S_22435;}
#line 19415 "qb64pe.bas"
S_22436:;
#line 19415 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_L, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 19415 "qb64pe.bas"
if(qbevent){evnt(19415);if(r)goto S_22436;}
#line 19415 "qb64pe.bas"
do{
#line 19415 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_V= 27 ;
#line 19415 "qb64pe.bas"
if(!qbevent)break;evnt(19415);}while(r);
#line 19415 "qb64pe.bas"
}else{
#line 19415 "qb64pe.bas"
do{
#line 19415 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_L))- 64 ;
#line 19415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19415 "qb64pe.bas"
if(!qbevent)break;evnt(19415);}while(r);
#line 19415 "qb64pe.bas"
}
#line 19416 "qb64pe.bas"
do{
#line 19416 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,qbs_add(_FUNC_EVALUATE_STRING_L,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
#line 19416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19416 "qb64pe.bas"
if(!qbevent)break;evnt(19416);}while(r);
#line 19417 "qb64pe.bas"
}
#line 19418 "qb64pe.bas"
}
#line 19419 "qb64pe.bas"
}else{
#line 19420 "qb64pe.bas"
do{
#line 19420 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
#line 19420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19420 "qb64pe.bas"
if(!qbevent)break;evnt(19420);}while(r);
#line 19421 "qb64pe.bas"
}
#line 19422 "qb64pe.bas"
}
#line 19423 "qb64pe.bas"
do{
#line 19423 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
#line 19423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19423 "qb64pe.bas"
if(!qbevent)break;evnt(19423);}while(r);
#line 19424 "qb64pe.bas"
S_22449:;
#line 19424 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19424 "qb64pe.bas"
if(qbevent){evnt(19424);if(r)goto S_22449;}
#line 19424 "qb64pe.bas"
do{
#line 19424 "qb64pe.bas"
goto exit_subfunc;
#line 19424 "qb64pe.bas"
if(!qbevent)break;evnt(19424);}while(r);
#line 19424 "qb64pe.bas"
}
#line 19425 "qb64pe.bas"
S_22452:;
#line 19425 "qb64pe.bas"
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
#line 19425 "qb64pe.bas"
if(qbevent){evnt(19425);if(r)goto S_22452;}
#line 19427 "qb64pe.bas"
S_22453:;
#line 19427 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19427 "qb64pe.bas"
if(qbevent){evnt(19427);if(r)goto S_22453;}
#line 19427 "qb64pe.bas"
do{
#line 19427 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19427 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19427 "qb64pe.bas"
if (is_error_pending()) goto skip2594;
#line 19427 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
#line 19427 "qb64pe.bas"
if (is_error_pending()) goto skip2594;
#line 19427 "qb64pe.bas"
skip2594:
#line 19427 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19427 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19427 "qb64pe.bas"
if(!qbevent)break;evnt(19427);}while(r);
#line 19427 "qb64pe.bas"
}
#line 19430 "qb64pe.bas"
S_22456:;
#line 19430 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19430 "qb64pe.bas"
if(qbevent){evnt(19430);if(r)goto S_22456;}
#line 19431 "qb64pe.bas"
S_22457:;
#line 19431 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 19431 "qb64pe.bas"
if(qbevent){evnt(19431);if(r)goto S_22457;}
#line 19432 "qb64pe.bas"
S_22458:;
#line 19432 "qb64pe.bas"
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
#line 19432 "qb64pe.bas"
if(qbevent){evnt(19432);if(r)goto S_22458;}
#line 19433 "qb64pe.bas"
do{
#line 19433 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID;
#line 19433 "qb64pe.bas"
if(!qbevent)break;evnt(19433);}while(r);
#line 19434 "qb64pe.bas"
do{
#line 19434 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19434 "qb64pe.bas"
if(!qbevent)break;evnt(19434);}while(r);
#line 19435 "qb64pe.bas"
do{
#line 19435 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
#line 19435 "qb64pe.bas"
if(!qbevent)break;evnt(19435);}while(r);
#line 19436 "qb64pe.bas"
do{
#line 19436 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2= 0 ;
#line 19436 "qb64pe.bas"
if(!qbevent)break;evnt(19436);}while(r);
#line 19437 "qb64pe.bas"
LABEL_EVALNEXTELE3:;
#line 19437 "qb64pe.bas"
if(qbevent){evnt(19437);r=0;}
#line 19438 "qb64pe.bas"
do{
#line 19438 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
#line 19438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19438 "qb64pe.bas"
if(!qbevent)break;evnt(19438);}while(r);
#line 19439 "qb64pe.bas"
S_22464:;
#line 19439 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19439 "qb64pe.bas"
if(qbevent){evnt(19439);if(r)goto S_22464;}
#line 19439 "qb64pe.bas"
do{
#line 19439 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
#line 19439 "qb64pe.bas"
if(!qbevent)break;evnt(19439);}while(r);
#line 19439 "qb64pe.bas"
}
#line 19440 "qb64pe.bas"
S_22467:;
#line 19440 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19440 "qb64pe.bas"
if(qbevent){evnt(19440);if(r)goto S_22467;}
#line 19441 "qb64pe.bas"
do{
#line 19441 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
#line 19441 "qb64pe.bas"
if(!qbevent)break;evnt(19441);}while(r);
#line 19442 "qb64pe.bas"
S_22469:;
#line 19442 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
#line 19442 "qb64pe.bas"
if(qbevent){evnt(19442);if(r)goto S_22469;}
#line 19443 "qb64pe.bas"
do{
#line 19443 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_ARRAYINDEXES,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2595=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2596=*_FUNC_EVALUATE_LONG_I2- 1 )));
#line 19443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19443 "qb64pe.bas"
if(!qbevent)break;evnt(19443);}while(r);
#line 19444 "qb64pe.bas"
do{
#line 19444 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(_FUNC_EVALUATE_STRING_ARRAYINDEXES,_FUNC_EVALUATE_LONG_TYP2));
#line 19444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19444 "qb64pe.bas"
if(!qbevent)break;evnt(19444);}while(r);
#line 19445 "qb64pe.bas"
S_22472:;
#line 19445 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19445 "qb64pe.bas"
if(qbevent){evnt(19445);if(r)goto S_22472;}
#line 19445 "qb64pe.bas"
do{
#line 19445 "qb64pe.bas"
goto exit_subfunc;
#line 19445 "qb64pe.bas"
if(!qbevent)break;evnt(19445);}while(r);
#line 19445 "qb64pe.bas"
}
#line 19446 "qb64pe.bas"
do{
#line 19446 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
#line 19446 "qb64pe.bas"
if(!qbevent)break;evnt(19446);}while(r);
#line 19449 "qb64pe.bas"
S_22476:;
#line 19449 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||is_error_pending()){
#line 19449 "qb64pe.bas"
if(qbevent){evnt(19449);if(r)goto S_22476;}
#line 19455 "qb64pe.bas"
S_22477:;
#line 19455 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_ARRAYINDEXES,qbs_new_txt_len("",0))))||is_error_pending()){
#line 19455 "qb64pe.bas"
if(qbevent){evnt(19455);if(r)goto S_22477;}
#line 19456 "qb64pe.bas"
S_22478:;
#line 19456 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I2<*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
#line 19456 "qb64pe.bas"
if(qbevent){evnt(19456);if(r)goto S_22478;}
#line 19457 "qb64pe.bas"
S_22479:;
#line 19457 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2597=*_FUNC_EVALUATE_LONG_I2+ 1 )),qbs_new_txt_len(".",1))))||is_error_pending()){
#line 19457 "qb64pe.bas"
if(qbevent){evnt(19457);if(r)goto S_22479;}
#line 19457 "qb64pe.bas"
do{
#line 19457 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array index",20));
#line 19457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19457 "qb64pe.bas"
if(!qbevent)break;evnt(19457);}while(r);
#line 19457 "qb64pe.bas"
do{
#line 19457 "qb64pe.bas"
goto exit_subfunc;
#line 19457 "qb64pe.bas"
if(!qbevent)break;evnt(19457);}while(r);
#line 19457 "qb64pe.bas"
}
#line 19458 "qb64pe.bas"
}
#line 19459 "qb64pe.bas"
}
#line 19462 "qb64pe.bas"
do{
#line 19462 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID);
#line 19462 "qb64pe.bas"
if(!qbevent)break;evnt(19462);}while(r);
#line 19463 "qb64pe.bas"
S_22486:;
#line 19463 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19463 "qb64pe.bas"
if(qbevent){evnt(19463);if(r)goto S_22486;}
#line 19463 "qb64pe.bas"
do{
#line 19463 "qb64pe.bas"
goto exit_subfunc;
#line 19463 "qb64pe.bas"
if(!qbevent)break;evnt(19463);}while(r);
#line 19463 "qb64pe.bas"
}
#line 19464 "qb64pe.bas"
do{
#line 19464 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_right(_FUNC_EVALUATE_STRING_C,_FUNC_EVALUATE_STRING_C->len-func_instr(NULL,_FUNC_EVALUATE_STRING_C,__STRING1_SP3,0)));
#line 19464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19464 "qb64pe.bas"
if(!qbevent)break;evnt(19464);}while(r);
#line 19466 "qb64pe.bas"
do{
#line 19466 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 4095ll ;
#line 19466 "qb64pe.bas"
if(!qbevent)break;evnt(19466);}while(r);
#line 19467 "qb64pe.bas"
do{
#line 19467 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_S=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
#line 19467 "qb64pe.bas"
if(!qbevent)break;evnt(19467);}while(r);
#line 19468 "qb64pe.bas"
S_22492:;
#line 19468 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 19468 "qb64pe.bas"
if(qbevent){evnt(19468);if(r)goto S_22492;}
#line 19468 "qb64pe.bas"
do{
#line 19468 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_S=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATE_LONG_U), 8 );
#line 19468 "qb64pe.bas"
if(!qbevent)break;evnt(19468);}while(r);
#line 19468 "qb64pe.bas"
}
#line 19469 "qb64pe.bas"
do{
#line 19469 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_O),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_EVALUATE_LONG_S),NULL,0)));
#line 19469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19469 "qb64pe.bas"
if(!qbevent)break;evnt(19469);}while(r);
#line 19471 "qb64pe.bas"
do{
#line 19471 "qb64pe.bas"
goto LABEL_EVALUDT;
#line 19471 "qb64pe.bas"
if(!qbevent)break;evnt(19471);}while(r);
#line 19472 "qb64pe.bas"
}
#line 19474 "qb64pe.bas"
do{
#line 19474 "qb64pe.bas"
goto LABEL_EVALEDNEXTELE3;
#line 19474 "qb64pe.bas"
if(!qbevent)break;evnt(19474);}while(r);
#line 19475 "qb64pe.bas"
}
#line 19476 "qb64pe.bas"
}
#line 19477 "qb64pe.bas"
do{
#line 19477 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
#line 19477 "qb64pe.bas"
if(!qbevent)break;evnt(19477);}while(r);
#line 19478 "qb64pe.bas"
do{
#line 19478 "qb64pe.bas"
goto LABEL_EVALNEXTELE3;
#line 19478 "qb64pe.bas"
if(!qbevent)break;evnt(19478);}while(r);
#line 19479 "qb64pe.bas"
LABEL_EVALEDNEXTELE3:;
#line 19479 "qb64pe.bas"
if(qbevent){evnt(19479);r=0;}
#line 19480 "qb64pe.bas"
do{
#line 19480 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19480 "qb64pe.bas"
if(!qbevent)break;evnt(19480);}while(r);
#line 19481 "qb64pe.bas"
do{
#line 19481 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19481 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],_FUNC_EVALUATE_STRING_C);
#line 19481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19481 "qb64pe.bas"
if(!qbevent)break;evnt(19481);}while(r);
#line 19482 "qb64pe.bas"
do{
#line 19482 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19482 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
#line 19482 "qb64pe.bas"
if(!qbevent)break;evnt(19482);}while(r);
#line 19483 "qb64pe.bas"
do{
#line 19483 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19483 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
#line 19483 "qb64pe.bas"
if(!qbevent)break;evnt(19483);}while(r);
#line 19484 "qb64pe.bas"
S_22507:;
#line 19484 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
#line 19484 "qb64pe.bas"
if(qbevent){evnt(19484);if(r)goto S_22507;}
#line 19484 "qb64pe.bas"
do{
#line 19484 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19484 "qb64pe.bas"
if(!qbevent)break;evnt(19484);}while(r);
#line 19484 "qb64pe.bas"
}
#line 19485 "qb64pe.bas"
do{
#line 19485 "qb64pe.bas"
goto LABEL_EVALED;
#line 19485 "qb64pe.bas"
if(!qbevent)break;evnt(19485);}while(r);
#line 19486 "qb64pe.bas"
}
#line 19487 "qb64pe.bas"
}
#line 19489 "qb64pe.bas"
}else{
#line 19493 "qb64pe.bas"
S_22514:;
#line 19493 "qb64pe.bas"
if (((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
#line 19493 "qb64pe.bas"
if(qbevent){evnt(19493);if(r)goto S_22514;}
#line 19494 "qb64pe.bas"
S_22515:;
#line 19494 "qb64pe.bas"
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
#line 19494 "qb64pe.bas"
if(qbevent){evnt(19494);if(r)goto S_22515;}
#line 19495 "qb64pe.bas"
do{
#line 19495 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19495 "qb64pe.bas"
if(!qbevent)break;evnt(19495);}while(r);
#line 19496 "qb64pe.bas"
do{
#line 19496 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19496 "qb64pe.bas"
if(!qbevent)break;evnt(19496);}while(r);
#line 19497 "qb64pe.bas"
do{
#line 19497 "qb64pe.bas"
SUB_MAKEIDREFER((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])));
#line 19497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19497 "qb64pe.bas"
if(!qbevent)break;evnt(19497);}while(r);
#line 19498 "qb64pe.bas"
S_22519:;
#line 19498 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
#line 19498 "qb64pe.bas"
if(qbevent){evnt(19498);if(r)goto S_22519;}
#line 19498 "qb64pe.bas"
do{
#line 19498 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19498 "qb64pe.bas"
if(!qbevent)break;evnt(19498);}while(r);
#line 19498 "qb64pe.bas"
}
#line 19499 "qb64pe.bas"
do{
#line 19499 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19499 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
#line 19499 "qb64pe.bas"
if(!qbevent)break;evnt(19499);}while(r);
#line 19500 "qb64pe.bas"
do{
#line 19500 "qb64pe.bas"
goto LABEL_EVALED;
#line 19500 "qb64pe.bas"
if(!qbevent)break;evnt(19500);}while(r);
#line 19501 "qb64pe.bas"
}
#line 19502 "qb64pe.bas"
}
#line 19505 "qb64pe.bas"
S_22526:;
#line 19505 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)||is_error_pending()){
#line 19505 "qb64pe.bas"
if(qbevent){evnt(19505);if(r)goto S_22526;}
#line 19506 "qb64pe.bas"
S_22527:;
#line 19506 "qb64pe.bas"
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
#line 19506 "qb64pe.bas"
if(qbevent){evnt(19506);if(r)goto S_22527;}
#line 19507 "qb64pe.bas"
do{
#line 19507 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19507 "qb64pe.bas"
if(!qbevent)break;evnt(19507);}while(r);
#line 19508 "qb64pe.bas"
do{
#line 19508 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0));
#line 19508 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19508 "qb64pe.bas"
if(!qbevent)break;evnt(19508);}while(r);
#line 19509 "qb64pe.bas"
LABEL_EVALUDT:;
#line 19509 "qb64pe.bas"
if(qbevent){evnt(19509);r=0;}
#line 19510 "qb64pe.bas"
do{
#line 19510 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2= 0 ;
#line 19510 "qb64pe.bas"
if(!qbevent)break;evnt(19510);}while(r);
#line 19511 "qb64pe.bas"
do{
#line 19511 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 19511 "qb64pe.bas"
if(!qbevent)break;evnt(19511);}while(r);
#line 19512 "qb64pe.bas"
S_22532:;
#line 19512 "qb64pe.bas"
fornext_value2600=*_FUNC_EVALUATE_LONG_I3;
#line 19512 "qb64pe.bas"
fornext_finalvalue2600=*_FUNC_EVALUATE_LONG_N;
#line 19512 "qb64pe.bas"
fornext_step2600= 1 ;
#line 19512 "qb64pe.bas"
if (fornext_step2600<0) fornext_step_negative2600=1; else fornext_step_negative2600=0;
#line 19512 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2600;
#line 19512 "qb64pe.bas"
goto fornext_entrylabel2600;
#line 19512 "qb64pe.bas"
while(1){
#line 19512 "qb64pe.bas"
fornext_value2600=fornext_step2600+(*_FUNC_EVALUATE_LONG_I2);
#line 19512 "qb64pe.bas"
fornext_entrylabel2600:
#line 19512 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=fornext_value2600;
#line 19512 "qb64pe.bas"
if (fornext_step_negative2600){
#line 19512 "qb64pe.bas"
if (fornext_value2600<fornext_finalvalue2600) break;
#line 19512 "qb64pe.bas"
}else{
#line 19512 "qb64pe.bas"
if (fornext_value2600>fornext_finalvalue2600) break;
#line 19512 "qb64pe.bas"
}
#line 19512 "qb64pe.bas"
fornext_error2600:;
#line 19512 "qb64pe.bas"
if(qbevent){evnt(19512);if(r)goto S_22532;}
#line 19513 "qb64pe.bas"
do{
#line 19513 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_E2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
#line 19513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19513 "qb64pe.bas"
if(!qbevent)break;evnt(19513);}while(r);
#line 19514 "qb64pe.bas"
S_22534:;
#line 19514 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19514 "qb64pe.bas"
if(qbevent){evnt(19514);if(r)goto S_22534;}
#line 19514 "qb64pe.bas"
do{
#line 19514 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
#line 19514 "qb64pe.bas"
if(!qbevent)break;evnt(19514);}while(r);
#line 19514 "qb64pe.bas"
}
#line 19515 "qb64pe.bas"
S_22537:;
#line 19515 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||is_error_pending()){
#line 19515 "qb64pe.bas"
if(qbevent){evnt(19515);if(r)goto S_22537;}
#line 19516 "qb64pe.bas"
S_22538:;
#line 19516 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1)))|(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_E2))))||is_error_pending()){
#line 19516 "qb64pe.bas"
if(qbevent){evnt(19516);if(r)goto S_22538;}
#line 19517 "qb64pe.bas"
do{
#line 19517 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ;
#line 19517 "qb64pe.bas"
if(!qbevent)break;evnt(19517);}while(r);
#line 19518 "qb64pe.bas"
do{
#line 19518 "qb64pe.bas"
goto LABEL_GOTUDT;
#line 19518 "qb64pe.bas"
if(!qbevent)break;evnt(19518);}while(r);
#line 19519 "qb64pe.bas"
}
#line 19520 "qb64pe.bas"
}
#line 19521 "qb64pe.bas"
S_22543:;
#line 19521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19521 "qb64pe.bas"
if(qbevent){evnt(19521);if(r)goto S_22543;}
#line 19521 "qb64pe.bas"
do{
#line 19521 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
#line 19521 "qb64pe.bas"
if(!qbevent)break;evnt(19521);}while(r);
#line 19521 "qb64pe.bas"
}
#line 19522 "qb64pe.bas"
fornext_continue_2599:;
#line 19522 "qb64pe.bas"
}
#line 19522 "qb64pe.bas"
fornext_exit_2599:;
#line 19523 "qb64pe.bas"
do{
#line 19523 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N;
#line 19523 "qb64pe.bas"
if(!qbevent)break;evnt(19523);}while(r);
#line 19524 "qb64pe.bas"
LABEL_GOTUDT:;
#line 19524 "qb64pe.bas"
if(qbevent){evnt(19524);r=0;}
#line 19525 "qb64pe.bas"
S_22548:;
#line 19525 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||is_error_pending()){
#line 19525 "qb64pe.bas"
if(qbevent){evnt(19525);if(r)goto S_22548;}
#line 19525 "qb64pe.bas"
do{
#line 19525 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0));
#line 19525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19525 "qb64pe.bas"
if(!qbevent)break;evnt(19525);}while(r);
#line 19525 "qb64pe.bas"
}else{
#line 19525 "qb64pe.bas"
do{
#line 19525 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I3,_FUNC_EVALUATE_LONG_I4));
#line 19525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19525 "qb64pe.bas"
if(!qbevent)break;evnt(19525);}while(r);
#line 19525 "qb64pe.bas"
}
#line 19527 "qb64pe.bas"
do{
#line 19527 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_UDTREFERENCE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_STRING_E,_FUNC_EVALUATE_LONG_TYP2));
#line 19527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19527 "qb64pe.bas"
if(!qbevent)break;evnt(19527);}while(r);
#line 19528 "qb64pe.bas"
S_22554:;
#line 19528 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19528 "qb64pe.bas"
if(qbevent){evnt(19528);if(r)goto S_22554;}
#line 19528 "qb64pe.bas"
do{
#line 19528 "qb64pe.bas"
goto exit_subfunc;
#line 19528 "qb64pe.bas"
if(!qbevent)break;evnt(19528);}while(r);
#line 19528 "qb64pe.bas"
}
#line 19529 "qb64pe.bas"
do{
#line 19529 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4;
#line 19529 "qb64pe.bas"
if(!qbevent)break;evnt(19529);}while(r);
#line 19530 "qb64pe.bas"
do{
#line 19530 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19530 "qb64pe.bas"
if(!qbevent)break;evnt(19530);}while(r);
#line 19531 "qb64pe.bas"
do{
#line 19531 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19531 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],_FUNC_EVALUATE_STRING_E);
#line 19531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19531 "qb64pe.bas"
if(!qbevent)break;evnt(19531);}while(r);
#line 19532 "qb64pe.bas"
do{
#line 19532 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19532 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
#line 19532 "qb64pe.bas"
if(!qbevent)break;evnt(19532);}while(r);
#line 19533 "qb64pe.bas"
do{
#line 19533 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19533 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
#line 19533 "qb64pe.bas"
if(!qbevent)break;evnt(19533);}while(r);
#line 19536 "qb64pe.bas"
do{
#line 19536 "qb64pe.bas"
goto LABEL_EVALED;
#line 19536 "qb64pe.bas"
if(!qbevent)break;evnt(19536);}while(r);
#line 19537 "qb64pe.bas"
}
#line 19538 "qb64pe.bas"
}
#line 19540 "qb64pe.bas"
}
#line 19543 "qb64pe.bas"
S_22566:;
#line 19543 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
#line 19543 "qb64pe.bas"
if(qbevent){evnt(19543);if(r)goto S_22566;}
#line 19544 "qb64pe.bas"
do{
#line 19544 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19544 "qb64pe.bas"
if(!qbevent)break;evnt(19544);}while(r);
#line 19545 "qb64pe.bas"
S_22568:;
#line 19545 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2601=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19545 "qb64pe.bas"
if(qbevent){evnt(19545);if(r)goto S_22568;}
#line 19546 "qb64pe.bas"
do{
#line 19546 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
#line 19546 "qb64pe.bas"
if(!qbevent)break;evnt(19546);}while(r);
#line 19547 "qb64pe.bas"
do{
#line 19547 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2= 0 ;
#line 19547 "qb64pe.bas"
if(!qbevent)break;evnt(19547);}while(r);
#line 19548 "qb64pe.bas"
do{
#line 19548 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_ARGS= 1 ;
#line 19548 "qb64pe.bas"
if(!qbevent)break;evnt(19548);}while(r);
#line 19549 "qb64pe.bas"
LABEL_EVALNEXTELE:;
#line 19549 "qb64pe.bas"
if(qbevent){evnt(19549);r=0;}
#line 19550 "qb64pe.bas"
do{
#line 19550 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
#line 19550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19550 "qb64pe.bas"
if(!qbevent)break;evnt(19550);}while(r);
#line 19551 "qb64pe.bas"
S_22573:;
#line 19551 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19551 "qb64pe.bas"
if(qbevent){evnt(19551);if(r)goto S_22573;}
#line 19551 "qb64pe.bas"
do{
#line 19551 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
#line 19551 "qb64pe.bas"
if(!qbevent)break;evnt(19551);}while(r);
#line 19551 "qb64pe.bas"
}
#line 19552 "qb64pe.bas"
S_22576:;
#line 19552 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19552 "qb64pe.bas"
if(qbevent){evnt(19552);if(r)goto S_22576;}
#line 19553 "qb64pe.bas"
do{
#line 19553 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
#line 19553 "qb64pe.bas"
if(!qbevent)break;evnt(19553);}while(r);
#line 19554 "qb64pe.bas"
S_22578:;
#line 19554 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
#line 19554 "qb64pe.bas"
if(qbevent){evnt(19554);if(r)goto S_22578;}
#line 19555 "qb64pe.bas"
S_22579:;
#line 19555 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||is_error_pending()){
#line 19555 "qb64pe.bas"
if(qbevent){evnt(19555);if(r)goto S_22579;}
#line 19555 "qb64pe.bas"
do{
#line 19555 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14));
#line 19555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19555 "qb64pe.bas"
if(!qbevent)break;evnt(19555);}while(r);
#line 19555 "qb64pe.bas"
do{
#line 19555 "qb64pe.bas"
goto exit_subfunc;
#line 19555 "qb64pe.bas"
if(!qbevent)break;evnt(19555);}while(r);
#line 19555 "qb64pe.bas"
}
#line 19556 "qb64pe.bas"
do{
#line 19556 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2602=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2603=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2));
#line 19556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19556 "qb64pe.bas"
if(!qbevent)break;evnt(19556);}while(r);
#line 19557 "qb64pe.bas"
S_22584:;
#line 19557 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19557 "qb64pe.bas"
if(qbevent){evnt(19557);if(r)goto S_22584;}
#line 19557 "qb64pe.bas"
do{
#line 19557 "qb64pe.bas"
goto exit_subfunc;
#line 19557 "qb64pe.bas"
if(!qbevent)break;evnt(19557);}while(r);
#line 19557 "qb64pe.bas"
}
#line 19558 "qb64pe.bas"
do{
#line 19558 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
#line 19558 "qb64pe.bas"
if(!qbevent)break;evnt(19558);}while(r);
#line 19559 "qb64pe.bas"
do{
#line 19559 "qb64pe.bas"
goto LABEL_EVALEDNEXTELE;
#line 19559 "qb64pe.bas"
if(!qbevent)break;evnt(19559);}while(r);
#line 19560 "qb64pe.bas"
}
#line 19561 "qb64pe.bas"
}
#line 19562 "qb64pe.bas"
S_22591:;
#line 19562 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATE_LONG_B2== 0 ))))||is_error_pending()){
#line 19562 "qb64pe.bas"
if(qbevent){evnt(19562);if(r)goto S_22591;}
#line 19562 "qb64pe.bas"
do{
#line 19562 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ;
#line 19562 "qb64pe.bas"
if(!qbevent)break;evnt(19562);}while(r);
#line 19562 "qb64pe.bas"
}
#line 19563 "qb64pe.bas"
do{
#line 19563 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
#line 19563 "qb64pe.bas"
if(!qbevent)break;evnt(19563);}while(r);
#line 19564 "qb64pe.bas"
do{
#line 19564 "qb64pe.bas"
goto LABEL_EVALNEXTELE;
#line 19564 "qb64pe.bas"
if(!qbevent)break;evnt(19564);}while(r);
#line 19565 "qb64pe.bas"
}else{
#line 19567 "qb64pe.bas"
do{
#line 19567 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2604= 0 ),_FUNC_EVALUATE_LONG_TYP2));
#line 19567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19567 "qb64pe.bas"
if(!qbevent)break;evnt(19567);}while(r);
#line 19568 "qb64pe.bas"
S_22598:;
#line 19568 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19568 "qb64pe.bas"
if(qbevent){evnt(19568);if(r)goto S_22598;}
#line 19568 "qb64pe.bas"
do{
#line 19568 "qb64pe.bas"
goto exit_subfunc;
#line 19568 "qb64pe.bas"
if(!qbevent)break;evnt(19568);}while(r);
#line 19568 "qb64pe.bas"
}
#line 19569 "qb64pe.bas"
}
#line 19570 "qb64pe.bas"
LABEL_EVALEDNEXTELE:;
#line 19570 "qb64pe.bas"
if(qbevent){evnt(19570);r=0;}
#line 19571 "qb64pe.bas"
do{
#line 19571 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19571 "qb64pe.bas"
if(!qbevent)break;evnt(19571);}while(r);
#line 19572 "qb64pe.bas"
do{
#line 19572 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19572 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],_FUNC_EVALUATE_STRING_C);
#line 19572 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19572 "qb64pe.bas"
if(!qbevent)break;evnt(19572);}while(r);
#line 19573 "qb64pe.bas"
do{
#line 19573 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19573 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
#line 19573 "qb64pe.bas"
if(!qbevent)break;evnt(19573);}while(r);
#line 19574 "qb64pe.bas"
do{
#line 19574 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19574 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
#line 19574 "qb64pe.bas"
if(!qbevent)break;evnt(19574);}while(r);
#line 19575 "qb64pe.bas"
S_22606:;
#line 19575 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
#line 19575 "qb64pe.bas"
if(qbevent){evnt(19575);if(r)goto S_22606;}
#line 19575 "qb64pe.bas"
do{
#line 19575 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19575 "qb64pe.bas"
if(!qbevent)break;evnt(19575);}while(r);
#line 19575 "qb64pe.bas"
}
#line 19576 "qb64pe.bas"
do{
#line 19576 "qb64pe.bas"
goto LABEL_EVALED;
#line 19576 "qb64pe.bas"
if(!qbevent)break;evnt(19576);}while(r);
#line 19577 "qb64pe.bas"
}
#line 19579 "qb64pe.bas"
S_22611:;
#line 19579 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
#line 19579 "qb64pe.bas"
if(qbevent){evnt(19579);if(r)goto S_22611;}
#line 19579 "qb64pe.bas"
do{
#line 19579 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 19579 "qb64pe.bas"
if(!qbevent)break;evnt(19579);}while(r);
#line 19579 "qb64pe.bas"
do{
#line 19579 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
#line 19579 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19579 "qb64pe.bas"
if(!qbevent)break;evnt(19579);}while(r);
#line 19579 "qb64pe.bas"
}else{
#line 19579 "qb64pe.bas"
do{
#line 19579 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY= 0 ;
#line 19579 "qb64pe.bas"
if(!qbevent)break;evnt(19579);}while(r);
#line 19579 "qb64pe.bas"
}
#line 19580 "qb64pe.bas"
S_22617:;
#line 19580 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19580 "qb64pe.bas"
if(qbevent){evnt(19580);if(r)goto S_22617;}
#line 19580 "qb64pe.bas"
do{
#line 19580 "qb64pe.bas"
goto exit_subfunc;
#line 19580 "qb64pe.bas"
if(!qbevent)break;evnt(19580);}while(r);
#line 19580 "qb64pe.bas"
}
#line 19581 "qb64pe.bas"
dl_continue_2593:;
#line 19581 "qb64pe.bas"
}
#line 19581 "qb64pe.bas"
dl_exit_2593:;
#line 19582 "qb64pe.bas"
fornext_continue_2590:;
#line 19582 "qb64pe.bas"
}
#line 19582 "qb64pe.bas"
fornext_exit_2590:;
#line 19586 "qb64pe.bas"
S_22622:;
#line 19586 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
#line 19586 "qb64pe.bas"
if(qbevent){evnt(19586);if(r)goto S_22622;}
#line 19587 "qb64pe.bas"
S_22623:;
#line 19587 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2605=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19587 "qb64pe.bas"
if(qbevent){evnt(19587);if(r)goto S_22623;}
#line 19588 "qb64pe.bas"
S_22624:;
#line 19588 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
#line 19588 "qb64pe.bas"
if(qbevent){evnt(19588);if(r)goto S_22624;}
#line 19589 "qb64pe.bas"
S_22625:;
#line 19589 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
#line 19589 "qb64pe.bas"
if(qbevent){evnt(19589);if(r)goto S_22625;}
#line 19590 "qb64pe.bas"
S_22626:;
#line 19590 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19590 "qb64pe.bas"
if(qbevent){evnt(19590);if(r)goto S_22626;}
#line 19591 "qb64pe.bas"
do{
#line 19591 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19591 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19591 "qb64pe.bas"
if (is_error_pending()) goto skip2606;
#line 19591 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
#line 19591 "qb64pe.bas"
if (is_error_pending()) goto skip2606;
#line 19591 "qb64pe.bas"
skip2606:
#line 19591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19591 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19591 "qb64pe.bas"
if(!qbevent)break;evnt(19591);}while(r);
#line 19592 "qb64pe.bas"
do{
#line 19592 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19592 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19592 "qb64pe.bas"
if (is_error_pending()) goto skip2607;
#line 19592 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("about to auto-create array:",27),_FUNC_EVALUATE_STRING_L), 0, 1, 0);
#line 19592 "qb64pe.bas"
if (is_error_pending()) goto skip2607;
#line 19592 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
#line 19592 "qb64pe.bas"
if (is_error_pending()) goto skip2607;
#line 19592 "qb64pe.bas"
skip2607:
#line 19592 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19592 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19592 "qb64pe.bas"
if(!qbevent)break;evnt(19592);}while(r);
#line 19593 "qb64pe.bas"
do{
#line 19593 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19593 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19593 "qb64pe.bas"
if (is_error_pending()) goto skip2608;
#line 19593 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
#line 19593 "qb64pe.bas"
if (is_error_pending()) goto skip2608;
#line 19593 "qb64pe.bas"
skip2608:
#line 19593 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19593 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19593 "qb64pe.bas"
if(!qbevent)break;evnt(19593);}while(r);
#line 19594 "qb64pe.bas"
}
#line 19595 "qb64pe.bas"
do{
#line 19595 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L));
#line 19595 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19595 "qb64pe.bas"
if(!qbevent)break;evnt(19595);}while(r);
#line 19596 "qb64pe.bas"
S_22632:;
#line 19596 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19596 "qb64pe.bas"
if(qbevent){evnt(19596);if(r)goto S_22632;}
#line 19596 "qb64pe.bas"
do{
#line 19596 "qb64pe.bas"
goto exit_subfunc;
#line 19596 "qb64pe.bas"
if(!qbevent)break;evnt(19596);}while(r);
#line 19596 "qb64pe.bas"
}
#line 19598 "qb64pe.bas"
do{
#line 19598 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NUME= 1 ;
#line 19598 "qb64pe.bas"
if(!qbevent)break;evnt(19598);}while(r);
#line 19599 "qb64pe.bas"
do{
#line 19599 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2= 0 ;
#line 19599 "qb64pe.bas"
if(!qbevent)break;evnt(19599);}while(r);
#line 19600 "qb64pe.bas"
S_22637:;
#line 19600 "qb64pe.bas"
fornext_value2610=*_FUNC_EVALUATE_LONG_I+ 2 ;
#line 19600 "qb64pe.bas"
fornext_finalvalue2610=*_FUNC_EVALUATE_LONG_N;
#line 19600 "qb64pe.bas"
fornext_step2610= 1 ;
#line 19600 "qb64pe.bas"
if (fornext_step2610<0) fornext_step_negative2610=1; else fornext_step_negative2610=0;
#line 19600 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2610;
#line 19600 "qb64pe.bas"
goto fornext_entrylabel2610;
#line 19600 "qb64pe.bas"
while(1){
#line 19600 "qb64pe.bas"
fornext_value2610=fornext_step2610+(*_FUNC_EVALUATE_LONG_I2);
#line 19600 "qb64pe.bas"
fornext_entrylabel2610:
#line 19600 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=fornext_value2610;
#line 19600 "qb64pe.bas"
if (fornext_step_negative2610){
#line 19600 "qb64pe.bas"
if (fornext_value2610<fornext_finalvalue2610) break;
#line 19600 "qb64pe.bas"
}else{
#line 19600 "qb64pe.bas"
if (fornext_value2610>fornext_finalvalue2610) break;
#line 19600 "qb64pe.bas"
}
#line 19600 "qb64pe.bas"
fornext_error2610:;
#line 19600 "qb64pe.bas"
if(qbevent){evnt(19600);if(r)goto S_22637;}
#line 19601 "qb64pe.bas"
do{
#line 19601 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
#line 19601 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19601 "qb64pe.bas"
if(!qbevent)break;evnt(19601);}while(r);
#line 19602 "qb64pe.bas"
S_22639:;
#line 19602 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19602 "qb64pe.bas"
if(qbevent){evnt(19602);if(r)goto S_22639;}
#line 19602 "qb64pe.bas"
do{
#line 19602 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
#line 19602 "qb64pe.bas"
if(!qbevent)break;evnt(19602);}while(r);
#line 19602 "qb64pe.bas"
}
#line 19603 "qb64pe.bas"
S_22642:;
#line 19603 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_B2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 19603 "qb64pe.bas"
if(qbevent){evnt(19603);if(r)goto S_22642;}
#line 19603 "qb64pe.bas"
do{
#line 19603 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ;
#line 19603 "qb64pe.bas"
if(!qbevent)break;evnt(19603);}while(r);
#line 19603 "qb64pe.bas"
}
#line 19604 "qb64pe.bas"
S_22645:;
#line 19604 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19604 "qb64pe.bas"
if(qbevent){evnt(19604);if(r)goto S_22645;}
#line 19604 "qb64pe.bas"
do{
#line 19604 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
#line 19604 "qb64pe.bas"
if(!qbevent)break;evnt(19604);}while(r);
#line 19604 "qb64pe.bas"
}
#line 19605 "qb64pe.bas"
S_22648:;
#line 19605 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
#line 19605 "qb64pe.bas"
if(qbevent){evnt(19605);if(r)goto S_22648;}
#line 19605 "qb64pe.bas"
do{
#line 19605 "qb64pe.bas"
goto fornext_exit_2609;
#line 19605 "qb64pe.bas"
if(!qbevent)break;evnt(19605);}while(r);
#line 19605 "qb64pe.bas"
}
#line 19606 "qb64pe.bas"
fornext_continue_2609:;
#line 19606 "qb64pe.bas"
}
#line 19606 "qb64pe.bas"
fornext_exit_2609:;
#line 19607 "qb64pe.bas"
do{
#line 19607 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2));
#line 19607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19607 "qb64pe.bas"
if(!qbevent)break;evnt(19607);}while(r);
#line 19607 "qb64pe.bas"
S_22653:;
#line 19607 "qb64pe.bas"
fornext_value2612= 2 ;
#line 19607 "qb64pe.bas"
fornext_finalvalue2612=*_FUNC_EVALUATE_LONG_NUME;
#line 19607 "qb64pe.bas"
fornext_step2612= 1 ;
#line 19607 "qb64pe.bas"
if (fornext_step2612<0) fornext_step_negative2612=1; else fornext_step_negative2612=0;
#line 19607 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2612;
#line 19607 "qb64pe.bas"
goto fornext_entrylabel2612;
#line 19607 "qb64pe.bas"
while(1){
#line 19607 "qb64pe.bas"
fornext_value2612=fornext_step2612+(*_FUNC_EVALUATE_LONG_I2);
#line 19607 "qb64pe.bas"
fornext_entrylabel2612:
#line 19607 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I2=fornext_value2612;
#line 19607 "qb64pe.bas"
if (fornext_step_negative2612){
#line 19607 "qb64pe.bas"
if (fornext_value2612<fornext_finalvalue2612) break;
#line 19607 "qb64pe.bas"
}else{
#line 19607 "qb64pe.bas"
if (fornext_value2612>fornext_finalvalue2612) break;
#line 19607 "qb64pe.bas"
}
#line 19607 "qb64pe.bas"
fornext_error2612:;
#line 19607 "qb64pe.bas"
if(qbevent){evnt(19607);if(r)goto S_22653;}
#line 19607 "qb64pe.bas"
do{
#line 19607 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_FAKEE,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("10",2)));
#line 19607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19607 "qb64pe.bas"
if(!qbevent)break;evnt(19607);}while(r);
#line 19607 "qb64pe.bas"
fornext_continue_2611:;
#line 19607 "qb64pe.bas"
}
#line 19607 "qb64pe.bas"
fornext_exit_2611:;
#line 19608 "qb64pe.bas"
S_22656:;
#line 19608 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19608 "qb64pe.bas"
if(qbevent){evnt(19608);if(r)goto S_22656;}
#line 19608 "qb64pe.bas"
do{
#line 19608 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19608 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19608 "qb64pe.bas"
if (is_error_pending()) goto skip2613;
#line 19608 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluate:creating undefined array using dim2(",45),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len(",",1)),_FUNC_EVALUATE_STRING_DTYP),qbs_new_txt_len(",1,",3)),_FUNC_EVALUATE_STRING_FAKEE),qbs_new_txt_len(")",1)), 0, 0, 1);
#line 19608 "qb64pe.bas"
if (is_error_pending()) goto skip2613;
#line 19608 "qb64pe.bas"
skip2613:
#line 19608 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19608 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19608 "qb64pe.bas"
if(!qbevent)break;evnt(19608);}while(r);
#line 19608 "qb64pe.bas"
}
#line 19609 "qb64pe.bas"
do{
#line 19609 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 19609 "qb64pe.bas"
if(!qbevent)break;evnt(19609);}while(r);
#line 19610 "qb64pe.bas"
S_22660:;
#line 19610 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
#line 19610 "qb64pe.bas"
if(qbevent){evnt(19610);if(r)goto S_22660;}
#line 19610 "qb64pe.bas"
do{
#line 19610 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array name",18));
#line 19610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19610 "qb64pe.bas"
if(!qbevent)break;evnt(19610);}while(r);
#line 19610 "qb64pe.bas"
do{
#line 19610 "qb64pe.bas"
goto exit_subfunc;
#line 19610 "qb64pe.bas"
if(!qbevent)break;evnt(19610);}while(r);
#line 19610 "qb64pe.bas"
}
#line 19611 "qb64pe.bas"
S_22664:;
#line 19611 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))|FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) )))||is_error_pending()){
#line 19611 "qb64pe.bas"
if(qbevent){evnt(19611);if(r)goto S_22664;}
#line 19611 "qb64pe.bas"
do{
#line 19611 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Array '",7),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP)),qbs_new_txt_len(") not defined",13)));
#line 19611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19611 "qb64pe.bas"
if(!qbevent)break;evnt(19611);}while(r);
#line 19611 "qb64pe.bas"
do{
#line 19611 "qb64pe.bas"
goto exit_subfunc;
#line 19611 "qb64pe.bas"
if(!qbevent)break;evnt(19611);}while(r);
#line 19611 "qb64pe.bas"
}
#line 19612 "qb64pe.bas"
S_22668:;
#line 19612 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19612 "qb64pe.bas"
if(qbevent){evnt(19612);if(r)goto S_22668;}
#line 19612 "qb64pe.bas"
do{
#line 19612 "qb64pe.bas"
goto exit_subfunc;
#line 19612 "qb64pe.bas"
if(!qbevent)break;evnt(19612);}while(r);
#line 19612 "qb64pe.bas"
}
#line 19613 "qb64pe.bas"
do{
#line 19613 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
#line 19613 "qb64pe.bas"
if(!qbevent)break;evnt(19613);}while(r);
#line 19614 "qb64pe.bas"
do{
#line 19614 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_METHOD= 1 ;
#line 19614 "qb64pe.bas"
if(!qbevent)break;evnt(19614);}while(r);
#line 19615 "qb64pe.bas"
S_22673:;
#line 19615 "qb64pe.bas"
if ((*__LONG_SUBFUNCN)||is_error_pending()){
#line 19615 "qb64pe.bas"
if(qbevent){evnt(19615);if(r)goto S_22673;}
#line 19616 "qb64pe.bas"
do{
#line 19616 "qb64pe.bas"
*__LONG_AUTOARRAY= 1 ;
#line 19616 "qb64pe.bas"
if(!qbevent)break;evnt(19616);}while(r);
#line 19619 "qb64pe.bas"
do{
#line 19619 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_XI= 1 ;
#line 19619 "qb64pe.bas"
if(!qbevent)break;evnt(19619);}while(r);
#line 19620 "qb64pe.bas"
S_22676:;
#line 19620 "qb64pe.bas"
fornext_value2615= 1 ;
#line 19620 "qb64pe.bas"
fornext_finalvalue2615=*__LONG_STATICARRAYLISTN;
#line 19620 "qb64pe.bas"
fornext_step2615= 1 ;
#line 19620 "qb64pe.bas"
if (fornext_step2615<0) fornext_step_negative2615=1; else fornext_step_negative2615=0;
#line 19620 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2615;
#line 19620 "qb64pe.bas"
goto fornext_entrylabel2615;
#line 19620 "qb64pe.bas"
while(1){
#line 19620 "qb64pe.bas"
fornext_value2615=fornext_step2615+(*_FUNC_EVALUATE_LONG_X);
#line 19620 "qb64pe.bas"
fornext_entrylabel2615:
#line 19620 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_X=fornext_value2615;
#line 19620 "qb64pe.bas"
if (fornext_step_negative2615){
#line 19620 "qb64pe.bas"
if (fornext_value2615<fornext_finalvalue2615) break;
#line 19620 "qb64pe.bas"
}else{
#line 19620 "qb64pe.bas"
if (fornext_value2615>fornext_finalvalue2615) break;
#line 19620 "qb64pe.bas"
}
#line 19620 "qb64pe.bas"
fornext_error2615:;
#line 19620 "qb64pe.bas"
if(qbevent){evnt(19620);if(r)goto S_22676;}
#line 19621 "qb64pe.bas"
do{
#line 19621 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI));
#line 19621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19621 "qb64pe.bas"
if(!qbevent)break;evnt(19621);}while(r);
#line 19621 "qb64pe.bas"
do{
#line 19621 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
#line 19621 "qb64pe.bas"
if(!qbevent)break;evnt(19621);}while(r);
#line 19622 "qb64pe.bas"
do{
#line 19622 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI));
#line 19622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19622 "qb64pe.bas"
if(!qbevent)break;evnt(19622);}while(r);
#line 19622 "qb64pe.bas"
do{
#line 19622 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
#line 19622 "qb64pe.bas"
if(!qbevent)break;evnt(19622);}while(r);
#line 19623 "qb64pe.bas"
do{
#line 19623 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)));
#line 19623 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19623 "qb64pe.bas"
if(!qbevent)break;evnt(19623);}while(r);
#line 19623 "qb64pe.bas"
do{
#line 19623 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
#line 19623 "qb64pe.bas"
if(!qbevent)break;evnt(19623);}while(r);
#line 19625 "qb64pe.bas"
S_22683:;
#line 19625 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATE_STRING_L),qbs_ucase(_FUNC_EVALUATE_STRING_VARNAME2))))||is_error_pending()){
#line 19625 "qb64pe.bas"
if(qbevent){evnt(19625);if(r)goto S_22683;}
#line 19626 "qb64pe.bas"
do{
#line 19626 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2);
#line 19626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19626 "qb64pe.bas"
if(!qbevent)break;evnt(19626);}while(r);
#line 19626 "qb64pe.bas"
do{
#line 19626 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_S,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L3));
#line 19626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19626 "qb64pe.bas"
if(!qbevent)break;evnt(19626);}while(r);
#line 19627 "qb64pe.bas"
S_22686:;
#line 19627 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP),_FUNC_EVALUATE_STRING_TYP2))|(((-(*_FUNC_EVALUATE_LONG_DIMMETHOD2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_S,qbs_new_txt_len("",0)))))))||is_error_pending()){
#line 19627 "qb64pe.bas"
if(qbevent){evnt(19627);if(r)goto S_22686;}
#line 19628 "qb64pe.bas"
S_22687:;
#line 19628 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19628 "qb64pe.bas"
if(qbevent){evnt(19628);if(r)goto S_22687;}
#line 19628 "qb64pe.bas"
do{
#line 19628 "qb64pe.bas"
goto exit_subfunc;
#line 19628 "qb64pe.bas"
if(!qbevent)break;evnt(19628);}while(r);
#line 19628 "qb64pe.bas"
}
#line 19630 "qb64pe.bas"
do{
#line 19630 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2);
#line 19630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19630 "qb64pe.bas"
if(!qbevent)break;evnt(19630);}while(r);
#line 19631 "qb64pe.bas"
do{
#line 19631 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2);
#line 19631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19631 "qb64pe.bas"
if(!qbevent)break;evnt(19631);}while(r);
#line 19632 "qb64pe.bas"
do{
#line 19632 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2;
#line 19632 "qb64pe.bas"
if(!qbevent)break;evnt(19632);}while(r);
#line 19633 "qb64pe.bas"
do{
#line 19633 "qb64pe.bas"
*__LONG_DIMSTATIC= 3 ;
#line 19633 "qb64pe.bas"
if(!qbevent)break;evnt(19633);}while(r);
#line 19634 "qb64pe.bas"
}
#line 19635 "qb64pe.bas"
S_22695:;
#line 19635 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19635 "qb64pe.bas"
if(qbevent){evnt(19635);if(r)goto S_22695;}
#line 19635 "qb64pe.bas"
do{
#line 19635 "qb64pe.bas"
goto exit_subfunc;
#line 19635 "qb64pe.bas"
if(!qbevent)break;evnt(19635);}while(r);
#line 19635 "qb64pe.bas"
}
#line 19636 "qb64pe.bas"
}
#line 19637 "qb64pe.bas"
fornext_continue_2614:;
#line 19637 "qb64pe.bas"
}
#line 19637 "qb64pe.bas"
fornext_exit_2614:;
#line 19638 "qb64pe.bas"
}
#line 19639 "qb64pe.bas"
do{
#line 19639 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_IGNORE=FUNC_DIM2(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_LONG_METHOD,_FUNC_EVALUATE_STRING_FAKEE);
#line 19639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19639 "qb64pe.bas"
if(!qbevent)break;evnt(19639);}while(r);
#line 19640 "qb64pe.bas"
S_22702:;
#line 19640 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19640 "qb64pe.bas"
if(qbevent){evnt(19640);if(r)goto S_22702;}
#line 19640 "qb64pe.bas"
do{
#line 19640 "qb64pe.bas"
goto exit_subfunc;
#line 19640 "qb64pe.bas"
if(!qbevent)break;evnt(19640);}while(r);
#line 19640 "qb64pe.bas"
}
#line 19641 "qb64pe.bas"
do{
#line 19641 "qb64pe.bas"
*__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC;
#line 19641 "qb64pe.bas"
if(!qbevent)break;evnt(19641);}while(r);
#line 19642 "qb64pe.bas"
S_22706:;
#line 19642 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19642 "qb64pe.bas"
if(qbevent){evnt(19642);if(r)goto S_22706;}
#line 19642 "qb64pe.bas"
do{
#line 19642 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19642 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19642 "qb64pe.bas"
if (is_error_pending()) goto skip2616;
#line 19642 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0, 0, 1);
#line 19642 "qb64pe.bas"
if (is_error_pending()) goto skip2616;
#line 19642 "qb64pe.bas"
skip2616:
#line 19642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19642 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19642 "qb64pe.bas"
if(!qbevent)break;evnt(19642);}while(r);
#line 19642 "qb64pe.bas"
}
#line 19643 "qb64pe.bas"
do{
#line 19643 "qb64pe.bas"
goto LABEL_REEVALUATE;
#line 19643 "qb64pe.bas"
if(!qbevent)break;evnt(19643);}while(r);
#line 19644 "qb64pe.bas"
}
#line 19645 "qb64pe.bas"
}
#line 19646 "qb64pe.bas"
}
#line 19647 "qb64pe.bas"
}
#line 19649 "qb64pe.bas"
do{
#line 19649 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
#line 19649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19649 "qb64pe.bas"
if(!qbevent)break;evnt(19649);}while(r);
#line 19651 "qb64pe.bas"
}
#line 19653 "qb64pe.bas"
S_22716:;
#line 19653 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19653 "qb64pe.bas"
if(qbevent){evnt(19653);if(r)goto S_22716;}
#line 19654 "qb64pe.bas"
S_22717:;
#line 19654 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
#line 19654 "qb64pe.bas"
if(qbevent){evnt(19654);if(r)goto S_22717;}
#line 19654 "qb64pe.bas"
do{
#line 19654 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 19654 "qb64pe.bas"
if(!qbevent)break;evnt(19654);}while(r);
#line 19654 "qb64pe.bas"
}
#line 19655 "qb64pe.bas"
do{
#line 19655 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ;
#line 19655 "qb64pe.bas"
if(!qbevent)break;evnt(19655);}while(r);
#line 19656 "qb64pe.bas"
}
#line 19658 "qb64pe.bas"
S_22722:;
#line 19658 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
#line 19658 "qb64pe.bas"
if(qbevent){evnt(19658);if(r)goto S_22722;}
#line 19659 "qb64pe.bas"
do{
#line 19659 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19659 "qb64pe.bas"
if(!qbevent)break;evnt(19659);}while(r);
#line 19660 "qb64pe.bas"
do{
#line 19660 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19660 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],_FUNC_EVALUATE_STRING_L);
#line 19660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19660 "qb64pe.bas"
if(!qbevent)break;evnt(19660);}while(r);
#line 19661 "qb64pe.bas"
do{
#line 19661 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19661 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 0 ;
#line 19661 "qb64pe.bas"
if(!qbevent)break;evnt(19661);}while(r);
#line 19662 "qb64pe.bas"
}
#line 19664 "qb64pe.bas"
S_22727:;
#line 19664 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19664 "qb64pe.bas"
if(qbevent){evnt(19664);if(r)goto S_22727;}
#line 19665 "qb64pe.bas"
do{
#line 19665 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ;
#line 19665 "qb64pe.bas"
if(!qbevent)break;evnt(19665);}while(r);
#line 19666 "qb64pe.bas"
S_22729:;
#line 19666 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
#line 19666 "qb64pe.bas"
if(qbevent){evnt(19666);if(r)goto S_22729;}
#line 19667 "qb64pe.bas"
do{
#line 19667 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2617=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2));
#line 19667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19667 "qb64pe.bas"
if(!qbevent)break;evnt(19667);}while(r);
#line 19668 "qb64pe.bas"
S_22731:;
#line 19668 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19668 "qb64pe.bas"
if(qbevent){evnt(19668);if(r)goto S_22731;}
#line 19668 "qb64pe.bas"
do{
#line 19668 "qb64pe.bas"
goto exit_subfunc;
#line 19668 "qb64pe.bas"
if(!qbevent)break;evnt(19668);}while(r);
#line 19668 "qb64pe.bas"
}
#line 19669 "qb64pe.bas"
S_22734:;
#line 19669 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
#line 19669 "qb64pe.bas"
if(qbevent){evnt(19669);if(r)goto S_22734;}
#line 19669 "qb64pe.bas"
do{
#line 19669 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19669 "qb64pe.bas"
if(!qbevent)break;evnt(19669);}while(r);
#line 19669 "qb64pe.bas"
}
#line 19670 "qb64pe.bas"
do{
#line 19670 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
#line 19670 "qb64pe.bas"
if(!qbevent)break;evnt(19670);}while(r);
#line 19671 "qb64pe.bas"
S_22738:;
#line 19671 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||is_error_pending()){
#line 19671 "qb64pe.bas"
if(qbevent){evnt(19671);if(r)goto S_22738;}
#line 19672 "qb64pe.bas"
do{
#line 19672 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19672 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],_FUNC_EVALUATE_STRING_C);
#line 19672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19672 "qb64pe.bas"
if(!qbevent)break;evnt(19672);}while(r);
#line 19673 "qb64pe.bas"
}else{
#line 19674 "qb64pe.bas"
do{
#line 19674 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19674 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_C),qbs_new_txt_len(")",1)));
#line 19674 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19674 "qb64pe.bas"
if(!qbevent)break;evnt(19674);}while(r);
#line 19675 "qb64pe.bas"
}
#line 19676 "qb64pe.bas"
do{
#line 19676 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19676 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
#line 19676 "qb64pe.bas"
if(!qbevent)break;evnt(19676);}while(r);
#line 19677 "qb64pe.bas"
do{
#line 19677 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19677 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
#line 19677 "qb64pe.bas"
if(!qbevent)break;evnt(19677);}while(r);
#line 19678 "qb64pe.bas"
}
#line 19679 "qb64pe.bas"
}
#line 19680 "qb64pe.bas"
LABEL_EVALED:;
#line 19680 "qb64pe.bas"
if(qbevent){evnt(19680);r=0;}
#line 19681 "qb64pe.bas"
fornext_continue_2585:;
#line 19681 "qb64pe.bas"
}
#line 19681 "qb64pe.bas"
fornext_exit_2585:;
#line 19683 "qb64pe.bas"
do{
#line 19683 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0));
#line 19683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19683 "qb64pe.bas"
if(!qbevent)break;evnt(19683);}while(r);
#line 19685 "qb64pe.bas"
S_22749:;
#line 19685 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19685 "qb64pe.bas"
if(qbevent){evnt(19685);if(r)goto S_22749;}
#line 19685 "qb64pe.bas"
do{
#line 19685 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19685 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19685 "qb64pe.bas"
if (is_error_pending()) goto skip2618;
#line 19685 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0, 0, 0);
#line 19685 "qb64pe.bas"
if (is_error_pending()) goto skip2618;
#line 19685 "qb64pe.bas"
skip2618:
#line 19685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19685 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19685 "qb64pe.bas"
if(!qbevent)break;evnt(19685);}while(r);
#line 19685 "qb64pe.bas"
}
#line 19686 "qb64pe.bas"
S_22752:;
#line 19686 "qb64pe.bas"
fornext_value2620= 1 ;
#line 19686 "qb64pe.bas"
fornext_finalvalue2620=*_FUNC_EVALUATE_LONG_BLOCKN;
#line 19686 "qb64pe.bas"
fornext_step2620= 1 ;
#line 19686 "qb64pe.bas"
if (fornext_step2620<0) fornext_step_negative2620=1; else fornext_step_negative2620=0;
#line 19686 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2620;
#line 19686 "qb64pe.bas"
goto fornext_entrylabel2620;
#line 19686 "qb64pe.bas"
while(1){
#line 19686 "qb64pe.bas"
fornext_value2620=fornext_step2620+(*_FUNC_EVALUATE_LONG_I);
#line 19686 "qb64pe.bas"
fornext_entrylabel2620:
#line 19686 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=fornext_value2620;
#line 19686 "qb64pe.bas"
if (fornext_step_negative2620){
#line 19686 "qb64pe.bas"
if (fornext_value2620<fornext_finalvalue2620) break;
#line 19686 "qb64pe.bas"
}else{
#line 19686 "qb64pe.bas"
if (fornext_value2620>fornext_finalvalue2620) break;
#line 19686 "qb64pe.bas"
}
#line 19686 "qb64pe.bas"
fornext_error2620:;
#line 19686 "qb64pe.bas"
if(qbevent){evnt(19686);if(r)goto S_22752;}
#line 19687 "qb64pe.bas"
S_22753:;
#line 19687 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||is_error_pending()){
#line 19687 "qb64pe.bas"
if(qbevent){evnt(19687);if(r)goto S_22753;}
#line 19688 "qb64pe.bas"
S_22754:;
#line 19688 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19688 "qb64pe.bas"
if(qbevent){evnt(19688);if(r)goto S_22754;}
#line 19688 "qb64pe.bas"
do{
#line 19688 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19688 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19688 "qb64pe.bas"
if (is_error_pending()) goto skip2621;
#line 19688 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),func_chr( 219 )), 0, 0, 0);
#line 19688 "qb64pe.bas"
if (is_error_pending()) goto skip2621;
#line 19688 "qb64pe.bas"
skip2621:
#line 19688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19688 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19688 "qb64pe.bas"
if(!qbevent)break;evnt(19688);}while(r);
#line 19688 "qb64pe.bas"
}
#line 19689 "qb64pe.bas"
}else{
#line 19690 "qb64pe.bas"
S_22758:;
#line 19690 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19690 "qb64pe.bas"
if(qbevent){evnt(19690);if(r)goto S_22758;}
#line 19690 "qb64pe.bas"
do{
#line 19690 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19690 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19690 "qb64pe.bas"
if (is_error_pending()) goto skip2622;
#line 19690 "qb64pe.bas"
sub_file_print(tmp_fileno,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]), 0, 0, 1);
#line 19690 "qb64pe.bas"
if (is_error_pending()) goto skip2622;
#line 19690 "qb64pe.bas"
skip2622:
#line 19690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19690 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19690 "qb64pe.bas"
if(!qbevent)break;evnt(19690);}while(r);
#line 19690 "qb64pe.bas"
}
#line 19691 "qb64pe.bas"
}
#line 19692 "qb64pe.bas"
fornext_continue_2619:;
#line 19692 "qb64pe.bas"
}
#line 19692 "qb64pe.bas"
fornext_exit_2619:;
#line 19697 "qb64pe.bas"
S_22763:;
#line 19697 "qb64pe.bas"
fornext_value2624= 1 ;
#line 19697 "qb64pe.bas"
fornext_finalvalue2624=*_FUNC_EVALUATE_LONG_BLOCKN;
#line 19697 "qb64pe.bas"
fornext_step2624= 1 ;
#line 19697 "qb64pe.bas"
if (fornext_step2624<0) fornext_step_negative2624=1; else fornext_step_negative2624=0;
#line 19697 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2624;
#line 19697 "qb64pe.bas"
goto fornext_entrylabel2624;
#line 19697 "qb64pe.bas"
while(1){
#line 19697 "qb64pe.bas"
fornext_value2624=fornext_step2624+(*_FUNC_EVALUATE_LONG_I);
#line 19697 "qb64pe.bas"
fornext_entrylabel2624:
#line 19697 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=fornext_value2624;
#line 19697 "qb64pe.bas"
if (fornext_step_negative2624){
#line 19697 "qb64pe.bas"
if (fornext_value2624<fornext_finalvalue2624) break;
#line 19697 "qb64pe.bas"
}else{
#line 19697 "qb64pe.bas"
if (fornext_value2624>fornext_finalvalue2624) break;
#line 19697 "qb64pe.bas"
}
#line 19697 "qb64pe.bas"
fornext_error2624:;
#line 19697 "qb64pe.bas"
if(qbevent){evnt(19697);if(r)goto S_22763;}
#line 19698 "qb64pe.bas"
S_22764:;
#line 19698 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))== 0 )))||is_error_pending()){
#line 19698 "qb64pe.bas"
if(qbevent){evnt(19698);if(r)goto S_22764;}
#line 19699 "qb64pe.bas"
S_22765:;
#line 19699 "qb64pe.bas"
if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||is_error_pending()){
#line 19699 "qb64pe.bas"
if(qbevent){evnt(19699);if(r)goto S_22765;}
#line 19702 "qb64pe.bas"
do{
#line 19702 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_C=qbs_asc(qbs_left((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]), 1 ));
#line 19702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19702 "qb64pe.bas"
if(!qbevent)break;evnt(19702);}while(r);
#line 19703 "qb64pe.bas"
S_22767:;
#line 19703 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||is_error_pending()){
#line 19703 "qb64pe.bas"
if(qbevent){evnt(19703);if(r)goto S_22767;}
#line 19704 "qb64pe.bas"
do{
#line 19704 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NUM,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]));
#line 19704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19704 "qb64pe.bas"
if(!qbevent)break;evnt(19704);}while(r);
#line 19706 "qb64pe.bas"
do{
#line 19706 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_F= 0 ;
#line 19706 "qb64pe.bas"
if(!qbevent)break;evnt(19706);}while(r);
#line 19707 "qb64pe.bas"
do{
#line 19707 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("E",1),0);
#line 19707 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19707 "qb64pe.bas"
if(!qbevent)break;evnt(19707);}while(r);
#line 19708 "qb64pe.bas"
S_22771:;
#line 19708 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
#line 19708 "qb64pe.bas"
if(qbevent){evnt(19708);if(r)goto S_22771;}
#line 19709 "qb64pe.bas"
do{
#line 19709 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_F= 1 ;
#line 19709 "qb64pe.bas"
if(!qbevent)break;evnt(19709);}while(r);
#line 19709 "qb64pe.bas"
do{
#line 19709 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19709 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 19709 "qb64pe.bas"
if(!qbevent)break;evnt(19709);}while(r);
#line 19710 "qb64pe.bas"
}else{
#line 19711 "qb64pe.bas"
do{
#line 19711 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("D",1),0);
#line 19711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19711 "qb64pe.bas"
if(!qbevent)break;evnt(19711);}while(r);
#line 19712 "qb64pe.bas"
S_22776:;
#line 19712 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
#line 19712 "qb64pe.bas"
if(qbevent){evnt(19712);if(r)goto S_22776;}
#line 19713 "qb64pe.bas"
do{
#line 19713 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_F= 2 ;
#line 19713 "qb64pe.bas"
if(!qbevent)break;evnt(19713);}while(r);
#line 19713 "qb64pe.bas"
do{
#line 19713 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19713 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 19713 "qb64pe.bas"
if(!qbevent)break;evnt(19713);}while(r);
#line 19714 "qb64pe.bas"
}else{
#line 19715 "qb64pe.bas"
do{
#line 19715 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("F",1),0);
#line 19715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19715 "qb64pe.bas"
if(!qbevent)break;evnt(19715);}while(r);
#line 19716 "qb64pe.bas"
S_22781:;
#line 19716 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
#line 19716 "qb64pe.bas"
if(qbevent){evnt(19716);if(r)goto S_22781;}
#line 19717 "qb64pe.bas"
do{
#line 19717 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_F= 3 ;
#line 19717 "qb64pe.bas"
if(!qbevent)break;evnt(19717);}while(r);
#line 19717 "qb64pe.bas"
do{
#line 19717 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19717 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 19717 "qb64pe.bas"
if(!qbevent)break;evnt(19717);}while(r);
#line 19718 "qb64pe.bas"
}
#line 19719 "qb64pe.bas"
}
#line 19720 "qb64pe.bas"
}
#line 19721 "qb64pe.bas"
S_22787:;
#line 19721 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_F)||is_error_pending()){
#line 19721 "qb64pe.bas"
if(qbevent){evnt(19721);if(r)goto S_22787;}
#line 19723 "qb64pe.bas"
S_22788:;
#line 19723 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||is_error_pending()){
#line 19723 "qb64pe.bas"
if(qbevent){evnt(19723);if(r)goto S_22788;}
#line 19723 "qb64pe.bas"
do{
#line 19723 "qb64pe.bas"
sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1);
#line 19723 "qb64pe.bas"
if(!qbevent)break;evnt(19723);}while(r);
#line 19723 "qb64pe.bas"
}
#line 19724 "qb64pe.bas"
S_22791:;
#line 19724 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||is_error_pending()){
#line 19724 "qb64pe.bas"
if(qbevent){evnt(19724);if(r)goto S_22791;}
#line 19724 "qb64pe.bas"
do{
#line 19724 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("L",1)));
#line 19724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19724 "qb64pe.bas"
if(!qbevent)break;evnt(19724);}while(r);
#line 19724 "qb64pe.bas"
}
#line 19725 "qb64pe.bas"
}else{
#line 19727 "qb64pe.bas"
do{
#line 19727 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19727 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=FUNC_TYPNAME2TYP(FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_NUM));
#line 19727 "qb64pe.bas"
if(!qbevent)break;evnt(19727);}while(r);
#line 19728 "qb64pe.bas"
S_22796:;
#line 19728 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19728 "qb64pe.bas"
if(qbevent){evnt(19728);if(r)goto S_22796;}
#line 19728 "qb64pe.bas"
do{
#line 19728 "qb64pe.bas"
goto exit_subfunc;
#line 19728 "qb64pe.bas"
if(!qbevent)break;evnt(19728);}while(r);
#line 19728 "qb64pe.bas"
}
#line 19729 "qb64pe.bas"
S_22799:;
#line 19729 "qb64pe.bas"
if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISPOINTER)||is_error_pending()){
#line 19729 "qb64pe.bas"
if(qbevent){evnt(19729);if(r)goto S_22799;}
#line 19729 "qb64pe.bas"
do{
#line 19729 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19729 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]-*__LONG_ISPOINTER;
#line 19729 "qb64pe.bas"
if(!qbevent)break;evnt(19729);}while(r);
#line 19729 "qb64pe.bas"
}
#line 19730 "qb64pe.bas"
S_22802:;
#line 19730 "qb64pe.bas"
if ((-((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]& 4095ll )> 32 ))||is_error_pending()){
#line 19730 "qb64pe.bas"
if(qbevent){evnt(19730);if(r)goto S_22802;}
#line 19731 "qb64pe.bas"
S_22803:;
#line 19731 "qb64pe.bas"
if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 19731 "qb64pe.bas"
if(qbevent){evnt(19731);if(r)goto S_22803;}
#line 19731 "qb64pe.bas"
do{
#line 19731 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ull",3)));
#line 19731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19731 "qb64pe.bas"
if(!qbevent)break;evnt(19731);}while(r);
#line 19731 "qb64pe.bas"
}else{
#line 19731 "qb64pe.bas"
do{
#line 19731 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ll",2)));
#line 19731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19731 "qb64pe.bas"
if(!qbevent)break;evnt(19731);}while(r);
#line 19731 "qb64pe.bas"
}
#line 19732 "qb64pe.bas"
}
#line 19733 "qb64pe.bas"
}
#line 19734 "qb64pe.bas"
do{
#line 19734 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19734 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len(" ",1),_FUNC_EVALUATE_STRING_NUM),qbs_new_txt_len(" ",1)));
#line 19734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19734 "qb64pe.bas"
if(!qbevent)break;evnt(19734);}while(r);
#line 19735 "qb64pe.bas"
do{
#line 19735 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19735 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
#line 19735 "qb64pe.bas"
if(!qbevent)break;evnt(19735);}while(r);
#line 19736 "qb64pe.bas"
do{
#line 19736 "qb64pe.bas"
goto LABEL_EVALEDBLOCK;
#line 19736 "qb64pe.bas"
if(!qbevent)break;evnt(19736);}while(r);
#line 19737 "qb64pe.bas"
}
#line 19794 "qb64pe.bas"
S_22814:;
#line 19794 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]), 1 ),func_chr( 34 ))))||is_error_pending()){
#line 19794 "qb64pe.bas"
if(qbevent){evnt(19794);if(r)goto S_22814;}
#line 19795 "qb64pe.bas"
S_22815:;
#line 19795 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]), 1 ),func_chr( 34 ))))||is_error_pending()){
#line 19795 "qb64pe.bas"
if(qbevent){evnt(19795);if(r)goto S_22815;}
#line 19796 "qb64pe.bas"
do{
#line 19796 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19796 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len(",16),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 19796 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19796 "qb64pe.bas"
if(!qbevent)break;evnt(19796);}while(r);
#line 19797 "qb64pe.bas"
}else{
#line 19798 "qb64pe.bas"
do{
#line 19798 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19798 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 19798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19798 "qb64pe.bas"
if(!qbevent)break;evnt(19798);}while(r);
#line 19799 "qb64pe.bas"
}
#line 19800 "qb64pe.bas"
do{
#line 19800 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
#line 19800 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_ISSTRING;
#line 19800 "qb64pe.bas"
if(!qbevent)break;evnt(19800);}while(r);
#line 19801 "qb64pe.bas"
do{
#line 19801 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19801 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
#line 19801 "qb64pe.bas"
if(!qbevent)break;evnt(19801);}while(r);
#line 19802 "qb64pe.bas"
do{
#line 19802 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19802 "qb64pe.bas"
if(!qbevent)break;evnt(19802);}while(r);
#line 19803 "qb64pe.bas"
do{
#line 19803 "qb64pe.bas"
goto LABEL_EVALEDBLOCK;
#line 19803 "qb64pe.bas"
if(!qbevent)break;evnt(19803);}while(r);
#line 19804 "qb64pe.bas"
}
#line 19807 "qb64pe.bas"
S_22825:;
#line 19807 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))))||is_error_pending()){
#line 19807 "qb64pe.bas"
if(qbevent){evnt(19807);if(r)goto S_22825;}
#line 19808 "qb64pe.bas"
do{
#line 19808 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_X,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]));
#line 19808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19808 "qb64pe.bas"
if(!qbevent)break;evnt(19808);}while(r);
#line 19810 "qb64pe.bas"
do{
#line 19810 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_TYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_X));
#line 19810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19810 "qb64pe.bas"
if(!qbevent)break;evnt(19810);}while(r);
#line 19811 "qb64pe.bas"
S_22828:;
#line 19811 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19811 "qb64pe.bas"
if(qbevent){evnt(19811);if(r)goto S_22828;}
#line 19811 "qb64pe.bas"
do{
#line 19811 "qb64pe.bas"
goto exit_subfunc;
#line 19811 "qb64pe.bas"
if(!qbevent)break;evnt(19811);}while(r);
#line 19811 "qb64pe.bas"
}
#line 19814 "qb64pe.bas"
S_22831:;
#line 19814 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||is_error_pending()){
#line 19814 "qb64pe.bas"
if(qbevent){evnt(19814);if(r)goto S_22831;}
#line 19815 "qb64pe.bas"
S_22832:;
#line 19815 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_X, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 19815 "qb64pe.bas"
if(qbevent){evnt(19815);if(r)goto S_22832;}
#line 19815 "qb64pe.bas"
do{
#line 19815 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_V= 27 ;
#line 19815 "qb64pe.bas"
if(!qbevent)break;evnt(19815);}while(r);
#line 19815 "qb64pe.bas"
}else{
#line 19815 "qb64pe.bas"
do{
#line 19815 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_X))- 64 ;
#line 19815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19815 "qb64pe.bas"
if(!qbevent)break;evnt(19815);}while(r);
#line 19815 "qb64pe.bas"
}
#line 19816 "qb64pe.bas"
do{
#line 19816 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_TYP,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]));
#line 19816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19816 "qb64pe.bas"
if(!qbevent)break;evnt(19816);}while(r);
#line 19817 "qb64pe.bas"
}
#line 19820 "qb64pe.bas"
do{
#line 19820 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP));
#line 19820 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19820 "qb64pe.bas"
if(!qbevent)break;evnt(19820);}while(r);
#line 19821 "qb64pe.bas"
S_22840:;
#line 19821 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19821 "qb64pe.bas"
if(qbevent){evnt(19821);if(r)goto S_22840;}
#line 19821 "qb64pe.bas"
do{
#line 19821 "qb64pe.bas"
goto exit_subfunc;
#line 19821 "qb64pe.bas"
if(!qbevent)break;evnt(19821);}while(r);
#line 19821 "qb64pe.bas"
}
#line 19822 "qb64pe.bas"
S_22843:;
#line 19822 "qb64pe.bas"
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
#line 19822 "qb64pe.bas"
if(qbevent){evnt(19822);if(r)goto S_22843;}
#line 19823 "qb64pe.bas"
S_22844:;
#line 19823 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19823 "qb64pe.bas"
if(qbevent){evnt(19823);if(r)goto S_22844;}
#line 19823 "qb64pe.bas"
do{
#line 19823 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19823 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19823 "qb64pe.bas"
if (is_error_pending()) goto skip2627;
#line 19823 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
#line 19823 "qb64pe.bas"
if (is_error_pending()) goto skip2627;
#line 19823 "qb64pe.bas"
skip2627:
#line 19823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19823 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19823 "qb64pe.bas"
if(!qbevent)break;evnt(19823);}while(r);
#line 19823 "qb64pe.bas"
}
#line 19824 "qb64pe.bas"
S_22847:;
#line 19824 "qb64pe.bas"
if (((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
#line 19824 "qb64pe.bas"
if(qbevent){evnt(19824);if(r)goto S_22847;}
#line 19825 "qb64pe.bas"
do{
#line 19825 "qb64pe.bas"
goto LABEL_SIMPLEVARFOUND;
#line 19825 "qb64pe.bas"
if(!qbevent)break;evnt(19825);}while(r);
#line 19826 "qb64pe.bas"
}
#line 19827 "qb64pe.bas"
S_22850:;
#line 19827 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
#line 19827 "qb64pe.bas"
if(qbevent){evnt(19827);if(r)goto S_22850;}
#line 19827 "qb64pe.bas"
do{
#line 19827 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 19827 "qb64pe.bas"
if(!qbevent)break;evnt(19827);}while(r);
#line 19827 "qb64pe.bas"
do{
#line 19827 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP));
#line 19827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19827 "qb64pe.bas"
if(!qbevent)break;evnt(19827);}while(r);
#line 19827 "qb64pe.bas"
}else{
#line 19827 "qb64pe.bas"
do{
#line 19827 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TRY= 0 ;
#line 19827 "qb64pe.bas"
if(!qbevent)break;evnt(19827);}while(r);
#line 19827 "qb64pe.bas"
}
#line 19828 "qb64pe.bas"
S_22856:;
#line 19828 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19828 "qb64pe.bas"
if(qbevent){evnt(19828);if(r)goto S_22856;}
#line 19828 "qb64pe.bas"
do{
#line 19828 "qb64pe.bas"
goto exit_subfunc;
#line 19828 "qb64pe.bas"
if(!qbevent)break;evnt(19828);}while(r);
#line 19828 "qb64pe.bas"
}
#line 19829 "qb64pe.bas"
dl_continue_2626:;
#line 19829 "qb64pe.bas"
}
#line 19829 "qb64pe.bas"
dl_exit_2626:;
#line 19831 "qb64pe.bas"
S_22860:;
#line 19831 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19831 "qb64pe.bas"
if(qbevent){evnt(19831);if(r)goto S_22860;}
#line 19831 "qb64pe.bas"
do{
#line 19831 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19831 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19831 "qb64pe.bas"
if (is_error_pending()) goto skip2628;
#line 19831 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATING VARIABLE:",18),_FUNC_EVALUATE_STRING_X), 0, 0, 1);
#line 19831 "qb64pe.bas"
if (is_error_pending()) goto skip2628;
#line 19831 "qb64pe.bas"
skip2628:
#line 19831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19831 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19831 "qb64pe.bas"
if(!qbevent)break;evnt(19831);}while(r);
#line 19831 "qb64pe.bas"
}
#line 19832 "qb64pe.bas"
do{
#line 19832 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 19832 "qb64pe.bas"
if(!qbevent)break;evnt(19832);}while(r);
#line 19833 "qb64pe.bas"
S_22864:;
#line 19833 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_X)== 0 )))||is_error_pending()){
#line 19833 "qb64pe.bas"
if(qbevent){evnt(19833);if(r)goto S_22864;}
#line 19833 "qb64pe.bas"
do{
#line 19833 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid variable name",21));
#line 19833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19833 "qb64pe.bas"
if(!qbevent)break;evnt(19833);}while(r);
#line 19833 "qb64pe.bas"
do{
#line 19833 "qb64pe.bas"
goto exit_subfunc;
#line 19833 "qb64pe.bas"
if(!qbevent)break;evnt(19833);}while(r);
#line 19833 "qb64pe.bas"
}
#line 19834 "qb64pe.bas"
S_22868:;
#line 19834 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) )))||is_error_pending()){
#line 19834 "qb64pe.bas"
if(qbevent){evnt(19834);if(r)goto S_22868;}
#line 19834 "qb64pe.bas"
do{
#line 19834 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),_FUNC_EVALUATE_STRING_X),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_TYP)),qbs_new_txt_len(") not defined",13)));
#line 19834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19834 "qb64pe.bas"
if(!qbevent)break;evnt(19834);}while(r);
#line 19834 "qb64pe.bas"
do{
#line 19834 "qb64pe.bas"
goto exit_subfunc;
#line 19834 "qb64pe.bas"
if(!qbevent)break;evnt(19834);}while(r);
#line 19834 "qb64pe.bas"
}
#line 19835 "qb64pe.bas"
do{
#line 19835 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2629= 1 ),qbs_new_txt_len("",0));
#line 19835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19835 "qb64pe.bas"
if(!qbevent)break;evnt(19835);}while(r);
#line 19836 "qb64pe.bas"
do{
#line 19836 "qb64pe.bas"
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass2630= 0 ),&(pass2631= 3 ));
#line 19836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19836 "qb64pe.bas"
if(!qbevent)break;evnt(19836);}while(r);
#line 19837 "qb64pe.bas"
S_22874:;
#line 19837 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19837 "qb64pe.bas"
if(qbevent){evnt(19837);if(r)goto S_22874;}
#line 19837 "qb64pe.bas"
do{
#line 19837 "qb64pe.bas"
goto exit_subfunc;
#line 19837 "qb64pe.bas"
if(!qbevent)break;evnt(19837);}while(r);
#line 19837 "qb64pe.bas"
}
#line 19839 "qb64pe.bas"
LABEL_SIMPLEVARFOUND:;
#line 19839 "qb64pe.bas"
if(qbevent){evnt(19839);r=0;}
#line 19840 "qb64pe.bas"
do{
#line 19840 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19840 "qb64pe.bas"
if(!qbevent)break;evnt(19840);}while(r);
#line 19841 "qb64pe.bas"
do{
#line 19841 "qb64pe.bas"
SUB_MAKEIDREFER((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])));
#line 19841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19841 "qb64pe.bas"
if(!qbevent)break;evnt(19841);}while(r);
#line 19842 "qb64pe.bas"
S_22879:;
#line 19842 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
#line 19842 "qb64pe.bas"
if(qbevent){evnt(19842);if(r)goto S_22879;}
#line 19842 "qb64pe.bas"
do{
#line 19842 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19842 "qb64pe.bas"
if(!qbevent)break;evnt(19842);}while(r);
#line 19842 "qb64pe.bas"
}
#line 19843 "qb64pe.bas"
S_22882:;
#line 19843 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
#line 19843 "qb64pe.bas"
if(qbevent){evnt(19843);if(r)goto S_22882;}
#line 19844 "qb64pe.bas"
S_22883:;
#line 19844 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
#line 19844 "qb64pe.bas"
if(qbevent){evnt(19844);if(r)goto S_22883;}
#line 19844 "qb64pe.bas"
do{
#line 19844 "qb64pe.bas"
goto LABEL_RETURNPOINTER;
#line 19844 "qb64pe.bas"
if(!qbevent)break;evnt(19844);}while(r);
#line 19844 "qb64pe.bas"
}
#line 19845 "qb64pe.bas"
}
#line 19847 "qb64pe.bas"
do{
#line 19847 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19847 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],FUNC_REFER((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2632= 0 )));
#line 19847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19847 "qb64pe.bas"
if(!qbevent)break;evnt(19847);}while(r);
#line 19847 "qb64pe.bas"
S_22888:;
#line 19847 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19847 "qb64pe.bas"
if(qbevent){evnt(19847);if(r)goto S_22888;}
#line 19847 "qb64pe.bas"
do{
#line 19847 "qb64pe.bas"
goto exit_subfunc;
#line 19847 "qb64pe.bas"
if(!qbevent)break;evnt(19847);}while(r);
#line 19847 "qb64pe.bas"
}
#line 19848 "qb64pe.bas"
do{
#line 19848 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
#line 19848 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
#line 19848 "qb64pe.bas"
if(!qbevent)break;evnt(19848);}while(r);
#line 19849 "qb64pe.bas"
do{
#line 19849 "qb64pe.bas"
goto LABEL_EVALEDBLOCK;
#line 19849 "qb64pe.bas"
if(!qbevent)break;evnt(19849);}while(r);
#line 19850 "qb64pe.bas"
}
#line 19851 "qb64pe.bas"
do{
#line 19851 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18));
#line 19851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19851 "qb64pe.bas"
if(!qbevent)break;evnt(19851);}while(r);
#line 19851 "qb64pe.bas"
do{
#line 19851 "qb64pe.bas"
goto exit_subfunc;
#line 19851 "qb64pe.bas"
if(!qbevent)break;evnt(19851);}while(r);
#line 19853 "qb64pe.bas"
}else{
#line 19854 "qb64pe.bas"
S_22897:;
#line 19854 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
#line 19854 "qb64pe.bas"
if(qbevent){evnt(19854);if(r)goto S_22897;}
#line 19855 "qb64pe.bas"
S_22898:;
#line 19855 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
#line 19855 "qb64pe.bas"
if(qbevent){evnt(19855);if(r)goto S_22898;}
#line 19855 "qb64pe.bas"
do{
#line 19855 "qb64pe.bas"
goto LABEL_RETURNPOINTER;
#line 19855 "qb64pe.bas"
if(!qbevent)break;evnt(19855);}while(r);
#line 19855 "qb64pe.bas"
}
#line 19859 "qb64pe.bas"
do{
#line 19859 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 19859 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],FUNC_REFER((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2633= 0 )));
#line 19859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19859 "qb64pe.bas"
if(!qbevent)break;evnt(19859);}while(r);
#line 19860 "qb64pe.bas"
S_22902:;
#line 19860 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19860 "qb64pe.bas"
if(qbevent){evnt(19860);if(r)goto S_22902;}
#line 19860 "qb64pe.bas"
do{
#line 19860 "qb64pe.bas"
goto exit_subfunc;
#line 19860 "qb64pe.bas"
if(!qbevent)break;evnt(19860);}while(r);
#line 19860 "qb64pe.bas"
}
#line 19862 "qb64pe.bas"
}
#line 19864 "qb64pe.bas"
}
#line 19865 "qb64pe.bas"
}
#line 19866 "qb64pe.bas"
LABEL_EVALEDBLOCK:;
#line 19866 "qb64pe.bas"
if(qbevent){evnt(19866);r=0;}
#line 19867 "qb64pe.bas"
fornext_continue_2623:;
#line 19867 "qb64pe.bas"
}
#line 19867 "qb64pe.bas"
fornext_exit_2623:;
#line 19871 "qb64pe.bas"
S_22909:;
#line 19871 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
#line 19871 "qb64pe.bas"
if(qbevent){evnt(19871);if(r)goto S_22909;}
#line 19872 "qb64pe.bas"
S_22910:;
#line 19872 "qb64pe.bas"
if ((((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])])||is_error_pending()){
#line 19872 "qb64pe.bas"
if(qbevent){evnt(19872);if(r)goto S_22910;}
#line 19873 "qb64pe.bas"
S_22911:;
#line 19873 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
#line 19873 "qb64pe.bas"
if(qbevent){evnt(19873);if(r)goto S_22911;}
#line 19874 "qb64pe.bas"
LABEL_RETURNPOINTER:;
#line 19874 "qb64pe.bas"
if(qbevent){evnt(19874);r=0;}
#line 19875 "qb64pe.bas"
S_22912:;
#line 19875 "qb64pe.bas"
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
#line 19875 "qb64pe.bas"
if(qbevent){evnt(19875);if(r)goto S_22912;}
#line 19875 "qb64pe.bas"
do{
#line 19875 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
#line 19875 "qb64pe.bas"
if(!qbevent)break;evnt(19875);}while(r);
#line 19875 "qb64pe.bas"
}
#line 19876 "qb64pe.bas"
S_22915:;
#line 19876 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19876 "qb64pe.bas"
if(qbevent){evnt(19876);if(r)goto S_22915;}
#line 19876 "qb64pe.bas"
do{
#line 19876 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19876 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19876 "qb64pe.bas"
if (is_error_pending()) goto skip2634;
#line 19876 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluated reference:",20),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 0, 0, 1);
#line 19876 "qb64pe.bas"
if (is_error_pending()) goto skip2634;
#line 19876 "qb64pe.bas"
skip2634:
#line 19876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19876 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19876 "qb64pe.bas"
if(!qbevent)break;evnt(19876);}while(r);
#line 19876 "qb64pe.bas"
}
#line 19877 "qb64pe.bas"
do{
#line 19877 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
#line 19877 "qb64pe.bas"
if(!qbevent)break;evnt(19877);}while(r);
#line 19878 "qb64pe.bas"
do{
#line 19878 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]));
#line 19878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19878 "qb64pe.bas"
if(!qbevent)break;evnt(19878);}while(r);
#line 19879 "qb64pe.bas"
do{
#line 19879 "qb64pe.bas"
goto exit_subfunc;
#line 19879 "qb64pe.bas"
if(!qbevent)break;evnt(19879);}while(r);
#line 19880 "qb64pe.bas"
}
#line 19881 "qb64pe.bas"
}
#line 19882 "qb64pe.bas"
}
#line 19892 "qb64pe.bas"
S_22924:;
#line 19892 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 19892 "qb64pe.bas"
if(qbevent){evnt(19892);if(r)goto S_22924;}
#line 19892 "qb64pe.bas"
do{
#line 19892 "qb64pe.bas"
tab_spc_cr_size=2;
#line 19892 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 19892 "qb64pe.bas"
if (is_error_pending()) goto skip2635;
#line 19892 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0, 0, 0);
#line 19892 "qb64pe.bas"
if (is_error_pending()) goto skip2635;
#line 19892 "qb64pe.bas"
skip2635:
#line 19892 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19892 "qb64pe.bas"
tab_spc_cr_size=1;
#line 19892 "qb64pe.bas"
if(!qbevent)break;evnt(19892);}while(r);
#line 19892 "qb64pe.bas"
}
#line 19895 "qb64pe.bas"
S_22927:;
#line 19895 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||is_error_pending()){
#line 19895 "qb64pe.bas"
if(qbevent){evnt(19895);if(r)goto S_22927;}
#line 19896 "qb64pe.bas"
do{
#line 19896 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
#line 19896 "qb64pe.bas"
if(!qbevent)break;evnt(19896);}while(r);
#line 19899 "qb64pe.bas"
S_22929:;
#line 19899 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))))||is_error_pending()){
#line 19899 "qb64pe.bas"
if(qbevent){evnt(19899);if(r)goto S_22929;}
#line 19900 "qb64pe.bas"
do{
#line 19900 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
#line 19900 "qb64pe.bas"
if(!qbevent)break;evnt(19900);}while(r);
#line 19901 "qb64pe.bas"
}
#line 19902 "qb64pe.bas"
}
#line 19904 "qb64pe.bas"
do{
#line 19904 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
#line 19904 "qb64pe.bas"
if(!qbevent)break;evnt(19904);}while(r);
#line 19905 "qb64pe.bas"
S_22934:;
#line 19905 "qb64pe.bas"
fornext_value2637= 1 ;
#line 19905 "qb64pe.bas"
fornext_finalvalue2637=*_FUNC_EVALUATE_LONG_BLOCKN;
#line 19905 "qb64pe.bas"
fornext_step2637= 1 ;
#line 19905 "qb64pe.bas"
if (fornext_step2637<0) fornext_step_negative2637=1; else fornext_step_negative2637=0;
#line 19905 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2637;
#line 19905 "qb64pe.bas"
goto fornext_entrylabel2637;
#line 19905 "qb64pe.bas"
while(1){
#line 19905 "qb64pe.bas"
fornext_value2637=fornext_step2637+(*_FUNC_EVALUATE_LONG_I);
#line 19905 "qb64pe.bas"
fornext_entrylabel2637:
#line 19905 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=fornext_value2637;
#line 19905 "qb64pe.bas"
if (fornext_step_negative2637){
#line 19905 "qb64pe.bas"
if (fornext_value2637<fornext_finalvalue2637) break;
#line 19905 "qb64pe.bas"
}else{
#line 19905 "qb64pe.bas"
if (fornext_value2637>fornext_finalvalue2637) break;
#line 19905 "qb64pe.bas"
}
#line 19905 "qb64pe.bas"
fornext_error2637:;
#line 19905 "qb64pe.bas"
if(qbevent){evnt(19905);if(r)goto S_22934;}
#line 19907 "qb64pe.bas"
S_22935:;
#line 19907 "qb64pe.bas"
if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||is_error_pending()){
#line 19907 "qb64pe.bas"
if(qbevent){evnt(19907);if(r)goto S_22935;}
#line 19908 "qb64pe.bas"
do{
#line 19908 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_ISOP=FUNC_ISOPERATOR((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]));
#line 19908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19908 "qb64pe.bas"
if(!qbevent)break;evnt(19908);}while(r);
#line 19909 "qb64pe.bas"
S_22937:;
#line 19909 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_ISOP)||is_error_pending()){
#line 19909 "qb64pe.bas"
if(qbevent){evnt(19909);if(r)goto S_22937;}
#line 19910 "qb64pe.bas"
do{
#line 19910 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
#line 19910 "qb64pe.bas"
if(!qbevent)break;evnt(19910);}while(r);
#line 19912 "qb64pe.bas"
do{
#line 19912 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 0 ;
#line 19912 "qb64pe.bas"
if(!qbevent)break;evnt(19912);}while(r);
#line 19915 "qb64pe.bas"
do{
#line 19915 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_O,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]));
#line 19915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19915 "qb64pe.bas"
if(!qbevent)break;evnt(19915);}while(r);
#line 19916 "qb64pe.bas"
do{
#line 19916 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_U=FUNC_OPERATORUSAGE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_LONG_TYP,_FUNC_EVALUATE_STRING_I,_FUNC_EVALUATE_LONG_LHSTYP,_FUNC_EVALUATE_LONG_RHSTYP,_FUNC_EVALUATE_LONG_RESULT);
#line 19916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19916 "qb64pe.bas"
if(!qbevent)break;evnt(19916);}while(r);
#line 19918 "qb64pe.bas"
S_22942:;
#line 19918 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_U!= 5 ))&(-(*_FUNC_EVALUATE_LONG_U!= 6 )))||is_error_pending()){
#line 19918 "qb64pe.bas"
if(qbevent){evnt(19918);if(r)goto S_22942;}
#line 19919 "qb64pe.bas"
do{
#line 19919 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NONOP= 1 ;
#line 19919 "qb64pe.bas"
if(!qbevent)break;evnt(19919);}while(r);
#line 19920 "qb64pe.bas"
S_22944:;
#line 19920 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_I== 1 ))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||is_error_pending()){
#line 19920 "qb64pe.bas"
if(qbevent){evnt(19920);if(r)goto S_22944;}
#line 19921 "qb64pe.bas"
S_22945:;
#line 19921 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_I== 1 ))&(-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))&(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("-",1)))))||is_error_pending()){
#line 19921 "qb64pe.bas"
if(qbevent){evnt(19921);if(r)goto S_22945;}
#line 19921 "qb64pe.bas"
do{
#line 19921 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
#line 19921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19921 "qb64pe.bas"
if(!qbevent)break;evnt(19921);}while(r);
#line 19921 "qb64pe.bas"
do{
#line 19921 "qb64pe.bas"
goto exit_subfunc;
#line 19921 "qb64pe.bas"
if(!qbevent)break;evnt(19921);}while(r);
#line 19921 "qb64pe.bas"
}
#line 19922 "qb64pe.bas"
do{
#line 19922 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value before '",32),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
#line 19922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19922 "qb64pe.bas"
if(!qbevent)break;evnt(19922);}while(r);
#line 19922 "qb64pe.bas"
do{
#line 19922 "qb64pe.bas"
goto exit_subfunc;
#line 19922 "qb64pe.bas"
if(!qbevent)break;evnt(19922);}while(r);
#line 19923 "qb64pe.bas"
}
#line 19924 "qb64pe.bas"
}
#line 19925 "qb64pe.bas"
S_22953:;
#line 19925 "qb64pe.bas"
if (((-(*_FUNC_EVALUATE_LONG_I==*_FUNC_EVALUATE_LONG_BLOCKN))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||is_error_pending()){
#line 19925 "qb64pe.bas"
if(qbevent){evnt(19925);if(r)goto S_22953;}
#line 19925 "qb64pe.bas"
do{
#line 19925 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
#line 19925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19925 "qb64pe.bas"
if(!qbevent)break;evnt(19925);}while(r);
#line 19925 "qb64pe.bas"
do{
#line 19925 "qb64pe.bas"
goto exit_subfunc;
#line 19925 "qb64pe.bas"
if(!qbevent)break;evnt(19925);}while(r);
#line 19925 "qb64pe.bas"
}
#line 19933 "qb64pe.bas"
do{
#line 19933 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP;
#line 19933 "qb64pe.bas"
if(!qbevent)break;evnt(19933);}while(r);
#line 19934 "qb64pe.bas"
do{
#line 19934 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NEWTYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
#line 19934 "qb64pe.bas"
if(!qbevent)break;evnt(19934);}while(r);
#line 19946 "qb64pe.bas"
S_22959:;
#line 19946 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
#line 19946 "qb64pe.bas"
if(qbevent){evnt(19946);if(r)goto S_22959;}
#line 19947 "qb64pe.bas"
do{
#line 19947 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
#line 19947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19947 "qb64pe.bas"
if(!qbevent)break;evnt(19947);}while(r);
#line 19947 "qb64pe.bas"
do{
#line 19947 "qb64pe.bas"
goto exit_subfunc;
#line 19947 "qb64pe.bas"
if(!qbevent)break;evnt(19947);}while(r);
#line 19948 "qb64pe.bas"
}
#line 19951 "qb64pe.bas"
do{
#line 19951 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
#line 19951 "qb64pe.bas"
if(!qbevent)break;evnt(19951);}while(r);
#line 19952 "qb64pe.bas"
do{
#line 19952 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
#line 19952 "qb64pe.bas"
if(!qbevent)break;evnt(19952);}while(r);
#line 19953 "qb64pe.bas"
S_22965:;
#line 19953 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||is_error_pending()){
#line 19953 "qb64pe.bas"
if(qbevent){evnt(19953);if(r)goto S_22965;}
#line 19954 "qb64pe.bas"
do{
#line 19954 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ;
#line 19954 "qb64pe.bas"
if(!qbevent)break;evnt(19954);}while(r);
#line 19955 "qb64pe.bas"
S_22967:;
#line 19955 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||is_error_pending()){
#line 19955 "qb64pe.bas"
if(qbevent){evnt(19955);if(r)goto S_22967;}
#line 19956 "qb64pe.bas"
S_22968:;
#line 19956 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
#line 19956 "qb64pe.bas"
if(qbevent){evnt(19956);if(r)goto S_22968;}
#line 19956 "qb64pe.bas"
do{
#line 19956 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
#line 19956 "qb64pe.bas"
if(!qbevent)break;evnt(19956);}while(r);
#line 19956 "qb64pe.bas"
}
#line 19957 "qb64pe.bas"
}
#line 19958 "qb64pe.bas"
S_22972:;
#line 19958 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||is_error_pending()){
#line 19958 "qb64pe.bas"
if(qbevent){evnt(19958);if(r)goto S_22972;}
#line 19959 "qb64pe.bas"
S_22973:;
#line 19959 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
#line 19959 "qb64pe.bas"
if(qbevent){evnt(19959);if(r)goto S_22973;}
#line 19959 "qb64pe.bas"
do{
#line 19959 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
#line 19959 "qb64pe.bas"
if(!qbevent)break;evnt(19959);}while(r);
#line 19959 "qb64pe.bas"
}
#line 19960 "qb64pe.bas"
}
#line 19965 "qb64pe.bas"
S_22977:;
#line 19965 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
#line 19965 "qb64pe.bas"
if(qbevent){evnt(19965);if(r)goto S_22977;}
#line 19966 "qb64pe.bas"
S_22978:;
#line 19966 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
#line 19966 "qb64pe.bas"
if(qbevent){evnt(19966);if(r)goto S_22978;}
#line 19968 "qb64pe.bas"
S_22979:;
#line 19968 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
#line 19968 "qb64pe.bas"
if(qbevent){evnt(19968);if(r)goto S_22979;}
#line 19969 "qb64pe.bas"
do{
#line 19969 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
#line 19969 "qb64pe.bas"
if(!qbevent)break;evnt(19969);}while(r);
#line 19970 "qb64pe.bas"
S_22981:;
#line 19970 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 19970 "qb64pe.bas"
if(qbevent){evnt(19970);if(r)goto S_22981;}
#line 19970 "qb64pe.bas"
do{
#line 19970 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
#line 19970 "qb64pe.bas"
if(!qbevent)break;evnt(19970);}while(r);
#line 19970 "qb64pe.bas"
}
#line 19971 "qb64pe.bas"
S_22984:;
#line 19971 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 19971 "qb64pe.bas"
if(qbevent){evnt(19971);if(r)goto S_22984;}
#line 19971 "qb64pe.bas"
do{
#line 19971 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
#line 19971 "qb64pe.bas"
if(!qbevent)break;evnt(19971);}while(r);
#line 19971 "qb64pe.bas"
}
#line 19972 "qb64pe.bas"
}
#line 19973 "qb64pe.bas"
}
#line 19974 "qb64pe.bas"
S_22989:;
#line 19974 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
#line 19974 "qb64pe.bas"
if(qbevent){evnt(19974);if(r)goto S_22989;}
#line 19976 "qb64pe.bas"
do{
#line 19976 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
#line 19976 "qb64pe.bas"
if(!qbevent)break;evnt(19976);}while(r);
#line 19977 "qb64pe.bas"
S_22991:;
#line 19977 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 19977 "qb64pe.bas"
if(qbevent){evnt(19977);if(r)goto S_22991;}
#line 19977 "qb64pe.bas"
do{
#line 19977 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
#line 19977 "qb64pe.bas"
if(!qbevent)break;evnt(19977);}while(r);
#line 19977 "qb64pe.bas"
}
#line 19978 "qb64pe.bas"
S_22994:;
#line 19978 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 19978 "qb64pe.bas"
if(qbevent){evnt(19978);if(r)goto S_22994;}
#line 19978 "qb64pe.bas"
do{
#line 19978 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
#line 19978 "qb64pe.bas"
if(!qbevent)break;evnt(19978);}while(r);
#line 19978 "qb64pe.bas"
}
#line 19979 "qb64pe.bas"
}
#line 19980 "qb64pe.bas"
}else{
#line 19981 "qb64pe.bas"
S_22999:;
#line 19981 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||is_error_pending()){
#line 19981 "qb64pe.bas"
if(qbevent){evnt(19981);if(r)goto S_22999;}
#line 19981 "qb64pe.bas"
do{
#line 19981 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_LHSTYP= 1 ;
#line 19981 "qb64pe.bas"
if(!qbevent)break;evnt(19981);}while(r);
#line 19981 "qb64pe.bas"
}
#line 19982 "qb64pe.bas"
S_23002:;
#line 19982 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||is_error_pending()){
#line 19982 "qb64pe.bas"
if(qbevent){evnt(19982);if(r)goto S_23002;}
#line 19982 "qb64pe.bas"
do{
#line 19982 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_RHSTYP= 1 ;
#line 19982 "qb64pe.bas"
if(!qbevent)break;evnt(19982);}while(r);
#line 19982 "qb64pe.bas"
}
#line 19983 "qb64pe.bas"
}
#line 19985 "qb64pe.bas"
S_23006:;
#line 19985 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
#line 19985 "qb64pe.bas"
if(qbevent){evnt(19985);if(r)goto S_23006;}
#line 19985 "qb64pe.bas"
do{
#line 19985 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_RESULT= 1 ;
#line 19985 "qb64pe.bas"
if(!qbevent)break;evnt(19985);}while(r);
#line 19985 "qb64pe.bas"
}
#line 19988 "qb64pe.bas"
}
#line 19992 "qb64pe.bas"
S_23010:;
#line 19992 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||is_error_pending()){
#line 19992 "qb64pe.bas"
if(qbevent){evnt(19992);if(r)goto S_23010;}
#line 19993 "qb64pe.bas"
S_23011:;
#line 19993 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||is_error_pending()){
#line 19993 "qb64pe.bas"
if(qbevent){evnt(19993);if(r)goto S_23011;}
#line 19993 "qb64pe.bas"
do{
#line 19993 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
#line 19993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19993 "qb64pe.bas"
if(!qbevent)break;evnt(19993);}while(r);
#line 19993 "qb64pe.bas"
do{
#line 19993 "qb64pe.bas"
goto exit_subfunc;
#line 19993 "qb64pe.bas"
if(!qbevent)break;evnt(19993);}while(r);
#line 19993 "qb64pe.bas"
}
#line 19994 "qb64pe.bas"
}else{
#line 19996 "qb64pe.bas"
S_23016:;
#line 19996 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||is_error_pending()){
#line 19996 "qb64pe.bas"
if(qbevent){evnt(19996);if(r)goto S_23016;}
#line 19996 "qb64pe.bas"
do{
#line 19996 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
#line 19996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19996 "qb64pe.bas"
if(!qbevent)break;evnt(19996);}while(r);
#line 19996 "qb64pe.bas"
do{
#line 19996 "qb64pe.bas"
goto exit_subfunc;
#line 19996 "qb64pe.bas"
if(!qbevent)break;evnt(19996);}while(r);
#line 19996 "qb64pe.bas"
}
#line 19997 "qb64pe.bas"
S_23020:;
#line 19997 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 19997 "qb64pe.bas"
if(qbevent){evnt(19997);if(r)goto S_23020;}
#line 19998 "qb64pe.bas"
S_23021:;
#line 19998 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||is_error_pending()){
#line 19998 "qb64pe.bas"
if(qbevent){evnt(19998);if(r)goto S_23021;}
#line 20000 "qb64pe.bas"
do{
#line 20000 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20000 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20000 "qb64pe.bas"
if(!qbevent)break;evnt(20000);}while(r);
#line 20001 "qb64pe.bas"
do{
#line 20001 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDTYP= 64 ;
#line 20001 "qb64pe.bas"
if(!qbevent)break;evnt(20001);}while(r);
#line 20002 "qb64pe.bas"
}
#line 20003 "qb64pe.bas"
}else{
#line 20005 "qb64pe.bas"
S_23026:;
#line 20005 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||is_error_pending()){
#line 20005 "qb64pe.bas"
if(qbevent){evnt(20005);if(r)goto S_23026;}
#line 20007 "qb64pe.bas"
do{
#line 20007 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20007 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20007 "qb64pe.bas"
if(!qbevent)break;evnt(20007);}while(r);
#line 20008 "qb64pe.bas"
do{
#line 20008 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT;
#line 20008 "qb64pe.bas"
if(!qbevent)break;evnt(20008);}while(r);
#line 20009 "qb64pe.bas"
}
#line 20010 "qb64pe.bas"
}
#line 20011 "qb64pe.bas"
}
#line 20013 "qb64pe.bas"
S_23032:;
#line 20013 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||is_error_pending()){
#line 20013 "qb64pe.bas"
if(qbevent){evnt(20013);if(r)goto S_23032;}
#line 20014 "qb64pe.bas"
S_23033:;
#line 20014 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||is_error_pending()){
#line 20014 "qb64pe.bas"
if(qbevent){evnt(20014);if(r)goto S_23033;}
#line 20014 "qb64pe.bas"
do{
#line 20014 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
#line 20014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20014 "qb64pe.bas"
if(!qbevent)break;evnt(20014);}while(r);
#line 20014 "qb64pe.bas"
do{
#line 20014 "qb64pe.bas"
goto exit_subfunc;
#line 20014 "qb64pe.bas"
if(!qbevent)break;evnt(20014);}while(r);
#line 20014 "qb64pe.bas"
}
#line 20015 "qb64pe.bas"
}else{
#line 20017 "qb64pe.bas"
S_23038:;
#line 20017 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||is_error_pending()){
#line 20017 "qb64pe.bas"
if(qbevent){evnt(20017);if(r)goto S_23038;}
#line 20017 "qb64pe.bas"
do{
#line 20017 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
#line 20017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20017 "qb64pe.bas"
if(!qbevent)break;evnt(20017);}while(r);
#line 20017 "qb64pe.bas"
do{
#line 20017 "qb64pe.bas"
goto exit_subfunc;
#line 20017 "qb64pe.bas"
if(!qbevent)break;evnt(20017);}while(r);
#line 20017 "qb64pe.bas"
}
#line 20018 "qb64pe.bas"
S_23042:;
#line 20018 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 20018 "qb64pe.bas"
if(qbevent){evnt(20018);if(r)goto S_23042;}
#line 20019 "qb64pe.bas"
S_23043:;
#line 20019 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||is_error_pending()){
#line 20019 "qb64pe.bas"
if(qbevent){evnt(20019);if(r)goto S_23043;}
#line 20021 "qb64pe.bas"
do{
#line 20021 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20021 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20021 "qb64pe.bas"
if(!qbevent)break;evnt(20021);}while(r);
#line 20022 "qb64pe.bas"
do{
#line 20022 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NEWTYP= 64 ;
#line 20022 "qb64pe.bas"
if(!qbevent)break;evnt(20022);}while(r);
#line 20023 "qb64pe.bas"
}
#line 20024 "qb64pe.bas"
}else{
#line 20026 "qb64pe.bas"
S_23048:;
#line 20026 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||is_error_pending()){
#line 20026 "qb64pe.bas"
if(qbevent){evnt(20026);if(r)goto S_23048;}
#line 20028 "qb64pe.bas"
do{
#line 20028 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20028 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20028 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20028 "qb64pe.bas"
if(!qbevent)break;evnt(20028);}while(r);
#line 20029 "qb64pe.bas"
do{
#line 20029 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT;
#line 20029 "qb64pe.bas"
if(!qbevent)break;evnt(20029);}while(r);
#line 20030 "qb64pe.bas"
}
#line 20031 "qb64pe.bas"
}
#line 20032 "qb64pe.bas"
}
#line 20035 "qb64pe.bas"
S_23054:;
#line 20035 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_ISOP== 10 ))||is_error_pending()){
#line 20035 "qb64pe.bas"
if(qbevent){evnt(20035);if(r)goto S_23054;}
#line 20045 "qb64pe.bas"
S_23055:;
#line 20045 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
#line 20045 "qb64pe.bas"
if(qbevent){evnt(20045);if(r)goto S_23055;}
#line 20046 "qb64pe.bas"
do{
#line 20046 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
#line 20046 "qb64pe.bas"
if(!qbevent)break;evnt(20046);}while(r);
#line 20046 "qb64pe.bas"
do{
#line 20046 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
#line 20046 "qb64pe.bas"
if(!qbevent)break;evnt(20046);}while(r);
#line 20047 "qb64pe.bas"
S_23058:;
#line 20047 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||is_error_pending()){
#line 20047 "qb64pe.bas"
if(qbevent){evnt(20047);if(r)goto S_23058;}
#line 20047 "qb64pe.bas"
do{
#line 20047 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2;
#line 20047 "qb64pe.bas"
if(!qbevent)break;evnt(20047);}while(r);
#line 20047 "qb64pe.bas"
}
#line 20048 "qb64pe.bas"
S_23061:;
#line 20048 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||is_error_pending()){
#line 20048 "qb64pe.bas"
if(qbevent){evnt(20048);if(r)goto S_23061;}
#line 20049 "qb64pe.bas"
do{
#line 20049 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20049 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20049 "qb64pe.bas"
if(!qbevent)break;evnt(20049);}while(r);
#line 20049 "qb64pe.bas"
do{
#line 20049 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT;
#line 20049 "qb64pe.bas"
if(!qbevent)break;evnt(20049);}while(r);
#line 20050 "qb64pe.bas"
do{
#line 20050 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20050 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20050 "qb64pe.bas"
if(!qbevent)break;evnt(20050);}while(r);
#line 20050 "qb64pe.bas"
do{
#line 20050 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT;
#line 20050 "qb64pe.bas"
if(!qbevent)break;evnt(20050);}while(r);
#line 20051 "qb64pe.bas"
}
#line 20052 "qb64pe.bas"
S_23067:;
#line 20052 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||is_error_pending()){
#line 20052 "qb64pe.bas"
if(qbevent){evnt(20052);if(r)goto S_23067;}
#line 20053 "qb64pe.bas"
do{
#line 20053 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20053 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20053 "qb64pe.bas"
if(!qbevent)break;evnt(20053);}while(r);
#line 20053 "qb64pe.bas"
do{
#line 20053 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT;
#line 20053 "qb64pe.bas"
if(!qbevent)break;evnt(20053);}while(r);
#line 20054 "qb64pe.bas"
do{
#line 20054 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20054 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("))",2)));
#line 20054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20054 "qb64pe.bas"
if(!qbevent)break;evnt(20054);}while(r);
#line 20054 "qb64pe.bas"
do{
#line 20054 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT;
#line 20054 "qb64pe.bas"
if(!qbevent)break;evnt(20054);}while(r);
#line 20055 "qb64pe.bas"
}
#line 20056 "qb64pe.bas"
}
#line 20057 "qb64pe.bas"
}
#line 20059 "qb64pe.bas"
do{
#line 20059 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP;
#line 20059 "qb64pe.bas"
if(!qbevent)break;evnt(20059);}while(r);
#line 20066 "qb64pe.bas"
S_23076:;
#line 20066 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 20066 "qb64pe.bas"
if(qbevent){evnt(20066);if(r)goto S_23076;}
#line 20067 "qb64pe.bas"
S_23077:;
#line 20067 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
#line 20067 "qb64pe.bas"
if(qbevent){evnt(20067);if(r)goto S_23077;}
#line 20069 "qb64pe.bas"
do{
#line 20069 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B= 0 ;
#line 20069 "qb64pe.bas"
if(!qbevent)break;evnt(20069);}while(r);
#line 20069 "qb64pe.bas"
S_23079:;
#line 20069 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 20069 "qb64pe.bas"
if(qbevent){evnt(20069);if(r)goto S_23079;}
#line 20069 "qb64pe.bas"
do{
#line 20069 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
#line 20069 "qb64pe.bas"
if(!qbevent)break;evnt(20069);}while(r);
#line 20069 "qb64pe.bas"
}
#line 20070 "qb64pe.bas"
S_23082:;
#line 20070 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 20070 "qb64pe.bas"
if(qbevent){evnt(20070);if(r)goto S_23082;}
#line 20071 "qb64pe.bas"
do{
#line 20071 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
#line 20071 "qb64pe.bas"
if(!qbevent)break;evnt(20071);}while(r);
#line 20071 "qb64pe.bas"
S_23084:;
#line 20071 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
#line 20071 "qb64pe.bas"
if(qbevent){evnt(20071);if(r)goto S_23084;}
#line 20071 "qb64pe.bas"
do{
#line 20071 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
#line 20071 "qb64pe.bas"
if(!qbevent)break;evnt(20071);}while(r);
#line 20071 "qb64pe.bas"
}
#line 20072 "qb64pe.bas"
}
#line 20073 "qb64pe.bas"
do{
#line 20073 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
#line 20073 "qb64pe.bas"
if(!qbevent)break;evnt(20073);}while(r);
#line 20074 "qb64pe.bas"
}else{
#line 20078 "qb64pe.bas"
do{
#line 20078 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
#line 20078 "qb64pe.bas"
if(!qbevent)break;evnt(20078);}while(r);
#line 20078 "qb64pe.bas"
do{
#line 20078 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
#line 20078 "qb64pe.bas"
if(!qbevent)break;evnt(20078);}while(r);
#line 20078 "qb64pe.bas"
S_23092:;
#line 20078 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
#line 20078 "qb64pe.bas"
if(qbevent){evnt(20078);if(r)goto S_23092;}
#line 20078 "qb64pe.bas"
do{
#line 20078 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
#line 20078 "qb64pe.bas"
if(!qbevent)break;evnt(20078);}while(r);
#line 20078 "qb64pe.bas"
}
#line 20079 "qb64pe.bas"
do{
#line 20079 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP= 64 ;
#line 20079 "qb64pe.bas"
if(!qbevent)break;evnt(20079);}while(r);
#line 20080 "qb64pe.bas"
S_23096:;
#line 20080 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||is_error_pending()){
#line 20080 "qb64pe.bas"
if(qbevent){evnt(20080);if(r)goto S_23096;}
#line 20081 "qb64pe.bas"
S_23097:;
#line 20081 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
#line 20081 "qb64pe.bas"
if(qbevent){evnt(20081);if(r)goto S_23097;}
#line 20081 "qb64pe.bas"
do{
#line 20081 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED;
#line 20081 "qb64pe.bas"
if(!qbevent)break;evnt(20081);}while(r);
#line 20081 "qb64pe.bas"
}
#line 20082 "qb64pe.bas"
}
#line 20083 "qb64pe.bas"
}
#line 20084 "qb64pe.bas"
}
#line 20086 "qb64pe.bas"
S_23103:;
#line 20086 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||is_error_pending()){
#line 20086 "qb64pe.bas"
if(qbevent){evnt(20086);if(r)goto S_23103;}
#line 20087 "qb64pe.bas"
S_23104:;
#line 20087 "qb64pe.bas"
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
#line 20087 "qb64pe.bas"
if(qbevent){evnt(20087);if(r)goto S_23104;}
#line 20087 "qb64pe.bas"
do{
#line 20087 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP= 64 ;
#line 20087 "qb64pe.bas"
if(!qbevent)break;evnt(20087);}while(r);
#line 20087 "qb64pe.bas"
}
#line 20088 "qb64pe.bas"
}
#line 20089 "qb64pe.bas"
S_23108:;
#line 20089 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
#line 20089 "qb64pe.bas"
if(qbevent){evnt(20089);if(r)goto S_23108;}
#line 20090 "qb64pe.bas"
S_23109:;
#line 20090 "qb64pe.bas"
if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 20090 "qb64pe.bas"
if(qbevent){evnt(20090);if(r)goto S_23109;}
#line 20090 "qb64pe.bas"
do{
#line 20090 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ;
#line 20090 "qb64pe.bas"
if(!qbevent)break;evnt(20090);}while(r);
#line 20090 "qb64pe.bas"
}
#line 20091 "qb64pe.bas"
}
#line 20092 "qb64pe.bas"
S_23113:;
#line 20092 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||is_error_pending()){
#line 20092 "qb64pe.bas"
if(qbevent){evnt(20092);if(r)goto S_23113;}
#line 20093 "qb64pe.bas"
do{
#line 20093 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING;
#line 20093 "qb64pe.bas"
if(!qbevent)break;evnt(20093);}while(r);
#line 20094 "qb64pe.bas"
}
#line 20095 "qb64pe.bas"
S_23116:;
#line 20095 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||is_error_pending()){
#line 20095 "qb64pe.bas"
if(qbevent){evnt(20095);if(r)goto S_23116;}
#line 20096 "qb64pe.bas"
do{
#line 20096 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP= 32 ;
#line 20096 "qb64pe.bas"
if(!qbevent)break;evnt(20096);}while(r);
#line 20097 "qb64pe.bas"
}
#line 20100 "qb64pe.bas"
S_23119:;
#line 20100 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
#line 20100 "qb64pe.bas"
if(qbevent){evnt(20100);if(r)goto S_23119;}
#line 20101 "qb64pe.bas"
S_23120:;
#line 20101 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||is_error_pending()){
#line 20101 "qb64pe.bas"
if(qbevent){evnt(20101);if(r)goto S_23120;}
#line 20102 "qb64pe.bas"
do{
#line 20102 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 20102 "qb64pe.bas"
if(!qbevent)break;evnt(20102);}while(r);
#line 20102 "qb64pe.bas"
S_23122:;
#line 20102 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||is_error_pending()){
#line 20102 "qb64pe.bas"
if(qbevent){evnt(20102);if(r)goto S_23122;}
#line 20102 "qb64pe.bas"
do{
#line 20102 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED;
#line 20102 "qb64pe.bas"
if(!qbevent)break;evnt(20102);}while(r);
#line 20102 "qb64pe.bas"
}
#line 20103 "qb64pe.bas"
}
#line 20104 "qb64pe.bas"
}
#line 20107 "qb64pe.bas"
S_23127:;
#line 20107 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
#line 20107 "qb64pe.bas"
if(qbevent){evnt(20107);if(r)goto S_23127;}
#line 20108 "qb64pe.bas"
S_23128:;
#line 20108 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||is_error_pending()){
#line 20108 "qb64pe.bas"
if(qbevent){evnt(20108);if(r)goto S_23128;}
#line 20110 "qb64pe.bas"
S_23129:;
#line 20110 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
#line 20110 "qb64pe.bas"
if(qbevent){evnt(20110);if(r)goto S_23129;}
#line 20110 "qb64pe.bas"
do{
#line 20110 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Operator '^' cannot be used with an _OFFSET",43));
#line 20110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20110 "qb64pe.bas"
if(!qbevent)break;evnt(20110);}while(r);
#line 20110 "qb64pe.bas"
do{
#line 20110 "qb64pe.bas"
goto exit_subfunc;
#line 20110 "qb64pe.bas"
if(!qbevent)break;evnt(20110);}while(r);
#line 20110 "qb64pe.bas"
}
#line 20114 "qb64pe.bas"
do{
#line 20114 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
#line 20114 "qb64pe.bas"
if(!qbevent)break;evnt(20114);}while(r);
#line 20115 "qb64pe.bas"
S_23134:;
#line 20115 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 20115 "qb64pe.bas"
if(qbevent){evnt(20115);if(r)goto S_23134;}
#line 20117 "qb64pe.bas"
}else{
#line 20118 "qb64pe.bas"
S_23136:;
#line 20118 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||is_error_pending()){
#line 20118 "qb64pe.bas"
if(qbevent){evnt(20118);if(r)goto S_23136;}
#line 20118 "qb64pe.bas"
do{
#line 20118 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B= 64 ;
#line 20118 "qb64pe.bas"
if(!qbevent)break;evnt(20118);}while(r);
#line 20118 "qb64pe.bas"
}
#line 20119 "qb64pe.bas"
S_23139:;
#line 20119 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||is_error_pending()){
#line 20119 "qb64pe.bas"
if(qbevent){evnt(20119);if(r)goto S_23139;}
#line 20119 "qb64pe.bas"
do{
#line 20119 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B= 256 ;
#line 20119 "qb64pe.bas"
if(!qbevent)break;evnt(20119);}while(r);
#line 20119 "qb64pe.bas"
}
#line 20120 "qb64pe.bas"
S_23142:;
#line 20120 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||is_error_pending()){
#line 20120 "qb64pe.bas"
if(qbevent){evnt(20120);if(r)goto S_23142;}
#line 20120 "qb64pe.bas"
do{
#line 20120 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B= 32 ;
#line 20120 "qb64pe.bas"
if(!qbevent)break;evnt(20120);}while(r);
#line 20120 "qb64pe.bas"
}
#line 20121 "qb64pe.bas"
}
#line 20122 "qb64pe.bas"
do{
#line 20122 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
#line 20122 "qb64pe.bas"
if(!qbevent)break;evnt(20122);}while(r);
#line 20123 "qb64pe.bas"
S_23147:;
#line 20123 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 20123 "qb64pe.bas"
if(qbevent){evnt(20123);if(r)goto S_23147;}
#line 20124 "qb64pe.bas"
S_23148:;
#line 20124 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
#line 20124 "qb64pe.bas"
if(qbevent){evnt(20124);if(r)goto S_23148;}
#line 20124 "qb64pe.bas"
do{
#line 20124 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
#line 20124 "qb64pe.bas"
if(!qbevent)break;evnt(20124);}while(r);
#line 20124 "qb64pe.bas"
}
#line 20125 "qb64pe.bas"
}else{
#line 20126 "qb64pe.bas"
do{
#line 20126 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B3= 32 ;
#line 20126 "qb64pe.bas"
if(!qbevent)break;evnt(20126);}while(r);
#line 20127 "qb64pe.bas"
S_23153:;
#line 20127 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||is_error_pending()){
#line 20127 "qb64pe.bas"
if(qbevent){evnt(20127);if(r)goto S_23153;}
#line 20127 "qb64pe.bas"
do{
#line 20127 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B3= 64 ;
#line 20127 "qb64pe.bas"
if(!qbevent)break;evnt(20127);}while(r);
#line 20127 "qb64pe.bas"
}
#line 20128 "qb64pe.bas"
S_23156:;
#line 20128 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||is_error_pending()){
#line 20128 "qb64pe.bas"
if(qbevent){evnt(20128);if(r)goto S_23156;}
#line 20128 "qb64pe.bas"
do{
#line 20128 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B3= 256 ;
#line 20128 "qb64pe.bas"
if(!qbevent)break;evnt(20128);}while(r);
#line 20128 "qb64pe.bas"
}
#line 20129 "qb64pe.bas"
S_23159:;
#line 20129 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
#line 20129 "qb64pe.bas"
if(qbevent){evnt(20129);if(r)goto S_23159;}
#line 20129 "qb64pe.bas"
do{
#line 20129 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3;
#line 20129 "qb64pe.bas"
if(!qbevent)break;evnt(20129);}while(r);
#line 20129 "qb64pe.bas"
}
#line 20130 "qb64pe.bas"
}
#line 20131 "qb64pe.bas"
do{
#line 20131 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
#line 20131 "qb64pe.bas"
if(!qbevent)break;evnt(20131);}while(r);
#line 20133 "qb64pe.bas"
}
#line 20134 "qb64pe.bas"
}
#line 20138 "qb64pe.bas"
S_23166:;
#line 20138 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 6 ))||is_error_pending()){
#line 20138 "qb64pe.bas"
if(qbevent){evnt(20138);if(r)goto S_23166;}
#line 20139 "qb64pe.bas"
do{
#line 20139 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20139 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),_FUNC_EVALUATE_STRING_I),qbs_new_txt_len("(",1)),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)),qbs_new_txt_len(")",1)));
#line 20139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20139 "qb64pe.bas"
if(!qbevent)break;evnt(20139);}while(r);
#line 20140 "qb64pe.bas"
do{
#line 20140 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20140 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20140 "qb64pe.bas"
if(!qbevent)break;evnt(20140);}while(r);
#line 20140 "qb64pe.bas"
do{
#line 20140 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20140 "qb64pe.bas"
if(!qbevent)break;evnt(20140);}while(r);
#line 20140 "qb64pe.bas"
do{
#line 20140 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20140 "qb64pe.bas"
if(!qbevent)break;evnt(20140);}while(r);
#line 20141 "qb64pe.bas"
}
#line 20143 "qb64pe.bas"
S_23172:;
#line 20143 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||is_error_pending()){
#line 20143 "qb64pe.bas"
if(qbevent){evnt(20143);if(r)goto S_23172;}
#line 20144 "qb64pe.bas"
do{
#line 20144 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20144 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20144 "qb64pe.bas"
if(!qbevent)break;evnt(20144);}while(r);
#line 20145 "qb64pe.bas"
do{
#line 20145 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20145 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20145 "qb64pe.bas"
if(!qbevent)break;evnt(20145);}while(r);
#line 20145 "qb64pe.bas"
do{
#line 20145 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20145 "qb64pe.bas"
if(!qbevent)break;evnt(20145);}while(r);
#line 20145 "qb64pe.bas"
do{
#line 20145 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20145 "qb64pe.bas"
if(!qbevent)break;evnt(20145);}while(r);
#line 20146 "qb64pe.bas"
}
#line 20150 "qb64pe.bas"
S_23178:;
#line 20150 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||is_error_pending()){
#line 20150 "qb64pe.bas"
if(qbevent){evnt(20150);if(r)goto S_23178;}
#line 20151 "qb64pe.bas"
do{
#line 20151 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20151 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add((((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]),_FUNC_EVALUATE_STRING_I),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
#line 20151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20151 "qb64pe.bas"
if(!qbevent)break;evnt(20151);}while(r);
#line 20152 "qb64pe.bas"
do{
#line 20152 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20152 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20152 "qb64pe.bas"
if(!qbevent)break;evnt(20152);}while(r);
#line 20152 "qb64pe.bas"
do{
#line 20152 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20152 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20152 "qb64pe.bas"
if(!qbevent)break;evnt(20152);}while(r);
#line 20152 "qb64pe.bas"
do{
#line 20152 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20152 "qb64pe.bas"
if(!qbevent)break;evnt(20152);}while(r);
#line 20152 "qb64pe.bas"
do{
#line 20152 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20152 "qb64pe.bas"
if(!qbevent)break;evnt(20152);}while(r);
#line 20153 "qb64pe.bas"
}
#line 20155 "qb64pe.bas"
S_23185:;
#line 20155 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
#line 20155 "qb64pe.bas"
if(qbevent){evnt(20155);if(r)goto S_23185;}
#line 20156 "qb64pe.bas"
do{
#line 20156 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20156 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(",",1)),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20156 "qb64pe.bas"
if(!qbevent)break;evnt(20156);}while(r);
#line 20157 "qb64pe.bas"
do{
#line 20157 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20157 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20157 "qb64pe.bas"
if(!qbevent)break;evnt(20157);}while(r);
#line 20157 "qb64pe.bas"
do{
#line 20157 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20157 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20157 "qb64pe.bas"
if(!qbevent)break;evnt(20157);}while(r);
#line 20157 "qb64pe.bas"
do{
#line 20157 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20157 "qb64pe.bas"
if(!qbevent)break;evnt(20157);}while(r);
#line 20157 "qb64pe.bas"
do{
#line 20157 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20157 "qb64pe.bas"
if(!qbevent)break;evnt(20157);}while(r);
#line 20158 "qb64pe.bas"
}
#line 20160 "qb64pe.bas"
S_23192:;
#line 20160 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||is_error_pending()){
#line 20160 "qb64pe.bas"
if(qbevent){evnt(20160);if(r)goto S_23192;}
#line 20161 "qb64pe.bas"
do{
#line 20161 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20161 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20161 "qb64pe.bas"
if(!qbevent)break;evnt(20161);}while(r);
#line 20162 "qb64pe.bas"
do{
#line 20162 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20162 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20162 "qb64pe.bas"
if(!qbevent)break;evnt(20162);}while(r);
#line 20162 "qb64pe.bas"
do{
#line 20162 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20162 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20162 "qb64pe.bas"
if(!qbevent)break;evnt(20162);}while(r);
#line 20162 "qb64pe.bas"
do{
#line 20162 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20162 "qb64pe.bas"
if(!qbevent)break;evnt(20162);}while(r);
#line 20162 "qb64pe.bas"
do{
#line 20162 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20162 "qb64pe.bas"
if(!qbevent)break;evnt(20162);}while(r);
#line 20163 "qb64pe.bas"
}
#line 20165 "qb64pe.bas"
S_23199:;
#line 20165 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||is_error_pending()){
#line 20165 "qb64pe.bas"
if(qbevent){evnt(20165);if(r)goto S_23199;}
#line 20166 "qb64pe.bas"
do{
#line 20166 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20166 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_add(qbs_new_txt_len("~",1),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
#line 20166 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20166 "qb64pe.bas"
if(!qbevent)break;evnt(20166);}while(r);
#line 20167 "qb64pe.bas"
do{
#line 20167 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20167 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20167 "qb64pe.bas"
if(!qbevent)break;evnt(20167);}while(r);
#line 20167 "qb64pe.bas"
do{
#line 20167 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20167 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_new_txt_len("",0));
#line 20167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20167 "qb64pe.bas"
if(!qbevent)break;evnt(20167);}while(r);
#line 20167 "qb64pe.bas"
do{
#line 20167 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
#line 20167 "qb64pe.bas"
if(!qbevent)break;evnt(20167);}while(r);
#line 20167 "qb64pe.bas"
do{
#line 20167 "qb64pe.bas"
goto LABEL_OPERATORAPPLIED;
#line 20167 "qb64pe.bas"
if(!qbevent)break;evnt(20167);}while(r);
#line 20168 "qb64pe.bas"
}
#line 20172 "qb64pe.bas"
do{
#line 20172 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("ERROR: Operator could not be applied correctly!",47));
#line 20172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20172 "qb64pe.bas"
if(!qbevent)break;evnt(20172);}while(r);
#line 20172 "qb64pe.bas"
do{
#line 20172 "qb64pe.bas"
goto exit_subfunc;
#line 20172 "qb64pe.bas"
if(!qbevent)break;evnt(20172);}while(r);
#line 20173 "qb64pe.bas"
LABEL_OPERATORAPPLIED:;
#line 20173 "qb64pe.bas"
if(qbevent){evnt(20173);r=0;}
#line 20175 "qb64pe.bas"
S_23208:;
#line 20175 "qb64pe.bas"
if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||is_error_pending()){
#line 20175 "qb64pe.bas"
if(qbevent){evnt(20175);if(r)goto S_23208;}
#line 20175 "qb64pe.bas"
do{
#line 20175 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
#line 20175 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long],qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1)));
#line 20175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20175 "qb64pe.bas"
if(!qbevent)break;evnt(20175);}while(r);
#line 20175 "qb64pe.bas"
do{
#line 20175 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
#line 20175 "qb64pe.bas"
if(!qbevent)break;evnt(20175);}while(r);
#line 20175 "qb64pe.bas"
}
#line 20176 "qb64pe.bas"
do{
#line 20176 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
#line 20176 "qb64pe.bas"
if(!qbevent)break;evnt(20176);}while(r);
#line 20178 "qb64pe.bas"
}else{
#line 20179 "qb64pe.bas"
do{
#line 20179 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
#line 20179 "qb64pe.bas"
if(!qbevent)break;evnt(20179);}while(r);
#line 20180 "qb64pe.bas"
}
#line 20181 "qb64pe.bas"
}else{
#line 20182 "qb64pe.bas"
do{
#line 20182 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
#line 20182 "qb64pe.bas"
if(!qbevent)break;evnt(20182);}while(r);
#line 20183 "qb64pe.bas"
}
#line 20184 "qb64pe.bas"
S_23219:;
#line 20184 "qb64pe.bas"
if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||is_error_pending()){
#line 20184 "qb64pe.bas"
if(qbevent){evnt(20184);if(r)goto S_23219;}
#line 20184 "qb64pe.bas"
do{
#line 20184 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29));
#line 20184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20184 "qb64pe.bas"
if(!qbevent)break;evnt(20184);}while(r);
#line 20184 "qb64pe.bas"
do{
#line 20184 "qb64pe.bas"
goto exit_subfunc;
#line 20184 "qb64pe.bas"
if(!qbevent)break;evnt(20184);}while(r);
#line 20184 "qb64pe.bas"
}
#line 20185 "qb64pe.bas"
fornext_continue_2636:;
#line 20185 "qb64pe.bas"
}
#line 20185 "qb64pe.bas"
fornext_exit_2636:;
#line 20186 "qb64pe.bas"
S_23224:;
#line 20186 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 20186 "qb64pe.bas"
if(qbevent){evnt(20186);if(r)goto S_23224;}
#line 20186 "qb64pe.bas"
do{
#line 20186 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20186 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20186 "qb64pe.bas"
if (is_error_pending()) goto skip2638;
#line 20186 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
#line 20186 "qb64pe.bas"
if (is_error_pending()) goto skip2638;
#line 20186 "qb64pe.bas"
skip2638:
#line 20186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20186 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20186 "qb64pe.bas"
if(!qbevent)break;evnt(20186);}while(r);
#line 20186 "qb64pe.bas"
}
#line 20189 "qb64pe.bas"
S_23227:;
#line 20189 "qb64pe.bas"
fornext_value2640= 1 ;
#line 20189 "qb64pe.bas"
fornext_finalvalue2640=*_FUNC_EVALUATE_LONG_BLOCKN;
#line 20189 "qb64pe.bas"
fornext_step2640= 1 ;
#line 20189 "qb64pe.bas"
if (fornext_step2640<0) fornext_step_negative2640=1; else fornext_step_negative2640=0;
#line 20189 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2640;
#line 20189 "qb64pe.bas"
goto fornext_entrylabel2640;
#line 20189 "qb64pe.bas"
while(1){
#line 20189 "qb64pe.bas"
fornext_value2640=fornext_step2640+(*_FUNC_EVALUATE_LONG_I);
#line 20189 "qb64pe.bas"
fornext_entrylabel2640:
#line 20189 "qb64pe.bas"
*_FUNC_EVALUATE_LONG_I=fornext_value2640;
#line 20189 "qb64pe.bas"
if (fornext_step_negative2640){
#line 20189 "qb64pe.bas"
if (fornext_value2640<fornext_finalvalue2640) break;
#line 20189 "qb64pe.bas"
}else{
#line 20189 "qb64pe.bas"
if (fornext_value2640>fornext_finalvalue2640) break;
#line 20189 "qb64pe.bas"
}
#line 20189 "qb64pe.bas"
fornext_error2640:;
#line 20189 "qb64pe.bas"
if(qbevent){evnt(20189);if(r)goto S_23227;}
#line 20190 "qb64pe.bas"
do{
#line 20190 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_R,qbs_add(_FUNC_EVALUATE_STRING_R,(((qbs**)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
#line 20190 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20190 "qb64pe.bas"
if(!qbevent)break;evnt(20190);}while(r);
#line 20191 "qb64pe.bas"
fornext_continue_2639:;
#line 20191 "qb64pe.bas"
}
#line 20191 "qb64pe.bas"
fornext_exit_2639:;
#line 20193 "qb64pe.bas"
S_23230:;
#line 20193 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 20193 "qb64pe.bas"
if(qbevent){evnt(20193);if(r)goto S_23230;}
#line 20194 "qb64pe.bas"
do{
#line 20194 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20194 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20194 "qb64pe.bas"
if (is_error_pending()) goto skip2641;
#line 20194 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluated:",10),_FUNC_EVALUATE_STRING_R),qbs_new_txt_len(" AS TYPE:",9)), 0, 0, 0);
#line 20194 "qb64pe.bas"
if (is_error_pending()) goto skip2641;
#line 20194 "qb64pe.bas"
skip2641:
#line 20194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20194 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20194 "qb64pe.bas"
if(!qbevent)break;evnt(20194);}while(r);
#line 20195 "qb64pe.bas"
S_23232:;
#line 20195 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 20195 "qb64pe.bas"
if(qbevent){evnt(20195);if(r)goto S_23232;}
#line 20195 "qb64pe.bas"
do{
#line 20195 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20195 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20195 "qb64pe.bas"
if (is_error_pending()) goto skip2642;
#line 20195 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0, 0, 0);
#line 20195 "qb64pe.bas"
if (is_error_pending()) goto skip2642;
#line 20195 "qb64pe.bas"
skip2642:
#line 20195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20195 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20195 "qb64pe.bas"
if(!qbevent)break;evnt(20195);}while(r);
#line 20195 "qb64pe.bas"
}
#line 20196 "qb64pe.bas"
S_23235:;
#line 20196 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 20196 "qb64pe.bas"
if(qbevent){evnt(20196);if(r)goto S_23235;}
#line 20196 "qb64pe.bas"
do{
#line 20196 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20196 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20196 "qb64pe.bas"
if (is_error_pending()) goto skip2643;
#line 20196 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0, 0, 0);
#line 20196 "qb64pe.bas"
if (is_error_pending()) goto skip2643;
#line 20196 "qb64pe.bas"
skip2643:
#line 20196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20196 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20196 "qb64pe.bas"
if(!qbevent)break;evnt(20196);}while(r);
#line 20196 "qb64pe.bas"
}
#line 20197 "qb64pe.bas"
S_23238:;
#line 20197 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 20197 "qb64pe.bas"
if(qbevent){evnt(20197);if(r)goto S_23238;}
#line 20197 "qb64pe.bas"
do{
#line 20197 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20197 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20197 "qb64pe.bas"
if (is_error_pending()) goto skip2644;
#line 20197 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0, 0, 0);
#line 20197 "qb64pe.bas"
if (is_error_pending()) goto skip2644;
#line 20197 "qb64pe.bas"
skip2644:
#line 20197 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20197 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20197 "qb64pe.bas"
if(!qbevent)break;evnt(20197);}while(r);
#line 20197 "qb64pe.bas"
}
#line 20198 "qb64pe.bas"
S_23241:;
#line 20198 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 20198 "qb64pe.bas"
if(qbevent){evnt(20198);if(r)goto S_23241;}
#line 20198 "qb64pe.bas"
do{
#line 20198 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20198 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20198 "qb64pe.bas"
if (is_error_pending()) goto skip2645;
#line 20198 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0, 0, 0);
#line 20198 "qb64pe.bas"
if (is_error_pending()) goto skip2645;
#line 20198 "qb64pe.bas"
skip2645:
#line 20198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20198 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20198 "qb64pe.bas"
if(!qbevent)break;evnt(20198);}while(r);
#line 20198 "qb64pe.bas"
}
#line 20199 "qb64pe.bas"
S_23244:;
#line 20199 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 20199 "qb64pe.bas"
if(qbevent){evnt(20199);if(r)goto S_23244;}
#line 20199 "qb64pe.bas"
do{
#line 20199 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20199 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20199 "qb64pe.bas"
if (is_error_pending()) goto skip2646;
#line 20199 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0, 0, 0);
#line 20199 "qb64pe.bas"
if (is_error_pending()) goto skip2646;
#line 20199 "qb64pe.bas"
skip2646:
#line 20199 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20199 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20199 "qb64pe.bas"
if(!qbevent)break;evnt(20199);}while(r);
#line 20199 "qb64pe.bas"
}
#line 20200 "qb64pe.bas"
S_23247:;
#line 20200 "qb64pe.bas"
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
#line 20200 "qb64pe.bas"
if(qbevent){evnt(20200);if(r)goto S_23247;}
#line 20200 "qb64pe.bas"
do{
#line 20200 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20200 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20200 "qb64pe.bas"
if (is_error_pending()) goto skip2647;
#line 20200 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0, 0, 0);
#line 20200 "qb64pe.bas"
if (is_error_pending()) goto skip2647;
#line 20200 "qb64pe.bas"
skip2647:
#line 20200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20200 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20200 "qb64pe.bas"
if(!qbevent)break;evnt(20200);}while(r);
#line 20200 "qb64pe.bas"
}
#line 20201 "qb64pe.bas"
do{
#line 20201 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20201 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20201 "qb64pe.bas"
if (is_error_pending()) goto skip2648;
#line 20201 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),qbs__tostr((int64)(*_FUNC_EVALUATE_LONG_TYP& 4095ll ),NULL,0)),qbs_new_txt_len(")",1)), 0, 0, 1);
#line 20201 "qb64pe.bas"
if (is_error_pending()) goto skip2648;
#line 20201 "qb64pe.bas"
skip2648:
#line 20201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20201 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20201 "qb64pe.bas"
if(!qbevent)break;evnt(20201);}while(r);
#line 20202 "qb64pe.bas"
}
#line 20205 "qb64pe.bas"
do{
#line 20205 "qb64pe.bas"
qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R);
#line 20205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20205 "qb64pe.bas"
if(!qbevent)break;evnt(20205);}while(r);
#line 20209 "qb64pe.bas"
exit_subfunc:;
#line 20209 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 20209 "qb64pe.bas"
#include "free64.txt"
#line 20209 "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 20209 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 20209 "qb64pe.bas"
qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE;
#line 20209 "qb64pe.bas"
}
