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 "data38.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_24976:;
fornext_value3281= 1 ;
fornext_finalvalue3281=_FUNC_ISVALIDVARIABLE_STRING_A->len;
fornext_step3281= 1 ;
if (fornext_step3281<0) fornext_step_negative3281=1; else fornext_step_negative3281=0;
if (is_error_pending()) goto fornext_error3281;
goto fornext_entrylabel3281;
while(1){
fornext_value3281=fornext_step3281+(*_FUNC_ISVALIDVARIABLE_LONG_I);
fornext_entrylabel3281:
*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value3281;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3281){
if (fornext_value3281<fornext_finalvalue3281) break;
}else{
if (fornext_value3281>fornext_finalvalue3281) break;
}
fornext_error3281:;
if(qbevent){evnt(21646);if(r)goto S_24976;}
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(21647);}while(r);
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ;
if(!qbevent)break;evnt(21648);}while(r);
S_24979:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||is_error_pending()){
if(qbevent){evnt(21649);if(r)goto S_24979;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ;
if(!qbevent)break;evnt(21649);}while(r);
}
S_24982:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||is_error_pending()){
if(qbevent){evnt(21650);if(r)goto S_24982;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(21650);}while(r);
}
S_24985:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||is_error_pending()){
if(qbevent){evnt(21651);if(r)goto S_24985;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(21651);}while(r);
}
S_24988:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||is_error_pending()){
if(qbevent){evnt(21652);if(r)goto S_24988;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ;
if(!qbevent)break;evnt(21652);}while(r);
}
S_24991:;
if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||is_error_pending()){
if(qbevent){evnt(21653);if(r)goto S_24991;}
}else{
S_24993:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(21656);if(r)goto S_24993;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(21656);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21656);}while(r);
}
do{
goto fornext_exit_3280;
if(!qbevent)break;evnt(21657);}while(r);
}
fornext_continue_3280:;
}
fornext_exit_3280:;
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(21661);}while(r);
S_25001:;
if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||is_error_pending()){
if(qbevent){evnt(21662);if(r)goto S_25001;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21662);}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(21663);}while(r);
S_25005:;
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(21664);if(r)goto S_25005;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21664);}while(r);
}
S_25008:;
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(21665);if(r)goto S_25008;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21665);}while(r);
}
S_25011:;
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(21666);if(r)goto S_25011;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21666);}while(r);
}
S_25014:;
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(21667);if(r)goto S_25014;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21667);}while(r);
}
S_25017:;
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(21668);if(r)goto S_25017;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21668);}while(r);
}
S_25020:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(21669);if(r)goto S_25020;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21669);}while(r);
}
S_25023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(21670);if(r)goto S_25023;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21670);}while(r);
}
S_25026:;
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(21671);if(r)goto S_25026;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(21671);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21671);}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(21672);}while(r);
S_25031:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||is_error_pending()){
if(qbevent){evnt(21673);if(r)goto S_25031;}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ;
if(!qbevent)break;evnt(21673);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21673);}while(r);
}
do{
*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ;
if(!qbevent)break;evnt(21674);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free38.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;
}
