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 "data234.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_37427:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||is_error_pending()){
if(qbevent){evnt(24225,727,"type.bas");if(r)goto S_37427;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,727,"type.bas");}while(r);
}
S_37430:;
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(24225,728,"type.bas");if(r)goto S_37430;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,728,"type.bas");}while(r);
}
S_37433:;
fornext_value4333= 1 ;
fornext_finalvalue4333=_FUNC_ISUINTEGER_STRING_I->len;
fornext_step4333= 1 ;
if (fornext_step4333<0) fornext_step_negative4333=1; else fornext_step_negative4333=0;
if (is_error_pending()) goto fornext_error4333;
goto fornext_entrylabel4333;
while(1){
fornext_value4333=fornext_step4333+(*_FUNC_ISUINTEGER_LONG_C);
fornext_entrylabel4333:
*_FUNC_ISUINTEGER_LONG_C=fornext_value4333;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4333){
if (fornext_value4333<fornext_finalvalue4333) break;
}else{
if (fornext_value4333>fornext_finalvalue4333) break;
}
fornext_error4333:;
if(qbevent){evnt(24225,729,"type.bas");if(r)goto S_37433;}
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(24225,730,"type.bas");}while(r);
S_37435:;
if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||is_error_pending()){
if(qbevent){evnt(24225,731,"type.bas");if(r)goto S_37435;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,731,"type.bas");}while(r);
}
fornext_continue_4332:;
}
fornext_exit_4332:;
do{
*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ;
if(!qbevent)break;evnt(24225,733,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free234.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;
}
