#line 21217 "ide/ide_methods.bas"
void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT){
#line 21217 "ide/ide_methods.bas"
qbs *tqbs;
#line 21217 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 21217 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 21217 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 21217 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 21217 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 21217 "ide/ide_methods.bas"
#include "data485.txt"
#line 21217 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 21217 "ide/ide_methods.bas"
new_mem_lock();
#line 21217 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 21217 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 21217 "ide/ide_methods.bas"
libqb_check_stack();
#line 21217 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 21218 "ide/ide_methods.bas"
do{
#line 21218 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21218,"ide_methods.bas");}while(r);
#line 21219 "ide/ide_methods.bas"
do{
#line 21219 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21219,"ide_methods.bas");}while(r);
#line 21220 "ide/ide_methods.bas"
do{
#line 21220 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,_SUB_PRINTWRAPSTATUS_STRING___TEXT);
#line 21220 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21220 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21220,"ide_methods.bas");}while(r);
#line 21222 "ide/ide_methods.bas"
do{
#line 21222 "ide/ide_methods.bas"
qbg_sub_locate(*_SUB_PRINTWRAPSTATUS_INTEGER_Y,*_SUB_PRINTWRAPSTATUS_INTEGER_X,NULL,NULL,NULL,3);
#line 21222 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21222,"ide_methods.bas");}while(r);
#line 21223 "ide/ide_methods.bas"
S_68602:;
#line 21223 "ide/ide_methods.bas"
while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||is_error_pending()){
#line 21223 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21223,"ide_methods.bas");if(r)goto S_68602;}
#line 21224 "ide/ide_methods.bas"
do{
#line 21224 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_TEXT,qbs_new_txt_len(" ",1),0);
#line 21224 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21224 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21224,"ide_methods.bas");}while(r);
#line 21225 "ide/ide_methods.bas"
S_68604:;
#line 21225 "ide/ide_methods.bas"
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||is_error_pending()){
#line 21225 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21225,"ide_methods.bas");if(r)goto S_68604;}
#line 21226 "ide/ide_methods.bas"
do{
#line 21226 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_left(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP));
#line 21226 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21226 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21226,"ide_methods.bas");}while(r);
#line 21227 "ide/ide_methods.bas"
}else{
#line 21228 "ide/ide_methods.bas"
do{
#line 21228 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=_SUB_PRINTWRAPSTATUS_STRING_TEXT->len;
#line 21228 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21228 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21228,"ide_methods.bas");}while(r);
#line 21229 "ide/ide_methods.bas"
do{
#line 21229 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,_SUB_PRINTWRAPSTATUS_STRING_TEXT);
#line 21229 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21229 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21229,"ide_methods.bas");}while(r);
#line 21230 "ide/ide_methods.bas"
}
#line 21231 "ide/ide_methods.bas"
do{
#line 21231 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,func_mid(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP+ 1 ,NULL,0));
#line 21231 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21231 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21231,"ide_methods.bas");}while(r);
#line 21232 "ide/ide_methods.bas"
S_68611:;
#line 21232 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||is_error_pending()){
#line 21232 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21232,"ide_methods.bas");if(r)goto S_68611;}
#line 21233 "ide/ide_methods.bas"
S_68612:;
#line 21233 "ide/ide_methods.bas"
if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||is_error_pending()){
#line 21233 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21233,"ide_methods.bas");if(r)goto S_68612;}
#line 21234 "ide/ide_methods.bas"
do{
#line 21234 "ide/ide_methods.bas"
qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3);
#line 21234 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21234,"ide_methods.bas");}while(r);
#line 21235 "ide/ide_methods.bas"
}else{
#line 21237 "ide/ide_methods.bas"
do{
#line 21237 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21237 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21237,"ide_methods.bas");}while(r);
#line 21238 "ide/ide_methods.bas"
}
#line 21239 "ide/ide_methods.bas"
}
#line 21241 "ide/ide_methods.bas"
do{
#line 21241 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ;
#line 21241 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21241,"ide_methods.bas");}while(r);
#line 21242 "ide/ide_methods.bas"
do{
#line 21242 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ;
#line 21242 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21242,"ide_methods.bas");}while(r);
#line 21243 "ide/ide_methods.bas"
do{
#line 21243 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ;
#line 21243 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21243,"ide_methods.bas");}while(r);
#line 21244 "ide/ide_methods.bas"
S_68621:;
#line 21244 "ide/ide_methods.bas"
fornext_value7040= 0 ;
#line 21244 "ide/ide_methods.bas"
fornext_finalvalue7040= 2 ;
#line 21244 "ide/ide_methods.bas"
fornext_step7040= 1 ;
#line 21244 "ide/ide_methods.bas"
if (fornext_step7040<0) fornext_step_negative7040=1; else fornext_step_negative7040=0;
#line 21244 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error7040;
#line 21244 "ide/ide_methods.bas"
goto fornext_entrylabel7040;
#line 21244 "ide/ide_methods.bas"
while(1){
#line 21244 "ide/ide_methods.bas"
fornext_value7040=fornext_step7040+(*_SUB_PRINTWRAPSTATUS_INTEGER_I);
#line 21244 "ide/ide_methods.bas"
fornext_entrylabel7040:
#line 21244 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value7040;
#line 21244 "ide/ide_methods.bas"
if (fornext_step_negative7040){
#line 21244 "ide/ide_methods.bas"
if (fornext_value7040<fornext_finalvalue7040) break;
#line 21244 "ide/ide_methods.bas"
}else{
#line 21244 "ide/ide_methods.bas"
if (fornext_value7040>fornext_finalvalue7040) break;
#line 21244 "ide/ide_methods.bas"
}
#line 21244 "ide/ide_methods.bas"
fornext_error7040:;
#line 21244 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21244,"ide_methods.bas");if(r)goto S_68621;}
#line 21245 "ide/ide_methods.bas"
do{
#line 21245 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_chr(*_SUB_PRINTWRAPSTATUS_INTEGER_I),0);
#line 21245 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21245 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21245,"ide_methods.bas");}while(r);
#line 21246 "ide/ide_methods.bas"
S_68623:;
#line 21246 "ide/ide_methods.bas"
if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||is_error_pending()){
#line 21246 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21246,"ide_methods.bas");if(r)goto S_68623;}
#line 21247 "ide/ide_methods.bas"
do{
#line 21247 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 2 ,NULL,0));
#line 21247 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21247 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21247,"ide_methods.bas");}while(r);
#line 21248 "ide/ide_methods.bas"
do{
#line 21248 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
#line 21248 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21248,"ide_methods.bas");}while(r);
#line 21249 "ide/ide_methods.bas"
do{
#line 21249 "ide/ide_methods.bas"
return_point[next_return_point++]=203;
#line 21249 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 21249 "ide/ide_methods.bas"
goto LABEL_APPLYCOLORCHANGE;
#line 21249 "ide/ide_methods.bas"
RETURN_203:;
#line 21249 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21249,"ide_methods.bas");}while(r);
#line 21250 "ide/ide_methods.bas"
S_68627:;
#line 21250 "ide/ide_methods.bas"
}else{
#line 21250 "ide/ide_methods.bas"
if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){
#line 21250 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21250,"ide_methods.bas");if(r)goto S_68627;}
#line 21251 "ide/ide_methods.bas"
do{
#line 21251 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_add(qbs_left(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER- 1 ),func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER+ 1 ,NULL,0)));
#line 21251 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21251 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21251,"ide_methods.bas");}while(r);
#line 21252 "ide/ide_methods.bas"
S_68629:;
#line 21252 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 1 ),qbs_new_txt_len(" ",1))))||is_error_pending()){
#line 21252 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21252,"ide_methods.bas");if(r)goto S_68629;}
#line 21253 "ide/ide_methods.bas"
do{
#line 21253 "ide/ide_methods.bas"
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD));
#line 21253 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21253 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21253,"ide_methods.bas");}while(r);
#line 21254 "ide/ide_methods.bas"
do{
#line 21254 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ;
#line 21254 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21254,"ide_methods.bas");}while(r);
#line 21255 "ide/ide_methods.bas"
}
#line 21256 "ide/ide_methods.bas"
do{
#line 21256 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
#line 21256 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21256,"ide_methods.bas");}while(r);
#line 21257 "ide/ide_methods.bas"
}
#line 21257 "ide/ide_methods.bas"
}
#line 21258 "ide/ide_methods.bas"
fornext_continue_7039:;
#line 21258 "ide/ide_methods.bas"
}
#line 21258 "ide/ide_methods.bas"
fornext_exit_7039:;
#line 21260 "ide/ide_methods.bas"
do{
#line 21260 "ide/ide_methods.bas"
tqbs=qbs_new(0,0);
#line 21260 "ide/ide_methods.bas"
qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD);
#line 21260 "ide/ide_methods.bas"
if (is_error_pending()) goto skip7041;
#line 21260 "ide/ide_methods.bas"
makefit(tqbs);
#line 21260 "ide/ide_methods.bas"
qbs_print(tqbs,0);
#line 21260 "ide/ide_methods.bas"
skip7041:
#line 21260 "ide/ide_methods.bas"
qbs_free(tqbs);
#line 21260 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21260 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21260,"ide_methods.bas");}while(r);
#line 21262 "ide/ide_methods.bas"
S_68637:;
#line 21262 "ide/ide_methods.bas"
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||is_error_pending()){
#line 21262 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21262,"ide_methods.bas");if(r)goto S_68637;}
#line 21263 "ide/ide_methods.bas"
do{
#line 21263 "ide/ide_methods.bas"
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER;
#line 21263 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21263,"ide_methods.bas");}while(r);
#line 21264 "ide/ide_methods.bas"
do{
#line 21264 "ide/ide_methods.bas"
return_point[next_return_point++]=204;
#line 21264 "ide/ide_methods.bas"
if (next_return_point>=return_points) more_return_points();
#line 21264 "ide/ide_methods.bas"
goto LABEL_APPLYCOLORCHANGE;
#line 21264 "ide/ide_methods.bas"
RETURN_204:;
#line 21264 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21264,"ide_methods.bas");}while(r);
#line 21265 "ide/ide_methods.bas"
S_68640:;
#line 21265 "ide/ide_methods.bas"
if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||is_error_pending()){
#line 21265 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21265,"ide_methods.bas");if(r)goto S_68640;}
#line 21265 "ide/ide_methods.bas"
do{
#line 21265 "ide/ide_methods.bas"
qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2);
#line 21265 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21265,"ide_methods.bas");}while(r);
#line 21265 "ide/ide_methods.bas"
}
#line 21266 "ide/ide_methods.bas"
}
#line 21267 "ide/ide_methods.bas"
dl_continue_7036:;
#line 21267 "ide/ide_methods.bas"
}
#line 21267 "ide/ide_methods.bas"
dl_exit_7036:;
#line 21268 "ide/ide_methods.bas"
do{
#line 21268 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21268 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21268,"ide_methods.bas");}while(r);
#line 21270 "ide/ide_methods.bas"
LABEL_APPLYCOLORCHANGE:;
#line 21270 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21270,"ide_methods.bas");r=0;}
#line 21271 "ide/ide_methods.bas"
S_68646:;
#line 21271 "ide/ide_methods.bas"
sc_7042_var=0;
#line 21271 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21271,"ide_methods.bas");if(r)goto S_68646;}
#line 21272 "ide/ide_methods.bas"
S_68647:;
#line 21272 "ide/ide_methods.bas"
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||is_error_pending()){
#line 21272 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21272,"ide_methods.bas");if(r)goto S_68647;}
#line 21273 "ide/ide_methods.bas"
S_68648:;
#line 21273 "ide/ide_methods.bas"
if ((-(func__defaultcolor(NULL,0)!= 11 ))||is_error_pending()){
#line 21273 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21273,"ide_methods.bas");if(r)goto S_68648;}
#line 21273 "ide/ide_methods.bas"
do{
#line 21273 "ide/ide_methods.bas"
qbg_sub_color( 11 ,NULL,NULL,NULL,1);
#line 21273 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21273,"ide_methods.bas");}while(r);
#line 21273 "ide/ide_methods.bas"
}else{
#line 21273 "ide/ide_methods.bas"
do{
#line 21273 "ide/ide_methods.bas"
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
#line 21273 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21273,"ide_methods.bas");}while(r);
#line 21273 "ide/ide_methods.bas"
}
#line 21274 "ide/ide_methods.bas"
sc_ec_458_end:;
#line 21274 "ide/ide_methods.bas"
sc_7042_var=-1;
#line 21274 "ide/ide_methods.bas"
}
#line 21274 "ide/ide_methods.bas"
S_68653:;
#line 21274 "ide/ide_methods.bas"
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||is_error_pending()){
#line 21274 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21274,"ide_methods.bas");if(r)goto S_68653;}
#line 21275 "ide/ide_methods.bas"
do{
#line 21275 "ide/ide_methods.bas"
qbg_sub_color( 7 , 1 ,NULL,NULL,3);
#line 21275 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21275,"ide_methods.bas");}while(r);
#line 21276 "ide/ide_methods.bas"
sc_ec_459_end:;
#line 21276 "ide/ide_methods.bas"
sc_7042_var=-1;
#line 21276 "ide/ide_methods.bas"
}
#line 21276 "ide/ide_methods.bas"
S_68655:;
#line 21276 "ide/ide_methods.bas"
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||is_error_pending()){
#line 21276 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21276,"ide_methods.bas");if(r)goto S_68655;}
#line 21277 "ide/ide_methods.bas"
do{
#line 21277 "ide/ide_methods.bas"
qbg_sub_color( 12 , 6 ,NULL,NULL,3);
#line 21277 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21277,"ide_methods.bas");}while(r);
#line 21278 "ide/ide_methods.bas"
sc_ec_460_end:;
#line 21278 "ide/ide_methods.bas"
}
#line 21278 "ide/ide_methods.bas"
sc_7042_end:;
#line 21279 "ide/ide_methods.bas"
do{
#line 21279 "ide/ide_methods.bas"
#include "ret485.txt"
#line 21279 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21279,"ide_methods.bas");}while(r);
#line 21280 "ide/ide_methods.bas"
exit_subfunc:;
#line 21280 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 21280 "ide/ide_methods.bas"
#include "free485.txt"
#line 21280 "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 21280 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 21280 "ide/ide_methods.bas"
}
