#line 27985 "qb64pe.bas"
void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){
#line 27985 "qb64pe.bas"
qbs *tqbs;
#line 27985 "qb64pe.bas"
ptrszint tmp_long;
#line 27985 "qb64pe.bas"
int32 tmp_fileno;
#line 27985 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27985 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27985 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27985 "qb64pe.bas"
#include "data97.txt"
#line 27985 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27985 "qb64pe.bas"
new_mem_lock();
#line 27985 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27985 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27985 "qb64pe.bas"
libqb_check_stack();
#line 27985 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27986 "qb64pe.bas"
do{
#line 27986 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5)));
#line 27986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27986 "qb64pe.bas"
if(!qbevent)break;evnt(27986);}while(r);
#line 27987 "qb64pe.bas"
do{
#line 27987 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 27987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27987 "qb64pe.bas"
if(!qbevent)break;evnt(27987);}while(r);
#line 27988 "qb64pe.bas"
S_36347:;
#line 27988 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_N== 1 ))||is_error_pending()){
#line 27988 "qb64pe.bas"
if(qbevent){evnt(27988);if(r)goto S_36347;}
#line 27989 "qb64pe.bas"
do{
#line 27989 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_print(nothingstring,1);",27));
#line 27989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27989 "qb64pe.bas"
if(!qbevent)break;evnt(27989);}while(r);
#line 27990 "qb64pe.bas"
do{
#line 27990 "qb64pe.bas"
goto LABEL_WRITEBLANKLINE2;
#line 27990 "qb64pe.bas"
if(!qbevent)break;evnt(27990);}while(r);
#line 27991 "qb64pe.bas"
}
#line 27992 "qb64pe.bas"
do{
#line 27992 "qb64pe.bas"
*_SUB_XWRITE_LONG_B= 0 ;
#line 27992 "qb64pe.bas"
if(!qbevent)break;evnt(27992);}while(r);
#line 27993 "qb64pe.bas"
do{
#line 27993 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
#line 27993 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27993 "qb64pe.bas"
if(!qbevent)break;evnt(27993);}while(r);
#line 27994 "qb64pe.bas"
do{
#line 27994 "qb64pe.bas"
*_SUB_XWRITE_LONG_LAST= 0 ;
#line 27994 "qb64pe.bas"
if(!qbevent)break;evnt(27994);}while(r);
#line 27995 "qb64pe.bas"
S_36354:;
#line 27995 "qb64pe.bas"
fornext_value3394= 2 ;
#line 27995 "qb64pe.bas"
fornext_finalvalue3394=*_SUB_XWRITE_LONG_N;
#line 27995 "qb64pe.bas"
fornext_step3394= 1 ;
#line 27995 "qb64pe.bas"
if (fornext_step3394<0) fornext_step_negative3394=1; else fornext_step_negative3394=0;
#line 27995 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3394;
#line 27995 "qb64pe.bas"
goto fornext_entrylabel3394;
#line 27995 "qb64pe.bas"
while(1){
#line 27995 "qb64pe.bas"
fornext_value3394=fornext_step3394+(*_SUB_XWRITE_LONG_I);
#line 27995 "qb64pe.bas"
fornext_entrylabel3394:
#line 27995 "qb64pe.bas"
*_SUB_XWRITE_LONG_I=fornext_value3394;
#line 27995 "qb64pe.bas"
if (fornext_step_negative3394){
#line 27995 "qb64pe.bas"
if (fornext_value3394<fornext_finalvalue3394) break;
#line 27995 "qb64pe.bas"
}else{
#line 27995 "qb64pe.bas"
if (fornext_value3394>fornext_finalvalue3394) break;
#line 27995 "qb64pe.bas"
}
#line 27995 "qb64pe.bas"
fornext_error3394:;
#line 27995 "qb64pe.bas"
if(qbevent){evnt(27995);if(r)goto S_36354;}
#line 27996 "qb64pe.bas"
do{
#line 27996 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I));
#line 27996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27996 "qb64pe.bas"
if(!qbevent)break;evnt(27996);}while(r);
#line 27997 "qb64pe.bas"
S_36356:;
#line 27997 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27997 "qb64pe.bas"
if(qbevent){evnt(27997);if(r)goto S_36356;}
#line 27997 "qb64pe.bas"
do{
#line 27997 "qb64pe.bas"
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ;
#line 27997 "qb64pe.bas"
if(!qbevent)break;evnt(27997);}while(r);
#line 27997 "qb64pe.bas"
}
#line 27998 "qb64pe.bas"
S_36359:;
#line 27998 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27998 "qb64pe.bas"
if(qbevent){evnt(27998);if(r)goto S_36359;}
#line 27998 "qb64pe.bas"
do{
#line 27998 "qb64pe.bas"
*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ;
#line 27998 "qb64pe.bas"
if(!qbevent)break;evnt(27998);}while(r);
#line 27998 "qb64pe.bas"
}
#line 27999 "qb64pe.bas"
S_36362:;
#line 27999 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_B== 0 ))||is_error_pending()){
#line 27999 "qb64pe.bas"
if(qbevent){evnt(27999);if(r)goto S_36362;}
#line 28000 "qb64pe.bas"
S_36363:;
#line 28000 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 28000 "qb64pe.bas"
if(qbevent){evnt(28000);if(r)goto S_36363;}
#line 28001 "qb64pe.bas"
LABEL_WRITELAST:;
#line 28001 "qb64pe.bas"
if(qbevent){evnt(28001);r=0;}
#line 28002 "qb64pe.bas"
S_36364:;
#line 28002 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||is_error_pending()){
#line 28002 "qb64pe.bas"
if(qbevent){evnt(28002);if(r)goto S_36364;}
#line 28002 "qb64pe.bas"
do{
#line 28002 "qb64pe.bas"
*_SUB_XWRITE_LONG_NEWLINE= 1 ;
#line 28002 "qb64pe.bas"
if(!qbevent)break;evnt(28002);}while(r);
#line 28002 "qb64pe.bas"
}else{
#line 28002 "qb64pe.bas"
do{
#line 28002 "qb64pe.bas"
*_SUB_XWRITE_LONG_NEWLINE= 0 ;
#line 28002 "qb64pe.bas"
if(!qbevent)break;evnt(28002);}while(r);
#line 28002 "qb64pe.bas"
}
#line 28003 "qb64pe.bas"
do{
#line 28003 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E);
#line 28003 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28003 "qb64pe.bas"
if(!qbevent)break;evnt(28003);}while(r);
#line 28004 "qb64pe.bas"
do{
#line 28004 "qb64pe.bas"
*_SUB_XWRITE_LONG_REEVALED= 0 ;
#line 28004 "qb64pe.bas"
if(!qbevent)break;evnt(28004);}while(r);
#line 28005 "qb64pe.bas"
LABEL_WRITECHECKED:;
#line 28005 "qb64pe.bas"
if(qbevent){evnt(28005);r=0;}
#line 28006 "qb64pe.bas"
do{
#line 28006 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E));
#line 28006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28006 "qb64pe.bas"
if(!qbevent)break;evnt(28006);}while(r);
#line 28007 "qb64pe.bas"
S_36372:;
#line 28007 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 28007 "qb64pe.bas"
if(qbevent){evnt(28007);if(r)goto S_36372;}
#line 28007 "qb64pe.bas"
do{
#line 28007 "qb64pe.bas"
goto exit_subfunc;
#line 28007 "qb64pe.bas"
if(!qbevent)break;evnt(28007);}while(r);
#line 28007 "qb64pe.bas"
}
#line 28008 "qb64pe.bas"
S_36375:;
#line 28008 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
#line 28008 "qb64pe.bas"
if(qbevent){evnt(28008);if(r)goto S_36375;}
#line 28009 "qb64pe.bas"
do{
#line 28009 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 28009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28009 "qb64pe.bas"
if(!qbevent)break;evnt(28009);}while(r);
#line 28010 "qb64pe.bas"
S_36377:;
#line 28010 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 28010 "qb64pe.bas"
if(qbevent){evnt(28010);if(r)goto S_36377;}
#line 28010 "qb64pe.bas"
do{
#line 28010 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 28010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28010 "qb64pe.bas"
if(!qbevent)break;evnt(28010);}while(r);
#line 28010 "qb64pe.bas"
}
#line 28011 "qb64pe.bas"
}
#line 28012 "qb64pe.bas"
do{
#line 28012 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP));
#line 28012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28012 "qb64pe.bas"
if(!qbevent)break;evnt(28012);}while(r);
#line 28013 "qb64pe.bas"
S_36382:;
#line 28013 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 28013 "qb64pe.bas"
if(qbevent){evnt(28013);if(r)goto S_36382;}
#line 28013 "qb64pe.bas"
do{
#line 28013 "qb64pe.bas"
goto exit_subfunc;
#line 28013 "qb64pe.bas"
if(!qbevent)break;evnt(28013);}while(r);
#line 28013 "qb64pe.bas"
}
#line 28014 "qb64pe.bas"
S_36385:;
#line 28014 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||is_error_pending()){
#line 28014 "qb64pe.bas"
if(qbevent){evnt(28014);if(r)goto S_36385;}
#line 28015 "qb64pe.bas"
S_36386:;
#line 28015 "qb64pe.bas"
if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 28015 "qb64pe.bas"
if(qbevent){evnt(28015);if(r)goto S_36386;}
#line 28016 "qb64pe.bas"
do{
#line 28016 "qb64pe.bas"
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)));
#line 28016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28016 "qb64pe.bas"
if(!qbevent)break;evnt(28016);}while(r);
#line 28017 "qb64pe.bas"
S_36388:;
#line 28017 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 28017 "qb64pe.bas"
if(qbevent){evnt(28017);if(r)goto S_36388;}
#line 28017 "qb64pe.bas"
do{
#line 28017 "qb64pe.bas"
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)));
#line 28017 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28017 "qb64pe.bas"
if(!qbevent)break;evnt(28017);}while(r);
#line 28017 "qb64pe.bas"
}
#line 28018 "qb64pe.bas"
do{
#line 28018 "qb64pe.bas"
*_SUB_XWRITE_LONG_REEVALED= 1 ;
#line 28018 "qb64pe.bas"
if(!qbevent)break;evnt(28018);}while(r);
#line 28019 "qb64pe.bas"
do{
#line 28019 "qb64pe.bas"
goto LABEL_WRITECHECKED;
#line 28019 "qb64pe.bas"
if(!qbevent)break;evnt(28019);}while(r);
#line 28020 "qb64pe.bas"
}else{
#line 28021 "qb64pe.bas"
do{
#line 28021 "qb64pe.bas"
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)));
#line 28021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28021 "qb64pe.bas"
if(!qbevent)break;evnt(28021);}while(r);
#line 28022 "qb64pe.bas"
S_36395:;
#line 28022 "qb64pe.bas"
if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||is_error_pending()){
#line 28022 "qb64pe.bas"
if(qbevent){evnt(28022);if(r)goto S_36395;}
#line 28022 "qb64pe.bas"
do{
#line 28022 "qb64pe.bas"
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)));
#line 28022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28022 "qb64pe.bas"
if(!qbevent)break;evnt(28022);}while(r);
#line 28022 "qb64pe.bas"
}
#line 28023 "qb64pe.bas"
do{
#line 28023 "qb64pe.bas"
*_SUB_XWRITE_LONG_REEVALED= 1 ;
#line 28023 "qb64pe.bas"
if(!qbevent)break;evnt(28023);}while(r);
#line 28024 "qb64pe.bas"
do{
#line 28024 "qb64pe.bas"
goto LABEL_WRITECHECKED;
#line 28024 "qb64pe.bas"
if(!qbevent)break;evnt(28024);}while(r);
#line 28025 "qb64pe.bas"
}
#line 28026 "qb64pe.bas"
}
#line 28027 "qb64pe.bas"
S_36402:;
#line 28027 "qb64pe.bas"
if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 28027 "qb64pe.bas"
if(qbevent){evnt(28027);if(r)goto S_36402;}
#line 28027 "qb64pe.bas"
do{
#line 28027 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3395= 0 )));
#line 28027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28027 "qb64pe.bas"
if(!qbevent)break;evnt(28027);}while(r);
#line 28027 "qb64pe.bas"
}
#line 28028 "qb64pe.bas"
S_36405:;
#line 28028 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 28028 "qb64pe.bas"
if(qbevent){evnt(28028);if(r)goto S_36405;}
#line 28028 "qb64pe.bas"
do{
#line 28028 "qb64pe.bas"
goto exit_subfunc;
#line 28028 "qb64pe.bas"
if(!qbevent)break;evnt(28028);}while(r);
#line 28028 "qb64pe.bas"
}
#line 28030 "qb64pe.bas"
do{
#line 28030 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 28030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28030 "qb64pe.bas"
if(!qbevent)break;evnt(28030);}while(r);
#line 28031 "qb64pe.bas"
do{
#line 28031 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 28031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28031 "qb64pe.bas"
if(!qbevent)break;evnt(28031);}while(r);
#line 28032 "qb64pe.bas"
do{
#line 28032 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0));
#line 28032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28032 "qb64pe.bas"
if(!qbevent)break;evnt(28032);}while(r);
#line 28033 "qb64pe.bas"
S_36411:;
#line 28033 "qb64pe.bas"
if ((*_SUB_XWRITE_LONG_LAST)||is_error_pending()){
#line 28033 "qb64pe.bas"
if(qbevent){evnt(28033);if(r)goto S_36411;}
#line 28033 "qb64pe.bas"
do{
#line 28033 "qb64pe.bas"
goto fornext_exit_3393;
#line 28033 "qb64pe.bas"
if(!qbevent)break;evnt(28033);}while(r);
#line 28033 "qb64pe.bas"
}
#line 28034 "qb64pe.bas"
do{
#line 28034 "qb64pe.bas"
goto LABEL_WRITENEXT;
#line 28034 "qb64pe.bas"
if(!qbevent)break;evnt(28034);}while(r);
#line 28035 "qb64pe.bas"
}
#line 28036 "qb64pe.bas"
}
#line 28037 "qb64pe.bas"
S_36417:;
#line 28037 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 28037 "qb64pe.bas"
if(qbevent){evnt(28037);if(r)goto S_36417;}
#line 28037 "qb64pe.bas"
do{
#line 28037 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2));
#line 28037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28037 "qb64pe.bas"
if(!qbevent)break;evnt(28037);}while(r);
#line 28037 "qb64pe.bas"
}else{
#line 28037 "qb64pe.bas"
do{
#line 28037 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2);
#line 28037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28037 "qb64pe.bas"
if(!qbevent)break;evnt(28037);}while(r);
#line 28037 "qb64pe.bas"
}
#line 28038 "qb64pe.bas"
LABEL_WRITENEXT:;
#line 28038 "qb64pe.bas"
if(qbevent){evnt(28038);r=0;}
#line 28039 "qb64pe.bas"
fornext_continue_3393:;
#line 28039 "qb64pe.bas"
}
#line 28039 "qb64pe.bas"
fornext_exit_3393:;
#line 28040 "qb64pe.bas"
S_36423:;
#line 28040 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 28040 "qb64pe.bas"
if(qbevent){evnt(28040);if(r)goto S_36423;}
#line 28040 "qb64pe.bas"
do{
#line 28040 "qb64pe.bas"
qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1));
#line 28040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28040 "qb64pe.bas"
if(!qbevent)break;evnt(28040);}while(r);
#line 28040 "qb64pe.bas"
do{
#line 28040 "qb64pe.bas"
*_SUB_XWRITE_LONG_LAST= 1 ;
#line 28040 "qb64pe.bas"
if(!qbevent)break;evnt(28040);}while(r);
#line 28040 "qb64pe.bas"
do{
#line 28040 "qb64pe.bas"
goto LABEL_WRITELAST;
#line 28040 "qb64pe.bas"
if(!qbevent)break;evnt(28040);}while(r);
#line 28040 "qb64pe.bas"
}
#line 28041 "qb64pe.bas"
LABEL_WRITEBLANKLINE2:;
#line 28041 "qb64pe.bas"
if(qbevent){evnt(28041);r=0;}
#line 28042 "qb64pe.bas"
do{
#line 28042 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1)));
#line 28042 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28042 "qb64pe.bas"
if(!qbevent)break;evnt(28042);}while(r);
#line 28043 "qb64pe.bas"
do{
#line 28043 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 28043 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28043 "qb64pe.bas"
if(!qbevent)break;evnt(28043);}while(r);
#line 28044 "qb64pe.bas"
do{
#line 28044 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 28044 "qb64pe.bas"
if(!qbevent)break;evnt(28044);}while(r);
#line 28044 "qb64pe.bas"
S_36431:;
#line 28044 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 28044 "qb64pe.bas"
if(qbevent){evnt(28044);if(r)goto S_36431;}
#line 28044 "qb64pe.bas"
do{
#line 28044 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L));
#line 28044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28044 "qb64pe.bas"
if(!qbevent)break;evnt(28044);}while(r);
#line 28044 "qb64pe.bas"
}else{
#line 28044 "qb64pe.bas"
do{
#line 28044 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L);
#line 28044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28044 "qb64pe.bas"
if(!qbevent)break;evnt(28044);}while(r);
#line 28044 "qb64pe.bas"
}
#line 28045 "qb64pe.bas"
exit_subfunc:;
#line 28045 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 28045 "qb64pe.bas"
#include "free97.txt"
#line 28045 "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 28045 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 28045 "qb64pe.bas"
}
