#line 27113 "qb64pe.bas"
int32 FUNC_VALIDLABEL(qbs*_FUNC_VALIDLABEL_STRING_LABEL2){
#line 27113 "qb64pe.bas"
qbs *tqbs;
#line 27113 "qb64pe.bas"
ptrszint tmp_long;
#line 27113 "qb64pe.bas"
int32 tmp_fileno;
#line 27113 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27113 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27113 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27113 "qb64pe.bas"
#include "data89.txt"
#line 27113 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27113 "qb64pe.bas"
new_mem_lock();
#line 27113 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27113 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27113 "qb64pe.bas"
libqb_check_stack();
#line 27113 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27114 "qb64pe.bas"
do{
#line 27114 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_CREATE=*__LONG_CREATINGLABEL;
#line 27114 "qb64pe.bas"
if(!qbevent)break;evnt(27114);}while(r);
#line 27114 "qb64pe.bas"
do{
#line 27114 "qb64pe.bas"
*__LONG_CREATINGLABEL= 0 ;
#line 27114 "qb64pe.bas"
if(!qbevent)break;evnt(27114);}while(r);
#line 27115 "qb64pe.bas"
do{
#line 27115 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ;
#line 27115 "qb64pe.bas"
if(!qbevent)break;evnt(27115);}while(r);
#line 27116 "qb64pe.bas"
S_35160:;
#line 27116 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||is_error_pending()){
#line 27116 "qb64pe.bas"
if(qbevent){evnt(27116);if(r)goto S_35160;}
#line 27116 "qb64pe.bas"
do{
#line 27116 "qb64pe.bas"
goto exit_subfunc;
#line 27116 "qb64pe.bas"
if(!qbevent)break;evnt(27116);}while(r);
#line 27116 "qb64pe.bas"
}
#line 27117 "qb64pe.bas"
do{
#line 27117 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2);
#line 27117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27117 "qb64pe.bas"
if(!qbevent)break;evnt(27117);}while(r);
#line 27118 "qb64pe.bas"
do{
#line 27118 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL2));
#line 27118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27118 "qb64pe.bas"
if(!qbevent)break;evnt(27118);}while(r);
#line 27120 "qb64pe.bas"
do{
#line 27120 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL);
#line 27120 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27120 "qb64pe.bas"
if(!qbevent)break;evnt(27120);}while(r);
#line 27122 "qb64pe.bas"
S_35166:;
#line 27122 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||is_error_pending()){
#line 27122 "qb64pe.bas"
if(qbevent){evnt(27122);if(r)goto S_35166;}
#line 27125 "qb64pe.bas"
do{
#line 27125 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3297= 8ll + 64ll + 128ll ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF);
#line 27125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27125 "qb64pe.bas"
if(!qbevent)break;evnt(27125);}while(r);
#line 27126 "qb64pe.bas"
S_35168:;
#line 27126 "qb64pe.bas"
while((*_FUNC_VALIDLABEL_LONG_HASHRES)||is_error_pending()){
#line 27126 "qb64pe.bas"
if(qbevent){evnt(27126);if(r)goto S_35168;}
#line 27127 "qb64pe.bas"
S_35169:;
#line 27127 "qb64pe.bas"
if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
#line 27127 "qb64pe.bas"
if(qbevent){evnt(27127);if(r)goto S_35169;}
#line 27128 "qb64pe.bas"
S_35170:;
#line 27128 "qb64pe.bas"
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552))))||is_error_pending()){
#line 27128 "qb64pe.bas"
if(qbevent){evnt(27128);if(r)goto S_35170;}
#line 27128 "qb64pe.bas"
do{
#line 27128 "qb64pe.bas"
goto exit_subfunc;
#line 27128 "qb64pe.bas"
if(!qbevent)break;evnt(27128);}while(r);
#line 27128 "qb64pe.bas"
}
#line 27130 "qb64pe.bas"
S_35173:;
#line 27130 "qb64pe.bas"
if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64ll )||is_error_pending()){
#line 27130 "qb64pe.bas"
if(qbevent){evnt(27130);if(r)goto S_35173;}
#line 27133 "qb64pe.bas"
S_35174:;
#line 27133 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+1617))),256,1))== 32 )))||is_error_pending()){
#line 27133 "qb64pe.bas"
if(qbevent){evnt(27133);if(r)goto S_35174;}
#line 27134 "qb64pe.bas"
S_35175:;
#line 27134 "qb64pe.bas"
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 0 ))||is_error_pending()){
#line 27134 "qb64pe.bas"
if(qbevent){evnt(27134);if(r)goto S_35175;}
#line 27134 "qb64pe.bas"
do{
#line 27134 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ;
#line 27134 "qb64pe.bas"
if(!qbevent)break;evnt(27134);}while(r);
#line 27134 "qb64pe.bas"
}else{
#line 27134 "qb64pe.bas"
do{
#line 27134 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ;
#line 27134 "qb64pe.bas"
if(!qbevent)break;evnt(27134);}while(r);
#line 27134 "qb64pe.bas"
}
#line 27135 "qb64pe.bas"
}else{
#line 27136 "qb64pe.bas"
S_35181:;
#line 27136 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+1617))),256,1))!= 91 )))||is_error_pending()){
#line 27136 "qb64pe.bas"
if(qbevent){evnt(27136);if(r)goto S_35181;}
#line 27137 "qb64pe.bas"
do{
#line 27137 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ;
#line 27137 "qb64pe.bas"
if(!qbevent)break;evnt(27137);}while(r);
#line 27138 "qb64pe.bas"
}else{
#line 27139 "qb64pe.bas"
do{
#line 27139 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ;
#line 27139 "qb64pe.bas"
if(!qbevent)break;evnt(27139);}while(r);
#line 27140 "qb64pe.bas"
do{
#line 27140 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+1617))),256,1)));
#line 27140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27140 "qb64pe.bas"
if(!qbevent)break;evnt(27140);}while(r);
#line 27141 "qb64pe.bas"
do{
#line 27141 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_B= 1 ;
#line 27141 "qb64pe.bas"
if(!qbevent)break;evnt(27141);}while(r);
#line 27142 "qb64pe.bas"
S_35187:;
#line 27142 "qb64pe.bas"
fornext_value3300= 2 ;
#line 27142 "qb64pe.bas"
fornext_finalvalue3300=_FUNC_VALIDLABEL_STRING_A->len;
#line 27142 "qb64pe.bas"
fornext_step3300= 1 ;
#line 27142 "qb64pe.bas"
if (fornext_step3300<0) fornext_step_negative3300=1; else fornext_step_negative3300=0;
#line 27142 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3300;
#line 27142 "qb64pe.bas"
goto fornext_entrylabel3300;
#line 27142 "qb64pe.bas"
while(1){
#line 27142 "qb64pe.bas"
fornext_value3300=fornext_step3300+(*_FUNC_VALIDLABEL_LONG_X);
#line 27142 "qb64pe.bas"
fornext_entrylabel3300:
#line 27142 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_X=fornext_value3300;
#line 27142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27142 "qb64pe.bas"
if (fornext_step_negative3300){
#line 27142 "qb64pe.bas"
if (fornext_value3300<fornext_finalvalue3300) break;
#line 27142 "qb64pe.bas"
}else{
#line 27142 "qb64pe.bas"
if (fornext_value3300>fornext_finalvalue3300) break;
#line 27142 "qb64pe.bas"
}
#line 27142 "qb64pe.bas"
fornext_error3300:;
#line 27142 "qb64pe.bas"
if(qbevent){evnt(27142);if(r)goto S_35187;}
#line 27143 "qb64pe.bas"
do{
#line 27143 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_A,*_FUNC_VALIDLABEL_LONG_X);
#line 27143 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27143 "qb64pe.bas"
if(!qbevent)break;evnt(27143);}while(r);
#line 27144 "qb64pe.bas"
S_35189:;
#line 27144 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||is_error_pending()){
#line 27144 "qb64pe.bas"
if(qbevent){evnt(27144);if(r)goto S_35189;}
#line 27144 "qb64pe.bas"
do{
#line 27144 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ;
#line 27144 "qb64pe.bas"
if(!qbevent)break;evnt(27144);}while(r);
#line 27144 "qb64pe.bas"
}
#line 27145 "qb64pe.bas"
S_35192:;
#line 27145 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||is_error_pending()){
#line 27145 "qb64pe.bas"
if(qbevent){evnt(27145);if(r)goto S_35192;}
#line 27145 "qb64pe.bas"
do{
#line 27145 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ;
#line 27145 "qb64pe.bas"
if(!qbevent)break;evnt(27145);}while(r);
#line 27145 "qb64pe.bas"
}
#line 27146 "qb64pe.bas"
S_35195:;
#line 27146 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_B== 0 ))&(-(*_FUNC_VALIDLABEL_LONG_X!=_FUNC_VALIDLABEL_STRING_A->len))))||is_error_pending()){
#line 27146 "qb64pe.bas"
if(qbevent){evnt(27146);if(r)goto S_35195;}
#line 27146 "qb64pe.bas"
do{
#line 27146 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ;
#line 27146 "qb64pe.bas"
if(!qbevent)break;evnt(27146);}while(r);
#line 27146 "qb64pe.bas"
do{
#line 27146 "qb64pe.bas"
goto fornext_exit_3299;
#line 27146 "qb64pe.bas"
if(!qbevent)break;evnt(27146);}while(r);
#line 27146 "qb64pe.bas"
}
#line 27147 "qb64pe.bas"
fornext_continue_3299:;
#line 27147 "qb64pe.bas"
}
#line 27147 "qb64pe.bas"
fornext_exit_3299:;
#line 27148 "qb64pe.bas"
}
#line 27149 "qb64pe.bas"
}
#line 27150 "qb64pe.bas"
S_35202:;
#line 27150 "qb64pe.bas"
if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||is_error_pending()){
#line 27150 "qb64pe.bas"
if(qbevent){evnt(27150);if(r)goto S_35202;}
#line 27151 "qb64pe.bas"
S_35203:;
#line 27151 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP),0)== 0 )))||is_error_pending()){
#line 27151 "qb64pe.bas"
if(qbevent){evnt(27151);if(r)goto S_35203;}
#line 27151 "qb64pe.bas"
do{
#line 27151 "qb64pe.bas"
qbs_set(__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING_POSSIBLESUBNAMELABELS,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP));
#line 27151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27151 "qb64pe.bas"
if(!qbevent)break;evnt(27151);}while(r);
#line 27151 "qb64pe.bas"
do{
#line 27151 "qb64pe.bas"
goto exit_subfunc;
#line 27151 "qb64pe.bas"
if(!qbevent)break;evnt(27151);}while(r);
#line 27151 "qb64pe.bas"
}
#line 27152 "qb64pe.bas"
}
#line 27154 "qb64pe.bas"
}
#line 27156 "qb64pe.bas"
}else{
#line 27158 "qb64pe.bas"
do{
#line 27158 "qb64pe.bas"
goto exit_subfunc;
#line 27158 "qb64pe.bas"
if(!qbevent)break;evnt(27158);}while(r);
#line 27159 "qb64pe.bas"
}
#line 27160 "qb64pe.bas"
S_35212:;
#line 27160 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 27160 "qb64pe.bas"
if(qbevent){evnt(27160);if(r)goto S_35212;}
#line 27160 "qb64pe.bas"
do{
#line 27160 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF);
#line 27160 "qb64pe.bas"
if(!qbevent)break;evnt(27160);}while(r);
#line 27160 "qb64pe.bas"
}else{
#line 27160 "qb64pe.bas"
do{
#line 27160 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_HASHRES= 0 ;
#line 27160 "qb64pe.bas"
if(!qbevent)break;evnt(27160);}while(r);
#line 27160 "qb64pe.bas"
}
#line 27161 "qb64pe.bas"
dl_continue_3298:;
#line 27161 "qb64pe.bas"
}
#line 27161 "qb64pe.bas"
dl_exit_3298:;
#line 27167 "qb64pe.bas"
do{
#line 27167 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL);
#line 27167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27167 "qb64pe.bas"
if(!qbevent)break;evnt(27167);}while(r);
#line 27169 "qb64pe.bas"
do{
#line 27169 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T);
#line 27169 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27169 "qb64pe.bas"
if(!qbevent)break;evnt(27169);}while(r);
#line 27170 "qb64pe.bas"
S_35220:;
#line 27170 "qb64pe.bas"
if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||is_error_pending()){
#line 27170 "qb64pe.bas"
if(qbevent){evnt(27170);if(r)goto S_35220;}
#line 27173 "qb64pe.bas"
do{
#line 27173 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_X=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,func_chr( 44 ),0);
#line 27173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27173 "qb64pe.bas"
if(!qbevent)break;evnt(27173);}while(r);
#line 27174 "qb64pe.bas"
S_35222:;
#line 27174 "qb64pe.bas"
if ((*_FUNC_VALIDLABEL_LONG_X)||is_error_pending()){
#line 27174 "qb64pe.bas"
if(qbevent){evnt(27174);if(r)goto S_35222;}
#line 27175 "qb64pe.bas"
do{
#line 27175 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_right(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_T->len-*_FUNC_VALIDLABEL_LONG_X));
#line 27175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27175 "qb64pe.bas"
if(!qbevent)break;evnt(27175);}while(r);
#line 27176 "qb64pe.bas"
}
#line 27180 "qb64pe.bas"
do{
#line 27180 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,FUNC_REMOVESYMBOL(_FUNC_VALIDLABEL_STRING_T));
#line 27180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27180 "qb64pe.bas"
if(!qbevent)break;evnt(27180);}while(r);
#line 27181 "qb64pe.bas"
S_35226:;
#line 27181 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27181 "qb64pe.bas"
if(qbevent){evnt(27181);if(r)goto S_35226;}
#line 27181 "qb64pe.bas"
do{
#line 27181 "qb64pe.bas"
goto exit_subfunc;
#line 27181 "qb64pe.bas"
if(!qbevent)break;evnt(27181);}while(r);
#line 27181 "qb64pe.bas"
}
#line 27182 "qb64pe.bas"
S_35229:;
#line 27182 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||is_error_pending()){
#line 27182 "qb64pe.bas"
if(qbevent){evnt(27182);if(r)goto S_35229;}
#line 27183 "qb64pe.bas"
S_35230:;
#line 27183 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||is_error_pending()){
#line 27183 "qb64pe.bas"
if(qbevent){evnt(27183);if(r)goto S_35230;}
#line 27183 "qb64pe.bas"
do{
#line 27183 "qb64pe.bas"
goto exit_subfunc;
#line 27183 "qb64pe.bas"
if(!qbevent)break;evnt(27183);}while(r);
#line 27183 "qb64pe.bas"
}
#line 27184 "qb64pe.bas"
S_35233:;
#line 27184 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1)))&(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1)))))||is_error_pending()){
#line 27184 "qb64pe.bas"
if(qbevent){evnt(27184);if(r)goto S_35233;}
#line 27184 "qb64pe.bas"
do{
#line 27184 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0));
#line 27184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27184 "qb64pe.bas"
if(!qbevent)break;evnt(27184);}while(r);
#line 27184 "qb64pe.bas"
}
#line 27185 "qb64pe.bas"
}
#line 27187 "qb64pe.bas"
S_35237:;
#line 27187 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||is_error_pending()){
#line 27187 "qb64pe.bas"
if(qbevent){evnt(27187);if(r)goto S_35237;}
#line 27187 "qb64pe.bas"
do{
#line 27187 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_DP= 1 ;
#line 27187 "qb64pe.bas"
if(!qbevent)break;evnt(27187);}while(r);
#line 27187 "qb64pe.bas"
}
#line 27188 "qb64pe.bas"
S_35240:;
#line 27188 "qb64pe.bas"
fornext_value3306= 2 ;
#line 27188 "qb64pe.bas"
fornext_finalvalue3306=_FUNC_VALIDLABEL_STRING_T->len;
#line 27188 "qb64pe.bas"
fornext_step3306= 1 ;
#line 27188 "qb64pe.bas"
if (fornext_step3306<0) fornext_step_negative3306=1; else fornext_step_negative3306=0;
#line 27188 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3306;
#line 27188 "qb64pe.bas"
goto fornext_entrylabel3306;
#line 27188 "qb64pe.bas"
while(1){
#line 27188 "qb64pe.bas"
fornext_value3306=fornext_step3306+(*_FUNC_VALIDLABEL_LONG_X);
#line 27188 "qb64pe.bas"
fornext_entrylabel3306:
#line 27188 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_X=fornext_value3306;
#line 27188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27188 "qb64pe.bas"
if (fornext_step_negative3306){
#line 27188 "qb64pe.bas"
if (fornext_value3306<fornext_finalvalue3306) break;
#line 27188 "qb64pe.bas"
}else{
#line 27188 "qb64pe.bas"
if (fornext_value3306>fornext_finalvalue3306) break;
#line 27188 "qb64pe.bas"
}
#line 27188 "qb64pe.bas"
fornext_error3306:;
#line 27188 "qb64pe.bas"
if(qbevent){evnt(27188);if(r)goto S_35240;}
#line 27189 "qb64pe.bas"
do{
#line 27189 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,0|1));
#line 27189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27189 "qb64pe.bas"
if(!qbevent)break;evnt(27189);}while(r);
#line 27190 "qb64pe.bas"
S_35242:;
#line 27190 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||is_error_pending()){
#line 27190 "qb64pe.bas"
if(qbevent){evnt(27190);if(r)goto S_35242;}
#line 27190 "qb64pe.bas"
do{
#line 27190 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ;
#line 27190 "qb64pe.bas"
if(!qbevent)break;evnt(27190);}while(r);
#line 27190 "qb64pe.bas"
}
#line 27191 "qb64pe.bas"
S_35245:;
#line 27191 "qb64pe.bas"
if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||is_error_pending()){
#line 27191 "qb64pe.bas"
if(qbevent){evnt(27191);if(r)goto S_35245;}
#line 27191 "qb64pe.bas"
do{
#line 27191 "qb64pe.bas"
goto exit_subfunc;
#line 27191 "qb64pe.bas"
if(!qbevent)break;evnt(27191);}while(r);
#line 27191 "qb64pe.bas"
}
#line 27192 "qb64pe.bas"
fornext_continue_3305:;
#line 27192 "qb64pe.bas"
}
#line 27192 "qb64pe.bas"
fornext_exit_3305:;
#line 27193 "qb64pe.bas"
S_35249:;
#line 27193 "qb64pe.bas"
if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||is_error_pending()){
#line 27193 "qb64pe.bas"
if(qbevent){evnt(27193);if(r)goto S_35249;}
#line 27193 "qb64pe.bas"
do{
#line 27193 "qb64pe.bas"
goto exit_subfunc;
#line 27193 "qb64pe.bas"
if(!qbevent)break;evnt(27193);}while(r);
#line 27193 "qb64pe.bas"
}
#line 27194 "qb64pe.bas"
S_35252:;
#line 27194 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||is_error_pending()){
#line 27194 "qb64pe.bas"
if(qbevent){evnt(27194);if(r)goto S_35252;}
#line 27194 "qb64pe.bas"
do{
#line 27194 "qb64pe.bas"
goto exit_subfunc;
#line 27194 "qb64pe.bas"
if(!qbevent)break;evnt(27194);}while(r);
#line 27194 "qb64pe.bas"
}
#line 27196 "qb64pe.bas"
do{
#line 27196 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,qbs_add(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_ADDSYMBOL));
#line 27196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27196 "qb64pe.bas"
if(!qbevent)break;evnt(27196);}while(r);
#line 27198 "qb64pe.bas"
do{
#line 27198 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_I=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len(".",1),0);
#line 27198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27198 "qb64pe.bas"
if(!qbevent)break;evnt(27198);}while(r);
#line 27198 "qb64pe.bas"
S_35257:;
#line 27198 "qb64pe.bas"
if ((*_FUNC_VALIDLABEL_LONG_I)||is_error_pending()){
#line 27198 "qb64pe.bas"
if(qbevent){evnt(27198);if(r)goto S_35257;}
#line 27198 "qb64pe.bas"
do{
#line 27198 "qb64pe.bas"
sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1);
#line 27198 "qb64pe.bas"
if(!qbevent)break;evnt(27198);}while(r);
#line 27198 "qb64pe.bas"
}
#line 27199 "qb64pe.bas"
S_35260:;
#line 27199 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 27199 "qb64pe.bas"
if(qbevent){evnt(27199);if(r)goto S_35260;}
#line 27199 "qb64pe.bas"
do{
#line 27199 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("d",1)));
#line 27199 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27199 "qb64pe.bas"
if(!qbevent)break;evnt(27199);}while(r);
#line 27199 "qb64pe.bas"
}
#line 27200 "qb64pe.bas"
S_35263:;
#line 27200 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 27200 "qb64pe.bas"
if(qbevent){evnt(27200);if(r)goto S_35263;}
#line 27200 "qb64pe.bas"
do{
#line 27200 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("s",1)));
#line 27200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27200 "qb64pe.bas"
if(!qbevent)break;evnt(27200);}while(r);
#line 27200 "qb64pe.bas"
}
#line 27202 "qb64pe.bas"
S_35266:;
#line 27202 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||is_error_pending()){
#line 27202 "qb64pe.bas"
if(qbevent){evnt(27202);if(r)goto S_35266;}
#line 27202 "qb64pe.bas"
do{
#line 27202 "qb64pe.bas"
goto exit_subfunc;
#line 27202 "qb64pe.bas"
if(!qbevent)break;evnt(27202);}while(r);
#line 27202 "qb64pe.bas"
}
#line 27204 "qb64pe.bas"
do{
#line 27204 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T);
#line 27204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27204 "qb64pe.bas"
if(!qbevent)break;evnt(27204);}while(r);
#line 27205 "qb64pe.bas"
do{
#line 27205 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ;
#line 27205 "qb64pe.bas"
if(!qbevent)break;evnt(27205);}while(r);
#line 27206 "qb64pe.bas"
do{
#line 27206 "qb64pe.bas"
goto exit_subfunc;
#line 27206 "qb64pe.bas"
if(!qbevent)break;evnt(27206);}while(r);
#line 27207 "qb64pe.bas"
}
#line 27209 "qb64pe.bas"
}
#line 27215 "qb64pe.bas"
S_35274:;
#line 27215 "qb64pe.bas"
if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||is_error_pending()){
#line 27215 "qb64pe.bas"
if(qbevent){evnt(27215);if(r)goto S_35274;}
#line 27215 "qb64pe.bas"
do{
#line 27215 "qb64pe.bas"
goto exit_subfunc;
#line 27215 "qb64pe.bas"
if(!qbevent)break;evnt(27215);}while(r);
#line 27215 "qb64pe.bas"
}
#line 27216 "qb64pe.bas"
S_35277:;
#line 27216 "qb64pe.bas"
fornext_value3311= 2 ;
#line 27216 "qb64pe.bas"
fornext_finalvalue3311=*_FUNC_VALIDLABEL_LONG_N- 1 ;
#line 27216 "qb64pe.bas"
fornext_step3311= 2 ;
#line 27216 "qb64pe.bas"
if (fornext_step3311<0) fornext_step_negative3311=1; else fornext_step_negative3311=0;
#line 27216 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3311;
#line 27216 "qb64pe.bas"
goto fornext_entrylabel3311;
#line 27216 "qb64pe.bas"
while(1){
#line 27216 "qb64pe.bas"
fornext_value3311=fornext_step3311+(*_FUNC_VALIDLABEL_LONG_NX);
#line 27216 "qb64pe.bas"
fornext_entrylabel3311:
#line 27216 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_NX=fornext_value3311;
#line 27216 "qb64pe.bas"
if (fornext_step_negative3311){
#line 27216 "qb64pe.bas"
if (fornext_value3311<fornext_finalvalue3311) break;
#line 27216 "qb64pe.bas"
}else{
#line 27216 "qb64pe.bas"
if (fornext_value3311>fornext_finalvalue3311) break;
#line 27216 "qb64pe.bas"
}
#line 27216 "qb64pe.bas"
fornext_error3311:;
#line 27216 "qb64pe.bas"
if(qbevent){evnt(27216);if(r)goto S_35277;}
#line 27217 "qb64pe.bas"
do{
#line 27217 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_A,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_LONG_NX));
#line 27217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27217 "qb64pe.bas"
if(!qbevent)break;evnt(27217);}while(r);
#line 27218 "qb64pe.bas"
S_35279:;
#line 27218 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||is_error_pending()){
#line 27218 "qb64pe.bas"
if(qbevent){evnt(27218);if(r)goto S_35279;}
#line 27218 "qb64pe.bas"
do{
#line 27218 "qb64pe.bas"
goto exit_subfunc;
#line 27218 "qb64pe.bas"
if(!qbevent)break;evnt(27218);}while(r);
#line 27218 "qb64pe.bas"
}
#line 27219 "qb64pe.bas"
fornext_continue_3310:;
#line 27219 "qb64pe.bas"
}
#line 27219 "qb64pe.bas"
fornext_exit_3310:;
#line 27222 "qb64pe.bas"
do{
#line 27222 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL);
#line 27222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27222 "qb64pe.bas"
if(!qbevent)break;evnt(27222);}while(r);
#line 27222 "qb64pe.bas"
S_35284:;
#line 27222 "qb64pe.bas"
if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||is_error_pending()){
#line 27222 "qb64pe.bas"
if(qbevent){evnt(27222);if(r)goto S_35284;}
#line 27222 "qb64pe.bas"
do{
#line 27222 "qb64pe.bas"
goto exit_subfunc;
#line 27222 "qb64pe.bas"
if(!qbevent)break;evnt(27222);}while(r);
#line 27222 "qb64pe.bas"
}
#line 27225 "qb64pe.bas"
do{
#line 27225 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0));
#line 27225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27225 "qb64pe.bas"
if(!qbevent)break;evnt(27225);}while(r);
#line 27226 "qb64pe.bas"
S_35288:;
#line 27226 "qb64pe.bas"
fornext_value3313= 1 ;
#line 27226 "qb64pe.bas"
fornext_finalvalue3313=*_FUNC_VALIDLABEL_LONG_N;
#line 27226 "qb64pe.bas"
fornext_step3313= 2 ;
#line 27226 "qb64pe.bas"
if (fornext_step3313<0) fornext_step_negative3313=1; else fornext_step_negative3313=0;
#line 27226 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3313;
#line 27226 "qb64pe.bas"
goto fornext_entrylabel3313;
#line 27226 "qb64pe.bas"
while(1){
#line 27226 "qb64pe.bas"
fornext_value3313=fornext_step3313+(*_FUNC_VALIDLABEL_LONG_NX);
#line 27226 "qb64pe.bas"
fornext_entrylabel3313:
#line 27226 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_NX=fornext_value3313;
#line 27226 "qb64pe.bas"
if (fornext_step_negative3313){
#line 27226 "qb64pe.bas"
if (fornext_value3313<fornext_finalvalue3313) break;
#line 27226 "qb64pe.bas"
}else{
#line 27226 "qb64pe.bas"
if (fornext_value3313>fornext_finalvalue3313) break;
#line 27226 "qb64pe.bas"
}
#line 27226 "qb64pe.bas"
fornext_error3313:;
#line 27226 "qb64pe.bas"
if(qbevent){evnt(27226);if(r)goto S_35288;}
#line 27227 "qb64pe.bas"
do{
#line 27227 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_LONG_NX));
#line 27227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27227 "qb64pe.bas"
if(!qbevent)break;evnt(27227);}while(r);
#line 27230 "qb64pe.bas"
S_35290:;
#line 27230 "qb64pe.bas"
fornext_value3315= 1 ;
#line 27230 "qb64pe.bas"
fornext_finalvalue3315=_FUNC_VALIDLABEL_STRING_LABEL->len;
#line 27230 "qb64pe.bas"
fornext_step3315= 1 ;
#line 27230 "qb64pe.bas"
if (fornext_step3315<0) fornext_step_negative3315=1; else fornext_step_negative3315=0;
#line 27230 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3315;
#line 27230 "qb64pe.bas"
goto fornext_entrylabel3315;
#line 27230 "qb64pe.bas"
while(1){
#line 27230 "qb64pe.bas"
fornext_value3315=fornext_step3315+(*_FUNC_VALIDLABEL_LONG_X);
#line 27230 "qb64pe.bas"
fornext_entrylabel3315:
#line 27230 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_X=fornext_value3315;
#line 27230 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27230 "qb64pe.bas"
if (fornext_step_negative3315){
#line 27230 "qb64pe.bas"
if (fornext_value3315<fornext_finalvalue3315) break;
#line 27230 "qb64pe.bas"
}else{
#line 27230 "qb64pe.bas"
if (fornext_value3315>fornext_finalvalue3315) break;
#line 27230 "qb64pe.bas"
}
#line 27230 "qb64pe.bas"
fornext_error3315:;
#line 27230 "qb64pe.bas"
if(qbevent){evnt(27230);if(r)goto S_35290;}
#line 27231 "qb64pe.bas"
S_35291:;
#line 27231 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_VALIDLABEL_STRING_LABEL,*_FUNC_VALIDLABEL_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||is_error_pending()){
#line 27231 "qb64pe.bas"
if(qbevent){evnt(27231);if(r)goto S_35291;}
#line 27231 "qb64pe.bas"
do{
#line 27231 "qb64pe.bas"
goto exit_subfunc;
#line 27231 "qb64pe.bas"
if(!qbevent)break;evnt(27231);}while(r);
#line 27231 "qb64pe.bas"
}
#line 27232 "qb64pe.bas"
fornext_continue_3314:;
#line 27232 "qb64pe.bas"
}
#line 27232 "qb64pe.bas"
fornext_exit_3314:;
#line 27235 "qb64pe.bas"
S_35295:;
#line 27235 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27235 "qb64pe.bas"
if(qbevent){evnt(27235);if(r)goto S_35295;}
#line 27235 "qb64pe.bas"
do{
#line 27235 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL));
#line 27235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27235 "qb64pe.bas"
if(!qbevent)break;evnt(27235);}while(r);
#line 27235 "qb64pe.bas"
do{
#line 27235 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL);
#line 27235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27235 "qb64pe.bas"
if(!qbevent)break;evnt(27235);}while(r);
#line 27235 "qb64pe.bas"
}else{
#line 27235 "qb64pe.bas"
do{
#line 27235 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_add(qbs_add(_FUNC_VALIDLABEL_STRING_LABEL3,__STRING_FIX046),qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)));
#line 27235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27235 "qb64pe.bas"
if(!qbevent)break;evnt(27235);}while(r);
#line 27235 "qb64pe.bas"
do{
#line 27235 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(".",1)),_FUNC_VALIDLABEL_STRING_LABEL));
#line 27235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27235 "qb64pe.bas"
if(!qbevent)break;evnt(27235);}while(r);
#line 27235 "qb64pe.bas"
}
#line 27236 "qb64pe.bas"
fornext_continue_3312:;
#line 27236 "qb64pe.bas"
}
#line 27236 "qb64pe.bas"
fornext_exit_3312:;
#line 27238 "qb64pe.bas"
do{
#line 27238 "qb64pe.bas"
*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ;
#line 27238 "qb64pe.bas"
if(!qbevent)break;evnt(27238);}while(r);
#line 27239 "qb64pe.bas"
do{
#line 27239 "qb64pe.bas"
qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3);
#line 27239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27239 "qb64pe.bas"
if(!qbevent)break;evnt(27239);}while(r);
#line 27241 "qb64pe.bas"
exit_subfunc:;
#line 27241 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27241 "qb64pe.bas"
#include "free89.txt"
#line 27241 "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 27241 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27241 "qb64pe.bas"
return *_FUNC_VALIDLABEL_LONG_VALIDLABEL;
#line 27241 "qb64pe.bas"
}
