#line 15892 "qb64pe.bas"
int16 FUNC_BOUNDSHAVETOPTO(qbs*_FUNC_BOUNDSHAVETOPTO_STRING_BOUNDS){
#line 15892 "qb64pe.bas"
qbs *tqbs;
#line 15892 "qb64pe.bas"
ptrszint tmp_long;
#line 15892 "qb64pe.bas"
int32 tmp_fileno;
#line 15892 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 15892 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 15892 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 15892 "qb64pe.bas"
#include "data25.txt"
#line 15892 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 15892 "qb64pe.bas"
new_mem_lock();
#line 15892 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 15892 "qb64pe.bas"
sf_mem_lock->type=3;
#line 15892 "qb64pe.bas"
libqb_check_stack();
#line 15892 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 15893 "qb64pe.bas"
do{
#line 15893 "qb64pe.bas"
if(!qbevent)break;evnt(15893);}while(r);
#line 15894 "qb64pe.bas"
do{
#line 15894 "qb64pe.bas"
if(!qbevent)break;evnt(15894);}while(r);
#line 15895 "qb64pe.bas"
do{
#line 15895 "qb64pe.bas"
if(!qbevent)break;evnt(15895);}while(r);
#line 15896 "qb64pe.bas"
do{
#line 15896 "qb64pe.bas"
if(!qbevent)break;evnt(15896);}while(r);
#line 15898 "qb64pe.bas"
do{
#line 15898 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_COUNT=FUNC_NUMELEMENTS(_FUNC_BOUNDSHAVETOPTO_STRING_BOUNDS);
#line 15898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15898 "qb64pe.bas"
if(!qbevent)break;evnt(15898);}while(r);
#line 15899 "qb64pe.bas"
do{
#line 15899 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH= 0 ;
#line 15899 "qb64pe.bas"
if(!qbevent)break;evnt(15899);}while(r);
#line 15900 "qb64pe.bas"
do{
#line 15900 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_INTEGER_BOUNDSHAVETOPTO= 0 ;
#line 15900 "qb64pe.bas"
if(!qbevent)break;evnt(15900);}while(r);
#line 15902 "qb64pe.bas"
S_18341:;
#line 15902 "qb64pe.bas"
fornext_value2139= 1 ;
#line 15902 "qb64pe.bas"
fornext_finalvalue2139=*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_COUNT;
#line 15902 "qb64pe.bas"
fornext_step2139= 1 ;
#line 15902 "qb64pe.bas"
if (fornext_step2139<0) fornext_step_negative2139=1; else fornext_step_negative2139=0;
#line 15902 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2139;
#line 15902 "qb64pe.bas"
goto fornext_entrylabel2139;
#line 15902 "qb64pe.bas"
while(1){
#line 15902 "qb64pe.bas"
fornext_value2139=fornext_step2139+(*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_INDEX);
#line 15902 "qb64pe.bas"
fornext_entrylabel2139:
#line 15902 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_INDEX=fornext_value2139;
#line 15902 "qb64pe.bas"
if (fornext_step_negative2139){
#line 15902 "qb64pe.bas"
if (fornext_value2139<fornext_finalvalue2139) break;
#line 15902 "qb64pe.bas"
}else{
#line 15902 "qb64pe.bas"
if (fornext_value2139>fornext_finalvalue2139) break;
#line 15902 "qb64pe.bas"
}
#line 15902 "qb64pe.bas"
fornext_error2139:;
#line 15902 "qb64pe.bas"
if(qbevent){evnt(15902);if(r)goto S_18341;}
#line 15903 "qb64pe.bas"
do{
#line 15903 "qb64pe.bas"
qbs_set(_FUNC_BOUNDSHAVETOPTO_STRING_TOKEN,FUNC_GETELEMENT(_FUNC_BOUNDSHAVETOPTO_STRING_BOUNDS,_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_INDEX));
#line 15903 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15903 "qb64pe.bas"
if(!qbevent)break;evnt(15903);}while(r);
#line 15904 "qb64pe.bas"
S_18343:;
#line 15904 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BOUNDSHAVETOPTO_STRING_TOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 15904 "qb64pe.bas"
if(qbevent){evnt(15904);if(r)goto S_18343;}
#line 15904 "qb64pe.bas"
do{
#line 15904 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH=*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH+ 1 ;
#line 15904 "qb64pe.bas"
if(!qbevent)break;evnt(15904);}while(r);
#line 15904 "qb64pe.bas"
}
#line 15905 "qb64pe.bas"
S_18346:;
#line 15905 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BOUNDSHAVETOPTO_STRING_TOKEN,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 15905 "qb64pe.bas"
if(qbevent){evnt(15905);if(r)goto S_18346;}
#line 15905 "qb64pe.bas"
do{
#line 15905 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH=*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH- 1 ;
#line 15905 "qb64pe.bas"
if(!qbevent)break;evnt(15905);}while(r);
#line 15905 "qb64pe.bas"
}
#line 15906 "qb64pe.bas"
S_18349:;
#line 15906 "qb64pe.bas"
if ((-(*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH< 0 ))||is_error_pending()){
#line 15906 "qb64pe.bas"
if(qbevent){evnt(15906);if(r)goto S_18349;}
#line 15906 "qb64pe.bas"
do{
#line 15906 "qb64pe.bas"
goto exit_subfunc;
#line 15906 "qb64pe.bas"
if(!qbevent)break;evnt(15906);}while(r);
#line 15906 "qb64pe.bas"
}
#line 15907 "qb64pe.bas"
S_18352:;
#line 15907 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_BOUNDSHAVETOPTO_LONG_TOKEN_DEPTH== 0 ))&(qbs_equal(qbs_ucase(_FUNC_BOUNDSHAVETOPTO_STRING_TOKEN),qbs_new_txt_len("TO",2)))))||is_error_pending()){
#line 15907 "qb64pe.bas"
if(qbevent){evnt(15907);if(r)goto S_18352;}
#line 15908 "qb64pe.bas"
do{
#line 15908 "qb64pe.bas"
*_FUNC_BOUNDSHAVETOPTO_INTEGER_BOUNDSHAVETOPTO= -1 ;
#line 15908 "qb64pe.bas"
if(!qbevent)break;evnt(15908);}while(r);
#line 15909 "qb64pe.bas"
do{
#line 15909 "qb64pe.bas"
goto exit_subfunc;
#line 15909 "qb64pe.bas"
if(!qbevent)break;evnt(15909);}while(r);
#line 15910 "qb64pe.bas"
}
#line 15911 "qb64pe.bas"
fornext_continue_2138:;
#line 15911 "qb64pe.bas"
}
#line 15911 "qb64pe.bas"
fornext_exit_2138:;
#line 15912 "qb64pe.bas"
exit_subfunc:;
#line 15912 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 15912 "qb64pe.bas"
#include "free25.txt"
#line 15912 "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 15912 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 15912 "qb64pe.bas"
return *_FUNC_BOUNDSHAVETOPTO_INTEGER_BOUNDSHAVETOPTO;
#line 15912 "qb64pe.bas"
}
