#line 27610 "qb64pe.bas"
void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_LONG_N){
#line 27610 "qb64pe.bas"
qbs *tqbs;
#line 27610 "qb64pe.bas"
ptrszint tmp_long;
#line 27610 "qb64pe.bas"
int32 tmp_fileno;
#line 27610 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 27610 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 27610 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 27610 "qb64pe.bas"
#include "data94.txt"
#line 27610 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 27610 "qb64pe.bas"
new_mem_lock();
#line 27610 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 27610 "qb64pe.bas"
sf_mem_lock->type=3;
#line 27610 "qb64pe.bas"
libqb_check_stack();
#line 27610 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 27611 "qb64pe.bas"
S_35811:;
#line 27611 "qb64pe.bas"
if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||is_error_pending()){
#line 27611 "qb64pe.bas"
if(qbevent){evnt(27611);if(r)goto S_35811;}
#line 27611 "qb64pe.bas"
do{
#line 27611 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49));
#line 27611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27611 "qb64pe.bas"
if(!qbevent)break;evnt(27611);}while(r);
#line 27611 "qb64pe.bas"
do{
#line 27611 "qb64pe.bas"
goto exit_subfunc;
#line 27611 "qb64pe.bas"
if(!qbevent)break;evnt(27611);}while(r);
#line 27611 "qb64pe.bas"
}
#line 27612 "qb64pe.bas"
do{
#line 27612 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2)));
#line 27612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27612 "qb64pe.bas"
if(!qbevent)break;evnt(27612);}while(r);
#line 27613 "qb64pe.bas"
do{
#line 27613 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_B= 0 ;
#line 27613 "qb64pe.bas"
if(!qbevent)break;evnt(27613);}while(r);
#line 27614 "qb64pe.bas"
S_35817:;
#line 27614 "qb64pe.bas"
fornext_value3353= 2 ;
#line 27614 "qb64pe.bas"
fornext_finalvalue3353=*_SUB_XONGOTOGOSUB_LONG_N;
#line 27614 "qb64pe.bas"
fornext_step3353= 1 ;
#line 27614 "qb64pe.bas"
if (fornext_step3353<0) fornext_step_negative3353=1; else fornext_step_negative3353=0;
#line 27614 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3353;
#line 27614 "qb64pe.bas"
goto fornext_entrylabel3353;
#line 27614 "qb64pe.bas"
while(1){
#line 27614 "qb64pe.bas"
fornext_value3353=fornext_step3353+(*_SUB_XONGOTOGOSUB_LONG_I);
#line 27614 "qb64pe.bas"
fornext_entrylabel3353:
#line 27614 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3353;
#line 27614 "qb64pe.bas"
if (fornext_step_negative3353){
#line 27614 "qb64pe.bas"
if (fornext_value3353<fornext_finalvalue3353) break;
#line 27614 "qb64pe.bas"
}else{
#line 27614 "qb64pe.bas"
if (fornext_value3353>fornext_finalvalue3353) break;
#line 27614 "qb64pe.bas"
}
#line 27614 "qb64pe.bas"
fornext_error3353:;
#line 27614 "qb64pe.bas"
if(qbevent){evnt(27614);if(r)goto S_35817;}
#line 27615 "qb64pe.bas"
do{
#line 27615 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I));
#line 27615 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27615 "qb64pe.bas"
if(!qbevent)break;evnt(27615);}while(r);
#line 27616 "qb64pe.bas"
S_35819:;
#line 27616 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 27616 "qb64pe.bas"
if(qbevent){evnt(27616);if(r)goto S_35819;}
#line 27616 "qb64pe.bas"
do{
#line 27616 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ;
#line 27616 "qb64pe.bas"
if(!qbevent)break;evnt(27616);}while(r);
#line 27616 "qb64pe.bas"
}
#line 27617 "qb64pe.bas"
S_35822:;
#line 27617 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 27617 "qb64pe.bas"
if(qbevent){evnt(27617);if(r)goto S_35822;}
#line 27617 "qb64pe.bas"
do{
#line 27617 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ;
#line 27617 "qb64pe.bas"
if(!qbevent)break;evnt(27617);}while(r);
#line 27617 "qb64pe.bas"
}
#line 27618 "qb64pe.bas"
S_35825:;
#line 27618 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOTO",4)))|(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5)))))||is_error_pending()){
#line 27618 "qb64pe.bas"
if(qbevent){evnt(27618);if(r)goto S_35825;}
#line 27618 "qb64pe.bas"
do{
#line 27618 "qb64pe.bas"
goto fornext_exit_3352;
#line 27618 "qb64pe.bas"
if(!qbevent)break;evnt(27618);}while(r);
#line 27618 "qb64pe.bas"
}
#line 27619 "qb64pe.bas"
fornext_continue_3352:;
#line 27619 "qb64pe.bas"
}
#line 27619 "qb64pe.bas"
fornext_exit_3352:;
#line 27620 "qb64pe.bas"
S_35829:;
#line 27620 "qb64pe.bas"
if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||is_error_pending()){
#line 27620 "qb64pe.bas"
if(qbevent){evnt(27620);if(r)goto S_35829;}
#line 27620 "qb64pe.bas"
do{
#line 27620 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49));
#line 27620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27620 "qb64pe.bas"
if(!qbevent)break;evnt(27620);}while(r);
#line 27620 "qb64pe.bas"
do{
#line 27620 "qb64pe.bas"
goto exit_subfunc;
#line 27620 "qb64pe.bas"
if(!qbevent)break;evnt(27620);}while(r);
#line 27620 "qb64pe.bas"
}
#line 27621 "qb64pe.bas"
do{
#line 27621 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3354= 2 ),&(pass3355=*_SUB_XONGOTOGOSUB_LONG_I- 1 )));
#line 27621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27621 "qb64pe.bas"
if(!qbevent)break;evnt(27621);}while(r);
#line 27623 "qb64pe.bas"
do{
#line 27623 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_G= 0 ;
#line 27623 "qb64pe.bas"
if(!qbevent)break;evnt(27623);}while(r);
#line 27623 "qb64pe.bas"
S_35835:;
#line 27623 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
#line 27623 "qb64pe.bas"
if(qbevent){evnt(27623);if(r)goto S_35835;}
#line 27623 "qb64pe.bas"
do{
#line 27623 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_G= 1 ;
#line 27623 "qb64pe.bas"
if(!qbevent)break;evnt(27623);}while(r);
#line 27623 "qb64pe.bas"
}
#line 27624 "qb64pe.bas"
do{
#line 27624 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E));
#line 27624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27624 "qb64pe.bas"
if(!qbevent)break;evnt(27624);}while(r);
#line 27625 "qb64pe.bas"
S_35839:;
#line 27625 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27625 "qb64pe.bas"
if(qbevent){evnt(27625);if(r)goto S_35839;}
#line 27625 "qb64pe.bas"
do{
#line 27625 "qb64pe.bas"
goto exit_subfunc;
#line 27625 "qb64pe.bas"
if(!qbevent)break;evnt(27625);}while(r);
#line 27625 "qb64pe.bas"
}
#line 27626 "qb64pe.bas"
do{
#line 27626 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27626 "qb64pe.bas"
if(!qbevent)break;evnt(27626);}while(r);
#line 27627 "qb64pe.bas"
do{
#line 27627 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP));
#line 27627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27627 "qb64pe.bas"
if(!qbevent)break;evnt(27627);}while(r);
#line 27628 "qb64pe.bas"
S_35844:;
#line 27628 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27628 "qb64pe.bas"
if(qbevent){evnt(27628);if(r)goto S_35844;}
#line 27628 "qb64pe.bas"
do{
#line 27628 "qb64pe.bas"
goto exit_subfunc;
#line 27628 "qb64pe.bas"
if(!qbevent)break;evnt(27628);}while(r);
#line 27628 "qb64pe.bas"
}
#line 27629 "qb64pe.bas"
S_35847:;
#line 27629 "qb64pe.bas"
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 27629 "qb64pe.bas"
if(qbevent){evnt(27629);if(r)goto S_35847;}
#line 27629 "qb64pe.bas"
do{
#line 27629 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3356= 0 )));
#line 27629 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27629 "qb64pe.bas"
if(!qbevent)break;evnt(27629);}while(r);
#line 27629 "qb64pe.bas"
}
#line 27630 "qb64pe.bas"
S_35850:;
#line 27630 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 27630 "qb64pe.bas"
if(qbevent){evnt(27630);if(r)goto S_35850;}
#line 27630 "qb64pe.bas"
do{
#line 27630 "qb64pe.bas"
goto exit_subfunc;
#line 27630 "qb64pe.bas"
if(!qbevent)break;evnt(27630);}while(r);
#line 27630 "qb64pe.bas"
}
#line 27631 "qb64pe.bas"
S_35853:;
#line 27631 "qb64pe.bas"
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
#line 27631 "qb64pe.bas"
if(qbevent){evnt(27631);if(r)goto S_35853;}
#line 27631 "qb64pe.bas"
do{
#line 27631 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27));
#line 27631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27631 "qb64pe.bas"
if(!qbevent)break;evnt(27631);}while(r);
#line 27631 "qb64pe.bas"
do{
#line 27631 "qb64pe.bas"
goto exit_subfunc;
#line 27631 "qb64pe.bas"
if(!qbevent)break;evnt(27631);}while(r);
#line 27631 "qb64pe.bas"
}
#line 27632 "qb64pe.bas"
S_35857:;
#line 27632 "qb64pe.bas"
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 27632 "qb64pe.bas"
if(qbevent){evnt(27632);if(r)goto S_35857;}
#line 27633 "qb64pe.bas"
do{
#line 27633 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(")",1)));
#line 27633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27633 "qb64pe.bas"
if(!qbevent)break;evnt(27633);}while(r);
#line 27634 "qb64pe.bas"
}
#line 27635 "qb64pe.bas"
do{
#line 27635 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2));
#line 27635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27635 "qb64pe.bas"
if(!qbevent)break;evnt(27635);}while(r);
#line 27636 "qb64pe.bas"
do{
#line 27636 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
#line 27636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27636 "qb64pe.bas"
if(!qbevent)break;evnt(27636);}while(r);
#line 27637 "qb64pe.bas"
do{
#line 27637 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3)));
#line 27637 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27637 "qb64pe.bas"
if(!qbevent)break;evnt(27637);}while(r);
#line 27638 "qb64pe.bas"
do{
#line 27638 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=",1)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)));
#line 27638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27638 "qb64pe.bas"
if(!qbevent)break;evnt(27638);}while(r);
#line 27639 "qb64pe.bas"
do{
#line 27639 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_LN= 1 ;
#line 27639 "qb64pe.bas"
if(!qbevent)break;evnt(27639);}while(r);
#line 27640 "qb64pe.bas"
do{
#line 27640 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ;
#line 27640 "qb64pe.bas"
if(!qbevent)break;evnt(27640);}while(r);
#line 27641 "qb64pe.bas"
S_35866:;
#line 27641 "qb64pe.bas"
fornext_value3358=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ;
#line 27641 "qb64pe.bas"
fornext_finalvalue3358=*_SUB_XONGOTOGOSUB_LONG_N;
#line 27641 "qb64pe.bas"
fornext_step3358= 1 ;
#line 27641 "qb64pe.bas"
if (fornext_step3358<0) fornext_step_negative3358=1; else fornext_step_negative3358=0;
#line 27641 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3358;
#line 27641 "qb64pe.bas"
goto fornext_entrylabel3358;
#line 27641 "qb64pe.bas"
while(1){
#line 27641 "qb64pe.bas"
fornext_value3358=fornext_step3358+(*_SUB_XONGOTOGOSUB_LONG_I);
#line 27641 "qb64pe.bas"
fornext_entrylabel3358:
#line 27641 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3358;
#line 27641 "qb64pe.bas"
if (fornext_step_negative3358){
#line 27641 "qb64pe.bas"
if (fornext_value3358<fornext_finalvalue3358) break;
#line 27641 "qb64pe.bas"
}else{
#line 27641 "qb64pe.bas"
if (fornext_value3358>fornext_finalvalue3358) break;
#line 27641 "qb64pe.bas"
}
#line 27641 "qb64pe.bas"
fornext_error3358:;
#line 27641 "qb64pe.bas"
if(qbevent){evnt(27641);if(r)goto S_35866;}
#line 27642 "qb64pe.bas"
do{
#line 27642 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I));
#line 27642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27642 "qb64pe.bas"
if(!qbevent)break;evnt(27642);}while(r);
#line 27643 "qb64pe.bas"
S_35868:;
#line 27643 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 27643 "qb64pe.bas"
if(qbevent){evnt(27643);if(r)goto S_35868;}
#line 27644 "qb64pe.bas"
do{
#line 27644 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
#line 27644 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27644 "qb64pe.bas"
if(!qbevent)break;evnt(27644);}while(r);
#line 27645 "qb64pe.bas"
S_35870:;
#line 27645 "qb64pe.bas"
if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||is_error_pending()){
#line 27645 "qb64pe.bas"
if(qbevent){evnt(27645);if(r)goto S_35870;}
#line 27645 "qb64pe.bas"
do{
#line 27645 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18));
#line 27645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27645 "qb64pe.bas"
if(!qbevent)break;evnt(27645);}while(r);
#line 27645 "qb64pe.bas"
do{
#line 27645 "qb64pe.bas"
goto exit_subfunc;
#line 27645 "qb64pe.bas"
if(!qbevent)break;evnt(27645);}while(r);
#line 27645 "qb64pe.bas"
}
#line 27646 "qb64pe.bas"
do{
#line 27646 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ;
#line 27646 "qb64pe.bas"
if(!qbevent)break;evnt(27646);}while(r);
#line 27647 "qb64pe.bas"
do{
#line 27647 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ;
#line 27647 "qb64pe.bas"
if(!qbevent)break;evnt(27647);}while(r);
#line 27648 "qb64pe.bas"
}else{
#line 27649 "qb64pe.bas"
S_35877:;
#line 27649 "qb64pe.bas"
if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||is_error_pending()){
#line 27649 "qb64pe.bas"
if(qbevent){evnt(27649);if(r)goto S_35877;}
#line 27649 "qb64pe.bas"
do{
#line 27649 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10));
#line 27649 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27649 "qb64pe.bas"
if(!qbevent)break;evnt(27649);}while(r);
#line 27649 "qb64pe.bas"
do{
#line 27649 "qb64pe.bas"
goto exit_subfunc;
#line 27649 "qb64pe.bas"
if(!qbevent)break;evnt(27649);}while(r);
#line 27649 "qb64pe.bas"
}
#line 27650 "qb64pe.bas"
S_35881:;
#line 27650 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||is_error_pending()){
#line 27650 "qb64pe.bas"
if(qbevent){evnt(27650);if(r)goto S_35881;}
#line 27650 "qb64pe.bas"
do{
#line 27650 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14));
#line 27650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27650 "qb64pe.bas"
if(!qbevent)break;evnt(27650);}while(r);
#line 27650 "qb64pe.bas"
do{
#line 27650 "qb64pe.bas"
goto exit_subfunc;
#line 27650 "qb64pe.bas"
if(!qbevent)break;evnt(27650);}while(r);
#line 27650 "qb64pe.bas"
}
#line 27652 "qb64pe.bas"
do{
#line 27652 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3359= 2ll ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R);
#line 27652 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27652 "qb64pe.bas"
if(!qbevent)break;evnt(27652);}while(r);
#line 27653 "qb64pe.bas"
do{
#line 27653 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_X= 1 ;
#line 27653 "qb64pe.bas"
if(!qbevent)break;evnt(27653);}while(r);
#line 27654 "qb64pe.bas"
LABEL_LABCHK507:;
#line 27654 "qb64pe.bas"
if(qbevent){evnt(27654);r=0;}
#line 27655 "qb64pe.bas"
S_35887:;
#line 27655 "qb64pe.bas"
if ((*_SUB_XONGOTOGOSUB_LONG_V)||is_error_pending()){
#line 27655 "qb64pe.bas"
if(qbevent){evnt(27655);if(r)goto S_35887;}
#line 27656 "qb64pe.bas"
do{
#line 27656 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
#line 27656 "qb64pe.bas"
if(!qbevent)break;evnt(27656);}while(r);
#line 27657 "qb64pe.bas"
S_35889:;
#line 27657 "qb64pe.bas"
if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||is_error_pending()){
#line 27657 "qb64pe.bas"
if(qbevent){evnt(27657);if(r)goto S_35889;}
#line 27658 "qb64pe.bas"
S_35890:;
#line 27658 "qb64pe.bas"
if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||is_error_pending()){
#line 27658 "qb64pe.bas"
if(qbevent){evnt(27658);if(r)goto S_35890;}
#line 27658 "qb64pe.bas"
do{
#line 27658 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 27658 "qb64pe.bas"
if(!qbevent)break;evnt(27658);}while(r);
#line 27658 "qb64pe.bas"
}
#line 27659 "qb64pe.bas"
do{
#line 27659 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_X= 0 ;
#line 27659 "qb64pe.bas"
if(!qbevent)break;evnt(27659);}while(r);
#line 27660 "qb64pe.bas"
do{
#line 27660 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
#line 27660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27660 "qb64pe.bas"
if(!qbevent)break;evnt(27660);}while(r);
#line 27661 "qb64pe.bas"
}else{
#line 27662 "qb64pe.bas"
S_35896:;
#line 27662 "qb64pe.bas"
if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||is_error_pending()){
#line 27662 "qb64pe.bas"
if(qbevent){evnt(27662);if(r)goto S_35896;}
#line 27662 "qb64pe.bas"
do{
#line 27662 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R);
#line 27662 "qb64pe.bas"
if(!qbevent)break;evnt(27662);}while(r);
#line 27662 "qb64pe.bas"
do{
#line 27662 "qb64pe.bas"
goto LABEL_LABCHK507;
#line 27662 "qb64pe.bas"
if(!qbevent)break;evnt(27662);}while(r);
#line 27662 "qb64pe.bas"
}
#line 27663 "qb64pe.bas"
}
#line 27664 "qb64pe.bas"
}
#line 27665 "qb64pe.bas"
S_35902:;
#line 27665 "qb64pe.bas"
if ((*_SUB_XONGOTOGOSUB_LONG_X)||is_error_pending()){
#line 27665 "qb64pe.bas"
if(qbevent){evnt(27665);if(r)goto S_35902;}
#line 27667 "qb64pe.bas"
do{
#line 27667 "qb64pe.bas"
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
#line 27667 "qb64pe.bas"
if(!qbevent)break;evnt(27667);}while(r);
#line 27667 "qb64pe.bas"
S_35904:;
#line 27667 "qb64pe.bas"
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
#line 27667 "qb64pe.bas"
if(qbevent){evnt(27667);if(r)goto S_35904;}
#line 27667 "qb64pe.bas"
do{
#line 27667 "qb64pe.bas"
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
#line 27667 "qb64pe.bas"
if(!qbevent)break;evnt(27667);}while(r);
#line 27667 "qb64pe.bas"
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
#line 27667 "qb64pe.bas"
if(!qbevent)break;evnt(27667);}while(r);
#line 27667 "qb64pe.bas"
}
#line 27668 "qb64pe.bas"
do{
#line 27668 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+(0)),(((char*)__UDT_EMPTY_LABEL)+((0+0))+(0)),282);
#line 27668 "qb64pe.bas"
if(!qbevent)break;evnt(27668);}while(r);
#line 27669 "qb64pe.bas"
do{
#line 27669 "qb64pe.bas"
SUB_HASHADD(_SUB_XONGOTOGOSUB_STRING_E,&(pass3360= 2ll ),__LONG_NLABELS);
#line 27669 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27669 "qb64pe.bas"
if(!qbevent)break;evnt(27669);}while(r);
#line 27670 "qb64pe.bas"
do{
#line 27670 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_R=*__LONG_NLABELS;
#line 27670 "qb64pe.bas"
if(!qbevent)break;evnt(27670);}while(r);
#line 27671 "qb64pe.bas"
do{
#line 27671 "qb64pe.bas"
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
#line 27671 "qb64pe.bas"
if(!qbevent)break;evnt(27671);}while(r);
#line 27672 "qb64pe.bas"
do{
#line 27672 "qb64pe.bas"
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
#line 27672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27672 "qb64pe.bas"
if(!qbevent)break;evnt(27672);}while(r);
#line 27673 "qb64pe.bas"
do{
#line 27673 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
#line 27673 "qb64pe.bas"
if(!qbevent)break;evnt(27673);}while(r);
#line 27674 "qb64pe.bas"
do{
#line 27674 "qb64pe.bas"
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
#line 27674 "qb64pe.bas"
if(!qbevent)break;evnt(27674);}while(r);
#line 27675 "qb64pe.bas"
}
#line 27677 "qb64pe.bas"
do{
#line 27677 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
#line 27677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27677 "qb64pe.bas"
if(!qbevent)break;evnt(27677);}while(r);
#line 27678 "qb64pe.bas"
S_35917:;
#line 27678 "qb64pe.bas"
if ((*_SUB_XONGOTOGOSUB_LONG_G)||is_error_pending()){
#line 27678 "qb64pe.bas"
if(qbevent){evnt(27678);if(r)goto S_35917;}
#line 27679 "qb64pe.bas"
do{
#line 27679 "qb64pe.bas"
qbs_set(_SUB_XONGOTOGOSUB_STRING_LB,_SUB_XONGOTOGOSUB_STRING_E);
#line 27679 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27679 "qb64pe.bas"
if(!qbevent)break;evnt(27679);}while(r);
#line 27680 "qb64pe.bas"
do{
#line 27680 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),qbs__tostr((int32)(*_SUB_XONGOTOGOSUB_LONG_LN),NULL,0)),qbs_new_txt_len("){",2)));
#line 27680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27680 "qb64pe.bas"
if(!qbevent)break;evnt(27680);}while(r);
#line 27683 "qb64pe.bas"
do{
#line 27683 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(";",1)));
#line 27683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27683 "qb64pe.bas"
if(!qbevent)break;evnt(27683);}while(r);
#line 27684 "qb64pe.bas"
do{
#line 27684 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
#line 27684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27684 "qb64pe.bas"
if(!qbevent)break;evnt(27684);}while(r);
#line 27685 "qb64pe.bas"
do{
#line 27685 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1)));
#line 27685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27685 "qb64pe.bas"
if(!qbevent)break;evnt(27685);}while(r);
#line 27687 "qb64pe.bas"
do{
#line 27687 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass3361=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(":",1)));
#line 27687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27687 "qb64pe.bas"
if(!qbevent)break;evnt(27687);}while(r);
#line 27688 "qb64pe.bas"
do{
#line 27688 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass3362=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(";",1)));
#line 27688 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27688 "qb64pe.bas"
if(!qbevent)break;evnt(27688);}while(r);
#line 27689 "qb64pe.bas"
do{
#line 27689 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass3363=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
#line 27689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27689 "qb64pe.bas"
if(!qbevent)break;evnt(27689);}while(r);
#line 27690 "qb64pe.bas"
do{
#line 27690 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(":;",2)));
#line 27690 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27690 "qb64pe.bas"
if(!qbevent)break;evnt(27690);}while(r);
#line 27691 "qb64pe.bas"
do{
#line 27691 "qb64pe.bas"
*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ;
#line 27691 "qb64pe.bas"
if(!qbevent)break;evnt(27691);}while(r);
#line 27692 "qb64pe.bas"
do{
#line 27692 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6)));
#line 27692 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27692 "qb64pe.bas"
if(!qbevent)break;evnt(27692);}while(r);
#line 27693 "qb64pe.bas"
do{
#line 27693 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 27693 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27693 "qb64pe.bas"
if(!qbevent)break;evnt(27693);}while(r);
#line 27694 "qb64pe.bas"
}else{
#line 27695 "qb64pe.bas"
do{
#line 27695 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),qbs__tostr((int32)(*_SUB_XONGOTOGOSUB_LONG_LN),NULL,0)),qbs_new_txt_len(") goto LABEL_",13)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)));
#line 27695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27695 "qb64pe.bas"
if(!qbevent)break;evnt(27695);}while(r);
#line 27696 "qb64pe.bas"
}
#line 27697 "qb64pe.bas"
do{
#line 27697 "qb64pe.bas"
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ;
#line 27697 "qb64pe.bas"
if(!qbevent)break;evnt(27697);}while(r);
#line 27698 "qb64pe.bas"
}
#line 27699 "qb64pe.bas"
fornext_continue_3357:;
#line 27699 "qb64pe.bas"
}
#line 27699 "qb64pe.bas"
fornext_exit_3357:;
#line 27700 "qb64pe.bas"
do{
#line 27700 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13)));
#line 27700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27700 "qb64pe.bas"
if(!qbevent)break;evnt(27700);}while(r);
#line 27701 "qb64pe.bas"
S_35937:;
#line 27701 "qb64pe.bas"
if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||is_error_pending()){
#line 27701 "qb64pe.bas"
if(qbevent){evnt(27701);if(r)goto S_35937;}
#line 27701 "qb64pe.bas"
do{
#line 27701 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7)));
#line 27701 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27701 "qb64pe.bas"
if(!qbevent)break;evnt(27701);}while(r);
#line 27701 "qb64pe.bas"
}
#line 27702 "qb64pe.bas"
do{
#line 27702 "qb64pe.bas"
*__LONG_LAYOUTDONE= 1 ;
#line 27702 "qb64pe.bas"
if(!qbevent)break;evnt(27702);}while(r);
#line 27702 "qb64pe.bas"
S_35941:;
#line 27702 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
#line 27702 "qb64pe.bas"
if(qbevent){evnt(27702);if(r)goto S_35941;}
#line 27702 "qb64pe.bas"
do{
#line 27702 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L));
#line 27702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27702 "qb64pe.bas"
if(!qbevent)break;evnt(27702);}while(r);
#line 27702 "qb64pe.bas"
}else{
#line 27702 "qb64pe.bas"
do{
#line 27702 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L);
#line 27702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27702 "qb64pe.bas"
if(!qbevent)break;evnt(27702);}while(r);
#line 27702 "qb64pe.bas"
}
#line 27703 "qb64pe.bas"
exit_subfunc:;
#line 27703 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 27703 "qb64pe.bas"
#include "free94.txt"
#line 27703 "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 27703 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 27703 "qb64pe.bas"
}
