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 "data350.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ;
if(!qbevent)break;evnt(28182,11251,"ide_methods.bas");}while(r);
do{
*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ;
if(!qbevent)break;evnt(28182,11251,"ide_methods.bas");}while(r);
do{
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR;
if(!qbevent)break;evnt(28182,11252,"ide_methods.bas");}while(r);
S_56232:;
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||is_error_pending()){
if(qbevent){evnt(28182,11253,"ide_methods.bas");if(r)goto S_56232;}
do{
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,11253,"ide_methods.bas");}while(r);
}
S_56235:;
fornext_value6651= 1 ;
fornext_finalvalue6651=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR;
fornext_step6651= 1 ;
if (fornext_step6651<0) fornext_step_negative6651=1; else fornext_step_negative6651=0;
if (is_error_pending()) goto fornext_error6651;
goto fornext_entrylabel6651;
while(1){
fornext_value6651=fornext_step6651+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K);
fornext_entrylabel6651:
*_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value6651;
if (fornext_step_negative6651){
if (fornext_value6651<fornext_finalvalue6651) break;
}else{
if (fornext_value6651>fornext_finalvalue6651) break;
}
fornext_error6651:;
if(qbevent){evnt(28182,11254,"ide_methods.bas");if(r)goto S_56235;}
S_56236:;
qbs_set(sc_6652,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,11255,"ide_methods.bas");if(r)goto S_56236;}
S_56237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6652,func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(28182,11256,"ide_methods.bas");if(r)goto S_56237;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q);
if(!qbevent)break;evnt(28182,11256,"ide_methods.bas");}while(r);
sc_ec_379_end:;
goto sc_6652_end;
}
S_56239:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6652,qbs_new_txt_len("'",1))))||is_error_pending()){
if(qbevent){evnt(28182,11257,"ide_methods.bas");if(r)goto S_56239;}
S_56240:;
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,11257,"ide_methods.bas");if(r)goto S_56240;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
if(!qbevent)break;evnt(28182,11257,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6650;
if(!qbevent)break;evnt(28182,11257,"ide_methods.bas");}while(r);
}
sc_ec_380_end:;
goto sc_6652_end;
}
S_56244:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6652,qbs_new_txt_len("R",1))||qbs_equal(sc_6652,qbs_new_txt_len("r",1))))||is_error_pending()){
if(qbevent){evnt(28182,11258,"ide_methods.bas");if(r)goto S_56244;}
S_56245:;
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,11259,"ide_methods.bas");if(r)goto S_56245;}
S_56246:;
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(28182,11265,"ide_methods.bas");if(r)goto S_56246;}
do{
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
if(!qbevent)break;evnt(28182,11266,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6650;
if(!qbevent)break;evnt(28182,11266,"ide_methods.bas");}while(r);
}
}
sc_ec_381_end:;
goto sc_6652_end;
}
sc_6652_end:;
fornext_continue_6650:;
}
fornext_exit_6650:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free350.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;
}
