#line 2164 "utilities/type.bas"
int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){
#line 2164 "utilities/type.bas"
qbs *tqbs;
#line 2164 "utilities/type.bas"
ptrszint tmp_long;
#line 2164 "utilities/type.bas"
int32 tmp_fileno;
#line 2164 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 2164 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 2164 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 2164 "utilities/type.bas"
#include "data348.txt"
#line 2164 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 2164 "utilities/type.bas"
new_mem_lock();
#line 2164 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 2164 "utilities/type.bas"
sf_mem_lock->type=3;
#line 2164 "utilities/type.bas"
libqb_check_stack();
#line 2164 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 2165 "utilities/type.bas"
S_44307:;
#line 2165 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||is_error_pending()){
#line 2165 "utilities/type.bas"
if(qbevent){evnt(28809,2165,"type.bas");if(r)goto S_44307;}
#line 2165 "utilities/type.bas"
do{
#line 2165 "utilities/type.bas"
goto exit_subfunc;
#line 2165 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2165,"type.bas");}while(r);
#line 2165 "utilities/type.bas"
}
#line 2166 "utilities/type.bas"
S_44310:;
#line 2166 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||is_error_pending()){
#line 2166 "utilities/type.bas"
if(qbevent){evnt(28809,2166,"type.bas");if(r)goto S_44310;}
#line 2166 "utilities/type.bas"
do{
#line 2166 "utilities/type.bas"
goto exit_subfunc;
#line 2166 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2166,"type.bas");}while(r);
#line 2166 "utilities/type.bas"
}
#line 2167 "utilities/type.bas"
S_44313:;
#line 2167 "utilities/type.bas"
fornext_value4519= 1 ;
#line 2167 "utilities/type.bas"
fornext_finalvalue4519=_FUNC_ISUINTEGER_STRING_I->len;
#line 2167 "utilities/type.bas"
fornext_step4519= 1 ;
#line 2167 "utilities/type.bas"
if (fornext_step4519<0) fornext_step_negative4519=1; else fornext_step_negative4519=0;
#line 2167 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4519;
#line 2167 "utilities/type.bas"
goto fornext_entrylabel4519;
#line 2167 "utilities/type.bas"
while(1){
#line 2167 "utilities/type.bas"
fornext_value4519=fornext_step4519+(*_FUNC_ISUINTEGER_LONG_C);
#line 2167 "utilities/type.bas"
fornext_entrylabel4519:
#line 2167 "utilities/type.bas"
*_FUNC_ISUINTEGER_LONG_C=fornext_value4519;
#line 2167 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2167 "utilities/type.bas"
if (fornext_step_negative4519){
#line 2167 "utilities/type.bas"
if (fornext_value4519<fornext_finalvalue4519) break;
#line 2167 "utilities/type.bas"
}else{
#line 2167 "utilities/type.bas"
if (fornext_value4519>fornext_finalvalue4519) break;
#line 2167 "utilities/type.bas"
}
#line 2167 "utilities/type.bas"
fornext_error4519:;
#line 2167 "utilities/type.bas"
if(qbevent){evnt(28809,2167,"type.bas");if(r)goto S_44313;}
#line 2168 "utilities/type.bas"
do{
#line 2168 "utilities/type.bas"
*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C);
#line 2168 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2168 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2168,"type.bas");}while(r);
#line 2169 "utilities/type.bas"
S_44315:;
#line 2169 "utilities/type.bas"
if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||is_error_pending()){
#line 2169 "utilities/type.bas"
if(qbevent){evnt(28809,2169,"type.bas");if(r)goto S_44315;}
#line 2169 "utilities/type.bas"
do{
#line 2169 "utilities/type.bas"
goto exit_subfunc;
#line 2169 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2169,"type.bas");}while(r);
#line 2169 "utilities/type.bas"
}
#line 2170 "utilities/type.bas"
fornext_continue_4518:;
#line 2170 "utilities/type.bas"
}
#line 2170 "utilities/type.bas"
fornext_exit_4518:;
#line 2171 "utilities/type.bas"
do{
#line 2171 "utilities/type.bas"
*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ;
#line 2171 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2171,"type.bas");}while(r);
#line 2172 "utilities/type.bas"
exit_subfunc:;
#line 2172 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 2172 "utilities/type.bas"
#include "free348.txt"
#line 2172 "utilities/type.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 2172 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 2172 "utilities/type.bas"
return *_FUNC_ISUINTEGER_LONG_ISUINTEGER;
#line 2172 "utilities/type.bas"
}
