#line 258 "utilities/elements.bas"
int32 FUNC_HASFUNCTIONELEMENT(qbs*_FUNC_HASFUNCTIONELEMENT_STRING_A,int32*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT){
#line 258 "utilities/elements.bas"
qbs *tqbs;
#line 258 "utilities/elements.bas"
ptrszint tmp_long;
#line 258 "utilities/elements.bas"
int32 tmp_fileno;
#line 258 "utilities/elements.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 258 "utilities/elements.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 258 "utilities/elements.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 258 "utilities/elements.bas"
#include "data180.txt"
#line 258 "utilities/elements.bas"
mem_lock *sf_mem_lock;
#line 258 "utilities/elements.bas"
new_mem_lock();
#line 258 "utilities/elements.bas"
sf_mem_lock=mem_lock_tmp;
#line 258 "utilities/elements.bas"
sf_mem_lock->type=3;
#line 258 "utilities/elements.bas"
libqb_check_stack();
#line 258 "utilities/elements.bas"
if (is_error_pending()) goto exit_subfunc;
#line 259 "utilities/elements.bas"
do{
#line 259 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,259,"elements.bas");}while(r);
#line 260 "utilities/elements.bas"
do{
#line 260 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_START= 0 ;
#line 260 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,260,"elements.bas");}while(r);
#line 261 "utilities/elements.bas"
do{
#line 261 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_P= 1 ;
#line 261 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,261,"elements.bas");}while(r);
#line 262 "utilities/elements.bas"
do{
#line 262 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_LVL= 1 ;
#line 262 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,262,"elements.bas");}while(r);
#line 263 "utilities/elements.bas"
do{
#line 263 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_I= 1 ;
#line 263 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,263,"elements.bas");}while(r);
#line 265 "utilities/elements.bas"
S_38663:;
#line 265 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len== 0 )))||is_error_pending()){
#line 265 "utilities/elements.bas"
if(qbevent){evnt(28802,265,"elements.bas");if(r)goto S_38663;}
#line 266 "utilities/elements.bas"
do{
#line 266 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ;
#line 266 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,266,"elements.bas");}while(r);
#line 267 "utilities/elements.bas"
do{
#line 267 "utilities/elements.bas"
goto exit_subfunc;
#line 267 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,267,"elements.bas");}while(r);
#line 268 "utilities/elements.bas"
}
#line 271 "utilities/elements.bas"
S_38667:;
#line 271 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0)== 0 ))&(-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len!= 0 ))))||is_error_pending()){
#line 271 "utilities/elements.bas"
if(qbevent){evnt(28802,271,"elements.bas");if(r)goto S_38667;}
#line 272 "utilities/elements.bas"
do{
#line 272 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT== 1 );
#line 272 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,272,"elements.bas");}while(r);
#line 273 "utilities/elements.bas"
do{
#line 273 "utilities/elements.bas"
goto exit_subfunc;
#line 273 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,273,"elements.bas");}while(r);
#line 274 "utilities/elements.bas"
}
#line 276 "utilities/elements.bas"
S_38671:;
#line 276 "utilities/elements.bas"
do{
#line 276 "utilities/elements.bas"
if(qbevent){evnt(28802,276,"elements.bas");if(r)goto S_38671;}
#line 277 "utilities/elements.bas"
S_38672:;
#line 277 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_HASFUNCTIONELEMENT_LONG_I>_FUNC_HASFUNCTIONELEMENT_STRING_A->len)))||is_error_pending()){
#line 277 "utilities/elements.bas"
if(qbevent){evnt(28802,277,"elements.bas");if(r)goto S_38672;}
#line 278 "utilities/elements.bas"
do{
#line 278 "utilities/elements.bas"
goto dl_exit_3802;
#line 278 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,278,"elements.bas");}while(r);
#line 279 "utilities/elements.bas"
}
#line 281 "utilities/elements.bas"
S_38675:;
#line 281 "utilities/elements.bas"
sc_3804=qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_I);
#line 281 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 281 "utilities/elements.bas"
if(qbevent){evnt(28802,281,"elements.bas");if(r)goto S_38675;}
#line 282 "utilities/elements.bas"
S_38676:;
#line 282 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,(sc_3804==(qbs_asc(qbs_new_txt_len("(",1))))))||is_error_pending()){
#line 282 "utilities/elements.bas"
if(qbevent){evnt(28802,282,"elements.bas");if(r)goto S_38676;}
#line 283 "utilities/elements.bas"
do{
#line 283 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL+ 1 ;
#line 283 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,283,"elements.bas");}while(r);
#line 285 "utilities/elements.bas"
sc_ec_122_end:;
#line 285 "utilities/elements.bas"
goto sc_3804_end;
#line 285 "utilities/elements.bas"
}
#line 285 "utilities/elements.bas"
S_38678:;
#line 285 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,(sc_3804==(qbs_asc(qbs_new_txt_len(")",1))))))||is_error_pending()){
#line 285 "utilities/elements.bas"
if(qbevent){evnt(28802,285,"elements.bas");if(r)goto S_38678;}
#line 286 "utilities/elements.bas"
do{
#line 286 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL- 1 ;
#line 286 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,286,"elements.bas");}while(r);
#line 288 "utilities/elements.bas"
sc_ec_123_end:;
#line 288 "utilities/elements.bas"
goto sc_3804_end;
#line 288 "utilities/elements.bas"
}
#line 288 "utilities/elements.bas"
S_38680:;
#line 288 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,(sc_3804==(qbs_asc(qbs_new_txt_len(",",1))))))||is_error_pending()){
#line 288 "utilities/elements.bas"
if(qbevent){evnt(28802,288,"elements.bas");if(r)goto S_38680;}
#line 289 "utilities/elements.bas"
S_38681:;
#line 289 "utilities/elements.bas"
if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_LVL== 1 ))||is_error_pending()){
#line 289 "utilities/elements.bas"
if(qbevent){evnt(28802,289,"elements.bas");if(r)goto S_38681;}
#line 290 "utilities/elements.bas"
do{
#line 290 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT=*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 ;
#line 290 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,290,"elements.bas");}while(r);
#line 292 "utilities/elements.bas"
S_38683:;
#line 292 "utilities/elements.bas"
if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT==*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT))||is_error_pending()){
#line 292 "utilities/elements.bas"
if(qbevent){evnt(28802,292,"elements.bas");if(r)goto S_38683;}
#line 295 "utilities/elements.bas"
do{
#line 295 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=(-(*_FUNC_HASFUNCTIONELEMENT_LONG_I!= 1 ))&(-((*_FUNC_HASFUNCTIONELEMENT_LONG_I- 2 )!=*_FUNC_HASFUNCTIONELEMENT_LONG_START));
#line 295 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,295,"elements.bas");}while(r);
#line 296 "utilities/elements.bas"
do{
#line 296 "utilities/elements.bas"
goto exit_subfunc;
#line 296 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,296,"elements.bas");}while(r);
#line 297 "utilities/elements.bas"
}
#line 299 "utilities/elements.bas"
do{
#line 299 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_START=*_FUNC_HASFUNCTIONELEMENT_LONG_I;
#line 299 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,299,"elements.bas");}while(r);
#line 300 "utilities/elements.bas"
}
#line 301 "utilities/elements.bas"
sc_ec_124_end:;
#line 301 "utilities/elements.bas"
goto sc_3804_end;
#line 301 "utilities/elements.bas"
}
#line 301 "utilities/elements.bas"
sc_3804_end:;
#line 303 "utilities/elements.bas"
do{
#line 303 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_P=*_FUNC_HASFUNCTIONELEMENT_LONG_I;
#line 303 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,303,"elements.bas");}while(r);
#line 304 "utilities/elements.bas"
do{
#line 304 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_I=func_instr(*_FUNC_HASFUNCTIONELEMENT_LONG_I,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0|1);
#line 304 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 304 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,304,"elements.bas");}while(r);
#line 306 "utilities/elements.bas"
S_38692:;
#line 306 "utilities/elements.bas"
if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_I== 0 ))||is_error_pending()){
#line 306 "utilities/elements.bas"
if(qbevent){evnt(28802,306,"elements.bas");if(r)goto S_38692;}
#line 307 "utilities/elements.bas"
do{
#line 307 "utilities/elements.bas"
goto dl_exit_3802;
#line 307 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,307,"elements.bas");}while(r);
#line 308 "utilities/elements.bas"
}
#line 310 "utilities/elements.bas"
do{
#line 310 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_I=*_FUNC_HASFUNCTIONELEMENT_LONG_I+ 1 ;
#line 310 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,310,"elements.bas");}while(r);
#line 311 "utilities/elements.bas"
dl_continue_3802:;
#line 311 "utilities/elements.bas"
}while(1);
#line 311 "utilities/elements.bas"
dl_exit_3802:;
#line 313 "utilities/elements.bas"
S_38697:;
#line 313 "utilities/elements.bas"
if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT>(*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 )))||is_error_pending()){
#line 313 "utilities/elements.bas"
if(qbevent){evnt(28802,313,"elements.bas");if(r)goto S_38697;}
#line 314 "utilities/elements.bas"
do{
#line 314 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ;
#line 314 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,314,"elements.bas");}while(r);
#line 315 "utilities/elements.bas"
do{
#line 315 "utilities/elements.bas"
goto exit_subfunc;
#line 315 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,315,"elements.bas");}while(r);
#line 316 "utilities/elements.bas"
}
#line 322 "utilities/elements.bas"
S_38701:;
#line 322 "utilities/elements.bas"
if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_P> 0 ))||is_error_pending()){
#line 322 "utilities/elements.bas"
if(qbevent){evnt(28802,322,"elements.bas");if(r)goto S_38701;}
#line 323 "utilities/elements.bas"
S_38702:;
#line 323 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_P)!=qbs_asc(qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 323 "utilities/elements.bas"
if(qbevent){evnt(28802,323,"elements.bas");if(r)goto S_38702;}
#line 324 "utilities/elements.bas"
do{
#line 324 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= -1 ;
#line 324 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,324,"elements.bas");}while(r);
#line 325 "utilities/elements.bas"
do{
#line 325 "utilities/elements.bas"
goto exit_subfunc;
#line 325 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,325,"elements.bas");}while(r);
#line 326 "utilities/elements.bas"
}
#line 327 "utilities/elements.bas"
}
#line 329 "utilities/elements.bas"
do{
#line 329 "utilities/elements.bas"
*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ;
#line 329 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,329,"elements.bas");}while(r);
#line 330 "utilities/elements.bas"
exit_subfunc:;
#line 330 "utilities/elements.bas"
free_mem_lock(sf_mem_lock);
#line 330 "utilities/elements.bas"
#include "free180.txt"
#line 330 "utilities/elements.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 330 "utilities/elements.bas"
cmem_sp=tmp_cmem_sp;
#line 330 "utilities/elements.bas"
return *_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT;
#line 330 "utilities/elements.bas"
}
