#line 26807 "qb64pe.bas"
void SUB_SETREFER(qbs*_SUB_SETREFER_STRING_A2,int32*_SUB_SETREFER_LONG_TYP2,qbs*_SUB_SETREFER_STRING_E2,int32*_SUB_SETREFER_LONG_METHOD){
#line 26807 "qb64pe.bas"
qbs *tqbs;
#line 26807 "qb64pe.bas"
ptrszint tmp_long;
#line 26807 "qb64pe.bas"
int32 tmp_fileno;
#line 26807 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 26807 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 26807 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 26807 "qb64pe.bas"
#include "data87.txt"
#line 26807 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 26807 "qb64pe.bas"
new_mem_lock();
#line 26807 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 26807 "qb64pe.bas"
sf_mem_lock->type=3;
#line 26807 "qb64pe.bas"
libqb_check_stack();
#line 26807 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 26808 "qb64pe.bas"
do{
#line 26808 "qb64pe.bas"
if(!qbevent)break;evnt(26808);}while(r);
#line 26809 "qb64pe.bas"
do{
#line 26809 "qb64pe.bas"
if(!qbevent)break;evnt(26809);}while(r);
#line 26810 "qb64pe.bas"
do{
#line 26810 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A2);
#line 26810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26810 "qb64pe.bas"
if(!qbevent)break;evnt(26810);}while(r);
#line 26810 "qb64pe.bas"
do{
#line 26810 "qb64pe.bas"
*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2;
#line 26810 "qb64pe.bas"
if(!qbevent)break;evnt(26810);}while(r);
#line 26810 "qb64pe.bas"
do{
#line 26810 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2);
#line 26810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26810 "qb64pe.bas"
if(!qbevent)break;evnt(26810);}while(r);
#line 26811 "qb64pe.bas"
S_34739:;
#line 26811 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||is_error_pending()){
#line 26811 "qb64pe.bas"
if(qbevent){evnt(26811);if(r)goto S_34739;}
#line 26811 "qb64pe.bas"
do{
#line 26811 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E));
#line 26811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26811 "qb64pe.bas"
if(!qbevent)break;evnt(26811);}while(r);
#line 26811 "qb64pe.bas"
}
#line 26812 "qb64pe.bas"
S_34742:;
#line 26812 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26812 "qb64pe.bas"
if(qbevent){evnt(26812);if(r)goto S_34742;}
#line 26812 "qb64pe.bas"
do{
#line 26812 "qb64pe.bas"
goto exit_subfunc;
#line 26812 "qb64pe.bas"
if(!qbevent)break;evnt(26812);}while(r);
#line 26812 "qb64pe.bas"
}
#line 26813 "qb64pe.bas"
do{
#line 26813 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT);
#line 26813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26813 "qb64pe.bas"
if(!qbevent)break;evnt(26813);}while(r);
#line 26821 "qb64pe.bas"
do{
#line 26821 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0);
#line 26821 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26821 "qb64pe.bas"
if(!qbevent)break;evnt(26821);}while(r);
#line 26822 "qb64pe.bas"
S_34747:;
#line 26822 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_I)||is_error_pending()){
#line 26822 "qb64pe.bas"
if(qbevent){evnt(26822);if(r)goto S_34747;}
#line 26823 "qb64pe.bas"
do{
#line 26823 "qb64pe.bas"
*_SUB_SETREFER_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_SUB_SETREFER_STRING_A,*_SUB_SETREFER_LONG_I- 1 )));
#line 26823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26823 "qb64pe.bas"
if(!qbevent)break;evnt(26823);}while(r);
#line 26823 "qb64pe.bas"
do{
#line 26823 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I));
#line 26823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26823 "qb64pe.bas"
if(!qbevent)break;evnt(26823);}while(r);
#line 26824 "qb64pe.bas"
}else{
#line 26825 "qb64pe.bas"
do{
#line 26825 "qb64pe.bas"
*_SUB_SETREFER_LONG_IDNUMBER=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_A));
#line 26825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26825 "qb64pe.bas"
if(!qbevent)break;evnt(26825);}while(r);
#line 26826 "qb64pe.bas"
}
#line 26827 "qb64pe.bas"
do{
#line 26827 "qb64pe.bas"
SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER);
#line 26827 "qb64pe.bas"
if(!qbevent)break;evnt(26827);}while(r);
#line 26828 "qb64pe.bas"
S_34754:;
#line 26828 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26828 "qb64pe.bas"
if(qbevent){evnt(26828);if(r)goto S_34754;}
#line 26828 "qb64pe.bas"
do{
#line 26828 "qb64pe.bas"
goto exit_subfunc;
#line 26828 "qb64pe.bas"
if(!qbevent)break;evnt(26828);}while(r);
#line 26828 "qb64pe.bas"
}
#line 26831 "qb64pe.bas"
S_34757:;
#line 26831 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
#line 26831 "qb64pe.bas"
if(qbevent){evnt(26831);if(r)goto S_34757;}
#line 26834 "qb64pe.bas"
do{
#line 26834 "qb64pe.bas"
*_SUB_SETREFER_LONG_U=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_A));
#line 26834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26834 "qb64pe.bas"
if(!qbevent)break;evnt(26834);}while(r);
#line 26835 "qb64pe.bas"
do{
#line 26835 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0);
#line 26835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26835 "qb64pe.bas"
if(!qbevent)break;evnt(26835);}while(r);
#line 26835 "qb64pe.bas"
do{
#line 26835 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I));
#line 26835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26835 "qb64pe.bas"
if(!qbevent)break;evnt(26835);}while(r);
#line 26835 "qb64pe.bas"
do{
#line 26835 "qb64pe.bas"
*_SUB_SETREFER_LONG_UDTELEM=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_A));
#line 26835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26835 "qb64pe.bas"
if(!qbevent)break;evnt(26835);}while(r);
#line 26836 "qb64pe.bas"
do{
#line 26836 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0);
#line 26836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26836 "qb64pe.bas"
if(!qbevent)break;evnt(26836);}while(r);
#line 26836 "qb64pe.bas"
do{
#line 26836 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_O,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I));
#line 26836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26836 "qb64pe.bas"
if(!qbevent)break;evnt(26836);}while(r);
#line 26837 "qb64pe.bas"
do{
#line 26837 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 26837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26837 "qb64pe.bas"
if(!qbevent)break;evnt(26837);}while(r);
#line 26837 "qb64pe.bas"
S_34765:;
#line 26837 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 26837 "qb64pe.bas"
if(qbevent){evnt(26837);if(r)goto S_34765;}
#line 26837 "qb64pe.bas"
do{
#line 26837 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]",3)));
#line 26837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26837 "qb64pe.bas"
if(!qbevent)break;evnt(26837);}while(r);
#line 26837 "qb64pe.bas"
}
#line 26838 "qb64pe.bas"
do{
#line 26838 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_LHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
#line 26838 "qb64pe.bas"
if(!qbevent)break;evnt(26838);}while(r);
#line 26839 "qb64pe.bas"
do{
#line 26839 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_LHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
#line 26839 "qb64pe.bas"
if(!qbevent)break;evnt(26839);}while(r);
#line 26841 "qb64pe.bas"
S_34770:;
#line 26841 "qb64pe.bas"
if (((-(*_SUB_SETREFER_LONG_UDTELEM!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||is_error_pending()){
#line 26841 "qb64pe.bas"
if(qbevent){evnt(26841);if(r)goto S_34770;}
#line 26842 "qb64pe.bas"
do{
#line 26842 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot set read-only element of _MEM TYPE",41));
#line 26842 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26842 "qb64pe.bas"
if(!qbevent)break;evnt(26842);}while(r);
#line 26842 "qb64pe.bas"
do{
#line 26842 "qb64pe.bas"
goto exit_subfunc;
#line 26842 "qb64pe.bas"
if(!qbevent)break;evnt(26842);}while(r);
#line 26843 "qb64pe.bas"
}
#line 26845 "qb64pe.bas"
S_34774:;
#line 26845 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 26845 "qb64pe.bas"
if(qbevent){evnt(26845);if(r)goto S_34774;}
#line 26848 "qb64pe.bas"
S_34775:;
#line 26848 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||is_error_pending()){
#line 26848 "qb64pe.bas"
if(qbevent){evnt(26848);if(r)goto S_34775;}
#line 26848 "qb64pe.bas"
do{
#line 26848 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected internal code reference to UDT",41));
#line 26848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26848 "qb64pe.bas"
if(!qbevent)break;evnt(26848);}while(r);
#line 26848 "qb64pe.bas"
do{
#line 26848 "qb64pe.bas"
goto exit_subfunc;
#line 26848 "qb64pe.bas"
if(!qbevent)break;evnt(26848);}while(r);
#line 26848 "qb64pe.bas"
}
#line 26849 "qb64pe.bas"
do{
#line 26849 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE());
#line 26849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26849 "qb64pe.bas"
if(!qbevent)break;evnt(26849);}while(r);
#line 26850 "qb64pe.bas"
S_34780:;
#line 26850 "qb64pe.bas"
if ((*__INTEGER_ASG_GUARD_ON)||is_error_pending()){
#line 26850 "qb64pe.bas"
if(qbevent){evnt(26850);if(r)goto S_34780;}
#line 26851 "qb64pe.bas"
do{
#line 26851 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_ASG_EVAL_TEXT,_SUB_SETREFER_STRING_E);
#line 26851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26851 "qb64pe.bas"
if(!qbevent)break;evnt(26851);}while(r);
#line 26852 "qb64pe.bas"
do{
#line 26852 "qb64pe.bas"
SUB_EVALASGRHS(_SUB_SETREFER_STRING_ASG_EVAL_TEXT,_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2);
#line 26852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26852 "qb64pe.bas"
if(!qbevent)break;evnt(26852);}while(r);
#line 26853 "qb64pe.bas"
}else{
#line 26854 "qb64pe.bas"
do{
#line 26854 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATE(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2));
#line 26854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26854 "qb64pe.bas"
if(!qbevent)break;evnt(26854);}while(r);
#line 26855 "qb64pe.bas"
}
#line 26856 "qb64pe.bas"
S_34786:;
#line 26856 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26856 "qb64pe.bas"
if(qbevent){evnt(26856);if(r)goto S_34786;}
#line 26856 "qb64pe.bas"
do{
#line 26856 "qb64pe.bas"
goto exit_subfunc;
#line 26856 "qb64pe.bas"
if(!qbevent)break;evnt(26856);}while(r);
#line 26856 "qb64pe.bas"
}
#line 26857 "qb64pe.bas"
S_34789:;
#line 26857 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 26857 "qb64pe.bas"
if(qbevent){evnt(26857);if(r)goto S_34789;}
#line 26857 "qb64pe.bas"
do{
#line 26857 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36));
#line 26857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26857 "qb64pe.bas"
if(!qbevent)break;evnt(26857);}while(r);
#line 26857 "qb64pe.bas"
do{
#line 26857 "qb64pe.bas"
goto exit_subfunc;
#line 26857 "qb64pe.bas"
if(!qbevent)break;evnt(26857);}while(r);
#line 26857 "qb64pe.bas"
}
#line 26859 "qb64pe.bas"
do{
#line 26859 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_RHSDYNUDT= 0 ;
#line 26859 "qb64pe.bas"
if(!qbevent)break;evnt(26859);}while(r);
#line 26860 "qb64pe.bas"
do{
#line 26860 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_RHSDYNMODE= 0 ;
#line 26860 "qb64pe.bas"
if(!qbevent)break;evnt(26860);}while(r);
#line 26861 "qb64pe.bas"
S_34795:;
#line 26861 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 26861 "qb64pe.bas"
if(qbevent){evnt(26861);if(r)goto S_34795;}
#line 26862 "qb64pe.bas"
S_34796:;
#line 26862 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
#line 26862 "qb64pe.bas"
if(qbevent){evnt(26862);if(r)goto S_34796;}
#line 26863 "qb64pe.bas"
do{
#line 26863 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1)));
#line 26863 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26863 "qb64pe.bas"
if(!qbevent)break;evnt(26863);}while(r);
#line 26864 "qb64pe.bas"
do{
#line 26864 "qb64pe.bas"
*_SUB_SETREFER_LONG_E2= 0 ;
#line 26864 "qb64pe.bas"
if(!qbevent)break;evnt(26864);}while(r);
#line 26864 "qb64pe.bas"
do{
#line 26864 "qb64pe.bas"
*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 4095ll ;
#line 26864 "qb64pe.bas"
if(!qbevent)break;evnt(26864);}while(r);
#line 26865 "qb64pe.bas"
}else{
#line 26866 "qb64pe.bas"
do{
#line 26866 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)&",9),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1)));
#line 26866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26866 "qb64pe.bas"
if(!qbevent)break;evnt(26866);}while(r);
#line 26867 "qb64pe.bas"
do{
#line 26867 "qb64pe.bas"
*_SUB_SETREFER_LONG_E2= 0 ;
#line 26867 "qb64pe.bas"
if(!qbevent)break;evnt(26867);}while(r);
#line 26867 "qb64pe.bas"
do{
#line 26867 "qb64pe.bas"
*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 4095ll ;
#line 26867 "qb64pe.bas"
if(!qbevent)break;evnt(26867);}while(r);
#line 26868 "qb64pe.bas"
}
#line 26869 "qb64pe.bas"
do{
#line 26869 "qb64pe.bas"
goto LABEL_DIRECTUDT;
#line 26869 "qb64pe.bas"
if(!qbevent)break;evnt(26869);}while(r);
#line 26870 "qb64pe.bas"
}
#line 26873 "qb64pe.bas"
do{
#line 26873 "qb64pe.bas"
*_SUB_SETREFER_LONG_IDNUMBER2=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_E));
#line 26873 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26873 "qb64pe.bas"
if(!qbevent)break;evnt(26873);}while(r);
#line 26874 "qb64pe.bas"
do{
#line 26874 "qb64pe.bas"
SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2);
#line 26874 "qb64pe.bas"
if(!qbevent)break;evnt(26874);}while(r);
#line 26877 "qb64pe.bas"
S_34809:;
#line 26877 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26877 "qb64pe.bas"
if(qbevent){evnt(26877);if(r)goto S_34809;}
#line 26877 "qb64pe.bas"
do{
#line 26877 "qb64pe.bas"
goto exit_subfunc;
#line 26877 "qb64pe.bas"
if(!qbevent)break;evnt(26877);}while(r);
#line 26877 "qb64pe.bas"
}
#line 26878 "qb64pe.bas"
do{
#line 26878 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_RHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
#line 26878 "qb64pe.bas"
if(!qbevent)break;evnt(26878);}while(r);
#line 26879 "qb64pe.bas"
do{
#line 26879 "qb64pe.bas"
*_SUB_SETREFER_INTEGER_RHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
#line 26879 "qb64pe.bas"
if(!qbevent)break;evnt(26879);}while(r);
#line 26880 "qb64pe.bas"
do{
#line 26880 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 26880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26880 "qb64pe.bas"
if(!qbevent)break;evnt(26880);}while(r);
#line 26880 "qb64pe.bas"
S_34815:;
#line 26880 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 26880 "qb64pe.bas"
if(qbevent){evnt(26880);if(r)goto S_34815;}
#line 26880 "qb64pe.bas"
do{
#line 26880 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N2),qbs_new_txt_len("[0]",3)));
#line 26880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26880 "qb64pe.bas"
if(!qbevent)break;evnt(26880);}while(r);
#line 26880 "qb64pe.bas"
}
#line 26881 "qb64pe.bas"
do{
#line 26881 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0);
#line 26881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26881 "qb64pe.bas"
if(!qbevent)break;evnt(26881);}while(r);
#line 26881 "qb64pe.bas"
do{
#line 26881 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I));
#line 26881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26881 "qb64pe.bas"
if(!qbevent)break;evnt(26881);}while(r);
#line 26881 "qb64pe.bas"
do{
#line 26881 "qb64pe.bas"
*_SUB_SETREFER_LONG_U2=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_E));
#line 26881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26881 "qb64pe.bas"
if(!qbevent)break;evnt(26881);}while(r);
#line 26882 "qb64pe.bas"
do{
#line 26882 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0);
#line 26882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26882 "qb64pe.bas"
if(!qbevent)break;evnt(26882);}while(r);
#line 26882 "qb64pe.bas"
do{
#line 26882 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I));
#line 26882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26882 "qb64pe.bas"
if(!qbevent)break;evnt(26882);}while(r);
#line 26882 "qb64pe.bas"
do{
#line 26882 "qb64pe.bas"
*_SUB_SETREFER_LONG_E2=qbr(qbs_val<long double>(_SUB_SETREFER_STRING_E));
#line 26882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26882 "qb64pe.bas"
if(!qbevent)break;evnt(26882);}while(r);
#line 26883 "qb64pe.bas"
do{
#line 26883 "qb64pe.bas"
*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0);
#line 26883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26883 "qb64pe.bas"
if(!qbevent)break;evnt(26883);}while(r);
#line 26883 "qb64pe.bas"
do{
#line 26883 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_O2,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I));
#line 26883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26883 "qb64pe.bas"
if(!qbevent)break;evnt(26883);}while(r);
#line 26888 "qb64pe.bas"
do{
#line 26888 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),_SUB_SETREFER_STRING_N2),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(")",1)));
#line 26888 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26888 "qb64pe.bas"
if(!qbevent)break;evnt(26888);}while(r);
#line 26889 "qb64pe.bas"
LABEL_DIRECTUDT:;
#line 26889 "qb64pe.bas"
if(qbevent){evnt(26889);r=0;}
#line 26890 "qb64pe.bas"
S_34827:;
#line 26890 "qb64pe.bas"
if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||is_error_pending()){
#line 26890 "qb64pe.bas"
if(qbevent){evnt(26890);if(r)goto S_34827;}
#line 26890 "qb64pe.bas"
do{
#line 26890 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36));
#line 26890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26890 "qb64pe.bas"
if(!qbevent)break;evnt(26890);}while(r);
#line 26890 "qb64pe.bas"
do{
#line 26890 "qb64pe.bas"
goto exit_subfunc;
#line 26890 "qb64pe.bas"
if(!qbevent)break;evnt(26890);}while(r);
#line 26890 "qb64pe.bas"
}
#line 26891 "qb64pe.bas"
do{
#line 26891 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_LHSSCOPE),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")",1)));
#line 26891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26891 "qb64pe.bas"
if(!qbevent)break;evnt(26891);}while(r);
#line 26892 "qb64pe.bas"
S_34832:;
#line 26892 "qb64pe.bas"
if (((FUNC_UDTDYNHASMEMBERARRAYS(_SUB_SETREFER_LONG_U,&(pass3288=*_SUB_SETREFER_INTEGER_LHSDYNMODE))|((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_SETREFER_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])&(*_SUB_SETREFER_INTEGER_LHSDYNUDT|*_SUB_SETREFER_INTEGER_RHSDYNUDT))||is_error_pending()){
#line 26892 "qb64pe.bas"
if(qbevent){evnt(26892);if(r)goto S_34832;}
#line 26893 "qb64pe.bas"
S_34833:;
#line 26893 "qb64pe.bas"
if (((-(*_SUB_SETREFER_INTEGER_LHSDYNUDT== 0 ))|(-(*_SUB_SETREFER_INTEGER_RHSDYNUDT== 0 )))||is_error_pending()){
#line 26893 "qb64pe.bas"
if(qbevent){evnt(26893);if(r)goto S_34833;}
#line 26893 "qb64pe.bas"
do{
#line 26893 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot assign these TYPE values because their nested-array storage layouts are incompatible",91));
#line 26893 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26893 "qb64pe.bas"
if(!qbevent)break;evnt(26893);}while(r);
#line 26893 "qb64pe.bas"
do{
#line 26893 "qb64pe.bas"
goto exit_subfunc;
#line 26893 "qb64pe.bas"
if(!qbevent)break;evnt(26893);}while(r);
#line 26893 "qb64pe.bas"
}
#line 26894 "qb64pe.bas"
S_34837:;
#line 26894 "qb64pe.bas"
if ((-(*_SUB_SETREFER_INTEGER_LHSDYNMODE!=*_SUB_SETREFER_INTEGER_RHSDYNMODE))||is_error_pending()){
#line 26894 "qb64pe.bas"
if(qbevent){evnt(26894);if(r)goto S_34837;}
#line 26894 "qb64pe.bas"
do{
#line 26894 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot assign these TYPE values because their nested-array storage layouts are incompatible",91));
#line 26894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26894 "qb64pe.bas"
if(!qbevent)break;evnt(26894);}while(r);
#line 26894 "qb64pe.bas"
do{
#line 26894 "qb64pe.bas"
goto exit_subfunc;
#line 26894 "qb64pe.bas"
if(!qbevent)break;evnt(26894);}while(r);
#line 26894 "qb64pe.bas"
}
#line 26895 "qb64pe.bas"
do{
#line 26895 "qb64pe.bas"
SUB_COPY_FULL_UDT_DYN(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,__LONG_MAINTXTBUF,&(pass3289= 0 ),_SUB_SETREFER_LONG_U,&(pass3290=*_SUB_SETREFER_INTEGER_LHSDYNMODE));
#line 26895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26895 "qb64pe.bas"
if(!qbevent)break;evnt(26895);}while(r);
#line 26896 "qb64pe.bas"
}else{
#line 26897 "qb64pe.bas"
do{
#line 26897 "qb64pe.bas"
SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,__LONG_MAINTXTBUF,&(pass3291= 0 ),_SUB_SETREFER_LONG_U);
#line 26897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26897 "qb64pe.bas"
if(!qbevent)break;evnt(26897);}while(r);
#line 26898 "qb64pe.bas"
}
#line 26902 "qb64pe.bas"
do{
#line 26902 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 26902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26902 "qb64pe.bas"
if(!qbevent)break;evnt(26902);}while(r);
#line 26903 "qb64pe.bas"
do{
#line 26903 "qb64pe.bas"
goto exit_subfunc;
#line 26903 "qb64pe.bas"
if(!qbevent)break;evnt(26903);}while(r);
#line 26905 "qb64pe.bas"
}
#line 26907 "qb64pe.bas"
S_34848:;
#line 26907 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 26907 "qb64pe.bas"
if(qbevent){evnt(26907);if(r)goto S_34848;}
#line 26907 "qb64pe.bas"
do{
#line 26907 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61));
#line 26907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26907 "qb64pe.bas"
if(!qbevent)break;evnt(26907);}while(r);
#line 26907 "qb64pe.bas"
do{
#line 26907 "qb64pe.bas"
goto exit_subfunc;
#line 26907 "qb64pe.bas"
if(!qbevent)break;evnt(26907);}while(r);
#line 26907 "qb64pe.bas"
}
#line 26908 "qb64pe.bas"
S_34852:;
#line 26908 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 26908 "qb64pe.bas"
if(qbevent){evnt(26908);if(r)goto S_34852;}
#line 26909 "qb64pe.bas"
S_34853:;
#line 26909 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 26909 "qb64pe.bas"
if(qbevent){evnt(26909);if(r)goto S_34853;}
#line 26910 "qb64pe.bas"
do{
#line 26910 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2)));
#line 26910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26910 "qb64pe.bas"
if(!qbevent)break;evnt(26910);}while(r);
#line 26911 "qb64pe.bas"
do{
#line 26911 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(",",1)),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_SETREFER_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]),NULL,0)),qbs_new_txt_len(",1)",3)));
#line 26911 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26911 "qb64pe.bas"
if(!qbevent)break;evnt(26911);}while(r);
#line 26912 "qb64pe.bas"
}else{
#line 26913 "qb64pe.bas"
do{
#line 26913 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)(",18),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")))",3)));
#line 26913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26913 "qb64pe.bas"
if(!qbevent)break;evnt(26913);}while(r);
#line 26914 "qb64pe.bas"
}
#line 26915 "qb64pe.bas"
S_34859:;
#line 26915 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 26915 "qb64pe.bas"
if(qbevent){evnt(26915);if(r)goto S_34859;}
#line 26915 "qb64pe.bas"
do{
#line 26915 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3292=*__LONG_STRINGTYPE-*__LONG_ISPOINTER)));
#line 26915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26915 "qb64pe.bas"
if(!qbevent)break;evnt(26915);}while(r);
#line 26915 "qb64pe.bas"
}
#line 26916 "qb64pe.bas"
S_34862:;
#line 26916 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26916 "qb64pe.bas"
if(qbevent){evnt(26916);if(r)goto S_34862;}
#line 26916 "qb64pe.bas"
do{
#line 26916 "qb64pe.bas"
goto exit_subfunc;
#line 26916 "qb64pe.bas"
if(!qbevent)break;evnt(26916);}while(r);
#line 26916 "qb64pe.bas"
}
#line 26917 "qb64pe.bas"
do{
#line 26917 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)));
#line 26917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26917 "qb64pe.bas"
if(!qbevent)break;evnt(26917);}while(r);
#line 26918 "qb64pe.bas"
do{
#line 26918 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 26918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26918 "qb64pe.bas"
if(!qbevent)break;evnt(26918);}while(r);
#line 26919 "qb64pe.bas"
}else{
#line 26920 "qb64pe.bas"
do{
#line 26920 "qb64pe.bas"
*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER;
#line 26920 "qb64pe.bas"
if(!qbevent)break;evnt(26920);}while(r);
#line 26921 "qb64pe.bas"
S_34869:;
#line 26921 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||is_error_pending()){
#line 26921 "qb64pe.bas"
if(qbevent){evnt(26921);if(r)goto S_34869;}
#line 26921 "qb64pe.bas"
do{
#line 26921 "qb64pe.bas"
*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY;
#line 26921 "qb64pe.bas"
if(!qbevent)break;evnt(26921);}while(r);
#line 26921 "qb64pe.bas"
}
#line 26922 "qb64pe.bas"
do{
#line 26922 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,FUNC_TYP2CTYP(_SUB_SETREFER_LONG_TYP,qbs_new_txt_len("",0)));
#line 26922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26922 "qb64pe.bas"
if(!qbevent)break;evnt(26922);}while(r);
#line 26923 "qb64pe.bas"
S_34873:;
#line 26923 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26923 "qb64pe.bas"
if(qbevent){evnt(26923);if(r)goto S_34873;}
#line 26923 "qb64pe.bas"
do{
#line 26923 "qb64pe.bas"
goto exit_subfunc;
#line 26923 "qb64pe.bas"
if(!qbevent)break;evnt(26923);}while(r);
#line 26923 "qb64pe.bas"
}
#line 26924 "qb64pe.bas"
do{
#line 26924 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2)));
#line 26924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26924 "qb64pe.bas"
if(!qbevent)break;evnt(26924);}while(r);
#line 26925 "qb64pe.bas"
do{
#line 26925 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)",2)),_SUB_SETREFER_STRING_O2));
#line 26925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26925 "qb64pe.bas"
if(!qbevent)break;evnt(26925);}while(r);
#line 26926 "qb64pe.bas"
S_34878:;
#line 26926 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 26926 "qb64pe.bas"
if(qbevent){evnt(26926);if(r)goto S_34878;}
#line 26926 "qb64pe.bas"
do{
#line 26926 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP));
#line 26926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26926 "qb64pe.bas"
if(!qbevent)break;evnt(26926);}while(r);
#line 26926 "qb64pe.bas"
}
#line 26927 "qb64pe.bas"
S_34881:;
#line 26927 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26927 "qb64pe.bas"
if(qbevent){evnt(26927);if(r)goto S_34881;}
#line 26927 "qb64pe.bas"
do{
#line 26927 "qb64pe.bas"
goto exit_subfunc;
#line 26927 "qb64pe.bas"
if(!qbevent)break;evnt(26927);}while(r);
#line 26927 "qb64pe.bas"
}
#line 26928 "qb64pe.bas"
do{
#line 26928 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)));
#line 26928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26928 "qb64pe.bas"
if(!qbevent)break;evnt(26928);}while(r);
#line 26929 "qb64pe.bas"
}
#line 26932 "qb64pe.bas"
do{
#line 26932 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 26932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26932 "qb64pe.bas"
if(!qbevent)break;evnt(26932);}while(r);
#line 26933 "qb64pe.bas"
S_34887:;
#line 26933 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 26933 "qb64pe.bas"
if(qbevent){evnt(26933);if(r)goto S_34887;}
#line 26933 "qb64pe.bas"
do{
#line 26933 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0));
#line 26933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26933 "qb64pe.bas"
if(!qbevent)break;evnt(26933);}while(r);
#line 26933 "qb64pe.bas"
}
#line 26934 "qb64pe.bas"
do{
#line 26934 "qb64pe.bas"
goto exit_subfunc;
#line 26934 "qb64pe.bas"
if(!qbevent)break;evnt(26934);}while(r);
#line 26935 "qb64pe.bas"
}
#line 26939 "qb64pe.bas"
S_34892:;
#line 26939 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 26939 "qb64pe.bas"
if(qbevent){evnt(26939);if(r)goto S_34892;}
#line 26940 "qb64pe.bas"
do{
#line 26940 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 26940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26940 "qb64pe.bas"
if(!qbevent)break;evnt(26940);}while(r);
#line 26941 "qb64pe.bas"
do{
#line 26941 "qb64pe.bas"
*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE;
#line 26941 "qb64pe.bas"
if(!qbevent)break;evnt(26941);}while(r);
#line 26943 "qb64pe.bas"
S_34895:;
#line 26943 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 26943 "qb64pe.bas"
if(qbevent){evnt(26943);if(r)goto S_34895;}
#line 26944 "qb64pe.bas"
S_34896:;
#line 26944 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 26944 "qb64pe.bas"
if(qbevent){evnt(26944);if(r)goto S_34896;}
#line 26945 "qb64pe.bas"
do{
#line 26945 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long*",15)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0)),qbs_new_txt_len("]",1)));
#line 26945 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26945 "qb64pe.bas"
if(!qbevent)break;evnt(26945);}while(r);
#line 26946 "qb64pe.bas"
do{
#line 26946 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_OFFSET),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0)),qbs_new_txt_len(",1)",3)));
#line 26946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26946 "qb64pe.bas"
if(!qbevent)break;evnt(26946);}while(r);
#line 26947 "qb64pe.bas"
do{
#line 26947 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)));
#line 26947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26947 "qb64pe.bas"
if(!qbevent)break;evnt(26947);}while(r);
#line 26948 "qb64pe.bas"
S_34900:;
#line 26948 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 26948 "qb64pe.bas"
if(qbevent){evnt(26948);if(r)goto S_34900;}
#line 26949 "qb64pe.bas"
do{
#line 26949 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) qbs_set(",33),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2)));
#line 26949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26949 "qb64pe.bas"
if(!qbevent)break;evnt(26949);}while(r);
#line 26950 "qb64pe.bas"
S_34902:;
#line 26950 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26950 "qb64pe.bas"
if(qbevent){evnt(26950);if(r)goto S_34902;}
#line 26950 "qb64pe.bas"
do{
#line 26950 "qb64pe.bas"
goto exit_subfunc;
#line 26950 "qb64pe.bas"
if(!qbevent)break;evnt(26950);}while(r);
#line 26950 "qb64pe.bas"
}
#line 26951 "qb64pe.bas"
}else{
#line 26952 "qb64pe.bas"
do{
#line 26952 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) qbs_set(",33),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)));
#line 26952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26952 "qb64pe.bas"
if(!qbevent)break;evnt(26952);}while(r);
#line 26953 "qb64pe.bas"
}
#line 26954 "qb64pe.bas"
do{
#line 26954 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 26954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26954 "qb64pe.bas"
if(!qbevent)break;evnt(26954);}while(r);
#line 26955 "qb64pe.bas"
}else{
#line 26956 "qb64pe.bas"
do{
#line 26956 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)));
#line 26956 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26956 "qb64pe.bas"
if(!qbevent)break;evnt(26956);}while(r);
#line 26957 "qb64pe.bas"
S_34911:;
#line 26957 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 26957 "qb64pe.bas"
if(qbevent){evnt(26957);if(r)goto S_34911;}
#line 26958 "qb64pe.bas"
do{
#line 26958 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) qbs_set( ((qbs**)(",43),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long],",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2)));
#line 26958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26958 "qb64pe.bas"
if(!qbevent)break;evnt(26958);}while(r);
#line 26959 "qb64pe.bas"
S_34913:;
#line 26959 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26959 "qb64pe.bas"
if(qbevent){evnt(26959);if(r)goto S_34913;}
#line 26959 "qb64pe.bas"
do{
#line 26959 "qb64pe.bas"
goto exit_subfunc;
#line 26959 "qb64pe.bas"
if(!qbevent)break;evnt(26959);}while(r);
#line 26959 "qb64pe.bas"
}
#line 26960 "qb64pe.bas"
}else{
#line 26961 "qb64pe.bas"
do{
#line 26961 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) qbs_set( ((qbs**)(",43),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long],",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)));
#line 26961 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26961 "qb64pe.bas"
if(!qbevent)break;evnt(26961);}while(r);
#line 26962 "qb64pe.bas"
}
#line 26963 "qb64pe.bas"
do{
#line 26963 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 26963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26963 "qb64pe.bas"
if(!qbevent)break;evnt(26963);}while(r);
#line 26964 "qb64pe.bas"
}
#line 26965 "qb64pe.bas"
do{
#line 26965 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 26965 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26965 "qb64pe.bas"
if(!qbevent)break;evnt(26965);}while(r);
#line 26966 "qb64pe.bas"
do{
#line 26966 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 26966 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26966 "qb64pe.bas"
if(!qbevent)break;evnt(26966);}while(r);
#line 26967 "qb64pe.bas"
S_34923:;
#line 26967 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 26967 "qb64pe.bas"
if(qbevent){evnt(26967);if(r)goto S_34923;}
#line 26967 "qb64pe.bas"
do{
#line 26967 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0));
#line 26967 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26967 "qb64pe.bas"
if(!qbevent)break;evnt(26967);}while(r);
#line 26967 "qb64pe.bas"
}
#line 26968 "qb64pe.bas"
do{
#line 26968 "qb64pe.bas"
goto exit_subfunc;
#line 26968 "qb64pe.bas"
if(!qbevent)break;evnt(26968);}while(r);
#line 26969 "qb64pe.bas"
}
#line 26971 "qb64pe.bas"
S_34928:;
#line 26971 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 26971 "qb64pe.bas"
if(qbevent){evnt(26971);if(r)goto S_34928;}
#line 26973 "qb64pe.bas"
do{
#line 26973 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),qbs__tostr((int64)(*_SUB_SETREFER_LONG_TYP& 4095ll ),NULL,0)),qbs_new_txt_len(",",1)));
#line 26973 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26973 "qb64pe.bas"
if(!qbevent)break;evnt(26973);}while(r);
#line 26974 "qb64pe.bas"
do{
#line 26974 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",tmp_long,",10)));
#line 26974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26974 "qb64pe.bas"
if(!qbevent)break;evnt(26974);}while(r);
#line 26975 "qb64pe.bas"
do{
#line 26975 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)));
#line 26975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26975 "qb64pe.bas"
if(!qbevent)break;evnt(26975);}while(r);
#line 26976 "qb64pe.bas"
S_34932:;
#line 26976 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 26976 "qb64pe.bas"
if(qbevent){evnt(26976);if(r)goto S_34932;}
#line 26977 "qb64pe.bas"
do{
#line 26977 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) ",25),_SUB_SETREFER_STRING_R),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2)));
#line 26977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26977 "qb64pe.bas"
if(!qbevent)break;evnt(26977);}while(r);
#line 26978 "qb64pe.bas"
S_34934:;
#line 26978 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 26978 "qb64pe.bas"
if(qbevent){evnt(26978);if(r)goto S_34934;}
#line 26978 "qb64pe.bas"
do{
#line 26978 "qb64pe.bas"
goto exit_subfunc;
#line 26978 "qb64pe.bas"
if(!qbevent)break;evnt(26978);}while(r);
#line 26978 "qb64pe.bas"
}
#line 26979 "qb64pe.bas"
}else{
#line 26980 "qb64pe.bas"
do{
#line 26980 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) ",25),_SUB_SETREFER_STRING_R),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)));
#line 26980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26980 "qb64pe.bas"
if(!qbevent)break;evnt(26980);}while(r);
#line 26981 "qb64pe.bas"
}
#line 26982 "qb64pe.bas"
do{
#line 26982 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 26982 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26982 "qb64pe.bas"
if(!qbevent)break;evnt(26982);}while(r);
#line 26983 "qb64pe.bas"
do{
#line 26983 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 26983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26983 "qb64pe.bas"
if(!qbevent)break;evnt(26983);}while(r);
#line 26984 "qb64pe.bas"
do{
#line 26984 "qb64pe.bas"
goto exit_subfunc;
#line 26984 "qb64pe.bas"
if(!qbevent)break;evnt(26984);}while(r);
#line 26985 "qb64pe.bas"
}else{
#line 26986 "qb64pe.bas"
do{
#line 26986 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0));
#line 26986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26986 "qb64pe.bas"
if(!qbevent)break;evnt(26986);}while(r);
#line 26987 "qb64pe.bas"
S_34945:;
#line 26987 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 26987 "qb64pe.bas"
if(qbevent){evnt(26987);if(r)goto S_34945;}
#line 26988 "qb64pe.bas"
S_34946:;
#line 26988 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 26988 "qb64pe.bas"
if(qbevent){evnt(26988);if(r)goto S_34946;}
#line 26988 "qb64pe.bas"
do{
#line 26988 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5));
#line 26988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26988 "qb64pe.bas"
if(!qbevent)break;evnt(26988);}while(r);
#line 26988 "qb64pe.bas"
}
#line 26989 "qb64pe.bas"
S_34949:;
#line 26989 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 26989 "qb64pe.bas"
if(qbevent){evnt(26989);if(r)goto S_34949;}
#line 26989 "qb64pe.bas"
do{
#line 26989 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6));
#line 26989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26989 "qb64pe.bas"
if(!qbevent)break;evnt(26989);}while(r);
#line 26989 "qb64pe.bas"
}
#line 26990 "qb64pe.bas"
S_34952:;
#line 26990 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 256 ))||is_error_pending()){
#line 26990 "qb64pe.bas"
if(qbevent){evnt(26990);if(r)goto S_34952;}
#line 26990 "qb64pe.bas"
do{
#line 26990 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11));
#line 26990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26990 "qb64pe.bas"
if(!qbevent)break;evnt(26990);}while(r);
#line 26990 "qb64pe.bas"
}
#line 26991 "qb64pe.bas"
}else{
#line 26992 "qb64pe.bas"
S_34956:;
#line 26992 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 26992 "qb64pe.bas"
if(qbevent){evnt(26992);if(r)goto S_34956;}
#line 26993 "qb64pe.bas"
S_34957:;
#line 26993 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 8 ))||is_error_pending()){
#line 26993 "qb64pe.bas"
if(qbevent){evnt(26993);if(r)goto S_34957;}
#line 26993 "qb64pe.bas"
do{
#line 26993 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5));
#line 26993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26993 "qb64pe.bas"
if(!qbevent)break;evnt(26993);}while(r);
#line 26993 "qb64pe.bas"
}
#line 26994 "qb64pe.bas"
S_34960:;
#line 26994 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 16 ))||is_error_pending()){
#line 26994 "qb64pe.bas"
if(qbevent){evnt(26994);if(r)goto S_34960;}
#line 26994 "qb64pe.bas"
do{
#line 26994 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6));
#line 26994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26994 "qb64pe.bas"
if(!qbevent)break;evnt(26994);}while(r);
#line 26994 "qb64pe.bas"
}
#line 26995 "qb64pe.bas"
S_34963:;
#line 26995 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 26995 "qb64pe.bas"
if(qbevent){evnt(26995);if(r)goto S_34963;}
#line 26995 "qb64pe.bas"
do{
#line 26995 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6));
#line 26995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26995 "qb64pe.bas"
if(!qbevent)break;evnt(26995);}while(r);
#line 26995 "qb64pe.bas"
}
#line 26996 "qb64pe.bas"
S_34966:;
#line 26996 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 26996 "qb64pe.bas"
if(qbevent){evnt(26996);if(r)goto S_34966;}
#line 26996 "qb64pe.bas"
do{
#line 26996 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6));
#line 26996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26996 "qb64pe.bas"
if(!qbevent)break;evnt(26996);}while(r);
#line 26996 "qb64pe.bas"
}
#line 26997 "qb64pe.bas"
S_34969:;
#line 26997 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||is_error_pending()){
#line 26997 "qb64pe.bas"
if(qbevent){evnt(26997);if(r)goto S_34969;}
#line 26997 "qb64pe.bas"
do{
#line 26997 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9));
#line 26997 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26997 "qb64pe.bas"
if(!qbevent)break;evnt(26997);}while(r);
#line 26997 "qb64pe.bas"
}
#line 26998 "qb64pe.bas"
}else{
#line 26999 "qb64pe.bas"
S_34973:;
#line 26999 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 8 ))||is_error_pending()){
#line 26999 "qb64pe.bas"
if(qbevent){evnt(26999);if(r)goto S_34973;}
#line 26999 "qb64pe.bas"
do{
#line 26999 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4));
#line 26999 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 26999 "qb64pe.bas"
if(!qbevent)break;evnt(26999);}while(r);
#line 26999 "qb64pe.bas"
}
#line 27000 "qb64pe.bas"
S_34976:;
#line 27000 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 16 ))||is_error_pending()){
#line 27000 "qb64pe.bas"
if(qbevent){evnt(27000);if(r)goto S_34976;}
#line 27000 "qb64pe.bas"
do{
#line 27000 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5));
#line 27000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27000 "qb64pe.bas"
if(!qbevent)break;evnt(27000);}while(r);
#line 27000 "qb64pe.bas"
}
#line 27001 "qb64pe.bas"
S_34979:;
#line 27001 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 27001 "qb64pe.bas"
if(qbevent){evnt(27001);if(r)goto S_34979;}
#line 27001 "qb64pe.bas"
do{
#line 27001 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5));
#line 27001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27001 "qb64pe.bas"
if(!qbevent)break;evnt(27001);}while(r);
#line 27001 "qb64pe.bas"
}
#line 27002 "qb64pe.bas"
S_34982:;
#line 27002 "qb64pe.bas"
if ((-((*_SUB_SETREFER_LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 27002 "qb64pe.bas"
if(qbevent){evnt(27002);if(r)goto S_34982;}
#line 27002 "qb64pe.bas"
do{
#line 27002 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5));
#line 27002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27002 "qb64pe.bas"
if(!qbevent)break;evnt(27002);}while(r);
#line 27002 "qb64pe.bas"
}
#line 27003 "qb64pe.bas"
S_34985:;
#line 27003 "qb64pe.bas"
if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||is_error_pending()){
#line 27003 "qb64pe.bas"
if(qbevent){evnt(27003);if(r)goto S_34985;}
#line 27003 "qb64pe.bas"
do{
#line 27003 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8));
#line 27003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27003 "qb64pe.bas"
if(!qbevent)break;evnt(27003);}while(r);
#line 27003 "qb64pe.bas"
}
#line 27004 "qb64pe.bas"
}
#line 27005 "qb64pe.bas"
}
#line 27006 "qb64pe.bas"
}
#line 27007 "qb64pe.bas"
S_34991:;
#line 27007 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27007 "qb64pe.bas"
if(qbevent){evnt(27007);if(r)goto S_34991;}
#line 27007 "qb64pe.bas"
do{
#line 27007 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39));
#line 27007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27007 "qb64pe.bas"
if(!qbevent)break;evnt(27007);}while(r);
#line 27007 "qb64pe.bas"
do{
#line 27007 "qb64pe.bas"
goto exit_subfunc;
#line 27007 "qb64pe.bas"
if(!qbevent)break;evnt(27007);}while(r);
#line 27007 "qb64pe.bas"
}
#line 27008 "qb64pe.bas"
do{
#line 27008 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)));
#line 27008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27008 "qb64pe.bas"
if(!qbevent)break;evnt(27008);}while(r);
#line 27009 "qb64pe.bas"
S_34996:;
#line 27009 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 27009 "qb64pe.bas"
if(qbevent){evnt(27009);if(r)goto S_34996;}
#line 27010 "qb64pe.bas"
do{
#line 27010 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) ((",27),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(";",1)));
#line 27010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27010 "qb64pe.bas"
if(!qbevent)break;evnt(27010);}while(r);
#line 27011 "qb64pe.bas"
S_34998:;
#line 27011 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27011 "qb64pe.bas"
if(qbevent){evnt(27011);if(r)goto S_34998;}
#line 27011 "qb64pe.bas"
do{
#line 27011 "qb64pe.bas"
goto exit_subfunc;
#line 27011 "qb64pe.bas"
if(!qbevent)break;evnt(27011);}while(r);
#line 27011 "qb64pe.bas"
}
#line 27012 "qb64pe.bas"
}else{
#line 27013 "qb64pe.bas"
do{
#line 27013 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!is_error_pending()) ((",27),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)));
#line 27013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27013 "qb64pe.bas"
if(!qbevent)break;evnt(27013);}while(r);
#line 27014 "qb64pe.bas"
}
#line 27016 "qb64pe.bas"
do{
#line 27016 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27016 "qb64pe.bas"
if(!qbevent)break;evnt(27016);}while(r);
#line 27017 "qb64pe.bas"
do{
#line 27017 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 27017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27017 "qb64pe.bas"
if(!qbevent)break;evnt(27017);}while(r);
#line 27018 "qb64pe.bas"
do{
#line 27018 "qb64pe.bas"
goto exit_subfunc;
#line 27018 "qb64pe.bas"
if(!qbevent)break;evnt(27018);}while(r);
#line 27019 "qb64pe.bas"
}
#line 27022 "qb64pe.bas"
S_35008:;
#line 27022 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
#line 27022 "qb64pe.bas"
if(qbevent){evnt(27022);if(r)goto S_35008;}
#line 27023 "qb64pe.bas"
do{
#line 27023 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
#line 27023 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27023 "qb64pe.bas"
if(!qbevent)break;evnt(27023);}while(r);
#line 27024 "qb64pe.bas"
do{
#line 27024 "qb64pe.bas"
*_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 27024 "qb64pe.bas"
if(!qbevent)break;evnt(27024);}while(r);
#line 27026 "qb64pe.bas"
S_35011:;
#line 27026 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
#line 27026 "qb64pe.bas"
if(qbevent){evnt(27026);if(r)goto S_35011;}
#line 27026 "qb64pe.bas"
do{
#line 27026 "qb64pe.bas"
*_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
#line 27026 "qb64pe.bas"
if(!qbevent)break;evnt(27026);}while(r);
#line 27026 "qb64pe.bas"
}
#line 27027 "qb64pe.bas"
do{
#line 27027 "qb64pe.bas"
*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T;
#line 27027 "qb64pe.bas"
if(!qbevent)break;evnt(27027);}while(r);
#line 27030 "qb64pe.bas"
S_35015:;
#line 27030 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||is_error_pending()){
#line 27030 "qb64pe.bas"
if(qbevent){evnt(27030);if(r)goto S_35015;}
#line 27031 "qb64pe.bas"
S_35016:;
#line 27031 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 27031 "qb64pe.bas"
if(qbevent){evnt(27031);if(r)goto S_35016;}
#line 27032 "qb64pe.bas"
do{
#line 27032 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0)),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R));
#line 27032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27032 "qb64pe.bas"
if(!qbevent)break;evnt(27032);}while(r);
#line 27033 "qb64pe.bas"
}else{
#line 27034 "qb64pe.bas"
do{
#line 27034 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_SUB_SETREFER_STRING_R));
#line 27034 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27034 "qb64pe.bas"
if(!qbevent)break;evnt(27034);}while(r);
#line 27035 "qb64pe.bas"
}
#line 27036 "qb64pe.bas"
S_35021:;
#line 27036 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 27036 "qb64pe.bas"
if(qbevent){evnt(27036);if(r)goto S_35021;}
#line 27036 "qb64pe.bas"
do{
#line 27036 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,__LONG_ISSTRING));
#line 27036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27036 "qb64pe.bas"
if(!qbevent)break;evnt(27036);}while(r);
#line 27036 "qb64pe.bas"
}
#line 27037 "qb64pe.bas"
S_35024:;
#line 27037 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27037 "qb64pe.bas"
if(qbevent){evnt(27037);if(r)goto S_35024;}
#line 27037 "qb64pe.bas"
do{
#line 27037 "qb64pe.bas"
goto exit_subfunc;
#line 27037 "qb64pe.bas"
if(!qbevent)break;evnt(27037);}while(r);
#line 27037 "qb64pe.bas"
}
#line 27038 "qb64pe.bas"
do{
#line 27038 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)));
#line 27038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27038 "qb64pe.bas"
if(!qbevent)break;evnt(27038);}while(r);
#line 27039 "qb64pe.bas"
do{
#line 27039 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27039 "qb64pe.bas"
if(!qbevent)break;evnt(27039);}while(r);
#line 27040 "qb64pe.bas"
S_35029:;
#line 27040 "qb64pe.bas"
if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||is_error_pending()){
#line 27040 "qb64pe.bas"
if(qbevent){evnt(27040);if(r)goto S_35029;}
#line 27040 "qb64pe.bas"
do{
#line 27040 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 27040 "qb64pe.bas"
if(!qbevent)break;evnt(27040);}while(r);
#line 27040 "qb64pe.bas"
}
#line 27041 "qb64pe.bas"
do{
#line 27041 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 27041 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27041 "qb64pe.bas"
if(!qbevent)break;evnt(27041);}while(r);
#line 27042 "qb64pe.bas"
S_35033:;
#line 27042 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 27042 "qb64pe.bas"
if(qbevent){evnt(27042);if(r)goto S_35033;}
#line 27042 "qb64pe.bas"
do{
#line 27042 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0));
#line 27042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27042 "qb64pe.bas"
if(!qbevent)break;evnt(27042);}while(r);
#line 27042 "qb64pe.bas"
}
#line 27043 "qb64pe.bas"
do{
#line 27043 "qb64pe.bas"
goto exit_subfunc;
#line 27043 "qb64pe.bas"
if(!qbevent)break;evnt(27043);}while(r);
#line 27044 "qb64pe.bas"
}
#line 27047 "qb64pe.bas"
S_35038:;
#line 27047 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 27047 "qb64pe.bas"
if(qbevent){evnt(27047);if(r)goto S_35038;}
#line 27048 "qb64pe.bas"
do{
#line 27048 "qb64pe.bas"
*_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 4095ll ;
#line 27048 "qb64pe.bas"
if(!qbevent)break;evnt(27048);}while(r);
#line 27049 "qb64pe.bas"
S_35040:;
#line 27049 "qb64pe.bas"
if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 27049 "qb64pe.bas"
if(qbevent){evnt(27049);if(r)goto S_35040;}
#line 27050 "qb64pe.bas"
do{
#line 27050 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),qbs__tostr((int64)(*_SUB_SETREFER_LONG_T& 4095ll ),NULL,0)),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R));
#line 27050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27050 "qb64pe.bas"
if(!qbevent)break;evnt(27050);}while(r);
#line 27051 "qb64pe.bas"
S_35042:;
#line 27051 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 27051 "qb64pe.bas"
if(qbevent){evnt(27051);if(r)goto S_35042;}
#line 27051 "qb64pe.bas"
do{
#line 27051 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3293= 64 +*__LONG_ISUNSIGNED)));
#line 27051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27051 "qb64pe.bas"
if(!qbevent)break;evnt(27051);}while(r);
#line 27051 "qb64pe.bas"
}
#line 27052 "qb64pe.bas"
S_35045:;
#line 27052 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27052 "qb64pe.bas"
if(qbevent){evnt(27052);if(r)goto S_35045;}
#line 27052 "qb64pe.bas"
do{
#line 27052 "qb64pe.bas"
goto exit_subfunc;
#line 27052 "qb64pe.bas"
if(!qbevent)break;evnt(27052);}while(r);
#line 27052 "qb64pe.bas"
}
#line 27053 "qb64pe.bas"
do{
#line 27053 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=(",2)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),qbs__tostr((int64)(((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]),NULL,0)),qbs_new_txt_len(";",1)));
#line 27053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27053 "qb64pe.bas"
if(!qbevent)break;evnt(27053);}while(r);
#line 27054 "qb64pe.bas"
do{
#line 27054 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27054 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27054 "qb64pe.bas"
if(!qbevent)break;evnt(27054);}while(r);
#line 27055 "qb64pe.bas"
}else{
#line 27056 "qb64pe.bas"
do{
#line 27056 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),qbs__tostr((int64)(*_SUB_SETREFER_LONG_T& 4095ll ),NULL,0)),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R));
#line 27056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27056 "qb64pe.bas"
if(!qbevent)break;evnt(27056);}while(r);
#line 27057 "qb64pe.bas"
S_35052:;
#line 27057 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 27057 "qb64pe.bas"
if(qbevent){evnt(27057);if(r)goto S_35052;}
#line 27057 "qb64pe.bas"
do{
#line 27057 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3294= 64 )));
#line 27057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27057 "qb64pe.bas"
if(!qbevent)break;evnt(27057);}while(r);
#line 27057 "qb64pe.bas"
}
#line 27058 "qb64pe.bas"
S_35055:;
#line 27058 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27058 "qb64pe.bas"
if(qbevent){evnt(27058);if(r)goto S_35055;}
#line 27058 "qb64pe.bas"
do{
#line 27058 "qb64pe.bas"
goto exit_subfunc;
#line 27058 "qb64pe.bas"
if(!qbevent)break;evnt(27058);}while(r);
#line 27058 "qb64pe.bas"
}
#line 27059 "qb64pe.bas"
do{
#line 27059 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_SUB_SETREFER_STRING_R),qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),qbs__tostr((long double)(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 ))),NULL,0)),qbs_new_txt_len("){",2)));
#line 27059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27059 "qb64pe.bas"
if(!qbevent)break;evnt(27059);}while(r);
#line 27060 "qb64pe.bas"
do{
#line 27060 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27060 "qb64pe.bas"
if(!qbevent)break;evnt(27060);}while(r);
#line 27062 "qb64pe.bas"
do{
#line 27062 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("|=",2)),qbs__tostr((int64)(((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5])]),NULL,0)),qbs_new_txt_len(";",1)));
#line 27062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27062 "qb64pe.bas"
if(!qbevent)break;evnt(27062);}while(r);
#line 27063 "qb64pe.bas"
do{
#line 27063 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27063 "qb64pe.bas"
if(!qbevent)break;evnt(27063);}while(r);
#line 27064 "qb64pe.bas"
do{
#line 27064 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 27064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27064 "qb64pe.bas"
if(!qbevent)break;evnt(27064);}while(r);
#line 27066 "qb64pe.bas"
do{
#line 27066 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("&=",2)),qbs__tostr((int64)(((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]),NULL,0)),qbs_new_txt_len(";",1)));
#line 27066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27066 "qb64pe.bas"
if(!qbevent)break;evnt(27066);}while(r);
#line 27067 "qb64pe.bas"
do{
#line 27067 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27067 "qb64pe.bas"
if(!qbevent)break;evnt(27067);}while(r);
#line 27068 "qb64pe.bas"
do{
#line 27068 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 27068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27068 "qb64pe.bas"
if(!qbevent)break;evnt(27068);}while(r);
#line 27069 "qb64pe.bas"
}
#line 27070 "qb64pe.bas"
S_35067:;
#line 27070 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 27070 "qb64pe.bas"
if(qbevent){evnt(27070);if(r)goto S_35067;}
#line 27070 "qb64pe.bas"
do{
#line 27070 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27070 "qb64pe.bas"
if(!qbevent)break;evnt(27070);}while(r);
#line 27070 "qb64pe.bas"
do{
#line 27070 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
#line 27070 "qb64pe.bas"
if(!qbevent)break;evnt(27070);}while(r);
#line 27070 "qb64pe.bas"
}
#line 27071 "qb64pe.bas"
S_35071:;
#line 27071 "qb64pe.bas"
if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||is_error_pending()){
#line 27071 "qb64pe.bas"
if(qbevent){evnt(27071);if(r)goto S_35071;}
#line 27071 "qb64pe.bas"
do{
#line 27071 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 27071 "qb64pe.bas"
if(!qbevent)break;evnt(27071);}while(r);
#line 27071 "qb64pe.bas"
}
#line 27072 "qb64pe.bas"
do{
#line 27072 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 27072 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27072 "qb64pe.bas"
if(!qbevent)break;evnt(27072);}while(r);
#line 27073 "qb64pe.bas"
S_35075:;
#line 27073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 27073 "qb64pe.bas"
if(qbevent){evnt(27073);if(r)goto S_35075;}
#line 27073 "qb64pe.bas"
do{
#line 27073 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0));
#line 27073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27073 "qb64pe.bas"
if(!qbevent)break;evnt(27073);}while(r);
#line 27073 "qb64pe.bas"
}
#line 27074 "qb64pe.bas"
do{
#line 27074 "qb64pe.bas"
goto exit_subfunc;
#line 27074 "qb64pe.bas"
if(!qbevent)break;evnt(27074);}while(r);
#line 27075 "qb64pe.bas"
}
#line 27078 "qb64pe.bas"
S_35080:;
#line 27078 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||is_error_pending()){
#line 27078 "qb64pe.bas"
if(qbevent){evnt(27078);if(r)goto S_35080;}
#line 27078 "qb64pe.bas"
do{
#line 27078 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_SUB_SETREFER_STRING_R));
#line 27078 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27078 "qb64pe.bas"
if(!qbevent)break;evnt(27078);}while(r);
#line 27078 "qb64pe.bas"
do{
#line 27078 "qb64pe.bas"
goto LABEL_SREF;
#line 27078 "qb64pe.bas"
if(!qbevent)break;evnt(27078);}while(r);
#line 27078 "qb64pe.bas"
}
#line 27079 "qb64pe.bas"
S_35084:;
#line 27079 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||is_error_pending()){
#line 27079 "qb64pe.bas"
if(qbevent){evnt(27079);if(r)goto S_35084;}
#line 27079 "qb64pe.bas"
do{
#line 27079 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_SUB_SETREFER_STRING_R));
#line 27079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27079 "qb64pe.bas"
if(!qbevent)break;evnt(27079);}while(r);
#line 27079 "qb64pe.bas"
do{
#line 27079 "qb64pe.bas"
goto LABEL_SREF;
#line 27079 "qb64pe.bas"
if(!qbevent)break;evnt(27079);}while(r);
#line 27079 "qb64pe.bas"
}
#line 27080 "qb64pe.bas"
S_35088:;
#line 27080 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||is_error_pending()){
#line 27080 "qb64pe.bas"
if(qbevent){evnt(27080);if(r)goto S_35088;}
#line 27080 "qb64pe.bas"
do{
#line 27080 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_SUB_SETREFER_STRING_R));
#line 27080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27080 "qb64pe.bas"
if(!qbevent)break;evnt(27080);}while(r);
#line 27080 "qb64pe.bas"
do{
#line 27080 "qb64pe.bas"
goto LABEL_SREF;
#line 27080 "qb64pe.bas"
if(!qbevent)break;evnt(27080);}while(r);
#line 27080 "qb64pe.bas"
}
#line 27081 "qb64pe.bas"
S_35092:;
#line 27081 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||is_error_pending()){
#line 27081 "qb64pe.bas"
if(qbevent){evnt(27081);if(r)goto S_35092;}
#line 27081 "qb64pe.bas"
do{
#line 27081 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_SUB_SETREFER_STRING_R));
#line 27081 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27081 "qb64pe.bas"
if(!qbevent)break;evnt(27081);}while(r);
#line 27081 "qb64pe.bas"
do{
#line 27081 "qb64pe.bas"
goto LABEL_SREF;
#line 27081 "qb64pe.bas"
if(!qbevent)break;evnt(27081);}while(r);
#line 27081 "qb64pe.bas"
}
#line 27082 "qb64pe.bas"
S_35096:;
#line 27082 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||is_error_pending()){
#line 27082 "qb64pe.bas"
if(qbevent){evnt(27082);if(r)goto S_35096;}
#line 27082 "qb64pe.bas"
do{
#line 27082 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_SUB_SETREFER_STRING_R));
#line 27082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27082 "qb64pe.bas"
if(!qbevent)break;evnt(27082);}while(r);
#line 27082 "qb64pe.bas"
do{
#line 27082 "qb64pe.bas"
goto LABEL_SREF;
#line 27082 "qb64pe.bas"
if(!qbevent)break;evnt(27082);}while(r);
#line 27082 "qb64pe.bas"
}
#line 27083 "qb64pe.bas"
S_35100:;
#line 27083 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||is_error_pending()){
#line 27083 "qb64pe.bas"
if(qbevent){evnt(27083);if(r)goto S_35100;}
#line 27083 "qb64pe.bas"
do{
#line 27083 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_SUB_SETREFER_STRING_R));
#line 27083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27083 "qb64pe.bas"
if(!qbevent)break;evnt(27083);}while(r);
#line 27083 "qb64pe.bas"
do{
#line 27083 "qb64pe.bas"
goto LABEL_SREF;
#line 27083 "qb64pe.bas"
if(!qbevent)break;evnt(27083);}while(r);
#line 27083 "qb64pe.bas"
}
#line 27084 "qb64pe.bas"
S_35104:;
#line 27084 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||is_error_pending()){
#line 27084 "qb64pe.bas"
if(qbevent){evnt(27084);if(r)goto S_35104;}
#line 27084 "qb64pe.bas"
do{
#line 27084 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_SUB_SETREFER_STRING_R));
#line 27084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27084 "qb64pe.bas"
if(!qbevent)break;evnt(27084);}while(r);
#line 27084 "qb64pe.bas"
do{
#line 27084 "qb64pe.bas"
goto LABEL_SREF;
#line 27084 "qb64pe.bas"
if(!qbevent)break;evnt(27084);}while(r);
#line 27084 "qb64pe.bas"
}
#line 27085 "qb64pe.bas"
S_35108:;
#line 27085 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||is_error_pending()){
#line 27085 "qb64pe.bas"
if(qbevent){evnt(27085);if(r)goto S_35108;}
#line 27085 "qb64pe.bas"
do{
#line 27085 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_SUB_SETREFER_STRING_R));
#line 27085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27085 "qb64pe.bas"
if(!qbevent)break;evnt(27085);}while(r);
#line 27085 "qb64pe.bas"
do{
#line 27085 "qb64pe.bas"
goto LABEL_SREF;
#line 27085 "qb64pe.bas"
if(!qbevent)break;evnt(27085);}while(r);
#line 27085 "qb64pe.bas"
}
#line 27086 "qb64pe.bas"
S_35112:;
#line 27086 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||is_error_pending()){
#line 27086 "qb64pe.bas"
if(qbevent){evnt(27086);if(r)goto S_35112;}
#line 27086 "qb64pe.bas"
do{
#line 27086 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_SUB_SETREFER_STRING_R));
#line 27086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27086 "qb64pe.bas"
if(!qbevent)break;evnt(27086);}while(r);
#line 27086 "qb64pe.bas"
do{
#line 27086 "qb64pe.bas"
goto LABEL_SREF;
#line 27086 "qb64pe.bas"
if(!qbevent)break;evnt(27086);}while(r);
#line 27086 "qb64pe.bas"
}
#line 27087 "qb64pe.bas"
S_35116:;
#line 27087 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||is_error_pending()){
#line 27087 "qb64pe.bas"
if(qbevent){evnt(27087);if(r)goto S_35116;}
#line 27087 "qb64pe.bas"
do{
#line 27087 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_SUB_SETREFER_STRING_R));
#line 27087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27087 "qb64pe.bas"
if(!qbevent)break;evnt(27087);}while(r);
#line 27087 "qb64pe.bas"
do{
#line 27087 "qb64pe.bas"
goto LABEL_SREF;
#line 27087 "qb64pe.bas"
if(!qbevent)break;evnt(27087);}while(r);
#line 27087 "qb64pe.bas"
}
#line 27088 "qb64pe.bas"
S_35120:;
#line 27088 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||is_error_pending()){
#line 27088 "qb64pe.bas"
if(qbevent){evnt(27088);if(r)goto S_35120;}
#line 27088 "qb64pe.bas"
do{
#line 27088 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_SUB_SETREFER_STRING_R));
#line 27088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27088 "qb64pe.bas"
if(!qbevent)break;evnt(27088);}while(r);
#line 27088 "qb64pe.bas"
do{
#line 27088 "qb64pe.bas"
goto LABEL_SREF;
#line 27088 "qb64pe.bas"
if(!qbevent)break;evnt(27088);}while(r);
#line 27088 "qb64pe.bas"
}
#line 27089 "qb64pe.bas"
S_35124:;
#line 27089 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||is_error_pending()){
#line 27089 "qb64pe.bas"
if(qbevent){evnt(27089);if(r)goto S_35124;}
#line 27089 "qb64pe.bas"
do{
#line 27089 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_SUB_SETREFER_STRING_R));
#line 27089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27089 "qb64pe.bas"
if(!qbevent)break;evnt(27089);}while(r);
#line 27089 "qb64pe.bas"
do{
#line 27089 "qb64pe.bas"
goto LABEL_SREF;
#line 27089 "qb64pe.bas"
if(!qbevent)break;evnt(27089);}while(r);
#line 27089 "qb64pe.bas"
}
#line 27090 "qb64pe.bas"
S_35128:;
#line 27090 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||is_error_pending()){
#line 27090 "qb64pe.bas"
if(qbevent){evnt(27090);if(r)goto S_35128;}
#line 27090 "qb64pe.bas"
do{
#line 27090 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_SUB_SETREFER_STRING_R));
#line 27090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27090 "qb64pe.bas"
if(!qbevent)break;evnt(27090);}while(r);
#line 27090 "qb64pe.bas"
do{
#line 27090 "qb64pe.bas"
goto LABEL_SREF;
#line 27090 "qb64pe.bas"
if(!qbevent)break;evnt(27090);}while(r);
#line 27090 "qb64pe.bas"
}
#line 27091 "qb64pe.bas"
LABEL_SREF:;
#line 27091 "qb64pe.bas"
if(qbevent){evnt(27091);r=0;}
#line 27092 "qb64pe.bas"
do{
#line 27092 "qb64pe.bas"
*_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER;
#line 27092 "qb64pe.bas"
if(!qbevent)break;evnt(27092);}while(r);
#line 27093 "qb64pe.bas"
S_35133:;
#line 27093 "qb64pe.bas"
if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||is_error_pending()){
#line 27093 "qb64pe.bas"
if(qbevent){evnt(27093);if(r)goto S_35133;}
#line 27093 "qb64pe.bas"
do{
#line 27093 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2));
#line 27093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27093 "qb64pe.bas"
if(!qbevent)break;evnt(27093);}while(r);
#line 27093 "qb64pe.bas"
}
#line 27094 "qb64pe.bas"
S_35136:;
#line 27094 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27094 "qb64pe.bas"
if(qbevent){evnt(27094);if(r)goto S_35136;}
#line 27094 "qb64pe.bas"
do{
#line 27094 "qb64pe.bas"
goto exit_subfunc;
#line 27094 "qb64pe.bas"
if(!qbevent)break;evnt(27094);}while(r);
#line 27094 "qb64pe.bas"
}
#line 27095 "qb64pe.bas"
do{
#line 27095 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)));
#line 27095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27095 "qb64pe.bas"
if(!qbevent)break;evnt(27095);}while(r);
#line 27096 "qb64pe.bas"
do{
#line 27096 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,_SUB_SETREFER_STRING_L);
#line 27096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27096 "qb64pe.bas"
if(!qbevent)break;evnt(27096);}while(r);
#line 27097 "qb64pe.bas"
S_35141:;
#line 27097 "qb64pe.bas"
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
#line 27097 "qb64pe.bas"
if(qbevent){evnt(27097);if(r)goto S_35141;}
#line 27097 "qb64pe.bas"
do{
#line 27097 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27097 "qb64pe.bas"
if(!qbevent)break;evnt(27097);}while(r);
#line 27097 "qb64pe.bas"
do{
#line 27097 "qb64pe.bas"
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
#line 27097 "qb64pe.bas"
if(!qbevent)break;evnt(27097);}while(r);
#line 27097 "qb64pe.bas"
}
#line 27098 "qb64pe.bas"
S_35145:;
#line 27098 "qb64pe.bas"
if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||is_error_pending()){
#line 27098 "qb64pe.bas"
if(qbevent){evnt(27098);if(r)goto S_35145;}
#line 27098 "qb64pe.bas"
do{
#line 27098 "qb64pe.bas"
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
#line 27098 "qb64pe.bas"
if(!qbevent)break;evnt(27098);}while(r);
#line 27098 "qb64pe.bas"
}
#line 27099 "qb64pe.bas"
do{
#line 27099 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 27099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27099 "qb64pe.bas"
if(!qbevent)break;evnt(27099);}while(r);
#line 27101 "qb64pe.bas"
S_35149:;
#line 27101 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
#line 27101 "qb64pe.bas"
if(qbevent){evnt(27101);if(r)goto S_35149;}
#line 27101 "qb64pe.bas"
do{
#line 27101 "qb64pe.bas"
qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0));
#line 27101 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27101 "qb64pe.bas"
if(!qbevent)break;evnt(27101);}while(r);
#line 27101 "qb64pe.bas"
}
#line 27102 "qb64pe.bas"
do{
#line 27102 "qb64pe.bas"
goto exit_subfunc;
#line 27102 "qb64pe.bas"
if(!qbevent)break;evnt(27102);}while(r);
#line 27103 "qb64pe.bas"
}
#line 27105 "qb64pe.bas"
do{
#line 27105 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL);
#line 27105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27105 "qb64pe.bas"
if(!qbevent)break;evnt(27105);}while(r);
#line 27106 "qb64pe.bas"
exit_subfunc:;
#line 27106 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27106 "qb64pe.bas"
#include "free87.txt"
#line 27106 "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 27106 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27106 "qb64pe.bas"
}
