#line 17343 "qb64pe.bas"
void SUB_ASSIGN(qbs*_SUB_ASSIGN_STRING_A,int32*_SUB_ASSIGN_LONG_N){
#line 17343 "qb64pe.bas"
qbs *tqbs;
#line 17343 "qb64pe.bas"
ptrszint tmp_long;
#line 17343 "qb64pe.bas"
int32 tmp_fileno;
#line 17343 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 17343 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 17343 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 17343 "qb64pe.bas"
#include "data50.txt"
#line 17343 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 17343 "qb64pe.bas"
new_mem_lock();
#line 17343 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 17343 "qb64pe.bas"
sf_mem_lock->type=3;
#line 17343 "qb64pe.bas"
libqb_check_stack();
#line 17343 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 17344 "qb64pe.bas"
do{
#line 17344 "qb64pe.bas"
if(!qbevent)break;evnt(17344);}while(r);
#line 17345 "qb64pe.bas"
do{
#line 17345 "qb64pe.bas"
if(!qbevent)break;evnt(17345);}while(r);
#line 17346 "qb64pe.bas"
do{
#line 17346 "qb64pe.bas"
if(!qbevent)break;evnt(17346);}while(r);
#line 17347 "qb64pe.bas"
do{
#line 17347 "qb64pe.bas"
if(!qbevent)break;evnt(17347);}while(r);
#line 17348 "qb64pe.bas"
do{
#line 17348 "qb64pe.bas"
if(!qbevent)break;evnt(17348);}while(r);
#line 17349 "qb64pe.bas"
do{
#line 17349 "qb64pe.bas"
if(!qbevent)break;evnt(17349);}while(r);
#line 17350 "qb64pe.bas"
do{
#line 17350 "qb64pe.bas"
if(!qbevent)break;evnt(17350);}while(r);
#line 17351 "qb64pe.bas"
do{
#line 17351 "qb64pe.bas"
if(!qbevent)break;evnt(17351);}while(r);
#line 17352 "qb64pe.bas"
do{
#line 17352 "qb64pe.bas"
if(!qbevent)break;evnt(17352);}while(r);
#line 17353 "qb64pe.bas"
do{
#line 17353 "qb64pe.bas"
if(!qbevent)break;evnt(17353);}while(r);
#line 17354 "qb64pe.bas"
do{
#line 17354 "qb64pe.bas"
if(!qbevent)break;evnt(17354);}while(r);
#line 17355 "qb64pe.bas"
do{
#line 17355 "qb64pe.bas"
if(!qbevent)break;evnt(17355);}while(r);
#line 17356 "qb64pe.bas"
do{
#line 17356 "qb64pe.bas"
if(!qbevent)break;evnt(17356);}while(r);
#line 17357 "qb64pe.bas"
do{
#line 17357 "qb64pe.bas"
if(!qbevent)break;evnt(17357);}while(r);
#line 17358 "qb64pe.bas"
do{
#line 17358 "qb64pe.bas"
if(!qbevent)break;evnt(17358);}while(r);
#line 17359 "qb64pe.bas"
do{
#line 17359 "qb64pe.bas"
if(!qbevent)break;evnt(17359);}while(r);
#line 17360 "qb64pe.bas"
do{
#line 17360 "qb64pe.bas"
if(!qbevent)break;evnt(17360);}while(r);
#line 17361 "qb64pe.bas"
do{
#line 17361 "qb64pe.bas"
if(!qbevent)break;evnt(17361);}while(r);
#line 17362 "qb64pe.bas"
do{
#line 17362 "qb64pe.bas"
if(!qbevent)break;evnt(17362);}while(r);
#line 17363 "qb64pe.bas"
do{
#line 17363 "qb64pe.bas"
if(!qbevent)break;evnt(17363);}while(r);
#line 17364 "qb64pe.bas"
do{
#line 17364 "qb64pe.bas"
if(!qbevent)break;evnt(17364);}while(r);
#line 17365 "qb64pe.bas"
do{
#line 17365 "qb64pe.bas"
if(!qbevent)break;evnt(17365);}while(r);
#line 17367 "qb64pe.bas"
S_19856:;
#line 17367 "qb64pe.bas"
fornext_value2395= 1 ;
#line 17367 "qb64pe.bas"
fornext_finalvalue2395=*_SUB_ASSIGN_LONG_N;
#line 17367 "qb64pe.bas"
fornext_step2395= 1 ;
#line 17367 "qb64pe.bas"
if (fornext_step2395<0) fornext_step_negative2395=1; else fornext_step_negative2395=0;
#line 17367 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2395;
#line 17367 "qb64pe.bas"
goto fornext_entrylabel2395;
#line 17367 "qb64pe.bas"
while(1){
#line 17367 "qb64pe.bas"
fornext_value2395=fornext_step2395+(*_SUB_ASSIGN_LONG_I);
#line 17367 "qb64pe.bas"
fornext_entrylabel2395:
#line 17367 "qb64pe.bas"
*_SUB_ASSIGN_LONG_I=fornext_value2395;
#line 17367 "qb64pe.bas"
if (fornext_step_negative2395){
#line 17367 "qb64pe.bas"
if (fornext_value2395<fornext_finalvalue2395) break;
#line 17367 "qb64pe.bas"
}else{
#line 17367 "qb64pe.bas"
if (fornext_value2395>fornext_finalvalue2395) break;
#line 17367 "qb64pe.bas"
}
#line 17367 "qb64pe.bas"
fornext_error2395:;
#line 17367 "qb64pe.bas"
if(qbevent){evnt(17367);if(r)goto S_19856;}
#line 17368 "qb64pe.bas"
do{
#line 17368 "qb64pe.bas"
*_SUB_ASSIGN_LONG_C=qbs_asc(FUNC_GETELEMENT(_SUB_ASSIGN_STRING_A,_SUB_ASSIGN_LONG_I));
#line 17368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17368 "qb64pe.bas"
if(!qbevent)break;evnt(17368);}while(r);
#line 17369 "qb64pe.bas"
S_19858:;
#line 17369 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||is_error_pending()){
#line 17369 "qb64pe.bas"
if(qbevent){evnt(17369);if(r)goto S_19858;}
#line 17369 "qb64pe.bas"
do{
#line 17369 "qb64pe.bas"
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ;
#line 17369 "qb64pe.bas"
if(!qbevent)break;evnt(17369);}while(r);
#line 17369 "qb64pe.bas"
}
#line 17370 "qb64pe.bas"
S_19861:;
#line 17370 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||is_error_pending()){
#line 17370 "qb64pe.bas"
if(qbevent){evnt(17370);if(r)goto S_19861;}
#line 17370 "qb64pe.bas"
do{
#line 17370 "qb64pe.bas"
*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ;
#line 17370 "qb64pe.bas"
if(!qbevent)break;evnt(17370);}while(r);
#line 17370 "qb64pe.bas"
}
#line 17371 "qb64pe.bas"
S_19864:;
#line 17371 "qb64pe.bas"
if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||is_error_pending()){
#line 17371 "qb64pe.bas"
if(qbevent){evnt(17371);if(r)goto S_19864;}
#line 17372 "qb64pe.bas"
S_19865:;
#line 17372 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||is_error_pending()){
#line 17372 "qb64pe.bas"
if(qbevent){evnt(17372);if(r)goto S_19865;}
#line 17372 "qb64pe.bas"
do{
#line 17372 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14));
#line 17372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17372 "qb64pe.bas"
if(!qbevent)break;evnt(17372);}while(r);
#line 17372 "qb64pe.bas"
do{
#line 17372 "qb64pe.bas"
goto exit_subfunc;
#line 17372 "qb64pe.bas"
if(!qbevent)break;evnt(17372);}while(r);
#line 17372 "qb64pe.bas"
}
#line 17373 "qb64pe.bas"
S_19869:;
#line 17373 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||is_error_pending()){
#line 17373 "qb64pe.bas"
if(qbevent){evnt(17373);if(r)goto S_19869;}
#line 17373 "qb64pe.bas"
do{
#line 17373 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14));
#line 17373 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17373 "qb64pe.bas"
if(!qbevent)break;evnt(17373);}while(r);
#line 17373 "qb64pe.bas"
do{
#line 17373 "qb64pe.bas"
goto exit_subfunc;
#line 17373 "qb64pe.bas"
if(!qbevent)break;evnt(17373);}while(r);
#line 17373 "qb64pe.bas"
}
#line 17375 "qb64pe.bas"
do{
#line 17375 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_LSRC,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2396= 1 ),&(pass2397=*_SUB_ASSIGN_LONG_I- 1 )));
#line 17375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17375 "qb64pe.bas"
if(!qbevent)break;evnt(17375);}while(r);
#line 17376 "qb64pe.bas"
do{
#line 17376 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_RSRC,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2398=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N));
#line 17376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17376 "qb64pe.bas"
if(!qbevent)break;evnt(17376);}while(r);
#line 17377 "qb64pe.bas"
do{
#line 17377 "qb64pe.bas"
SUB_GETASGREFSYNTAX(_SUB_ASSIGN_STRING_LSRC,_SUB_ASSIGN_LONG_LKIND,_SUB_ASSIGN_STRING_LLABEL,_SUB_ASSIGN_LONG_LHASMEMBER,_SUB_ASSIGN_STRING_LROOT);
#line 17377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17377 "qb64pe.bas"
if(!qbevent)break;evnt(17377);}while(r);
#line 17378 "qb64pe.bas"
do{
#line 17378 "qb64pe.bas"
SUB_GETASGREFSYNTAX(_SUB_ASSIGN_STRING_RSRC,_SUB_ASSIGN_LONG_RKIND,_SUB_ASSIGN_STRING_RLABEL,_SUB_ASSIGN_LONG_RHASMEMBER,_SUB_ASSIGN_STRING_RROOT);
#line 17378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17378 "qb64pe.bas"
if(!qbevent)break;evnt(17378);}while(r);
#line 17380 "qb64pe.bas"
do{
#line 17380 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(_SUB_ASSIGN_STRING_LSRC));
#line 17380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17380 "qb64pe.bas"
if(!qbevent)break;evnt(17380);}while(r);
#line 17381 "qb64pe.bas"
S_19878:;
#line 17381 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17381 "qb64pe.bas"
if(qbevent){evnt(17381);if(r)goto S_19878;}
#line 17381 "qb64pe.bas"
do{
#line 17381 "qb64pe.bas"
goto exit_subfunc;
#line 17381 "qb64pe.bas"
if(!qbevent)break;evnt(17381);}while(r);
#line 17381 "qb64pe.bas"
}
#line 17382 "qb64pe.bas"
do{
#line 17382 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_L,qbs_add(qbs_add(qbs_add(__STRING_TLAYOUT,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP));
#line 17382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17382 "qb64pe.bas"
if(!qbevent)break;evnt(17382);}while(r);
#line 17387 "qb64pe.bas"
S_19882:;
#line 17387 "qb64pe.bas"
if (((-(*_SUB_ASSIGN_LONG_LKIND== 2 ))&(-(*_SUB_ASSIGN_LONG_RKIND== 2 )))||is_error_pending()){
#line 17387 "qb64pe.bas"
if(qbevent){evnt(17387);if(r)goto S_19882;}
#line 17388 "qb64pe.bas"
do{
#line 17388 "qb64pe.bas"
SUB_GETWHOLEASGREF(_SUB_ASSIGN_STRING_LSRC,_SUB_ASSIGN_STRING_LROOT,_SUB_ASSIGN_LONG_LHASMEMBER,_SUB_ASSIGN_LONG_LOK,_SUB_ASSIGN_STRING_LREF,_SUB_ASSIGN_LONG_LREFTYP,_SUB_ASSIGN_LONG_LIDNUM,_SUB_ASSIGN_LONG_LMEMBER);
#line 17388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17388 "qb64pe.bas"
if(!qbevent)break;evnt(17388);}while(r);
#line 17389 "qb64pe.bas"
S_19884:;
#line 17389 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17389 "qb64pe.bas"
if(qbevent){evnt(17389);if(r)goto S_19884;}
#line 17389 "qb64pe.bas"
do{
#line 17389 "qb64pe.bas"
goto exit_subfunc;
#line 17389 "qb64pe.bas"
if(!qbevent)break;evnt(17389);}while(r);
#line 17389 "qb64pe.bas"
}
#line 17390 "qb64pe.bas"
do{
#line 17390 "qb64pe.bas"
SUB_GETWHOLEASGREF(_SUB_ASSIGN_STRING_RSRC,_SUB_ASSIGN_STRING_RROOT,_SUB_ASSIGN_LONG_RHASMEMBER,_SUB_ASSIGN_LONG_ROK,_SUB_ASSIGN_STRING_RREF,_SUB_ASSIGN_LONG_RREFTYP,_SUB_ASSIGN_LONG_RIDNUM,_SUB_ASSIGN_LONG_RMEMBER);
#line 17390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17390 "qb64pe.bas"
if(!qbevent)break;evnt(17390);}while(r);
#line 17391 "qb64pe.bas"
S_19888:;
#line 17391 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17391 "qb64pe.bas"
if(qbevent){evnt(17391);if(r)goto S_19888;}
#line 17391 "qb64pe.bas"
do{
#line 17391 "qb64pe.bas"
goto exit_subfunc;
#line 17391 "qb64pe.bas"
if(!qbevent)break;evnt(17391);}while(r);
#line 17391 "qb64pe.bas"
}
#line 17392 "qb64pe.bas"
S_19891:;
#line 17392 "qb64pe.bas"
if ((*_SUB_ASSIGN_LONG_LOK&*_SUB_ASSIGN_LONG_ROK)||is_error_pending()){
#line 17392 "qb64pe.bas"
if(qbevent){evnt(17392);if(r)goto S_19891;}
#line 17393 "qb64pe.bas"
do{
#line 17393 "qb64pe.bas"
SUB_EMITASSIGNWHOLE(_SUB_ASSIGN_STRING_LREF,_SUB_ASSIGN_LONG_LREFTYP,_SUB_ASSIGN_LONG_LIDNUM,_SUB_ASSIGN_LONG_LMEMBER,_SUB_ASSIGN_STRING_RREF,_SUB_ASSIGN_LONG_RREFTYP,_SUB_ASSIGN_LONG_RIDNUM,_SUB_ASSIGN_LONG_RMEMBER);
#line 17393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17393 "qb64pe.bas"
if(!qbevent)break;evnt(17393);}while(r);
#line 17394 "qb64pe.bas"
S_19893:;
#line 17394 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17394 "qb64pe.bas"
if(qbevent){evnt(17394);if(r)goto S_19893;}
#line 17394 "qb64pe.bas"
do{
#line 17394 "qb64pe.bas"
goto exit_subfunc;
#line 17394 "qb64pe.bas"
if(!qbevent)break;evnt(17394);}while(r);
#line 17394 "qb64pe.bas"
}
#line 17395 "qb64pe.bas"
do{
#line 17395 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(_SUB_ASSIGN_STRING_RSRC));
#line 17395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17395 "qb64pe.bas"
if(!qbevent)break;evnt(17395);}while(r);
#line 17396 "qb64pe.bas"
S_19897:;
#line 17396 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17396 "qb64pe.bas"
if(qbevent){evnt(17396);if(r)goto S_19897;}
#line 17396 "qb64pe.bas"
do{
#line 17396 "qb64pe.bas"
goto exit_subfunc;
#line 17396 "qb64pe.bas"
if(!qbevent)break;evnt(17396);}while(r);
#line 17396 "qb64pe.bas"
}
#line 17397 "qb64pe.bas"
do{
#line 17397 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT));
#line 17397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17397 "qb64pe.bas"
if(!qbevent)break;evnt(17397);}while(r);
#line 17398 "qb64pe.bas"
do{
#line 17398 "qb64pe.bas"
goto exit_subfunc;
#line 17398 "qb64pe.bas"
if(!qbevent)break;evnt(17398);}while(r);
#line 17399 "qb64pe.bas"
}
#line 17400 "qb64pe.bas"
}
#line 17404 "qb64pe.bas"
S_19904:;
#line 17404 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||is_error_pending()){
#line 17404 "qb64pe.bas"
if(qbevent){evnt(17404);if(r)goto S_19904;}
#line 17405 "qb64pe.bas"
do{
#line 17405 "qb64pe.bas"
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
#line 17405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17405 "qb64pe.bas"
if(!qbevent)break;evnt(17405);}while(r);
#line 17406 "qb64pe.bas"
S_19906:;
#line 17406 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17406 "qb64pe.bas"
if(qbevent){evnt(17406);if(r)goto S_19906;}
#line 17406 "qb64pe.bas"
do{
#line 17406 "qb64pe.bas"
goto exit_subfunc;
#line 17406 "qb64pe.bas"
if(!qbevent)break;evnt(17406);}while(r);
#line 17406 "qb64pe.bas"
}
#line 17407 "qb64pe.bas"
S_19909:;
#line 17407 "qb64pe.bas"
while((*_SUB_ASSIGN_LONG_TRY)||is_error_pending()){
#line 17407 "qb64pe.bas"
if(qbevent){evnt(17407);if(r)goto S_19909;}
#line 17408 "qb64pe.bas"
S_19910:;
#line 17408 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
#line 17408 "qb64pe.bas"
if(qbevent){evnt(17408);if(r)goto S_19910;}
#line 17409 "qb64pe.bas"
S_19911:;
#line 17409 "qb64pe.bas"
if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))||is_error_pending()){
#line 17409 "qb64pe.bas"
if(qbevent){evnt(17409);if(r)goto S_19911;}
#line 17410 "qb64pe.bas"
S_19912:;
#line 17410 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 17410 "qb64pe.bas"
if(qbevent){evnt(17410);if(r)goto S_19912;}
#line 17411 "qb64pe.bas"
do{
#line 17411 "qb64pe.bas"
SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP);
#line 17411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17411 "qb64pe.bas"
if(!qbevent)break;evnt(17411);}while(r);
#line 17412 "qb64pe.bas"
do{
#line 17412 "qb64pe.bas"
goto LABEL_ASSIGNLHSREADY;
#line 17412 "qb64pe.bas"
if(!qbevent)break;evnt(17412);}while(r);
#line 17413 "qb64pe.bas"
}
#line 17414 "qb64pe.bas"
}
#line 17415 "qb64pe.bas"
}
#line 17416 "qb64pe.bas"
S_19918:;
#line 17416 "qb64pe.bas"
if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||is_error_pending()){
#line 17416 "qb64pe.bas"
if(qbevent){evnt(17416);if(r)goto S_19918;}
#line 17416 "qb64pe.bas"
do{
#line 17416 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 17416 "qb64pe.bas"
if(!qbevent)break;evnt(17416);}while(r);
#line 17416 "qb64pe.bas"
do{
#line 17416 "qb64pe.bas"
*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2);
#line 17416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17416 "qb64pe.bas"
if(!qbevent)break;evnt(17416);}while(r);
#line 17416 "qb64pe.bas"
}else{
#line 17416 "qb64pe.bas"
do{
#line 17416 "qb64pe.bas"
*_SUB_ASSIGN_LONG_TRY= 0 ;
#line 17416 "qb64pe.bas"
if(!qbevent)break;evnt(17416);}while(r);
#line 17416 "qb64pe.bas"
}
#line 17417 "qb64pe.bas"
S_19924:;
#line 17417 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17417 "qb64pe.bas"
if(qbevent){evnt(17417);if(r)goto S_19924;}
#line 17417 "qb64pe.bas"
do{
#line 17417 "qb64pe.bas"
goto exit_subfunc;
#line 17417 "qb64pe.bas"
if(!qbevent)break;evnt(17417);}while(r);
#line 17417 "qb64pe.bas"
}
#line 17418 "qb64pe.bas"
dl_continue_2399:;
#line 17418 "qb64pe.bas"
}
#line 17418 "qb64pe.bas"
dl_exit_2399:;
#line 17419 "qb64pe.bas"
}
#line 17421 "qb64pe.bas"
do{
#line 17421 "qb64pe.bas"
*_SUB_ASSIGN_INTEGER_SAVED_BARE=*__INTEGER_UDT_ALLOW_BARE_ARRAY;
#line 17421 "qb64pe.bas"
if(!qbevent)break;evnt(17421);}while(r);
#line 17422 "qb64pe.bas"
S_19930:;
#line 17422 "qb64pe.bas"
if ((*_SUB_ASSIGN_LONG_LHASMEMBER&((-(*_SUB_ASSIGN_LONG_LKIND== 1 ))|(-(*_SUB_ASSIGN_LONG_LKIND== 2 ))))||is_error_pending()){
#line 17422 "qb64pe.bas"
if(qbevent){evnt(17422);if(r)goto S_19930;}
#line 17422 "qb64pe.bas"
do{
#line 17422 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 17422 "qb64pe.bas"
if(!qbevent)break;evnt(17422);}while(r);
#line 17422 "qb64pe.bas"
}
#line 17423 "qb64pe.bas"
do{
#line 17423 "qb64pe.bas"
qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_EVALUATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP));
#line 17423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17423 "qb64pe.bas"
if(!qbevent)break;evnt(17423);}while(r);
#line 17424 "qb64pe.bas"
do{
#line 17424 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY=*_SUB_ASSIGN_INTEGER_SAVED_BARE;
#line 17424 "qb64pe.bas"
if(!qbevent)break;evnt(17424);}while(r);
#line 17425 "qb64pe.bas"
S_19935:;
#line 17425 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17425 "qb64pe.bas"
if(qbevent){evnt(17425);if(r)goto S_19935;}
#line 17425 "qb64pe.bas"
do{
#line 17425 "qb64pe.bas"
goto exit_subfunc;
#line 17425 "qb64pe.bas"
if(!qbevent)break;evnt(17425);}while(r);
#line 17425 "qb64pe.bas"
}
#line 17427 "qb64pe.bas"
LABEL_ASSIGNLHSREADY:;
#line 17427 "qb64pe.bas"
if(qbevent){evnt(17427);r=0;}
#line 17428 "qb64pe.bas"
S_19938:;
#line 17428 "qb64pe.bas"
if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 17428 "qb64pe.bas"
if(qbevent){evnt(17428);if(r)goto S_19938;}
#line 17428 "qb64pe.bas"
do{
#line 17428 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =, look for conflict with a CONST name",56));
#line 17428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17428 "qb64pe.bas"
if(!qbevent)break;evnt(17428);}while(r);
#line 17428 "qb64pe.bas"
do{
#line 17428 "qb64pe.bas"
goto exit_subfunc;
#line 17428 "qb64pe.bas"
if(!qbevent)break;evnt(17428);}while(r);
#line 17428 "qb64pe.bas"
}
#line 17430 "qb64pe.bas"
do{
#line 17430 "qb64pe.bas"
SUB_GETASGREFSTATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,_SUB_ASSIGN_LONG_LKIND,_SUB_ASSIGN_LONG_LHASMEMBER,_SUB_ASSIGN_LONG_LHSSTATE);
#line 17430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17430 "qb64pe.bas"
if(!qbevent)break;evnt(17430);}while(r);
#line 17432 "qb64pe.bas"
do{
#line 17432 "qb64pe.bas"
*__INTEGER_ASG_LSTATE=*_SUB_ASSIGN_LONG_LHSSTATE;
#line 17432 "qb64pe.bas"
if(!qbevent)break;evnt(17432);}while(r);
#line 17433 "qb64pe.bas"
do{
#line 17433 "qb64pe.bas"
qbs_set(__STRING_ASG_LNAME,_SUB_ASSIGN_STRING_LLABEL);
#line 17433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17433 "qb64pe.bas"
if(!qbevent)break;evnt(17433);}while(r);
#line 17434 "qb64pe.bas"
do{
#line 17434 "qb64pe.bas"
*__INTEGER_ASG_RKIND=*_SUB_ASSIGN_LONG_RKIND;
#line 17434 "qb64pe.bas"
if(!qbevent)break;evnt(17434);}while(r);
#line 17435 "qb64pe.bas"
do{
#line 17435 "qb64pe.bas"
qbs_set(__STRING_ASG_RNAME,_SUB_ASSIGN_STRING_RLABEL);
#line 17435 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17435 "qb64pe.bas"
if(!qbevent)break;evnt(17435);}while(r);
#line 17436 "qb64pe.bas"
do{
#line 17436 "qb64pe.bas"
*__INTEGER_ASG_RMEMBER=*_SUB_ASSIGN_LONG_RHASMEMBER;
#line 17436 "qb64pe.bas"
if(!qbevent)break;evnt(17436);}while(r);
#line 17437 "qb64pe.bas"
do{
#line 17437 "qb64pe.bas"
*__INTEGER_ASG_GUARD_ON= -1 ;
#line 17437 "qb64pe.bas"
if(!qbevent)break;evnt(17437);}while(r);
#line 17438 "qb64pe.bas"
do{
#line 17438 "qb64pe.bas"
SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,_SUB_ASSIGN_STRING_RSRC,&(pass2400= 0 ));
#line 17438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17438 "qb64pe.bas"
if(!qbevent)break;evnt(17438);}while(r);
#line 17439 "qb64pe.bas"
do{
#line 17439 "qb64pe.bas"
*__INTEGER_ASG_GUARD_ON= 0 ;
#line 17439 "qb64pe.bas"
if(!qbevent)break;evnt(17439);}while(r);
#line 17440 "qb64pe.bas"
S_19951:;
#line 17440 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 17440 "qb64pe.bas"
if(qbevent){evnt(17440);if(r)goto S_19951;}
#line 17440 "qb64pe.bas"
do{
#line 17440 "qb64pe.bas"
goto exit_subfunc;
#line 17440 "qb64pe.bas"
if(!qbevent)break;evnt(17440);}while(r);
#line 17440 "qb64pe.bas"
}
#line 17441 "qb64pe.bas"
do{
#line 17441 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT));
#line 17441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17441 "qb64pe.bas"
if(!qbevent)break;evnt(17441);}while(r);
#line 17443 "qb64pe.bas"
do{
#line 17443 "qb64pe.bas"
goto exit_subfunc;
#line 17443 "qb64pe.bas"
if(!qbevent)break;evnt(17443);}while(r);
#line 17445 "qb64pe.bas"
}
#line 17446 "qb64pe.bas"
fornext_continue_2394:;
#line 17446 "qb64pe.bas"
}
#line 17446 "qb64pe.bas"
fornext_exit_2394:;
#line 17447 "qb64pe.bas"
do{
#line 17447 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10));
#line 17447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17447 "qb64pe.bas"
if(!qbevent)break;evnt(17447);}while(r);
#line 17447 "qb64pe.bas"
do{
#line 17447 "qb64pe.bas"
goto exit_subfunc;
#line 17447 "qb64pe.bas"
if(!qbevent)break;evnt(17447);}while(r);
#line 17448 "qb64pe.bas"
exit_subfunc:;
#line 17448 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 17448 "qb64pe.bas"
#include "free50.txt"
#line 17448 "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 17448 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 17448 "qb64pe.bas"
}
