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 "data50.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(23427);}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(23428);}while(r);
S_31524:;
if ((-(*_SUB_XWRITE_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(23429);if(r)goto S_31524;}
do{
SUB_WRITEBUFLINE(&(pass3518=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_print(nothingstring,1);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23430);}while(r);
do{
goto LABEL_WRITEBLANKLINE2;
if(!qbevent)break;evnt(23431);}while(r);
}
do{
*_SUB_XWRITE_LONG_B= 0 ;
if(!qbevent)break;evnt(23433);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23434);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 0 ;
if(!qbevent)break;evnt(23435);}while(r);
S_31531:;
fornext_value3520= 2 ;
fornext_finalvalue3520=*_SUB_XWRITE_LONG_N;
fornext_step3520= 1 ;
if (fornext_step3520<0) fornext_step_negative3520=1; else fornext_step_negative3520=0;
if (is_error_pending()) goto fornext_error3520;
goto fornext_entrylabel3520;
while(1){
fornext_value3520=fornext_step3520+(*_SUB_XWRITE_LONG_I);
fornext_entrylabel3520:
*_SUB_XWRITE_LONG_I=fornext_value3520;
if (fornext_step_negative3520){
if (fornext_value3520<fornext_finalvalue3520) break;
}else{
if (fornext_value3520>fornext_finalvalue3520) break;
}
fornext_error3520:;
if(qbevent){evnt(23436);if(r)goto S_31531;}
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(23437);}while(r);
S_31533:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(23438);if(r)goto S_31533;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ;
if(!qbevent)break;evnt(23438);}while(r);
}
S_31536:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(23439);if(r)goto S_31536;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ;
if(!qbevent)break;evnt(23439);}while(r);
}
S_31539:;
if ((-(*_SUB_XWRITE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(23440);if(r)goto S_31539;}
S_31540:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(23441);if(r)goto S_31540;}
LABEL_WRITELAST:;
if(qbevent){evnt(23442);r=0;}
S_31541:;
if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||is_error_pending()){
if(qbevent){evnt(23443);if(r)goto S_31541;}
do{
*_SUB_XWRITE_LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(23443);}while(r);
}else{
do{
*_SUB_XWRITE_LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(23443);}while(r);
}
do{
qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23444);}while(r);
do{
*_SUB_XWRITE_LONG_REEVALED= 0 ;
if(!qbevent)break;evnt(23445);}while(r);
LABEL_WRITECHECKED:;
if(qbevent){evnt(23446);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(23447);}while(r);
S_31549:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(23448);if(r)goto S_31549;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23448);}while(r);
}
S_31552:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(23449);if(r)goto S_31552;}
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(23450);}while(r);
S_31554:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(23451);if(r)goto S_31554;}
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(23451);}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(23453);}while(r);
S_31559:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(23454);if(r)goto S_31559;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23454);}while(r);
}
S_31562:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(23455);if(r)goto S_31562;}
S_31563:;
if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(23456);if(r)goto S_31563;}
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(23457);}while(r);
S_31565:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(23458);if(r)goto S_31565;}
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(23458);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(23459);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(23460);}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(23462);}while(r);
S_31572:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(23463);if(r)goto S_31572;}
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(23463);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(23464);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(23465);}while(r);
}
}
S_31579:;
if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(23468);if(r)goto S_31579;}
do{
qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3521= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23468);}while(r);
}
S_31582:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(23469);if(r)goto S_31582;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(23469);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3522=*__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(23471);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3523=*__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(23472);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23473);}while(r);
S_31588:;
if ((*_SUB_XWRITE_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(23474);if(r)goto S_31588;}
do{
goto fornext_exit_3519;
if(!qbevent)break;evnt(23474);}while(r);
}
do{
goto LABEL_WRITENEXT;
if(!qbevent)break;evnt(23475);}while(r);
}
}
S_31594:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(23478);if(r)goto S_31594;}
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(23478);}while(r);
}else{
do{
qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23478);}while(r);
}
LABEL_WRITENEXT:;
if(qbevent){evnt(23479);r=0;}
fornext_continue_3519:;
}
fornext_exit_3519:;
S_31600:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(23481);if(r)goto S_31600;}
do{
qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23481);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 1 ;
if(!qbevent)break;evnt(23481);}while(r);
do{
goto LABEL_WRITELAST;
if(!qbevent)break;evnt(23481);}while(r);
}
LABEL_WRITEBLANKLINE2:;
if(qbevent){evnt(23482);r=0;}
do{
SUB_WRITEBUFLINE(&(pass3524=*__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(23483);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3525=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23484);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(23485);}while(r);
S_31608:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(23485);if(r)goto S_31608;}
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(23485);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(23485);}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free50.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;
}
