#line 25826 "qb64pe.bas"
void SUB_REGID(){
#line 25826 "qb64pe.bas"
qbs *tqbs;
#line 25826 "qb64pe.bas"
ptrszint tmp_long;
#line 25826 "qb64pe.bas"
int32 tmp_fileno;
#line 25826 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 25826 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 25826 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 25826 "qb64pe.bas"
#include "data80.txt"
#line 25826 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 25826 "qb64pe.bas"
new_mem_lock();
#line 25826 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 25826 "qb64pe.bas"
sf_mem_lock->type=3;
#line 25826 "qb64pe.bas"
libqb_check_stack();
#line 25826 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 25827 "qb64pe.bas"
do{
#line 25827 "qb64pe.bas"
*__LONG_IDN=*__LONG_IDN+ 1 ;
#line 25827 "qb64pe.bas"
if(!qbevent)break;evnt(25827);}while(r);
#line 25829 "qb64pe.bas"
S_29854:;
#line 25829 "qb64pe.bas"
if ((-(*__LONG_IDN>*__LONG_IDS_MAX))||is_error_pending()){
#line 25829 "qb64pe.bas"
if(qbevent){evnt(25829);if(r)goto S_29854;}
#line 25830 "qb64pe.bas"
do{
#line 25830 "qb64pe.bas"
*__LONG_IDS_MAX=*__LONG_IDS_MAX* 2 ;
#line 25830 "qb64pe.bas"
if(!qbevent)break;evnt(25830);}while(r);
#line 25831 "qb64pe.bas"
do{
if (__ARRAY_UDT_IDS[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*)__ARRAY_UDT_IDS)[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 (__ARRAY_UDT_IDS[2]&1){
preserve_old_ptr=__ARRAY_UDT_IDS[0];
preserve_old_flags=__ARRAY_UDT_IDS[2];
preserve_old_total=__ARRAY_UDT_IDS[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]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX)-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)(2973);
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);
__ARRAY_UDT_IDS[0]=preserve_new_ptr;
__ARRAY_UDT_IDS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_IDS[0]),tmp_long*2973);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+2965)))=qbs_new(0,0);}
tmp_long=preserve_copy_count;
while(tmp_long--){

memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+0))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+0))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+256))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+256))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+512))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+512))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+516))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+516))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+518))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+518))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+520))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+520))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+522))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+522))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+524))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+524))),8);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+532))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+532))),8);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+540))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+540))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+544))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+544))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+548))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+548))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+550))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+550))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+552))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+552))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+554))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+554))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+810))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+810))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+812))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+812))),1);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+813))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+813))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+815))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+815))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+817))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+817))),400);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+1217))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+1217))),400);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+1617))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+1617))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+1873))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+1873))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2129))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2129))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2385))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2385))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2389))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2389))),256);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2645))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2645))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2649))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2649))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2651))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2651))),100);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2751))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2751))),100);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2851))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2851))),100);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2951))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2951))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2955))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2955))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2957))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2957))),2);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2959))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2959))),4);
memcpy((void*)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2963))),(void*)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2963))),2);
qbs_set((*(qbs**)(((char*)(preserve_new_ptr)+(((tmp_long*2973))+2965)))),(*(qbs**)(((char*)(preserve_old_ptr)+(((tmp_long*2973))+2965)))));
}
__ARRAY_UDT_IDS[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+2965))));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_IDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_IDS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_IDS[0]) error(257);
__ARRAY_UDT_IDS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_IDS[0]),tmp_long*2973);
while(tmp_long--){

*(qbs**)(((uint8*)((__ARRAY_UDT_IDS[0]+2973*tmp_long)))+((0+2965)))=qbs_new(0,0);}
}
__ARRAY_UDT_IDS[4]=alloc_new_desc[4];
__ARRAY_UDT_IDS[5]=alloc_new_desc[5];
__ARRAY_UDT_IDS[6]=alloc_new_desc[6];
__ARRAY_UDT_IDS[7]=alloc_new_desc[7];
}
#line 25831 "qb64pe.bas"
if(!qbevent)break;evnt(25831);}while(r);
#line 25832 "qb64pe.bas"
do{
if (__ARRAY_INTEGER_CMEMLIST[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*)__ARRAY_INTEGER_CMEMLIST)[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 (__ARRAY_INTEGER_CMEMLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_CMEMLIST[0];
preserve_old_flags=__ARRAY_INTEGER_CMEMLIST[2];
preserve_old_total=__ARRAY_INTEGER_CMEMLIST[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]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-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 (__ARRAY_INTEGER_CMEMLIST[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_CMEMLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_CMEMLIST[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_CMEMLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257);
}
}
__ARRAY_INTEGER_CMEMLIST[2]|=1;
__ARRAY_INTEGER_CMEMLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_CMEMLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_CMEMLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_CMEMLIST[7]=alloc_new_desc[7];
}
#line 25832 "qb64pe.bas"
if(!qbevent)break;evnt(25832);}while(r);
#line 25833 "qb64pe.bas"
do{
if (__ARRAY_STRING100_SFCMEMARGS[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*)__ARRAY_STRING100_SFCMEMARGS)[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 (__ARRAY_STRING100_SFCMEMARGS[2]&1){
preserve_old_ptr=__ARRAY_STRING100_SFCMEMARGS[0];
preserve_old_flags=__ARRAY_STRING100_SFCMEMARGS[2];
preserve_old_total=__ARRAY_STRING100_SFCMEMARGS[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]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-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)(100);
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 (__ARRAY_STRING100_SFCMEMARGS[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*100);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING100_SFCMEMARGS[0]=preserve_new_ptr;
}else{
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257);
memset((void*)(__ARRAY_STRING100_SFCMEMARGS[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*100);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING100_SFCMEMARGS[0]=preserve_new_ptr;
}else{
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257);
}
}
__ARRAY_STRING100_SFCMEMARGS[2]|=1;
__ARRAY_STRING100_SFCMEMARGS[4]=alloc_new_desc[4];
__ARRAY_STRING100_SFCMEMARGS[5]=alloc_new_desc[5];
__ARRAY_STRING100_SFCMEMARGS[6]=alloc_new_desc[6];
__ARRAY_STRING100_SFCMEMARGS[7]=alloc_new_desc[7];
}
#line 25833 "qb64pe.bas"
if(!qbevent)break;evnt(25833);}while(r);
#line 25834 "qb64pe.bas"
do{
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[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*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[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 (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_ARRAYELEMENTSLIST[0];
preserve_old_flags=__ARRAY_INTEGER_ARRAYELEMENTSLIST[2];
preserve_old_total=__ARRAY_INTEGER_ARRAYELEMENTSLIST[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]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-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 (__ARRAY_INTEGER_ARRAYELEMENTSLIST[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[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_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257);
}
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[7]=alloc_new_desc[7];
}
#line 25834 "qb64pe.bas"
if(!qbevent)break;evnt(25834);}while(r);
#line 25835 "qb64pe.bas"
}
#line 25837 "qb64pe.bas"
do{
#line 25837 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 25837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25837 "qb64pe.bas"
if(!qbevent)break;evnt(25837);}while(r);
#line 25839 "qb64pe.bas"
S_29862:;
#line 25839 "qb64pe.bas"
if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||is_error_pending()){
#line 25839 "qb64pe.bas"
if(qbevent){evnt(25839);if(r)goto S_29862;}
#line 25840 "qb64pe.bas"
do{
#line 25840 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
#line 25840 "qb64pe.bas"
if(!qbevent)break;evnt(25840);}while(r);
#line 25841 "qb64pe.bas"
S_29864:;
#line 25841 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_SUB_REGID_STRING_N)== 0 )))||is_error_pending()){
#line 25841 "qb64pe.bas"
if(qbevent){evnt(25841);if(r)goto S_29864;}
#line 25841 "qb64pe.bas"
do{
#line 25841 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid name",12));
#line 25841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25841 "qb64pe.bas"
if(!qbevent)break;evnt(25841);}while(r);
#line 25841 "qb64pe.bas"
do{
#line 25841 "qb64pe.bas"
goto exit_subfunc;
#line 25841 "qb64pe.bas"
if(!qbevent)break;evnt(25841);}while(r);
#line 25841 "qb64pe.bas"
}
#line 25842 "qb64pe.bas"
}
#line 25845 "qb64pe.bas"
S_29869:;
#line 25845 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))== 32 )))||is_error_pending()){
#line 25845 "qb64pe.bas"
if(qbevent){evnt(25845);if(r)goto S_29869;}
#line 25846 "qb64pe.bas"
do{
#line 25846 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 25846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25846 "qb64pe.bas"
if(!qbevent)break;evnt(25846);}while(r);
#line 25847 "qb64pe.bas"
do{
#line 25847 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_ucase(_SUB_REGID_STRING_N));
#line 25847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25847 "qb64pe.bas"
if(!qbevent)break;evnt(25847);}while(r);
#line 25848 "qb64pe.bas"
do{
#line 25848 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1),_SUB_REGID_STRING_N);
#line 25848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25848 "qb64pe.bas"
if(!qbevent)break;evnt(25848);}while(r);
#line 25849 "qb64pe.bas"
}
#line 25851 "qb64pe.bas"
do{
#line 25851 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2389))),256,1),__STRING_SUBFUNC);
#line 25851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25851 "qb64pe.bas"
if(!qbevent)break;evnt(25851);}while(r);
#line 25852 "qb64pe.bas"
do{
#line 25852 "qb64pe.bas"
*(int32*)(((char*)__UDT_ID)+((0+2645)))=*__LONG_SUBFUNCN;
#line 25852 "qb64pe.bas"
if(!qbevent)break;evnt(25852);}while(r);
#line 25855 "qb64pe.bas"
S_29876:;
#line 25855 "qb64pe.bas"
if ((*__INTEGER_DIMSHARED)||is_error_pending()){
#line 25855 "qb64pe.bas"
if(qbevent){evnt(25855);if(r)goto S_29876;}
#line 25856 "qb64pe.bas"
do{
#line 25856 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2649)))=*__INTEGER_DIMSHARED;
#line 25856 "qb64pe.bas"
if(!qbevent)break;evnt(25856);}while(r);
#line 25857 "qb64pe.bas"
}else{
#line 25858 "qb64pe.bas"
S_29879:;
#line 25858 "qb64pe.bas"
if ((*__LONG_DIMSTATIC)||is_error_pending()){
#line 25858 "qb64pe.bas"
if(qbevent){evnt(25858);if(r)goto S_29879;}
#line 25858 "qb64pe.bas"
do{
#line 25858 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+2957)))= 1 ;
#line 25858 "qb64pe.bas"
if(!qbevent)break;evnt(25858);}while(r);
#line 25858 "qb64pe.bas"
}
#line 25859 "qb64pe.bas"
}
#line 25861 "qb64pe.bas"
do{
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),(((char*)__UDT_ID)+((0+0))+((0+0))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),(((char*)__UDT_ID)+((0+0))+((0+256))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),(((char*)__UDT_ID)+((0+0))+((0+512))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),(((char*)__UDT_ID)+((0+0))+((0+516))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),(((char*)__UDT_ID)+((0+0))+((0+518))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),(((char*)__UDT_ID)+((0+0))+((0+520))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),(((char*)__UDT_ID)+((0+0))+((0+522))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),(((char*)__UDT_ID)+((0+0))+((0+524))),8);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),(((char*)__UDT_ID)+((0+0))+((0+532))),8);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),(((char*)__UDT_ID)+((0+0))+((0+540))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),(((char*)__UDT_ID)+((0+0))+((0+544))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),(((char*)__UDT_ID)+((0+0))+((0+548))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),(((char*)__UDT_ID)+((0+0))+((0+550))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),(((char*)__UDT_ID)+((0+0))+((0+552))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),(((char*)__UDT_ID)+((0+0))+((0+554))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),(((char*)__UDT_ID)+((0+0))+((0+810))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),(((char*)__UDT_ID)+((0+0))+((0+812))),1);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),(((char*)__UDT_ID)+((0+0))+((0+813))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),(((char*)__UDT_ID)+((0+0))+((0+815))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),(((char*)__UDT_ID)+((0+0))+((0+817))),400);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),(((char*)__UDT_ID)+((0+0))+((0+1217))),400);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),(((char*)__UDT_ID)+((0+0))+((0+1617))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),(((char*)__UDT_ID)+((0+0))+((0+1873))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),(((char*)__UDT_ID)+((0+0))+((0+2129))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),(((char*)__UDT_ID)+((0+0))+((0+2385))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),(((char*)__UDT_ID)+((0+0))+((0+2389))),256);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),(((char*)__UDT_ID)+((0+0))+((0+2645))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),(((char*)__UDT_ID)+((0+0))+((0+2649))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),(((char*)__UDT_ID)+((0+0))+((0+2651))),100);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),(((char*)__UDT_ID)+((0+0))+((0+2751))),100);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),(((char*)__UDT_ID)+((0+0))+((0+2851))),100);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),(((char*)__UDT_ID)+((0+0))+((0+2951))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),(((char*)__UDT_ID)+((0+0))+((0+2955))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),(((char*)__UDT_ID)+((0+0))+((0+2957))),2);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),(((char*)__UDT_ID)+((0+0))+((0+2959))),4);
#line 25861 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),(((char*)__UDT_ID)+((0+0))+((0+2963))),2);
#line 25861 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))));
#line 25861 "qb64pe.bas"
if(!qbevent)break;evnt(25861);}while(r);
#line 25863 "qb64pe.bas"
do{
#line 25863 "qb64pe.bas"
*__LONG_CURRENTID=*__LONG_IDN;
#line 25863 "qb64pe.bas"
if(!qbevent)break;evnt(25863);}while(r);
#line 25866 "qb64pe.bas"
do{
#line 25866 "qb64pe.bas"
*_SUB_REGID_LONG_HASHFLAGS= 1 ;
#line 25866 "qb64pe.bas"
if(!qbevent)break;evnt(25866);}while(r);
#line 25870 "qb64pe.bas"
S_29886:;
#line 25870 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+548))))||is_error_pending()){
#line 25870 "qb64pe.bas"
if(qbevent){evnt(25870);if(r)goto S_29886;}
#line 25871 "qb64pe.bas"
do{
#line 25871 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)))=*__LONG_REGINTERNALSUBFUNC;
#line 25871 "qb64pe.bas"
if(!qbevent)break;evnt(25871);}while(r);
#line 25872 "qb64pe.bas"
S_29888:;
#line 25872 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
#line 25872 "qb64pe.bas"
if(qbevent){evnt(25872);if(r)goto S_29888;}
#line 25872 "qb64pe.bas"
do{
#line 25872 "qb64pe.bas"
*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 128ll ;
#line 25872 "qb64pe.bas"
if(!qbevent)break;evnt(25872);}while(r);
#line 25872 "qb64pe.bas"
}else{
#line 25872 "qb64pe.bas"
do{
#line 25872 "qb64pe.bas"
*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 64ll ;
#line 25872 "qb64pe.bas"
if(!qbevent)break;evnt(25872);}while(r);
#line 25872 "qb64pe.bas"
}
#line 25873 "qb64pe.bas"
S_29893:;
#line 25873 "qb64pe.bas"
if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||is_error_pending()){
#line 25873 "qb64pe.bas"
if(qbevent){evnt(25873);if(r)goto S_29893;}
#line 25874 "qb64pe.bas"
do{
#line 25874 "qb64pe.bas"
*_SUB_REGID_LONG_HASHCHKFLAGS= 8ll + 1024ll ;
#line 25874 "qb64pe.bas"
if(!qbevent)break;evnt(25874);}while(r);
#line 25875 "qb64pe.bas"
S_29895:;
#line 25875 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
#line 25875 "qb64pe.bas"
if(qbevent){evnt(25875);if(r)goto S_29895;}
#line 25875 "qb64pe.bas"
do{
#line 25875 "qb64pe.bas"
*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 128ll ;
#line 25875 "qb64pe.bas"
if(!qbevent)break;evnt(25875);}while(r);
#line 25875 "qb64pe.bas"
}else{
#line 25875 "qb64pe.bas"
do{
#line 25875 "qb64pe.bas"
*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 64ll ;
#line 25875 "qb64pe.bas"
if(!qbevent)break;evnt(25875);}while(r);
#line 25875 "qb64pe.bas"
}
#line 25876 "qb64pe.bas"
do{
#line 25876 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 25876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25876 "qb64pe.bas"
if(!qbevent)break;evnt(25876);}while(r);
#line 25877 "qb64pe.bas"
S_29901:;
#line 25877 "qb64pe.bas"
while((*_SUB_REGID_LONG_HASHRES)||is_error_pending()){
#line 25877 "qb64pe.bas"
if(qbevent){evnt(25877);if(r)goto S_29901;}
#line 25878 "qb64pe.bas"
S_29902:;
#line 25878 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRES)||is_error_pending()){
#line 25878 "qb64pe.bas"
if(qbevent){evnt(25878);if(r)goto S_29902;}
#line 25882 "qb64pe.bas"
do{
#line 25882 "qb64pe.bas"
*_SUB_REGID_LONG_ALLOW= 0 ;
#line 25882 "qb64pe.bas"
if(!qbevent)break;evnt(25882);}while(r);
#line 25883 "qb64pe.bas"
S_29904:;
#line 25883 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128ll + 64ll ))||is_error_pending()){
#line 25883 "qb64pe.bas"
if(qbevent){evnt(25883);if(r)goto S_29904;}
#line 25884 "qb64pe.bas"
S_29905:;
#line 25884 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 25884 "qb64pe.bas"
if(qbevent){evnt(25884);if(r)goto S_29905;}
#line 25885 "qb64pe.bas"
S_29906:;
#line 25885 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+524))),8,1),qbs_new_txt_len("$",1),0)== 0 )))||is_error_pending()){
#line 25885 "qb64pe.bas"
if(qbevent){evnt(25885);if(r)goto S_29906;}
#line 25885 "qb64pe.bas"
do{
#line 25885 "qb64pe.bas"
*_SUB_REGID_LONG_ALLOW= 1 ;
#line 25885 "qb64pe.bas"
if(!qbevent)break;evnt(25885);}while(r);
#line 25885 "qb64pe.bas"
}
#line 25886 "qb64pe.bas"
}
#line 25887 "qb64pe.bas"
}
#line 25888 "qb64pe.bas"
S_29911:;
#line 25888 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_ALLOW== 0 ))||is_error_pending()){
#line 25888 "qb64pe.bas"
if(qbevent){evnt(25888);if(r)goto S_29911;}
#line 25888 "qb64pe.bas"
do{
#line 25888 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25888 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25888 "qb64pe.bas"
if(!qbevent)break;evnt(25888);}while(r);
#line 25888 "qb64pe.bas"
do{
#line 25888 "qb64pe.bas"
goto exit_subfunc;
#line 25888 "qb64pe.bas"
if(!qbevent)break;evnt(25888);}while(r);
#line 25888 "qb64pe.bas"
}
#line 25889 "qb64pe.bas"
}
#line 25890 "qb64pe.bas"
S_29916:;
#line 25890 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 25890 "qb64pe.bas"
if(qbevent){evnt(25890);if(r)goto S_29916;}
#line 25890 "qb64pe.bas"
do{
#line 25890 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 25890 "qb64pe.bas"
if(!qbevent)break;evnt(25890);}while(r);
#line 25890 "qb64pe.bas"
}else{
#line 25890 "qb64pe.bas"
do{
#line 25890 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES= 0 ;
#line 25890 "qb64pe.bas"
if(!qbevent)break;evnt(25890);}while(r);
#line 25890 "qb64pe.bas"
}
#line 25891 "qb64pe.bas"
dl_continue_3165:;
#line 25891 "qb64pe.bas"
}
#line 25891 "qb64pe.bas"
dl_exit_3165:;
#line 25892 "qb64pe.bas"
S_29922:;
#line 25892 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 25892 "qb64pe.bas"
if(qbevent){evnt(25892);if(r)goto S_29922;}
#line 25893 "qb64pe.bas"
S_29923:;
#line 25893 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1)),0)== 0 )))||is_error_pending()){
#line 25893 "qb64pe.bas"
if(qbevent){evnt(25893);if(r)goto S_29923;}
#line 25894 "qb64pe.bas"
do{
#line 25894 "qb64pe.bas"
qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1)));
#line 25894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25894 "qb64pe.bas"
if(!qbevent)break;evnt(25894);}while(r);
#line 25895 "qb64pe.bas"
}
#line 25896 "qb64pe.bas"
}
#line 25897 "qb64pe.bas"
}
#line 25898 "qb64pe.bas"
}
#line 25901 "qb64pe.bas"
S_29929:;
#line 25901 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
#line 25901 "qb64pe.bas"
if(qbevent){evnt(25901);if(r)goto S_29929;}
#line 25902 "qb64pe.bas"
do{
#line 25902 "qb64pe.bas"
*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 2048ll ;
#line 25902 "qb64pe.bas"
if(!qbevent)break;evnt(25902);}while(r);
#line 25903 "qb64pe.bas"
S_29931:;
#line 25903 "qb64pe.bas"
if ((-(*__LONG_REGINTERNALVARIABLE== 0 ))||is_error_pending()){
#line 25903 "qb64pe.bas"
if(qbevent){evnt(25903);if(r)goto S_29931;}
#line 25904 "qb64pe.bas"
do{
#line 25904 "qb64pe.bas"
*_SUB_REGID_LONG_ALLOW= 0 ;
#line 25904 "qb64pe.bas"
if(!qbevent)break;evnt(25904);}while(r);
#line 25905 "qb64pe.bas"
LABEL_VAR_RECHECK:;
#line 25905 "qb64pe.bas"
if(qbevent){evnt(25905);r=0;}
#line 25906 "qb64pe.bas"
S_29933:;
#line 25906 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1))== 32 )))||is_error_pending()){
#line 25906 "qb64pe.bas"
if(qbevent){evnt(25906);if(r)goto S_29933;}
#line 25906 "qb64pe.bas"
do{
#line 25906 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE2= 1 ;
#line 25906 "qb64pe.bas"
if(!qbevent)break;evnt(25906);}while(r);
#line 25906 "qb64pe.bas"
}
#line 25907 "qb64pe.bas"
do{
#line 25907 "qb64pe.bas"
*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN;
#line 25907 "qb64pe.bas"
if(!qbevent)break;evnt(25907);}while(r);
#line 25908 "qb64pe.bas"
do{
#line 25908 "qb64pe.bas"
*_SUB_REGID_LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 1024ll + 2048ll ;
#line 25908 "qb64pe.bas"
if(!qbevent)break;evnt(25908);}while(r);
#line 25909 "qb64pe.bas"
do{
#line 25909 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 25909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25909 "qb64pe.bas"
if(!qbevent)break;evnt(25909);}while(r);
#line 25910 "qb64pe.bas"
S_29939:;
#line 25910 "qb64pe.bas"
while((*_SUB_REGID_LONG_HASHRES)||is_error_pending()){
#line 25910 "qb64pe.bas"
if(qbevent){evnt(25910);if(r)goto S_29939;}
#line 25913 "qb64pe.bas"
S_29940:;
#line 25913 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
#line 25913 "qb64pe.bas"
if(qbevent){evnt(25913);if(r)goto S_29940;}
#line 25914 "qb64pe.bas"
do{
#line 25914 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)));
#line 25914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25914 "qb64pe.bas"
if(!qbevent)break;evnt(25914);}while(r);
#line 25915 "qb64pe.bas"
S_29942:;
#line 25915 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 25915 "qb64pe.bas"
if(qbevent){evnt(25915);if(r)goto S_29942;}
#line 25918 "qb64pe.bas"
}else{
#line 25919 "qb64pe.bas"
do{
#line 25919 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25919 "qb64pe.bas"
if(!qbevent)break;evnt(25919);}while(r);
#line 25919 "qb64pe.bas"
do{
#line 25919 "qb64pe.bas"
goto exit_subfunc;
#line 25919 "qb64pe.bas"
if(!qbevent)break;evnt(25919);}while(r);
#line 25920 "qb64pe.bas"
}
#line 25921 "qb64pe.bas"
}
#line 25924 "qb64pe.bas"
S_29948:;
#line 25924 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128ll + 64ll ))||is_error_pending()){
#line 25924 "qb64pe.bas"
if(qbevent){evnt(25924);if(r)goto S_29948;}
#line 25925 "qb64pe.bas"
S_29949:;
#line 25925 "qb64pe.bas"
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)))== 0 ))||is_error_pending()){
#line 25925 "qb64pe.bas"
if(qbevent){evnt(25925);if(r)goto S_29949;}
#line 25925 "qb64pe.bas"
do{
#line 25925 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25925 "qb64pe.bas"
if(!qbevent)break;evnt(25925);}while(r);
#line 25925 "qb64pe.bas"
do{
#line 25925 "qb64pe.bas"
goto exit_subfunc;
#line 25925 "qb64pe.bas"
if(!qbevent)break;evnt(25925);}while(r);
#line 25925 "qb64pe.bas"
}
#line 25926 "qb64pe.bas"
S_29953:;
#line 25926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+548)))== 2 ))))||is_error_pending()){
#line 25926 "qb64pe.bas"
if(qbevent){evnt(25926);if(r)goto S_29953;}
#line 25926 "qb64pe.bas"
do{
#line 25926 "qb64pe.bas"
goto LABEL_VARNAME_EXCEPTION;
#line 25926 "qb64pe.bas"
if(!qbevent)break;evnt(25926);}while(r);
#line 25926 "qb64pe.bas"
}
#line 25927 "qb64pe.bas"
do{
#line 25927 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)));
#line 25927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25927 "qb64pe.bas"
if(!qbevent)break;evnt(25927);}while(r);
#line 25928 "qb64pe.bas"
S_29957:;
#line 25928 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||is_error_pending()){
#line 25928 "qb64pe.bas"
if(qbevent){evnt(25928);if(r)goto S_29957;}
#line 25929 "qb64pe.bas"
S_29958:;
#line 25929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 25929 "qb64pe.bas"
if(qbevent){evnt(25929);if(r)goto S_29958;}
#line 25931 "qb64pe.bas"
S_29959:;
#line 25931 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 25931 "qb64pe.bas"
if(qbevent){evnt(25931);if(r)goto S_29959;}
#line 25931 "qb64pe.bas"
do{
#line 25931 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25931 "qb64pe.bas"
if(!qbevent)break;evnt(25931);}while(r);
#line 25931 "qb64pe.bas"
do{
#line 25931 "qb64pe.bas"
goto exit_subfunc;
#line 25931 "qb64pe.bas"
if(!qbevent)break;evnt(25931);}while(r);
#line 25931 "qb64pe.bas"
}
#line 25932 "qb64pe.bas"
}else{
#line 25933 "qb64pe.bas"
do{
#line 25933 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25933 "qb64pe.bas"
if(!qbevent)break;evnt(25933);}while(r);
#line 25933 "qb64pe.bas"
do{
#line 25933 "qb64pe.bas"
goto exit_subfunc;
#line 25933 "qb64pe.bas"
if(!qbevent)break;evnt(25933);}while(r);
#line 25934 "qb64pe.bas"
}
#line 25935 "qb64pe.bas"
}
#line 25936 "qb64pe.bas"
S_29968:;
#line 25936 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 25936 "qb64pe.bas"
if(qbevent){evnt(25936);if(r)goto S_29968;}
#line 25937 "qb64pe.bas"
S_29969:;
#line 25937 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 25937 "qb64pe.bas"
if(qbevent){evnt(25937);if(r)goto S_29969;}
#line 25937 "qb64pe.bas"
do{
#line 25937 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25937 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25937 "qb64pe.bas"
if(!qbevent)break;evnt(25937);}while(r);
#line 25937 "qb64pe.bas"
do{
#line 25937 "qb64pe.bas"
goto exit_subfunc;
#line 25937 "qb64pe.bas"
if(!qbevent)break;evnt(25937);}while(r);
#line 25937 "qb64pe.bas"
}
#line 25939 "qb64pe.bas"
}else{
#line 25940 "qb64pe.bas"
S_29974:;
#line 25940 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 25940 "qb64pe.bas"
if(qbevent){evnt(25940);if(r)goto S_29974;}
#line 25940 "qb64pe.bas"
do{
#line 25940 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25940 "qb64pe.bas"
if(!qbevent)break;evnt(25940);}while(r);
#line 25940 "qb64pe.bas"
do{
#line 25940 "qb64pe.bas"
goto exit_subfunc;
#line 25940 "qb64pe.bas"
if(!qbevent)break;evnt(25940);}while(r);
#line 25940 "qb64pe.bas"
}
#line 25941 "qb64pe.bas"
}
#line 25942 "qb64pe.bas"
}
#line 25945 "qb64pe.bas"
S_29980:;
#line 25945 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS& 1024ll )||is_error_pending()){
#line 25945 "qb64pe.bas"
if(qbevent){evnt(25945);if(r)goto S_29980;}
#line 25946 "qb64pe.bas"
do{
#line 25946 "qb64pe.bas"
*_SUB_REGID_LONG_SCOPE1=((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])];
#line 25946 "qb64pe.bas"
if(!qbevent)break;evnt(25946);}while(r);
#line 25947 "qb64pe.bas"
S_29982:;
#line 25947 "qb64pe.bas"
if (((((-(*_SUB_REGID_LONG_SCOPE1== 0 ))&(-(*__LONG_ALLOWLOCALNAME== 0 ))))|(-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2)))||is_error_pending()){
#line 25947 "qb64pe.bas"
if(qbevent){evnt(25947);if(r)goto S_29982;}
#line 25947 "qb64pe.bas"
do{
#line 25947 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25947 "qb64pe.bas"
if(!qbevent)break;evnt(25947);}while(r);
#line 25947 "qb64pe.bas"
do{
#line 25947 "qb64pe.bas"
goto exit_subfunc;
#line 25947 "qb64pe.bas"
if(!qbevent)break;evnt(25947);}while(r);
#line 25947 "qb64pe.bas"
}
#line 25948 "qb64pe.bas"
}
#line 25951 "qb64pe.bas"
S_29987:;
#line 25951 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS& 2048ll )||is_error_pending()){
#line 25951 "qb64pe.bas"
if(qbevent){evnt(25951);if(r)goto S_29987;}
#line 25952 "qb64pe.bas"
do{
#line 25952 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE1= 0 ;
#line 25952 "qb64pe.bas"
if(!qbevent)break;evnt(25952);}while(r);
#line 25952 "qb64pe.bas"
S_29989:;
#line 25952 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1))== 32 )))||is_error_pending()){
#line 25952 "qb64pe.bas"
if(qbevent){evnt(25952);if(r)goto S_29989;}
#line 25952 "qb64pe.bas"
do{
#line 25952 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE1= 1 ;
#line 25952 "qb64pe.bas"
if(!qbevent)break;evnt(25952);}while(r);
#line 25952 "qb64pe.bas"
}
#line 25953 "qb64pe.bas"
do{
#line 25953 "qb64pe.bas"
*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2645)));
#line 25953 "qb64pe.bas"
if(!qbevent)break;evnt(25953);}while(r);
#line 25954 "qb64pe.bas"
S_29993:;
#line 25954 "qb64pe.bas"
if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||is_error_pending()){
#line 25954 "qb64pe.bas"
if(qbevent){evnt(25954);if(r)goto S_29993;}
#line 25955 "qb64pe.bas"
S_29994:;
#line 25955 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 25955 "qb64pe.bas"
if(qbevent){evnt(25955);if(r)goto S_29994;}
#line 25955 "qb64pe.bas"
do{
#line 25955 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25955 "qb64pe.bas"
if(!qbevent)break;evnt(25955);}while(r);
#line 25955 "qb64pe.bas"
do{
#line 25955 "qb64pe.bas"
goto exit_subfunc;
#line 25955 "qb64pe.bas"
if(!qbevent)break;evnt(25955);}while(r);
#line 25955 "qb64pe.bas"
}
#line 25956 "qb64pe.bas"
}
#line 25958 "qb64pe.bas"
S_29999:;
#line 25958 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+540)))))||is_error_pending()){
#line 25958 "qb64pe.bas"
if(qbevent){evnt(25958);if(r)goto S_29999;}
#line 25959 "qb64pe.bas"
S_30000:;
#line 25959 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+544)))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+544)))))||is_error_pending()){
#line 25959 "qb64pe.bas"
if(qbevent){evnt(25959);if(r)goto S_30000;}
#line 25960 "qb64pe.bas"
S_30001:;
#line 25960 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 25960 "qb64pe.bas"
if(qbevent){evnt(25960);if(r)goto S_30001;}
#line 25960 "qb64pe.bas"
do{
#line 25960 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25960 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25960 "qb64pe.bas"
if(!qbevent)break;evnt(25960);}while(r);
#line 25960 "qb64pe.bas"
do{
#line 25960 "qb64pe.bas"
goto exit_subfunc;
#line 25960 "qb64pe.bas"
if(!qbevent)break;evnt(25960);}while(r);
#line 25960 "qb64pe.bas"
}
#line 25961 "qb64pe.bas"
}
#line 25962 "qb64pe.bas"
}
#line 25964 "qb64pe.bas"
S_30007:;
#line 25964 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 25964 "qb64pe.bas"
if(qbevent){evnt(25964);if(r)goto S_30007;}
#line 25965 "qb64pe.bas"
S_30008:;
#line 25965 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||is_error_pending()){
#line 25965 "qb64pe.bas"
if(qbevent){evnt(25965);if(r)goto S_30008;}
#line 25966 "qb64pe.bas"
S_30009:;
#line 25966 "qb64pe.bas"
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+540)))&*__LONG_ISSTRING)||is_error_pending()){
#line 25966 "qb64pe.bas"
if(qbevent){evnt(25966);if(r)goto S_30009;}
#line 25967 "qb64pe.bas"
S_30010:;
#line 25967 "qb64pe.bas"
if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+540)))&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 25967 "qb64pe.bas"
if(qbevent){evnt(25967);if(r)goto S_30010;}
#line 25968 "qb64pe.bas"
S_30011:;
#line 25968 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 25968 "qb64pe.bas"
if(qbevent){evnt(25968);if(r)goto S_30011;}
#line 25968 "qb64pe.bas"
do{
#line 25968 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25968 "qb64pe.bas"
if(!qbevent)break;evnt(25968);}while(r);
#line 25968 "qb64pe.bas"
do{
#line 25968 "qb64pe.bas"
goto exit_subfunc;
#line 25968 "qb64pe.bas"
if(!qbevent)break;evnt(25968);}while(r);
#line 25968 "qb64pe.bas"
}
#line 25969 "qb64pe.bas"
}
#line 25970 "qb64pe.bas"
}
#line 25971 "qb64pe.bas"
}
#line 25972 "qb64pe.bas"
}
#line 25973 "qb64pe.bas"
}
#line 25975 "qb64pe.bas"
LABEL_VARNAME_EXCEPTION:;
#line 25975 "qb64pe.bas"
if(qbevent){evnt(25975);r=0;}
#line 25976 "qb64pe.bas"
S_30020:;
#line 25976 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 25976 "qb64pe.bas"
if(qbevent){evnt(25976);if(r)goto S_30020;}
#line 25976 "qb64pe.bas"
do{
#line 25976 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 25976 "qb64pe.bas"
if(!qbevent)break;evnt(25976);}while(r);
#line 25976 "qb64pe.bas"
}else{
#line 25976 "qb64pe.bas"
do{
#line 25976 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES= 0 ;
#line 25976 "qb64pe.bas"
if(!qbevent)break;evnt(25976);}while(r);
#line 25976 "qb64pe.bas"
}
#line 25977 "qb64pe.bas"
dl_continue_3166:;
#line 25977 "qb64pe.bas"
}
#line 25977 "qb64pe.bas"
dl_exit_3166:;
#line 25978 "qb64pe.bas"
}
#line 25979 "qb64pe.bas"
}
#line 25982 "qb64pe.bas"
S_30028:;
#line 25982 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 25982 "qb64pe.bas"
if(qbevent){evnt(25982);if(r)goto S_30028;}
#line 25983 "qb64pe.bas"
do{
#line 25983 "qb64pe.bas"
*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 4096ll ;
#line 25983 "qb64pe.bas"
if(!qbevent)break;evnt(25983);}while(r);
#line 25984 "qb64pe.bas"
do{
#line 25984 "qb64pe.bas"
*_SUB_REGID_LONG_ALLOW= 0 ;
#line 25984 "qb64pe.bas"
if(!qbevent)break;evnt(25984);}while(r);
#line 25985 "qb64pe.bas"
LABEL_ARY_RECHECK:;
#line 25985 "qb64pe.bas"
if(qbevent){evnt(25985);r=0;}
#line 25986 "qb64pe.bas"
do{
#line 25986 "qb64pe.bas"
*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN;
#line 25986 "qb64pe.bas"
if(!qbevent)break;evnt(25986);}while(r);
#line 25987 "qb64pe.bas"
S_30032:;
#line 25987 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1))== 32 )))||is_error_pending()){
#line 25987 "qb64pe.bas"
if(qbevent){evnt(25987);if(r)goto S_30032;}
#line 25987 "qb64pe.bas"
do{
#line 25987 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE2= 1 ;
#line 25987 "qb64pe.bas"
if(!qbevent)break;evnt(25987);}while(r);
#line 25987 "qb64pe.bas"
}
#line 25988 "qb64pe.bas"
do{
#line 25988 "qb64pe.bas"
*_SUB_REGID_LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 4096ll ;
#line 25988 "qb64pe.bas"
if(!qbevent)break;evnt(25988);}while(r);
#line 25989 "qb64pe.bas"
do{
#line 25989 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 25989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25989 "qb64pe.bas"
if(!qbevent)break;evnt(25989);}while(r);
#line 25990 "qb64pe.bas"
S_30037:;
#line 25990 "qb64pe.bas"
while((*_SUB_REGID_LONG_HASHRES)||is_error_pending()){
#line 25990 "qb64pe.bas"
if(qbevent){evnt(25990);if(r)goto S_30037;}
#line 25993 "qb64pe.bas"
S_30038:;
#line 25993 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
#line 25993 "qb64pe.bas"
if(qbevent){evnt(25993);if(r)goto S_30038;}
#line 25994 "qb64pe.bas"
do{
#line 25994 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)));
#line 25994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25994 "qb64pe.bas"
if(!qbevent)break;evnt(25994);}while(r);
#line 25995 "qb64pe.bas"
S_30040:;
#line 25995 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 25995 "qb64pe.bas"
if(qbevent){evnt(25995);if(r)goto S_30040;}
#line 25998 "qb64pe.bas"
}else{
#line 25999 "qb64pe.bas"
do{
#line 25999 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 25999 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25999 "qb64pe.bas"
if(!qbevent)break;evnt(25999);}while(r);
#line 25999 "qb64pe.bas"
do{
#line 25999 "qb64pe.bas"
goto exit_subfunc;
#line 25999 "qb64pe.bas"
if(!qbevent)break;evnt(25999);}while(r);
#line 26000 "qb64pe.bas"
}
#line 26001 "qb64pe.bas"
}
#line 26004 "qb64pe.bas"
S_30046:;
#line 26004 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128ll + 64ll ))||is_error_pending()){
#line 26004 "qb64pe.bas"
if(qbevent){evnt(26004);if(r)goto S_30046;}
#line 26005 "qb64pe.bas"
S_30047:;
#line 26005 "qb64pe.bas"
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)))== 0 ))||is_error_pending()){
#line 26005 "qb64pe.bas"
if(qbevent){evnt(26005);if(r)goto S_30047;}
#line 26005 "qb64pe.bas"
do{
#line 26005 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26005 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26005 "qb64pe.bas"
if(!qbevent)break;evnt(26005);}while(r);
#line 26005 "qb64pe.bas"
do{
#line 26005 "qb64pe.bas"
goto exit_subfunc;
#line 26005 "qb64pe.bas"
if(!qbevent)break;evnt(26005);}while(r);
#line 26005 "qb64pe.bas"
}
#line 26006 "qb64pe.bas"
S_30051:;
#line 26006 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+548)))== 2 ))))||is_error_pending()){
#line 26006 "qb64pe.bas"
if(qbevent){evnt(26006);if(r)goto S_30051;}
#line 26006 "qb64pe.bas"
do{
#line 26006 "qb64pe.bas"
goto LABEL_ARRAYNAME_EXCEPTION;
#line 26006 "qb64pe.bas"
if(!qbevent)break;evnt(26006);}while(r);
#line 26006 "qb64pe.bas"
}
#line 26007 "qb64pe.bas"
do{
#line 26007 "qb64pe.bas"
qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)));
#line 26007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26007 "qb64pe.bas"
if(!qbevent)break;evnt(26007);}while(r);
#line 26009 "qb64pe.bas"
S_30055:;
#line 26009 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||is_error_pending()){
#line 26009 "qb64pe.bas"
if(qbevent){evnt(26009);if(r)goto S_30055;}
#line 26010 "qb64pe.bas"
S_30056:;
#line 26010 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 26010 "qb64pe.bas"
if(qbevent){evnt(26010);if(r)goto S_30056;}
#line 26012 "qb64pe.bas"
S_30057:;
#line 26012 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 26012 "qb64pe.bas"
if(qbevent){evnt(26012);if(r)goto S_30057;}
#line 26012 "qb64pe.bas"
do{
#line 26012 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26012 "qb64pe.bas"
if(!qbevent)break;evnt(26012);}while(r);
#line 26012 "qb64pe.bas"
do{
#line 26012 "qb64pe.bas"
goto exit_subfunc;
#line 26012 "qb64pe.bas"
if(!qbevent)break;evnt(26012);}while(r);
#line 26012 "qb64pe.bas"
}
#line 26013 "qb64pe.bas"
}else{
#line 26014 "qb64pe.bas"
do{
#line 26014 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26014 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26014 "qb64pe.bas"
if(!qbevent)break;evnt(26014);}while(r);
#line 26014 "qb64pe.bas"
do{
#line 26014 "qb64pe.bas"
goto exit_subfunc;
#line 26014 "qb64pe.bas"
if(!qbevent)break;evnt(26014);}while(r);
#line 26015 "qb64pe.bas"
}
#line 26016 "qb64pe.bas"
}
#line 26017 "qb64pe.bas"
S_30066:;
#line 26017 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 26017 "qb64pe.bas"
if(qbevent){evnt(26017);if(r)goto S_30066;}
#line 26018 "qb64pe.bas"
S_30067:;
#line 26018 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 26018 "qb64pe.bas"
if(qbevent){evnt(26018);if(r)goto S_30067;}
#line 26018 "qb64pe.bas"
do{
#line 26018 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26018 "qb64pe.bas"
if(!qbevent)break;evnt(26018);}while(r);
#line 26018 "qb64pe.bas"
do{
#line 26018 "qb64pe.bas"
goto exit_subfunc;
#line 26018 "qb64pe.bas"
if(!qbevent)break;evnt(26018);}while(r);
#line 26018 "qb64pe.bas"
}
#line 26020 "qb64pe.bas"
}else{
#line 26021 "qb64pe.bas"
S_30072:;
#line 26021 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 26021 "qb64pe.bas"
if(qbevent){evnt(26021);if(r)goto S_30072;}
#line 26021 "qb64pe.bas"
do{
#line 26021 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26021 "qb64pe.bas"
if(!qbevent)break;evnt(26021);}while(r);
#line 26021 "qb64pe.bas"
do{
#line 26021 "qb64pe.bas"
goto exit_subfunc;
#line 26021 "qb64pe.bas"
if(!qbevent)break;evnt(26021);}while(r);
#line 26021 "qb64pe.bas"
}
#line 26022 "qb64pe.bas"
}
#line 26023 "qb64pe.bas"
}
#line 26026 "qb64pe.bas"
S_30078:;
#line 26026 "qb64pe.bas"
if ((*_SUB_REGID_LONG_HASHRESFLAGS& 4096ll )||is_error_pending()){
#line 26026 "qb64pe.bas"
if(qbevent){evnt(26026);if(r)goto S_30078;}
#line 26027 "qb64pe.bas"
do{
#line 26027 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE1= 0 ;
#line 26027 "qb64pe.bas"
if(!qbevent)break;evnt(26027);}while(r);
#line 26027 "qb64pe.bas"
S_30080:;
#line 26027 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+532))),8,1))== 32 )))||is_error_pending()){
#line 26027 "qb64pe.bas"
if(qbevent){evnt(26027);if(r)goto S_30080;}
#line 26027 "qb64pe.bas"
do{
#line 26027 "qb64pe.bas"
*_SUB_REGID_LONG_ASTYPE1= 1 ;
#line 26027 "qb64pe.bas"
if(!qbevent)break;evnt(26027);}while(r);
#line 26027 "qb64pe.bas"
}
#line 26028 "qb64pe.bas"
do{
#line 26028 "qb64pe.bas"
*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2645)));
#line 26028 "qb64pe.bas"
if(!qbevent)break;evnt(26028);}while(r);
#line 26029 "qb64pe.bas"
S_30084:;
#line 26029 "qb64pe.bas"
if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||is_error_pending()){
#line 26029 "qb64pe.bas"
if(qbevent){evnt(26029);if(r)goto S_30084;}
#line 26030 "qb64pe.bas"
S_30085:;
#line 26030 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 26030 "qb64pe.bas"
if(qbevent){evnt(26030);if(r)goto S_30085;}
#line 26030 "qb64pe.bas"
do{
#line 26030 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26030 "qb64pe.bas"
if(!qbevent)break;evnt(26030);}while(r);
#line 26030 "qb64pe.bas"
do{
#line 26030 "qb64pe.bas"
goto exit_subfunc;
#line 26030 "qb64pe.bas"
if(!qbevent)break;evnt(26030);}while(r);
#line 26030 "qb64pe.bas"
}
#line 26031 "qb64pe.bas"
}
#line 26033 "qb64pe.bas"
S_30090:;
#line 26033 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+512)))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+512)))))||is_error_pending()){
#line 26033 "qb64pe.bas"
if(qbevent){evnt(26033);if(r)goto S_30090;}
#line 26034 "qb64pe.bas"
S_30091:;
#line 26034 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+544)))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+544)))))||is_error_pending()){
#line 26034 "qb64pe.bas"
if(qbevent){evnt(26034);if(r)goto S_30091;}
#line 26035 "qb64pe.bas"
S_30092:;
#line 26035 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 26035 "qb64pe.bas"
if(qbevent){evnt(26035);if(r)goto S_30092;}
#line 26035 "qb64pe.bas"
do{
#line 26035 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26035 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26035 "qb64pe.bas"
if(!qbevent)break;evnt(26035);}while(r);
#line 26035 "qb64pe.bas"
do{
#line 26035 "qb64pe.bas"
goto exit_subfunc;
#line 26035 "qb64pe.bas"
if(!qbevent)break;evnt(26035);}while(r);
#line 26035 "qb64pe.bas"
}
#line 26036 "qb64pe.bas"
}
#line 26037 "qb64pe.bas"
}
#line 26039 "qb64pe.bas"
S_30098:;
#line 26039 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 26039 "qb64pe.bas"
if(qbevent){evnt(26039);if(r)goto S_30098;}
#line 26040 "qb64pe.bas"
S_30099:;
#line 26040 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||is_error_pending()){
#line 26040 "qb64pe.bas"
if(qbevent){evnt(26040);if(r)goto S_30099;}
#line 26041 "qb64pe.bas"
S_30100:;
#line 26041 "qb64pe.bas"
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+512)))&*__LONG_ISSTRING)||is_error_pending()){
#line 26041 "qb64pe.bas"
if(qbevent){evnt(26041);if(r)goto S_30100;}
#line 26042 "qb64pe.bas"
S_30101:;
#line 26042 "qb64pe.bas"
if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+512)))&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 26042 "qb64pe.bas"
if(qbevent){evnt(26042);if(r)goto S_30101;}
#line 26043 "qb64pe.bas"
S_30102:;
#line 26043 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||is_error_pending()){
#line 26043 "qb64pe.bas"
if(qbevent){evnt(26043);if(r)goto S_30102;}
#line 26043 "qb64pe.bas"
do{
#line 26043 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1)));
#line 26043 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26043 "qb64pe.bas"
if(!qbevent)break;evnt(26043);}while(r);
#line 26043 "qb64pe.bas"
do{
#line 26043 "qb64pe.bas"
goto exit_subfunc;
#line 26043 "qb64pe.bas"
if(!qbevent)break;evnt(26043);}while(r);
#line 26043 "qb64pe.bas"
}
#line 26044 "qb64pe.bas"
}
#line 26045 "qb64pe.bas"
}
#line 26046 "qb64pe.bas"
}
#line 26047 "qb64pe.bas"
}
#line 26048 "qb64pe.bas"
}
#line 26050 "qb64pe.bas"
LABEL_ARRAYNAME_EXCEPTION:;
#line 26050 "qb64pe.bas"
if(qbevent){evnt(26050);r=0;}
#line 26051 "qb64pe.bas"
S_30111:;
#line 26051 "qb64pe.bas"
if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 26051 "qb64pe.bas"
if(qbevent){evnt(26051);if(r)goto S_30111;}
#line 26051 "qb64pe.bas"
do{
#line 26051 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF);
#line 26051 "qb64pe.bas"
if(!qbevent)break;evnt(26051);}while(r);
#line 26051 "qb64pe.bas"
}else{
#line 26051 "qb64pe.bas"
do{
#line 26051 "qb64pe.bas"
*_SUB_REGID_LONG_HASHRES= 0 ;
#line 26051 "qb64pe.bas"
if(!qbevent)break;evnt(26051);}while(r);
#line 26051 "qb64pe.bas"
}
#line 26052 "qb64pe.bas"
dl_continue_3168:;
#line 26052 "qb64pe.bas"
}
#line 26052 "qb64pe.bas"
dl_exit_3168:;
#line 26053 "qb64pe.bas"
}
#line 26056 "qb64pe.bas"
do{
#line 26056 "qb64pe.bas"
SUB_HASHADD(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHFLAGS,__LONG_CURRENTID);
#line 26056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26056 "qb64pe.bas"
if(!qbevent)break;evnt(26056);}while(r);
#line 26058 "qb64pe.bas"
exit_subfunc:;
#line 26058 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 26058 "qb64pe.bas"
#include "free80.txt"
#line 26058 "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 26058 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 26058 "qb64pe.bas"
}
