void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q){
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 "data287.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;
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ;
if(!qbevent)break;evnt(25769,11056,"ide_methods.bas");}while(r);
do{
*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ;
if(!qbevent)break;evnt(25769,11056,"ide_methods.bas");}while(r);
do{
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR;
if(!qbevent)break;evnt(25769,11057,"ide_methods.bas");}while(r);
S_51910:;
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||is_error_pending()){
if(qbevent){evnt(25769,11058,"ide_methods.bas");if(r)goto S_51910;}
do{
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,11058,"ide_methods.bas");}while(r);
}
S_51913:;
fornext_value5999= 1 ;
fornext_finalvalue5999=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR;
fornext_step5999= 1 ;
if (fornext_step5999<0) fornext_step_negative5999=1; else fornext_step_negative5999=0;
if (is_error_pending()) goto fornext_error5999;
goto fornext_entrylabel5999;
while(1){
fornext_value5999=fornext_step5999+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K);
fornext_entrylabel5999:
*_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value5999;
if (fornext_step_negative5999){
if (fornext_value5999<fornext_finalvalue5999) break;
}else{
if (fornext_value5999>fornext_finalvalue5999) break;
}
fornext_error5999:;
if(qbevent){evnt(25769,11059,"ide_methods.bas");if(r)goto S_51913;}
S_51914:;
qbs_set(sc_6000,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,11060,"ide_methods.bas");if(r)goto S_51914;}
S_51915:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6000,func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(25769,11061,"ide_methods.bas");if(r)goto S_51915;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q);
if(!qbevent)break;evnt(25769,11061,"ide_methods.bas");}while(r);
sc_ec_371_end:;
goto sc_6000_end;
}
S_51917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6000,qbs_new_txt_len("'",1))))||is_error_pending()){
if(qbevent){evnt(25769,11062,"ide_methods.bas");if(r)goto S_51917;}
S_51918:;
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,11062,"ide_methods.bas");if(r)goto S_51918;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
if(!qbevent)break;evnt(25769,11062,"ide_methods.bas");}while(r);
do{
goto fornext_exit_5998;
if(!qbevent)break;evnt(25769,11062,"ide_methods.bas");}while(r);
}
sc_ec_372_end:;
goto sc_6000_end;
}
S_51922:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6000,qbs_new_txt_len("R",1))||qbs_equal(sc_6000,qbs_new_txt_len("r",1))))||is_error_pending()){
if(qbevent){evnt(25769,11063,"ide_methods.bas");if(r)goto S_51922;}
S_51923:;
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,11064,"ide_methods.bas");if(r)goto S_51923;}
S_51924:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(" REM ",5)))|(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(":REM ",5)))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(" REM",4)))))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(":REM",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(qbs_left(_SUB_FINDQUOTECOMMENT_STRING_TEXT, 4 )),qbs_new_txt_len("REM ",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(_SUB_FINDQUOTECOMMENT_STRING_TEXT),qbs_new_txt_len("REM",3)))))))||is_error_pending()){
if(qbevent){evnt(25769,11070,"ide_methods.bas");if(r)goto S_51924;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
if(!qbevent)break;evnt(25769,11071,"ide_methods.bas");}while(r);
do{
goto fornext_exit_5998;
if(!qbevent)break;evnt(25769,11071,"ide_methods.bas");}while(r);
}
}
sc_ec_373_end:;
goto sc_6000_end;
}
sc_6000_end:;
fornext_continue_5998:;
}
fornext_exit_5998:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free287.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;
}
