#line 11250 "ide/ide_methods.bas"
void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q){
#line 11250 "ide/ide_methods.bas"
qbs *tqbs;
#line 11250 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 11250 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 11250 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 11250 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 11250 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 11250 "ide/ide_methods.bas"
#include "data391.txt"
#line 11250 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 11250 "ide/ide_methods.bas"
new_mem_lock();
#line 11250 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 11250 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 11250 "ide/ide_methods.bas"
libqb_check_stack();
#line 11250 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 11251 "ide/ide_methods.bas"
do{
#line 11251 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ;
#line 11251 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11251,"ide_methods.bas");}while(r);
#line 11251 "ide/ide_methods.bas"
do{
#line 11251 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ;
#line 11251 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11251,"ide_methods.bas");}while(r);
#line 11252 "ide/ide_methods.bas"
do{
#line 11252 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR;
#line 11252 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11252,"ide_methods.bas");}while(r);
#line 11253 "ide/ide_methods.bas"
S_57344:;
#line 11253 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||is_error_pending()){
#line 11253 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11253,"ide_methods.bas");if(r)goto S_57344;}
#line 11253 "ide/ide_methods.bas"
do{
#line 11253 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len;
#line 11253 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11253 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11253,"ide_methods.bas");}while(r);
#line 11253 "ide/ide_methods.bas"
}
#line 11254 "ide/ide_methods.bas"
S_57347:;
#line 11254 "ide/ide_methods.bas"
fornext_value5941= 1 ;
#line 11254 "ide/ide_methods.bas"
fornext_finalvalue5941=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR;
#line 11254 "ide/ide_methods.bas"
fornext_step5941= 1 ;
#line 11254 "ide/ide_methods.bas"
if (fornext_step5941<0) fornext_step_negative5941=1; else fornext_step_negative5941=0;
#line 11254 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error5941;
#line 11254 "ide/ide_methods.bas"
goto fornext_entrylabel5941;
#line 11254 "ide/ide_methods.bas"
while(1){
#line 11254 "ide/ide_methods.bas"
fornext_value5941=fornext_step5941+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K);
#line 11254 "ide/ide_methods.bas"
fornext_entrylabel5941:
#line 11254 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value5941;
#line 11254 "ide/ide_methods.bas"
if (fornext_step_negative5941){
#line 11254 "ide/ide_methods.bas"
if (fornext_value5941<fornext_finalvalue5941) break;
#line 11254 "ide/ide_methods.bas"
}else{
#line 11254 "ide/ide_methods.bas"
if (fornext_value5941>fornext_finalvalue5941) break;
#line 11254 "ide/ide_methods.bas"
}
#line 11254 "ide/ide_methods.bas"
fornext_error5941:;
#line 11254 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11254,"ide_methods.bas");if(r)goto S_57347;}
#line 11255 "ide/ide_methods.bas"
S_57348:;
#line 11255 "ide/ide_methods.bas"
qbs_set(sc_5942,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,0|1));
#line 11255 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11255 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11255,"ide_methods.bas");if(r)goto S_57348;}
#line 11256 "ide/ide_methods.bas"
S_57349:;
#line 11256 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5942,func_chr( 34 ))))||is_error_pending()){
#line 11256 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11256,"ide_methods.bas");if(r)goto S_57349;}
#line 11256 "ide/ide_methods.bas"
do{
#line 11256 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q);
#line 11256 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11256,"ide_methods.bas");}while(r);
#line 11257 "ide/ide_methods.bas"
sc_ec_378_end:;
#line 11257 "ide/ide_methods.bas"
goto sc_5942_end;
#line 11257 "ide/ide_methods.bas"
}
#line 11257 "ide/ide_methods.bas"
S_57351:;
#line 11257 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5942,qbs_new_txt_len("'",1))))||is_error_pending()){
#line 11257 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11257,"ide_methods.bas");if(r)goto S_57351;}
#line 11257 "ide/ide_methods.bas"
S_57352:;
#line 11257 "ide/ide_methods.bas"
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
#line 11257 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11257,"ide_methods.bas");if(r)goto S_57352;}
#line 11257 "ide/ide_methods.bas"
do{
#line 11257 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
#line 11257 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11257,"ide_methods.bas");}while(r);
#line 11257 "ide/ide_methods.bas"
do{
#line 11257 "ide/ide_methods.bas"
goto fornext_exit_5940;
#line 11257 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11257,"ide_methods.bas");}while(r);
#line 11257 "ide/ide_methods.bas"
}
#line 11258 "ide/ide_methods.bas"
sc_ec_379_end:;
#line 11258 "ide/ide_methods.bas"
goto sc_5942_end;
#line 11258 "ide/ide_methods.bas"
}
#line 11258 "ide/ide_methods.bas"
S_57356:;
#line 11258 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5942,qbs_new_txt_len("R",1))||qbs_equal(sc_5942,qbs_new_txt_len("r",1))))||is_error_pending()){
#line 11258 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11258,"ide_methods.bas");if(r)goto S_57356;}
#line 11259 "ide/ide_methods.bas"
S_57357:;
#line 11259 "ide/ide_methods.bas"
if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||is_error_pending()){
#line 11259 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11259,"ide_methods.bas");if(r)goto S_57357;}
#line 11265 "ide/ide_methods.bas"
S_57358:;
#line 11265 "ide/ide_methods.bas"
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()){
#line 11265 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11265,"ide_methods.bas");if(r)goto S_57358;}
#line 11266 "ide/ide_methods.bas"
do{
#line 11266 "ide/ide_methods.bas"
*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ;
#line 11266 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11266,"ide_methods.bas");}while(r);
#line 11266 "ide/ide_methods.bas"
do{
#line 11266 "ide/ide_methods.bas"
goto fornext_exit_5940;
#line 11266 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11266,"ide_methods.bas");}while(r);
#line 11267 "ide/ide_methods.bas"
}
#line 11268 "ide/ide_methods.bas"
}
#line 11269 "ide/ide_methods.bas"
sc_ec_380_end:;
#line 11269 "ide/ide_methods.bas"
goto sc_5942_end;
#line 11269 "ide/ide_methods.bas"
}
#line 11269 "ide/ide_methods.bas"
sc_5942_end:;
#line 11270 "ide/ide_methods.bas"
fornext_continue_5940:;
#line 11270 "ide/ide_methods.bas"
}
#line 11270 "ide/ide_methods.bas"
fornext_exit_5940:;
#line 11271 "ide/ide_methods.bas"
exit_subfunc:;
#line 11271 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 11271 "ide/ide_methods.bas"
#include "free391.txt"
#line 11271 "ide/ide_methods.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 11271 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 11271 "ide/ide_methods.bas"
}
