void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_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 "data82.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
S_35213:;
if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(26997);if(r)goto S_35213;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26997);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(26997);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26998);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_B= 0 ;
if(!qbevent)break;evnt(26999);}while(r);
S_35219:;
fornext_value4079= 2 ;
fornext_finalvalue4079=*_SUB_XONGOTOGOSUB_LONG_N;
fornext_step4079= 1 ;
if (fornext_step4079<0) fornext_step_negative4079=1; else fornext_step_negative4079=0;
if (is_error_pending()) goto fornext_error4079;
goto fornext_entrylabel4079;
while(1){
fornext_value4079=fornext_step4079+(*_SUB_XONGOTOGOSUB_LONG_I);
fornext_entrylabel4079:
*_SUB_XONGOTOGOSUB_LONG_I=fornext_value4079;
if (fornext_step_negative4079){
if (fornext_value4079<fornext_finalvalue4079) break;
}else{
if (fornext_value4079>fornext_finalvalue4079) break;
}
fornext_error4079:;
if(qbevent){evnt(27000);if(r)goto S_35219;}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27001);}while(r);
S_35221:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(27002);if(r)goto S_35221;}
do{
*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ;
if(!qbevent)break;evnt(27002);}while(r);
}
S_35224:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(27003);if(r)goto S_35224;}
do{
*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ;
if(!qbevent)break;evnt(27003);}while(r);
}
S_35227:;
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()){
if(qbevent){evnt(27004);if(r)goto S_35227;}
do{
goto fornext_exit_4078;
if(!qbevent)break;evnt(27004);}while(r);
}
fornext_continue_4078:;
}
fornext_exit_4078:;
S_35231:;
if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||is_error_pending()){
if(qbevent){evnt(27006);if(r)goto S_35231;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27006);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27006);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass4080= 2 ),&(pass4081=*_SUB_XONGOTOGOSUB_LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27007);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_G= 0 ;
if(!qbevent)break;evnt(27009);}while(r);
S_35237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(27009);if(r)goto S_35237;}
do{
*_SUB_XONGOTOGOSUB_LONG_G= 1 ;
if(!qbevent)break;evnt(27009);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27010);}while(r);
S_35241:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27011);if(r)goto S_35241;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27011);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27012);}while(r);
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27013);}while(r);
S_35246:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27014);if(r)goto S_35246;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27014);}while(r);
}
S_35249:;
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(27015);if(r)goto S_35249;}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass4082= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27015);}while(r);
}
S_35252:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(27016);if(r)goto S_35252;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27016);}while(r);
}
S_35255:;
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(27017);if(r)goto S_35255;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27017);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27017);}while(r);
}
S_35259:;
if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(27018);if(r)goto S_35259;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27019);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27021);}while(r);
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27022);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4083=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27023);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4084=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27024);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_LN= 1 ;
if(!qbevent)break;evnt(27025);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ;
if(!qbevent)break;evnt(27026);}while(r);
S_35268:;
fornext_value4086=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ;
fornext_finalvalue4086=*_SUB_XONGOTOGOSUB_LONG_N;
fornext_step4086= 1 ;
if (fornext_step4086<0) fornext_step_negative4086=1; else fornext_step_negative4086=0;
if (is_error_pending()) goto fornext_error4086;
goto fornext_entrylabel4086;
while(1){
fornext_value4086=fornext_step4086+(*_SUB_XONGOTOGOSUB_LONG_I);
fornext_entrylabel4086:
*_SUB_XONGOTOGOSUB_LONG_I=fornext_value4086;
if (fornext_step_negative4086){
if (fornext_value4086<fornext_finalvalue4086) break;
}else{
if (fornext_value4086>fornext_finalvalue4086) break;
}
fornext_error4086:;
if(qbevent){evnt(27027);if(r)goto S_35268;}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27028);}while(r);
S_35270:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(27029);if(r)goto S_35270;}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27030);}while(r);
S_35272:;
if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||is_error_pending()){
if(qbevent){evnt(27031);if(r)goto S_35272;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27031);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27031);}while(r);
}
do{
*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ;
if(!qbevent)break;evnt(27032);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ;
if(!qbevent)break;evnt(27033);}while(r);
}else{
S_35279:;
if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||is_error_pending()){
if(qbevent){evnt(27035);if(r)goto S_35279;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27035);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27035);}while(r);
}
S_35283:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||is_error_pending()){
if(qbevent){evnt(27036);if(r)goto S_35283;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27036);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(27036);}while(r);
}
do{
*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass4087= 2ll ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27038);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_X= 1 ;
if(!qbevent)break;evnt(27039);}while(r);
LABEL_LABCHK507:;
if(qbevent){evnt(27040);r=0;}
S_35289:;
if ((*_SUB_XONGOTOGOSUB_LONG_V)||is_error_pending()){
if(qbevent){evnt(27041);if(r)goto S_35289;}
do{
*_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)));
if(!qbevent)break;evnt(27042);}while(r);
S_35291:;
if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(27043);if(r)goto S_35291;}
S_35292:;
if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(27044);if(r)goto S_35292;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(27044);}while(r);
}
do{
*_SUB_XONGOTOGOSUB_LONG_X= 0 ;
if(!qbevent)break;evnt(27045);}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27046);}while(r);
}else{
S_35298:;
if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(27048);if(r)goto S_35298;}
do{
*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R);
if(!qbevent)break;evnt(27048);}while(r);
do{
goto LABEL_LABCHK507;
if(!qbevent)break;evnt(27048);}while(r);
}
}
}
S_35304:;
if ((*_SUB_XONGOTOGOSUB_LONG_X)||is_error_pending()){
if(qbevent){evnt(27051);if(r)goto S_35304;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(27053);}while(r);
S_35306:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(27053);if(r)goto S_35306;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(27053);}while(r);
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];
}
if(!qbevent)break;evnt(27053);}while(r);
}
do{
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);
if(!qbevent)break;evnt(27054);}while(r);
do{
SUB_HASHADD(_SUB_XONGOTOGOSUB_STRING_E,&(pass4088= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27055);}while(r);
do{
*_SUB_XONGOTOGOSUB_LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(27056);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(27057);}while(r);
do{
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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27058);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(27059);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(27060);}while(r);
}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27063);}while(r);
S_35319:;
if ((*_SUB_XONGOTOGOSUB_LONG_G)||is_error_pending()){
if(qbevent){evnt(27064);if(r)goto S_35319;}
do{
qbs_set(_SUB_XONGOTOGOSUB_STRING_LB,_SUB_XONGOTOGOSUB_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27065);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4089=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27066);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4090=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27069);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4091=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27070);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4092=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27071);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4093=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27073);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4094=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27074);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4095=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27075);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4096=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),qbs__tostr((int32)(*__LONG_GOSUBID),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27076);}while(r);
do{
*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ;
if(!qbevent)break;evnt(27077);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4097=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27078);}while(r);
do{
SUB_WRITEBUFLINE(&(pass4098=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27079);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass4099=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27081);}while(r);
}
do{
*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ;
if(!qbevent)break;evnt(27083);}while(r);
}
fornext_continue_4085:;
}
fornext_exit_4085:;
do{
SUB_WRITEBUFLINE(&(pass4100=*__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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27086);}while(r);
S_35339:;
if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||is_error_pending()){
if(qbevent){evnt(27087);if(r)goto S_35339;}
do{
SUB_WRITEBUFLINE(&(pass4101=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27087);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(27088);}while(r);
S_35343:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(27088);if(r)goto S_35343;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27088);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(27088);}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free82.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;
}
