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 "data31.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
S_23544:;
fornext_value3062= 1 ;
fornext_finalvalue3062=_FUNC_ISVALIDVARIABLE_STRING_A->len;
fornext_step3062= 1 ;
if (fornext_step3062<0) fornext_step_negative3062=1; else fornext_step_negative3062=0;
if (is_error_pending()) goto fornext_error3062;
goto fornext_entrylabel3062;
while(1){
fornext_value3062=fornext_step3062+(*_FUNC_ISVALIDVARIABLE_LONG_I);
fornext_entrylabel3062:
*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value3062;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3062){
if (fornext_value3062<fornext_finalvalue3062) break;
}else{
if (fornext_value3062>fornext_finalvalue3062) break;
}
fornext_error3062:;
if(qbevent){evnt(20178);if(r)goto S_23544;}
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(20179);}while(r);
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ;
if(!qbevent)break;evnt(20180);}while(r);
S_23547:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||is_error_pending()){
if(qbevent){evnt(20181);if(r)goto S_23547;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ;
if(!qbevent)break;evnt(20181);}while(r);
}
S_23550:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||is_error_pending()){
if(qbevent){evnt(20182);if(r)goto S_23550;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(20182);}while(r);
}
S_23553:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||is_error_pending()){
if(qbevent){evnt(20183);if(r)goto S_23553;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(20183);}while(r);
}
S_23556:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||is_error_pending()){
if(qbevent){evnt(20184);if(r)goto S_23556;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(20184);}while(r);
}
S_23559:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||is_error_pending()){
if(qbevent){evnt(20185);if(r)goto S_23559;}
}else{
S_23561:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(20188);if(r)goto S_23561;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(20188);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20188);}while(r);
}
do{
goto fornext_exit_3061;
if(!qbevent)break;evnt(20189);}while(r);
}
fornext_continue_3061:;
}
fornext_exit_3061:;
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(20193);}while(r);
S_23569:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||is_error_pending()){
if(qbevent){evnt(20194);if(r)goto S_23569;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20194);}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(20195);}while(r);
S_23573:;
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(20196);if(r)goto S_23573;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20196);}while(r);
}
S_23576:;
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(20197);if(r)goto S_23576;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20197);}while(r);
}
S_23579:;
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(20198);if(r)goto S_23579;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20198);}while(r);
}
S_23582:;
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(20199);if(r)goto S_23582;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20199);}while(r);
}
S_23585:;
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(20200);if(r)goto S_23585;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20200);}while(r);
}
S_23588:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20201);if(r)goto S_23588;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20201);}while(r);
}
S_23591:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(20202);if(r)goto S_23591;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20202);}while(r);
}
S_23594:;
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(20203);if(r)goto S_23594;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(20203);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20203);}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(20204);}while(r);
S_23599:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||is_error_pending()){
if(qbevent){evnt(20205);if(r)goto S_23599;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(20205);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20205);}while(r);
}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(20206);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free31.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;
}
