#line 27250 "qb64pe.bas"
void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){
#line 27250 "qb64pe.bas"
qbs *tqbs;
#line 27250 "qb64pe.bas"
ptrszint tmp_long;
#line 27250 "qb64pe.bas"
int32 tmp_fileno;
#line 27250 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27250 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27250 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27250 "qb64pe.bas"
#include "data91.txt"
#line 27250 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27250 "qb64pe.bas"
new_mem_lock();
#line 27250 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27250 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27250 "qb64pe.bas"
libqb_check_stack();
#line 27250 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27251 "qb64pe.bas"
do{
#line 27251 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 27251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27251 "qb64pe.bas"
if(!qbevent)break;evnt(27251);}while(r);
#line 27252 "qb64pe.bas"
do{
#line 27252 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_spc_cr_size=2;",18));
#line 27252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27252 "qb64pe.bas"
if(!qbevent)break;evnt(27252);}while(r);
#line 27253 "qb64pe.bas"
S_35311:;
#line 27253 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||is_error_pending()){
#line 27253 "qb64pe.bas"
if(qbevent){evnt(27253);if(r)goto S_35311;}
#line 27253 "qb64pe.bas"
do{
#line 27253 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20));
#line 27253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27253 "qb64pe.bas"
if(!qbevent)break;evnt(27253);}while(r);
#line 27253 "qb64pe.bas"
do{
#line 27253 "qb64pe.bas"
goto exit_subfunc;
#line 27253 "qb64pe.bas"
if(!qbevent)break;evnt(27253);}while(r);
#line 27253 "qb64pe.bas"
}
#line 27254 "qb64pe.bas"
do{
#line 27254 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0));
#line 27254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27254 "qb64pe.bas"
if(!qbevent)break;evnt(27254);}while(r);
#line 27255 "qb64pe.bas"
do{
#line 27255 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B= 0 ;
#line 27255 "qb64pe.bas"
if(!qbevent)break;evnt(27255);}while(r);
#line 27256 "qb64pe.bas"
S_35317:;
#line 27256 "qb64pe.bas"
fornext_value3320= 3 ;
#line 27256 "qb64pe.bas"
fornext_finalvalue3320=*_SUB_XFILEPRINT_LONG_N;
#line 27256 "qb64pe.bas"
fornext_step3320= 1 ;
#line 27256 "qb64pe.bas"
if (fornext_step3320<0) fornext_step_negative3320=1; else fornext_step_negative3320=0;
#line 27256 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3320;
#line 27256 "qb64pe.bas"
goto fornext_entrylabel3320;
#line 27256 "qb64pe.bas"
while(1){
#line 27256 "qb64pe.bas"
fornext_value3320=fornext_step3320+(*_SUB_XFILEPRINT_LONG_I);
#line 27256 "qb64pe.bas"
fornext_entrylabel3320:
#line 27256 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_I=fornext_value3320;
#line 27256 "qb64pe.bas"
if (fornext_step_negative3320){
#line 27256 "qb64pe.bas"
if (fornext_value3320<fornext_finalvalue3320) break;
#line 27256 "qb64pe.bas"
}else{
#line 27256 "qb64pe.bas"
if (fornext_value3320>fornext_finalvalue3320) break;
#line 27256 "qb64pe.bas"
}
#line 27256 "qb64pe.bas"
fornext_error3320:;
#line 27256 "qb64pe.bas"
if(qbevent){evnt(27256);if(r)goto S_35317;}
#line 27257 "qb64pe.bas"
do{
#line 27257 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
#line 27257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27257 "qb64pe.bas"
if(!qbevent)break;evnt(27257);}while(r);
#line 27258 "qb64pe.bas"
S_35319:;
#line 27258 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27258 "qb64pe.bas"
if(qbevent){evnt(27258);if(r)goto S_35319;}
#line 27258 "qb64pe.bas"
do{
#line 27258 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
#line 27258 "qb64pe.bas"
if(!qbevent)break;evnt(27258);}while(r);
#line 27258 "qb64pe.bas"
}
#line 27259 "qb64pe.bas"
S_35322:;
#line 27259 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27259 "qb64pe.bas"
if(qbevent){evnt(27259);if(r)goto S_35322;}
#line 27259 "qb64pe.bas"
do{
#line 27259 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
#line 27259 "qb64pe.bas"
if(!qbevent)break;evnt(27259);}while(r);
#line 27259 "qb64pe.bas"
}
#line 27260 "qb64pe.bas"
S_35325:;
#line 27260 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEPRINT_LONG_B== 0 ))))||is_error_pending()){
#line 27260 "qb64pe.bas"
if(qbevent){evnt(27260);if(r)goto S_35325;}
#line 27261 "qb64pe.bas"
S_35326:;
#line 27261 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27261 "qb64pe.bas"
if(qbevent){evnt(27261);if(r)goto S_35326;}
#line 27261 "qb64pe.bas"
do{
#line 27261 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20));
#line 27261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27261 "qb64pe.bas"
if(!qbevent)break;evnt(27261);}while(r);
#line 27261 "qb64pe.bas"
do{
#line 27261 "qb64pe.bas"
goto exit_subfunc;
#line 27261 "qb64pe.bas"
if(!qbevent)break;evnt(27261);}while(r);
#line 27261 "qb64pe.bas"
}
#line 27262 "qb64pe.bas"
do{
#line 27262 "qb64pe.bas"
goto LABEL_PRINTGOTFN;
#line 27262 "qb64pe.bas"
if(!qbevent)break;evnt(27262);}while(r);
#line 27263 "qb64pe.bas"
}
#line 27264 "qb64pe.bas"
S_35332:;
#line 27264 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27264 "qb64pe.bas"
if(qbevent){evnt(27264);if(r)goto S_35332;}
#line 27264 "qb64pe.bas"
do{
#line 27264 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2);
#line 27264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27264 "qb64pe.bas"
if(!qbevent)break;evnt(27264);}while(r);
#line 27264 "qb64pe.bas"
}else{
#line 27264 "qb64pe.bas"
do{
#line 27264 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27264 "qb64pe.bas"
if(!qbevent)break;evnt(27264);}while(r);
#line 27264 "qb64pe.bas"
}
#line 27265 "qb64pe.bas"
fornext_continue_3319:;
#line 27265 "qb64pe.bas"
}
#line 27265 "qb64pe.bas"
fornext_exit_3319:;
#line 27266 "qb64pe.bas"
do{
#line 27266 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16));
#line 27266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27266 "qb64pe.bas"
if(!qbevent)break;evnt(27266);}while(r);
#line 27266 "qb64pe.bas"
do{
#line 27266 "qb64pe.bas"
goto exit_subfunc;
#line 27266 "qb64pe.bas"
if(!qbevent)break;evnt(27266);}while(r);
#line 27267 "qb64pe.bas"
LABEL_PRINTGOTFN:;
#line 27267 "qb64pe.bas"
if(qbevent){evnt(27267);r=0;}
#line 27268 "qb64pe.bas"
do{
#line 27268 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3));
#line 27268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27268 "qb64pe.bas"
if(!qbevent)break;evnt(27268);}while(r);
#line 27269 "qb64pe.bas"
S_35341:;
#line 27269 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27269 "qb64pe.bas"
if(qbevent){evnt(27269);if(r)goto S_35341;}
#line 27269 "qb64pe.bas"
do{
#line 27269 "qb64pe.bas"
goto exit_subfunc;
#line 27269 "qb64pe.bas"
if(!qbevent)break;evnt(27269);}while(r);
#line 27269 "qb64pe.bas"
}
#line 27270 "qb64pe.bas"
do{
#line 27270 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Print",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 27270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27270 "qb64pe.bas"
if(!qbevent)break;evnt(27270);}while(r);
#line 27271 "qb64pe.bas"
do{
#line 27271 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3321= 64 )));
#line 27271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27271 "qb64pe.bas"
if(!qbevent)break;evnt(27271);}while(r);
#line 27272 "qb64pe.bas"
S_35346:;
#line 27272 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27272 "qb64pe.bas"
if(qbevent){evnt(27272);if(r)goto S_35346;}
#line 27272 "qb64pe.bas"
do{
#line 27272 "qb64pe.bas"
goto exit_subfunc;
#line 27272 "qb64pe.bas"
if(!qbevent)break;evnt(27272);}while(r);
#line 27272 "qb64pe.bas"
}
#line 27273 "qb64pe.bas"
do{
#line 27273 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1)));
#line 27273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27273 "qb64pe.bas"
if(!qbevent)break;evnt(27273);}while(r);
#line 27274 "qb64pe.bas"
do{
#line 27274 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27274 "qb64pe.bas"
if(!qbevent)break;evnt(27274);}while(r);
#line 27275 "qb64pe.bas"
do{
#line 27275 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ;
#line 27275 "qb64pe.bas"
if(!qbevent)break;evnt(27275);}while(r);
#line 27278 "qb64pe.bas"
S_35352:;
#line 27278 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||is_error_pending()){
#line 27278 "qb64pe.bas"
if(qbevent){evnt(27278);if(r)goto S_35352;}
#line 27279 "qb64pe.bas"
S_35353:;
#line 27279 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_A,_SUB_XFILEPRINT_LONG_I),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 27279 "qb64pe.bas"
if(qbevent){evnt(27279);if(r)goto S_35353;}
#line 27281 "qb64pe.bas"
LABEL_FPUJUMP:;
#line 27281 "qb64pe.bas"
if(qbevent){evnt(27281);r=0;}
#line 27282 "qb64pe.bas"
do{
#line 27282 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5))));
#line 27282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27282 "qb64pe.bas"
if(!qbevent)break;evnt(27282);}while(r);
#line 27283 "qb64pe.bas"
do{
#line 27283 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27283 "qb64pe.bas"
if(!qbevent)break;evnt(27283);}while(r);
#line 27283 "qb64pe.bas"
do{
#line 27283 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B= 0 ;
#line 27283 "qb64pe.bas"
if(!qbevent)break;evnt(27283);}while(r);
#line 27283 "qb64pe.bas"
do{
#line 27283 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0));
#line 27283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27283 "qb64pe.bas"
if(!qbevent)break;evnt(27283);}while(r);
#line 27284 "qb64pe.bas"
S_35358:;
#line 27284 "qb64pe.bas"
fornext_value3323=*_SUB_XFILEPRINT_LONG_I+ 1 ;
#line 27284 "qb64pe.bas"
fornext_finalvalue3323=*_SUB_XFILEPRINT_LONG_N;
#line 27284 "qb64pe.bas"
fornext_step3323= 1 ;
#line 27284 "qb64pe.bas"
if (fornext_step3323<0) fornext_step_negative3323=1; else fornext_step_negative3323=0;
#line 27284 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3323;
#line 27284 "qb64pe.bas"
goto fornext_entrylabel3323;
#line 27284 "qb64pe.bas"
while(1){
#line 27284 "qb64pe.bas"
fornext_value3323=fornext_step3323+(*_SUB_XFILEPRINT_LONG_I);
#line 27284 "qb64pe.bas"
fornext_entrylabel3323:
#line 27284 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_I=fornext_value3323;
#line 27284 "qb64pe.bas"
if (fornext_step_negative3323){
#line 27284 "qb64pe.bas"
if (fornext_value3323<fornext_finalvalue3323) break;
#line 27284 "qb64pe.bas"
}else{
#line 27284 "qb64pe.bas"
if (fornext_value3323>fornext_finalvalue3323) break;
#line 27284 "qb64pe.bas"
}
#line 27284 "qb64pe.bas"
fornext_error3323:;
#line 27284 "qb64pe.bas"
if(qbevent){evnt(27284);if(r)goto S_35358;}
#line 27285 "qb64pe.bas"
do{
#line 27285 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
#line 27285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27285 "qb64pe.bas"
if(!qbevent)break;evnt(27285);}while(r);
#line 27286 "qb64pe.bas"
S_35360:;
#line 27286 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27286 "qb64pe.bas"
if(qbevent){evnt(27286);if(r)goto S_35360;}
#line 27286 "qb64pe.bas"
do{
#line 27286 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
#line 27286 "qb64pe.bas"
if(!qbevent)break;evnt(27286);}while(r);
#line 27286 "qb64pe.bas"
}
#line 27287 "qb64pe.bas"
S_35363:;
#line 27287 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27287 "qb64pe.bas"
if(qbevent){evnt(27287);if(r)goto S_35363;}
#line 27287 "qb64pe.bas"
do{
#line 27287 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
#line 27287 "qb64pe.bas"
if(!qbevent)break;evnt(27287);}while(r);
#line 27287 "qb64pe.bas"
}
#line 27288 "qb64pe.bas"
S_35366:;
#line 27288 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27288 "qb64pe.bas"
if(qbevent){evnt(27288);if(r)goto S_35366;}
#line 27289 "qb64pe.bas"
S_35367:;
#line 27289 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27289 "qb64pe.bas"
if(qbevent){evnt(27289);if(r)goto S_35367;}
#line 27289 "qb64pe.bas"
do{
#line 27289 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
#line 27289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27289 "qb64pe.bas"
if(!qbevent)break;evnt(27289);}while(r);
#line 27289 "qb64pe.bas"
do{
#line 27289 "qb64pe.bas"
goto exit_subfunc;
#line 27289 "qb64pe.bas"
if(!qbevent)break;evnt(27289);}while(r);
#line 27289 "qb64pe.bas"
}
#line 27290 "qb64pe.bas"
S_35371:;
#line 27290 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27290 "qb64pe.bas"
if(qbevent){evnt(27290);if(r)goto S_35371;}
#line 27291 "qb64pe.bas"
do{
#line 27291 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
#line 27291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27291 "qb64pe.bas"
if(!qbevent)break;evnt(27291);}while(r);
#line 27292 "qb64pe.bas"
S_35373:;
#line 27292 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27292 "qb64pe.bas"
if(qbevent){evnt(27292);if(r)goto S_35373;}
#line 27292 "qb64pe.bas"
do{
#line 27292 "qb64pe.bas"
goto exit_subfunc;
#line 27292 "qb64pe.bas"
if(!qbevent)break;evnt(27292);}while(r);
#line 27292 "qb64pe.bas"
}
#line 27293 "qb64pe.bas"
do{
#line 27293 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1)));
#line 27293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27293 "qb64pe.bas"
if(!qbevent)break;evnt(27293);}while(r);
#line 27294 "qb64pe.bas"
do{
#line 27294 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
#line 27294 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27294 "qb64pe.bas"
if(!qbevent)break;evnt(27294);}while(r);
#line 27295 "qb64pe.bas"
S_35378:;
#line 27295 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27295 "qb64pe.bas"
if(qbevent){evnt(27295);if(r)goto S_35378;}
#line 27295 "qb64pe.bas"
do{
#line 27295 "qb64pe.bas"
goto exit_subfunc;
#line 27295 "qb64pe.bas"
if(!qbevent)break;evnt(27295);}while(r);
#line 27295 "qb64pe.bas"
}
#line 27296 "qb64pe.bas"
S_35381:;
#line 27296 "qb64pe.bas"
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27296 "qb64pe.bas"
if(qbevent){evnt(27296);if(r)goto S_35381;}
#line 27296 "qb64pe.bas"
do{
#line 27296 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3324= 0 )));
#line 27296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27296 "qb64pe.bas"
if(!qbevent)break;evnt(27296);}while(r);
#line 27296 "qb64pe.bas"
}
#line 27297 "qb64pe.bas"
S_35384:;
#line 27297 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27297 "qb64pe.bas"
if(qbevent){evnt(27297);if(r)goto S_35384;}
#line 27297 "qb64pe.bas"
do{
#line 27297 "qb64pe.bas"
goto exit_subfunc;
#line 27297 "qb64pe.bas"
if(!qbevent)break;evnt(27297);}while(r);
#line 27297 "qb64pe.bas"
}
#line 27298 "qb64pe.bas"
S_35387:;
#line 27298 "qb64pe.bas"
if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 27298 "qb64pe.bas"
if(qbevent){evnt(27298);if(r)goto S_35387;}
#line 27298 "qb64pe.bas"
do{
#line 27298 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
#line 27298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27298 "qb64pe.bas"
if(!qbevent)break;evnt(27298);}while(r);
#line 27298 "qb64pe.bas"
do{
#line 27298 "qb64pe.bas"
goto exit_subfunc;
#line 27298 "qb64pe.bas"
if(!qbevent)break;evnt(27298);}while(r);
#line 27298 "qb64pe.bas"
}
#line 27299 "qb64pe.bas"
do{
#line 27299 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E);
#line 27299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27299 "qb64pe.bas"
if(!qbevent)break;evnt(27299);}while(r);
#line 27300 "qb64pe.bas"
do{
#line 27300 "qb64pe.bas"
goto fornext_exit_3322;
#line 27300 "qb64pe.bas"
if(!qbevent)break;evnt(27300);}while(r);
#line 27301 "qb64pe.bas"
}
#line 27302 "qb64pe.bas"
}
#line 27303 "qb64pe.bas"
S_35395:;
#line 27303 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
#line 27303 "qb64pe.bas"
if(qbevent){evnt(27303);if(r)goto S_35395;}
#line 27303 "qb64pe.bas"
do{
#line 27303 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27303 "qb64pe.bas"
if(!qbevent)break;evnt(27303);}while(r);
#line 27303 "qb64pe.bas"
}else{
#line 27303 "qb64pe.bas"
do{
#line 27303 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
#line 27303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27303 "qb64pe.bas"
if(!qbevent)break;evnt(27303);}while(r);
#line 27303 "qb64pe.bas"
}
#line 27304 "qb64pe.bas"
fornext_continue_3322:;
#line 27304 "qb64pe.bas"
}
#line 27304 "qb64pe.bas"
fornext_exit_3322:;
#line 27305 "qb64pe.bas"
S_35401:;
#line 27305 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27305 "qb64pe.bas"
if(qbevent){evnt(27305);if(r)goto S_35401;}
#line 27305 "qb64pe.bas"
do{
#line 27305 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
#line 27305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27305 "qb64pe.bas"
if(!qbevent)break;evnt(27305);}while(r);
#line 27305 "qb64pe.bas"
do{
#line 27305 "qb64pe.bas"
goto exit_subfunc;
#line 27305 "qb64pe.bas"
if(!qbevent)break;evnt(27305);}while(r);
#line 27305 "qb64pe.bas"
}
#line 27306 "qb64pe.bas"
S_35405:;
#line 27306 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||is_error_pending()){
#line 27306 "qb64pe.bas"
if(qbevent){evnt(27306);if(r)goto S_35405;}
#line 27306 "qb64pe.bas"
do{
#line 27306 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
#line 27306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27306 "qb64pe.bas"
if(!qbevent)break;evnt(27306);}while(r);
#line 27306 "qb64pe.bas"
do{
#line 27306 "qb64pe.bas"
goto exit_subfunc;
#line 27306 "qb64pe.bas"
if(!qbevent)break;evnt(27306);}while(r);
#line 27306 "qb64pe.bas"
}
#line 27308 "qb64pe.bas"
do{
#line 27308 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs=qbs_new(0,0);",18));
#line 27308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27308 "qb64pe.bas"
if(!qbevent)break;evnt(27308);}while(r);
#line 27310 "qb64pe.bas"
do{
#line 27310 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=0;",11));
#line 27310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27310 "qb64pe.bas"
if(!qbevent)break;evnt(27310);}while(r);
#line 27312 "qb64pe.bas"
do{
#line 27312 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U));
#line 27312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27312 "qb64pe.bas"
if(!qbevent)break;evnt(27312);}while(r);
#line 27313 "qb64pe.bas"
S_35412:;
#line 27313 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27313 "qb64pe.bas"
if(qbevent){evnt(27313);if(r)goto S_35412;}
#line 27314 "qb64pe.bas"
do{
#line 27314 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
#line 27314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27314 "qb64pe.bas"
if(!qbevent)break;evnt(27314);}while(r);
#line 27315 "qb64pe.bas"
}else{
#line 27316 "qb64pe.bas"
do{
#line 27316 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
#line 27316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27316 "qb64pe.bas"
if(!qbevent)break;evnt(27316);}while(r);
#line 27317 "qb64pe.bas"
}
#line 27318 "qb64pe.bas"
do{
#line 27318 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)));
#line 27318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27318 "qb64pe.bas"
if(!qbevent)break;evnt(27318);}while(r);
#line 27319 "qb64pe.bas"
do{
#line 27319 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27319 "qb64pe.bas"
if(!qbevent)break;evnt(27319);}while(r);
#line 27321 "qb64pe.bas"
do{
#line 27321 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B= 0 ;
#line 27321 "qb64pe.bas"
if(!qbevent)break;evnt(27321);}while(r);
#line 27322 "qb64pe.bas"
do{
#line 27322 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27322 "qb64pe.bas"
if(!qbevent)break;evnt(27322);}while(r);
#line 27323 "qb64pe.bas"
do{
#line 27323 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_LAST= 0 ;
#line 27323 "qb64pe.bas"
if(!qbevent)break;evnt(27323);}while(r);
#line 27324 "qb64pe.bas"
S_35422:;
#line 27324 "qb64pe.bas"
fornext_value3327=*_SUB_XFILEPRINT_LONG_I+ 1 ;
#line 27324 "qb64pe.bas"
fornext_finalvalue3327=*_SUB_XFILEPRINT_LONG_N;
#line 27324 "qb64pe.bas"
fornext_step3327= 1 ;
#line 27324 "qb64pe.bas"
if (fornext_step3327<0) fornext_step_negative3327=1; else fornext_step_negative3327=0;
#line 27324 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3327;
#line 27324 "qb64pe.bas"
goto fornext_entrylabel3327;
#line 27324 "qb64pe.bas"
while(1){
#line 27324 "qb64pe.bas"
fornext_value3327=fornext_step3327+(*_SUB_XFILEPRINT_LONG_I);
#line 27324 "qb64pe.bas"
fornext_entrylabel3327:
#line 27324 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_I=fornext_value3327;
#line 27324 "qb64pe.bas"
if (fornext_step_negative3327){
#line 27324 "qb64pe.bas"
if (fornext_value3327<fornext_finalvalue3327) break;
#line 27324 "qb64pe.bas"
}else{
#line 27324 "qb64pe.bas"
if (fornext_value3327>fornext_finalvalue3327) break;
#line 27324 "qb64pe.bas"
}
#line 27324 "qb64pe.bas"
fornext_error3327:;
#line 27324 "qb64pe.bas"
if(qbevent){evnt(27324);if(r)goto S_35422;}
#line 27325 "qb64pe.bas"
do{
#line 27325 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
#line 27325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27325 "qb64pe.bas"
if(!qbevent)break;evnt(27325);}while(r);
#line 27326 "qb64pe.bas"
S_35424:;
#line 27326 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27326 "qb64pe.bas"
if(qbevent){evnt(27326);if(r)goto S_35424;}
#line 27326 "qb64pe.bas"
do{
#line 27326 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
#line 27326 "qb64pe.bas"
if(!qbevent)break;evnt(27326);}while(r);
#line 27326 "qb64pe.bas"
}
#line 27327 "qb64pe.bas"
S_35427:;
#line 27327 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27327 "qb64pe.bas"
if(qbevent){evnt(27327);if(r)goto S_35427;}
#line 27327 "qb64pe.bas"
do{
#line 27327 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
#line 27327 "qb64pe.bas"
if(!qbevent)break;evnt(27327);}while(r);
#line 27327 "qb64pe.bas"
}
#line 27328 "qb64pe.bas"
S_35430:;
#line 27328 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27328 "qb64pe.bas"
if(qbevent){evnt(27328);if(r)goto S_35430;}
#line 27329 "qb64pe.bas"
S_35431:;
#line 27329 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 27329 "qb64pe.bas"
if(qbevent){evnt(27329);if(r)goto S_35431;}
#line 27330 "qb64pe.bas"
LABEL_FPRINTULAST:;
#line 27330 "qb64pe.bas"
if(qbevent){evnt(27330);r=0;}
#line 27331 "qb64pe.bas"
do{
#line 27331 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
#line 27331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27331 "qb64pe.bas"
if(!qbevent)break;evnt(27331);}while(r);
#line 27332 "qb64pe.bas"
S_35433:;
#line 27332 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27332 "qb64pe.bas"
if(qbevent){evnt(27332);if(r)goto S_35433;}
#line 27332 "qb64pe.bas"
do{
#line 27332 "qb64pe.bas"
goto exit_subfunc;
#line 27332 "qb64pe.bas"
if(!qbevent)break;evnt(27332);}while(r);
#line 27332 "qb64pe.bas"
}
#line 27333 "qb64pe.bas"
S_35436:;
#line 27333 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
#line 27333 "qb64pe.bas"
if(qbevent){evnt(27333);if(r)goto S_35436;}
#line 27333 "qb64pe.bas"
do{
#line 27333 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27333 "qb64pe.bas"
if(!qbevent)break;evnt(27333);}while(r);
#line 27333 "qb64pe.bas"
}else{
#line 27333 "qb64pe.bas"
do{
#line 27333 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2));
#line 27333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27333 "qb64pe.bas"
if(!qbevent)break;evnt(27333);}while(r);
#line 27333 "qb64pe.bas"
}
#line 27334 "qb64pe.bas"
do{
#line 27334 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
#line 27334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27334 "qb64pe.bas"
if(!qbevent)break;evnt(27334);}while(r);
#line 27335 "qb64pe.bas"
S_35442:;
#line 27335 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27335 "qb64pe.bas"
if(qbevent){evnt(27335);if(r)goto S_35442;}
#line 27335 "qb64pe.bas"
do{
#line 27335 "qb64pe.bas"
goto exit_subfunc;
#line 27335 "qb64pe.bas"
if(!qbevent)break;evnt(27335);}while(r);
#line 27335 "qb64pe.bas"
}
#line 27336 "qb64pe.bas"
S_35445:;
#line 27336 "qb64pe.bas"
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27336 "qb64pe.bas"
if(qbevent){evnt(27336);if(r)goto S_35445;}
#line 27336 "qb64pe.bas"
do{
#line 27336 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3328= 0 )));
#line 27336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27336 "qb64pe.bas"
if(!qbevent)break;evnt(27336);}while(r);
#line 27336 "qb64pe.bas"
}
#line 27337 "qb64pe.bas"
S_35448:;
#line 27337 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27337 "qb64pe.bas"
if(qbevent){evnt(27337);if(r)goto S_35448;}
#line 27337 "qb64pe.bas"
do{
#line 27337 "qb64pe.bas"
goto exit_subfunc;
#line 27337 "qb64pe.bas"
if(!qbevent)break;evnt(27337);}while(r);
#line 27337 "qb64pe.bas"
}
#line 27338 "qb64pe.bas"
S_35451:;
#line 27338 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 27338 "qb64pe.bas"
if(qbevent){evnt(27338);if(r)goto S_35451;}
#line 27340 "qb64pe.bas"
S_35452:;
#line 27340 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||is_error_pending()){
#line 27340 "qb64pe.bas"
if(qbevent){evnt(27340);if(r)goto S_35452;}
#line 27345 "qb64pe.bas"
do{
#line 27345 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38));
#line 27345 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27345 "qb64pe.bas"
if(!qbevent)break;evnt(27345);}while(r);
#line 27347 "qb64pe.bas"
do{
#line 27347 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)));
#line 27347 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27347 "qb64pe.bas"
if(!qbevent)break;evnt(27347);}while(r);
#line 27348 "qb64pe.bas"
do{
#line 27348 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip_pu",36),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27348 "qb64pe.bas"
if(!qbevent)break;evnt(27348);}while(r);
#line 27349 "qb64pe.bas"
do{
#line 27349 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38));
#line 27349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27349 "qb64pe.bas"
if(!qbevent)break;evnt(27349);}while(r);
#line 27351 "qb64pe.bas"
do{
#line 27351 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs->len=0;",12));
#line 27351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27351 "qb64pe.bas"
if(!qbevent)break;evnt(27351);}while(r);
#line 27353 "qb64pe.bas"
}else{
#line 27356 "qb64pe.bas"
do{
#line 27356 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)));
#line 27356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27356 "qb64pe.bas"
if(!qbevent)break;evnt(27356);}while(r);
#line 27358 "qb64pe.bas"
}
#line 27360 "qb64pe.bas"
}else{
#line 27361 "qb64pe.bas"
S_35462:;
#line 27361 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 27361 "qb64pe.bas"
if(qbevent){evnt(27361);if(r)goto S_35462;}
#line 27362 "qb64pe.bas"
S_35463:;
#line 27362 "qb64pe.bas"
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 27362 "qb64pe.bas"
if(qbevent){evnt(27362);if(r)goto S_35463;}
#line 27362 "qb64pe.bas"
do{
#line 27362 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27362 "qb64pe.bas"
if(!qbevent)break;evnt(27362);}while(r);
#line 27362 "qb64pe.bas"
}
#line 27363 "qb64pe.bas"
S_35466:;
#line 27363 "qb64pe.bas"
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 27363 "qb64pe.bas"
if(qbevent){evnt(27363);if(r)goto S_35466;}
#line 27363 "qb64pe.bas"
do{
#line 27363 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27363 "qb64pe.bas"
if(!qbevent)break;evnt(27363);}while(r);
#line 27363 "qb64pe.bas"
}
#line 27364 "qb64pe.bas"
S_35469:;
#line 27364 "qb64pe.bas"
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 4095ll )> 64 ))||is_error_pending()){
#line 27364 "qb64pe.bas"
if(qbevent){evnt(27364);if(r)goto S_35469;}
#line 27364 "qb64pe.bas"
do{
#line 27364 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27364 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27364 "qb64pe.bas"
if(!qbevent)break;evnt(27364);}while(r);
#line 27364 "qb64pe.bas"
}
#line 27365 "qb64pe.bas"
}else{
#line 27366 "qb64pe.bas"
S_35473:;
#line 27366 "qb64pe.bas"
if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 4095ll )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
#line 27366 "qb64pe.bas"
if(qbevent){evnt(27366);if(r)goto S_35473;}
#line 27367 "qb64pe.bas"
do{
#line 27367 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27367 "qb64pe.bas"
if(!qbevent)break;evnt(27367);}while(r);
#line 27368 "qb64pe.bas"
}else{
#line 27369 "qb64pe.bas"
do{
#line 27369 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27369 "qb64pe.bas"
if(!qbevent)break;evnt(27369);}while(r);
#line 27370 "qb64pe.bas"
}
#line 27371 "qb64pe.bas"
}
#line 27372 "qb64pe.bas"
}
#line 27373 "qb64pe.bas"
do{
#line 27373 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip_pu",36),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27373 "qb64pe.bas"
if(!qbevent)break;evnt(27373);}while(r);
#line 27374 "qb64pe.bas"
do{
#line 27374 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27374 "qb64pe.bas"
if(!qbevent)break;evnt(27374);}while(r);
#line 27375 "qb64pe.bas"
S_35482:;
#line 27375 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
#line 27375 "qb64pe.bas"
if(qbevent){evnt(27375);if(r)goto S_35482;}
#line 27375 "qb64pe.bas"
do{
#line 27375 "qb64pe.bas"
goto fornext_exit_3326;
#line 27375 "qb64pe.bas"
if(!qbevent)break;evnt(27375);}while(r);
#line 27375 "qb64pe.bas"
}
#line 27376 "qb64pe.bas"
do{
#line 27376 "qb64pe.bas"
goto LABEL_FPRINTUNEXT;
#line 27376 "qb64pe.bas"
if(!qbevent)break;evnt(27376);}while(r);
#line 27377 "qb64pe.bas"
}
#line 27378 "qb64pe.bas"
}
#line 27379 "qb64pe.bas"
S_35488:;
#line 27379 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
#line 27379 "qb64pe.bas"
if(qbevent){evnt(27379);if(r)goto S_35488;}
#line 27379 "qb64pe.bas"
do{
#line 27379 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27379 "qb64pe.bas"
if(!qbevent)break;evnt(27379);}while(r);
#line 27379 "qb64pe.bas"
}else{
#line 27379 "qb64pe.bas"
do{
#line 27379 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
#line 27379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27379 "qb64pe.bas"
if(!qbevent)break;evnt(27379);}while(r);
#line 27379 "qb64pe.bas"
}
#line 27380 "qb64pe.bas"
LABEL_FPRINTUNEXT:;
#line 27380 "qb64pe.bas"
if(qbevent){evnt(27380);r=0;}
#line 27381 "qb64pe.bas"
fornext_continue_3326:;
#line 27381 "qb64pe.bas"
}
#line 27381 "qb64pe.bas"
fornext_exit_3326:;
#line 27382 "qb64pe.bas"
S_35494:;
#line 27382 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27382 "qb64pe.bas"
if(qbevent){evnt(27382);if(r)goto S_35494;}
#line 27382 "qb64pe.bas"
do{
#line 27382 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0));
#line 27382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27382 "qb64pe.bas"
if(!qbevent)break;evnt(27382);}while(r);
#line 27382 "qb64pe.bas"
do{
#line 27382 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_LAST= 1 ;
#line 27382 "qb64pe.bas"
if(!qbevent)break;evnt(27382);}while(r);
#line 27382 "qb64pe.bas"
do{
#line 27382 "qb64pe.bas"
goto LABEL_FPRINTULAST;
#line 27382 "qb64pe.bas"
if(!qbevent)break;evnt(27382);}while(r);
#line 27382 "qb64pe.bas"
}
#line 27383 "qb64pe.bas"
do{
#line 27383 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27383 "qb64pe.bas"
if(!qbevent)break;evnt(27383);}while(r);
#line 27385 "qb64pe.bas"
do{
#line 27385 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (is_error_pending()){",24));
#line 27385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27385 "qb64pe.bas"
if(!qbevent)break;evnt(27385);}while(r);
#line 27386 "qb64pe.bas"
do{
#line 27386 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;",95));
#line 27386 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27386 "qb64pe.bas"
if(!qbevent)break;evnt(27386);}while(r);
#line 27387 "qb64pe.bas"
do{
#line 27387 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 27387 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27387 "qb64pe.bas"
if(!qbevent)break;evnt(27387);}while(r);
#line 27388 "qb64pe.bas"
S_35503:;
#line 27388 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||is_error_pending()){
#line 27388 "qb64pe.bas"
if(qbevent){evnt(27388);if(r)goto S_35503;}
#line 27388 "qb64pe.bas"
do{
#line 27388 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_NL= 0 ;
#line 27388 "qb64pe.bas"
if(!qbevent)break;evnt(27388);}while(r);
#line 27388 "qb64pe.bas"
}else{
#line 27388 "qb64pe.bas"
do{
#line 27388 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_NL= 1 ;
#line 27388 "qb64pe.bas"
if(!qbevent)break;evnt(27388);}while(r);
#line 27388 "qb64pe.bas"
}
#line 27389 "qb64pe.bas"
do{
#line 27389 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,",35),qbs__tostr((int32)(*_SUB_XFILEPRINT_LONG_NL),NULL,0)),qbs_new_txt_len(");",2)));
#line 27389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27389 "qb64pe.bas"
if(!qbevent)break;evnt(27389);}while(r);
#line 27390 "qb64pe.bas"
do{
#line 27390 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 27390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27390 "qb64pe.bas"
if(!qbevent)break;evnt(27390);}while(r);
#line 27391 "qb64pe.bas"
do{
#line 27391 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_free(tqbs);",15));
#line 27391 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27391 "qb64pe.bas"
if(!qbevent)break;evnt(27391);}while(r);
#line 27392 "qb64pe.bas"
do{
#line 27392 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2)));
#line 27392 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27392 "qb64pe.bas"
if(!qbevent)break;evnt(27392);}while(r);
#line 27393 "qb64pe.bas"
do{
#line 27393 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27393 "qb64pe.bas"
if(!qbevent)break;evnt(27393);}while(r);
#line 27394 "qb64pe.bas"
do{
#line 27394 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27394 "qb64pe.bas"
if(!qbevent)break;evnt(27394);}while(r);
#line 27395 "qb64pe.bas"
do{
#line 27395 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_spc_cr_size=1;",18));
#line 27395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27395 "qb64pe.bas"
if(!qbevent)break;evnt(27395);}while(r);
#line 27396 "qb64pe.bas"
do{
#line 27396 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L);
#line 27396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27396 "qb64pe.bas"
if(!qbevent)break;evnt(27396);}while(r);
#line 27397 "qb64pe.bas"
do{
#line 27397 "qb64pe.bas"
goto exit_subfunc;
#line 27397 "qb64pe.bas"
if(!qbevent)break;evnt(27397);}while(r);
#line 27398 "qb64pe.bas"
}
#line 27399 "qb64pe.bas"
}
#line 27402 "qb64pe.bas"
S_35519:;
#line 27402 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||is_error_pending()){
#line 27402 "qb64pe.bas"
if(qbevent){evnt(27402);if(r)goto S_35519;}
#line 27403 "qb64pe.bas"
do{
#line 27403 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47));
#line 27403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27403 "qb64pe.bas"
if(!qbevent)break;evnt(27403);}while(r);
#line 27404 "qb64pe.bas"
do{
#line 27404 "qb64pe.bas"
goto LABEL_PRINTBLANKLINE;
#line 27404 "qb64pe.bas"
if(!qbevent)break;evnt(27404);}while(r);
#line 27405 "qb64pe.bas"
}
#line 27406 "qb64pe.bas"
do{
#line 27406 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B= 0 ;
#line 27406 "qb64pe.bas"
if(!qbevent)break;evnt(27406);}while(r);
#line 27407 "qb64pe.bas"
do{
#line 27407 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27407 "qb64pe.bas"
if(!qbevent)break;evnt(27407);}while(r);
#line 27408 "qb64pe.bas"
do{
#line 27408 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_LAST= 0 ;
#line 27408 "qb64pe.bas"
if(!qbevent)break;evnt(27408);}while(r);
#line 27409 "qb64pe.bas"
S_35526:;
#line 27409 "qb64pe.bas"
fornext_value3331=*_SUB_XFILEPRINT_LONG_I;
#line 27409 "qb64pe.bas"
fornext_finalvalue3331=*_SUB_XFILEPRINT_LONG_N;
#line 27409 "qb64pe.bas"
fornext_step3331= 1 ;
#line 27409 "qb64pe.bas"
if (fornext_step3331<0) fornext_step_negative3331=1; else fornext_step_negative3331=0;
#line 27409 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3331;
#line 27409 "qb64pe.bas"
goto fornext_entrylabel3331;
#line 27409 "qb64pe.bas"
while(1){
#line 27409 "qb64pe.bas"
fornext_value3331=fornext_step3331+(*_SUB_XFILEPRINT_LONG_I);
#line 27409 "qb64pe.bas"
fornext_entrylabel3331:
#line 27409 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_I=fornext_value3331;
#line 27409 "qb64pe.bas"
if (fornext_step_negative3331){
#line 27409 "qb64pe.bas"
if (fornext_value3331<fornext_finalvalue3331) break;
#line 27409 "qb64pe.bas"
}else{
#line 27409 "qb64pe.bas"
if (fornext_value3331>fornext_finalvalue3331) break;
#line 27409 "qb64pe.bas"
}
#line 27409 "qb64pe.bas"
fornext_error3331:;
#line 27409 "qb64pe.bas"
if(qbevent){evnt(27409);if(r)goto S_35526;}
#line 27410 "qb64pe.bas"
do{
#line 27410 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
#line 27410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27410 "qb64pe.bas"
if(!qbevent)break;evnt(27410);}while(r);
#line 27411 "qb64pe.bas"
S_35528:;
#line 27411 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27411 "qb64pe.bas"
if(qbevent){evnt(27411);if(r)goto S_35528;}
#line 27411 "qb64pe.bas"
do{
#line 27411 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
#line 27411 "qb64pe.bas"
if(!qbevent)break;evnt(27411);}while(r);
#line 27411 "qb64pe.bas"
}
#line 27412 "qb64pe.bas"
S_35531:;
#line 27412 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27412 "qb64pe.bas"
if(qbevent){evnt(27412);if(r)goto S_35531;}
#line 27412 "qb64pe.bas"
do{
#line 27412 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
#line 27412 "qb64pe.bas"
if(!qbevent)break;evnt(27412);}while(r);
#line 27412 "qb64pe.bas"
}
#line 27413 "qb64pe.bas"
S_35534:;
#line 27413 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27413 "qb64pe.bas"
if(qbevent){evnt(27413);if(r)goto S_35534;}
#line 27414 "qb64pe.bas"
S_35535:;
#line 27414 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||is_error_pending()){
#line 27414 "qb64pe.bas"
if(qbevent){evnt(27414);if(r)goto S_35535;}
#line 27415 "qb64pe.bas"
LABEL_PRINTFILELAST:;
#line 27415 "qb64pe.bas"
if(qbevent){evnt(27415);r=0;}
#line 27417 "qb64pe.bas"
S_35536:;
#line 27417 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 27417 "qb64pe.bas"
if(qbevent){evnt(27417);if(r)goto S_35536;}
#line 27418 "qb64pe.bas"
S_35537:;
#line 27418 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27418 "qb64pe.bas"
if(qbevent){evnt(27418);if(r)goto S_35537;}
#line 27418 "qb64pe.bas"
do{
#line 27418 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ;
#line 27418 "qb64pe.bas"
if(!qbevent)break;evnt(27418);}while(r);
#line 27418 "qb64pe.bas"
}else{
#line 27418 "qb64pe.bas"
do{
#line 27418 "qb64pe.bas"
goto LABEL_FPUJUMP;
#line 27418 "qb64pe.bas"
if(!qbevent)break;evnt(27418);}while(r);
#line 27418 "qb64pe.bas"
}
#line 27419 "qb64pe.bas"
}
#line 27421 "qb64pe.bas"
S_35543:;
#line 27421 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27421 "qb64pe.bas"
if(qbevent){evnt(27421);if(r)goto S_35543;}
#line 27421 "qb64pe.bas"
do{
#line 27421 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_USETAB= 1 ;
#line 27421 "qb64pe.bas"
if(!qbevent)break;evnt(27421);}while(r);
#line 27421 "qb64pe.bas"
}else{
#line 27421 "qb64pe.bas"
do{
#line 27421 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_USETAB= 0 ;
#line 27421 "qb64pe.bas"
if(!qbevent)break;evnt(27421);}while(r);
#line 27421 "qb64pe.bas"
}
#line 27422 "qb64pe.bas"
S_35548:;
#line 27422 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||is_error_pending()){
#line 27422 "qb64pe.bas"
if(qbevent){evnt(27422);if(r)goto S_35548;}
#line 27422 "qb64pe.bas"
do{
#line 27422 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ;
#line 27422 "qb64pe.bas"
if(!qbevent)break;evnt(27422);}while(r);
#line 27422 "qb64pe.bas"
}else{
#line 27422 "qb64pe.bas"
do{
#line 27422 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ;
#line 27422 "qb64pe.bas"
if(!qbevent)break;evnt(27422);}while(r);
#line 27422 "qb64pe.bas"
}
#line 27423 "qb64pe.bas"
do{
#line 27423 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ;
#line 27423 "qb64pe.bas"
if(!qbevent)break;evnt(27423);}while(r);
#line 27425 "qb64pe.bas"
S_35554:;
#line 27425 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
#line 27425 "qb64pe.bas"
if(qbevent){evnt(27425);if(r)goto S_35554;}
#line 27426 "qb64pe.bas"
do{
#line 27426 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E);
#line 27426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27426 "qb64pe.bas"
if(!qbevent)break;evnt(27426);}while(r);
#line 27427 "qb64pe.bas"
do{
#line 27427 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ;
#line 27427 "qb64pe.bas"
if(!qbevent)break;evnt(27427);}while(r);
#line 27428 "qb64pe.bas"
LABEL_PRINTFILENUMBER:;
#line 27428 "qb64pe.bas"
if(qbevent){evnt(27428);r=0;}
#line 27429 "qb64pe.bas"
do{
#line 27429 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
#line 27429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27429 "qb64pe.bas"
if(!qbevent)break;evnt(27429);}while(r);
#line 27430 "qb64pe.bas"
S_35558:;
#line 27430 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27430 "qb64pe.bas"
if(qbevent){evnt(27430);if(r)goto S_35558;}
#line 27430 "qb64pe.bas"
do{
#line 27430 "qb64pe.bas"
goto exit_subfunc;
#line 27430 "qb64pe.bas"
if(!qbevent)break;evnt(27430);}while(r);
#line 27430 "qb64pe.bas"
}
#line 27431 "qb64pe.bas"
S_35561:;
#line 27431 "qb64pe.bas"
if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||is_error_pending()){
#line 27431 "qb64pe.bas"
if(qbevent){evnt(27431);if(r)goto S_35561;}
#line 27432 "qb64pe.bas"
S_35562:;
#line 27432 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
#line 27432 "qb64pe.bas"
if(qbevent){evnt(27432);if(r)goto S_35562;}
#line 27433 "qb64pe.bas"
do{
#line 27433 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27433 "qb64pe.bas"
if(!qbevent)break;evnt(27433);}while(r);
#line 27434 "qb64pe.bas"
S_35564:;
#line 27434 "qb64pe.bas"
}else{
#line 27434 "qb64pe.bas"
if (*_SUB_XFILEPRINT_LONG_GOTOFPU){
#line 27434 "qb64pe.bas"
if(qbevent){evnt(27434);if(r)goto S_35564;}
#line 27435 "qb64pe.bas"
do{
#line 27435 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27435 "qb64pe.bas"
if(!qbevent)break;evnt(27435);}while(r);
#line 27436 "qb64pe.bas"
}else{
#line 27437 "qb64pe.bas"
do{
#line 27437 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2));
#line 27437 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27437 "qb64pe.bas"
if(!qbevent)break;evnt(27437);}while(r);
#line 27438 "qb64pe.bas"
}
#line 27438 "qb64pe.bas"
}
#line 27439 "qb64pe.bas"
}
#line 27440 "qb64pe.bas"
do{
#line 27440 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
#line 27440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27440 "qb64pe.bas"
if(!qbevent)break;evnt(27440);}while(r);
#line 27441 "qb64pe.bas"
S_35571:;
#line 27441 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27441 "qb64pe.bas"
if(qbevent){evnt(27441);if(r)goto S_35571;}
#line 27441 "qb64pe.bas"
do{
#line 27441 "qb64pe.bas"
goto exit_subfunc;
#line 27441 "qb64pe.bas"
if(!qbevent)break;evnt(27441);}while(r);
#line 27441 "qb64pe.bas"
}
#line 27442 "qb64pe.bas"
S_35574:;
#line 27442 "qb64pe.bas"
if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 27442 "qb64pe.bas"
if(qbevent){evnt(27442);if(r)goto S_35574;}
#line 27443 "qb64pe.bas"
do{
#line 27443 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 27443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27443 "qb64pe.bas"
if(!qbevent)break;evnt(27443);}while(r);
#line 27444 "qb64pe.bas"
do{
#line 27444 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ;
#line 27444 "qb64pe.bas"
if(!qbevent)break;evnt(27444);}while(r);
#line 27445 "qb64pe.bas"
do{
#line 27445 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ;
#line 27445 "qb64pe.bas"
if(!qbevent)break;evnt(27445);}while(r);
#line 27446 "qb64pe.bas"
do{
#line 27446 "qb64pe.bas"
goto LABEL_PRINTFILENUMBER;
#line 27446 "qb64pe.bas"
if(!qbevent)break;evnt(27446);}while(r);
#line 27447 "qb64pe.bas"
}
#line 27448 "qb64pe.bas"
S_35580:;
#line 27448 "qb64pe.bas"
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27448 "qb64pe.bas"
if(qbevent){evnt(27448);if(r)goto S_35580;}
#line 27448 "qb64pe.bas"
do{
#line 27448 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3333= 0 )));
#line 27448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27448 "qb64pe.bas"
if(!qbevent)break;evnt(27448);}while(r);
#line 27448 "qb64pe.bas"
}
#line 27449 "qb64pe.bas"
S_35583:;
#line 27449 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27449 "qb64pe.bas"
if(qbevent){evnt(27449);if(r)goto S_35583;}
#line 27449 "qb64pe.bas"
do{
#line 27449 "qb64pe.bas"
goto exit_subfunc;
#line 27449 "qb64pe.bas"
if(!qbevent)break;evnt(27449);}while(r);
#line 27449 "qb64pe.bas"
}
#line 27451 "qb64pe.bas"
do{
#line 27451 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE))),qbs_new_txt_len(");",2)));
#line 27451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27451 "qb64pe.bas"
if(!qbevent)break;evnt(27451);}while(r);
#line 27452 "qb64pe.bas"
}else{
#line 27453 "qb64pe.bas"
S_35588:;
#line 27453 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27453 "qb64pe.bas"
if(qbevent){evnt(27453);if(r)goto S_35588;}
#line 27453 "qb64pe.bas"
do{
#line 27453 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27453 "qb64pe.bas"
if(!qbevent)break;evnt(27453);}while(r);
#line 27453 "qb64pe.bas"
}
#line 27454 "qb64pe.bas"
S_35591:;
#line 27454 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27454 "qb64pe.bas"
if(qbevent){evnt(27454);if(r)goto S_35591;}
#line 27455 "qb64pe.bas"
S_35592:;
#line 27455 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27455 "qb64pe.bas"
if(qbevent){evnt(27455);if(r)goto S_35592;}
#line 27455 "qb64pe.bas"
do{
#line 27455 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27455 "qb64pe.bas"
if(!qbevent)break;evnt(27455);}while(r);
#line 27455 "qb64pe.bas"
}
#line 27456 "qb64pe.bas"
}
#line 27457 "qb64pe.bas"
S_35596:;
#line 27457 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_USETAB)||is_error_pending()){
#line 27457 "qb64pe.bas"
if(qbevent){evnt(27457);if(r)goto S_35596;}
#line 27457 "qb64pe.bas"
do{
#line 27457 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47));
#line 27457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27457 "qb64pe.bas"
if(!qbevent)break;evnt(27457);}while(r);
#line 27457 "qb64pe.bas"
}
#line 27458 "qb64pe.bas"
}
#line 27459 "qb64pe.bas"
do{
#line 27459 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27459 "qb64pe.bas"
if(!qbevent)break;evnt(27459);}while(r);
#line 27461 "qb64pe.bas"
do{
#line 27461 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27461 "qb64pe.bas"
if(!qbevent)break;evnt(27461);}while(r);
#line 27462 "qb64pe.bas"
S_35602:;
#line 27462 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||is_error_pending()){
#line 27462 "qb64pe.bas"
if(qbevent){evnt(27462);if(r)goto S_35602;}
#line 27462 "qb64pe.bas"
do{
#line 27462 "qb64pe.bas"
goto LABEL_FPUJUMP;
#line 27462 "qb64pe.bas"
if(!qbevent)break;evnt(27462);}while(r);
#line 27462 "qb64pe.bas"
}
#line 27463 "qb64pe.bas"
S_35605:;
#line 27463 "qb64pe.bas"
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
#line 27463 "qb64pe.bas"
if(qbevent){evnt(27463);if(r)goto S_35605;}
#line 27463 "qb64pe.bas"
do{
#line 27463 "qb64pe.bas"
goto fornext_exit_3330;
#line 27463 "qb64pe.bas"
if(!qbevent)break;evnt(27463);}while(r);
#line 27463 "qb64pe.bas"
}
#line 27464 "qb64pe.bas"
do{
#line 27464 "qb64pe.bas"
goto LABEL_PRINTFILENEXT;
#line 27464 "qb64pe.bas"
if(!qbevent)break;evnt(27464);}while(r);
#line 27465 "qb64pe.bas"
}
#line 27466 "qb64pe.bas"
}
#line 27467 "qb64pe.bas"
S_35611:;
#line 27467 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27467 "qb64pe.bas"
if(qbevent){evnt(27467);if(r)goto S_35611;}
#line 27467 "qb64pe.bas"
do{
#line 27467 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
#line 27467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27467 "qb64pe.bas"
if(!qbevent)break;evnt(27467);}while(r);
#line 27467 "qb64pe.bas"
}else{
#line 27467 "qb64pe.bas"
do{
#line 27467 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
#line 27467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27467 "qb64pe.bas"
if(!qbevent)break;evnt(27467);}while(r);
#line 27467 "qb64pe.bas"
}
#line 27468 "qb64pe.bas"
LABEL_PRINTFILENEXT:;
#line 27468 "qb64pe.bas"
if(qbevent){evnt(27468);r=0;}
#line 27469 "qb64pe.bas"
fornext_continue_3330:;
#line 27469 "qb64pe.bas"
}
#line 27469 "qb64pe.bas"
fornext_exit_3330:;
#line 27470 "qb64pe.bas"
S_35617:;
#line 27470 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27470 "qb64pe.bas"
if(qbevent){evnt(27470);if(r)goto S_35617;}
#line 27470 "qb64pe.bas"
do{
#line 27470 "qb64pe.bas"
qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0));
#line 27470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27470 "qb64pe.bas"
if(!qbevent)break;evnt(27470);}while(r);
#line 27470 "qb64pe.bas"
do{
#line 27470 "qb64pe.bas"
*_SUB_XFILEPRINT_LONG_LAST= 1 ;
#line 27470 "qb64pe.bas"
if(!qbevent)break;evnt(27470);}while(r);
#line 27470 "qb64pe.bas"
do{
#line 27470 "qb64pe.bas"
goto LABEL_PRINTFILELAST;
#line 27470 "qb64pe.bas"
if(!qbevent)break;evnt(27470);}while(r);
#line 27470 "qb64pe.bas"
}
#line 27471 "qb64pe.bas"
LABEL_PRINTBLANKLINE:;
#line 27471 "qb64pe.bas"
if(qbevent){evnt(27471);r=0;}
#line 27472 "qb64pe.bas"
do{
#line 27472 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27472 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27472 "qb64pe.bas"
if(!qbevent)break;evnt(27472);}while(r);
#line 27473 "qb64pe.bas"
do{
#line 27473 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27473 "qb64pe.bas"
if(!qbevent)break;evnt(27473);}while(r);
#line 27474 "qb64pe.bas"
do{
#line 27474 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_spc_cr_size=1;",18));
#line 27474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27474 "qb64pe.bas"
if(!qbevent)break;evnt(27474);}while(r);
#line 27475 "qb64pe.bas"
do{
#line 27475 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L);
#line 27475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27475 "qb64pe.bas"
if(!qbevent)break;evnt(27475);}while(r);
#line 27476 "qb64pe.bas"
exit_subfunc:;
#line 27476 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27476 "qb64pe.bas"
#include "free91.txt"
#line 27476 "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 27476 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27476 "qb64pe.bas"
}
