int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){
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 "data307.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_43196:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,2458,"type.bas");if(r)goto S_43196;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,2458,"type.bas");}while(r);
}
S_43199:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||is_error_pending()){
if(qbevent){evnt(28172,2459,"type.bas");if(r)goto S_43199;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,2459,"type.bas");}while(r);
}
S_43202:;
fornext_value5230= 1 ;
fornext_finalvalue5230=_FUNC_ISUINTEGER_STRING_I->len;
fornext_step5230= 1 ;
if (fornext_step5230<0) fornext_step_negative5230=1; else fornext_step_negative5230=0;
if (is_error_pending()) goto fornext_error5230;
goto fornext_entrylabel5230;
while(1){
fornext_value5230=fornext_step5230+(*_FUNC_ISUINTEGER_LONG_C);
fornext_entrylabel5230:
*_FUNC_ISUINTEGER_LONG_C=fornext_value5230;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative5230){
if (fornext_value5230<fornext_finalvalue5230) break;
}else{
if (fornext_value5230>fornext_finalvalue5230) break;
}
fornext_error5230:;
if(qbevent){evnt(28172,2460,"type.bas");if(r)goto S_43202;}
do{
*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,2461,"type.bas");}while(r);
S_43204:;
if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||is_error_pending()){
if(qbevent){evnt(28172,2462,"type.bas");if(r)goto S_43204;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,2462,"type.bas");}while(r);
}
fornext_continue_5229:;
}
fornext_exit_5229:;
do{
*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ;
if(!qbevent)break;evnt(28172,2464,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free307.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_ISUINTEGER_LONG_ISUINTEGER;
}
