#line 27705 "qb64pe.bas"
void SUB_XPRINT(qbs*_SUB_XPRINT_STRING_A,qbs*_SUB_XPRINT_STRING_CA,int32*_SUB_XPRINT_LONG_N){
#line 27705 "qb64pe.bas"
qbs *tqbs;
#line 27705 "qb64pe.bas"
ptrszint tmp_long;
#line 27705 "qb64pe.bas"
int32 tmp_fileno;
#line 27705 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27705 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27705 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27705 "qb64pe.bas"
#include "data95.txt"
#line 27705 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27705 "qb64pe.bas"
new_mem_lock();
#line 27705 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27705 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27705 "qb64pe.bas"
libqb_check_stack();
#line 27705 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27706 "qb64pe.bas"
do{
#line 27706 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 27706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27706 "qb64pe.bas"
if(!qbevent)break;evnt(27706);}while(r);
#line 27708 "qb64pe.bas"
do{
#line 27708 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("Print",5)));
#line 27708 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27708 "qb64pe.bas"
if(!qbevent)break;evnt(27708);}while(r);
#line 27709 "qb64pe.bas"
S_35948:;
#line 27709 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||is_error_pending()){
#line 27709 "qb64pe.bas"
if(qbevent){evnt(27709);if(r)goto S_35948;}
#line 27709 "qb64pe.bas"
do{
#line 27709 "qb64pe.bas"
*_SUB_XPRINT_LONG_LP= 1 ;
#line 27709 "qb64pe.bas"
if(!qbevent)break;evnt(27709);}while(r);
#line 27709 "qb64pe.bas"
do{
#line 27709 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_LP,qbs_new_txt_len("l",1));
#line 27709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27709 "qb64pe.bas"
if(!qbevent)break;evnt(27709);}while(r);
#line 27709 "qb64pe.bas"
do{
#line 27709 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("LPrint",6)));
#line 27709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27709 "qb64pe.bas"
if(!qbevent)break;evnt(27709);}while(r);
#line 27709 "qb64pe.bas"
do{
#line 27709 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_LPRINT=1;",13));
#line 27709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27709 "qb64pe.bas"
if(!qbevent)break;evnt(27709);}while(r);
#line 27709 "qb64pe.bas"
do{
#line 27709 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass3367= 7ll ));
#line 27709 "qb64pe.bas"
if(!qbevent)break;evnt(27709);}while(r);
#line 27709 "qb64pe.bas"
}
#line 27712 "qb64pe.bas"
S_35955:;
#line 27712 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||is_error_pending()){
#line 27712 "qb64pe.bas"
if(qbevent){evnt(27712);if(r)goto S_35955;}
#line 27713 "qb64pe.bas"
S_35956:;
#line 27713 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3368= 2 )),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 27713 "qb64pe.bas"
if(qbevent){evnt(27713);if(r)goto S_35956;}
#line 27715 "qb64pe.bas"
do{
#line 27715 "qb64pe.bas"
*_SUB_XPRINT_LONG_I= 3 ;
#line 27715 "qb64pe.bas"
if(!qbevent)break;evnt(27715);}while(r);
#line 27716 "qb64pe.bas"
LABEL_PUJUMP:;
#line 27716 "qb64pe.bas"
if(qbevent){evnt(27716);r=0;}
#line 27717 "qb64pe.bas"
do{
#line 27717 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5))));
#line 27717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27717 "qb64pe.bas"
if(!qbevent)break;evnt(27717);}while(r);
#line 27718 "qb64pe.bas"
do{
#line 27718 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27718 "qb64pe.bas"
if(!qbevent)break;evnt(27718);}while(r);
#line 27718 "qb64pe.bas"
do{
#line 27718 "qb64pe.bas"
*_SUB_XPRINT_LONG_B= 0 ;
#line 27718 "qb64pe.bas"
if(!qbevent)break;evnt(27718);}while(r);
#line 27718 "qb64pe.bas"
do{
#line 27718 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0));
#line 27718 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27718 "qb64pe.bas"
if(!qbevent)break;evnt(27718);}while(r);
#line 27719 "qb64pe.bas"
S_35962:;
#line 27719 "qb64pe.bas"
fornext_value3370=*_SUB_XPRINT_LONG_I;
#line 27719 "qb64pe.bas"
fornext_finalvalue3370=*_SUB_XPRINT_LONG_N;
#line 27719 "qb64pe.bas"
fornext_step3370= 1 ;
#line 27719 "qb64pe.bas"
if (fornext_step3370<0) fornext_step_negative3370=1; else fornext_step_negative3370=0;
#line 27719 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3370;
#line 27719 "qb64pe.bas"
goto fornext_entrylabel3370;
#line 27719 "qb64pe.bas"
while(1){
#line 27719 "qb64pe.bas"
fornext_value3370=fornext_step3370+(*_SUB_XPRINT_LONG_I);
#line 27719 "qb64pe.bas"
fornext_entrylabel3370:
#line 27719 "qb64pe.bas"
*_SUB_XPRINT_LONG_I=fornext_value3370;
#line 27719 "qb64pe.bas"
if (fornext_step_negative3370){
#line 27719 "qb64pe.bas"
if (fornext_value3370<fornext_finalvalue3370) break;
#line 27719 "qb64pe.bas"
}else{
#line 27719 "qb64pe.bas"
if (fornext_value3370>fornext_finalvalue3370) break;
#line 27719 "qb64pe.bas"
}
#line 27719 "qb64pe.bas"
fornext_error3370:;
#line 27719 "qb64pe.bas"
if(qbevent){evnt(27719);if(r)goto S_35962;}
#line 27720 "qb64pe.bas"
do{
#line 27720 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I));
#line 27720 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27720 "qb64pe.bas"
if(!qbevent)break;evnt(27720);}while(r);
#line 27721 "qb64pe.bas"
S_35964:;
#line 27721 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27721 "qb64pe.bas"
if(qbevent){evnt(27721);if(r)goto S_35964;}
#line 27721 "qb64pe.bas"
do{
#line 27721 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ;
#line 27721 "qb64pe.bas"
if(!qbevent)break;evnt(27721);}while(r);
#line 27721 "qb64pe.bas"
}
#line 27722 "qb64pe.bas"
S_35967:;
#line 27722 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27722 "qb64pe.bas"
if(qbevent){evnt(27722);if(r)goto S_35967;}
#line 27722 "qb64pe.bas"
do{
#line 27722 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ;
#line 27722 "qb64pe.bas"
if(!qbevent)break;evnt(27722);}while(r);
#line 27722 "qb64pe.bas"
}
#line 27723 "qb64pe.bas"
S_35970:;
#line 27723 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27723 "qb64pe.bas"
if(qbevent){evnt(27723);if(r)goto S_35970;}
#line 27724 "qb64pe.bas"
S_35971:;
#line 27724 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27724 "qb64pe.bas"
if(qbevent){evnt(27724);if(r)goto S_35971;}
#line 27724 "qb64pe.bas"
do{
#line 27724 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39));
#line 27724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27724 "qb64pe.bas"
if(!qbevent)break;evnt(27724);}while(r);
#line 27724 "qb64pe.bas"
do{
#line 27724 "qb64pe.bas"
goto exit_subfunc;
#line 27724 "qb64pe.bas"
if(!qbevent)break;evnt(27724);}while(r);
#line 27724 "qb64pe.bas"
}
#line 27725 "qb64pe.bas"
S_35975:;
#line 27725 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27725 "qb64pe.bas"
if(qbevent){evnt(27725);if(r)goto S_35975;}
#line 27726 "qb64pe.bas"
do{
#line 27726 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E));
#line 27726 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27726 "qb64pe.bas"
if(!qbevent)break;evnt(27726);}while(r);
#line 27727 "qb64pe.bas"
S_35977:;
#line 27727 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27727 "qb64pe.bas"
if(qbevent){evnt(27727);if(r)goto S_35977;}
#line 27727 "qb64pe.bas"
do{
#line 27727 "qb64pe.bas"
goto exit_subfunc;
#line 27727 "qb64pe.bas"
if(!qbevent)break;evnt(27727);}while(r);
#line 27727 "qb64pe.bas"
}
#line 27728 "qb64pe.bas"
do{
#line 27728 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1)));
#line 27728 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27728 "qb64pe.bas"
if(!qbevent)break;evnt(27728);}while(r);
#line 27729 "qb64pe.bas"
do{
#line 27729 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP));
#line 27729 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27729 "qb64pe.bas"
if(!qbevent)break;evnt(27729);}while(r);
#line 27730 "qb64pe.bas"
S_35982:;
#line 27730 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27730 "qb64pe.bas"
if(qbevent){evnt(27730);if(r)goto S_35982;}
#line 27730 "qb64pe.bas"
do{
#line 27730 "qb64pe.bas"
goto exit_subfunc;
#line 27730 "qb64pe.bas"
if(!qbevent)break;evnt(27730);}while(r);
#line 27730 "qb64pe.bas"
}
#line 27731 "qb64pe.bas"
S_35985:;
#line 27731 "qb64pe.bas"
if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27731 "qb64pe.bas"
if(qbevent){evnt(27731);if(r)goto S_35985;}
#line 27731 "qb64pe.bas"
do{
#line 27731 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3371= 0 )));
#line 27731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27731 "qb64pe.bas"
if(!qbevent)break;evnt(27731);}while(r);
#line 27731 "qb64pe.bas"
}
#line 27732 "qb64pe.bas"
S_35988:;
#line 27732 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27732 "qb64pe.bas"
if(qbevent){evnt(27732);if(r)goto S_35988;}
#line 27732 "qb64pe.bas"
do{
#line 27732 "qb64pe.bas"
goto exit_subfunc;
#line 27732 "qb64pe.bas"
if(!qbevent)break;evnt(27732);}while(r);
#line 27732 "qb64pe.bas"
}
#line 27733 "qb64pe.bas"
S_35991:;
#line 27733 "qb64pe.bas"
if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 27733 "qb64pe.bas"
if(qbevent){evnt(27733);if(r)goto S_35991;}
#line 27733 "qb64pe.bas"
do{
#line 27733 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39));
#line 27733 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27733 "qb64pe.bas"
if(!qbevent)break;evnt(27733);}while(r);
#line 27733 "qb64pe.bas"
do{
#line 27733 "qb64pe.bas"
goto exit_subfunc;
#line 27733 "qb64pe.bas"
if(!qbevent)break;evnt(27733);}while(r);
#line 27733 "qb64pe.bas"
}
#line 27734 "qb64pe.bas"
do{
#line 27734 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E);
#line 27734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27734 "qb64pe.bas"
if(!qbevent)break;evnt(27734);}while(r);
#line 27735 "qb64pe.bas"
do{
#line 27735 "qb64pe.bas"
goto fornext_exit_3369;
#line 27735 "qb64pe.bas"
if(!qbevent)break;evnt(27735);}while(r);
#line 27736 "qb64pe.bas"
}
#line 27737 "qb64pe.bas"
}
#line 27738 "qb64pe.bas"
S_35999:;
#line 27738 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||is_error_pending()){
#line 27738 "qb64pe.bas"
if(qbevent){evnt(27738);if(r)goto S_35999;}
#line 27738 "qb64pe.bas"
do{
#line 27738 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2));
#line 27738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27738 "qb64pe.bas"
if(!qbevent)break;evnt(27738);}while(r);
#line 27738 "qb64pe.bas"
}else{
#line 27738 "qb64pe.bas"
do{
#line 27738 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2);
#line 27738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27738 "qb64pe.bas"
if(!qbevent)break;evnt(27738);}while(r);
#line 27738 "qb64pe.bas"
}
#line 27739 "qb64pe.bas"
fornext_continue_3369:;
#line 27739 "qb64pe.bas"
}
#line 27739 "qb64pe.bas"
fornext_exit_3369:;
#line 27740 "qb64pe.bas"
S_36005:;
#line 27740 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27740 "qb64pe.bas"
if(qbevent){evnt(27740);if(r)goto S_36005;}
#line 27740 "qb64pe.bas"
do{
#line 27740 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39));
#line 27740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27740 "qb64pe.bas"
if(!qbevent)break;evnt(27740);}while(r);
#line 27740 "qb64pe.bas"
do{
#line 27740 "qb64pe.bas"
goto exit_subfunc;
#line 27740 "qb64pe.bas"
if(!qbevent)break;evnt(27740);}while(r);
#line 27740 "qb64pe.bas"
}
#line 27741 "qb64pe.bas"
S_36009:;
#line 27741 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||is_error_pending()){
#line 27741 "qb64pe.bas"
if(qbevent){evnt(27741);if(r)goto S_36009;}
#line 27741 "qb64pe.bas"
do{
#line 27741 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39));
#line 27741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27741 "qb64pe.bas"
if(!qbevent)break;evnt(27741);}while(r);
#line 27741 "qb64pe.bas"
do{
#line 27741 "qb64pe.bas"
goto exit_subfunc;
#line 27741 "qb64pe.bas"
if(!qbevent)break;evnt(27741);}while(r);
#line 27741 "qb64pe.bas"
}
#line 27743 "qb64pe.bas"
S_36013:;
#line 27743 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||is_error_pending()){
#line 27743 "qb64pe.bas"
if(qbevent){evnt(27743);if(r)goto S_36013;}
#line 27744 "qb64pe.bas"
do{
#line 27744 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs=qbs_new(0,0);",18));
#line 27744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27744 "qb64pe.bas"
if(!qbevent)break;evnt(27744);}while(r);
#line 27745 "qb64pe.bas"
}else{
#line 27746 "qb64pe.bas"
do{
#line 27746 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,qbs_new_txt_len(",29),func_chr( 34 )),func_chr( 34 )),qbs_new_txt_len(",0));",5)));
#line 27746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27746 "qb64pe.bas"
if(!qbevent)break;evnt(27746);}while(r);
#line 27747 "qb64pe.bas"
}
#line 27749 "qb64pe.bas"
do{
#line 27749 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tmp_long=0;",11));
#line 27749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27749 "qb64pe.bas"
if(!qbevent)break;evnt(27749);}while(r);
#line 27753 "qb64pe.bas"
do{
#line 27753 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XPRINT_STRING_U));
#line 27753 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27753 "qb64pe.bas"
if(!qbevent)break;evnt(27753);}while(r);
#line 27754 "qb64pe.bas"
S_36020:;
#line 27754 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27754 "qb64pe.bas"
if(qbevent){evnt(27754);if(r)goto S_36020;}
#line 27755 "qb64pe.bas"
do{
#line 27755 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
#line 27755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27755 "qb64pe.bas"
if(!qbevent)break;evnt(27755);}while(r);
#line 27756 "qb64pe.bas"
}else{
#line 27757 "qb64pe.bas"
do{
#line 27757 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)));
#line 27757 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27757 "qb64pe.bas"
if(!qbevent)break;evnt(27757);}while(r);
#line 27758 "qb64pe.bas"
}
#line 27759 "qb64pe.bas"
do{
#line 27759 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)));
#line 27759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27759 "qb64pe.bas"
if(!qbevent)break;evnt(27759);}while(r);
#line 27760 "qb64pe.bas"
do{
#line 27760 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip_pu",36),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27760 "qb64pe.bas"
if(!qbevent)break;evnt(27760);}while(r);
#line 27763 "qb64pe.bas"
do{
#line 27763 "qb64pe.bas"
*_SUB_XPRINT_LONG_B= 0 ;
#line 27763 "qb64pe.bas"
if(!qbevent)break;evnt(27763);}while(r);
#line 27764 "qb64pe.bas"
do{
#line 27764 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27764 "qb64pe.bas"
if(!qbevent)break;evnt(27764);}while(r);
#line 27765 "qb64pe.bas"
do{
#line 27765 "qb64pe.bas"
*_SUB_XPRINT_LONG_LAST= 0 ;
#line 27765 "qb64pe.bas"
if(!qbevent)break;evnt(27765);}while(r);
#line 27766 "qb64pe.bas"
S_36030:;
#line 27766 "qb64pe.bas"
fornext_value3374=*_SUB_XPRINT_LONG_I+ 1 ;
#line 27766 "qb64pe.bas"
fornext_finalvalue3374=*_SUB_XPRINT_LONG_N;
#line 27766 "qb64pe.bas"
fornext_step3374= 1 ;
#line 27766 "qb64pe.bas"
if (fornext_step3374<0) fornext_step_negative3374=1; else fornext_step_negative3374=0;
#line 27766 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3374;
#line 27766 "qb64pe.bas"
goto fornext_entrylabel3374;
#line 27766 "qb64pe.bas"
while(1){
#line 27766 "qb64pe.bas"
fornext_value3374=fornext_step3374+(*_SUB_XPRINT_LONG_I);
#line 27766 "qb64pe.bas"
fornext_entrylabel3374:
#line 27766 "qb64pe.bas"
*_SUB_XPRINT_LONG_I=fornext_value3374;
#line 27766 "qb64pe.bas"
if (fornext_step_negative3374){
#line 27766 "qb64pe.bas"
if (fornext_value3374<fornext_finalvalue3374) break;
#line 27766 "qb64pe.bas"
}else{
#line 27766 "qb64pe.bas"
if (fornext_value3374>fornext_finalvalue3374) break;
#line 27766 "qb64pe.bas"
}
#line 27766 "qb64pe.bas"
fornext_error3374:;
#line 27766 "qb64pe.bas"
if(qbevent){evnt(27766);if(r)goto S_36030;}
#line 27767 "qb64pe.bas"
do{
#line 27767 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I));
#line 27767 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27767 "qb64pe.bas"
if(!qbevent)break;evnt(27767);}while(r);
#line 27768 "qb64pe.bas"
S_36032:;
#line 27768 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27768 "qb64pe.bas"
if(qbevent){evnt(27768);if(r)goto S_36032;}
#line 27768 "qb64pe.bas"
do{
#line 27768 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ;
#line 27768 "qb64pe.bas"
if(!qbevent)break;evnt(27768);}while(r);
#line 27768 "qb64pe.bas"
}
#line 27769 "qb64pe.bas"
S_36035:;
#line 27769 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27769 "qb64pe.bas"
if(qbevent){evnt(27769);if(r)goto S_36035;}
#line 27769 "qb64pe.bas"
do{
#line 27769 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ;
#line 27769 "qb64pe.bas"
if(!qbevent)break;evnt(27769);}while(r);
#line 27769 "qb64pe.bas"
}
#line 27770 "qb64pe.bas"
S_36038:;
#line 27770 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27770 "qb64pe.bas"
if(qbevent){evnt(27770);if(r)goto S_36038;}
#line 27771 "qb64pe.bas"
S_36039:;
#line 27771 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
#line 27771 "qb64pe.bas"
if(qbevent){evnt(27771);if(r)goto S_36039;}
#line 27772 "qb64pe.bas"
LABEL_PRINTULAST:;
#line 27772 "qb64pe.bas"
if(qbevent){evnt(27772);r=0;}
#line 27773 "qb64pe.bas"
do{
#line 27773 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E));
#line 27773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27773 "qb64pe.bas"
if(!qbevent)break;evnt(27773);}while(r);
#line 27774 "qb64pe.bas"
S_36041:;
#line 27774 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27774 "qb64pe.bas"
if(qbevent){evnt(27774);if(r)goto S_36041;}
#line 27774 "qb64pe.bas"
do{
#line 27774 "qb64pe.bas"
goto exit_subfunc;
#line 27774 "qb64pe.bas"
if(!qbevent)break;evnt(27774);}while(r);
#line 27774 "qb64pe.bas"
}
#line 27775 "qb64pe.bas"
S_36044:;
#line 27775 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LAST)||is_error_pending()){
#line 27775 "qb64pe.bas"
if(qbevent){evnt(27775);if(r)goto S_36044;}
#line 27775 "qb64pe.bas"
do{
#line 27775 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27775 "qb64pe.bas"
if(!qbevent)break;evnt(27775);}while(r);
#line 27775 "qb64pe.bas"
}else{
#line 27775 "qb64pe.bas"
do{
#line 27775 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2));
#line 27775 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27775 "qb64pe.bas"
if(!qbevent)break;evnt(27775);}while(r);
#line 27775 "qb64pe.bas"
}
#line 27776 "qb64pe.bas"
do{
#line 27776 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP));
#line 27776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27776 "qb64pe.bas"
if(!qbevent)break;evnt(27776);}while(r);
#line 27777 "qb64pe.bas"
S_36050:;
#line 27777 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27777 "qb64pe.bas"
if(qbevent){evnt(27777);if(r)goto S_36050;}
#line 27777 "qb64pe.bas"
do{
#line 27777 "qb64pe.bas"
goto exit_subfunc;
#line 27777 "qb64pe.bas"
if(!qbevent)break;evnt(27777);}while(r);
#line 27777 "qb64pe.bas"
}
#line 27778 "qb64pe.bas"
S_36053:;
#line 27778 "qb64pe.bas"
if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27778 "qb64pe.bas"
if(qbevent){evnt(27778);if(r)goto S_36053;}
#line 27778 "qb64pe.bas"
do{
#line 27778 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3375= 0 )));
#line 27778 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27778 "qb64pe.bas"
if(!qbevent)break;evnt(27778);}while(r);
#line 27778 "qb64pe.bas"
}
#line 27779 "qb64pe.bas"
S_36056:;
#line 27779 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27779 "qb64pe.bas"
if(qbevent){evnt(27779);if(r)goto S_36056;}
#line 27779 "qb64pe.bas"
do{
#line 27779 "qb64pe.bas"
goto exit_subfunc;
#line 27779 "qb64pe.bas"
if(!qbevent)break;evnt(27779);}while(r);
#line 27779 "qb64pe.bas"
}
#line 27780 "qb64pe.bas"
S_36059:;
#line 27780 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 27780 "qb64pe.bas"
if(qbevent){evnt(27780);if(r)goto S_36059;}
#line 27782 "qb64pe.bas"
S_36060:;
#line 27782 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||is_error_pending()){
#line 27782 "qb64pe.bas"
if(qbevent){evnt(27782);if(r)goto S_36060;}
#line 27787 "qb64pe.bas"
do{
#line 27787 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)));
#line 27787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27787 "qb64pe.bas"
if(!qbevent)break;evnt(27787);}while(r);
#line 27789 "qb64pe.bas"
do{
#line 27789 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)));
#line 27789 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27789 "qb64pe.bas"
if(!qbevent)break;evnt(27789);}while(r);
#line 27790 "qb64pe.bas"
do{
#line 27790 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip_pu",36),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27790 "qb64pe.bas"
if(!qbevent)break;evnt(27790);}while(r);
#line 27791 "qb64pe.bas"
S_36064:;
#line 27791 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LP)||is_error_pending()){
#line 27791 "qb64pe.bas"
if(qbevent){evnt(27791);if(r)goto S_36064;}
#line 27791 "qb64pe.bas"
do{
#line 27791 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("lprint_makefit(tqbs);",21));
#line 27791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27791 "qb64pe.bas"
if(!qbevent)break;evnt(27791);}while(r);
#line 27791 "qb64pe.bas"
}else{
#line 27791 "qb64pe.bas"
do{
#line 27791 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("makefit(tqbs);",14));
#line 27791 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27791 "qb64pe.bas"
if(!qbevent)break;evnt(27791);}while(r);
#line 27791 "qb64pe.bas"
}
#line 27792 "qb64pe.bas"
do{
#line 27792 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)));
#line 27792 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27792 "qb64pe.bas"
if(!qbevent)break;evnt(27792);}while(r);
#line 27794 "qb64pe.bas"
do{
#line 27794 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs->len=0;",12));
#line 27794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27794 "qb64pe.bas"
if(!qbevent)break;evnt(27794);}while(r);
#line 27796 "qb64pe.bas"
}else{
#line 27799 "qb64pe.bas"
do{
#line 27799 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)));
#line 27799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27799 "qb64pe.bas"
if(!qbevent)break;evnt(27799);}while(r);
#line 27801 "qb64pe.bas"
}
#line 27805 "qb64pe.bas"
}else{
#line 27806 "qb64pe.bas"
S_36075:;
#line 27806 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 27806 "qb64pe.bas"
if(qbevent){evnt(27806);if(r)goto S_36075;}
#line 27807 "qb64pe.bas"
S_36076:;
#line 27807 "qb64pe.bas"
if ((-((*_SUB_XPRINT_LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
#line 27807 "qb64pe.bas"
if(qbevent){evnt(27807);if(r)goto S_36076;}
#line 27807 "qb64pe.bas"
do{
#line 27807 "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_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27807 "qb64pe.bas"
if(!qbevent)break;evnt(27807);}while(r);
#line 27807 "qb64pe.bas"
}
#line 27808 "qb64pe.bas"
S_36079:;
#line 27808 "qb64pe.bas"
if ((-((*_SUB_XPRINT_LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
#line 27808 "qb64pe.bas"
if(qbevent){evnt(27808);if(r)goto S_36079;}
#line 27808 "qb64pe.bas"
do{
#line 27808 "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_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27808 "qb64pe.bas"
if(!qbevent)break;evnt(27808);}while(r);
#line 27808 "qb64pe.bas"
}
#line 27809 "qb64pe.bas"
S_36082:;
#line 27809 "qb64pe.bas"
if ((-((*_SUB_XPRINT_LONG_TYP& 4095ll )> 64 ))||is_error_pending()){
#line 27809 "qb64pe.bas"
if(qbevent){evnt(27809);if(r)goto S_36082;}
#line 27809 "qb64pe.bas"
do{
#line 27809 "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_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27809 "qb64pe.bas"
if(!qbevent)break;evnt(27809);}while(r);
#line 27809 "qb64pe.bas"
}
#line 27810 "qb64pe.bas"
}else{
#line 27811 "qb64pe.bas"
S_36086:;
#line 27811 "qb64pe.bas"
if ((((-((*_SUB_XPRINT_LONG_TYP& 4095ll )== 64 )))&(-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
#line 27811 "qb64pe.bas"
if(qbevent){evnt(27811);if(r)goto S_36086;}
#line 27812 "qb64pe.bas"
do{
#line 27812 "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_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27812 "qb64pe.bas"
if(!qbevent)break;evnt(27812);}while(r);
#line 27813 "qb64pe.bas"
}else{
#line 27814 "qb64pe.bas"
do{
#line 27814 "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_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)));
#line 27814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27814 "qb64pe.bas"
if(!qbevent)break;evnt(27814);}while(r);
#line 27815 "qb64pe.bas"
}
#line 27816 "qb64pe.bas"
}
#line 27817 "qb64pe.bas"
}
#line 27818 "qb64pe.bas"
do{
#line 27818 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip_pu",36),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27818 "qb64pe.bas"
if(!qbevent)break;evnt(27818);}while(r);
#line 27819 "qb64pe.bas"
do{
#line 27819 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27819 "qb64pe.bas"
if(!qbevent)break;evnt(27819);}while(r);
#line 27820 "qb64pe.bas"
S_36095:;
#line 27820 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LAST)||is_error_pending()){
#line 27820 "qb64pe.bas"
if(qbevent){evnt(27820);if(r)goto S_36095;}
#line 27820 "qb64pe.bas"
do{
#line 27820 "qb64pe.bas"
goto fornext_exit_3373;
#line 27820 "qb64pe.bas"
if(!qbevent)break;evnt(27820);}while(r);
#line 27820 "qb64pe.bas"
}
#line 27821 "qb64pe.bas"
do{
#line 27821 "qb64pe.bas"
goto LABEL_PRINTUNEXT;
#line 27821 "qb64pe.bas"
if(!qbevent)break;evnt(27821);}while(r);
#line 27822 "qb64pe.bas"
}
#line 27823 "qb64pe.bas"
}
#line 27824 "qb64pe.bas"
S_36101:;
#line 27824 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||is_error_pending()){
#line 27824 "qb64pe.bas"
if(qbevent){evnt(27824);if(r)goto S_36101;}
#line 27824 "qb64pe.bas"
do{
#line 27824 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2));
#line 27824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27824 "qb64pe.bas"
if(!qbevent)break;evnt(27824);}while(r);
#line 27824 "qb64pe.bas"
}else{
#line 27824 "qb64pe.bas"
do{
#line 27824 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2);
#line 27824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27824 "qb64pe.bas"
if(!qbevent)break;evnt(27824);}while(r);
#line 27824 "qb64pe.bas"
}
#line 27825 "qb64pe.bas"
LABEL_PRINTUNEXT:;
#line 27825 "qb64pe.bas"
if(qbevent){evnt(27825);r=0;}
#line 27826 "qb64pe.bas"
fornext_continue_3373:;
#line 27826 "qb64pe.bas"
}
#line 27826 "qb64pe.bas"
fornext_exit_3373:;
#line 27827 "qb64pe.bas"
S_36107:;
#line 27827 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27827 "qb64pe.bas"
if(qbevent){evnt(27827);if(r)goto S_36107;}
#line 27827 "qb64pe.bas"
do{
#line 27827 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0));
#line 27827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27827 "qb64pe.bas"
if(!qbevent)break;evnt(27827);}while(r);
#line 27827 "qb64pe.bas"
do{
#line 27827 "qb64pe.bas"
*_SUB_XPRINT_LONG_LAST= 1 ;
#line 27827 "qb64pe.bas"
if(!qbevent)break;evnt(27827);}while(r);
#line 27827 "qb64pe.bas"
do{
#line 27827 "qb64pe.bas"
goto LABEL_PRINTULAST;
#line 27827 "qb64pe.bas"
if(!qbevent)break;evnt(27827);}while(r);
#line 27827 "qb64pe.bas"
}
#line 27828 "qb64pe.bas"
do{
#line 27828 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27828 "qb64pe.bas"
if(!qbevent)break;evnt(27828);}while(r);
#line 27830 "qb64pe.bas"
do{
#line 27830 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (is_error_pending()){",24));
#line 27830 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27830 "qb64pe.bas"
if(!qbevent)break;evnt(27830);}while(r);
#line 27831 "qb64pe.bas"
do{
#line 27831 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_long=new_error; new_error=0; qbs_",39),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0); new_error=g_tmp_long;",36)));
#line 27831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27831 "qb64pe.bas"
if(!qbevent)break;evnt(27831);}while(r);
#line 27832 "qb64pe.bas"
do{
#line 27832 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}else{",6));
#line 27832 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27832 "qb64pe.bas"
if(!qbevent)break;evnt(27832);}while(r);
#line 27833 "qb64pe.bas"
S_36116:;
#line 27833 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||is_error_pending()){
#line 27833 "qb64pe.bas"
if(qbevent){evnt(27833);if(r)goto S_36116;}
#line 27833 "qb64pe.bas"
do{
#line 27833 "qb64pe.bas"
*_SUB_XPRINT_LONG_NL= 0 ;
#line 27833 "qb64pe.bas"
if(!qbevent)break;evnt(27833);}while(r);
#line 27833 "qb64pe.bas"
}else{
#line 27833 "qb64pe.bas"
do{
#line 27833 "qb64pe.bas"
*_SUB_XPRINT_LONG_NL= 1 ;
#line 27833 "qb64pe.bas"
if(!qbevent)break;evnt(27833);}while(r);
#line 27833 "qb64pe.bas"
}
#line 27834 "qb64pe.bas"
do{
#line 27834 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,",11)),qbs__tostr((int32)(*_SUB_XPRINT_LONG_NL),NULL,0)),qbs_new_txt_len(");",2)));
#line 27834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27834 "qb64pe.bas"
if(!qbevent)break;evnt(27834);}while(r);
#line 27835 "qb64pe.bas"
do{
#line 27835 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 27835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27835 "qb64pe.bas"
if(!qbevent)break;evnt(27835);}while(r);
#line 27836 "qb64pe.bas"
do{
#line 27836 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_free(tqbs);",15));
#line 27836 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27836 "qb64pe.bas"
if(!qbevent)break;evnt(27836);}while(r);
#line 27837 "qb64pe.bas"
do{
#line 27837 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2)));
#line 27837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27837 "qb64pe.bas"
if(!qbevent)break;evnt(27837);}while(r);
#line 27838 "qb64pe.bas"
do{
#line 27838 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27838 "qb64pe.bas"
if(!qbevent)break;evnt(27838);}while(r);
#line 27839 "qb64pe.bas"
do{
#line 27839 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27839 "qb64pe.bas"
if(!qbevent)break;evnt(27839);}while(r);
#line 27840 "qb64pe.bas"
S_36127:;
#line 27840 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LP)||is_error_pending()){
#line 27840 "qb64pe.bas"
if(qbevent){evnt(27840);if(r)goto S_36127;}
#line 27840 "qb64pe.bas"
do{
#line 27840 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_LPRINT=0;",13));
#line 27840 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27840 "qb64pe.bas"
if(!qbevent)break;evnt(27840);}while(r);
#line 27840 "qb64pe.bas"
}
#line 27841 "qb64pe.bas"
do{
#line 27841 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L);
#line 27841 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27841 "qb64pe.bas"
if(!qbevent)break;evnt(27841);}while(r);
#line 27842 "qb64pe.bas"
do{
#line 27842 "qb64pe.bas"
goto exit_subfunc;
#line 27842 "qb64pe.bas"
if(!qbevent)break;evnt(27842);}while(r);
#line 27843 "qb64pe.bas"
}
#line 27844 "qb64pe.bas"
}
#line 27847 "qb64pe.bas"
do{
#line 27847 "qb64pe.bas"
*_SUB_XPRINT_LONG_B= 0 ;
#line 27847 "qb64pe.bas"
if(!qbevent)break;evnt(27847);}while(r);
#line 27848 "qb64pe.bas"
do{
#line 27848 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27848 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27848 "qb64pe.bas"
if(!qbevent)break;evnt(27848);}while(r);
#line 27849 "qb64pe.bas"
do{
#line 27849 "qb64pe.bas"
*_SUB_XPRINT_LONG_LAST= 0 ;
#line 27849 "qb64pe.bas"
if(!qbevent)break;evnt(27849);}while(r);
#line 27850 "qb64pe.bas"
do{
#line 27850 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tqbs=qbs_new(0,0);",18));
#line 27850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27850 "qb64pe.bas"
if(!qbevent)break;evnt(27850);}while(r);
#line 27851 "qb64pe.bas"
do{
#line 27851 "qb64pe.bas"
*_SUB_XPRINT_LONG_TQBSSET= -1 ;
#line 27851 "qb64pe.bas"
if(!qbevent)break;evnt(27851);}while(r);
#line 27852 "qb64pe.bas"
S_36139:;
#line 27852 "qb64pe.bas"
fornext_value3378= 2 ;
#line 27852 "qb64pe.bas"
fornext_finalvalue3378=*_SUB_XPRINT_LONG_N;
#line 27852 "qb64pe.bas"
fornext_step3378= 1 ;
#line 27852 "qb64pe.bas"
if (fornext_step3378<0) fornext_step_negative3378=1; else fornext_step_negative3378=0;
#line 27852 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3378;
#line 27852 "qb64pe.bas"
goto fornext_entrylabel3378;
#line 27852 "qb64pe.bas"
while(1){
#line 27852 "qb64pe.bas"
fornext_value3378=fornext_step3378+(*_SUB_XPRINT_LONG_I);
#line 27852 "qb64pe.bas"
fornext_entrylabel3378:
#line 27852 "qb64pe.bas"
*_SUB_XPRINT_LONG_I=fornext_value3378;
#line 27852 "qb64pe.bas"
if (fornext_step_negative3378){
#line 27852 "qb64pe.bas"
if (fornext_value3378<fornext_finalvalue3378) break;
#line 27852 "qb64pe.bas"
}else{
#line 27852 "qb64pe.bas"
if (fornext_value3378>fornext_finalvalue3378) break;
#line 27852 "qb64pe.bas"
}
#line 27852 "qb64pe.bas"
fornext_error3378:;
#line 27852 "qb64pe.bas"
if(qbevent){evnt(27852);if(r)goto S_36139;}
#line 27853 "qb64pe.bas"
do{
#line 27853 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I));
#line 27853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27853 "qb64pe.bas"
if(!qbevent)break;evnt(27853);}while(r);
#line 27854 "qb64pe.bas"
S_36141:;
#line 27854 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27854 "qb64pe.bas"
if(qbevent){evnt(27854);if(r)goto S_36141;}
#line 27854 "qb64pe.bas"
do{
#line 27854 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ;
#line 27854 "qb64pe.bas"
if(!qbevent)break;evnt(27854);}while(r);
#line 27854 "qb64pe.bas"
}
#line 27855 "qb64pe.bas"
S_36144:;
#line 27855 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27855 "qb64pe.bas"
if(qbevent){evnt(27855);if(r)goto S_36144;}
#line 27855 "qb64pe.bas"
do{
#line 27855 "qb64pe.bas"
*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ;
#line 27855 "qb64pe.bas"
if(!qbevent)break;evnt(27855);}while(r);
#line 27855 "qb64pe.bas"
}
#line 27856 "qb64pe.bas"
S_36147:;
#line 27856 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_B== 0 ))||is_error_pending()){
#line 27856 "qb64pe.bas"
if(qbevent){evnt(27856);if(r)goto S_36147;}
#line 27857 "qb64pe.bas"
S_36148:;
#line 27857 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||is_error_pending()){
#line 27857 "qb64pe.bas"
if(qbevent){evnt(27857);if(r)goto S_36148;}
#line 27858 "qb64pe.bas"
LABEL_PRINTLAST:;
#line 27858 "qb64pe.bas"
if(qbevent){evnt(27858);r=0;}
#line 27860 "qb64pe.bas"
S_36149:;
#line 27860 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 27860 "qb64pe.bas"
if(qbevent){evnt(27860);if(r)goto S_36149;}
#line 27861 "qb64pe.bas"
S_36150:;
#line 27861 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
#line 27861 "qb64pe.bas"
if(qbevent){evnt(27861);if(r)goto S_36150;}
#line 27861 "qb64pe.bas"
do{
#line 27861 "qb64pe.bas"
*_SUB_XPRINT_LONG_GOTOPU= 1 ;
#line 27861 "qb64pe.bas"
if(!qbevent)break;evnt(27861);}while(r);
#line 27861 "qb64pe.bas"
}else{
#line 27861 "qb64pe.bas"
do{
#line 27861 "qb64pe.bas"
*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ;
#line 27861 "qb64pe.bas"
if(!qbevent)break;evnt(27861);}while(r);
#line 27861 "qb64pe.bas"
do{
#line 27861 "qb64pe.bas"
goto LABEL_PUJUMP;
#line 27861 "qb64pe.bas"
if(!qbevent)break;evnt(27861);}while(r);
#line 27861 "qb64pe.bas"
}
#line 27862 "qb64pe.bas"
}
#line 27864 "qb64pe.bas"
S_36157:;
#line 27864 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||is_error_pending()){
#line 27864 "qb64pe.bas"
if(qbevent){evnt(27864);if(r)goto S_36157;}
#line 27865 "qb64pe.bas"
do{
#line 27865 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E);
#line 27865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27865 "qb64pe.bas"
if(!qbevent)break;evnt(27865);}while(r);
#line 27866 "qb64pe.bas"
do{
#line 27866 "qb64pe.bas"
*_SUB_XPRINT_LONG_PNRTNUM= 0 ;
#line 27866 "qb64pe.bas"
if(!qbevent)break;evnt(27866);}while(r);
#line 27867 "qb64pe.bas"
LABEL_PRINTNUMBER:;
#line 27867 "qb64pe.bas"
if(qbevent){evnt(27867);r=0;}
#line 27868 "qb64pe.bas"
do{
#line 27868 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E));
#line 27868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27868 "qb64pe.bas"
if(!qbevent)break;evnt(27868);}while(r);
#line 27869 "qb64pe.bas"
S_36161:;
#line 27869 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27869 "qb64pe.bas"
if(qbevent){evnt(27869);if(r)goto S_36161;}
#line 27869 "qb64pe.bas"
do{
#line 27869 "qb64pe.bas"
goto exit_subfunc;
#line 27869 "qb64pe.bas"
if(!qbevent)break;evnt(27869);}while(r);
#line 27869 "qb64pe.bas"
}
#line 27870 "qb64pe.bas"
S_36164:;
#line 27870 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||is_error_pending()){
#line 27870 "qb64pe.bas"
if(qbevent){evnt(27870);if(r)goto S_36164;}
#line 27871 "qb64pe.bas"
S_36165:;
#line 27871 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LAST)||is_error_pending()){
#line 27871 "qb64pe.bas"
if(qbevent){evnt(27871);if(r)goto S_36165;}
#line 27872 "qb64pe.bas"
do{
#line 27872 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27872 "qb64pe.bas"
if(!qbevent)break;evnt(27872);}while(r);
#line 27873 "qb64pe.bas"
S_36167:;
#line 27873 "qb64pe.bas"
}else{
#line 27873 "qb64pe.bas"
if (*_SUB_XPRINT_LONG_GOTOPU){
#line 27873 "qb64pe.bas"
if(qbevent){evnt(27873);if(r)goto S_36167;}
#line 27874 "qb64pe.bas"
do{
#line 27874 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27874 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27874 "qb64pe.bas"
if(!qbevent)break;evnt(27874);}while(r);
#line 27875 "qb64pe.bas"
}else{
#line 27876 "qb64pe.bas"
do{
#line 27876 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2));
#line 27876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27876 "qb64pe.bas"
if(!qbevent)break;evnt(27876);}while(r);
#line 27877 "qb64pe.bas"
}
#line 27877 "qb64pe.bas"
}
#line 27878 "qb64pe.bas"
}
#line 27879 "qb64pe.bas"
do{
#line 27879 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP));
#line 27879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27879 "qb64pe.bas"
if(!qbevent)break;evnt(27879);}while(r);
#line 27880 "qb64pe.bas"
S_36174:;
#line 27880 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27880 "qb64pe.bas"
if(qbevent){evnt(27880);if(r)goto S_36174;}
#line 27880 "qb64pe.bas"
do{
#line 27880 "qb64pe.bas"
goto exit_subfunc;
#line 27880 "qb64pe.bas"
if(!qbevent)break;evnt(27880);}while(r);
#line 27880 "qb64pe.bas"
}
#line 27881 "qb64pe.bas"
S_36177:;
#line 27881 "qb64pe.bas"
if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 27881 "qb64pe.bas"
if(qbevent){evnt(27881);if(r)goto S_36177;}
#line 27883 "qb64pe.bas"
do{
#line 27883 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 )));
#line 27883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27883 "qb64pe.bas"
if(!qbevent)break;evnt(27883);}while(r);
#line 27884 "qb64pe.bas"
do{
#line 27884 "qb64pe.bas"
*_SUB_XPRINT_LONG_PNRTNUM= 1 ;
#line 27884 "qb64pe.bas"
if(!qbevent)break;evnt(27884);}while(r);
#line 27885 "qb64pe.bas"
do{
#line 27885 "qb64pe.bas"
goto LABEL_PRINTNUMBER;
#line 27885 "qb64pe.bas"
if(!qbevent)break;evnt(27885);}while(r);
#line 27886 "qb64pe.bas"
}
#line 27887 "qb64pe.bas"
S_36182:;
#line 27887 "qb64pe.bas"
if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27887 "qb64pe.bas"
if(qbevent){evnt(27887);if(r)goto S_36182;}
#line 27887 "qb64pe.bas"
do{
#line 27887 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3380= 0 )));
#line 27887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27887 "qb64pe.bas"
if(!qbevent)break;evnt(27887);}while(r);
#line 27887 "qb64pe.bas"
}
#line 27888 "qb64pe.bas"
S_36185:;
#line 27888 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27888 "qb64pe.bas"
if(qbevent){evnt(27888);if(r)goto S_36185;}
#line 27888 "qb64pe.bas"
do{
#line 27888 "qb64pe.bas"
goto exit_subfunc;
#line 27888 "qb64pe.bas"
if(!qbevent)break;evnt(27888);}while(r);
#line 27888 "qb64pe.bas"
}
#line 27889 "qb64pe.bas"
do{
#line 27889 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)));
#line 27889 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27889 "qb64pe.bas"
if(!qbevent)break;evnt(27889);}while(r);
#line 27890 "qb64pe.bas"
do{
#line 27890 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)));
#line 27890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27890 "qb64pe.bas"
if(!qbevent)break;evnt(27890);}while(r);
#line 27891 "qb64pe.bas"
S_36190:;
#line 27891 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LP)||is_error_pending()){
#line 27891 "qb64pe.bas"
if(qbevent){evnt(27891);if(r)goto S_36190;}
#line 27891 "qb64pe.bas"
do{
#line 27891 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("lprint_makefit(tqbs);",21));
#line 27891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27891 "qb64pe.bas"
if(!qbevent)break;evnt(27891);}while(r);
#line 27891 "qb64pe.bas"
}else{
#line 27891 "qb64pe.bas"
do{
#line 27891 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("makefit(tqbs);",14));
#line 27891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27891 "qb64pe.bas"
if(!qbevent)break;evnt(27891);}while(r);
#line 27891 "qb64pe.bas"
}
#line 27892 "qb64pe.bas"
do{
#line 27892 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)));
#line 27892 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27892 "qb64pe.bas"
if(!qbevent)break;evnt(27892);}while(r);
#line 27893 "qb64pe.bas"
}else{
#line 27894 "qb64pe.bas"
S_36197:;
#line 27894 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27894 "qb64pe.bas"
if(qbevent){evnt(27894);if(r)goto S_36197;}
#line 27894 "qb64pe.bas"
do{
#line 27894 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2));
#line 27894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27894 "qb64pe.bas"
if(!qbevent)break;evnt(27894);}while(r);
#line 27894 "qb64pe.bas"
}
#line 27895 "qb64pe.bas"
S_36200:;
#line 27895 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27895 "qb64pe.bas"
if(qbevent){evnt(27895);if(r)goto S_36200;}
#line 27896 "qb64pe.bas"
S_36201:;
#line 27896 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||is_error_pending()){
#line 27896 "qb64pe.bas"
if(qbevent){evnt(27896);if(r)goto S_36201;}
#line 27896 "qb64pe.bas"
do{
#line 27896 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2));
#line 27896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27896 "qb64pe.bas"
if(!qbevent)break;evnt(27896);}while(r);
#line 27896 "qb64pe.bas"
}
#line 27897 "qb64pe.bas"
}
#line 27898 "qb64pe.bas"
}
#line 27899 "qb64pe.bas"
S_36206:;
#line 27899 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27899 "qb64pe.bas"
if(qbevent){evnt(27899);if(r)goto S_36206;}
#line 27899 "qb64pe.bas"
do{
#line 27899 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab();",6));
#line 27899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27899 "qb64pe.bas"
if(!qbevent)break;evnt(27899);}while(r);
#line 27899 "qb64pe.bas"
}
#line 27900 "qb64pe.bas"
do{
#line 27900 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0));
#line 27900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27900 "qb64pe.bas"
if(!qbevent)break;evnt(27900);}while(r);
#line 27902 "qb64pe.bas"
S_36210:;
#line 27902 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_GOTOPU)||is_error_pending()){
#line 27902 "qb64pe.bas"
if(qbevent){evnt(27902);if(r)goto S_36210;}
#line 27902 "qb64pe.bas"
do{
#line 27902 "qb64pe.bas"
*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ;
#line 27902 "qb64pe.bas"
if(!qbevent)break;evnt(27902);}while(r);
#line 27902 "qb64pe.bas"
do{
#line 27902 "qb64pe.bas"
goto LABEL_PUJUMP;
#line 27902 "qb64pe.bas"
if(!qbevent)break;evnt(27902);}while(r);
#line 27902 "qb64pe.bas"
}
#line 27904 "qb64pe.bas"
S_36214:;
#line 27904 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LAST)||is_error_pending()){
#line 27904 "qb64pe.bas"
if(qbevent){evnt(27904);if(r)goto S_36214;}
#line 27905 "qb64pe.bas"
do{
#line 27905 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)));
#line 27905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27905 "qb64pe.bas"
if(!qbevent)break;evnt(27905);}while(r);
#line 27906 "qb64pe.bas"
do{
#line 27906 "qb64pe.bas"
goto fornext_exit_3377;
#line 27906 "qb64pe.bas"
if(!qbevent)break;evnt(27906);}while(r);
#line 27907 "qb64pe.bas"
}
#line 27909 "qb64pe.bas"
do{
#line 27909 "qb64pe.bas"
goto LABEL_PRINTNEXT;
#line 27909 "qb64pe.bas"
if(!qbevent)break;evnt(27909);}while(r);
#line 27910 "qb64pe.bas"
}
#line 27911 "qb64pe.bas"
}
#line 27913 "qb64pe.bas"
S_36221:;
#line 27913 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||is_error_pending()){
#line 27913 "qb64pe.bas"
if(qbevent){evnt(27913);if(r)goto S_36221;}
#line 27913 "qb64pe.bas"
do{
#line 27913 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2));
#line 27913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27913 "qb64pe.bas"
if(!qbevent)break;evnt(27913);}while(r);
#line 27913 "qb64pe.bas"
}else{
#line 27913 "qb64pe.bas"
do{
#line 27913 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2);
#line 27913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27913 "qb64pe.bas"
if(!qbevent)break;evnt(27913);}while(r);
#line 27913 "qb64pe.bas"
}
#line 27914 "qb64pe.bas"
LABEL_PRINTNEXT:;
#line 27914 "qb64pe.bas"
if(qbevent){evnt(27914);r=0;}
#line 27915 "qb64pe.bas"
fornext_continue_3377:;
#line 27915 "qb64pe.bas"
}
#line 27915 "qb64pe.bas"
fornext_exit_3377:;
#line 27916 "qb64pe.bas"
S_36227:;
#line 27916 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||is_error_pending()){
#line 27916 "qb64pe.bas"
if(qbevent){evnt(27916);if(r)goto S_36227;}
#line 27916 "qb64pe.bas"
do{
#line 27916 "qb64pe.bas"
qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0));
#line 27916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27916 "qb64pe.bas"
if(!qbevent)break;evnt(27916);}while(r);
#line 27916 "qb64pe.bas"
do{
#line 27916 "qb64pe.bas"
*_SUB_XPRINT_LONG_LAST= 1 ;
#line 27916 "qb64pe.bas"
if(!qbevent)break;evnt(27916);}while(r);
#line 27916 "qb64pe.bas"
do{
#line 27916 "qb64pe.bas"
goto LABEL_PRINTLAST;
#line 27916 "qb64pe.bas"
if(!qbevent)break;evnt(27916);}while(r);
#line 27916 "qb64pe.bas"
}
#line 27917 "qb64pe.bas"
S_36232:;
#line 27917 "qb64pe.bas"
if ((-(*_SUB_XPRINT_LONG_N== 1 ))||is_error_pending()){
#line 27917 "qb64pe.bas"
if(qbevent){evnt(27917);if(r)goto S_36232;}
#line 27917 "qb64pe.bas"
do{
#line 27917 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)));
#line 27917 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27917 "qb64pe.bas"
if(!qbevent)break;evnt(27917);}while(r);
#line 27917 "qb64pe.bas"
}
#line 27918 "qb64pe.bas"
do{
#line 27918 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)));
#line 27918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27918 "qb64pe.bas"
if(!qbevent)break;evnt(27918);}while(r);
#line 27919 "qb64pe.bas"
do{
#line 27919 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qbs_free(tqbs);",15));
#line 27919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27919 "qb64pe.bas"
if(!qbevent)break;evnt(27919);}while(r);
#line 27920 "qb64pe.bas"
do{
#line 27920 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
#line 27920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27920 "qb64pe.bas"
if(!qbevent)break;evnt(27920);}while(r);
#line 27921 "qb64pe.bas"
S_36238:;
#line 27921 "qb64pe.bas"
if ((*_SUB_XPRINT_LONG_LP)||is_error_pending()){
#line 27921 "qb64pe.bas"
if(qbevent){evnt(27921);if(r)goto S_36238;}
#line 27921 "qb64pe.bas"
do{
#line 27921 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("tab_LPRINT=0;",13));
#line 27921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27921 "qb64pe.bas"
if(!qbevent)break;evnt(27921);}while(r);
#line 27921 "qb64pe.bas"
}
#line 27922 "qb64pe.bas"
do{
#line 27922 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L);
#line 27922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27922 "qb64pe.bas"
if(!qbevent)break;evnt(27922);}while(r);
#line 27923 "qb64pe.bas"
exit_subfunc:;
#line 27923 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27923 "qb64pe.bas"
#include "free95.txt"
#line 27923 "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 27923 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27923 "qb64pe.bas"
}
