void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data44.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_SUB_XFILEPRINT_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22704);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3332=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=2;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22705);}while(r);
S_30492:;
if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(22706);if(r)goto S_30492;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22706);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22706);}while(r);
}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22707);}while(r);
do{
*_SUB_XFILEPRINT_LONG_B= 0 ;
if(!qbevent)break;evnt(22708);}while(r);
S_30498:;
fornext_value3334= 3 ;
fornext_finalvalue3334=*_SUB_XFILEPRINT_LONG_N;
fornext_step3334= 1 ;
if (fornext_step3334<0) fornext_step_negative3334=1; else fornext_step_negative3334=0;
if (is_error_pending()) goto fornext_error3334;
goto fornext_entrylabel3334;
while(1){
fornext_value3334=fornext_step3334+(*_SUB_XFILEPRINT_LONG_I);
fornext_entrylabel3334:
*_SUB_XFILEPRINT_LONG_I=fornext_value3334;
if (fornext_step_negative3334){
if (fornext_value3334<fornext_finalvalue3334) break;
}else{
if (fornext_value3334>fornext_finalvalue3334) break;
}
fornext_error3334:;
if(qbevent){evnt(22709);if(r)goto S_30498;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22710);}while(r);
S_30500:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(22711);if(r)goto S_30500;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
if(!qbevent)break;evnt(22711);}while(r);
}
S_30503:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(22712);if(r)goto S_30503;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
if(!qbevent)break;evnt(22712);}while(r);
}
S_30506:;
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()){
if(qbevent){evnt(22713);if(r)goto S_30506;}
S_30507:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22714);if(r)goto S_30507;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22714);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22714);}while(r);
}
do{
goto LABEL_PRINTGOTFN;
if(!qbevent)break;evnt(22715);}while(r);
}
S_30513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22717);if(r)goto S_30513;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22717);}while(r);
}else{
do{
qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22717);}while(r);
}
fornext_continue_3333:;
}
fornext_exit_3333:;
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22719);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22719);}while(r);
LABEL_PRINTGOTFN:;
if(qbevent){evnt(22720);r=0;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22721);}while(r);
S_30522:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22722);if(r)goto S_30522;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22722);}while(r);
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22723);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3335= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22724);}while(r);
S_30527:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22725);if(r)goto S_30527;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22725);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22726);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3337=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22727);}while(r);
do{
*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ;
if(!qbevent)break;evnt(22728);}while(r);
S_30533:;
if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||is_error_pending()){
if(qbevent){evnt(22731);if(r)goto S_30533;}
S_30534:;
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()){
if(qbevent){evnt(22732);if(r)goto S_30534;}
LABEL_FPUJUMP:;
if(qbevent){evnt(22734);r=0;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22735);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22736);}while(r);
do{
*_SUB_XFILEPRINT_LONG_B= 0 ;
if(!qbevent)break;evnt(22736);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22736);}while(r);
S_30539:;
fornext_value3339=*_SUB_XFILEPRINT_LONG_I+ 1 ;
fornext_finalvalue3339=*_SUB_XFILEPRINT_LONG_N;
fornext_step3339= 1 ;
if (fornext_step3339<0) fornext_step_negative3339=1; else fornext_step_negative3339=0;
if (is_error_pending()) goto fornext_error3339;
goto fornext_entrylabel3339;
while(1){
fornext_value3339=fornext_step3339+(*_SUB_XFILEPRINT_LONG_I);
fornext_entrylabel3339:
*_SUB_XFILEPRINT_LONG_I=fornext_value3339;
if (fornext_step_negative3339){
if (fornext_value3339<fornext_finalvalue3339) break;
}else{
if (fornext_value3339>fornext_finalvalue3339) break;
}
fornext_error3339:;
if(qbevent){evnt(22737);if(r)goto S_30539;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22738);}while(r);
S_30541:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(22739);if(r)goto S_30541;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
if(!qbevent)break;evnt(22739);}while(r);
}
S_30544:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(22740);if(r)goto S_30544;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
if(!qbevent)break;evnt(22740);}while(r);
}
S_30547:;
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(22741);if(r)goto S_30547;}
S_30548:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(22742);if(r)goto S_30548;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22742);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22742);}while(r);
}
S_30552:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(22743);if(r)goto S_30552;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22744);}while(r);
S_30554:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22745);if(r)goto S_30554;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22745);}while(r);
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22746);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22747);}while(r);
S_30559:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22748);if(r)goto S_30559;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22748);}while(r);
}
S_30562:;
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(22749);if(r)goto S_30562;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3340= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22749);}while(r);
}
S_30565:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22750);if(r)goto S_30565;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22750);}while(r);
}
S_30568:;
if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(22751);if(r)goto S_30568;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22751);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22751);}while(r);
}
do{
qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22752);}while(r);
do{
goto fornext_exit_3338;
if(!qbevent)break;evnt(22753);}while(r);
}
}
S_30576:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
if(qbevent){evnt(22756);if(r)goto S_30576;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22756);}while(r);
}else{
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22756);}while(r);
}
fornext_continue_3338:;
}
fornext_exit_3338:;
S_30582:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22758);if(r)goto S_30582;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22758);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22758);}while(r);
}
S_30586:;
if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||is_error_pending()){
if(qbevent){evnt(22759);if(r)goto S_30586;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22759);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22759);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3342=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22761);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3343=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=0;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22763);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22765);}while(r);
S_30593:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22766);if(r)goto S_30593;}
do{
SUB_WRITEBUFLINE(&(pass3344=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22767);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass3345=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22769);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3346=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22771);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3347=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22772);}while(r);
do{
*_SUB_XFILEPRINT_LONG_B= 0 ;
if(!qbevent)break;evnt(22774);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22775);}while(r);
do{
*_SUB_XFILEPRINT_LONG_LAST= 0 ;
if(!qbevent)break;evnt(22776);}while(r);
S_30603:;
fornext_value3349=*_SUB_XFILEPRINT_LONG_I+ 1 ;
fornext_finalvalue3349=*_SUB_XFILEPRINT_LONG_N;
fornext_step3349= 1 ;
if (fornext_step3349<0) fornext_step_negative3349=1; else fornext_step_negative3349=0;
if (is_error_pending()) goto fornext_error3349;
goto fornext_entrylabel3349;
while(1){
fornext_value3349=fornext_step3349+(*_SUB_XFILEPRINT_LONG_I);
fornext_entrylabel3349:
*_SUB_XFILEPRINT_LONG_I=fornext_value3349;
if (fornext_step_negative3349){
if (fornext_value3349<fornext_finalvalue3349) break;
}else{
if (fornext_value3349>fornext_finalvalue3349) break;
}
fornext_error3349:;
if(qbevent){evnt(22777);if(r)goto S_30603;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22778);}while(r);
S_30605:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(22779);if(r)goto S_30605;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
if(!qbevent)break;evnt(22779);}while(r);
}
S_30608:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(22780);if(r)goto S_30608;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
if(!qbevent)break;evnt(22780);}while(r);
}
S_30611:;
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(22781);if(r)goto S_30611;}
S_30612:;
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()){
if(qbevent){evnt(22782);if(r)goto S_30612;}
LABEL_FPRINTULAST:;
if(qbevent){evnt(22783);r=0;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22784);}while(r);
S_30614:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22785);if(r)goto S_30614;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22785);}while(r);
}
S_30617:;
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(22786);if(r)goto S_30617;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22786);}while(r);
}else{
do{
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));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22786);}while(r);
}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22787);}while(r);
S_30623:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22788);if(r)goto S_30623;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22788);}while(r);
}
S_30626:;
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(22789);if(r)goto S_30626;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3350= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22789);}while(r);
}
S_30629:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22790);if(r)goto S_30629;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22790);}while(r);
}
S_30632:;
if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(22791);if(r)goto S_30632;}
S_30633:;
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()){
if(qbevent){evnt(22793);if(r)goto S_30633;}
do{
SUB_WRITEBUFLINE(&(pass3351=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22798);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3352=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22800);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3353=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22801);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3354=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22802);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3355=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs->len=0;",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22804);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass3356=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22809);}while(r);
}
}else{
S_30643:;
if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(22814);if(r)goto S_30643;}
S_30644:;
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(22815);if(r)goto S_30644;}
do{
SUB_WRITEBUFLINE(&(pass3357=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22815);}while(r);
}
S_30647:;
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(22816);if(r)goto S_30647;}
do{
SUB_WRITEBUFLINE(&(pass3358=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22816);}while(r);
}
S_30650:;
if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||is_error_pending()){
if(qbevent){evnt(22817);if(r)goto S_30650;}
do{
SUB_WRITEBUFLINE(&(pass3359=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22817);}while(r);
}
}else{
S_30654:;
if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
if(qbevent){evnt(22819);if(r)goto S_30654;}
do{
SUB_WRITEBUFLINE(&(pass3360=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22820);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass3361=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22822);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(&(pass3362=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22826);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22827);}while(r);
S_30663:;
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(22828);if(r)goto S_30663;}
do{
goto fornext_exit_3348;
if(!qbevent)break;evnt(22828);}while(r);
}
do{
goto LABEL_FPRINTUNEXT;
if(!qbevent)break;evnt(22829);}while(r);
}
}
S_30669:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
if(qbevent){evnt(22832);if(r)goto S_30669;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22832);}while(r);
}else{
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22832);}while(r);
}
LABEL_FPRINTUNEXT:;
if(qbevent){evnt(22833);r=0;}
fornext_continue_3348:;
}
fornext_exit_3348:;
S_30675:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22835);if(r)goto S_30675;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22835);}while(r);
do{
*_SUB_XFILEPRINT_LONG_LAST= 1 ;
if(!qbevent)break;evnt(22835);}while(r);
do{
goto LABEL_FPRINTULAST;
if(!qbevent)break;evnt(22835);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3364=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22836);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3365=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (is_error_pending()){",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22838);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3366=*__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));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22839);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3367=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22840);}while(r);
S_30684:;
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()){
if(qbevent){evnt(22841);if(r)goto S_30684;}
do{
*_SUB_XFILEPRINT_LONG_NL= 0 ;
if(!qbevent)break;evnt(22841);}while(r);
}else{
do{
*_SUB_XFILEPRINT_LONG_NL= 1 ;
if(!qbevent)break;evnt(22841);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3368=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22842);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3369=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22843);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3370=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22844);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3371=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22845);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3372=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22846);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3373=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22847);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3374=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22848);}while(r);
do{
qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22849);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22850);}while(r);
}
}
S_30700:;
if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||is_error_pending()){
if(qbevent){evnt(22855);if(r)goto S_30700;}
do{
SUB_WRITEBUFLINE(&(pass3375=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22856);}while(r);
do{
goto LABEL_PRINTBLANKLINE;
if(!qbevent)break;evnt(22857);}while(r);
}
do{
*_SUB_XFILEPRINT_LONG_B= 0 ;
if(!qbevent)break;evnt(22859);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22860);}while(r);
do{
*_SUB_XFILEPRINT_LONG_LAST= 0 ;
if(!qbevent)break;evnt(22861);}while(r);
S_30707:;
fornext_value3377=*_SUB_XFILEPRINT_LONG_I;
fornext_finalvalue3377=*_SUB_XFILEPRINT_LONG_N;
fornext_step3377= 1 ;
if (fornext_step3377<0) fornext_step_negative3377=1; else fornext_step_negative3377=0;
if (is_error_pending()) goto fornext_error3377;
goto fornext_entrylabel3377;
while(1){
fornext_value3377=fornext_step3377+(*_SUB_XFILEPRINT_LONG_I);
fornext_entrylabel3377:
*_SUB_XFILEPRINT_LONG_I=fornext_value3377;
if (fornext_step_negative3377){
if (fornext_value3377<fornext_finalvalue3377) break;
}else{
if (fornext_value3377>fornext_finalvalue3377) break;
}
fornext_error3377:;
if(qbevent){evnt(22862);if(r)goto S_30707;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22863);}while(r);
S_30709:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(22864);if(r)goto S_30709;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ;
if(!qbevent)break;evnt(22864);}while(r);
}
S_30712:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(22865);if(r)goto S_30712;}
do{
*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ;
if(!qbevent)break;evnt(22865);}while(r);
}
S_30715:;
if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(22866);if(r)goto S_30715;}
S_30716:;
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()){
if(qbevent){evnt(22867);if(r)goto S_30716;}
LABEL_PRINTFILELAST:;
if(qbevent){evnt(22868);r=0;}
S_30717:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(22870);if(r)goto S_30717;}
S_30718:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22871);if(r)goto S_30718;}
do{
*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ;
if(!qbevent)break;evnt(22871);}while(r);
}else{
do{
goto LABEL_FPUJUMP;
if(!qbevent)break;evnt(22871);}while(r);
}
}
S_30724:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(22874);if(r)goto S_30724;}
do{
*_SUB_XFILEPRINT_LONG_USETAB= 1 ;
if(!qbevent)break;evnt(22874);}while(r);
}else{
do{
*_SUB_XFILEPRINT_LONG_USETAB= 0 ;
if(!qbevent)break;evnt(22874);}while(r);
}
S_30729:;
if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||is_error_pending()){
if(qbevent){evnt(22875);if(r)goto S_30729;}
do{
*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(22875);}while(r);
}else{
do{
*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(22875);}while(r);
}
do{
*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ;
if(!qbevent)break;evnt(22876);}while(r);
S_30735:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||is_error_pending()){
if(qbevent){evnt(22878);if(r)goto S_30735;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22879);}while(r);
do{
*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ;
if(!qbevent)break;evnt(22880);}while(r);
LABEL_PRINTFILENUMBER:;
if(qbevent){evnt(22881);r=0;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22882);}while(r);
S_30739:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22883);if(r)goto S_30739;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22883);}while(r);
}
S_30742:;
if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||is_error_pending()){
if(qbevent){evnt(22884);if(r)goto S_30742;}
S_30743:;
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(22885);if(r)goto S_30743;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22885);}while(r);
}else{
do{
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));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22885);}while(r);
}
}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22887);}while(r);
S_30750:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22888);if(r)goto S_30750;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22888);}while(r);
}
S_30753:;
if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(22889);if(r)goto S_30753;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22890);}while(r);
do{
*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ;
if(!qbevent)break;evnt(22891);}while(r);
do{
*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ;
if(!qbevent)break;evnt(22892);}while(r);
do{
goto LABEL_PRINTFILENUMBER;
if(!qbevent)break;evnt(22893);}while(r);
}
S_30759:;
if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(22895);if(r)goto S_30759;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3379= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22895);}while(r);
}
S_30762:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(22896);if(r)goto S_30762;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(22896);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass3380=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22898);}while(r);
}else{
S_30767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(22900);if(r)goto S_30767;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22900);}while(r);
}
S_30770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(22901);if(r)goto S_30770;}
S_30771:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(22902);if(r)goto S_30771;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22902);}while(r);
}
}
S_30775:;
if ((*_SUB_XFILEPRINT_LONG_USETAB)||is_error_pending()){
if(qbevent){evnt(22904);if(r)goto S_30775;}
do{
SUB_WRITEBUFLINE(&(pass3381=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22904);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass3382=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22906);}while(r);
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22908);}while(r);
S_30781:;
if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||is_error_pending()){
if(qbevent){evnt(22909);if(r)goto S_30781;}
do{
goto LABEL_FPUJUMP;
if(!qbevent)break;evnt(22909);}while(r);
}
S_30784:;
if ((*_SUB_XFILEPRINT_LONG_LAST)||is_error_pending()){
if(qbevent){evnt(22910);if(r)goto S_30784;}
do{
goto fornext_exit_3376;
if(!qbevent)break;evnt(22910);}while(r);
}
do{
goto LABEL_PRINTFILENEXT;
if(!qbevent)break;evnt(22911);}while(r);
}
}
S_30790:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22914);if(r)goto S_30790;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22914);}while(r);
}else{
do{
qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22914);}while(r);
}
LABEL_PRINTFILENEXT:;
if(qbevent){evnt(22915);r=0;}
fornext_continue_3376:;
}
fornext_exit_3376:;
S_30796:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(22917);if(r)goto S_30796;}
do{
qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22917);}while(r);
do{
*_SUB_XFILEPRINT_LONG_LAST= 1 ;
if(!qbevent)break;evnt(22917);}while(r);
do{
goto LABEL_PRINTFILELAST;
if(!qbevent)break;evnt(22917);}while(r);
}
LABEL_PRINTBLANKLINE:;
if(qbevent){evnt(22918);r=0;}
do{
SUB_WRITEBUFLINE(&(pass3383=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22919);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3384=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22920);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3385=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22921);}while(r);
do{
qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(22922);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free44.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
