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 "data17.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_17639:;
fornext_value2581= 1 ;
fornext_finalvalue2581=*_SUB_ASSIGN_LONG_N;
fornext_step2581= 1 ;
if (fornext_step2581<0) fornext_step_negative2581=1; else fornext_step_negative2581=0;
if (is_error_pending()) goto fornext_error2581;
goto fornext_entrylabel2581;
while(1){
fornext_value2581=fornext_step2581+(*_SUB_ASSIGN_LONG_I);
fornext_entrylabel2581:
*_SUB_ASSIGN_LONG_I=fornext_value2581;
if (fornext_step_negative2581){
if (fornext_value2581<fornext_finalvalue2581) break;
}else{
if (fornext_value2581>fornext_finalvalue2581) break;
}
fornext_error2581:;
if(qbevent){evnt(15192);if(r)goto S_17639;}
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(15193);}while(r);
S_17641:;
if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||is_error_pending()){
if(qbevent){evnt(15194);if(r)goto S_17641;}
do{
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ;
if(!qbevent)break;evnt(15194);}while(r);
}
S_17644:;
if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||is_error_pending()){
if(qbevent){evnt(15195);if(r)goto S_17644;}
do{
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ;
if(!qbevent)break;evnt(15195);}while(r);
}
S_17647:;
if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(15196);if(r)goto S_17647;}
S_17648:;
if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(15197);if(r)goto S_17648;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15197);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15197);}while(r);
}
S_17652:;
if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||is_error_pending()){
if(qbevent){evnt(15198);if(r)goto S_17652;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15198);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15198);}while(r);
}
do{
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2582= 1 ),&(pass2583=*_SUB_ASSIGN_LONG_I- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15200);}while(r);
S_17657:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15201);if(r)goto S_17657;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15201);}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(15202);}while(r);
S_17661:;
if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||is_error_pending()){
if(qbevent){evnt(15205);if(r)goto S_17661;}
do{
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15206);}while(r);
S_17663:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15207);if(r)goto S_17663;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15207);}while(r);
}
S_17666:;
while((*_SUB_ASSIGN_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15208);if(r)goto S_17666;}
S_17667:;
if ((*(int32*)(((char*)__UDT_ID)+((0+536))))||is_error_pending()){
if(qbevent){evnt(15209);if(r)goto S_17667;}
S_17668:;
if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2641)))))||is_error_pending()){
if(qbevent){evnt(15210);if(r)goto S_17668;}
S_17669:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(15211);if(r)goto S_17669;}
do{
SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15212);}while(r);
do{
goto LABEL_ASSIGNSIMPLEVARIABLE;
if(!qbevent)break;evnt(15213);}while(r);
}
}
}
S_17675:;
if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15217);if(r)goto S_17675;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15217);}while(r);
do{
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15217);}while(r);
}else{
do{
*_SUB_ASSIGN_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15217);}while(r);
}
S_17681:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15218);if(r)goto S_17681;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15218);}while(r);
}
dl_continue_2584:;
}
dl_exit_2584:;
}
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(15222);}while(r);
S_17687:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15222);if(r)goto S_17687;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15222);}while(r);
}
LABEL_ASSIGNSIMPLEVARIABLE:;
if(qbevent){evnt(15223);r=0;}
S_17690:;
if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(15224);if(r)goto S_17690;}
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(15224);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15224);}while(r);
}
do{
SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2585=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2586= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15225);}while(r);
S_17695:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15226);if(r)goto S_17695;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15226);}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(15227);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15229);}while(r);
}
fornext_continue_2580:;
}
fornext_exit_2580:;
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15233);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15233);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free17.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;
}
