#line 21059 "ide/ide_methods.bas"
void SUB_DELSELECT(){
#line 21059 "ide/ide_methods.bas"
qbs *tqbs;
#line 21059 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 21059 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 21059 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 21059 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 21059 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 21059 "ide/ide_methods.bas"
#include "data481.txt"
#line 21059 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 21059 "ide/ide_methods.bas"
new_mem_lock();
#line 21059 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 21059 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 21059 "ide/ide_methods.bas"
libqb_check_stack();
#line 21059 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 21060 "ide/ide_methods.bas"
do{
#line 21060 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_SY1=*__LONG_IDESELECTY1;
#line 21060 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21060,"ide_methods.bas");}while(r);
#line 21061 "ide/ide_methods.bas"
do{
#line 21061 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_SY2=*__LONG_IDECY;
#line 21061 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21061,"ide_methods.bas");}while(r);
#line 21062 "ide/ide_methods.bas"
S_68385:;
#line 21062 "ide/ide_methods.bas"
if ((-(*_SUB_DELSELECT_LONG_SY1>*_SUB_DELSELECT_LONG_SY2))||is_error_pending()){
#line 21062 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21062,"ide_methods.bas");if(r)goto S_68385;}
#line 21062 "ide/ide_methods.bas"
do{
#line 21062 "ide/ide_methods.bas"
swap_32(&*_SUB_DELSELECT_LONG_SY1,&*_SUB_DELSELECT_LONG_SY2);
#line 21062 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21062,"ide_methods.bas");}while(r);
#line 21062 "ide/ide_methods.bas"
}
#line 21063 "ide/ide_methods.bas"
do{
#line 21063 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_SX1=*__LONG_IDESELECTX1;
#line 21063 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21063,"ide_methods.bas");}while(r);
#line 21064 "ide/ide_methods.bas"
do{
#line 21064 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_SX2=*__LONG_IDECX;
#line 21064 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21064,"ide_methods.bas");}while(r);
#line 21065 "ide/ide_methods.bas"
S_68390:;
#line 21065 "ide/ide_methods.bas"
if ((-(*_SUB_DELSELECT_LONG_SX1>*_SUB_DELSELECT_LONG_SX2))||is_error_pending()){
#line 21065 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21065,"ide_methods.bas");if(r)goto S_68390;}
#line 21065 "ide/ide_methods.bas"
do{
#line 21065 "ide/ide_methods.bas"
swap_32(&*_SUB_DELSELECT_LONG_SX1,&*_SUB_DELSELECT_LONG_SX2);
#line 21065 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21065,"ide_methods.bas");}while(r);
#line 21065 "ide/ide_methods.bas"
}
#line 21066 "ide/ide_methods.bas"
do{
#line 21066 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 0 ;
#line 21066 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21066,"ide_methods.bas");}while(r);
#line 21067 "ide/ide_methods.bas"
S_68394:;
#line 21067 "ide/ide_methods.bas"
if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_SUB_DELSELECT_LONG_SY1)))||is_error_pending()){
#line 21067 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21067,"ide_methods.bas");if(r)goto S_68394;}
#line 21067 "ide/ide_methods.bas"
do{
#line 21067 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_SY2=*_SUB_DELSELECT_LONG_SY2- 1 ;
#line 21067 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21067,"ide_methods.bas");}while(r);
#line 21067 "ide/ide_methods.bas"
do{
#line 21067 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 1 ;
#line 21067 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21067,"ide_methods.bas");}while(r);
#line 21067 "ide/ide_methods.bas"
}
#line 21070 "ide/ide_methods.bas"
S_68398:;
#line 21070 "ide/ide_methods.bas"
fornext_value7015=*_SUB_DELSELECT_LONG_SY2;
#line 21070 "ide/ide_methods.bas"
fornext_finalvalue7015=*_SUB_DELSELECT_LONG_SY1;
#line 21070 "ide/ide_methods.bas"
fornext_step7015= -1 ;
#line 21070 "ide/ide_methods.bas"
if (fornext_step7015<0) fornext_step_negative7015=1; else fornext_step_negative7015=0;
#line 21070 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error7015;
#line 21070 "ide/ide_methods.bas"
goto fornext_entrylabel7015;
#line 21070 "ide/ide_methods.bas"
while(1){
#line 21070 "ide/ide_methods.bas"
fornext_value7015=fornext_step7015+(*_SUB_DELSELECT_LONG_Y);
#line 21070 "ide/ide_methods.bas"
fornext_entrylabel7015:
#line 21070 "ide/ide_methods.bas"
*_SUB_DELSELECT_LONG_Y=fornext_value7015;
#line 21070 "ide/ide_methods.bas"
if (fornext_step_negative7015){
#line 21070 "ide/ide_methods.bas"
if (fornext_value7015<fornext_finalvalue7015) break;
#line 21070 "ide/ide_methods.bas"
}else{
#line 21070 "ide/ide_methods.bas"
if (fornext_value7015>fornext_finalvalue7015) break;
#line 21070 "ide/ide_methods.bas"
}
#line 21070 "ide/ide_methods.bas"
fornext_error7015:;
#line 21070 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21070,"ide_methods.bas");if(r)goto S_68398;}
#line 21071 "ide/ide_methods.bas"
S_68399:;
#line 21071 "ide/ide_methods.bas"
if (((-(*_SUB_DELSELECT_LONG_SY1==*_SUB_DELSELECT_LONG_SY2))&(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 0 )))||is_error_pending()){
#line 21071 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21071,"ide_methods.bas");if(r)goto S_68399;}
#line 21072 "ide/ide_methods.bas"
do{
#line 21072 "ide/ide_methods.bas"
qbs_set(_SUB_DELSELECT_STRING_A,FUNC_IDEGETLINE(_SUB_DELSELECT_LONG_Y));
#line 21072 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21072 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21072,"ide_methods.bas");}while(r);
#line 21073 "ide/ide_methods.bas"
do{
#line 21073 "ide/ide_methods.bas"
qbs_set(_SUB_DELSELECT_STRING_A2,qbs_new_txt_len("",0));
#line 21073 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21073 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21073,"ide_methods.bas");}while(r);
#line 21074 "ide/ide_methods.bas"
S_68402:;
#line 21074 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX1<=_SUB_DELSELECT_STRING_A->len)))||is_error_pending()){
#line 21074 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21074,"ide_methods.bas");if(r)goto S_68402;}
#line 21074 "ide/ide_methods.bas"
do{
#line 21074 "ide/ide_methods.bas"
qbs_set(_SUB_DELSELECT_STRING_A2,qbs_left(_SUB_DELSELECT_STRING_A,*_SUB_DELSELECT_LONG_SX1- 1 ));
#line 21074 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21074 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21074,"ide_methods.bas");}while(r);
#line 21074 "ide/ide_methods.bas"
}else{
#line 21074 "ide/ide_methods.bas"
do{
#line 21074 "ide/ide_methods.bas"
qbs_set(_SUB_DELSELECT_STRING_A2,_SUB_DELSELECT_STRING_A);
#line 21074 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21074 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21074,"ide_methods.bas");}while(r);
#line 21074 "ide/ide_methods.bas"
}
#line 21075 "ide/ide_methods.bas"
S_68407:;
#line 21075 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX2<=_SUB_DELSELECT_STRING_A->len)))||is_error_pending()){
#line 21075 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21075,"ide_methods.bas");if(r)goto S_68407;}
#line 21075 "ide/ide_methods.bas"
do{
#line 21075 "ide/ide_methods.bas"
qbs_set(_SUB_DELSELECT_STRING_A2,qbs_add(_SUB_DELSELECT_STRING_A2,qbs_right(_SUB_DELSELECT_STRING_A,_SUB_DELSELECT_STRING_A->len-*_SUB_DELSELECT_LONG_SX2+ 1 )));
#line 21075 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21075 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21075,"ide_methods.bas");}while(r);
#line 21075 "ide/ide_methods.bas"
}
#line 21076 "ide/ide_methods.bas"
do{
#line 21076 "ide/ide_methods.bas"
SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,_SUB_DELSELECT_STRING_A2);
#line 21076 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21076 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21076,"ide_methods.bas");}while(r);
#line 21077 "ide/ide_methods.bas"
}else{
#line 21078 "ide/ide_methods.bas"
S_68412:;
#line 21078 "ide/ide_methods.bas"
if (((-(*__LONG_IDEN== 1 ))&(-(*_SUB_DELSELECT_LONG_Y== 1 )))||is_error_pending()){
#line 21078 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21078,"ide_methods.bas");if(r)goto S_68412;}
#line 21078 "ide/ide_methods.bas"
do{
#line 21078 "ide/ide_methods.bas"
SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,qbs_new_txt_len("",0));
#line 21078 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21078 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21078,"ide_methods.bas");}while(r);
#line 21078 "ide/ide_methods.bas"
}else{
#line 21078 "ide/ide_methods.bas"
do{
#line 21078 "ide/ide_methods.bas"
SUB_IDEDELLINE(_SUB_DELSELECT_LONG_Y);
#line 21078 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21078,"ide_methods.bas");}while(r);
#line 21078 "ide/ide_methods.bas"
}
#line 21079 "ide/ide_methods.bas"
}
#line 21080 "ide/ide_methods.bas"
fornext_continue_7014:;
#line 21080 "ide/ide_methods.bas"
}
#line 21080 "ide/ide_methods.bas"
fornext_exit_7014:;
#line 21082 "ide/ide_methods.bas"
do{
#line 21082 "ide/ide_methods.bas"
*__LONG_IDECX=*_SUB_DELSELECT_LONG_SX1;
#line 21082 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21082,"ide_methods.bas");}while(r);
#line 21082 "ide/ide_methods.bas"
S_68420:;
#line 21082 "ide/ide_methods.bas"
if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))|(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 1 )))||is_error_pending()){
#line 21082 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21082,"ide_methods.bas");if(r)goto S_68420;}
#line 21082 "ide/ide_methods.bas"
do{
#line 21082 "ide/ide_methods.bas"
*__LONG_IDECX= 1 ;
#line 21082 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21082,"ide_methods.bas");}while(r);
#line 21082 "ide/ide_methods.bas"
}
#line 21083 "ide/ide_methods.bas"
do{
#line 21083 "ide/ide_methods.bas"
*__LONG_IDECY=*_SUB_DELSELECT_LONG_SY1;
#line 21083 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21083,"ide_methods.bas");}while(r);
#line 21084 "ide/ide_methods.bas"
do{
#line 21084 "ide/ide_methods.bas"
*__LONG_IDESELECT= 0 ;
#line 21084 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21084,"ide_methods.bas");}while(r);
#line 21085 "ide/ide_methods.bas"
exit_subfunc:;
#line 21085 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 21085 "ide/ide_methods.bas"
#include "free481.txt"
#line 21085 "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 21085 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 21085 "ide/ide_methods.bas"
}
