void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){
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 "data58.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{
qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24961);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24962);}while(r);
S_33034:;
if ((-(*_SUB_XWRITE_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(24963);if(r)goto S_33034;}
do{
SUB_WRITEBUFLINE(&(pass3749=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_print(nothingstring,1);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24964);}while(r);
do{
goto LABEL_WRITEBLANKLINE2;
if(!qbevent)break;evnt(24965);}while(r);
}
do{
*_SUB_XWRITE_LONG_B= 0 ;
if(!qbevent)break;evnt(24967);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24968);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 0 ;
if(!qbevent)break;evnt(24969);}while(r);
S_33041:;
fornext_value3751= 2 ;
fornext_finalvalue3751=*_SUB_XWRITE_LONG_N;
fornext_step3751= 1 ;
if (fornext_step3751<0) fornext_step_negative3751=1; else fornext_step_negative3751=0;
if (is_error_pending()) goto fornext_error3751;
goto fornext_entrylabel3751;
while(1){
fornext_value3751=fornext_step3751+(*_SUB_XWRITE_LONG_I);
fornext_entrylabel3751:
*_SUB_XWRITE_LONG_I=fornext_value3751;
if (fornext_step_negative3751){
if (fornext_value3751<fornext_finalvalue3751) break;
}else{
if (fornext_value3751>fornext_finalvalue3751) break;
}
fornext_error3751:;
if(qbevent){evnt(24970);if(r)goto S_33041;}
do{
qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24971);}while(r);
S_33043:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(24972);if(r)goto S_33043;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ;
if(!qbevent)break;evnt(24972);}while(r);
}
S_33046:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(24973);if(r)goto S_33046;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ;
if(!qbevent)break;evnt(24973);}while(r);
}
S_33049:;
if ((-(*_SUB_XWRITE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(24974);if(r)goto S_33049;}
S_33050:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(24975);if(r)goto S_33050;}
LABEL_WRITELAST:;
if(qbevent){evnt(24976);r=0;}
S_33051:;
if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||is_error_pending()){
if(qbevent){evnt(24977);if(r)goto S_33051;}
do{
*_SUB_XWRITE_LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(24977);}while(r);
}else{
do{
*_SUB_XWRITE_LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(24977);}while(r);
}
do{
qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24978);}while(r);
do{
*_SUB_XWRITE_LONG_REEVALED= 0 ;
if(!qbevent)break;evnt(24979);}while(r);
LABEL_WRITECHECKED:;
if(qbevent){evnt(24980);r=0;}
do{
qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24981);}while(r);
S_33059:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(24982);if(r)goto S_33059;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24982);}while(r);
}
S_33062:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(24983);if(r)goto S_33062;}
do{
qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24984);}while(r);
S_33064:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(24985);if(r)goto S_33064;}
do{
qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24985);}while(r);
}
}
do{
qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24987);}while(r);
S_33069:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(24988);if(r)goto S_33069;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24988);}while(r);
}
S_33072:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(24989);if(r)goto S_33072;}
S_33073:;
if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(24990);if(r)goto S_33073;}
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24991);}while(r);
S_33075:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(24992);if(r)goto S_33075;}
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24992);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(24993);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(24994);}while(r);
}else{
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24996);}while(r);
S_33082:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(24997);if(r)goto S_33082;}
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24997);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(24998);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(24999);}while(r);
}
}
S_33089:;
if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(25002);if(r)goto S_33089;}
do{
qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3752= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25002);}while(r);
}
S_33092:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(25003);if(r)goto S_33092;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25003);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3753=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25005);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3754=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25006);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25007);}while(r);
S_33098:;
if ((*_SUB_XWRITE_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(25008);if(r)goto S_33098;}
do{
goto fornext_exit_3750;
if(!qbevent)break;evnt(25008);}while(r);
}
do{
goto LABEL_WRITENEXT;
if(!qbevent)break;evnt(25009);}while(r);
}
}
S_33104:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25012);if(r)goto S_33104;}
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25012);}while(r);
}else{
do{
qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25012);}while(r);
}
LABEL_WRITENEXT:;
if(qbevent){evnt(25013);r=0;}
fornext_continue_3750:;
}
fornext_exit_3750:;
S_33110:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25015);if(r)goto S_33110;}
do{
qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25015);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 1 ;
if(!qbevent)break;evnt(25015);}while(r);
do{
goto LABEL_WRITELAST;
if(!qbevent)break;evnt(25015);}while(r);
}
LABEL_WRITEBLANKLINE2:;
if(qbevent){evnt(25016);r=0;}
do{
SUB_WRITEBUFLINE(&(pass3755=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25017);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3756=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25018);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(25019);}while(r);
S_33118:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(25019);if(r)goto S_33118;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25019);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25019);}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free58.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;
}
