#line 28241 "qb64pe.bas"
int32 FUNC_VALIDNAME(qbs*_FUNC_VALIDNAME_STRING_A){
#line 28241 "qb64pe.bas"
qbs *tqbs;
#line 28241 "qb64pe.bas"
ptrszint tmp_long;
#line 28241 "qb64pe.bas"
int32 tmp_fileno;
#line 28241 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 28241 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 28241 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 28241 "qb64pe.bas"
#include "data106.txt"
#line 28241 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 28241 "qb64pe.bas"
new_mem_lock();
#line 28241 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 28241 "qb64pe.bas"
sf_mem_lock->type=3;
#line 28241 "qb64pe.bas"
libqb_check_stack();
#line 28241 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 28247 "qb64pe.bas"
do{
#line 28247 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
#line 28247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28247 "qb64pe.bas"
if(!qbevent)break;evnt(28247);}while(r);
#line 28249 "qb64pe.bas"
S_36616:;
#line 28249 "qb64pe.bas"
if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||is_error_pending()){
#line 28249 "qb64pe.bas"
if(qbevent){evnt(28249);if(r)goto S_36616;}
#line 28250 "qb64pe.bas"
S_36617:;
#line 28250 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||is_error_pending()){
#line 28250 "qb64pe.bas"
if(qbevent){evnt(28250);if(r)goto S_36617;}
#line 28250 "qb64pe.bas"
do{
#line 28250 "qb64pe.bas"
goto exit_subfunc;
#line 28250 "qb64pe.bas"
if(!qbevent)break;evnt(28250);}while(r);
#line 28250 "qb64pe.bas"
}
#line 28252 "qb64pe.bas"
do{
#line 28252 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_I=func_instr(NULL,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0);
#line 28252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28252 "qb64pe.bas"
if(!qbevent)break;evnt(28252);}while(r);
#line 28253 "qb64pe.bas"
S_36621:;
#line 28253 "qb64pe.bas"
while((*_FUNC_VALIDNAME_LONG_I)||is_error_pending()){
#line 28253 "qb64pe.bas"
if(qbevent){evnt(28253);if(r)goto S_36621;}
#line 28254 "qb64pe.bas"
do{
#line 28254 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ;
#line 28254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28254 "qb64pe.bas"
if(!qbevent)break;evnt(28254);}while(r);
#line 28255 "qb64pe.bas"
do{
#line 28255 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0|1);
#line 28255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28255 "qb64pe.bas"
if(!qbevent)break;evnt(28255);}while(r);
#line 28256 "qb64pe.bas"
dl_continue_3455:;
#line 28256 "qb64pe.bas"
}
#line 28256 "qb64pe.bas"
dl_exit_3455:;
#line 28257 "qb64pe.bas"
S_36625:;
#line 28257 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||is_error_pending()){
#line 28257 "qb64pe.bas"
if(qbevent){evnt(28257);if(r)goto S_36625;}
#line 28257 "qb64pe.bas"
do{
#line 28257 "qb64pe.bas"
goto exit_subfunc;
#line 28257 "qb64pe.bas"
if(!qbevent)break;evnt(28257);}while(r);
#line 28257 "qb64pe.bas"
}
#line 28258 "qb64pe.bas"
do{
#line 28258 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len;
#line 28258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28258 "qb64pe.bas"
if(!qbevent)break;evnt(28258);}while(r);
#line 28259 "qb64pe.bas"
}
#line 28261 "qb64pe.bas"
S_36630:;
#line 28261 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
#line 28261 "qb64pe.bas"
if(qbevent){evnt(28261);if(r)goto S_36630;}
#line 28262 "qb64pe.bas"
S_36631:;
#line 28262 "qb64pe.bas"
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= -1 ))||is_error_pending()){
#line 28262 "qb64pe.bas"
if(qbevent){evnt(28262);if(r)goto S_36631;}
#line 28264 "qb64pe.bas"
S_36632:;
#line 28264 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||is_error_pending()){
#line 28264 "qb64pe.bas"
if(qbevent){evnt(28264);if(r)goto S_36632;}
#line 28265 "qb64pe.bas"
S_36633:;
#line 28265 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )== 95 ))&(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 2 )!= 95 ))))||is_error_pending()){
#line 28265 "qb64pe.bas"
if(qbevent){evnt(28265);if(r)goto S_36633;}
#line 28265 "qb64pe.bas"
do{
#line 28265 "qb64pe.bas"
goto exit_subfunc;
#line 28265 "qb64pe.bas"
if(!qbevent)break;evnt(28265);}while(r);
#line 28265 "qb64pe.bas"
}
#line 28266 "qb64pe.bas"
}
#line 28267 "qb64pe.bas"
}
#line 28268 "qb64pe.bas"
}else{
#line 28269 "qb64pe.bas"
S_36639:;
#line 28269 "qb64pe.bas"
if (((-(*__INTEGER_AUTOINCLUDINGFILE== 0 ))&(-(*__INTEGER_AUTOINCFORCEUSCORE!= 0 )))||is_error_pending()){
#line 28269 "qb64pe.bas"
if(qbevent){evnt(28269);if(r)goto S_36639;}
#line 28270 "qb64pe.bas"
do{
#line 28270 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
#line 28270 "qb64pe.bas"
if(!qbevent)break;evnt(28270);}while(r);
#line 28272 "qb64pe.bas"
S_36641:;
#line 28272 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_L>= 1 ))||is_error_pending()){
#line 28272 "qb64pe.bas"
if(qbevent){evnt(28272);if(r)goto S_36641;}
#line 28273 "qb64pe.bas"
S_36642:;
#line 28273 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )!= 95 )))||is_error_pending()){
#line 28273 "qb64pe.bas"
if(qbevent){evnt(28273);if(r)goto S_36642;}
#line 28273 "qb64pe.bas"
do{
#line 28273 "qb64pe.bas"
goto exit_subfunc;
#line 28273 "qb64pe.bas"
if(!qbevent)break;evnt(28273);}while(r);
#line 28273 "qb64pe.bas"
}
#line 28274 "qb64pe.bas"
}
#line 28275 "qb64pe.bas"
}
#line 28276 "qb64pe.bas"
}
#line 28277 "qb64pe.bas"
do{
#line 28277 "qb64pe.bas"
*__INTEGER_AUTOINCFORCEUSCORE= 0 ;
#line 28277 "qb64pe.bas"
if(!qbevent)break;evnt(28277);}while(r);
#line 28279 "qb64pe.bas"
S_36649:;
#line 28279 "qb64pe.bas"
fornext_value3459= 1 ;
#line 28279 "qb64pe.bas"
fornext_finalvalue3459=*_FUNC_VALIDNAME_LONG_L;
#line 28279 "qb64pe.bas"
fornext_step3459= 1 ;
#line 28279 "qb64pe.bas"
if (fornext_step3459<0) fornext_step_negative3459=1; else fornext_step_negative3459=0;
#line 28279 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3459;
#line 28279 "qb64pe.bas"
goto fornext_entrylabel3459;
#line 28279 "qb64pe.bas"
while(1){
#line 28279 "qb64pe.bas"
fornext_value3459=fornext_step3459+(*_FUNC_VALIDNAME_LONG_I);
#line 28279 "qb64pe.bas"
fornext_entrylabel3459:
#line 28279 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_I=fornext_value3459;
#line 28279 "qb64pe.bas"
if (fornext_step_negative3459){
#line 28279 "qb64pe.bas"
if (fornext_value3459<fornext_finalvalue3459) break;
#line 28279 "qb64pe.bas"
}else{
#line 28279 "qb64pe.bas"
if (fornext_value3459>fornext_finalvalue3459) break;
#line 28279 "qb64pe.bas"
}
#line 28279 "qb64pe.bas"
fornext_error3459:;
#line 28279 "qb64pe.bas"
if(qbevent){evnt(28279);if(r)goto S_36649;}
#line 28280 "qb64pe.bas"
do{
#line 28280 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_A=qbs_asc(_FUNC_VALIDNAME_STRING_A,*_FUNC_VALIDNAME_LONG_I);
#line 28280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28280 "qb64pe.bas"
if(!qbevent)break;evnt(28280);}while(r);
#line 28281 "qb64pe.bas"
S_36651:;
#line 28281 "qb64pe.bas"
if ((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))||is_error_pending()){
#line 28281 "qb64pe.bas"
if(qbevent){evnt(28281);if(r)goto S_36651;}
#line 28281 "qb64pe.bas"
do{
#line 28281 "qb64pe.bas"
goto exit_subfunc;
#line 28281 "qb64pe.bas"
if(!qbevent)break;evnt(28281);}while(r);
#line 28281 "qb64pe.bas"
}
#line 28282 "qb64pe.bas"
S_36654:;
#line 28282 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5])])||is_error_pending()){
#line 28282 "qb64pe.bas"
if(qbevent){evnt(28282);if(r)goto S_36654;}
#line 28283 "qb64pe.bas"
do{
#line 28283 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
#line 28283 "qb64pe.bas"
if(!qbevent)break;evnt(28283);}while(r);
#line 28284 "qb64pe.bas"
S_36656:;
#line 28284 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||is_error_pending()){
#line 28284 "qb64pe.bas"
if(qbevent){evnt(28284);if(r)goto S_36656;}
#line 28284 "qb64pe.bas"
do{
#line 28284 "qb64pe.bas"
goto exit_subfunc;
#line 28284 "qb64pe.bas"
if(!qbevent)break;evnt(28284);}while(r);
#line 28284 "qb64pe.bas"
}
#line 28285 "qb64pe.bas"
}else{
#line 28286 "qb64pe.bas"
S_36660:;
#line 28286 "qb64pe.bas"
if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||is_error_pending()){
#line 28286 "qb64pe.bas"
if(qbevent){evnt(28286);if(r)goto S_36660;}
#line 28287 "qb64pe.bas"
do{
#line 28287 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ;
#line 28287 "qb64pe.bas"
if(!qbevent)break;evnt(28287);}while(r);
#line 28288 "qb64pe.bas"
}else{
#line 28289 "qb64pe.bas"
do{
#line 28289 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ;
#line 28289 "qb64pe.bas"
if(!qbevent)break;evnt(28289);}while(r);
#line 28290 "qb64pe.bas"
do{
#line 28290 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ;
#line 28290 "qb64pe.bas"
if(!qbevent)break;evnt(28290);}while(r);
#line 28291 "qb64pe.bas"
}
#line 28292 "qb64pe.bas"
}
#line 28293 "qb64pe.bas"
fornext_continue_3458:;
#line 28293 "qb64pe.bas"
}
#line 28293 "qb64pe.bas"
fornext_exit_3458:;
#line 28294 "qb64pe.bas"
S_36668:;
#line 28294 "qb64pe.bas"
if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||is_error_pending()){
#line 28294 "qb64pe.bas"
if(qbevent){evnt(28294);if(r)goto S_36668;}
#line 28294 "qb64pe.bas"
do{
#line 28294 "qb64pe.bas"
goto exit_subfunc;
#line 28294 "qb64pe.bas"
if(!qbevent)break;evnt(28294);}while(r);
#line 28294 "qb64pe.bas"
}
#line 28295 "qb64pe.bas"
do{
#line 28295 "qb64pe.bas"
*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ;
#line 28295 "qb64pe.bas"
if(!qbevent)break;evnt(28295);}while(r);
#line 28296 "qb64pe.bas"
exit_subfunc:;
#line 28296 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 28296 "qb64pe.bas"
#include "free106.txt"
#line 28296 "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 28296 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 28296 "qb64pe.bas"
return *_FUNC_VALIDNAME_LONG_VALIDNAME;
#line 28296 "qb64pe.bas"
}
