int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data65.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
S_27652:;
fornext_value3708= 1 ;
fornext_finalvalue3708=_FUNC_ISVALIDVARIABLE_STRING_A->len;
fornext_step3708= 1 ;
if (fornext_step3708<0) fornext_step_negative3708=1; else fornext_step_negative3708=0;
if (is_error_pending()) goto fornext_error3708;
goto fornext_entrylabel3708;
while(1){
fornext_value3708=fornext_step3708+(*_FUNC_ISVALIDVARIABLE_LONG_I);
fornext_entrylabel3708:
*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value3708;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3708){
if (fornext_value3708<fornext_finalvalue3708) break;
}else{
if (fornext_value3708>fornext_finalvalue3708) break;
}
fornext_error3708:;
if(qbevent){evnt(24016);if(r)goto S_27652;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_C=qbs_asc(_FUNC_ISVALIDVARIABLE_STRING_A,*_FUNC_ISVALIDVARIABLE_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24017);}while(r);
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ;
if(!qbevent)break;evnt(24018);}while(r);
S_27655:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||is_error_pending()){
if(qbevent){evnt(24019);if(r)goto S_27655;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ;
if(!qbevent)break;evnt(24019);}while(r);
}
S_27658:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||is_error_pending()){
if(qbevent){evnt(24020);if(r)goto S_27658;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(24020);}while(r);
}
S_27661:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||is_error_pending()){
if(qbevent){evnt(24021);if(r)goto S_27661;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(24021);}while(r);
}
S_27664:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||is_error_pending()){
if(qbevent){evnt(24022);if(r)goto S_27664;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(24022);}while(r);
}
S_27667:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||is_error_pending()){
if(qbevent){evnt(24023);if(r)goto S_27667;}
}else{
S_27669:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(24026);if(r)goto S_27669;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(24026);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24026);}while(r);
}
do{
goto fornext_exit_3707;
if(!qbevent)break;evnt(24027);}while(r);
}
fornext_continue_3707:;
}
fornext_exit_3707:;
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(24031);}while(r);
S_27677:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||is_error_pending()){
if(qbevent){evnt(24032);if(r)goto S_27677;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24032);}while(r);
}
do{
qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_A,_FUNC_ISVALIDVARIABLE_STRING_A->len-*_FUNC_ISVALIDVARIABLE_LONG_I- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24033);}while(r);
S_27681:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%%",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%%",3)))))||is_error_pending()){
if(qbevent){evnt(24034);if(r)goto S_27681;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24034);}while(r);
}
S_27684:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%",2)))))||is_error_pending()){
if(qbevent){evnt(24035);if(r)goto S_27684;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24035);}while(r);
}
S_27687:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&",2)))))||is_error_pending()){
if(qbevent){evnt(24036);if(r)goto S_27687;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24036);}while(r);
}
S_27690:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&&",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&&",3)))))||is_error_pending()){
if(qbevent){evnt(24037);if(r)goto S_27690;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24037);}while(r);
}
S_27693:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("!",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("#",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("##",2)))))||is_error_pending()){
if(qbevent){evnt(24038);if(r)goto S_27693;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24038);}while(r);
}
S_27696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(24039);if(r)goto S_27696;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24039);}while(r);
}
S_27699:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(24040);if(r)goto S_27699;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24040);}while(r);
}
S_27702:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("$",1)))&(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("`",1)))))||is_error_pending()){
if(qbevent){evnt(24041);if(r)goto S_27702;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(24041);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24041);}while(r);
}
do{
qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_E,_FUNC_ISVALIDVARIABLE_STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24042);}while(r);
S_27707:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||is_error_pending()){
if(qbevent){evnt(24043);if(r)goto S_27707;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(24043);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24043);}while(r);
}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(24044);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free65.txt"
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;
cmem_sp=tmp_cmem_sp;
return *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE;
}
