#line 137 "utilities/arrcpy.bm"
void SUB_PARSEARRAYCOPYREF(qbs*_SUB_PARSEARRAYCOPYREF_STRING_EXPR,int32*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND,qbs*_SUB_PARSEARRAYCOPYREF_STRING_ARR_REF,qbs*_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,qbs*_SUB_PARSEARRAYCOPYREF_STRING_SECOND_EXPR,int32*_SUB_PARSEARRAYCOPYREF_LONG_REF_OK){
#line 137 "utilities/arrcpy.bm"
qbs *tqbs;
#line 137 "utilities/arrcpy.bm"
ptrszint tmp_long;
#line 137 "utilities/arrcpy.bm"
int32 tmp_fileno;
#line 137 "utilities/arrcpy.bm"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 137 "utilities/arrcpy.bm"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 137 "utilities/arrcpy.bm"
uint32 tmp_cmem_sp=cmem_sp;
#line 137 "utilities/arrcpy.bm"
#include "data120.txt"
#line 137 "utilities/arrcpy.bm"
mem_lock *sf_mem_lock;
#line 137 "utilities/arrcpy.bm"
new_mem_lock();
#line 137 "utilities/arrcpy.bm"
sf_mem_lock=mem_lock_tmp;
#line 137 "utilities/arrcpy.bm"
sf_mem_lock->type=3;
#line 137 "utilities/arrcpy.bm"
libqb_check_stack();
#line 137 "utilities/arrcpy.bm"
if (is_error_pending()) goto exit_subfunc;
#line 138 "utilities/arrcpy.bm"
do{
#line 138 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,138,"arrcpy.bm");}while(r);
#line 139 "utilities/arrcpy.bm"
do{
#line 139 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,139,"arrcpy.bm");}while(r);
#line 141 "utilities/arrcpy.bm"
do{
#line 141 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_ARR_REF,qbs_new_txt_len("",0));
#line 141 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 141 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,141,"arrcpy.bm");}while(r);
#line 142 "utilities/arrcpy.bm"
do{
#line 142 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,qbs_new_txt_len("",0));
#line 142 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 142 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,142,"arrcpy.bm");}while(r);
#line 143 "utilities/arrcpy.bm"
do{
#line 143 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_SECOND_EXPR,qbs_new_txt_len("",0));
#line 143 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 143 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,143,"arrcpy.bm");}while(r);
#line 144 "utilities/arrcpy.bm"
do{
#line 144 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_REF_OK= 0 ;
#line 144 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,144,"arrcpy.bm");}while(r);
#line 146 "utilities/arrcpy.bm"
do{
#line 146 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT=FUNC_NUMELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR);
#line 146 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 146 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,146,"arrcpy.bm");}while(r);
#line 147 "utilities/arrcpy.bm"
S_37389:;
#line 147 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT< 3 ))||is_error_pending()){
#line 147 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,147,"arrcpy.bm");if(r)goto S_37389;}
#line 147 "utilities/arrcpy.bm"
do{
#line 147 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 147 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,147,"arrcpy.bm");}while(r);
#line 147 "utilities/arrcpy.bm"
}
#line 148 "utilities/arrcpy.bm"
S_37392:;
#line 148 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT),qbs_new_txt_len(")",1))))||is_error_pending()){
#line 148 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,148,"arrcpy.bm");if(r)goto S_37392;}
#line 148 "utilities/arrcpy.bm"
do{
#line 148 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 148 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,148,"arrcpy.bm");}while(r);
#line 148 "utilities/arrcpy.bm"
}
#line 152 "utilities/arrcpy.bm"
do{
#line 152 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT= 1 ;
#line 152 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,152,"arrcpy.bm");}while(r);
#line 153 "utilities/arrcpy.bm"
do{
#line 153 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT= 0 ;
#line 153 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,153,"arrcpy.bm");}while(r);
#line 154 "utilities/arrcpy.bm"
S_37397:;
#line 154 "utilities/arrcpy.bm"
fornext_value3571=*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 ;
#line 154 "utilities/arrcpy.bm"
fornext_finalvalue3571= 1 ;
#line 154 "utilities/arrcpy.bm"
fornext_step3571= -1 ;
#line 154 "utilities/arrcpy.bm"
if (fornext_step3571<0) fornext_step_negative3571=1; else fornext_step_negative3571=0;
#line 154 "utilities/arrcpy.bm"
if (is_error_pending()) goto fornext_error3571;
#line 154 "utilities/arrcpy.bm"
goto fornext_entrylabel3571;
#line 154 "utilities/arrcpy.bm"
while(1){
#line 154 "utilities/arrcpy.bm"
fornext_value3571=fornext_step3571+(*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT);
#line 154 "utilities/arrcpy.bm"
fornext_entrylabel3571:
#line 154 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT=fornext_value3571;
#line 154 "utilities/arrcpy.bm"
if (fornext_step_negative3571){
#line 154 "utilities/arrcpy.bm"
if (fornext_value3571<fornext_finalvalue3571) break;
#line 154 "utilities/arrcpy.bm"
}else{
#line 154 "utilities/arrcpy.bm"
if (fornext_value3571>fornext_finalvalue3571) break;
#line 154 "utilities/arrcpy.bm"
}
#line 154 "utilities/arrcpy.bm"
fornext_error3571:;
#line 154 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,154,"arrcpy.bm");if(r)goto S_37397;}
#line 155 "utilities/arrcpy.bm"
do{
#line 155 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,FUNC_GETELEMENT(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT));
#line 155 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 155 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,155,"arrcpy.bm");}while(r);
#line 156 "utilities/arrcpy.bm"
S_37399:;
#line 156 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 156 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,156,"arrcpy.bm");if(r)goto S_37399;}
#line 157 "utilities/arrcpy.bm"
do{
#line 157 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT=*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT+ 1 ;
#line 157 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,157,"arrcpy.bm");}while(r);
#line 158 "utilities/arrcpy.bm"
S_37401:;
#line 158 "utilities/arrcpy.bm"
}else{
#line 158 "utilities/arrcpy.bm"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len("(",1)))){
#line 158 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,158,"arrcpy.bm");if(r)goto S_37401;}
#line 159 "utilities/arrcpy.bm"
do{
#line 159 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT=*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT- 1 ;
#line 159 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,159,"arrcpy.bm");}while(r);
#line 160 "utilities/arrcpy.bm"
S_37403:;
#line 160 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT== 0 ))||is_error_pending()){
#line 160 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,160,"arrcpy.bm");if(r)goto S_37403;}
#line 160 "utilities/arrcpy.bm"
do{
#line 160 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT=*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT;
#line 160 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,160,"arrcpy.bm");}while(r);
#line 160 "utilities/arrcpy.bm"
do{
#line 160 "utilities/arrcpy.bm"
goto fornext_exit_3570;
#line 160 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,160,"arrcpy.bm");}while(r);
#line 160 "utilities/arrcpy.bm"
}
#line 161 "utilities/arrcpy.bm"
}
#line 161 "utilities/arrcpy.bm"
}
#line 162 "utilities/arrcpy.bm"
fornext_continue_3570:;
#line 162 "utilities/arrcpy.bm"
}
#line 162 "utilities/arrcpy.bm"
fornext_exit_3570:;
#line 163 "utilities/arrcpy.bm"
S_37409:;
#line 163 "utilities/arrcpy.bm"
if (((-(*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT<= 1 ))|(-(*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT!= 0 )))||is_error_pending()){
#line 163 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,163,"arrcpy.bm");if(r)goto S_37409;}
#line 163 "utilities/arrcpy.bm"
do{
#line 163 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 163 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,163,"arrcpy.bm");}while(r);
#line 163 "utilities/arrcpy.bm"
}
#line 165 "utilities/arrcpy.bm"
do{
#line 165 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_WHOLE_REF,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,&(pass3572= 1 ),&(pass3573=*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT- 1 )),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 165 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 165 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,165,"arrcpy.bm");}while(r);
#line 166 "utilities/arrcpy.bm"
do{
#line 166 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_ARR_REF,_SUB_PARSEARRAYCOPYREF_STRING_WHOLE_REF);
#line 166 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 166 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,166,"arrcpy.bm");}while(r);
#line 168 "utilities/arrcpy.bm"
S_37414:;
#line 168 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 1 ))||is_error_pending()){
#line 168 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,168,"arrcpy.bm");if(r)goto S_37414;}
#line 169 "utilities/arrcpy.bm"
S_37415:;
#line 169 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT!=(*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 )))||is_error_pending()){
#line 169 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,169,"arrcpy.bm");if(r)goto S_37415;}
#line 169 "utilities/arrcpy.bm"
do{
#line 169 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 169 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,169,"arrcpy.bm");}while(r);
#line 169 "utilities/arrcpy.bm"
}
#line 170 "utilities/arrcpy.bm"
do{
#line 170 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_REF_OK= -1 ;
#line 170 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,170,"arrcpy.bm");}while(r);
#line 171 "utilities/arrcpy.bm"
do{
#line 171 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 171 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,171,"arrcpy.bm");}while(r);
#line 172 "utilities/arrcpy.bm"
}
#line 174 "utilities/arrcpy.bm"
S_37421:;
#line 174 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT>=(*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 )))||is_error_pending()){
#line 174 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,174,"arrcpy.bm");if(r)goto S_37421;}
#line 174 "utilities/arrcpy.bm"
do{
#line 174 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 174 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,174,"arrcpy.bm");}while(r);
#line 174 "utilities/arrcpy.bm"
}
#line 176 "utilities/arrcpy.bm"
do{
#line 176 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT= 0 ;
#line 176 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,176,"arrcpy.bm");}while(r);
#line 177 "utilities/arrcpy.bm"
do{
#line 177 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT= 0 ;
#line 177 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,177,"arrcpy.bm");}while(r);
#line 178 "utilities/arrcpy.bm"
S_37426:;
#line 178 "utilities/arrcpy.bm"
fornext_value3575=*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT+ 1 ;
#line 178 "utilities/arrcpy.bm"
fornext_finalvalue3575=*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 ;
#line 178 "utilities/arrcpy.bm"
fornext_step3575= 1 ;
#line 178 "utilities/arrcpy.bm"
if (fornext_step3575<0) fornext_step_negative3575=1; else fornext_step_negative3575=0;
#line 178 "utilities/arrcpy.bm"
if (is_error_pending()) goto fornext_error3575;
#line 178 "utilities/arrcpy.bm"
goto fornext_entrylabel3575;
#line 178 "utilities/arrcpy.bm"
while(1){
#line 178 "utilities/arrcpy.bm"
fornext_value3575=fornext_step3575+(*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT);
#line 178 "utilities/arrcpy.bm"
fornext_entrylabel3575:
#line 178 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT=fornext_value3575;
#line 178 "utilities/arrcpy.bm"
if (fornext_step_negative3575){
#line 178 "utilities/arrcpy.bm"
if (fornext_value3575<fornext_finalvalue3575) break;
#line 178 "utilities/arrcpy.bm"
}else{
#line 178 "utilities/arrcpy.bm"
if (fornext_value3575>fornext_finalvalue3575) break;
#line 178 "utilities/arrcpy.bm"
}
#line 178 "utilities/arrcpy.bm"
fornext_error3575:;
#line 178 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,178,"arrcpy.bm");if(r)goto S_37426;}
#line 179 "utilities/arrcpy.bm"
do{
#line 179 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_ucase(FUNC_GETELEMENT(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT)));
#line 179 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 179 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,179,"arrcpy.bm");}while(r);
#line 180 "utilities/arrcpy.bm"
S_37428:;
#line 180 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 180 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,180,"arrcpy.bm");if(r)goto S_37428;}
#line 181 "utilities/arrcpy.bm"
do{
#line 181 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT=*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT+ 1 ;
#line 181 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,181,"arrcpy.bm");}while(r);
#line 182 "utilities/arrcpy.bm"
S_37430:;
#line 182 "utilities/arrcpy.bm"
}else{
#line 182 "utilities/arrcpy.bm"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len(")",1)))){
#line 182 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,182,"arrcpy.bm");if(r)goto S_37430;}
#line 183 "utilities/arrcpy.bm"
do{
#line 183 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT=*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT- 1 ;
#line 183 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,183,"arrcpy.bm");}while(r);
#line 184 "utilities/arrcpy.bm"
S_37432:;
#line 184 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT< 0 ))||is_error_pending()){
#line 184 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,184,"arrcpy.bm");if(r)goto S_37432;}
#line 184 "utilities/arrcpy.bm"
do{
#line 184 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 184 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,184,"arrcpy.bm");}while(r);
#line 184 "utilities/arrcpy.bm"
}
#line 185 "utilities/arrcpy.bm"
S_37435:;
#line 185 "utilities/arrcpy.bm"
}else{
#line 185 "utilities/arrcpy.bm"
if (-(*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT== 0 )){
#line 185 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,185,"arrcpy.bm");if(r)goto S_37435;}
#line 186 "utilities/arrcpy.bm"
S_37436:;
#line 186 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 186 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,186,"arrcpy.bm");if(r)goto S_37436;}
#line 187 "utilities/arrcpy.bm"
S_37437:;
#line 187 "utilities/arrcpy.bm"
if (((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND!= 2 ))&(-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND!= 3 )))||is_error_pending()){
#line 187 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,187,"arrcpy.bm");if(r)goto S_37437;}
#line 187 "utilities/arrcpy.bm"
do{
#line 187 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 187 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,187,"arrcpy.bm");}while(r);
#line 187 "utilities/arrcpy.bm"
}
#line 188 "utilities/arrcpy.bm"
S_37440:;
#line 188 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 3 ))||is_error_pending()){
#line 188 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,188,"arrcpy.bm");if(r)goto S_37440;}
#line 188 "utilities/arrcpy.bm"
do{
#line 188 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_COMMA_COUNT=*_SUB_PARSEARRAYCOPYREF_LONG_COMMA_COUNT+ 1 ;
#line 188 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,188,"arrcpy.bm");}while(r);
#line 188 "utilities/arrcpy.bm"
}
#line 189 "utilities/arrcpy.bm"
S_37443:;
#line 189 "utilities/arrcpy.bm"
}else{
#line 189 "utilities/arrcpy.bm"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_TOKEN_TEXT,qbs_new_txt_len("TO",2)))){
#line 189 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,189,"arrcpy.bm");if(r)goto S_37443;}
#line 190 "utilities/arrcpy.bm"
S_37444:;
#line 190 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 2 ))||is_error_pending()){
#line 190 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,190,"arrcpy.bm");if(r)goto S_37444;}
#line 190 "utilities/arrcpy.bm"
do{
#line 190 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 190 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,190,"arrcpy.bm");}while(r);
#line 190 "utilities/arrcpy.bm"
}
#line 191 "utilities/arrcpy.bm"
S_37447:;
#line 191 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== -1 ))||is_error_pending()){
#line 191 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,191,"arrcpy.bm");if(r)goto S_37447;}
#line 192 "utilities/arrcpy.bm"
S_37448:;
#line 192 "utilities/arrcpy.bm"
if ((*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT)||is_error_pending()){
#line 192 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,192,"arrcpy.bm");if(r)goto S_37448;}
#line 192 "utilities/arrcpy.bm"
do{
#line 192 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 192 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,192,"arrcpy.bm");}while(r);
#line 192 "utilities/arrcpy.bm"
}
#line 193 "utilities/arrcpy.bm"
do{
#line 193 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT=*_SUB_PARSEARRAYCOPYREF_LONG_SCAN_AT;
#line 193 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,193,"arrcpy.bm");}while(r);
#line 194 "utilities/arrcpy.bm"
S_37452:;
#line 194 "utilities/arrcpy.bm"
}else{
#line 194 "utilities/arrcpy.bm"
if (-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND!= 3 )){
#line 194 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,194,"arrcpy.bm");if(r)goto S_37452;}
#line 195 "utilities/arrcpy.bm"
do{
#line 195 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 195 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,195,"arrcpy.bm");}while(r);
#line 196 "utilities/arrcpy.bm"
}
#line 196 "utilities/arrcpy.bm"
}
#line 197 "utilities/arrcpy.bm"
}
#line 197 "utilities/arrcpy.bm"
}
#line 198 "utilities/arrcpy.bm"
}
#line 198 "utilities/arrcpy.bm"
}
#line 198 "utilities/arrcpy.bm"
}
#line 199 "utilities/arrcpy.bm"
fornext_continue_3574:;
#line 199 "utilities/arrcpy.bm"
}
#line 199 "utilities/arrcpy.bm"
fornext_exit_3574:;
#line 200 "utilities/arrcpy.bm"
S_37458:;
#line 200 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_DEPTH_COUNT!= 0 ))||is_error_pending()){
#line 200 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,200,"arrcpy.bm");if(r)goto S_37458;}
#line 200 "utilities/arrcpy.bm"
do{
#line 200 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 200 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,200,"arrcpy.bm");}while(r);
#line 200 "utilities/arrcpy.bm"
}
#line 202 "utilities/arrcpy.bm"
S_37461:;
#line 202 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== -1 ))||is_error_pending()){
#line 202 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,202,"arrcpy.bm");if(r)goto S_37461;}
#line 203 "utilities/arrcpy.bm"
S_37462:;
#line 203 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT== 0 ))||is_error_pending()){
#line 203 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,203,"arrcpy.bm");if(r)goto S_37462;}
#line 203 "utilities/arrcpy.bm"
do{
#line 203 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 203 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,203,"arrcpy.bm");}while(r);
#line 203 "utilities/arrcpy.bm"
}
#line 204 "utilities/arrcpy.bm"
S_37465:;
#line 204 "utilities/arrcpy.bm"
if (((-(*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT==(*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT+ 1 )))|(-(*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT==(*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 ))))||is_error_pending()){
#line 204 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,204,"arrcpy.bm");if(r)goto S_37465;}
#line 204 "utilities/arrcpy.bm"
do{
#line 204 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 204 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,204,"arrcpy.bm");}while(r);
#line 204 "utilities/arrcpy.bm"
}
#line 205 "utilities/arrcpy.bm"
do{
#line 205 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,FUNC_GETELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,&(pass3576=*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT+ 1 ),&(pass3577=*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT- 1 )));
#line 205 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 205 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,205,"arrcpy.bm");}while(r);
#line 206 "utilities/arrcpy.bm"
do{
#line 206 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_SECOND_EXPR,FUNC_GETELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,&(pass3578=*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT+ 1 ),&(pass3579=*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 )));
#line 206 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 206 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,206,"arrcpy.bm");}while(r);
#line 207 "utilities/arrcpy.bm"
S_37470:;
#line 207 "utilities/arrcpy.bm"
}else{
#line 207 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 0 ))|(-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 2 ))){
#line 207 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,207,"arrcpy.bm");if(r)goto S_37470;}
#line 208 "utilities/arrcpy.bm"
S_37471:;
#line 208 "utilities/arrcpy.bm"
if ((*_SUB_PARSEARRAYCOPYREF_LONG_SPLIT_AT)||is_error_pending()){
#line 208 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,208,"arrcpy.bm");if(r)goto S_37471;}
#line 208 "utilities/arrcpy.bm"
do{
#line 208 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 208 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,208,"arrcpy.bm");}while(r);
#line 208 "utilities/arrcpy.bm"
}
#line 209 "utilities/arrcpy.bm"
do{
#line 209 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,FUNC_GETELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,&(pass3580=*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT+ 1 ),&(pass3581=*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 )));
#line 209 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 209 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,209,"arrcpy.bm");}while(r);
#line 210 "utilities/arrcpy.bm"
S_37475:;
#line 210 "utilities/arrcpy.bm"
}else{
#line 210 "utilities/arrcpy.bm"
if (-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== 3 )){
#line 210 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,210,"arrcpy.bm");if(r)goto S_37475;}
#line 211 "utilities/arrcpy.bm"
S_37476:;
#line 211 "utilities/arrcpy.bm"
if ((-(*_SUB_PARSEARRAYCOPYREF_LONG_COMMA_COUNT== 0 ))||is_error_pending()){
#line 211 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,211,"arrcpy.bm");if(r)goto S_37476;}
#line 211 "utilities/arrcpy.bm"
do{
#line 211 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 211 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,211,"arrcpy.bm");}while(r);
#line 211 "utilities/arrcpy.bm"
}
#line 212 "utilities/arrcpy.bm"
do{
#line 212 "utilities/arrcpy.bm"
qbs_set(_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,FUNC_GETELEMENTS(_SUB_PARSEARRAYCOPYREF_STRING_EXPR,&(pass3582=*_SUB_PARSEARRAYCOPYREF_LONG_OPEN_AT+ 1 ),&(pass3583=*_SUB_PARSEARRAYCOPYREF_LONG_TOKEN_COUNT- 1 )));
#line 212 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 212 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,212,"arrcpy.bm");}while(r);
#line 213 "utilities/arrcpy.bm"
}else{
#line 214 "utilities/arrcpy.bm"
do{
#line 214 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 214 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,214,"arrcpy.bm");}while(r);
#line 215 "utilities/arrcpy.bm"
}
#line 215 "utilities/arrcpy.bm"
}
#line 215 "utilities/arrcpy.bm"
}
#line 217 "utilities/arrcpy.bm"
S_37483:;
#line 217 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_FIRST_EXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 217 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,217,"arrcpy.bm");if(r)goto S_37483;}
#line 217 "utilities/arrcpy.bm"
do{
#line 217 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 217 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,217,"arrcpy.bm");}while(r);
#line 217 "utilities/arrcpy.bm"
}
#line 218 "utilities/arrcpy.bm"
S_37486:;
#line 218 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PARSEARRAYCOPYREF_LONG_REF_KIND== -1 ))&(qbs_equal(_SUB_PARSEARRAYCOPYREF_STRING_SECOND_EXPR,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 218 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,218,"arrcpy.bm");if(r)goto S_37486;}
#line 218 "utilities/arrcpy.bm"
do{
#line 218 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 218 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,218,"arrcpy.bm");}while(r);
#line 218 "utilities/arrcpy.bm"
}
#line 219 "utilities/arrcpy.bm"
do{
#line 219 "utilities/arrcpy.bm"
*_SUB_PARSEARRAYCOPYREF_LONG_REF_OK= -1 ;
#line 219 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,219,"arrcpy.bm");}while(r);
#line 220 "utilities/arrcpy.bm"
exit_subfunc:;
#line 220 "utilities/arrcpy.bm"
free_mem_lock(sf_mem_lock);
#line 220 "utilities/arrcpy.bm"
#include "free120.txt"
#line 220 "utilities/arrcpy.bm"
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 220 "utilities/arrcpy.bm"
cmem_sp=tmp_cmem_sp;
#line 220 "utilities/arrcpy.bm"
}
