void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT){
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 "data444.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{
if(!qbevent)break;evnt(28182,21210,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,21211,"ide_methods.bas");}while(r);
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,_SUB_PRINTWRAPSTATUS_STRING___TEXT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21212,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_SUB_PRINTWRAPSTATUS_INTEGER_Y,*_SUB_PRINTWRAPSTATUS_INTEGER_X,NULL,NULL,NULL,3);
if(!qbevent)break;evnt(28182,21214,"ide_methods.bas");}while(r);
S_67475:;
while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||is_error_pending()){
if(qbevent){evnt(28182,21215,"ide_methods.bas");if(r)goto S_67475;}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_TEXT,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21216,"ide_methods.bas");}while(r);
S_67477:;
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||is_error_pending()){
if(qbevent){evnt(28182,21217,"ide_methods.bas");if(r)goto S_67477;}
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_left(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21218,"ide_methods.bas");}while(r);
}else{
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=_SUB_PRINTWRAPSTATUS_STRING_TEXT->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21220,"ide_methods.bas");}while(r);
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,_SUB_PRINTWRAPSTATUS_STRING_TEXT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21221,"ide_methods.bas");}while(r);
}
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,func_mid(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21223,"ide_methods.bas");}while(r);
S_67484:;
if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||is_error_pending()){
if(qbevent){evnt(28182,21224,"ide_methods.bas");if(r)goto S_67484;}
S_67485:;
if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||is_error_pending()){
if(qbevent){evnt(28182,21225,"ide_methods.bas");if(r)goto S_67485;}
do{
qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3);
if(!qbevent)break;evnt(28182,21226,"ide_methods.bas");}while(r);
}else{
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21229,"ide_methods.bas");}while(r);
}
}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ;
if(!qbevent)break;evnt(28182,21233,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ;
if(!qbevent)break;evnt(28182,21234,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ;
if(!qbevent)break;evnt(28182,21235,"ide_methods.bas");}while(r);
S_67494:;
fornext_value7750= 0 ;
fornext_finalvalue7750= 2 ;
fornext_step7750= 1 ;
if (fornext_step7750<0) fornext_step_negative7750=1; else fornext_step_negative7750=0;
if (is_error_pending()) goto fornext_error7750;
goto fornext_entrylabel7750;
while(1){
fornext_value7750=fornext_step7750+(*_SUB_PRINTWRAPSTATUS_INTEGER_I);
fornext_entrylabel7750:
*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value7750;
if (fornext_step_negative7750){
if (fornext_value7750<fornext_finalvalue7750) break;
}else{
if (fornext_value7750>fornext_finalvalue7750) break;
}
fornext_error7750:;
if(qbevent){evnt(28182,21236,"ide_methods.bas");if(r)goto S_67494;}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_chr(*_SUB_PRINTWRAPSTATUS_INTEGER_I),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21237,"ide_methods.bas");}while(r);
S_67496:;
if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,21238,"ide_methods.bas");if(r)goto S_67496;}
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 2 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21239,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
if(!qbevent)break;evnt(28182,21240,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=201;
if (next_return_point>=return_points) more_return_points();
goto LABEL_APPLYCOLORCHANGE;
RETURN_201:;
if(!qbevent)break;evnt(28182,21241,"ide_methods.bas");}while(r);
S_67500:;
}else{
if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){
if(qbevent){evnt(28182,21242,"ide_methods.bas");if(r)goto S_67500;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21243,"ide_methods.bas");}while(r);
S_67502:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 1 ),qbs_new_txt_len(" ",1))))||is_error_pending()){
if(qbevent){evnt(28182,21244,"ide_methods.bas");if(r)goto S_67502;}
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21245,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ;
if(!qbevent)break;evnt(28182,21246,"ide_methods.bas");}while(r);
}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
if(!qbevent)break;evnt(28182,21248,"ide_methods.bas");}while(r);
}
}
fornext_continue_7749:;
}
fornext_exit_7749:;
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD);
if (is_error_pending()) goto skip7751;
makefit(tqbs);
qbs_print(tqbs,0);
skip7751:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21252,"ide_methods.bas");}while(r);
S_67510:;
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||is_error_pending()){
if(qbevent){evnt(28182,21254,"ide_methods.bas");if(r)goto S_67510;}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER;
if(!qbevent)break;evnt(28182,21255,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=202;
if (next_return_point>=return_points) more_return_points();
goto LABEL_APPLYCOLORCHANGE;
RETURN_202:;
if(!qbevent)break;evnt(28182,21256,"ide_methods.bas");}while(r);
S_67513:;
if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||is_error_pending()){
if(qbevent){evnt(28182,21257,"ide_methods.bas");if(r)goto S_67513;}
do{
qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(28182,21257,"ide_methods.bas");}while(r);
}
}
dl_continue_7746:;
}
dl_exit_7746:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21260,"ide_methods.bas");}while(r);
LABEL_APPLYCOLORCHANGE:;
if(qbevent){evnt(28182,21262,"ide_methods.bas");r=0;}
S_67519:;
sc_7752_var=0;
if(qbevent){evnt(28182,21263,"ide_methods.bas");if(r)goto S_67519;}
S_67520:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||is_error_pending()){
if(qbevent){evnt(28182,21264,"ide_methods.bas");if(r)goto S_67520;}
S_67521:;
if ((-(func__defaultcolor(NULL,0)!= 11 ))||is_error_pending()){
if(qbevent){evnt(28182,21265,"ide_methods.bas");if(r)goto S_67521;}
do{
qbg_sub_color( 11 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(28182,21265,"ide_methods.bas");}while(r);
}else{
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(28182,21265,"ide_methods.bas");}while(r);
}
sc_ec_459_end:;
sc_7752_var=-1;
}
S_67526:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||is_error_pending()){
if(qbevent){evnt(28182,21266,"ide_methods.bas");if(r)goto S_67526;}
do{
qbg_sub_color( 7 , 1 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,21267,"ide_methods.bas");}while(r);
sc_ec_460_end:;
sc_7752_var=-1;
}
S_67528:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||is_error_pending()){
if(qbevent){evnt(28182,21268,"ide_methods.bas");if(r)goto S_67528;}
do{
qbg_sub_color( 12 , 6 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,21269,"ide_methods.bas");}while(r);
sc_ec_461_end:;
}
sc_7752_end:;
do{
#include "ret444.txt"
if(!qbevent)break;evnt(28182,21271,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free444.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;
}
