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 "data380.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(25769,20689,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(25769,20690,"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(25769,20691,"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(25769,20693,"ide_methods.bas");}while(r);
S_62792:;
while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||is_error_pending()){
if(qbevent){evnt(25769,20694,"ide_methods.bas");if(r)goto S_62792;}
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(25769,20695,"ide_methods.bas");}while(r);
S_62794:;
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||is_error_pending()){
if(qbevent){evnt(25769,20696,"ide_methods.bas");if(r)goto S_62794;}
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(25769,20697,"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(25769,20699,"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(25769,20700,"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(25769,20702,"ide_methods.bas");}while(r);
S_62801:;
if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||is_error_pending()){
if(qbevent){evnt(25769,20703,"ide_methods.bas");if(r)goto S_62801;}
S_62802:;
if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||is_error_pending()){
if(qbevent){evnt(25769,20704,"ide_methods.bas");if(r)goto S_62802;}
do{
qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3);
if(!qbevent)break;evnt(25769,20705,"ide_methods.bas");}while(r);
}else{
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20708,"ide_methods.bas");}while(r);
}
}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ;
if(!qbevent)break;evnt(25769,20712,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ;
if(!qbevent)break;evnt(25769,20713,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ;
if(!qbevent)break;evnt(25769,20714,"ide_methods.bas");}while(r);
S_62811:;
fornext_value7076= 0 ;
fornext_finalvalue7076= 2 ;
fornext_step7076= 1 ;
if (fornext_step7076<0) fornext_step_negative7076=1; else fornext_step_negative7076=0;
if (is_error_pending()) goto fornext_error7076;
goto fornext_entrylabel7076;
while(1){
fornext_value7076=fornext_step7076+(*_SUB_PRINTWRAPSTATUS_INTEGER_I);
fornext_entrylabel7076:
*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value7076;
if (fornext_step_negative7076){
if (fornext_value7076<fornext_finalvalue7076) break;
}else{
if (fornext_value7076>fornext_finalvalue7076) break;
}
fornext_error7076:;
if(qbevent){evnt(25769,20715,"ide_methods.bas");if(r)goto S_62811;}
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(25769,20716,"ide_methods.bas");}while(r);
S_62813:;
if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20717,"ide_methods.bas");if(r)goto S_62813;}
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(25769,20718,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
if(!qbevent)break;evnt(25769,20719,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=195;
if (next_return_point>=return_points) more_return_points();
goto LABEL_APPLYCOLORCHANGE;
RETURN_195:;
if(!qbevent)break;evnt(25769,20720,"ide_methods.bas");}while(r);
S_62817:;
}else{
if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){
if(qbevent){evnt(25769,20721,"ide_methods.bas");if(r)goto S_62817;}
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(25769,20722,"ide_methods.bas");}while(r);
S_62819:;
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(25769,20723,"ide_methods.bas");if(r)goto S_62819;}
do{
qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20724,"ide_methods.bas");}while(r);
do{
*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ;
if(!qbevent)break;evnt(25769,20725,"ide_methods.bas");}while(r);
}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ;
if(!qbevent)break;evnt(25769,20727,"ide_methods.bas");}while(r);
}
}
fornext_continue_7075:;
}
fornext_exit_7075:;
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD);
if (is_error_pending()) goto skip7077;
makefit(tqbs);
qbs_print(tqbs,0);
skip7077:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20731,"ide_methods.bas");}while(r);
S_62827:;
if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||is_error_pending()){
if(qbevent){evnt(25769,20733,"ide_methods.bas");if(r)goto S_62827;}
do{
*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER;
if(!qbevent)break;evnt(25769,20734,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=196;
if (next_return_point>=return_points) more_return_points();
goto LABEL_APPLYCOLORCHANGE;
RETURN_196:;
if(!qbevent)break;evnt(25769,20735,"ide_methods.bas");}while(r);
S_62830:;
if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||is_error_pending()){
if(qbevent){evnt(25769,20736,"ide_methods.bas");if(r)goto S_62830;}
do{
qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(25769,20736,"ide_methods.bas");}while(r);
}
}
dl_continue_7072:;
}
dl_exit_7072:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20739,"ide_methods.bas");}while(r);
LABEL_APPLYCOLORCHANGE:;
if(qbevent){evnt(25769,20741,"ide_methods.bas");r=0;}
S_62836:;
sc_7078_var=0;
if(qbevent){evnt(25769,20742,"ide_methods.bas");if(r)goto S_62836;}
S_62837:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||is_error_pending()){
if(qbevent){evnt(25769,20743,"ide_methods.bas");if(r)goto S_62837;}
S_62838:;
if ((-(func__defaultcolor(NULL,0)!= 11 ))||is_error_pending()){
if(qbevent){evnt(25769,20744,"ide_methods.bas");if(r)goto S_62838;}
do{
qbg_sub_color( 11 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(25769,20744,"ide_methods.bas");}while(r);
}else{
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(25769,20744,"ide_methods.bas");}while(r);
}
sc_ec_451_end:;
sc_7078_var=-1;
}
S_62843:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||is_error_pending()){
if(qbevent){evnt(25769,20745,"ide_methods.bas");if(r)goto S_62843;}
do{
qbg_sub_color( 7 , 1 ,NULL,NULL,3);
if(!qbevent)break;evnt(25769,20746,"ide_methods.bas");}while(r);
sc_ec_452_end:;
sc_7078_var=-1;
}
S_62845:;
if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||is_error_pending()){
if(qbevent){evnt(25769,20747,"ide_methods.bas");if(r)goto S_62845;}
do{
qbg_sub_color( 12 , 6 ,NULL,NULL,3);
if(!qbevent)break;evnt(25769,20748,"ide_methods.bas");}while(r);
sc_ec_453_end:;
}
sc_7078_end:;
do{
#include "ret380.txt"
if(!qbevent)break;evnt(25769,20750,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free380.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;
}
