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 "data85.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{
qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27372);}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(27373);}while(r);
S_35749:;
if ((-(*_SUB_XWRITE_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(27374);if(r)goto S_35749;}
do{
SUB_WRITEBUFLINE(&(pass4179=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_print(nothingstring,1);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27375);}while(r);
do{
goto LABEL_WRITEBLANKLINE2;
if(!qbevent)break;evnt(27376);}while(r);
}
do{
*_SUB_XWRITE_LONG_B= 0 ;
if(!qbevent)break;evnt(27378);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27379);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 0 ;
if(!qbevent)break;evnt(27380);}while(r);
S_35756:;
fornext_value4181= 2 ;
fornext_finalvalue4181=*_SUB_XWRITE_LONG_N;
fornext_step4181= 1 ;
if (fornext_step4181<0) fornext_step_negative4181=1; else fornext_step_negative4181=0;
if (is_error_pending()) goto fornext_error4181;
goto fornext_entrylabel4181;
while(1){
fornext_value4181=fornext_step4181+(*_SUB_XWRITE_LONG_I);
fornext_entrylabel4181:
*_SUB_XWRITE_LONG_I=fornext_value4181;
if (fornext_step_negative4181){
if (fornext_value4181<fornext_finalvalue4181) break;
}else{
if (fornext_value4181>fornext_finalvalue4181) break;
}
fornext_error4181:;
if(qbevent){evnt(27381);if(r)goto S_35756;}
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(27382);}while(r);
S_35758:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(27383);if(r)goto S_35758;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ;
if(!qbevent)break;evnt(27383);}while(r);
}
S_35761:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(27384);if(r)goto S_35761;}
do{
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ;
if(!qbevent)break;evnt(27384);}while(r);
}
S_35764:;
if ((-(*_SUB_XWRITE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(27385);if(r)goto S_35764;}
S_35765:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(27386);if(r)goto S_35765;}
LABEL_WRITELAST:;
if(qbevent){evnt(27387);r=0;}
S_35766:;
if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||is_error_pending()){
if(qbevent){evnt(27388);if(r)goto S_35766;}
do{
*_SUB_XWRITE_LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(27388);}while(r);
}else{
do{
*_SUB_XWRITE_LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(27388);}while(r);
}
do{
qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27389);}while(r);
do{
*_SUB_XWRITE_LONG_REEVALED= 0 ;
if(!qbevent)break;evnt(27390);}while(r);
LABEL_WRITECHECKED:;
if(qbevent){evnt(27391);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(27392);}while(r);
S_35774:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27393);if(r)goto S_35774;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27393);}while(r);
}
S_35777:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(27394);if(r)goto S_35777;}
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(27395);}while(r);
S_35779:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(27396);if(r)goto S_35779;}
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(27396);}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(27398);}while(r);
S_35784:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27399);if(r)goto S_35784;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27399);}while(r);
}
S_35787:;
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
if(qbevent){evnt(27400);if(r)goto S_35787;}
S_35788:;
if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(27401);if(r)goto S_35788;}
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(27402);}while(r);
S_35790:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(27403);if(r)goto S_35790;}
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(27403);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(27404);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(27405);}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(27407);}while(r);
S_35797:;
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
if(qbevent){evnt(27408);if(r)goto S_35797;}
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(27408);}while(r);
}
do{
*_SUB_XWRITE_LONG_REEVALED= 1 ;
if(!qbevent)break;evnt(27409);}while(r);
do{
goto LABEL_WRITECHECKED;
if(!qbevent)break;evnt(27410);}while(r);
}
}
S_35804:;
if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(27413);if(r)goto S_35804;}
do{
qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass4182= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27413);}while(r);
}
S_35807:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27414);if(r)goto S_35807;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27414);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass4183=*__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(27416);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4184=*__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(27417);}while(r);
do{
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27418);}while(r);
S_35813:;
if ((*_SUB_XWRITE_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(27419);if(r)goto S_35813;}
do{
goto fornext_exit_4180;
if(!qbevent)break;evnt(27419);}while(r);
}
do{
goto LABEL_WRITENEXT;
if(!qbevent)break;evnt(27420);}while(r);
}
}
S_35819:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(27423);if(r)goto S_35819;}
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(27423);}while(r);
}else{
do{
qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27423);}while(r);
}
LABEL_WRITENEXT:;
if(qbevent){evnt(27424);r=0;}
fornext_continue_4180:;
}
fornext_exit_4180:;
S_35825:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(27426);if(r)goto S_35825;}
do{
qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27426);}while(r);
do{
*_SUB_XWRITE_LONG_LAST= 1 ;
if(!qbevent)break;evnt(27426);}while(r);
do{
goto LABEL_WRITELAST;
if(!qbevent)break;evnt(27426);}while(r);
}
LABEL_WRITEBLANKLINE2:;
if(qbevent){evnt(27427);r=0;}
do{
SUB_WRITEBUFLINE(&(pass4185=*__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(27428);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4186=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27429);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(27430);}while(r);
S_35833:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(27430);if(r)goto S_35833;}
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(27430);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27430);}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free85.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;
}
