int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){
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 "data219.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_36567:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||is_error_pending()){
if(qbevent){evnt(24225,172,"type.bas");if(r)goto S_36567;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,172,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,174,"type.bas");}while(r);
do{
*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,175,"type.bas");}while(r);
S_36572:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
if(qbevent){evnt(24225,176,"type.bas");if(r)goto S_36572;}
S_36573:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,177,"type.bas");if(r)goto S_36573;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ;
if(!qbevent)break;evnt(24225,177,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,177,"type.bas");}while(r);
}
S_36577:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(24225,178,"type.bas");if(r)goto S_36577;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,178,"type.bas");}while(r);
}
S_36580:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||is_error_pending()){
if(qbevent){evnt(24225,179,"type.bas");if(r)goto S_36580;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ;
if(!qbevent)break;evnt(24225,179,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,179,"type.bas");}while(r);
}
S_36584:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
if(qbevent){evnt(24225,180,"type.bas");if(r)goto S_36584;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24225,180,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,180,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,181,"type.bas");}while(r);
}
S_36590:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
if(qbevent){evnt(24225,183,"type.bas");if(r)goto S_36590;}
S_36591:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,184,"type.bas");if(r)goto S_36591;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ;
if(!qbevent)break;evnt(24225,184,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,184,"type.bas");}while(r);
}
S_36595:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(24225,185,"type.bas");if(r)goto S_36595;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,185,"type.bas");}while(r);
}
S_36598:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||is_error_pending()){
if(qbevent){evnt(24225,186,"type.bas");if(r)goto S_36598;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ;
if(!qbevent)break;evnt(24225,186,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,186,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,187,"type.bas");}while(r);
}
S_36604:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||is_error_pending()){
if(qbevent){evnt(24225,189,"type.bas");if(r)goto S_36604;}
S_36605:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,190,"type.bas");if(r)goto S_36605;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(24225,190,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,190,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,191,"type.bas");}while(r);
}
S_36611:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||is_error_pending()){
if(qbevent){evnt(24225,193,"type.bas");if(r)goto S_36611;}
S_36612:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,194,"type.bas");if(r)goto S_36612;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(24225,194,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,194,"type.bas");}while(r);
}
S_36616:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||is_error_pending()){
if(qbevent){evnt(24225,195,"type.bas");if(r)goto S_36616;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,195,"type.bas");}while(r);
}
S_36619:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||is_error_pending()){
if(qbevent){evnt(24225,196,"type.bas");if(r)goto S_36619;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(24225,196,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,196,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,197,"type.bas");}while(r);
}
S_36625:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||is_error_pending()){
if(qbevent){evnt(24225,199,"type.bas");if(r)goto S_36625;}
S_36626:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,200,"type.bas");if(r)goto S_36626;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING;
if(!qbevent)break;evnt(24225,200,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,200,"type.bas");}while(r);
}
S_36630:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
if(qbevent){evnt(24225,201,"type.bas");if(r)goto S_36630;}
S_36631:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||is_error_pending()){
if(qbevent){evnt(24225,202,"type.bas");if(r)goto S_36631;}
S_36632:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||is_error_pending()){
if(qbevent){evnt(24225,203,"type.bas");if(r)goto S_36632;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,203,"type.bas");}while(r);
}
S_36635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||is_error_pending()){
if(qbevent){evnt(24225,204,"type.bas");if(r)goto S_36635;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,204,"type.bas");}while(r);
}
}
do{
*__LONG_SYMBOLTYPE_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,206,"type.bas");}while(r);
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH;
if(!qbevent)break;evnt(24225,207,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,208,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,210,"type.bas");}while(r);
}
S_36645:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
if(qbevent){evnt(24225,212,"type.bas");if(r)goto S_36645;}
S_36646:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,213,"type.bas");if(r)goto S_36646;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(24225,213,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,213,"type.bas");}while(r);
}
S_36650:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||is_error_pending()){
if(qbevent){evnt(24225,214,"type.bas");if(r)goto S_36650;}
S_36651:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(24225,215,"type.bas");if(r)goto S_36651;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,215,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,216,"type.bas");}while(r);
S_36655:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
if(qbevent){evnt(24225,217,"type.bas");if(r)goto S_36655;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,217,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(24225,218,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,218,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,220,"type.bas");}while(r);
}
S_36663:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||is_error_pending()){
if(qbevent){evnt(24225,222,"type.bas");if(r)goto S_36663;}
S_36664:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||is_error_pending()){
if(qbevent){evnt(24225,223,"type.bas");if(r)goto S_36664;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,223,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,224,"type.bas");}while(r);
S_36668:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||is_error_pending()){
if(qbevent){evnt(24225,225,"type.bas");if(r)goto S_36668;}
S_36669:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(24225,226,"type.bas");if(r)goto S_36669;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,226,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,226,"type.bas");}while(r);
}
S_36673:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(24225,227,"type.bas");if(r)goto S_36673;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,227,"type.bas");}while(r);
}
S_36676:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||is_error_pending()){
if(qbevent){evnt(24225,228,"type.bas");if(r)goto S_36676;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,228,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,228,"type.bas");}while(r);
}
S_36680:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
if(qbevent){evnt(24225,229,"type.bas");if(r)goto S_36680;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24225,229,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,229,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,230,"type.bas");}while(r);
}
S_36686:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||is_error_pending()){
if(qbevent){evnt(24225,232,"type.bas");if(r)goto S_36686;}
S_36687:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(24225,233,"type.bas");if(r)goto S_36687;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,233,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,233,"type.bas");}while(r);
}
S_36691:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||is_error_pending()){
if(qbevent){evnt(24225,234,"type.bas");if(r)goto S_36691;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,234,"type.bas");}while(r);
}
S_36694:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||is_error_pending()){
if(qbevent){evnt(24225,235,"type.bas");if(r)goto S_36694;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,235,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,235,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,236,"type.bas");}while(r);
}
S_36700:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||is_error_pending()){
if(qbevent){evnt(24225,238,"type.bas");if(r)goto S_36700;}
S_36701:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||is_error_pending()){
if(qbevent){evnt(24225,239,"type.bas");if(r)goto S_36701;}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,239,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,239,"type.bas");}while(r);
}
S_36705:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||is_error_pending()){
if(qbevent){evnt(24225,240,"type.bas");if(r)goto S_36705;}
S_36706:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||is_error_pending()){
if(qbevent){evnt(24225,241,"type.bas");if(r)goto S_36706;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,241,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_N=qbr(qbs_val<long double>(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24225,242,"type.bas");}while(r);
S_36710:;
if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||is_error_pending()){
if(qbevent){evnt(24225,243,"type.bas");if(r)goto S_36710;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,243,"type.bas");}while(r);
}
do{
*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(24225,244,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,244,"type.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24225,246,"type.bas");}while(r);
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free219.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_SYMBOLTYPE_LONG_SYMBOLTYPE;
}
