#line 27478 "qb64pe.bas"
void SUB_XFILEWRITE(qbs*_SUB_XFILEWRITE_STRING_CA,int32*_SUB_XFILEWRITE_LONG_N){
#line 27478 "qb64pe.bas"
qbs *tqbs;
#line 27478 "qb64pe.bas"
ptrszint tmp_long;
#line 27478 "qb64pe.bas"
int32 tmp_fileno;
#line 27478 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27478 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27478 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27478 "qb64pe.bas"
#include "data92.txt"
#line 27478 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27478 "qb64pe.bas"
new_mem_lock();
#line 27478 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27478 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27478 "qb64pe.bas"
libqb_check_stack();
#line 27478 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27479 "qb64pe.bas"
do{
#line 27479 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Write",5)),__STRING1_SP),qbs_new_txt_len("#",1)));
#line 27479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27479 "qb64pe.bas"
if(!qbevent)break;evnt(27479);}while(r);
#line 27480 "qb64pe.bas"
do{
#line 27480 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 27480 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27480 "qb64pe.bas"
if(!qbevent)break;evnt(27480);}while(r);
#line 27481 "qb64pe.bas"
do{
#line 27481 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_spc_cr_size=2;",18));
#line 27481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27481 "qb64pe.bas"
if(!qbevent)break;evnt(27481);}while(r);
#line 27482 "qb64pe.bas"
S_35629:;
#line 27482 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||is_error_pending()){
#line 27482 "qb64pe.bas"
if(qbevent){evnt(27482);if(r)goto S_35629;}
#line 27482 "qb64pe.bas"
do{
#line 27482 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14));
#line 27482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27482 "qb64pe.bas"
if(!qbevent)break;evnt(27482);}while(r);
#line 27482 "qb64pe.bas"
do{
#line 27482 "qb64pe.bas"
goto exit_subfunc;
#line 27482 "qb64pe.bas"
if(!qbevent)break;evnt(27482);}while(r);
#line 27482 "qb64pe.bas"
}
#line 27483 "qb64pe.bas"
do{
#line 27483 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0));
#line 27483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27483 "qb64pe.bas"
if(!qbevent)break;evnt(27483);}while(r);
#line 27484 "qb64pe.bas"
do{
#line 27484 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B= 0 ;
#line 27484 "qb64pe.bas"
if(!qbevent)break;evnt(27484);}while(r);
#line 27485 "qb64pe.bas"
S_35635:;
#line 27485 "qb64pe.bas"
fornext_value3336= 3 ;
#line 27485 "qb64pe.bas"
fornext_finalvalue3336=*_SUB_XFILEWRITE_LONG_N;
#line 27485 "qb64pe.bas"
fornext_step3336= 1 ;
#line 27485 "qb64pe.bas"
if (fornext_step3336<0) fornext_step_negative3336=1; else fornext_step_negative3336=0;
#line 27485 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3336;
#line 27485 "qb64pe.bas"
goto fornext_entrylabel3336;
#line 27485 "qb64pe.bas"
while(1){
#line 27485 "qb64pe.bas"
fornext_value3336=fornext_step3336+(*_SUB_XFILEWRITE_LONG_I);
#line 27485 "qb64pe.bas"
fornext_entrylabel3336:
#line 27485 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_I=fornext_value3336;
#line 27485 "qb64pe.bas"
if (fornext_step_negative3336){
#line 27485 "qb64pe.bas"
if (fornext_value3336<fornext_finalvalue3336) break;
#line 27485 "qb64pe.bas"
}else{
#line 27485 "qb64pe.bas"
if (fornext_value3336>fornext_finalvalue3336) break;
#line 27485 "qb64pe.bas"
}
#line 27485 "qb64pe.bas"
fornext_error3336:;
#line 27485 "qb64pe.bas"
if(qbevent){evnt(27485);if(r)goto S_35635;}
#line 27486 "qb64pe.bas"
do{
#line 27486 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I));
#line 27486 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27486 "qb64pe.bas"
if(!qbevent)break;evnt(27486);}while(r);
#line 27487 "qb64pe.bas"
S_35637:;
#line 27487 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27487 "qb64pe.bas"
if(qbevent){evnt(27487);if(r)goto S_35637;}
#line 27487 "qb64pe.bas"
do{
#line 27487 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ;
#line 27487 "qb64pe.bas"
if(!qbevent)break;evnt(27487);}while(r);
#line 27487 "qb64pe.bas"
}
#line 27488 "qb64pe.bas"
S_35640:;
#line 27488 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27488 "qb64pe.bas"
if(qbevent){evnt(27488);if(r)goto S_35640;}
#line 27488 "qb64pe.bas"
do{
#line 27488 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ;
#line 27488 "qb64pe.bas"
if(!qbevent)break;evnt(27488);}while(r);
#line 27488 "qb64pe.bas"
}
#line 27489 "qb64pe.bas"
S_35643:;
#line 27489 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEWRITE_LONG_B== 0 ))))||is_error_pending()){
#line 27489 "qb64pe.bas"
if(qbevent){evnt(27489);if(r)goto S_35643;}
#line 27490 "qb64pe.bas"
S_35644:;
#line 27490 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27490 "qb64pe.bas"
if(qbevent){evnt(27490);if(r)goto S_35644;}
#line 27490 "qb64pe.bas"
do{
#line 27490 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20));
#line 27490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27490 "qb64pe.bas"
if(!qbevent)break;evnt(27490);}while(r);
#line 27490 "qb64pe.bas"
do{
#line 27490 "qb64pe.bas"
goto exit_subfunc;
#line 27490 "qb64pe.bas"
if(!qbevent)break;evnt(27490);}while(r);
#line 27490 "qb64pe.bas"
}
#line 27491 "qb64pe.bas"
do{
#line 27491 "qb64pe.bas"
goto LABEL_WRITEGOTFN;
#line 27491 "qb64pe.bas"
if(!qbevent)break;evnt(27491);}while(r);
#line 27492 "qb64pe.bas"
}
#line 27493 "qb64pe.bas"
S_35650:;
#line 27493 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27493 "qb64pe.bas"
if(qbevent){evnt(27493);if(r)goto S_35650;}
#line 27493 "qb64pe.bas"
do{
#line 27493 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A3,_SUB_XFILEWRITE_STRING_A2);
#line 27493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27493 "qb64pe.bas"
if(!qbevent)break;evnt(27493);}while(r);
#line 27493 "qb64pe.bas"
}else{
#line 27493 "qb64pe.bas"
do{
#line 27493 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_A3,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2));
#line 27493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27493 "qb64pe.bas"
if(!qbevent)break;evnt(27493);}while(r);
#line 27493 "qb64pe.bas"
}
#line 27494 "qb64pe.bas"
fornext_continue_3335:;
#line 27494 "qb64pe.bas"
}
#line 27494 "qb64pe.bas"
fornext_exit_3335:;
#line 27495 "qb64pe.bas"
do{
#line 27495 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16));
#line 27495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27495 "qb64pe.bas"
if(!qbevent)break;evnt(27495);}while(r);
#line 27495 "qb64pe.bas"
do{
#line 27495 "qb64pe.bas"
goto exit_subfunc;
#line 27495 "qb64pe.bas"
if(!qbevent)break;evnt(27495);}while(r);
#line 27496 "qb64pe.bas"
LABEL_WRITEGOTFN:;
#line 27496 "qb64pe.bas"
if(qbevent){evnt(27496);r=0;}
#line 27497 "qb64pe.bas"
do{
#line 27497 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_A3));
#line 27497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27497 "qb64pe.bas"
if(!qbevent)break;evnt(27497);}while(r);
#line 27498 "qb64pe.bas"
S_35659:;
#line 27498 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27498 "qb64pe.bas"
if(qbevent){evnt(27498);if(r)goto S_35659;}
#line 27498 "qb64pe.bas"
do{
#line 27498 "qb64pe.bas"
goto exit_subfunc;
#line 27498 "qb64pe.bas"
if(!qbevent)break;evnt(27498);}while(r);
#line 27498 "qb64pe.bas"
}
#line 27499 "qb64pe.bas"
do{
#line 27499 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 27499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27499 "qb64pe.bas"
if(!qbevent)break;evnt(27499);}while(r);
#line 27500 "qb64pe.bas"
do{
#line 27500 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEWRITE_STRING_E,&(pass3337= 64 )));
#line 27500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27500 "qb64pe.bas"
if(!qbevent)break;evnt(27500);}while(r);
#line 27501 "qb64pe.bas"
S_35664:;
#line 27501 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27501 "qb64pe.bas"
if(qbevent){evnt(27501);if(r)goto S_35664;}
#line 27501 "qb64pe.bas"
do{
#line 27501 "qb64pe.bas"
goto exit_subfunc;
#line 27501 "qb64pe.bas"
if(!qbevent)break;evnt(27501);}while(r);
#line 27501 "qb64pe.bas"
}
#line 27502 "qb64pe.bas"
do{
#line 27502 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(";",1)));
#line 27502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27502 "qb64pe.bas"
if(!qbevent)break;evnt(27502);}while(r);
#line 27503 "qb64pe.bas"
do{
#line 27503 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)));
#line 27503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27503 "qb64pe.bas"
if(!qbevent)break;evnt(27503);}while(r);
#line 27504 "qb64pe.bas"
do{
#line 27504 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_I=*_SUB_XFILEWRITE_LONG_I+ 1 ;
#line 27504 "qb64pe.bas"
if(!qbevent)break;evnt(27504);}while(r);
#line 27505 "qb64pe.bas"
S_35670:;
#line 27505 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_I>*_SUB_XFILEWRITE_LONG_N))||is_error_pending()){
#line 27505 "qb64pe.bas"
if(qbevent){evnt(27505);if(r)goto S_35670;}
#line 27506 "qb64pe.bas"
do{
#line 27506 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47));
#line 27506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27506 "qb64pe.bas"
if(!qbevent)break;evnt(27506);}while(r);
#line 27507 "qb64pe.bas"
do{
#line 27507 "qb64pe.bas"
goto LABEL_WRITEBLANKLINE;
#line 27507 "qb64pe.bas"
if(!qbevent)break;evnt(27507);}while(r);
#line 27508 "qb64pe.bas"
}
#line 27509 "qb64pe.bas"
do{
#line 27509 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B= 0 ;
#line 27509 "qb64pe.bas"
if(!qbevent)break;evnt(27509);}while(r);
#line 27510 "qb64pe.bas"
do{
#line 27510 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0));
#line 27510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27510 "qb64pe.bas"
if(!qbevent)break;evnt(27510);}while(r);
#line 27511 "qb64pe.bas"
do{
#line 27511 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_LAST= 0 ;
#line 27511 "qb64pe.bas"
if(!qbevent)break;evnt(27511);}while(r);
#line 27512 "qb64pe.bas"
S_35677:;
#line 27512 "qb64pe.bas"
fornext_value3339=*_SUB_XFILEWRITE_LONG_I;
#line 27512 "qb64pe.bas"
fornext_finalvalue3339=*_SUB_XFILEWRITE_LONG_N;
#line 27512 "qb64pe.bas"
fornext_step3339= 1 ;
#line 27512 "qb64pe.bas"
if (fornext_step3339<0) fornext_step_negative3339=1; else fornext_step_negative3339=0;
#line 27512 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3339;
#line 27512 "qb64pe.bas"
goto fornext_entrylabel3339;
#line 27512 "qb64pe.bas"
while(1){
#line 27512 "qb64pe.bas"
fornext_value3339=fornext_step3339+(*_SUB_XFILEWRITE_LONG_I);
#line 27512 "qb64pe.bas"
fornext_entrylabel3339:
#line 27512 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_I=fornext_value3339;
#line 27512 "qb64pe.bas"
if (fornext_step_negative3339){
#line 27512 "qb64pe.bas"
if (fornext_value3339<fornext_finalvalue3339) break;
#line 27512 "qb64pe.bas"
}else{
#line 27512 "qb64pe.bas"
if (fornext_value3339>fornext_finalvalue3339) break;
#line 27512 "qb64pe.bas"
}
#line 27512 "qb64pe.bas"
fornext_error3339:;
#line 27512 "qb64pe.bas"
if(qbevent){evnt(27512);if(r)goto S_35677;}
#line 27513 "qb64pe.bas"
do{
#line 27513 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I));
#line 27513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27513 "qb64pe.bas"
if(!qbevent)break;evnt(27513);}while(r);
#line 27514 "qb64pe.bas"
S_35679:;
#line 27514 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27514 "qb64pe.bas"
if(qbevent){evnt(27514);if(r)goto S_35679;}
#line 27514 "qb64pe.bas"
do{
#line 27514 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ;
#line 27514 "qb64pe.bas"
if(!qbevent)break;evnt(27514);}while(r);
#line 27514 "qb64pe.bas"
}
#line 27515 "qb64pe.bas"
S_35682:;
#line 27515 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27515 "qb64pe.bas"
if(qbevent){evnt(27515);if(r)goto S_35682;}
#line 27515 "qb64pe.bas"
do{
#line 27515 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ;
#line 27515 "qb64pe.bas"
if(!qbevent)break;evnt(27515);}while(r);
#line 27515 "qb64pe.bas"
}
#line 27516 "qb64pe.bas"
S_35685:;
#line 27516 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||is_error_pending()){
#line 27516 "qb64pe.bas"
if(qbevent){evnt(27516);if(r)goto S_35685;}
#line 27517 "qb64pe.bas"
S_35686:;
#line 27517 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27517 "qb64pe.bas"
if(qbevent){evnt(27517);if(r)goto S_35686;}
#line 27518 "qb64pe.bas"
LABEL_WRITEFILELAST:;
#line 27518 "qb64pe.bas"
if(qbevent){evnt(27518);r=0;}
#line 27519 "qb64pe.bas"
S_35687:;
#line 27519 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||is_error_pending()){
#line 27519 "qb64pe.bas"
if(qbevent){evnt(27519);if(r)goto S_35687;}
#line 27519 "qb64pe.bas"
do{
#line 27519 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_NEWLINE= 1 ;
#line 27519 "qb64pe.bas"
if(!qbevent)break;evnt(27519);}while(r);
#line 27519 "qb64pe.bas"
}else{
#line 27519 "qb64pe.bas"
do{
#line 27519 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_NEWLINE= 0 ;
#line 27519 "qb64pe.bas"
if(!qbevent)break;evnt(27519);}while(r);
#line 27519 "qb64pe.bas"
}
#line 27520 "qb64pe.bas"
do{
#line 27520 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E);
#line 27520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27520 "qb64pe.bas"
if(!qbevent)break;evnt(27520);}while(r);
#line 27521 "qb64pe.bas"
do{
#line 27521 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_REEVALED= 0 ;
#line 27521 "qb64pe.bas"
if(!qbevent)break;evnt(27521);}while(r);
#line 27522 "qb64pe.bas"
LABEL_WRITEFILENUMBER:;
#line 27522 "qb64pe.bas"
if(qbevent){evnt(27522);r=0;}
#line 27523 "qb64pe.bas"
do{
#line 27523 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_E));
#line 27523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27523 "qb64pe.bas"
if(!qbevent)break;evnt(27523);}while(r);
#line 27524 "qb64pe.bas"
S_35695:;
#line 27524 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27524 "qb64pe.bas"
if(qbevent){evnt(27524);if(r)goto S_35695;}
#line 27524 "qb64pe.bas"
do{
#line 27524 "qb64pe.bas"
goto exit_subfunc;
#line 27524 "qb64pe.bas"
if(!qbevent)break;evnt(27524);}while(r);
#line 27524 "qb64pe.bas"
}
#line 27525 "qb64pe.bas"
S_35698:;
#line 27525 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
#line 27525 "qb64pe.bas"
if(qbevent){evnt(27525);if(r)goto S_35698;}
#line 27526 "qb64pe.bas"
do{
#line 27526 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27526 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27526 "qb64pe.bas"
if(!qbevent)break;evnt(27526);}while(r);
#line 27527 "qb64pe.bas"
S_35700:;
#line 27527 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 27527 "qb64pe.bas"
if(qbevent){evnt(27527);if(r)goto S_35700;}
#line 27527 "qb64pe.bas"
do{
#line 27527 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 27527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27527 "qb64pe.bas"
if(!qbevent)break;evnt(27527);}while(r);
#line 27527 "qb64pe.bas"
}
#line 27528 "qb64pe.bas"
}
#line 27529 "qb64pe.bas"
do{
#line 27529 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATE(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP));
#line 27529 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27529 "qb64pe.bas"
if(!qbevent)break;evnt(27529);}while(r);
#line 27530 "qb64pe.bas"
S_35705:;
#line 27530 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27530 "qb64pe.bas"
if(qbevent){evnt(27530);if(r)goto S_35705;}
#line 27530 "qb64pe.bas"
do{
#line 27530 "qb64pe.bas"
goto exit_subfunc;
#line 27530 "qb64pe.bas"
if(!qbevent)break;evnt(27530);}while(r);
#line 27530 "qb64pe.bas"
}
#line 27531 "qb64pe.bas"
S_35708:;
#line 27531 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
#line 27531 "qb64pe.bas"
if(qbevent){evnt(27531);if(r)goto S_35708;}
#line 27532 "qb64pe.bas"
S_35709:;
#line 27532 "qb64pe.bas"
if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 27532 "qb64pe.bas"
if(qbevent){evnt(27532);if(r)goto S_35709;}
#line 27533 "qb64pe.bas"
do{
#line 27533 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_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_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 27533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27533 "qb64pe.bas"
if(!qbevent)break;evnt(27533);}while(r);
#line 27534 "qb64pe.bas"
S_35711:;
#line 27534 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 27534 "qb64pe.bas"
if(qbevent){evnt(27534);if(r)goto S_35711;}
#line 27534 "qb64pe.bas"
do{
#line 27534 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_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)));
#line 27534 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27534 "qb64pe.bas"
if(!qbevent)break;evnt(27534);}while(r);
#line 27534 "qb64pe.bas"
}
#line 27535 "qb64pe.bas"
do{
#line 27535 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_REEVALED= 1 ;
#line 27535 "qb64pe.bas"
if(!qbevent)break;evnt(27535);}while(r);
#line 27536 "qb64pe.bas"
do{
#line 27536 "qb64pe.bas"
goto LABEL_WRITEFILENUMBER;
#line 27536 "qb64pe.bas"
if(!qbevent)break;evnt(27536);}while(r);
#line 27537 "qb64pe.bas"
}else{
#line 27538 "qb64pe.bas"
do{
#line 27538 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_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_XFILEWRITE_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)));
#line 27538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27538 "qb64pe.bas"
if(!qbevent)break;evnt(27538);}while(r);
#line 27539 "qb64pe.bas"
S_35718:;
#line 27539 "qb64pe.bas"
if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 27539 "qb64pe.bas"
if(qbevent){evnt(27539);if(r)goto S_35718;}
#line 27539 "qb64pe.bas"
do{
#line 27539 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_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)));
#line 27539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27539 "qb64pe.bas"
if(!qbevent)break;evnt(27539);}while(r);
#line 27539 "qb64pe.bas"
}
#line 27540 "qb64pe.bas"
do{
#line 27540 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_REEVALED= 1 ;
#line 27540 "qb64pe.bas"
if(!qbevent)break;evnt(27540);}while(r);
#line 27541 "qb64pe.bas"
do{
#line 27541 "qb64pe.bas"
goto LABEL_WRITEFILENUMBER;
#line 27541 "qb64pe.bas"
if(!qbevent)break;evnt(27541);}while(r);
#line 27542 "qb64pe.bas"
}
#line 27543 "qb64pe.bas"
}
#line 27544 "qb64pe.bas"
S_35725:;
#line 27544 "qb64pe.bas"
if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27544 "qb64pe.bas"
if(qbevent){evnt(27544);if(r)goto S_35725;}
#line 27544 "qb64pe.bas"
do{
#line 27544 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3340= 0 )));
#line 27544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27544 "qb64pe.bas"
if(!qbevent)break;evnt(27544);}while(r);
#line 27544 "qb64pe.bas"
}
#line 27545 "qb64pe.bas"
S_35728:;
#line 27545 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27545 "qb64pe.bas"
if(qbevent){evnt(27545);if(r)goto S_35728;}
#line 27545 "qb64pe.bas"
do{
#line 27545 "qb64pe.bas"
goto exit_subfunc;
#line 27545 "qb64pe.bas"
if(!qbevent)break;evnt(27545);}while(r);
#line 27545 "qb64pe.bas"
}
#line 27547 "qb64pe.bas"
do{
#line 27547 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(",0,0,",5)),qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2)));
#line 27547 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27547 "qb64pe.bas"
if(!qbevent)break;evnt(27547);}while(r);
#line 27548 "qb64pe.bas"
do{
#line 27548 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)));
#line 27548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27548 "qb64pe.bas"
if(!qbevent)break;evnt(27548);}while(r);
#line 27549 "qb64pe.bas"
do{
#line 27549 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0));
#line 27549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27549 "qb64pe.bas"
if(!qbevent)break;evnt(27549);}while(r);
#line 27550 "qb64pe.bas"
S_35734:;
#line 27550 "qb64pe.bas"
if ((*_SUB_XFILEWRITE_LONG_LAST)||is_error_pending()){
#line 27550 "qb64pe.bas"
if(qbevent){evnt(27550);if(r)goto S_35734;}
#line 27550 "qb64pe.bas"
do{
#line 27550 "qb64pe.bas"
goto fornext_exit_3338;
#line 27550 "qb64pe.bas"
if(!qbevent)break;evnt(27550);}while(r);
#line 27550 "qb64pe.bas"
}
#line 27551 "qb64pe.bas"
do{
#line 27551 "qb64pe.bas"
goto LABEL_WRITEFILENEXT;
#line 27551 "qb64pe.bas"
if(!qbevent)break;evnt(27551);}while(r);
#line 27552 "qb64pe.bas"
}
#line 27553 "qb64pe.bas"
}
#line 27554 "qb64pe.bas"
S_35740:;
#line 27554 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27554 "qb64pe.bas"
if(qbevent){evnt(27554);if(r)goto S_35740;}
#line 27554 "qb64pe.bas"
do{
#line 27554 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2));
#line 27554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27554 "qb64pe.bas"
if(!qbevent)break;evnt(27554);}while(r);
#line 27554 "qb64pe.bas"
}else{
#line 27554 "qb64pe.bas"
do{
#line 27554 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2);
#line 27554 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27554 "qb64pe.bas"
if(!qbevent)break;evnt(27554);}while(r);
#line 27554 "qb64pe.bas"
}
#line 27555 "qb64pe.bas"
LABEL_WRITEFILENEXT:;
#line 27555 "qb64pe.bas"
if(qbevent){evnt(27555);r=0;}
#line 27556 "qb64pe.bas"
fornext_continue_3338:;
#line 27556 "qb64pe.bas"
}
#line 27556 "qb64pe.bas"
fornext_exit_3338:;
#line 27557 "qb64pe.bas"
S_35746:;
#line 27557 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27557 "qb64pe.bas"
if(qbevent){evnt(27557);if(r)goto S_35746;}
#line 27557 "qb64pe.bas"
do{
#line 27557 "qb64pe.bas"
qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1));
#line 27557 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27557 "qb64pe.bas"
if(!qbevent)break;evnt(27557);}while(r);
#line 27557 "qb64pe.bas"
do{
#line 27557 "qb64pe.bas"
*_SUB_XFILEWRITE_LONG_LAST= 1 ;
#line 27557 "qb64pe.bas"
if(!qbevent)break;evnt(27557);}while(r);
#line 27557 "qb64pe.bas"
do{
#line 27557 "qb64pe.bas"
goto LABEL_WRITEFILELAST;
#line 27557 "qb64pe.bas"
if(!qbevent)break;evnt(27557);}while(r);
#line 27557 "qb64pe.bas"
}
#line 27558 "qb64pe.bas"
LABEL_WRITEBLANKLINE:;
#line 27558 "qb64pe.bas"
if(qbevent){evnt(27558);r=0;}
#line 27560 "qb64pe.bas"
do{
#line 27560 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1)));
#line 27560 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27560 "qb64pe.bas"
if(!qbevent)break;evnt(27560);}while(r);
#line 27561 "qb64pe.bas"
do{
#line 27561 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27561 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27561 "qb64pe.bas"
if(!qbevent)break;evnt(27561);}while(r);
#line 27562 "qb64pe.bas"
do{
#line 27562 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_spc_cr_size=1;",18));
#line 27562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27562 "qb64pe.bas"
if(!qbevent)break;evnt(27562);}while(r);
#line 27563 "qb64pe.bas"
do{
#line 27563 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 27563 "qb64pe.bas"
if(!qbevent)break;evnt(27563);}while(r);
#line 27563 "qb64pe.bas"
S_35755:;
#line 27563 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 27563 "qb64pe.bas"
if(qbevent){evnt(27563);if(r)goto S_35755;}
#line 27563 "qb64pe.bas"
do{
#line 27563 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XFILEWRITE_STRING_L));
#line 27563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27563 "qb64pe.bas"
if(!qbevent)break;evnt(27563);}while(r);
#line 27563 "qb64pe.bas"
}else{
#line 27563 "qb64pe.bas"
do{
#line 27563 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L);
#line 27563 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27563 "qb64pe.bas"
if(!qbevent)break;evnt(27563);}while(r);
#line 27563 "qb64pe.bas"
}
#line 27564 "qb64pe.bas"
exit_subfunc:;
#line 27564 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27564 "qb64pe.bas"
#include "free92.txt"
#line 27564 "qb64pe.bas"
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;
#line 27564 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27564 "qb64pe.bas"
}
