void SUB_ASSIGN(qbs*_SUB_ASSIGN_STRING_A,int32*_SUB_ASSIGN_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 "data11.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
S_16773:;
fornext_value2449= 1 ;
fornext_finalvalue2449=*_SUB_ASSIGN_LONG_N;
fornext_step2449= 1 ;
if (fornext_step2449<0) fornext_step_negative2449=1; else fornext_step_negative2449=0;
if (is_error_pending()) goto fornext_error2449;
goto fornext_entrylabel2449;
while(1){
fornext_value2449=fornext_step2449+(*_SUB_ASSIGN_LONG_I);
fornext_entrylabel2449:
*_SUB_ASSIGN_LONG_I=fornext_value2449;
if (fornext_step_negative2449){
if (fornext_value2449<fornext_finalvalue2449) break;
}else{
if (fornext_value2449>fornext_finalvalue2449) break;
}
fornext_error2449:;
if(qbevent){evnt(14253);if(r)goto S_16773;}
do{
*_SUB_ASSIGN_LONG_C=qbs_asc(FUNC_GETELEMENT(_SUB_ASSIGN_STRING_A,_SUB_ASSIGN_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14254);}while(r);
S_16775:;
if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||is_error_pending()){
if(qbevent){evnt(14255);if(r)goto S_16775;}
do{
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ;
if(!qbevent)break;evnt(14255);}while(r);
}
S_16778:;
if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||is_error_pending()){
if(qbevent){evnt(14256);if(r)goto S_16778;}
do{
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ;
if(!qbevent)break;evnt(14256);}while(r);
}
S_16781:;
if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(14257);if(r)goto S_16781;}
S_16782:;
if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(14258);if(r)goto S_16782;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14258);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14258);}while(r);
}
S_16786:;
if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||is_error_pending()){
if(qbevent){evnt(14259);if(r)goto S_16786;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14259);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14259);}while(r);
}
do{
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2450= 1 ),&(pass2451=*_SUB_ASSIGN_LONG_I- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14261);}while(r);
S_16791:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14262);if(r)goto S_16791;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14262);}while(r);
}
do{
qbs_set(_SUB_ASSIGN_STRING_L,qbs_add(qbs_add(qbs_add(__STRING_TLAYOUT,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14263);}while(r);
S_16795:;
if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||is_error_pending()){
if(qbevent){evnt(14266);if(r)goto S_16795;}
do{
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14267);}while(r);
S_16797:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14268);if(r)goto S_16797;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14268);}while(r);
}
S_16800:;
while((*_SUB_ASSIGN_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(14269);if(r)goto S_16800;}
S_16801:;
if ((*(int32*)(((char*)__UDT_ID)+(536)))||is_error_pending()){
if(qbevent){evnt(14270);if(r)goto S_16801;}
S_16802:;
if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))||is_error_pending()){
if(qbevent){evnt(14271);if(r)goto S_16802;}
S_16803:;
if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(14272);if(r)goto S_16803;}
do{
SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14273);}while(r);
do{
goto LABEL_ASSIGNSIMPLEVARIABLE;
if(!qbevent)break;evnt(14274);}while(r);
}
}
}
S_16809:;
if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(14278);if(r)goto S_16809;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(14278);}while(r);
do{
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14278);}while(r);
}else{
do{
*_SUB_ASSIGN_LONG_TRY= 0 ;
if(!qbevent)break;evnt(14278);}while(r);
}
S_16815:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14279);if(r)goto S_16815;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14279);}while(r);
}
dl_continue_2452:;
}
dl_exit_2452:;
}
do{
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_EVALUATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14283);}while(r);
S_16821:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14283);if(r)goto S_16821;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14283);}while(r);
}
LABEL_ASSIGNSIMPLEVARIABLE:;
if(qbevent){evnt(14284);r=0;}
S_16824:;
if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(14285);if(r)goto S_16824;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =, look for conflict with a CONST name",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14285);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14285);}while(r);
}
do{
SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2453=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2454= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14286);}while(r);
S_16829:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14287);if(r)goto S_16829;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14287);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14288);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14290);}while(r);
}
fornext_continue_2448:;
}
fornext_exit_2448:;
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14294);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14294);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free11.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;
}
