#line 23499 "qb64pe.bas"
qbs* FUNC_FIXOPERATIONORDER_REC(qbs*_FUNC_FIXOPERATIONORDER_REC_STRING_SAVEA,int32*_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAYS){
#line 23499 "qb64pe.bas"
qbs *tqbs;
#line 23499 "qb64pe.bas"
ptrszint tmp_long;
#line 23499 "qb64pe.bas"
int32 tmp_fileno;
#line 23499 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 23499 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 23499 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 23499 "qb64pe.bas"
#include "data71.txt"
#line 23499 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 23499 "qb64pe.bas"
new_mem_lock();
#line 23499 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 23499 "qb64pe.bas"
sf_mem_lock->type=3;
#line 23499 "qb64pe.bas"
libqb_check_stack();
#line 23499 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 23500 "qb64pe.bas"
do{
#line 23500 "qb64pe.bas"
if(!qbevent)break;evnt(23500);}while(r);
#line 23501 "qb64pe.bas"
do{
#line 23501 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_STRING_SAVEA);
#line 23501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23501 "qb64pe.bas"
if(!qbevent)break;evnt(23501);}while(r);
#line 23502 "qb64pe.bas"
S_26999:;
#line 23502 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23502 "qb64pe.bas"
if(qbevent){evnt(23502);if(r)goto S_26999;}
#line 23502 "qb64pe.bas"
do{
#line 23502 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23502 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23502 "qb64pe.bas"
if (is_error_pending()) goto skip2914;
#line 23502 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23502 "qb64pe.bas"
if (is_error_pending()) goto skip2914;
#line 23502 "qb64pe.bas"
skip2914:
#line 23502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23502 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23502 "qb64pe.bas"
if(!qbevent)break;evnt(23502);}while(r);
#line 23502 "qb64pe.bas"
}
#line 23504 "qb64pe.bas"
do{
#line 23504 "qb64pe.bas"
*__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ;
#line 23504 "qb64pe.bas"
if(!qbevent)break;evnt(23504);}while(r);
#line 23506 "qb64pe.bas"
do{
#line 23506 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A);
#line 23506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23506 "qb64pe.bas"
if(!qbevent)break;evnt(23506);}while(r);
#line 23508 "qb64pe.bas"
S_27004:;
#line 23508 "qb64pe.bas"
if ((-(*__LONG_FOOINDWEL== 1 ))||is_error_pending()){
#line 23508 "qb64pe.bas"
if(qbevent){evnt(23508);if(r)goto S_27004;}
#line 23511 "qb64pe.bas"
do{
#line 23511 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_A));
#line 23511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23511 "qb64pe.bas"
if(!qbevent)break;evnt(23511);}while(r);
#line 23512 "qb64pe.bas"
S_27006:;
#line 23512 "qb64pe.bas"
fornext_value2916= 1 ;
#line 23512 "qb64pe.bas"
fornext_finalvalue2916=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23512 "qb64pe.bas"
fornext_step2916= 1 ;
#line 23512 "qb64pe.bas"
if (fornext_step2916<0) fornext_step_negative2916=1; else fornext_step_negative2916=0;
#line 23512 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2916;
#line 23512 "qb64pe.bas"
goto fornext_entrylabel2916;
#line 23512 "qb64pe.bas"
while(1){
#line 23512 "qb64pe.bas"
fornext_value2916=fornext_step2916+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23512 "qb64pe.bas"
fornext_entrylabel2916:
#line 23512 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2916;
#line 23512 "qb64pe.bas"
if (fornext_step_negative2916){
#line 23512 "qb64pe.bas"
if (fornext_value2916<fornext_finalvalue2916) break;
#line 23512 "qb64pe.bas"
}else{
#line 23512 "qb64pe.bas"
if (fornext_value2916>fornext_finalvalue2916) break;
#line 23512 "qb64pe.bas"
}
#line 23512 "qb64pe.bas"
fornext_error2916:;
#line 23512 "qb64pe.bas"
if(qbevent){evnt(23512);if(r)goto S_27006;}
#line 23513 "qb64pe.bas"
do{
#line 23513 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_UPPERCASEA,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23513 "qb64pe.bas"
if(!qbevent)break;evnt(23513);}while(r);
#line 23514 "qb64pe.bas"
do{
#line 23514 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_UPPERCASEA,&(pass2917=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 23514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23514 "qb64pe.bas"
if(!qbevent)break;evnt(23514);}while(r);
#line 23515 "qb64pe.bas"
S_27009:;
#line 23515 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("AND",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("AND",3)))))||is_error_pending()){
#line 23515 "qb64pe.bas"
if(qbevent){evnt(23515);if(r)goto S_27009;}
#line 23515 "qb64pe.bas"
do{
#line 23515 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14));
#line 23515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23515 "qb64pe.bas"
if(!qbevent)break;evnt(23515);}while(r);
#line 23515 "qb64pe.bas"
do{
#line 23515 "qb64pe.bas"
goto exit_subfunc;
#line 23515 "qb64pe.bas"
if(!qbevent)break;evnt(23515);}while(r);
#line 23515 "qb64pe.bas"
}
#line 23516 "qb64pe.bas"
S_27013:;
#line 23516 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("OR",2)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("OR",2)))))||is_error_pending()){
#line 23516 "qb64pe.bas"
if(qbevent){evnt(23516);if(r)goto S_27013;}
#line 23516 "qb64pe.bas"
do{
#line 23516 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12));
#line 23516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23516 "qb64pe.bas"
if(!qbevent)break;evnt(23516);}while(r);
#line 23516 "qb64pe.bas"
do{
#line 23516 "qb64pe.bas"
goto exit_subfunc;
#line 23516 "qb64pe.bas"
if(!qbevent)break;evnt(23516);}while(r);
#line 23516 "qb64pe.bas"
}
#line 23517 "qb64pe.bas"
S_27017:;
#line 23517 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("XOR",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("XOR",3)))))||is_error_pending()){
#line 23517 "qb64pe.bas"
if(qbevent){evnt(23517);if(r)goto S_27017;}
#line 23517 "qb64pe.bas"
do{
#line 23517 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14));
#line 23517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23517 "qb64pe.bas"
if(!qbevent)break;evnt(23517);}while(r);
#line 23517 "qb64pe.bas"
do{
#line 23517 "qb64pe.bas"
goto exit_subfunc;
#line 23517 "qb64pe.bas"
if(!qbevent)break;evnt(23517);}while(r);
#line 23517 "qb64pe.bas"
}
#line 23518 "qb64pe.bas"
S_27021:;
#line 23518 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("IMP",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("IMP",3)))))||is_error_pending()){
#line 23518 "qb64pe.bas"
if(qbevent){evnt(23518);if(r)goto S_27021;}
#line 23518 "qb64pe.bas"
do{
#line 23518 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14));
#line 23518 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23518 "qb64pe.bas"
if(!qbevent)break;evnt(23518);}while(r);
#line 23518 "qb64pe.bas"
do{
#line 23518 "qb64pe.bas"
goto exit_subfunc;
#line 23518 "qb64pe.bas"
if(!qbevent)break;evnt(23518);}while(r);
#line 23518 "qb64pe.bas"
}
#line 23519 "qb64pe.bas"
S_27025:;
#line 23519 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("EQV",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("EQV",3)))))||is_error_pending()){
#line 23519 "qb64pe.bas"
if(qbevent){evnt(23519);if(r)goto S_27025;}
#line 23519 "qb64pe.bas"
do{
#line 23519 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14));
#line 23519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23519 "qb64pe.bas"
if(!qbevent)break;evnt(23519);}while(r);
#line 23519 "qb64pe.bas"
do{
#line 23519 "qb64pe.bas"
goto exit_subfunc;
#line 23519 "qb64pe.bas"
if(!qbevent)break;evnt(23519);}while(r);
#line 23519 "qb64pe.bas"
}
#line 23520 "qb64pe.bas"
S_27029:;
#line 23520 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("_ANDALSO",8)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("_ANDALSO",8)))))||is_error_pending()){
#line 23520 "qb64pe.bas"
if(qbevent){evnt(23520);if(r)goto S_27029;}
#line 23520 "qb64pe.bas"
do{
#line 23520 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: _ANDALSO _ANDALSO",24));
#line 23520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23520 "qb64pe.bas"
if(!qbevent)break;evnt(23520);}while(r);
#line 23520 "qb64pe.bas"
do{
#line 23520 "qb64pe.bas"
goto exit_subfunc;
#line 23520 "qb64pe.bas"
if(!qbevent)break;evnt(23520);}while(r);
#line 23520 "qb64pe.bas"
}
#line 23521 "qb64pe.bas"
S_27033:;
#line 23521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP1,qbs_new_txt_len("_ORELSE",7)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TEMP2,qbs_new_txt_len("_ORELSE",7)))))||is_error_pending()){
#line 23521 "qb64pe.bas"
if(qbevent){evnt(23521);if(r)goto S_27033;}
#line 23521 "qb64pe.bas"
do{
#line 23521 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Error: _ORELSE _ORELSE",22));
#line 23521 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23521 "qb64pe.bas"
if(!qbevent)break;evnt(23521);}while(r);
#line 23521 "qb64pe.bas"
do{
#line 23521 "qb64pe.bas"
goto exit_subfunc;
#line 23521 "qb64pe.bas"
if(!qbevent)break;evnt(23521);}while(r);
#line 23521 "qb64pe.bas"
}
#line 23522 "qb64pe.bas"
fornext_continue_2915:;
#line 23522 "qb64pe.bas"
}
#line 23522 "qb64pe.bas"
fornext_exit_2915:;
#line 23525 "qb64pe.bas"
do{
#line 23525 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23525 "qb64pe.bas"
if(!qbevent)break;evnt(23525);}while(r);
#line 23526 "qb64pe.bas"
do{
#line 23526 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_REC_STRING_A),__STRING1_SP));
#line 23526 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23526 "qb64pe.bas"
if(!qbevent)break;evnt(23526);}while(r);
#line 23527 "qb64pe.bas"
do{
#line 23527 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_B1,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("(",1)),__STRING1_SP));
#line 23527 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23527 "qb64pe.bas"
if(!qbevent)break;evnt(23527);}while(r);
#line 23528 "qb64pe.bas"
do{
#line 23528 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_B2,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(")",1)),__STRING1_SP));
#line 23528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23528 "qb64pe.bas"
if(!qbevent)break;evnt(23528);}while(r);
#line 23529 "qb64pe.bas"
do{
#line 23529 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I= 1 ;
#line 23529 "qb64pe.bas"
if(!qbevent)break;evnt(23529);}while(r);
#line 23530 "qb64pe.bas"
LABEL_FINDMMB:;
#line 23530 "qb64pe.bas"
if(qbevent){evnt(23530);r=0;}
#line 23531 "qb64pe.bas"
do{
#line 23531 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,_FUNC_FIXOPERATIONORDER_REC_STRING_B1,0|1);
#line 23531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23531 "qb64pe.bas"
if(!qbevent)break;evnt(23531);}while(r);
#line 23532 "qb64pe.bas"
do{
#line 23532 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,_FUNC_FIXOPERATIONORDER_REC_STRING_B2,0|1);
#line 23532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23532 "qb64pe.bas"
if(!qbevent)break;evnt(23532);}while(r);
#line 23533 "qb64pe.bas"
do{
#line 23533 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I3=*_FUNC_FIXOPERATIONORDER_REC_LONG_I1;
#line 23533 "qb64pe.bas"
if(!qbevent)break;evnt(23533);}while(r);
#line 23534 "qb64pe.bas"
S_27046:;
#line 23534 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)||is_error_pending()){
#line 23534 "qb64pe.bas"
if(qbevent){evnt(23534);if(r)goto S_27046;}
#line 23535 "qb64pe.bas"
S_27047:;
#line 23535 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I1== 0 ))||is_error_pending()){
#line 23535 "qb64pe.bas"
if(qbevent){evnt(23535);if(r)goto S_27047;}
#line 23536 "qb64pe.bas"
do{
#line 23536 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I3=*_FUNC_FIXOPERATIONORDER_REC_LONG_I2;
#line 23536 "qb64pe.bas"
if(!qbevent)break;evnt(23536);}while(r);
#line 23537 "qb64pe.bas"
}else{
#line 23538 "qb64pe.bas"
S_27050:;
#line 23538 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I2<*_FUNC_FIXOPERATIONORDER_REC_LONG_I1))||is_error_pending()){
#line 23538 "qb64pe.bas"
if(qbevent){evnt(23538);if(r)goto S_27050;}
#line 23538 "qb64pe.bas"
do{
#line 23538 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I3=*_FUNC_FIXOPERATIONORDER_REC_LONG_I2;
#line 23538 "qb64pe.bas"
if(!qbevent)break;evnt(23538);}while(r);
#line 23538 "qb64pe.bas"
}
#line 23539 "qb64pe.bas"
}
#line 23540 "qb64pe.bas"
}
#line 23541 "qb64pe.bas"
S_27055:;
#line 23541 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_I3)||is_error_pending()){
#line 23541 "qb64pe.bas"
if(qbevent){evnt(23541);if(r)goto S_27055;}
#line 23542 "qb64pe.bas"
S_27056:;
#line 23542 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I3==*_FUNC_FIXOPERATIONORDER_REC_LONG_I1))||is_error_pending()){
#line 23542 "qb64pe.bas"
if(qbevent){evnt(23542);if(r)goto S_27056;}
#line 23542 "qb64pe.bas"
do{
#line 23542 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23542 "qb64pe.bas"
if(!qbevent)break;evnt(23542);}while(r);
#line 23542 "qb64pe.bas"
}
#line 23543 "qb64pe.bas"
S_27059:;
#line 23543 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I3==*_FUNC_FIXOPERATIONORDER_REC_LONG_I2))||is_error_pending()){
#line 23543 "qb64pe.bas"
if(qbevent){evnt(23543);if(r)goto S_27059;}
#line 23543 "qb64pe.bas"
do{
#line 23543 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23543 "qb64pe.bas"
if(!qbevent)break;evnt(23543);}while(r);
#line 23543 "qb64pe.bas"
}
#line 23544 "qb64pe.bas"
do{
#line 23544 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I3+ 2 ;
#line 23544 "qb64pe.bas"
if(!qbevent)break;evnt(23544);}while(r);
#line 23545 "qb64pe.bas"
S_27063:;
#line 23545 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B< 0 ))||is_error_pending()){
#line 23545 "qb64pe.bas"
if(qbevent){evnt(23545);if(r)goto S_27063;}
#line 23545 "qb64pe.bas"
do{
#line 23545 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9));
#line 23545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23545 "qb64pe.bas"
if(!qbevent)break;evnt(23545);}while(r);
#line 23545 "qb64pe.bas"
do{
#line 23545 "qb64pe.bas"
goto exit_subfunc;
#line 23545 "qb64pe.bas"
if(!qbevent)break;evnt(23545);}while(r);
#line 23545 "qb64pe.bas"
}
#line 23546 "qb64pe.bas"
do{
#line 23546 "qb64pe.bas"
goto LABEL_FINDMMB;
#line 23546 "qb64pe.bas"
if(!qbevent)break;evnt(23546);}while(r);
#line 23547 "qb64pe.bas"
}
#line 23548 "qb64pe.bas"
S_27069:;
#line 23548 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B> 0 ))||is_error_pending()){
#line 23548 "qb64pe.bas"
if(qbevent){evnt(23548);if(r)goto S_27069;}
#line 23548 "qb64pe.bas"
do{
#line 23548 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9));
#line 23548 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23548 "qb64pe.bas"
if(!qbevent)break;evnt(23548);}while(r);
#line 23548 "qb64pe.bas"
do{
#line 23548 "qb64pe.bas"
goto exit_subfunc;
#line 23548 "qb64pe.bas"
if(!qbevent)break;evnt(23548);}while(r);
#line 23548 "qb64pe.bas"
}
#line 23552 "qb64pe.bas"
do{
#line 23552 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_REC_STRING_A),__STRING1_SP));
#line 23552 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23552 "qb64pe.bas"
if(!qbevent)break;evnt(23552);}while(r);
#line 23555 "qb64pe.bas"
LABEL_RULE1:;
#line 23555 "qb64pe.bas"
if(qbevent){evnt(23555);r=0;}
#line 23556 "qb64pe.bas"
do{
#line 23556 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("+",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0);
#line 23556 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23556 "qb64pe.bas"
if(!qbevent)break;evnt(23556);}while(r);
#line 23557 "qb64pe.bas"
S_27075:;
#line 23557 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_I)||is_error_pending()){
#line 23557 "qb64pe.bas"
if(qbevent){evnt(23557);if(r)goto S_27075;}
#line 23558 "qb64pe.bas"
do{
#line 23558 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,_FUNC_FIXOPERATIONORDER_REC_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 4 )));
#line 23558 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23558 "qb64pe.bas"
if(!qbevent)break;evnt(23558);}while(r);
#line 23559 "qb64pe.bas"
do{
#line 23559 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_REC_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_REC_STRING_A2->len- 2 ,0|1));
#line 23559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23559 "qb64pe.bas"
if(!qbevent)break;evnt(23559);}while(r);
#line 23560 "qb64pe.bas"
do{
#line 23560 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23560 "qb64pe.bas"
if(!qbevent)break;evnt(23560);}while(r);
#line 23561 "qb64pe.bas"
S_27079:;
#line 23561 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23561 "qb64pe.bas"
if(qbevent){evnt(23561);if(r)goto S_27079;}
#line 23561 "qb64pe.bas"
do{
#line 23561 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23561 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23561 "qb64pe.bas"
if (is_error_pending()) goto skip2920;
#line 23561 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23561 "qb64pe.bas"
if (is_error_pending()) goto skip2920;
#line 23561 "qb64pe.bas"
skip2920:
#line 23561 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23561 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23561 "qb64pe.bas"
if(!qbevent)break;evnt(23561);}while(r);
#line 23561 "qb64pe.bas"
}
#line 23562 "qb64pe.bas"
do{
#line 23562 "qb64pe.bas"
goto LABEL_RULE1;
#line 23562 "qb64pe.bas"
if(!qbevent)break;evnt(23562);}while(r);
#line 23563 "qb64pe.bas"
}
#line 23566 "qb64pe.bas"
LABEL_RULE2:;
#line 23566 "qb64pe.bas"
if(qbevent){evnt(23566);r=0;}
#line 23567 "qb64pe.bas"
do{
#line 23567 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0);
#line 23567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23567 "qb64pe.bas"
if(!qbevent)break;evnt(23567);}while(r);
#line 23568 "qb64pe.bas"
S_27085:;
#line 23568 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_I)||is_error_pending()){
#line 23568 "qb64pe.bas"
if(qbevent){evnt(23568);if(r)goto S_27085;}
#line 23569 "qb64pe.bas"
do{
#line 23569 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,_FUNC_FIXOPERATIONORDER_REC_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 4 )));
#line 23569 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23569 "qb64pe.bas"
if(!qbevent)break;evnt(23569);}while(r);
#line 23570 "qb64pe.bas"
do{
#line 23570 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_REC_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_REC_STRING_A2->len- 2 ,0|1));
#line 23570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23570 "qb64pe.bas"
if(!qbevent)break;evnt(23570);}while(r);
#line 23571 "qb64pe.bas"
do{
#line 23571 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23571 "qb64pe.bas"
if(!qbevent)break;evnt(23571);}while(r);
#line 23572 "qb64pe.bas"
S_27089:;
#line 23572 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23572 "qb64pe.bas"
if(qbevent){evnt(23572);if(r)goto S_27089;}
#line 23572 "qb64pe.bas"
do{
#line 23572 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23572 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23572 "qb64pe.bas"
if (is_error_pending()) goto skip2923;
#line 23572 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23572 "qb64pe.bas"
if (is_error_pending()) goto skip2923;
#line 23572 "qb64pe.bas"
skip2923:
#line 23572 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23572 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23572 "qb64pe.bas"
if(!qbevent)break;evnt(23572);}while(r);
#line 23572 "qb64pe.bas"
}
#line 23573 "qb64pe.bas"
do{
#line 23573 "qb64pe.bas"
goto LABEL_RULE2;
#line 23573 "qb64pe.bas"
if(!qbevent)break;evnt(23573);}while(r);
#line 23574 "qb64pe.bas"
}
#line 23577 "qb64pe.bas"
LABEL_RULE3:;
#line 23577 "qb64pe.bas"
if(qbevent){evnt(23577);r=0;}
#line 23578 "qb64pe.bas"
S_27094:;
#line 23578 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("-",1)),__STRING1_SP),0)))||is_error_pending()){
#line 23578 "qb64pe.bas"
if(qbevent){evnt(23578);if(r)goto S_27094;}
#line 23579 "qb64pe.bas"
S_27095:;
#line 23579 "qb64pe.bas"
fornext_value2925= 1 ;
#line 23579 "qb64pe.bas"
fornext_finalvalue2925=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 2 ;
#line 23579 "qb64pe.bas"
fornext_step2925= 1 ;
#line 23579 "qb64pe.bas"
if (fornext_step2925<0) fornext_step_negative2925=1; else fornext_step_negative2925=0;
#line 23579 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2925;
#line 23579 "qb64pe.bas"
goto fornext_entrylabel2925;
#line 23579 "qb64pe.bas"
while(1){
#line 23579 "qb64pe.bas"
fornext_value2925=fornext_step2925+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23579 "qb64pe.bas"
fornext_entrylabel2925:
#line 23579 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2925;
#line 23579 "qb64pe.bas"
if (fornext_step_negative2925){
#line 23579 "qb64pe.bas"
if (fornext_value2925<fornext_finalvalue2925) break;
#line 23579 "qb64pe.bas"
}else{
#line 23579 "qb64pe.bas"
if (fornext_value2925>fornext_finalvalue2925) break;
#line 23579 "qb64pe.bas"
}
#line 23579 "qb64pe.bas"
fornext_error2925:;
#line 23579 "qb64pe.bas"
if(qbevent){evnt(23579);if(r)goto S_27095;}
#line 23580 "qb64pe.bas"
S_27096:;
#line 23580 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I))))||is_error_pending()){
#line 23580 "qb64pe.bas"
if(qbevent){evnt(23580);if(r)goto S_27096;}
#line 23581 "qb64pe.bas"
S_27097:;
#line 23581 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2926=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||is_error_pending()){
#line 23581 "qb64pe.bas"
if(qbevent){evnt(23581);if(r)goto S_27097;}
#line 23582 "qb64pe.bas"
S_27098:;
#line 23582 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2927=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||is_error_pending()){
#line 23582 "qb64pe.bas"
if(qbevent){evnt(23582);if(r)goto S_27098;}
#line 23583 "qb64pe.bas"
do{
#line 23583 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2928=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ),&(pass2929=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ),&(pass2930= 0 ));
#line 23583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23583 "qb64pe.bas"
if(!qbevent)break;evnt(23583);}while(r);
#line 23584 "qb64pe.bas"
do{
#line 23584 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_REC_STRING_A),__STRING1_SP));
#line 23584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23584 "qb64pe.bas"
if(!qbevent)break;evnt(23584);}while(r);
#line 23585 "qb64pe.bas"
do{
#line 23585 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 2 ;
#line 23585 "qb64pe.bas"
if(!qbevent)break;evnt(23585);}while(r);
#line 23586 "qb64pe.bas"
S_27102:;
#line 23586 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23586 "qb64pe.bas"
if(qbevent){evnt(23586);if(r)goto S_27102;}
#line 23586 "qb64pe.bas"
do{
#line 23586 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23586 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23586 "qb64pe.bas"
if (is_error_pending()) goto skip2931;
#line 23586 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23586 "qb64pe.bas"
if (is_error_pending()) goto skip2931;
#line 23586 "qb64pe.bas"
skip2931:
#line 23586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23586 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23586 "qb64pe.bas"
if(!qbevent)break;evnt(23586);}while(r);
#line 23586 "qb64pe.bas"
}
#line 23587 "qb64pe.bas"
do{
#line 23587 "qb64pe.bas"
goto LABEL_RULE3;
#line 23587 "qb64pe.bas"
if(!qbevent)break;evnt(23587);}while(r);
#line 23588 "qb64pe.bas"
}
#line 23589 "qb64pe.bas"
}
#line 23590 "qb64pe.bas"
}
#line 23591 "qb64pe.bas"
fornext_continue_2924:;
#line 23591 "qb64pe.bas"
}
#line 23591 "qb64pe.bas"
fornext_exit_2924:;
#line 23592 "qb64pe.bas"
}
#line 23611 "qb64pe.bas"
S_27111:;
#line 23611 "qb64pe.bas"
fornext_value2933= 1 ;
#line 23611 "qb64pe.bas"
fornext_finalvalue2933=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23611 "qb64pe.bas"
fornext_step2933= 1 ;
#line 23611 "qb64pe.bas"
if (fornext_step2933<0) fornext_step_negative2933=1; else fornext_step_negative2933=0;
#line 23611 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2933;
#line 23611 "qb64pe.bas"
goto fornext_entrylabel2933;
#line 23611 "qb64pe.bas"
while(1){
#line 23611 "qb64pe.bas"
fornext_value2933=fornext_step2933+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23611 "qb64pe.bas"
fornext_entrylabel2933:
#line 23611 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2933;
#line 23611 "qb64pe.bas"
if (fornext_step_negative2933){
#line 23611 "qb64pe.bas"
if (fornext_value2933<fornext_finalvalue2933) break;
#line 23611 "qb64pe.bas"
}else{
#line 23611 "qb64pe.bas"
if (fornext_value2933>fornext_finalvalue2933) break;
#line 23611 "qb64pe.bas"
}
#line 23611 "qb64pe.bas"
fornext_error2933:;
#line 23611 "qb64pe.bas"
if(qbevent){evnt(23611);if(r)goto S_27111;}
#line 23612 "qb64pe.bas"
S_27112:;
#line 23612 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I>(*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 )))||is_error_pending()){
#line 23612 "qb64pe.bas"
if(qbevent){evnt(23612);if(r)goto S_27112;}
#line 23612 "qb64pe.bas"
do{
#line 23612 "qb64pe.bas"
goto fornext_exit_2932;
#line 23612 "qb64pe.bas"
if(!qbevent)break;evnt(23612);}while(r);
#line 23612 "qb64pe.bas"
}
#line 23614 "qb64pe.bas"
S_27115:;
#line 23614 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I))== 45 )))||is_error_pending()){
#line 23614 "qb64pe.bas"
if(qbevent){evnt(23614);if(r)goto S_27115;}
#line 23616 "qb64pe.bas"
do{
#line 23616 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEG= 0 ;
#line 23616 "qb64pe.bas"
if(!qbevent)break;evnt(23616);}while(r);
#line 23617 "qb64pe.bas"
S_27117:;
#line 23617 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I== 1 ))||is_error_pending()){
#line 23617 "qb64pe.bas"
if(qbevent){evnt(23617);if(r)goto S_27117;}
#line 23618 "qb64pe.bas"
do{
#line 23618 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEG= 1 ;
#line 23618 "qb64pe.bas"
if(!qbevent)break;evnt(23618);}while(r);
#line 23619 "qb64pe.bas"
}else{
#line 23620 "qb64pe.bas"
do{
#line 23620 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2934=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 )));
#line 23620 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23620 "qb64pe.bas"
if(!qbevent)break;evnt(23620);}while(r);
#line 23621 "qb64pe.bas"
do{
#line 23621 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23621 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23621 "qb64pe.bas"
if(!qbevent)break;evnt(23621);}while(r);
#line 23622 "qb64pe.bas"
S_27122:;
#line 23622 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 44 )))||is_error_pending()){
#line 23622 "qb64pe.bas"
if(qbevent){evnt(23622);if(r)goto S_27122;}
#line 23623 "qb64pe.bas"
do{
#line 23623 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEG= 1 ;
#line 23623 "qb64pe.bas"
if(!qbevent)break;evnt(23623);}while(r);
#line 23624 "qb64pe.bas"
}else{
#line 23625 "qb64pe.bas"
S_27125:;
#line 23625 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_A2)))||is_error_pending()){
#line 23625 "qb64pe.bas"
if(qbevent){evnt(23625);if(r)goto S_27125;}
#line 23625 "qb64pe.bas"
do{
#line 23625 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEG= 1 ;
#line 23625 "qb64pe.bas"
if(!qbevent)break;evnt(23625);}while(r);
#line 23625 "qb64pe.bas"
}
#line 23626 "qb64pe.bas"
}
#line 23627 "qb64pe.bas"
}
#line 23628 "qb64pe.bas"
S_27130:;
#line 23628 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEG== 1 ))||is_error_pending()){
#line 23628 "qb64pe.bas"
if(qbevent){evnt(23628);if(r)goto S_27130;}
#line 23630 "qb64pe.bas"
do{
#line 23630 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2935=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 23630 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23630 "qb64pe.bas"
if(!qbevent)break;evnt(23630);}while(r);
#line 23631 "qb64pe.bas"
do{
#line 23631 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23631 "qb64pe.bas"
if(!qbevent)break;evnt(23631);}while(r);
#line 23632 "qb64pe.bas"
S_27133:;
#line 23632 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C<= 57 )))||is_error_pending()){
#line 23632 "qb64pe.bas"
if(qbevent){evnt(23632);if(r)goto S_27133;}
#line 23633 "qb64pe.bas"
do{
#line 23633 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2= 0 ;
#line 23633 "qb64pe.bas"
if(!qbevent)break;evnt(23633);}while(r);
#line 23633 "qb64pe.bas"
S_27135:;
#line 23633 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I<(*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 )))||is_error_pending()){
#line 23633 "qb64pe.bas"
if(qbevent){evnt(23633);if(r)goto S_27135;}
#line 23633 "qb64pe.bas"
do{
#line 23633 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2936=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 )));
#line 23633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23633 "qb64pe.bas"
if(!qbevent)break;evnt(23633);}while(r);
#line 23633 "qb64pe.bas"
}
#line 23634 "qb64pe.bas"
S_27138:;
#line 23634 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2!= 94 ))||is_error_pending()){
#line 23634 "qb64pe.bas"
if(qbevent){evnt(23634);if(r)goto S_27138;}
#line 23636 "qb64pe.bas"
do{
#line 23636 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I2=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_new_txt_len(",",1),0);
#line 23636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23636 "qb64pe.bas"
if(!qbevent)break;evnt(23636);}while(r);
#line 23637 "qb64pe.bas"
S_27140:;
#line 23637 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,*_FUNC_FIXOPERATIONORDER_REC_LONG_I2&(-(qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,*_FUNC_FIXOPERATIONORDER_REC_LONG_I2+ 1 )!= 38 ))))||is_error_pending()){
#line 23637 "qb64pe.bas"
if(qbevent){evnt(23637);if(r)goto S_27140;}
#line 23638 "qb64pe.bas"
do{
#line 23638 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-",1),qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)),qbs_new_txt_len("-",1)),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,_FUNC_FIXOPERATIONORDER_REC_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)));
#line 23638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23638 "qb64pe.bas"
if(!qbevent)break;evnt(23638);}while(r);
#line 23639 "qb64pe.bas"
}else{
#line 23640 "qb64pe.bas"
do{
#line 23640 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_add(qbs_new_txt_len("-",1),_FUNC_FIXOPERATIONORDER_REC_STRING_A2));
#line 23640 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23640 "qb64pe.bas"
if(!qbevent)break;evnt(23640);}while(r);
#line 23641 "qb64pe.bas"
}
#line 23642 "qb64pe.bas"
do{
#line 23642 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2938=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ),&(pass2939= 0 ));
#line 23642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23642 "qb64pe.bas"
if(!qbevent)break;evnt(23642);}while(r);
#line 23643 "qb64pe.bas"
do{
#line 23643 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2940=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23643 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23643 "qb64pe.bas"
if(!qbevent)break;evnt(23643);}while(r);
#line 23644 "qb64pe.bas"
do{
#line 23644 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23644 "qb64pe.bas"
if(!qbevent)break;evnt(23644);}while(r);
#line 23645 "qb64pe.bas"
S_27148:;
#line 23645 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23645 "qb64pe.bas"
if(qbevent){evnt(23645);if(r)goto S_27148;}
#line 23645 "qb64pe.bas"
do{
#line 23645 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23645 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23645 "qb64pe.bas"
if (is_error_pending()) goto skip2941;
#line 23645 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23645 "qb64pe.bas"
if (is_error_pending()) goto skip2941;
#line 23645 "qb64pe.bas"
skip2941:
#line 23645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23645 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23645 "qb64pe.bas"
if(!qbevent)break;evnt(23645);}while(r);
#line 23645 "qb64pe.bas"
}
#line 23647 "qb64pe.bas"
do{
#line 23647 "qb64pe.bas"
goto LABEL_NEGDONE;
#line 23647 "qb64pe.bas"
if(!qbevent)break;evnt(23647);}while(r);
#line 23649 "qb64pe.bas"
}
#line 23650 "qb64pe.bas"
}
#line 23654 "qb64pe.bas"
do{
#line 23654 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2942= 0 ));
#line 23654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23654 "qb64pe.bas"
if(!qbevent)break;evnt(23654);}while(r);
#line 23655 "qb64pe.bas"
do{
#line 23655 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2943=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),func_chr( 241 ));
#line 23655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23655 "qb64pe.bas"
if(!qbevent)break;evnt(23655);}while(r);
#line 23656 "qb64pe.bas"
S_27156:;
#line 23656 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23656 "qb64pe.bas"
if(qbevent){evnt(23656);if(r)goto S_27156;}
#line 23656 "qb64pe.bas"
do{
#line 23656 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23656 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23656 "qb64pe.bas"
if (is_error_pending()) goto skip2944;
#line 23656 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23656 "qb64pe.bas"
if (is_error_pending()) goto skip2944;
#line 23656 "qb64pe.bas"
skip2944:
#line 23656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23656 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23656 "qb64pe.bas"
if(!qbevent)break;evnt(23656);}while(r);
#line 23656 "qb64pe.bas"
}
#line 23658 "qb64pe.bas"
}
#line 23659 "qb64pe.bas"
}
#line 23660 "qb64pe.bas"
LABEL_NEGDONE:;
#line 23660 "qb64pe.bas"
if(qbevent){evnt(23660);r=0;}
#line 23661 "qb64pe.bas"
fornext_continue_2932:;
#line 23661 "qb64pe.bas"
}
#line 23661 "qb64pe.bas"
fornext_exit_2932:;
#line 23665 "qb64pe.bas"
}
#line 23670 "qb64pe.bas"
do{
#line 23670 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_POWNEGUSED= 0 ;
#line 23670 "qb64pe.bas"
if(!qbevent)break;evnt(23670);}while(r);
#line 23671 "qb64pe.bas"
LABEL_POWNEG:;
#line 23671 "qb64pe.bas"
if(qbevent){evnt(23671);r=0;}
#line 23672 "qb64pe.bas"
S_27164:;
#line 23672 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("^",1),__STRING1_SP),func_chr( 241 )),0)))||is_error_pending()){
#line 23672 "qb64pe.bas"
if(qbevent){evnt(23672);if(r)goto S_27164;}
#line 23673 "qb64pe.bas"
do{
#line 23673 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23673 "qb64pe.bas"
if(!qbevent)break;evnt(23673);}while(r);
#line 23674 "qb64pe.bas"
do{
#line 23674 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B1= 0 ;
#line 23674 "qb64pe.bas"
if(!qbevent)break;evnt(23674);}while(r);
#line 23675 "qb64pe.bas"
S_27167:;
#line 23675 "qb64pe.bas"
fornext_value2946= 1 ;
#line 23675 "qb64pe.bas"
fornext_finalvalue2946=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 23675 "qb64pe.bas"
fornext_step2946= 1 ;
#line 23675 "qb64pe.bas"
if (fornext_step2946<0) fornext_step_negative2946=1; else fornext_step_negative2946=0;
#line 23675 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2946;
#line 23675 "qb64pe.bas"
goto fornext_entrylabel2946;
#line 23675 "qb64pe.bas"
while(1){
#line 23675 "qb64pe.bas"
fornext_value2946=fornext_step2946+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23675 "qb64pe.bas"
fornext_entrylabel2946:
#line 23675 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2946;
#line 23675 "qb64pe.bas"
if (fornext_step_negative2946){
#line 23675 "qb64pe.bas"
if (fornext_value2946<fornext_finalvalue2946) break;
#line 23675 "qb64pe.bas"
}else{
#line 23675 "qb64pe.bas"
if (fornext_value2946>fornext_finalvalue2946) break;
#line 23675 "qb64pe.bas"
}
#line 23675 "qb64pe.bas"
fornext_error2946:;
#line 23675 "qb64pe.bas"
if(qbevent){evnt(23675);if(r)goto S_27167;}
#line 23676 "qb64pe.bas"
do{
#line 23676 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23676 "qb64pe.bas"
if(!qbevent)break;evnt(23676);}while(r);
#line 23677 "qb64pe.bas"
do{
#line 23677 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23677 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23677 "qb64pe.bas"
if(!qbevent)break;evnt(23677);}while(r);
#line 23678 "qb64pe.bas"
S_27170:;
#line 23678 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))||is_error_pending()){
#line 23678 "qb64pe.bas"
if(qbevent){evnt(23678);if(r)goto S_27170;}
#line 23678 "qb64pe.bas"
do{
#line 23678 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23678 "qb64pe.bas"
if(!qbevent)break;evnt(23678);}while(r);
#line 23678 "qb64pe.bas"
}
#line 23679 "qb64pe.bas"
S_27173:;
#line 23679 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))||is_error_pending()){
#line 23679 "qb64pe.bas"
if(qbevent){evnt(23679);if(r)goto S_27173;}
#line 23679 "qb64pe.bas"
do{
#line 23679 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23679 "qb64pe.bas"
if(!qbevent)break;evnt(23679);}while(r);
#line 23679 "qb64pe.bas"
}
#line 23680 "qb64pe.bas"
S_27176:;
#line 23680 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23680 "qb64pe.bas"
if(qbevent){evnt(23680);if(r)goto S_27176;}
#line 23681 "qb64pe.bas"
S_27177:;
#line 23681 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_B1)||is_error_pending()){
#line 23681 "qb64pe.bas"
if(qbevent){evnt(23681);if(r)goto S_27177;}
#line 23682 "qb64pe.bas"
S_27178:;
#line 23682 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_A2)))||is_error_pending()){
#line 23682 "qb64pe.bas"
if(qbevent){evnt(23682);if(r)goto S_27178;}
#line 23683 "qb64pe.bas"
S_27179:;
#line 23683 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,qbs_new_txt_len("^",1)))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,func_chr( 241 )))&(qbs_notequal(qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_A2),qbs_new_txt_len("NOT",3)))))||is_error_pending()){
#line 23683 "qb64pe.bas"
if(qbevent){evnt(23683);if(r)goto S_27179;}
#line 23684 "qb64pe.bas"
do{
#line 23684 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2947=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_new_txt_len("}",1));
#line 23684 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23684 "qb64pe.bas"
if(!qbevent)break;evnt(23684);}while(r);
#line 23685 "qb64pe.bas"
do{
#line 23685 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_B1,qbs_new_txt_len("{",1));
#line 23685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23685 "qb64pe.bas"
if(!qbevent)break;evnt(23685);}while(r);
#line 23686 "qb64pe.bas"
do{
#line 23686 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 2 ;
#line 23686 "qb64pe.bas"
if(!qbevent)break;evnt(23686);}while(r);
#line 23687 "qb64pe.bas"
S_27183:;
#line 23687 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23687 "qb64pe.bas"
if(qbevent){evnt(23687);if(r)goto S_27183;}
#line 23687 "qb64pe.bas"
do{
#line 23687 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23687 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23687 "qb64pe.bas"
if (is_error_pending()) goto skip2948;
#line 23687 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23687 "qb64pe.bas"
if (is_error_pending()) goto skip2948;
#line 23687 "qb64pe.bas"
skip2948:
#line 23687 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23687 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23687 "qb64pe.bas"
if(!qbevent)break;evnt(23687);}while(r);
#line 23687 "qb64pe.bas"
}
#line 23688 "qb64pe.bas"
do{
#line 23688 "qb64pe.bas"
goto LABEL_POWNEG;
#line 23688 "qb64pe.bas"
if(!qbevent)break;evnt(23688);}while(r);
#line 23689 "qb64pe.bas"
do{
#line 23689 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_POWNEGUSED= 1 ;
#line 23689 "qb64pe.bas"
if(!qbevent)break;evnt(23689);}while(r);
#line 23690 "qb64pe.bas"
}
#line 23691 "qb64pe.bas"
}
#line 23692 "qb64pe.bas"
}
#line 23693 "qb64pe.bas"
S_27191:;
#line 23693 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 94 ))||is_error_pending()){
#line 23693 "qb64pe.bas"
if(qbevent){evnt(23693);if(r)goto S_27191;}
#line 23694 "qb64pe.bas"
S_27192:;
#line 23694 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2949=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )),func_chr( 241 ))))||is_error_pending()){
#line 23694 "qb64pe.bas"
if(qbevent){evnt(23694);if(r)goto S_27192;}
#line 23694 "qb64pe.bas"
do{
#line 23694 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B1=*_FUNC_FIXOPERATIONORDER_REC_LONG_I;
#line 23694 "qb64pe.bas"
if(!qbevent)break;evnt(23694);}while(r);
#line 23694 "qb64pe.bas"
do{
#line 23694 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ;
#line 23694 "qb64pe.bas"
if(!qbevent)break;evnt(23694);}while(r);
#line 23694 "qb64pe.bas"
}
#line 23695 "qb64pe.bas"
}
#line 23696 "qb64pe.bas"
}
#line 23697 "qb64pe.bas"
fornext_continue_2945:;
#line 23697 "qb64pe.bas"
}
#line 23697 "qb64pe.bas"
fornext_exit_2945:;
#line 23698 "qb64pe.bas"
S_27199:;
#line 23698 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_B1)||is_error_pending()){
#line 23698 "qb64pe.bas"
if(qbevent){evnt(23698);if(r)goto S_27199;}
#line 23699 "qb64pe.bas"
do{
#line 23699 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_B1,qbs_new_txt_len("{",1));
#line 23699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23699 "qb64pe.bas"
if(!qbevent)break;evnt(23699);}while(r);
#line 23700 "qb64pe.bas"
do{
#line 23700 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_A,__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23700 "qb64pe.bas"
if(!qbevent)break;evnt(23700);}while(r);
#line 23701 "qb64pe.bas"
do{
#line 23701 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 2 ;
#line 23701 "qb64pe.bas"
if(!qbevent)break;evnt(23701);}while(r);
#line 23702 "qb64pe.bas"
S_27203:;
#line 23702 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23702 "qb64pe.bas"
if(qbevent){evnt(23702);if(r)goto S_27203;}
#line 23702 "qb64pe.bas"
do{
#line 23702 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23702 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23702 "qb64pe.bas"
if (is_error_pending()) goto skip2950;
#line 23702 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23702 "qb64pe.bas"
if (is_error_pending()) goto skip2950;
#line 23702 "qb64pe.bas"
skip2950:
#line 23702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23702 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23702 "qb64pe.bas"
if(!qbevent)break;evnt(23702);}while(r);
#line 23702 "qb64pe.bas"
}
#line 23703 "qb64pe.bas"
do{
#line 23703 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_POWNEGUSED= 1 ;
#line 23703 "qb64pe.bas"
if(!qbevent)break;evnt(23703);}while(r);
#line 23704 "qb64pe.bas"
do{
#line 23704 "qb64pe.bas"
goto LABEL_POWNEG;
#line 23704 "qb64pe.bas"
if(!qbevent)break;evnt(23704);}while(r);
#line 23705 "qb64pe.bas"
}
#line 23707 "qb64pe.bas"
}
#line 23711 "qb64pe.bas"
LABEL_NOT_RECHECK:;
#line 23711 "qb64pe.bas"
if(qbevent){evnt(23711);r=0;}
#line 23712 "qb64pe.bas"
do{
#line 23712 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO= 255 ;
#line 23712 "qb64pe.bas"
if(!qbevent)break;evnt(23712);}while(r);
#line 23713 "qb64pe.bas"
do{
#line 23713 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO= 0 ;
#line 23713 "qb64pe.bas"
if(!qbevent)break;evnt(23713);}while(r);
#line 23714 "qb64pe.bas"
do{
#line 23714 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23714 "qb64pe.bas"
if(!qbevent)break;evnt(23714);}while(r);
#line 23715 "qb64pe.bas"
S_27213:;
#line 23715 "qb64pe.bas"
fornext_value2952= 1 ;
#line 23715 "qb64pe.bas"
fornext_finalvalue2952=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 23715 "qb64pe.bas"
fornext_step2952= 1 ;
#line 23715 "qb64pe.bas"
if (fornext_step2952<0) fornext_step_negative2952=1; else fornext_step_negative2952=0;
#line 23715 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2952;
#line 23715 "qb64pe.bas"
goto fornext_entrylabel2952;
#line 23715 "qb64pe.bas"
while(1){
#line 23715 "qb64pe.bas"
fornext_value2952=fornext_step2952+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23715 "qb64pe.bas"
fornext_entrylabel2952:
#line 23715 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2952;
#line 23715 "qb64pe.bas"
if (fornext_step_negative2952){
#line 23715 "qb64pe.bas"
if (fornext_value2952<fornext_finalvalue2952) break;
#line 23715 "qb64pe.bas"
}else{
#line 23715 "qb64pe.bas"
if (fornext_value2952>fornext_finalvalue2952) break;
#line 23715 "qb64pe.bas"
}
#line 23715 "qb64pe.bas"
fornext_error2952:;
#line 23715 "qb64pe.bas"
if(qbevent){evnt(23715);if(r)goto S_27213;}
#line 23716 "qb64pe.bas"
do{
#line 23716 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23716 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23716 "qb64pe.bas"
if(!qbevent)break;evnt(23716);}while(r);
#line 23717 "qb64pe.bas"
do{
#line 23717 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23717 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23717 "qb64pe.bas"
if(!qbevent)break;evnt(23717);}while(r);
#line 23718 "qb64pe.bas"
S_27216:;
#line 23718 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 23718 "qb64pe.bas"
if(qbevent){evnt(23718);if(r)goto S_27216;}
#line 23718 "qb64pe.bas"
do{
#line 23718 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23718 "qb64pe.bas"
if(!qbevent)break;evnt(23718);}while(r);
#line 23718 "qb64pe.bas"
}
#line 23719 "qb64pe.bas"
S_27219:;
#line 23719 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 23719 "qb64pe.bas"
if(qbevent){evnt(23719);if(r)goto S_27219;}
#line 23719 "qb64pe.bas"
do{
#line 23719 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23719 "qb64pe.bas"
if(!qbevent)break;evnt(23719);}while(r);
#line 23719 "qb64pe.bas"
}
#line 23720 "qb64pe.bas"
S_27222:;
#line 23720 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23720 "qb64pe.bas"
if(qbevent){evnt(23720);if(r)goto S_27222;}
#line 23721 "qb64pe.bas"
do{
#line 23721 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23721 "qb64pe.bas"
if(!qbevent)break;evnt(23721);}while(r);
#line 23722 "qb64pe.bas"
S_27224:;
#line 23722 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_OP)||is_error_pending()){
#line 23722 "qb64pe.bas"
if(qbevent){evnt(23722);if(r)goto S_27224;}
#line 23723 "qb64pe.bas"
S_27225:;
#line 23723 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_OP<*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO))||is_error_pending()){
#line 23723 "qb64pe.bas"
if(qbevent){evnt(23723);if(r)goto S_27225;}
#line 23723 "qb64pe.bas"
do{
#line 23723 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO=*_FUNC_FIXOPERATIONORDER_REC_LONG_OP;
#line 23723 "qb64pe.bas"
if(!qbevent)break;evnt(23723);}while(r);
#line 23723 "qb64pe.bas"
}
#line 23724 "qb64pe.bas"
S_27228:;
#line 23724 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_OP>*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO))||is_error_pending()){
#line 23724 "qb64pe.bas"
if(qbevent){evnt(23724);if(r)goto S_27228;}
#line 23724 "qb64pe.bas"
do{
#line 23724 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO=*_FUNC_FIXOPERATIONORDER_REC_LONG_OP;
#line 23724 "qb64pe.bas"
if(!qbevent)break;evnt(23724);}while(r);
#line 23724 "qb64pe.bas"
}
#line 23725 "qb64pe.bas"
}
#line 23726 "qb64pe.bas"
}
#line 23727 "qb64pe.bas"
fornext_continue_2951:;
#line 23727 "qb64pe.bas"
}
#line 23727 "qb64pe.bas"
fornext_exit_2951:;
#line 23731 "qb64pe.bas"
S_27234:;
#line 23731 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO!= 0 ))||is_error_pending()){
#line 23731 "qb64pe.bas"
if(qbevent){evnt(23731);if(r)goto S_27234;}
#line 23732 "qb64pe.bas"
S_27235:;
#line 23732 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO))||is_error_pending()){
#line 23732 "qb64pe.bas"
if(qbevent){evnt(23732);if(r)goto S_27235;}
#line 23735 "qb64pe.bas"
S_27236:;
#line 23735 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO== 9 ))||is_error_pending()){
#line 23735 "qb64pe.bas"
if(qbevent){evnt(23735);if(r)goto S_27236;}
#line 23738 "qb64pe.bas"
S_27237:;
#line 23738 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_N== 1 ))||is_error_pending()){
#line 23738 "qb64pe.bas"
if(qbevent){evnt(23738);if(r)goto S_27237;}
#line 23738 "qb64pe.bas"
do{
#line 23738 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16));
#line 23738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23738 "qb64pe.bas"
if(!qbevent)break;evnt(23738);}while(r);
#line 23738 "qb64pe.bas"
do{
#line 23738 "qb64pe.bas"
goto exit_subfunc;
#line 23738 "qb64pe.bas"
if(!qbevent)break;evnt(23738);}while(r);
#line 23738 "qb64pe.bas"
}
#line 23739 "qb64pe.bas"
do{
#line 23739 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23739 "qb64pe.bas"
if(!qbevent)break;evnt(23739);}while(r);
#line 23740 "qb64pe.bas"
S_27242:;
#line 23740 "qb64pe.bas"
fornext_value2954= 1 ;
#line 23740 "qb64pe.bas"
fornext_finalvalue2954=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 23740 "qb64pe.bas"
fornext_step2954= 1 ;
#line 23740 "qb64pe.bas"
if (fornext_step2954<0) fornext_step_negative2954=1; else fornext_step_negative2954=0;
#line 23740 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2954;
#line 23740 "qb64pe.bas"
goto fornext_entrylabel2954;
#line 23740 "qb64pe.bas"
while(1){
#line 23740 "qb64pe.bas"
fornext_value2954=fornext_step2954+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23740 "qb64pe.bas"
fornext_entrylabel2954:
#line 23740 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2954;
#line 23740 "qb64pe.bas"
if (fornext_step_negative2954){
#line 23740 "qb64pe.bas"
if (fornext_value2954<fornext_finalvalue2954) break;
#line 23740 "qb64pe.bas"
}else{
#line 23740 "qb64pe.bas"
if (fornext_value2954>fornext_finalvalue2954) break;
#line 23740 "qb64pe.bas"
}
#line 23740 "qb64pe.bas"
fornext_error2954:;
#line 23740 "qb64pe.bas"
if(qbevent){evnt(23740);if(r)goto S_27242;}
#line 23741 "qb64pe.bas"
do{
#line 23741 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23741 "qb64pe.bas"
if(!qbevent)break;evnt(23741);}while(r);
#line 23742 "qb64pe.bas"
do{
#line 23742 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23742 "qb64pe.bas"
if(!qbevent)break;evnt(23742);}while(r);
#line 23743 "qb64pe.bas"
S_27245:;
#line 23743 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 23743 "qb64pe.bas"
if(qbevent){evnt(23743);if(r)goto S_27245;}
#line 23743 "qb64pe.bas"
do{
#line 23743 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23743 "qb64pe.bas"
if(!qbevent)break;evnt(23743);}while(r);
#line 23743 "qb64pe.bas"
}
#line 23744 "qb64pe.bas"
S_27248:;
#line 23744 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 23744 "qb64pe.bas"
if(qbevent){evnt(23744);if(r)goto S_27248;}
#line 23744 "qb64pe.bas"
do{
#line 23744 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23744 "qb64pe.bas"
if(!qbevent)break;evnt(23744);}while(r);
#line 23744 "qb64pe.bas"
}
#line 23745 "qb64pe.bas"
S_27251:;
#line 23745 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23745 "qb64pe.bas"
if(qbevent){evnt(23745);if(r)goto S_27251;}
#line 23746 "qb64pe.bas"
S_27252:;
#line 23746 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_A2),qbs_new_txt_len("NOT",3))))||is_error_pending()){
#line 23746 "qb64pe.bas"
if(qbevent){evnt(23746);if(r)goto S_27252;}
#line 23747 "qb64pe.bas"
S_27253:;
#line 23747 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I==*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 23747 "qb64pe.bas"
if(qbevent){evnt(23747);if(r)goto S_27253;}
#line 23747 "qb64pe.bas"
do{
#line 23747 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16));
#line 23747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23747 "qb64pe.bas"
if(!qbevent)break;evnt(23747);}while(r);
#line 23747 "qb64pe.bas"
do{
#line 23747 "qb64pe.bas"
goto exit_subfunc;
#line 23747 "qb64pe.bas"
if(!qbevent)break;evnt(23747);}while(r);
#line 23747 "qb64pe.bas"
}
#line 23748 "qb64pe.bas"
S_27257:;
#line 23748 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I== 1 ))||is_error_pending()){
#line 23748 "qb64pe.bas"
if(qbevent){evnt(23748);if(r)goto S_27257;}
#line 23748 "qb64pe.bas"
do{
#line 23748 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2955= 2 ),_FUNC_FIXOPERATIONORDER_REC_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23748 "qb64pe.bas"
if(!qbevent)break;evnt(23748);}while(r);
#line 23748 "qb64pe.bas"
do{
#line 23748 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 2 ;
#line 23748 "qb64pe.bas"
if(!qbevent)break;evnt(23748);}while(r);
#line 23748 "qb64pe.bas"
do{
#line 23748 "qb64pe.bas"
goto LABEL_LCO_BRACKETTING_DONE;
#line 23748 "qb64pe.bas"
if(!qbevent)break;evnt(23748);}while(r);
#line 23748 "qb64pe.bas"
}
#line 23749 "qb64pe.bas"
do{
#line 23749 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2956= 1 ),&(pass2957=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 )),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2958=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ),_FUNC_FIXOPERATIONORDER_REC_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23749 "qb64pe.bas"
if(!qbevent)break;evnt(23749);}while(r);
#line 23750 "qb64pe.bas"
do{
#line 23750 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 4 ;
#line 23750 "qb64pe.bas"
if(!qbevent)break;evnt(23750);}while(r);
#line 23751 "qb64pe.bas"
do{
#line 23751 "qb64pe.bas"
goto LABEL_NOT_RECHECK;
#line 23751 "qb64pe.bas"
if(!qbevent)break;evnt(23751);}while(r);
#line 23752 "qb64pe.bas"
}
#line 23753 "qb64pe.bas"
}
#line 23754 "qb64pe.bas"
fornext_continue_2953:;
#line 23754 "qb64pe.bas"
}
#line 23754 "qb64pe.bas"
fornext_exit_2953:;
#line 23755 "qb64pe.bas"
}
#line 23757 "qb64pe.bas"
do{
#line 23757 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N2=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 23757 "qb64pe.bas"
if(!qbevent)break;evnt(23757);}while(r);
#line 23758 "qb64pe.bas"
do{
#line 23758 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23758 "qb64pe.bas"
if(!qbevent)break;evnt(23758);}while(r);
#line 23759 "qb64pe.bas"
do{
#line 23759 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,qbs_new_txt_len("{",1));
#line 23759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23759 "qb64pe.bas"
if(!qbevent)break;evnt(23759);}while(r);
#line 23760 "qb64pe.bas"
do{
#line 23760 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N= 1 ;
#line 23760 "qb64pe.bas"
if(!qbevent)break;evnt(23760);}while(r);
#line 23761 "qb64pe.bas"
S_27273:;
#line 23761 "qb64pe.bas"
fornext_value2960= 1 ;
#line 23761 "qb64pe.bas"
fornext_finalvalue2960=*_FUNC_FIXOPERATIONORDER_REC_LONG_N2;
#line 23761 "qb64pe.bas"
fornext_step2960= 1 ;
#line 23761 "qb64pe.bas"
if (fornext_step2960<0) fornext_step_negative2960=1; else fornext_step_negative2960=0;
#line 23761 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2960;
#line 23761 "qb64pe.bas"
goto fornext_entrylabel2960;
#line 23761 "qb64pe.bas"
while(1){
#line 23761 "qb64pe.bas"
fornext_value2960=fornext_step2960+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23761 "qb64pe.bas"
fornext_entrylabel2960:
#line 23761 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2960;
#line 23761 "qb64pe.bas"
if (fornext_step_negative2960){
#line 23761 "qb64pe.bas"
if (fornext_value2960<fornext_finalvalue2960) break;
#line 23761 "qb64pe.bas"
}else{
#line 23761 "qb64pe.bas"
if (fornext_value2960>fornext_finalvalue2960) break;
#line 23761 "qb64pe.bas"
}
#line 23761 "qb64pe.bas"
fornext_error2960:;
#line 23761 "qb64pe.bas"
if(qbevent){evnt(23761);if(r)goto S_27273;}
#line 23762 "qb64pe.bas"
do{
#line 23762 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23762 "qb64pe.bas"
if(!qbevent)break;evnt(23762);}while(r);
#line 23763 "qb64pe.bas"
do{
#line 23763 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23763 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23763 "qb64pe.bas"
if(!qbevent)break;evnt(23763);}while(r);
#line 23764 "qb64pe.bas"
S_27276:;
#line 23764 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 23764 "qb64pe.bas"
if(qbevent){evnt(23764);if(r)goto S_27276;}
#line 23764 "qb64pe.bas"
do{
#line 23764 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23764 "qb64pe.bas"
if(!qbevent)break;evnt(23764);}while(r);
#line 23764 "qb64pe.bas"
}
#line 23765 "qb64pe.bas"
S_27279:;
#line 23765 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 23765 "qb64pe.bas"
if(qbevent){evnt(23765);if(r)goto S_27279;}
#line 23765 "qb64pe.bas"
do{
#line 23765 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23765 "qb64pe.bas"
if(!qbevent)break;evnt(23765);}while(r);
#line 23765 "qb64pe.bas"
}
#line 23766 "qb64pe.bas"
S_27282:;
#line 23766 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23766 "qb64pe.bas"
if(qbevent){evnt(23766);if(r)goto S_27282;}
#line 23767 "qb64pe.bas"
do{
#line 23767 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 23767 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23767 "qb64pe.bas"
if(!qbevent)break;evnt(23767);}while(r);
#line 23768 "qb64pe.bas"
S_27284:;
#line 23768 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_OP==*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO))||is_error_pending()){
#line 23768 "qb64pe.bas"
if(qbevent){evnt(23768);if(r)goto S_27284;}
#line 23769 "qb64pe.bas"
S_27285:;
#line 23769 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I== 1 ))||is_error_pending()){
#line 23769 "qb64pe.bas"
if(qbevent){evnt(23769);if(r)goto S_27285;}
#line 23770 "qb64pe.bas"
do{
#line 23770 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,__STRING1_SP),qbs_new_txt_len("{",1)));
#line 23770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23770 "qb64pe.bas"
if(!qbevent)break;evnt(23770);}while(r);
#line 23771 "qb64pe.bas"
do{
#line 23771 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N= 2 ;
#line 23771 "qb64pe.bas"
if(!qbevent)break;evnt(23771);}while(r);
#line 23772 "qb64pe.bas"
}else{
#line 23773 "qb64pe.bas"
S_27289:;
#line 23773 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I==*_FUNC_FIXOPERATIONORDER_REC_LONG_N2))||is_error_pending()){
#line 23773 "qb64pe.bas"
if(qbevent){evnt(23773);if(r)goto S_27289;}
#line 23773 "qb64pe.bas"
do{
#line 23773 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_A2)),qbs_new_txt_len("'",1)));
#line 23773 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23773 "qb64pe.bas"
if(!qbevent)break;evnt(23773);}while(r);
#line 23773 "qb64pe.bas"
do{
#line 23773 "qb64pe.bas"
goto exit_subfunc;
#line 23773 "qb64pe.bas"
if(!qbevent)break;evnt(23773);}while(r);
#line 23773 "qb64pe.bas"
}
#line 23774 "qb64pe.bas"
do{
#line 23774 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),_FUNC_FIXOPERATIONORDER_REC_STRING_A2),__STRING1_SP),qbs_new_txt_len("{",1)));
#line 23774 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23774 "qb64pe.bas"
if(!qbevent)break;evnt(23774);}while(r);
#line 23775 "qb64pe.bas"
do{
#line 23775 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 3 ;
#line 23775 "qb64pe.bas"
if(!qbevent)break;evnt(23775);}while(r);
#line 23776 "qb64pe.bas"
}
#line 23777 "qb64pe.bas"
do{
#line 23777 "qb64pe.bas"
goto LABEL_FIXOP0;
#line 23777 "qb64pe.bas"
if(!qbevent)break;evnt(23777);}while(r);
#line 23778 "qb64pe.bas"
}
#line 23780 "qb64pe.bas"
}
#line 23781 "qb64pe.bas"
do{
#line 23781 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,__STRING1_SP),_FUNC_FIXOPERATIONORDER_REC_STRING_A2));
#line 23781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23781 "qb64pe.bas"
if(!qbevent)break;evnt(23781);}while(r);
#line 23782 "qb64pe.bas"
do{
#line 23782 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 1 ;
#line 23782 "qb64pe.bas"
if(!qbevent)break;evnt(23782);}while(r);
#line 23783 "qb64pe.bas"
LABEL_FIXOP0:;
#line 23783 "qb64pe.bas"
if(qbevent){evnt(23783);r=0;}
#line 23784 "qb64pe.bas"
fornext_continue_2959:;
#line 23784 "qb64pe.bas"
}
#line 23784 "qb64pe.bas"
fornext_exit_2959:;
#line 23785 "qb64pe.bas"
do{
#line 23785 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23785 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23785 "qb64pe.bas"
if(!qbevent)break;evnt(23785);}while(r);
#line 23786 "qb64pe.bas"
do{
#line 23786 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 1 ;
#line 23786 "qb64pe.bas"
if(!qbevent)break;evnt(23786);}while(r);
#line 23787 "qb64pe.bas"
do{
#line 23787 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_STRING_A3);
#line 23787 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23787 "qb64pe.bas"
if(!qbevent)break;evnt(23787);}while(r);
#line 23789 "qb64pe.bas"
LABEL_LCO_BRACKETTING_DONE:;
#line 23789 "qb64pe.bas"
if(qbevent){evnt(23789);r=0;}
#line 23790 "qb64pe.bas"
S_27305:;
#line 23790 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23790 "qb64pe.bas"
if(qbevent){evnt(23790);if(r)goto S_27305;}
#line 23790 "qb64pe.bas"
do{
#line 23790 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23790 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0, 0, 0);
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_REC_LONG_LCO)), 1, 0, 0);
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0);
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_REC_LONG_HCO)), 1, 0, 0);
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23790 "qb64pe.bas"
if (is_error_pending()) goto skip2961;
#line 23790 "qb64pe.bas"
skip2961:
#line 23790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23790 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23790 "qb64pe.bas"
if(!qbevent)break;evnt(23790);}while(r);
#line 23790 "qb64pe.bas"
}
#line 23793 "qb64pe.bas"
S_27308:;
#line 23793 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_POWNEGUSED)||is_error_pending()){
#line 23793 "qb64pe.bas"
if(qbevent){evnt(23793);if(r)goto S_27308;}
#line 23794 "qb64pe.bas"
do{
#line 23794 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23794 "qb64pe.bas"
if(!qbevent)break;evnt(23794);}while(r);
#line 23795 "qb64pe.bas"
do{
#line 23795 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I= 0 ;
#line 23795 "qb64pe.bas"
if(!qbevent)break;evnt(23795);}while(r);
#line 23796 "qb64pe.bas"
S_27311:;
#line 23796 "qb64pe.bas"
do{
#line 23796 "qb64pe.bas"
if(qbevent){evnt(23796);if(r)goto S_27311;}
#line 23797 "qb64pe.bas"
do{
#line 23797 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ;
#line 23797 "qb64pe.bas"
if(!qbevent)break;evnt(23797);}while(r);
#line 23798 "qb64pe.bas"
S_27313:;
#line 23798 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I>*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 23798 "qb64pe.bas"
if(qbevent){evnt(23798);if(r)goto S_27313;}
#line 23798 "qb64pe.bas"
do{
#line 23798 "qb64pe.bas"
goto dl_exit_2962;
#line 23798 "qb64pe.bas"
if(!qbevent)break;evnt(23798);}while(r);
#line 23798 "qb64pe.bas"
}
#line 23799 "qb64pe.bas"
do{
#line 23799 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23799 "qb64pe.bas"
if(!qbevent)break;evnt(23799);}while(r);
#line 23800 "qb64pe.bas"
S_27317:;
#line 23800 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 23800 "qb64pe.bas"
if(qbevent){evnt(23800);if(r)goto S_27317;}
#line 23800 "qb64pe.bas"
do{
#line 23800 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23800 "qb64pe.bas"
if(!qbevent)break;evnt(23800);}while(r);
#line 23800 "qb64pe.bas"
}
#line 23801 "qb64pe.bas"
S_27320:;
#line 23801 "qb64pe.bas"
if (((((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B!= 0 )))||is_error_pending()){
#line 23801 "qb64pe.bas"
if(qbevent){evnt(23801);if(r)goto S_27320;}
#line 23802 "qb64pe.bas"
do{
#line 23802 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2963= 0 ));
#line 23802 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23802 "qb64pe.bas"
if(!qbevent)break;evnt(23802);}while(r);
#line 23803 "qb64pe.bas"
do{
#line 23803 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N- 1 ;
#line 23803 "qb64pe.bas"
if(!qbevent)break;evnt(23803);}while(r);
#line 23804 "qb64pe.bas"
do{
#line 23804 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ;
#line 23804 "qb64pe.bas"
if(!qbevent)break;evnt(23804);}while(r);
#line 23805 "qb64pe.bas"
S_27324:;
#line 23805 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 23805 "qb64pe.bas"
if(qbevent){evnt(23805);if(r)goto S_27324;}
#line 23805 "qb64pe.bas"
do{
#line 23805 "qb64pe.bas"
tab_spc_cr_size=2;
#line 23805 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 23805 "qb64pe.bas"
if (is_error_pending()) goto skip2964;
#line 23805 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^- {} removed:",32),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 0, 1);
#line 23805 "qb64pe.bas"
if (is_error_pending()) goto skip2964;
#line 23805 "qb64pe.bas"
skip2964:
#line 23805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23805 "qb64pe.bas"
tab_spc_cr_size=1;
#line 23805 "qb64pe.bas"
if(!qbevent)break;evnt(23805);}while(r);
#line 23805 "qb64pe.bas"
}
#line 23806 "qb64pe.bas"
}
#line 23807 "qb64pe.bas"
S_27328:;
#line 23807 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 23807 "qb64pe.bas"
if(qbevent){evnt(23807);if(r)goto S_27328;}
#line 23807 "qb64pe.bas"
do{
#line 23807 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23807 "qb64pe.bas"
if(!qbevent)break;evnt(23807);}while(r);
#line 23807 "qb64pe.bas"
}
#line 23808 "qb64pe.bas"
dl_continue_2962:;
#line 23808 "qb64pe.bas"
}while(1);
#line 23808 "qb64pe.bas"
dl_exit_2962:;
#line 23809 "qb64pe.bas"
}
#line 23811 "qb64pe.bas"
}
#line 23812 "qb64pe.bas"
}
#line 23815 "qb64pe.bas"
S_27335:;
#line 23815 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_A, 4 )),(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),func_chr( 241 )),__STRING1_SP)))))||is_error_pending()){
#line 23815 "qb64pe.bas"
if(qbevent){evnt(23815);if(r)goto S_27335;}
#line 23816 "qb64pe.bas"
do{
#line 23816 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2965= 2 ),_FUNC_FIXOPERATIONORDER_REC_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23816 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23816 "qb64pe.bas"
if(!qbevent)break;evnt(23816);}while(r);
#line 23816 "qb64pe.bas"
do{
#line 23816 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 2 ;
#line 23816 "qb64pe.bas"
if(!qbevent)break;evnt(23816);}while(r);
#line 23817 "qb64pe.bas"
}
#line 23818 "qb64pe.bas"
S_27339:;
#line 23818 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_A, 8 ))),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP)))))||is_error_pending()){
#line 23818 "qb64pe.bas"
if(qbevent){evnt(23818);if(r)goto S_27339;}
#line 23819 "qb64pe.bas"
do{
#line 23819 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2966= 2 ),_FUNC_FIXOPERATIONORDER_REC_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)));
#line 23819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23819 "qb64pe.bas"
if(!qbevent)break;evnt(23819);}while(r);
#line 23819 "qb64pe.bas"
do{
#line 23819 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=*_FUNC_FIXOPERATIONORDER_REC_LONG_N+ 2 ;
#line 23819 "qb64pe.bas"
if(!qbevent)break;evnt(23819);}while(r);
#line 23820 "qb64pe.bas"
}
#line 23828 "qb64pe.bas"
do{
#line 23828 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_new_txt_len("",0));
#line 23828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23828 "qb64pe.bas"
if(!qbevent)break;evnt(23828);}while(r);
#line 23829 "qb64pe.bas"
do{
#line 23829 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 23829 "qb64pe.bas"
if(!qbevent)break;evnt(23829);}while(r);
#line 23830 "qb64pe.bas"
do{
#line 23830 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C= 0 ;
#line 23830 "qb64pe.bas"
if(!qbevent)break;evnt(23830);}while(r);
#line 23831 "qb64pe.bas"
do{
#line 23831 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT= 0 ;
#line 23831 "qb64pe.bas"
if(!qbevent)break;evnt(23831);}while(r);
#line 23831 "qb64pe.bas"
do{
#line 23831 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI= 0 ;
#line 23831 "qb64pe.bas"
if(!qbevent)break;evnt(23831);}while(r);
#line 23832 "qb64pe.bas"
S_27348:;
#line 23832 "qb64pe.bas"
fornext_value2968= 1 ;
#line 23832 "qb64pe.bas"
fornext_finalvalue2968=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 23832 "qb64pe.bas"
fornext_step2968= 1 ;
#line 23832 "qb64pe.bas"
if (fornext_step2968<0) fornext_step_negative2968=1; else fornext_step_negative2968=0;
#line 23832 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2968;
#line 23832 "qb64pe.bas"
goto fornext_entrylabel2968;
#line 23832 "qb64pe.bas"
while(1){
#line 23832 "qb64pe.bas"
fornext_value2968=fornext_step2968+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 23832 "qb64pe.bas"
fornext_entrylabel2968:
#line 23832 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value2968;
#line 23832 "qb64pe.bas"
if (fornext_step_negative2968){
#line 23832 "qb64pe.bas"
if (fornext_value2968<fornext_finalvalue2968) break;
#line 23832 "qb64pe.bas"
}else{
#line 23832 "qb64pe.bas"
if (fornext_value2968>fornext_finalvalue2968) break;
#line 23832 "qb64pe.bas"
}
#line 23832 "qb64pe.bas"
fornext_error2968:;
#line 23832 "qb64pe.bas"
if(qbevent){evnt(23832);if(r)goto S_27348;}
#line 23833 "qb64pe.bas"
do{
#line 23833 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 23833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23833 "qb64pe.bas"
if(!qbevent)break;evnt(23833);}while(r);
#line 23834 "qb64pe.bas"
do{
#line 23834 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_REC_LONG_C;
#line 23834 "qb64pe.bas"
if(!qbevent)break;evnt(23834);}while(r);
#line 23835 "qb64pe.bas"
do{
#line 23835 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 23835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23835 "qb64pe.bas"
if(!qbevent)break;evnt(23835);}while(r);
#line 23837 "qb64pe.bas"
S_27352:;
#line 23837 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 23837 "qb64pe.bas"
if(qbevent){evnt(23837);if(r)goto S_27352;}
#line 23838 "qb64pe.bas"
S_27353:;
#line 23838 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B!= 0 )))||is_error_pending()){
#line 23838 "qb64pe.bas"
if(qbevent){evnt(23838);if(r)goto S_27353;}
#line 23838 "qb64pe.bas"
do{
#line 23838 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len("",0));
#line 23838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23838 "qb64pe.bas"
if(!qbevent)break;evnt(23838);}while(r);
#line 23838 "qb64pe.bas"
}
#line 23839 "qb64pe.bas"
do{
#line 23839 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 23839 "qb64pe.bas"
if(!qbevent)break;evnt(23839);}while(r);
#line 23840 "qb64pe.bas"
do{
#line 23840 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 23840 "qb64pe.bas"
if(!qbevent)break;evnt(23840);}while(r);
#line 23841 "qb64pe.bas"
}
#line 23842 "qb64pe.bas"
S_27359:;
#line 23842 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 23842 "qb64pe.bas"
if(qbevent){evnt(23842);if(r)goto S_27359;}
#line 23844 "qb64pe.bas"
do{
#line 23844 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 23844 "qb64pe.bas"
if(!qbevent)break;evnt(23844);}while(r);
#line 23847 "qb64pe.bas"
S_27361:;
#line 23847 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23847 "qb64pe.bas"
if(qbevent){evnt(23847);if(r)goto S_27361;}
#line 23848 "qb64pe.bas"
S_27362:;
#line 23848 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))||is_error_pending()){
#line 23848 "qb64pe.bas"
if(qbevent){evnt(23848);if(r)goto S_27362;}
#line 23849 "qb64pe.bas"
S_27363:;
#line 23849 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTC== 40 ))||is_error_pending()){
#line 23849 "qb64pe.bas"
if(qbevent){evnt(23849);if(r)goto S_27363;}
#line 23850 "qb64pe.bas"
S_27364:;
#line 23850 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI== 0 )))||is_error_pending()){
#line 23850 "qb64pe.bas"
if(qbevent){evnt(23850);if(r)goto S_27364;}
#line 23851 "qb64pe.bas"
S_27365:;
#line 23851 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT<= 3 )))||is_error_pending()){
#line 23851 "qb64pe.bas"
if(qbevent){evnt(23851);if(r)goto S_27365;}
#line 23852 "qb64pe.bas"
do{
#line 23852 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12));
#line 23852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23852 "qb64pe.bas"
if(!qbevent)break;evnt(23852);}while(r);
#line 23852 "qb64pe.bas"
do{
#line 23852 "qb64pe.bas"
goto exit_subfunc;
#line 23852 "qb64pe.bas"
if(!qbevent)break;evnt(23852);}while(r);
#line 23853 "qb64pe.bas"
}
#line 23854 "qb64pe.bas"
}
#line 23855 "qb64pe.bas"
}
#line 23856 "qb64pe.bas"
}
#line 23857 "qb64pe.bas"
}
#line 23859 "qb64pe.bas"
S_27373:;
#line 23859 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B!= 0 )))||is_error_pending()){
#line 23859 "qb64pe.bas"
if(qbevent){evnt(23859);if(r)goto S_27373;}
#line 23859 "qb64pe.bas"
do{
#line 23859 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len("",0));
#line 23859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23859 "qb64pe.bas"
if(!qbevent)break;evnt(23859);}while(r);
#line 23859 "qb64pe.bas"
}
#line 23860 "qb64pe.bas"
do{
#line 23860 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 23860 "qb64pe.bas"
if(!qbevent)break;evnt(23860);}while(r);
#line 23861 "qb64pe.bas"
}
#line 23863 "qb64pe.bas"
S_27378:;
#line 23863 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 23863 "qb64pe.bas"
if(qbevent){evnt(23863);if(r)goto S_27378;}
#line 23874 "qb64pe.bas"
S_27379:;
#line 23874 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 34 ))||is_error_pending()){
#line 23874 "qb64pe.bas"
if(qbevent){evnt(23874);if(r)goto S_27379;}
#line 23875 "qb64pe.bas"
do{
#line 23875 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT= 1 ;
#line 23875 "qb64pe.bas"
if(!qbevent)break;evnt(23875);}while(r);
#line 23875 "qb64pe.bas"
do{
#line 23875 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_REC_LONG_I;
#line 23875 "qb64pe.bas"
if(!qbevent)break;evnt(23875);}while(r);
#line 23881 "qb64pe.bas"
do{
#line 23881 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X2= 1 ;
#line 23881 "qb64pe.bas"
if(!qbevent)break;evnt(23881);}while(r);
#line 23882 "qb64pe.bas"
do{
#line 23882 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_REC_LONG_X2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len("\\",1),0|1);
#line 23882 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23882 "qb64pe.bas"
if(!qbevent)break;evnt(23882);}while(r);
#line 23883 "qb64pe.bas"
S_27384:;
#line 23883 "qb64pe.bas"
while((*_FUNC_FIXOPERATIONORDER_REC_LONG_X)||is_error_pending()){
#line 23883 "qb64pe.bas"
if(qbevent){evnt(23883);if(r)goto S_27384;}
#line 23884 "qb64pe.bas"
do{
#line 23884 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 1 );
#line 23884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23884 "qb64pe.bas"
if(!qbevent)break;evnt(23884);}while(r);
#line 23885 "qb64pe.bas"
S_27386:;
#line 23885 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2== 92 ))||is_error_pending()){
#line 23885 "qb64pe.bas"
if(qbevent){evnt(23885);if(r)goto S_27386;}
#line 23886 "qb64pe.bas"
do{
#line 23886 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_X- 1 )));
#line 23886 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23886 "qb64pe.bas"
if(!qbevent)break;evnt(23886);}while(r);
#line 23887 "qb64pe.bas"
do{
#line 23887 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X2=*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 1 ;
#line 23887 "qb64pe.bas"
if(!qbevent)break;evnt(23887);}while(r);
#line 23888 "qb64pe.bas"
}else{
#line 23890 "qb64pe.bas"
do{
#line 23890 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C3=((qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 3 )- 48 ))+((qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 2 )- 48 )* 8 )+((qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 1 )- 48 )* 64 );
#line 23890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23890 "qb64pe.bas"
if(!qbevent)break;evnt(23890);}while(r);
#line 23891 "qb64pe.bas"
do{
#line 23891 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X- 1 ),func_chr(*_FUNC_FIXOPERATIONORDER_REC_LONG_C3)),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_X- 3 )));
#line 23891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23891 "qb64pe.bas"
if(!qbevent)break;evnt(23891);}while(r);
#line 23892 "qb64pe.bas"
do{
#line 23892 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X2=*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 1 ;
#line 23892 "qb64pe.bas"
if(!qbevent)break;evnt(23892);}while(r);
#line 23893 "qb64pe.bas"
}
#line 23894 "qb64pe.bas"
do{
#line 23894 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_REC_LONG_X2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len("\\",1),0|1);
#line 23894 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23894 "qb64pe.bas"
if(!qbevent)break;evnt(23894);}while(r);
#line 23895 "qb64pe.bas"
dl_continue_2969:;
#line 23895 "qb64pe.bas"
}
#line 23895 "qb64pe.bas"
dl_exit_2969:;
#line 23897 "qb64pe.bas"
do{
#line 23897 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1);
#line 23897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23897 "qb64pe.bas"
if(!qbevent)break;evnt(23897);}while(r);
#line 23897 "qb64pe.bas"
S_27397:;
#line 23897 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_X)||is_error_pending()){
#line 23897 "qb64pe.bas"
if(qbevent){evnt(23897);if(r)goto S_27397;}
#line 23897 "qb64pe.bas"
do{
#line 23897 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X));
#line 23897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23897 "qb64pe.bas"
if(!qbevent)break;evnt(23897);}while(r);
#line 23897 "qb64pe.bas"
}
#line 23898 "qb64pe.bas"
do{
#line 23898 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 23898 "qb64pe.bas"
if(!qbevent)break;evnt(23898);}while(r);
#line 23899 "qb64pe.bas"
}
#line 23902 "qb64pe.bas"
S_27402:;
#line 23902 "qb64pe.bas"
if (((((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 45 )))||is_error_pending()){
#line 23902 "qb64pe.bas"
if(qbevent){evnt(23902);if(r)goto S_27402;}
#line 23903 "qb64pe.bas"
do{
#line 23903 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT= 2 ;
#line 23903 "qb64pe.bas"
if(!qbevent)break;evnt(23903);}while(r);
#line 23903 "qb64pe.bas"
do{
#line 23903 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_REC_LONG_I;
#line 23903 "qb64pe.bas"
if(!qbevent)break;evnt(23903);}while(r);
#line 23905 "qb64pe.bas"
do{
#line 23905 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len(",",1),0);
#line 23905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23905 "qb64pe.bas"
if(!qbevent)break;evnt(23905);}while(r);
#line 23906 "qb64pe.bas"
S_27406:;
#line 23906 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_X)||is_error_pending()){
#line 23906 "qb64pe.bas"
if(qbevent){evnt(23906);if(r)goto S_27406;}
#line 23907 "qb64pe.bas"
do{
#line 23907 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2972= 0 ));
#line 23907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23907 "qb64pe.bas"
if(!qbevent)break;evnt(23907);}while(r);
#line 23907 "qb64pe.bas"
do{
#line 23907 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2973=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,*_FUNC_FIXOPERATIONORDER_REC_LONG_X- 1 ));
#line 23907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23907 "qb64pe.bas"
if(!qbevent)break;evnt(23907);}while(r);
#line 23908 "qb64pe.bas"
do{
#line 23908 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_X));
#line 23908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23908 "qb64pe.bas"
if(!qbevent)break;evnt(23908);}while(r);
#line 23909 "qb64pe.bas"
}
#line 23911 "qb64pe.bas"
S_27411:;
#line 23911 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_X== 0 ))||is_error_pending()){
#line 23911 "qb64pe.bas"
if(qbevent){evnt(23911);if(r)goto S_27411;}
#line 23912 "qb64pe.bas"
do{
#line 23912 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len);
#line 23912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23912 "qb64pe.bas"
if(!qbevent)break;evnt(23912);}while(r);
#line 23913 "qb64pe.bas"
S_27413:;
#line 23913 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2> 57 )))||is_error_pending()){
#line 23913 "qb64pe.bas"
if(qbevent){evnt(23913);if(r)goto S_27413;}
#line 23914 "qb64pe.bas"
do{
#line 23914 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X= 1 ;
#line 23914 "qb64pe.bas"
if(!qbevent)break;evnt(23914);}while(r);
#line 23915 "qb64pe.bas"
}else{
#line 23916 "qb64pe.bas"
do{
#line 23916 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_new_txt_len("`",1),0);
#line 23916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23916 "qb64pe.bas"
if(!qbevent)break;evnt(23916);}while(r);
#line 23917 "qb64pe.bas"
}
#line 23918 "qb64pe.bas"
}
#line 23921 "qb64pe.bas"
S_27419:;
#line 23921 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_X== 0 ))||is_error_pending()){
#line 23921 "qb64pe.bas"
if(qbevent){evnt(23921);if(r)goto S_27419;}
#line 23922 "qb64pe.bas"
do{
#line 23922 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 23922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23922 "qb64pe.bas"
if(!qbevent)break;evnt(23922);}while(r);
#line 23923 "qb64pe.bas"
do{
#line 23923 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("",0));
#line 23923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23923 "qb64pe.bas"
if(!qbevent)break;evnt(23923);}while(r);
#line 23924 "qb64pe.bas"
S_27422:;
#line 23924 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 45 ))||is_error_pending()){
#line 23924 "qb64pe.bas"
if(qbevent){evnt(23924);if(r)goto S_27422;}
#line 23925 "qb64pe.bas"
do{
#line 23925 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("&&",2));
#line 23925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23925 "qb64pe.bas"
if(!qbevent)break;evnt(23925);}while(r);
#line 23926 "qb64pe.bas"
S_27424:;
#line 23926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessthan(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("-2147483648",11)))&(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len== 11 ))))|(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len< 11 ))))||is_error_pending()){
#line 23926 "qb64pe.bas"
if(qbevent){evnt(23926);if(r)goto S_27424;}
#line 23926 "qb64pe.bas"
do{
#line 23926 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("&",1));
#line 23926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23926 "qb64pe.bas"
if(!qbevent)break;evnt(23926);}while(r);
#line 23926 "qb64pe.bas"
}
#line 23927 "qb64pe.bas"
S_27427:;
#line 23927 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("-32768",6)))&(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len== 6 ))))|(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len< 6 ))))||is_error_pending()){
#line 23927 "qb64pe.bas"
if(qbevent){evnt(23927);if(r)goto S_27427;}
#line 23927 "qb64pe.bas"
do{
#line 23927 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("%",1));
#line 23927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23927 "qb64pe.bas"
if(!qbevent)break;evnt(23927);}while(r);
#line 23927 "qb64pe.bas"
}
#line 23928 "qb64pe.bas"
}else{
#line 23929 "qb64pe.bas"
do{
#line 23929 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("~&&",3));
#line 23929 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23929 "qb64pe.bas"
if(!qbevent)break;evnt(23929);}while(r);
#line 23930 "qb64pe.bas"
S_27432:;
#line 23930 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("9223372036854775807",19)))&(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len== 19 ))))|(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len< 19 ))))||is_error_pending()){
#line 23930 "qb64pe.bas"
if(qbevent){evnt(23930);if(r)goto S_27432;}
#line 23930 "qb64pe.bas"
do{
#line 23930 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("&&",2));
#line 23930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23930 "qb64pe.bas"
if(!qbevent)break;evnt(23930);}while(r);
#line 23930 "qb64pe.bas"
}
#line 23931 "qb64pe.bas"
S_27435:;
#line 23931 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("2147483647",10)))&(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len== 10 ))))|(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len< 10 ))))||is_error_pending()){
#line 23931 "qb64pe.bas"
if(qbevent){evnt(23931);if(r)goto S_27435;}
#line 23931 "qb64pe.bas"
do{
#line 23931 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("&",1));
#line 23931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23931 "qb64pe.bas"
if(!qbevent)break;evnt(23931);}while(r);
#line 23931 "qb64pe.bas"
}
#line 23932 "qb64pe.bas"
S_27438:;
#line 23932 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("32767",5)))&(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len== 5 ))))|(-(_FUNC_FIXOPERATIONORDER_REC_STRING_F3->len< 5 ))))||is_error_pending()){
#line 23932 "qb64pe.bas"
if(qbevent){evnt(23932);if(r)goto S_27438;}
#line 23932 "qb64pe.bas"
do{
#line 23932 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("%",1));
#line 23932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23932 "qb64pe.bas"
if(!qbevent)break;evnt(23932);}while(r);
#line 23932 "qb64pe.bas"
}
#line 23933 "qb64pe.bas"
}
#line 23934 "qb64pe.bas"
do{
#line 23934 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 23934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23934 "qb64pe.bas"
if(!qbevent)break;evnt(23934);}while(r);
#line 23935 "qb64pe.bas"
do{
#line 23935 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2986= 0 ));
#line 23935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23935 "qb64pe.bas"
if(!qbevent)break;evnt(23935);}while(r);
#line 23935 "qb64pe.bas"
do{
#line 23935 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2987=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_REC_STRING_F3);
#line 23935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23935 "qb64pe.bas"
if(!qbevent)break;evnt(23935);}while(r);
#line 23936 "qb64pe.bas"
}
#line 23938 "qb64pe.bas"
do{
#line 23938 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 23938 "qb64pe.bas"
if(!qbevent)break;evnt(23938);}while(r);
#line 23939 "qb64pe.bas"
}
#line 23942 "qb64pe.bas"
S_27448:;
#line 23942 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_F2)))||is_error_pending()){
#line 23942 "qb64pe.bas"
if(qbevent){evnt(23942);if(r)goto S_27448;}
#line 23943 "qb64pe.bas"
do{
#line 23943 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT= 3 ;
#line 23943 "qb64pe.bas"
if(!qbevent)break;evnt(23943);}while(r);
#line 23943 "qb64pe.bas"
do{
#line 23943 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_REC_LONG_I;
#line 23943 "qb64pe.bas"
if(!qbevent)break;evnt(23943);}while(r);
#line 23944 "qb64pe.bas"
S_27451:;
#line 23944 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len> 1 )))||is_error_pending()){
#line 23944 "qb64pe.bas"
if(qbevent){evnt(23944);if(r)goto S_27451;}
#line 23945 "qb64pe.bas"
S_27452:;
#line 23945 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_REC_STRING_F2))))||is_error_pending()){
#line 23945 "qb64pe.bas"
if(qbevent){evnt(23945);if(r)goto S_27452;}
#line 23946 "qb64pe.bas"
do{
#line 23946 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 23946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23946 "qb64pe.bas"
if(!qbevent)break;evnt(23946);}while(r);
#line 23947 "qb64pe.bas"
do{
#line 23947 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass2989= 0 ));
#line 23947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23947 "qb64pe.bas"
if(!qbevent)break;evnt(23947);}while(r);
#line 23948 "qb64pe.bas"
do{
#line 23948 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2990=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 23948 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23948 "qb64pe.bas"
if(!qbevent)break;evnt(23948);}while(r);
#line 23949 "qb64pe.bas"
}
#line 23950 "qb64pe.bas"
}
#line 23952 "qb64pe.bas"
S_27458:;
#line 23952 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,func_chr( 241 ))))||is_error_pending()){
#line 23952 "qb64pe.bas"
if(qbevent){evnt(23952);if(r)goto S_27458;}
#line 23952 "qb64pe.bas"
do{
#line 23952 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP),qbs_new_txt_len("-",1)));
#line 23952 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23952 "qb64pe.bas"
if(!qbevent)break;evnt(23952);}while(r);
#line 23952 "qb64pe.bas"
do{
#line 23952 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 23952 "qb64pe.bas"
if(!qbevent)break;evnt(23952);}while(r);
#line 23952 "qb64pe.bas"
}
#line 23953 "qb64pe.bas"
do{
#line 23953 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 23953 "qb64pe.bas"
if(!qbevent)break;evnt(23953);}while(r);
#line 23954 "qb64pe.bas"
}
#line 23956 "qb64pe.bas"
S_27464:;
#line 23956 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])||is_error_pending()){
#line 23956 "qb64pe.bas"
if(qbevent){evnt(23956);if(r)goto S_27464;}
#line 23957 "qb64pe.bas"
do{
#line 23957 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTT= 4 ;
#line 23957 "qb64pe.bas"
if(!qbevent)break;evnt(23957);}while(r);
#line 23957 "qb64pe.bas"
do{
#line 23957 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_REC_LONG_I;
#line 23957 "qb64pe.bas"
if(!qbevent)break;evnt(23957);}while(r);
#line 23959 "qb64pe.bas"
S_27467:;
#line 23959 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I<*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 23959 "qb64pe.bas"
if(qbevent){evnt(23959);if(r)goto S_27467;}
#line 23959 "qb64pe.bas"
do{
#line 23959 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass2991=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 23959 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23959 "qb64pe.bas"
if(!qbevent)break;evnt(23959);}while(r);
#line 23959 "qb64pe.bas"
}else{
#line 23959 "qb64pe.bas"
do{
#line 23959 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC= 0 ;
#line 23959 "qb64pe.bas"
if(!qbevent)break;evnt(23959);}while(r);
#line 23959 "qb64pe.bas"
}
#line 23962 "qb64pe.bas"
S_27472:;
#line 23962 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC!= 40 ))||is_error_pending()){
#line 23962 "qb64pe.bas"
if(qbevent){evnt(23962);if(r)goto S_27472;}
#line 23963 "qb64pe.bas"
S_27473:;
#line 23963 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_LASTC!= 46 ))||is_error_pending()){
#line 23963 "qb64pe.bas"
if(qbevent){evnt(23963);if(r)goto S_27473;}
#line 23965 "qb64pe.bas"
do{
#line 23965 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 23965 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23965 "qb64pe.bas"
if(!qbevent)break;evnt(23965);}while(r);
#line 23966 "qb64pe.bas"
do{
#line 23966 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_ES,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_E));
#line 23966 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23966 "qb64pe.bas"
if(!qbevent)break;evnt(23966);}while(r);
#line 23967 "qb64pe.bas"
S_27476:;
#line 23967 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23967 "qb64pe.bas"
if(qbevent){evnt(23967);if(r)goto S_27476;}
#line 23967 "qb64pe.bas"
do{
#line 23967 "qb64pe.bas"
goto exit_subfunc;
#line 23967 "qb64pe.bas"
if(!qbevent)break;evnt(23967);}while(r);
#line 23967 "qb64pe.bas"
}
#line 23969 "qb64pe.bas"
do{
#line 23969 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHFOUND= 0 ;
#line 23969 "qb64pe.bas"
if(!qbevent)break;evnt(23969);}while(r);
#line 23970 "qb64pe.bas"
do{
#line 23970 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_REC_STRING_E);
#line 23970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23970 "qb64pe.bas"
if(!qbevent)break;evnt(23970);}while(r);
#line 23971 "qb64pe.bas"
do{
#line 23971 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHCHKFLAGS= 1024ll ;
#line 23971 "qb64pe.bas"
if(!qbevent)break;evnt(23971);}while(r);
#line 23972 "qb64pe.bas"
do{
#line 23972 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_FIXOPERATIONORDER_REC_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_REC_LONG_HASHCHKFLAGS,_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF);
#line 23972 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23972 "qb64pe.bas"
if(!qbevent)break;evnt(23972);}while(r);
#line 23973 "qb64pe.bas"
S_27483:;
#line 23973 "qb64pe.bas"
while((*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRES)||is_error_pending()){
#line 23973 "qb64pe.bas"
if(qbevent){evnt(23973);if(r)goto S_27483;}
#line 23974 "qb64pe.bas"
S_27484:;
#line 23974 "qb64pe.bas"
if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||is_error_pending()){
#line 23974 "qb64pe.bas"
if(qbevent){evnt(23974);if(r)goto S_27484;}
#line 23975 "qb64pe.bas"
S_27485:;
#line 23975 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
#line 23975 "qb64pe.bas"
if(qbevent){evnt(23975);if(r)goto S_27485;}
#line 23976 "qb64pe.bas"
do{
#line 23976 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHFOUND= 1 ;
#line 23976 "qb64pe.bas"
if(!qbevent)break;evnt(23976);}while(r);
#line 23977 "qb64pe.bas"
do{
#line 23977 "qb64pe.bas"
goto dl_exit_2992;
#line 23977 "qb64pe.bas"
if(!qbevent)break;evnt(23977);}while(r);
#line 23978 "qb64pe.bas"
}
#line 23979 "qb64pe.bas"
}
#line 23980 "qb64pe.bas"
S_27490:;
#line 23980 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRES!= 1 ))||is_error_pending()){
#line 23980 "qb64pe.bas"
if(qbevent){evnt(23980);if(r)goto S_27490;}
#line 23980 "qb64pe.bas"
do{
#line 23980 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF);
#line 23980 "qb64pe.bas"
if(!qbevent)break;evnt(23980);}while(r);
#line 23980 "qb64pe.bas"
}else{
#line 23980 "qb64pe.bas"
do{
#line 23980 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRES= 0 ;
#line 23980 "qb64pe.bas"
if(!qbevent)break;evnt(23980);}while(r);
#line 23980 "qb64pe.bas"
}
#line 23981 "qb64pe.bas"
dl_continue_2992:;
#line 23981 "qb64pe.bas"
}
#line 23981 "qb64pe.bas"
dl_exit_2992:;
#line 23983 "qb64pe.bas"
S_27496:;
#line 23983 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHFOUND)||is_error_pending()){
#line 23983 "qb64pe.bas"
if(qbevent){evnt(23983);if(r)goto S_27496;}
#line 23984 "qb64pe.bas"
do{
#line 23984 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I2=*_FUNC_FIXOPERATIONORDER_REC_LONG_HASHRESREF;
#line 23984 "qb64pe.bas"
if(!qbevent)break;evnt(23984);}while(r);
#line 23993 "qb64pe.bas"
do{
#line 23993 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_STATICVARIABLE= 0 ;
#line 23993 "qb64pe.bas"
if(!qbevent)break;evnt(23993);}while(r);
#line 23994 "qb64pe.bas"
do{
#line 23994 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_ES));
#line 23994 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23994 "qb64pe.bas"
if(!qbevent)break;evnt(23994);}while(r);
#line 23995 "qb64pe.bas"
S_27500:;
#line 23995 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23995 "qb64pe.bas"
if(qbevent){evnt(23995);if(r)goto S_27500;}
#line 23995 "qb64pe.bas"
do{
#line 23995 "qb64pe.bas"
goto exit_subfunc;
#line 23995 "qb64pe.bas"
if(!qbevent)break;evnt(23995);}while(r);
#line 23995 "qb64pe.bas"
}
#line 23996 "qb64pe.bas"
S_27503:;
#line 23996 "qb64pe.bas"
while((*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY)||is_error_pending()){
#line 23996 "qb64pe.bas"
if(qbevent){evnt(23996);if(r)goto S_27503;}
#line 23997 "qb64pe.bas"
S_27504:;
#line 23997 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+512)))== 0 ))||is_error_pending()){
#line 23997 "qb64pe.bas"
if(qbevent){evnt(23997);if(r)goto S_27504;}
#line 23997 "qb64pe.bas"
do{
#line 23997 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_STATICVARIABLE= 1 ;
#line 23997 "qb64pe.bas"
if(!qbevent)break;evnt(23997);}while(r);
#line 23997 "qb64pe.bas"
do{
#line 23997 "qb64pe.bas"
goto dl_exit_2993;
#line 23997 "qb64pe.bas"
if(!qbevent)break;evnt(23997);}while(r);
#line 23997 "qb64pe.bas"
}
#line 23998 "qb64pe.bas"
S_27508:;
#line 23998 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY== 2 ))||is_error_pending()){
#line 23998 "qb64pe.bas"
if(qbevent){evnt(23998);if(r)goto S_27508;}
#line 23998 "qb64pe.bas"
do{
#line 23998 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 23998 "qb64pe.bas"
if(!qbevent)break;evnt(23998);}while(r);
#line 23998 "qb64pe.bas"
do{
#line 23998 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_ES));
#line 23998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23998 "qb64pe.bas"
if(!qbevent)break;evnt(23998);}while(r);
#line 23998 "qb64pe.bas"
}else{
#line 23998 "qb64pe.bas"
do{
#line 23998 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY= 0 ;
#line 23998 "qb64pe.bas"
if(!qbevent)break;evnt(23998);}while(r);
#line 23998 "qb64pe.bas"
}
#line 23999 "qb64pe.bas"
S_27514:;
#line 23999 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23999 "qb64pe.bas"
if(qbevent){evnt(23999);if(r)goto S_27514;}
#line 23999 "qb64pe.bas"
do{
#line 23999 "qb64pe.bas"
goto exit_subfunc;
#line 23999 "qb64pe.bas"
if(!qbevent)break;evnt(23999);}while(r);
#line 23999 "qb64pe.bas"
}
#line 24000 "qb64pe.bas"
dl_continue_2993:;
#line 24000 "qb64pe.bas"
}
#line 24000 "qb64pe.bas"
dl_exit_2993:;
#line 24002 "qb64pe.bas"
S_27518:;
#line 24002 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_STATICVARIABLE== 0 ))||is_error_pending()){
#line 24002 "qb64pe.bas"
if(qbevent){evnt(24002);if(r)goto S_27518;}
#line 24003 "qb64pe.bas"
S_27519:;
#line 24003 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_REC_STRING_ES->len== 0 )))||is_error_pending()){
#line 24003 "qb64pe.bas"
if(qbevent){evnt(24003);if(r)goto S_27519;}
#line 24004 "qb64pe.bas"
do{
#line 24004 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_E));
#line 24004 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24004 "qb64pe.bas"
if(!qbevent)break;evnt(24004);}while(r);
#line 24004 "qb64pe.bas"
S_27521:;
#line 24004 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_A== 95 ))||is_error_pending()){
#line 24004 "qb64pe.bas"
if(qbevent){evnt(24004);if(r)goto S_27521;}
#line 24004 "qb64pe.bas"
do{
#line 24004 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_A= 91 ;
#line 24004 "qb64pe.bas"
if(!qbevent)break;evnt(24004);}while(r);
#line 24004 "qb64pe.bas"
}
#line 24005 "qb64pe.bas"
do{
#line 24005 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_A=*_FUNC_FIXOPERATIONORDER_REC_LONG_A- 64 ;
#line 24005 "qb64pe.bas"
if(!qbevent)break;evnt(24005);}while(r);
#line 24006 "qb64pe.bas"
do{
#line 24006 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_ES2,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]));
#line 24006 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24006 "qb64pe.bas"
if(!qbevent)break;evnt(24006);}while(r);
#line 24007 "qb64pe.bas"
do{
#line 24007 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_ES2));
#line 24007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24007 "qb64pe.bas"
if(!qbevent)break;evnt(24007);}while(r);
#line 24008 "qb64pe.bas"
S_27527:;
#line 24008 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24008 "qb64pe.bas"
if(qbevent){evnt(24008);if(r)goto S_27527;}
#line 24008 "qb64pe.bas"
do{
#line 24008 "qb64pe.bas"
goto exit_subfunc;
#line 24008 "qb64pe.bas"
if(!qbevent)break;evnt(24008);}while(r);
#line 24008 "qb64pe.bas"
}
#line 24009 "qb64pe.bas"
S_27530:;
#line 24009 "qb64pe.bas"
while((*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY)||is_error_pending()){
#line 24009 "qb64pe.bas"
if(qbevent){evnt(24009);if(r)goto S_27530;}
#line 24010 "qb64pe.bas"
S_27531:;
#line 24010 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+512)))== 0 ))||is_error_pending()){
#line 24010 "qb64pe.bas"
if(qbevent){evnt(24010);if(r)goto S_27531;}
#line 24010 "qb64pe.bas"
do{
#line 24010 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_STATICVARIABLE= 1 ;
#line 24010 "qb64pe.bas"
if(!qbevent)break;evnt(24010);}while(r);
#line 24010 "qb64pe.bas"
do{
#line 24010 "qb64pe.bas"
goto dl_exit_2995;
#line 24010 "qb64pe.bas"
if(!qbevent)break;evnt(24010);}while(r);
#line 24010 "qb64pe.bas"
}
#line 24011 "qb64pe.bas"
S_27535:;
#line 24011 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY== 2 ))||is_error_pending()){
#line 24011 "qb64pe.bas"
if(qbevent){evnt(24011);if(r)goto S_27535;}
#line 24011 "qb64pe.bas"
do{
#line 24011 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 24011 "qb64pe.bas"
if(!qbevent)break;evnt(24011);}while(r);
#line 24011 "qb64pe.bas"
do{
#line 24011 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_ES2));
#line 24011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24011 "qb64pe.bas"
if(!qbevent)break;evnt(24011);}while(r);
#line 24011 "qb64pe.bas"
}else{
#line 24011 "qb64pe.bas"
do{
#line 24011 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY= 0 ;
#line 24011 "qb64pe.bas"
if(!qbevent)break;evnt(24011);}while(r);
#line 24011 "qb64pe.bas"
}
#line 24012 "qb64pe.bas"
S_27541:;
#line 24012 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24012 "qb64pe.bas"
if(qbevent){evnt(24012);if(r)goto S_27541;}
#line 24012 "qb64pe.bas"
do{
#line 24012 "qb64pe.bas"
goto exit_subfunc;
#line 24012 "qb64pe.bas"
if(!qbevent)break;evnt(24012);}while(r);
#line 24012 "qb64pe.bas"
}
#line 24013 "qb64pe.bas"
dl_continue_2995:;
#line 24013 "qb64pe.bas"
}
#line 24013 "qb64pe.bas"
dl_exit_2995:;
#line 24014 "qb64pe.bas"
}
#line 24015 "qb64pe.bas"
}
#line 24017 "qb64pe.bas"
S_27547:;
#line 24017 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_STATICVARIABLE== 0 ))||is_error_pending()){
#line 24017 "qb64pe.bas"
if(qbevent){evnt(24017);if(r)goto S_27547;}
#line 24019 "qb64pe.bas"
do{
#line 24019 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])];
#line 24019 "qb64pe.bas"
if(!qbevent)break;evnt(24019);}while(r);
#line 24020 "qb64pe.bas"
S_27549:;
#line 24020 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 24020 "qb64pe.bas"
if(qbevent){evnt(24020);if(r)goto S_27549;}
#line 24021 "qb64pe.bas"
S_27550:;
#line 24021 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXOPERATIONORDER_REC_STRING_ES->len> 0 ))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_REC_STRING_ES,qbs_new_txt_len("$",1)))))||is_error_pending()){
#line 24021 "qb64pe.bas"
if(qbevent){evnt(24021);if(r)goto S_27550;}
#line 24021 "qb64pe.bas"
do{
#line 24021 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
#line 24021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24021 "qb64pe.bas"
if(!qbevent)break;evnt(24021);}while(r);
#line 24021 "qb64pe.bas"
do{
#line 24021 "qb64pe.bas"
goto exit_subfunc;
#line 24021 "qb64pe.bas"
if(!qbevent)break;evnt(24021);}while(r);
#line 24021 "qb64pe.bas"
}
#line 24022 "qb64pe.bas"
do{
#line 24022 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,(((qbs**)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]));
#line 24022 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24022 "qb64pe.bas"
if(!qbevent)break;evnt(24022);}while(r);
#line 24023 "qb64pe.bas"
}else{
#line 24024 "qb64pe.bas"
S_27556:;
#line 24024 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_ES->len))||is_error_pending()){
#line 24024 "qb64pe.bas"
if(qbevent){evnt(24024);if(r)goto S_27556;}
#line 24024 "qb64pe.bas"
do{
#line 24024 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_REC_STRING_ES);
#line 24024 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24024 "qb64pe.bas"
if(!qbevent)break;evnt(24024);}while(r);
#line 24024 "qb64pe.bas"
}else{
#line 24024 "qb64pe.bas"
do{
#line 24024 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_ET= 0 ;
#line 24024 "qb64pe.bas"
if(!qbevent)break;evnt(24024);}while(r);
#line 24024 "qb64pe.bas"
}
#line 24025 "qb64pe.bas"
S_27561:;
#line 24025 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24025 "qb64pe.bas"
if(qbevent){evnt(24025);if(r)goto S_27561;}
#line 24025 "qb64pe.bas"
do{
#line 24025 "qb64pe.bas"
goto exit_subfunc;
#line 24025 "qb64pe.bas"
if(!qbevent)break;evnt(24025);}while(r);
#line 24025 "qb64pe.bas"
}
#line 24026 "qb64pe.bas"
S_27564:;
#line 24026 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_ET&*__LONG_ISSTRING)||is_error_pending()){
#line 24026 "qb64pe.bas"
if(qbevent){evnt(24026);if(r)goto S_27564;}
#line 24026 "qb64pe.bas"
do{
#line 24026 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13));
#line 24026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24026 "qb64pe.bas"
if(!qbevent)break;evnt(24026);}while(r);
#line 24026 "qb64pe.bas"
do{
#line 24026 "qb64pe.bas"
goto exit_subfunc;
#line 24026 "qb64pe.bas"
if(!qbevent)break;evnt(24026);}while(r);
#line 24026 "qb64pe.bas"
}
#line 24028 "qb64pe.bas"
S_27568:;
#line 24028 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 24028 "qb64pe.bas"
if(qbevent){evnt(24028);if(r)goto S_27568;}
#line 24029 "qb64pe.bas"
do{
#line 24029 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])];
#line 24029 "qb64pe.bas"
if(!qbevent)break;evnt(24029);}while(r);
#line 24030 "qb64pe.bas"
do{
#line 24030 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_REC_FLOAT_V);
#line 24030 "qb64pe.bas"
if(!qbevent)break;evnt(24030);}while(r);
#line 24031 "qb64pe.bas"
do{
#line 24031 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V;
#line 24031 "qb64pe.bas"
if(!qbevent)break;evnt(24031);}while(r);
#line 24032 "qb64pe.bas"
}else{
#line 24033 "qb64pe.bas"
S_27573:;
#line 24033 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 24033 "qb64pe.bas"
if(qbevent){evnt(24033);if(r)goto S_27573;}
#line 24034 "qb64pe.bas"
do{
#line 24034 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])];
#line 24034 "qb64pe.bas"
if(!qbevent)break;evnt(24034);}while(r);
#line 24035 "qb64pe.bas"
do{
#line 24035 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_REC_UINTEGER64_V;
#line 24035 "qb64pe.bas"
if(!qbevent)break;evnt(24035);}while(r);
#line 24036 "qb64pe.bas"
do{
#line 24036 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_FLOAT_V=*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V;
#line 24036 "qb64pe.bas"
if(!qbevent)break;evnt(24036);}while(r);
#line 24037 "qb64pe.bas"
}else{
#line 24038 "qb64pe.bas"
do{
#line 24038 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])];
#line 24038 "qb64pe.bas"
if(!qbevent)break;evnt(24038);}while(r);
#line 24039 "qb64pe.bas"
do{
#line 24039 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_FLOAT_V=*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V;
#line 24039 "qb64pe.bas"
if(!qbevent)break;evnt(24039);}while(r);
#line 24040 "qb64pe.bas"
do{
#line 24040 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V;
#line 24040 "qb64pe.bas"
if(!qbevent)break;evnt(24040);}while(r);
#line 24041 "qb64pe.bas"
}
#line 24042 "qb64pe.bas"
}
#line 24044 "qb64pe.bas"
S_27583:;
#line 24044 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_ET)||is_error_pending()){
#line 24044 "qb64pe.bas"
if(qbevent){evnt(24044);if(r)goto S_27583;}
#line 24044 "qb64pe.bas"
do{
#line 24044 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=*_FUNC_FIXOPERATIONORDER_REC_LONG_ET;
#line 24044 "qb64pe.bas"
if(!qbevent)break;evnt(24044);}while(r);
#line 24044 "qb64pe.bas"
}
#line 24047 "qb64pe.bas"
S_27586:;
#line 24047 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 24047 "qb64pe.bas"
if(qbevent){evnt(24047);if(r)goto S_27586;}
#line 24048 "qb64pe.bas"
do{
#line 24048 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs__tostr((long double)(*_FUNC_FIXOPERATIONORDER_REC_FLOAT_V),NULL,0));
#line 24048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24048 "qb64pe.bas"
if(!qbevent)break;evnt(24048);}while(r);
#line 24049 "qb64pe.bas"
}else{
#line 24050 "qb64pe.bas"
S_27589:;
#line 24050 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 24050 "qb64pe.bas"
if(qbevent){evnt(24050);if(r)goto S_27589;}
#line 24051 "qb64pe.bas"
do{
#line 24051 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs__tostr((uint64)(*_FUNC_FIXOPERATIONORDER_REC_UINTEGER64_V),NULL,0));
#line 24051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24051 "qb64pe.bas"
if(!qbevent)break;evnt(24051);}while(r);
#line 24052 "qb64pe.bas"
}else{
#line 24053 "qb64pe.bas"
do{
#line 24053 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs__tostr((int64)(*_FUNC_FIXOPERATIONORDER_REC_INTEGER64_V),NULL,0));
#line 24053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24053 "qb64pe.bas"
if(!qbevent)break;evnt(24053);}while(r);
#line 24054 "qb64pe.bas"
}
#line 24055 "qb64pe.bas"
}
#line 24058 "qb64pe.bas"
S_27595:;
#line 24058 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
#line 24058 "qb64pe.bas"
if(qbevent){evnt(24058);if(r)goto S_27595;}
#line 24059 "qb64pe.bas"
do{
#line 24059 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T2=*_FUNC_FIXOPERATIONORDER_REC_LONG_T& 4095ll ;
#line 24059 "qb64pe.bas"
if(!qbevent)break;evnt(24059);}while(r);
#line 24061 "qb64pe.bas"
do{
#line 24061 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("",0));
#line 24061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24061 "qb64pe.bas"
if(!qbevent)break;evnt(24061);}while(r);
#line 24062 "qb64pe.bas"
S_27598:;
#line 24062 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("E",1),0)))||is_error_pending()){
#line 24062 "qb64pe.bas"
if(qbevent){evnt(24062);if(r)goto S_27598;}
#line 24062 "qb64pe.bas"
do{
#line 24062 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("E",1));
#line 24062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24062 "qb64pe.bas"
if(!qbevent)break;evnt(24062);}while(r);
#line 24062 "qb64pe.bas"
}
#line 24063 "qb64pe.bas"
S_27601:;
#line 24063 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("D",1),0)))||is_error_pending()){
#line 24063 "qb64pe.bas"
if(qbevent){evnt(24063);if(r)goto S_27601;}
#line 24063 "qb64pe.bas"
do{
#line 24063 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("D",1));
#line 24063 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24063 "qb64pe.bas"
if(!qbevent)break;evnt(24063);}while(r);
#line 24063 "qb64pe.bas"
}
#line 24064 "qb64pe.bas"
S_27604:;
#line 24064 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("F",1),0)))||is_error_pending()){
#line 24064 "qb64pe.bas"
if(qbevent){evnt(24064);if(r)goto S_27604;}
#line 24064 "qb64pe.bas"
do{
#line 24064 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("F",1));
#line 24064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24064 "qb64pe.bas"
if(!qbevent)break;evnt(24064);}while(r);
#line 24064 "qb64pe.bas"
}
#line 24065 "qb64pe.bas"
S_27607:;
#line 24065 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_S->len))||is_error_pending()){
#line 24065 "qb64pe.bas"
if(qbevent){evnt(24065);if(r)goto S_27607;}
#line 24067 "qb64pe.bas"
do{
#line 24067 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_S,0);
#line 24067 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24067 "qb64pe.bas"
if(!qbevent)break;evnt(24067);}while(r);
#line 24069 "qb64pe.bas"
S_27609:;
#line 24069 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 32 ))||is_error_pending()){
#line 24069 "qb64pe.bas"
if(qbevent){evnt(24069);if(r)goto S_27609;}
#line 24069 "qb64pe.bas"
do{
#line 24069 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("E",1));
#line 24069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24069 "qb64pe.bas"
if(!qbevent)break;evnt(24069);}while(r);
#line 24069 "qb64pe.bas"
}
#line 24070 "qb64pe.bas"
S_27612:;
#line 24070 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 64 ))||is_error_pending()){
#line 24070 "qb64pe.bas"
if(qbevent){evnt(24070);if(r)goto S_27612;}
#line 24070 "qb64pe.bas"
do{
#line 24070 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("D",1));
#line 24070 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24070 "qb64pe.bas"
if(!qbevent)break;evnt(24070);}while(r);
#line 24070 "qb64pe.bas"
}
#line 24071 "qb64pe.bas"
S_27615:;
#line 24071 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 256 ))||is_error_pending()){
#line 24071 "qb64pe.bas"
if(qbevent){evnt(24071);if(r)goto S_27615;}
#line 24071 "qb64pe.bas"
do{
#line 24071 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,qbs_new_txt_len("F",1));
#line 24071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24071 "qb64pe.bas"
if(!qbevent)break;evnt(24071);}while(r);
#line 24071 "qb64pe.bas"
}
#line 24072 "qb64pe.bas"
do{
#line 24072 "qb64pe.bas"
sub_mid(_FUNC_FIXOPERATIONORDER_REC_STRING_E,*_FUNC_FIXOPERATIONORDER_REC_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_REC_STRING_S,1);
#line 24072 "qb64pe.bas"
if(!qbevent)break;evnt(24072);}while(r);
#line 24073 "qb64pe.bas"
S_27619:;
#line 24073 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||is_error_pending()){
#line 24073 "qb64pe.bas"
if(qbevent){evnt(24073);if(r)goto S_27619;}
#line 24073 "qb64pe.bas"
do{
#line 24073 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E,*_FUNC_FIXOPERATIONORDER_REC_LONG_X- 1 ),qbs_new_txt_len(".0",2)),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_E->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 1 )));
#line 24073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24073 "qb64pe.bas"
if(!qbevent)break;evnt(24073);}while(r);
#line 24073 "qb64pe.bas"
do{
#line 24073 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_X=*_FUNC_FIXOPERATIONORDER_REC_LONG_X+ 2 ;
#line 24073 "qb64pe.bas"
if(!qbevent)break;evnt(24073);}while(r);
#line 24073 "qb64pe.bas"
}
#line 24074 "qb64pe.bas"
S_27623:;
#line 24074 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E, 1 ),qbs_new_txt_len(".",1))))||is_error_pending()){
#line 24074 "qb64pe.bas"
if(qbevent){evnt(24074);if(r)goto S_27623;}
#line 24074 "qb64pe.bas"
do{
#line 24074 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_REC_STRING_E));
#line 24074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24074 "qb64pe.bas"
if(!qbevent)break;evnt(24074);}while(r);
#line 24074 "qb64pe.bas"
}
#line 24075 "qb64pe.bas"
S_27626:;
#line 24075 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||is_error_pending()){
#line 24075 "qb64pe.bas"
if(qbevent){evnt(24075);if(r)goto S_27626;}
#line 24075 "qb64pe.bas"
do{
#line 24075 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_E->len- 1 )));
#line 24075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24075 "qb64pe.bas"
if(!qbevent)break;evnt(24075);}while(r);
#line 24075 "qb64pe.bas"
}
#line 24076 "qb64pe.bas"
S_27629:;
#line 24076 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("+",1),0)== 0 ))&(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("-",1),0)== 0 ))))||is_error_pending()){
#line 24076 "qb64pe.bas"
if(qbevent){evnt(24076);if(r)goto S_27629;}
#line 24077 "qb64pe.bas"
do{
#line 24077 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E,*_FUNC_FIXOPERATIONORDER_REC_LONG_X),qbs_new_txt_len("+",1)),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_E->len-*_FUNC_FIXOPERATIONORDER_REC_LONG_X)));
#line 24077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24077 "qb64pe.bas"
if(!qbevent)break;evnt(24077);}while(r);
#line 24078 "qb64pe.bas"
}
#line 24079 "qb64pe.bas"
}else{
#line 24081 "qb64pe.bas"
S_27633:;
#line 24081 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||is_error_pending()){
#line 24081 "qb64pe.bas"
if(qbevent){evnt(24081);if(r)goto S_27633;}
#line 24081 "qb64pe.bas"
do{
#line 24081 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len(".0",2)));
#line 24081 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24081 "qb64pe.bas"
if(!qbevent)break;evnt(24081);}while(r);
#line 24081 "qb64pe.bas"
}
#line 24082 "qb64pe.bas"
S_27636:;
#line 24082 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E, 1 ),qbs_new_txt_len(".",1))))||is_error_pending()){
#line 24082 "qb64pe.bas"
if(qbevent){evnt(24082);if(r)goto S_27636;}
#line 24082 "qb64pe.bas"
do{
#line 24082 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_REC_STRING_E));
#line 24082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24082 "qb64pe.bas"
if(!qbevent)break;evnt(24082);}while(r);
#line 24082 "qb64pe.bas"
}
#line 24083 "qb64pe.bas"
S_27639:;
#line 24083 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||is_error_pending()){
#line 24083 "qb64pe.bas"
if(qbevent){evnt(24083);if(r)goto S_27639;}
#line 24083 "qb64pe.bas"
do{
#line 24083 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_E->len- 1 )));
#line 24083 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24083 "qb64pe.bas"
if(!qbevent)break;evnt(24083);}while(r);
#line 24083 "qb64pe.bas"
}
#line 24084 "qb64pe.bas"
S_27642:;
#line 24084 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 32 ))||is_error_pending()){
#line 24084 "qb64pe.bas"
if(qbevent){evnt(24084);if(r)goto S_27642;}
#line 24084 "qb64pe.bas"
do{
#line 24084 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("E+0",3)));
#line 24084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24084 "qb64pe.bas"
if(!qbevent)break;evnt(24084);}while(r);
#line 24084 "qb64pe.bas"
}
#line 24085 "qb64pe.bas"
S_27645:;
#line 24085 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 64 ))||is_error_pending()){
#line 24085 "qb64pe.bas"
if(qbevent){evnt(24085);if(r)goto S_27645;}
#line 24085 "qb64pe.bas"
do{
#line 24085 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("D+0",3)));
#line 24085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24085 "qb64pe.bas"
if(!qbevent)break;evnt(24085);}while(r);
#line 24085 "qb64pe.bas"
}
#line 24086 "qb64pe.bas"
S_27648:;
#line 24086 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_T2== 256 ))||is_error_pending()){
#line 24086 "qb64pe.bas"
if(qbevent){evnt(24086);if(r)goto S_27648;}
#line 24086 "qb64pe.bas"
do{
#line 24086 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_new_txt_len("F+0",3)));
#line 24086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24086 "qb64pe.bas"
if(!qbevent)break;evnt(24086);}while(r);
#line 24086 "qb64pe.bas"
}
#line 24087 "qb64pe.bas"
}
#line 24088 "qb64pe.bas"
}else{
#line 24089 "qb64pe.bas"
do{
#line 24089 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,FUNC_TYPEVALUE2SYMBOL(_FUNC_FIXOPERATIONORDER_REC_LONG_T));
#line 24089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24089 "qb64pe.bas"
if(!qbevent)break;evnt(24089);}while(r);
#line 24090 "qb64pe.bas"
S_27654:;
#line 24090 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24090 "qb64pe.bas"
if(qbevent){evnt(24090);if(r)goto S_27654;}
#line 24090 "qb64pe.bas"
do{
#line 24090 "qb64pe.bas"
goto exit_subfunc;
#line 24090 "qb64pe.bas"
if(!qbevent)break;evnt(24090);}while(r);
#line 24090 "qb64pe.bas"
}
#line 24091 "qb64pe.bas"
do{
#line 24091 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_E,_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24091 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24091 "qb64pe.bas"
if(!qbevent)break;evnt(24091);}while(r);
#line 24092 "qb64pe.bas"
}
#line 24094 "qb64pe.bas"
}
#line 24096 "qb64pe.bas"
do{
#line 24096 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3003= 0 ));
#line 24096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24096 "qb64pe.bas"
if(!qbevent)break;evnt(24096);}while(r);
#line 24097 "qb64pe.bas"
do{
#line 24097 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3004=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_REC_STRING_E);
#line 24097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24097 "qb64pe.bas"
if(!qbevent)break;evnt(24097);}while(r);
#line 24099 "qb64pe.bas"
do{
#line 24099 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add((((qbs**)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])]),_FUNC_FIXOPERATIONORDER_REC_STRING_ES));
#line 24099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24099 "qb64pe.bas"
if(!qbevent)break;evnt(24099);}while(r);
#line 24100 "qb64pe.bas"
do{
#line 24100 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 24100 "qb64pe.bas"
if(!qbevent)break;evnt(24100);}while(r);
#line 24102 "qb64pe.bas"
}
#line 24105 "qb64pe.bas"
}
#line 24106 "qb64pe.bas"
}
#line 24107 "qb64pe.bas"
}
#line 24110 "qb64pe.bas"
do{
#line 24110 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_U,_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 24110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24110 "qb64pe.bas"
if(!qbevent)break;evnt(24110);}while(r);
#line 24112 "qb64pe.bas"
do{
#line 24112 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 24112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24112 "qb64pe.bas"
if(!qbevent)break;evnt(24112);}while(r);
#line 24113 "qb64pe.bas"
do{
#line 24113 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING2,_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING);
#line 24113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24113 "qb64pe.bas"
if(!qbevent)break;evnt(24113);}while(r);
#line 24115 "qb64pe.bas"
S_27671:;
#line 24115 "qb64pe.bas"
fornext_value3006= 1 ;
#line 24115 "qb64pe.bas"
fornext_finalvalue3006= 4 ;
#line 24115 "qb64pe.bas"
fornext_step3006= 1 ;
#line 24115 "qb64pe.bas"
if (fornext_step3006<0) fornext_step_negative3006=1; else fornext_step_negative3006=0;
#line 24115 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3006;
#line 24115 "qb64pe.bas"
goto fornext_entrylabel3006;
#line 24115 "qb64pe.bas"
while(1){
#line 24115 "qb64pe.bas"
fornext_value3006=fornext_step3006+(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD);
#line 24115 "qb64pe.bas"
fornext_entrylabel3006:
#line 24115 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD=fornext_value3006;
#line 24115 "qb64pe.bas"
if (fornext_step_negative3006){
#line 24115 "qb64pe.bas"
if (fornext_value3006<fornext_finalvalue3006) break;
#line 24115 "qb64pe.bas"
}else{
#line 24115 "qb64pe.bas"
if (fornext_value3006>fornext_finalvalue3006) break;
#line 24115 "qb64pe.bas"
}
#line 24115 "qb64pe.bas"
fornext_error3006:;
#line 24115 "qb64pe.bas"
if(qbevent){evnt(24115);if(r)goto S_27671;}
#line 24116 "qb64pe.bas"
do{
#line 24116 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING2);
#line 24116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24116 "qb64pe.bas"
if(!qbevent)break;evnt(24116);}while(r);
#line 24117 "qb64pe.bas"
S_27673:;
#line 24117 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD== 4 )))||is_error_pending()){
#line 24117 "qb64pe.bas"
if(qbevent){evnt(24117);if(r)goto S_27673;}
#line 24118 "qb64pe.bas"
do{
#line 24118 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING));
#line 24118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24118 "qb64pe.bas"
if(!qbevent)break;evnt(24118);}while(r);
#line 24119 "qb64pe.bas"
S_27675:;
#line 24119 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_REC_STRING_DTYP->len== 0 )))||is_error_pending()){
#line 24119 "qb64pe.bas"
if(qbevent){evnt(24119);if(r)goto S_27675;}
#line 24120 "qb64pe.bas"
S_27676:;
#line 24120 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING)== 0 )))||is_error_pending()){
#line 24120 "qb64pe.bas"
if(qbevent){evnt(24120);if(r)goto S_27676;}
#line 24121 "qb64pe.bas"
S_27677:;
#line 24121 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING)))||is_error_pending()){
#line 24121 "qb64pe.bas"
if(qbevent){evnt(24121);if(r)goto S_27677;}
#line 24122 "qb64pe.bas"
S_27678:;
#line 24122 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 24122 "qb64pe.bas"
if(qbevent){evnt(24122);if(r)goto S_27678;}
#line 24122 "qb64pe.bas"
do{
#line 24122 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_V= 27 ;
#line 24122 "qb64pe.bas"
if(!qbevent)break;evnt(24122);}while(r);
#line 24122 "qb64pe.bas"
}else{
#line 24122 "qb64pe.bas"
do{
#line 24122 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_V=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING))- 64 ;
#line 24122 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24122 "qb64pe.bas"
if(!qbevent)break;evnt(24122);}while(r);
#line 24122 "qb64pe.bas"
}
#line 24123 "qb64pe.bas"
do{
#line 24123 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING,(((qbs**)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
#line 24123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24123 "qb64pe.bas"
if(!qbevent)break;evnt(24123);}while(r);
#line 24124 "qb64pe.bas"
}
#line 24125 "qb64pe.bas"
}
#line 24126 "qb64pe.bas"
}else{
#line 24127 "qb64pe.bas"
do{
#line 24127 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING2);
#line 24127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24127 "qb64pe.bas"
if(!qbevent)break;evnt(24127);}while(r);
#line 24128 "qb64pe.bas"
}
#line 24129 "qb64pe.bas"
}
#line 24130 "qb64pe.bas"
do{
#line 24130 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING);
#line 24130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24130 "qb64pe.bas"
if(!qbevent)break;evnt(24130);}while(r);
#line 24131 "qb64pe.bas"
S_27691:;
#line 24131 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24131 "qb64pe.bas"
if(qbevent){evnt(24131);if(r)goto S_27691;}
#line 24131 "qb64pe.bas"
do{
#line 24131 "qb64pe.bas"
goto exit_subfunc;
#line 24131 "qb64pe.bas"
if(!qbevent)break;evnt(24131);}while(r);
#line 24131 "qb64pe.bas"
}
#line 24132 "qb64pe.bas"
S_27694:;
#line 24132 "qb64pe.bas"
while((*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY)||is_error_pending()){
#line 24132 "qb64pe.bas"
if(qbevent){evnt(24132);if(r)goto S_27694;}
#line 24133 "qb64pe.bas"
S_27695:;
#line 24133 "qb64pe.bas"
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
#line 24133 "qb64pe.bas"
if(qbevent){evnt(24133);if(r)goto S_27695;}
#line 24135 "qb64pe.bas"
S_27696:;
#line 24135 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 24135 "qb64pe.bas"
if(qbevent){evnt(24135);if(r)goto S_27696;}
#line 24135 "qb64pe.bas"
do{
#line 24135 "qb64pe.bas"
tab_spc_cr_size=2;
#line 24135 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 24135 "qb64pe.bas"
if (is_error_pending()) goto skip3009;
#line 24135 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("found id matching ",18),_FUNC_FIXOPERATIONORDER_REC_STRING_F2), 0, 0, 1);
#line 24135 "qb64pe.bas"
if (is_error_pending()) goto skip3009;
#line 24135 "qb64pe.bas"
skip3009:
#line 24135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24135 "qb64pe.bas"
tab_spc_cr_size=1;
#line 24135 "qb64pe.bas"
if(!qbevent)break;evnt(24135);}while(r);
#line 24135 "qb64pe.bas"
}
#line 24143 "qb64pe.bas"
S_27699:;
#line 24143 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC== 40 ))||is_error_pending()){
#line 24143 "qb64pe.bas"
if(qbevent){evnt(24143);if(r)goto S_27699;}
#line 24145 "qb64pe.bas"
S_27700:;
#line 24145 "qb64pe.bas"
if (((-(*(int32*)(((char*)__UDT_ID)+((0+512)))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 )))||is_error_pending()){
#line 24145 "qb64pe.bas"
if(qbevent){evnt(24145);if(r)goto S_27700;}
#line 24149 "qb64pe.bas"
do{
#line 24149 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 24149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24149 "qb64pe.bas"
if(!qbevent)break;evnt(24149);}while(r);
#line 24150 "qb64pe.bas"
do{
#line 24150 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_F3));
#line 24150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24150 "qb64pe.bas"
if(!qbevent)break;evnt(24150);}while(r);
#line 24151 "qb64pe.bas"
S_27703:;
#line 24151 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24151 "qb64pe.bas"
if(qbevent){evnt(24151);if(r)goto S_27703;}
#line 24151 "qb64pe.bas"
do{
#line 24151 "qb64pe.bas"
goto exit_subfunc;
#line 24151 "qb64pe.bas"
if(!qbevent)break;evnt(24151);}while(r);
#line 24151 "qb64pe.bas"
}
#line 24152 "qb64pe.bas"
S_27706:;
#line 24152 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
#line 24152 "qb64pe.bas"
if(qbevent){evnt(24152);if(r)goto S_27706;}
#line 24153 "qb64pe.bas"
do{
#line 24153 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24153 "qb64pe.bas"
if(!qbevent)break;evnt(24153);}while(r);
#line 24154 "qb64pe.bas"
}else{
#line 24155 "qb64pe.bas"
do{
#line 24155 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)),_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24155 "qb64pe.bas"
if(!qbevent)break;evnt(24155);}while(r);
#line 24156 "qb64pe.bas"
}
#line 24157 "qb64pe.bas"
do{
#line 24157 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3010= 0 ));
#line 24157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24157 "qb64pe.bas"
if(!qbevent)break;evnt(24157);}while(r);
#line 24158 "qb64pe.bas"
do{
#line 24158 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3011=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24158 "qb64pe.bas"
if(!qbevent)break;evnt(24158);}while(r);
#line 24159 "qb64pe.bas"
do{
#line 24159 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_STRING_F2),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP));
#line 24159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24159 "qb64pe.bas"
if(!qbevent)break;evnt(24159);}while(r);
#line 24162 "qb64pe.bas"
do{
#line 24162 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2= 1 ;
#line 24162 "qb64pe.bas"
if(!qbevent)break;evnt(24162);}while(r);
#line 24163 "qb64pe.bas"
S_27715:;
#line 24163 "qb64pe.bas"
fornext_value3013=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ;
#line 24163 "qb64pe.bas"
fornext_finalvalue3013=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 24163 "qb64pe.bas"
fornext_step3013= 1 ;
#line 24163 "qb64pe.bas"
if (fornext_step3013<0) fornext_step_negative3013=1; else fornext_step_negative3013=0;
#line 24163 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3013;
#line 24163 "qb64pe.bas"
goto fornext_entrylabel3013;
#line 24163 "qb64pe.bas"
while(1){
#line 24163 "qb64pe.bas"
fornext_value3013=fornext_step3013+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I2);
#line 24163 "qb64pe.bas"
fornext_entrylabel3013:
#line 24163 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I2=fornext_value3013;
#line 24163 "qb64pe.bas"
if (fornext_step_negative3013){
#line 24163 "qb64pe.bas"
if (fornext_value3013<fornext_finalvalue3013) break;
#line 24163 "qb64pe.bas"
}else{
#line 24163 "qb64pe.bas"
if (fornext_value3013>fornext_finalvalue3013) break;
#line 24163 "qb64pe.bas"
}
#line 24163 "qb64pe.bas"
fornext_error3013:;
#line 24163 "qb64pe.bas"
if(qbevent){evnt(24163);if(r)goto S_27715;}
#line 24164 "qb64pe.bas"
do{
#line 24164 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I2));
#line 24164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24164 "qb64pe.bas"
if(!qbevent)break;evnt(24164);}while(r);
#line 24165 "qb64pe.bas"
S_27717:;
#line 24165 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2== 40 ))||is_error_pending()){
#line 24165 "qb64pe.bas"
if(qbevent){evnt(24165);if(r)goto S_27717;}
#line 24165 "qb64pe.bas"
do{
#line 24165 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2=*_FUNC_FIXOPERATIONORDER_REC_LONG_B2+ 1 ;
#line 24165 "qb64pe.bas"
if(!qbevent)break;evnt(24165);}while(r);
#line 24165 "qb64pe.bas"
}
#line 24166 "qb64pe.bas"
S_27720:;
#line 24166 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2== 41 ))||is_error_pending()){
#line 24166 "qb64pe.bas"
if(qbevent){evnt(24166);if(r)goto S_27720;}
#line 24166 "qb64pe.bas"
do{
#line 24166 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2=*_FUNC_FIXOPERATIONORDER_REC_LONG_B2- 1 ;
#line 24166 "qb64pe.bas"
if(!qbevent)break;evnt(24166);}while(r);
#line 24166 "qb64pe.bas"
}
#line 24167 "qb64pe.bas"
S_27723:;
#line 24167 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B2== 0 ))||is_error_pending()){
#line 24167 "qb64pe.bas"
if(qbevent){evnt(24167);if(r)goto S_27723;}
#line 24167 "qb64pe.bas"
do{
#line 24167 "qb64pe.bas"
goto fornext_exit_3012;
#line 24167 "qb64pe.bas"
if(!qbevent)break;evnt(24167);}while(r);
#line 24167 "qb64pe.bas"
}
#line 24168 "qb64pe.bas"
do{
#line 24168 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24168 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24168 "qb64pe.bas"
if(!qbevent)break;evnt(24168);}while(r);
#line 24169 "qb64pe.bas"
fornext_continue_3012:;
#line 24169 "qb64pe.bas"
}
#line 24169 "qb64pe.bas"
fornext_exit_3012:;
#line 24172 "qb64pe.bas"
do{
#line 24172 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I2;
#line 24172 "qb64pe.bas"
if(!qbevent)break;evnt(24172);}while(r);
#line 24174 "qb64pe.bas"
do{
#line 24174 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_new_txt_len(")",1)));
#line 24174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24174 "qb64pe.bas"
if(!qbevent)break;evnt(24174);}while(r);
#line 24177 "qb64pe.bas"
S_27730:;
#line 24177 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
#line 24177 "qb64pe.bas"
if(qbevent){evnt(24177);if(r)goto S_27730;}
#line 24178 "qb64pe.bas"
S_27731:;
#line 24178 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I<*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 24178 "qb64pe.bas"
if(qbevent){evnt(24178);if(r)goto S_27731;}
#line 24178 "qb64pe.bas"
do{
#line 24178 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3014=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 24178 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24178 "qb64pe.bas"
if(!qbevent)break;evnt(24178);}while(r);
#line 24178 "qb64pe.bas"
}else{
#line 24178 "qb64pe.bas"
do{
#line 24178 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC= 0 ;
#line 24178 "qb64pe.bas"
if(!qbevent)break;evnt(24178);}while(r);
#line 24178 "qb64pe.bas"
}
#line 24179 "qb64pe.bas"
S_27736:;
#line 24179 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC== 46 ))||is_error_pending()){
#line 24179 "qb64pe.bas"
if(qbevent){evnt(24179);if(r)goto S_27736;}
#line 24179 "qb64pe.bas"
do{
#line 24179 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
#line 24179 "qb64pe.bas"
if(!qbevent)break;evnt(24179);}while(r);
#line 24179 "qb64pe.bas"
do{
#line 24179 "qb64pe.bas"
goto LABEL_FOOUDT;
#line 24179 "qb64pe.bas"
if(!qbevent)break;evnt(24179);}while(r);
#line 24179 "qb64pe.bas"
}
#line 24180 "qb64pe.bas"
}
#line 24182 "qb64pe.bas"
do{
#line 24182 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24182 "qb64pe.bas"
if(!qbevent)break;evnt(24182);}while(r);
#line 24183 "qb64pe.bas"
do{
#line 24183 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24183 "qb64pe.bas"
if(!qbevent)break;evnt(24183);}while(r);
#line 24184 "qb64pe.bas"
}
#line 24185 "qb64pe.bas"
}
#line 24187 "qb64pe.bas"
S_27745:;
#line 24187 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC!= 40 ))||is_error_pending()){
#line 24187 "qb64pe.bas"
if(qbevent){evnt(24187);if(r)goto S_27745;}
#line 24188 "qb64pe.bas"
S_27746:;
#line 24188 "qb64pe.bas"
if (((((~(*_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAYS))&(-(*(int32*)(((char*)__UDT_ID)+((0+540)))!= 0 ))))|(-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))|((*_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAYS&(-(*(int32*)(((char*)__UDT_ID)+((0+512)))!= 0 )))))||is_error_pending()){
#line 24188 "qb64pe.bas"
if(qbevent){evnt(24188);if(r)goto S_27746;}
#line 24190 "qb64pe.bas"
S_27747:;
#line 24190 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)||is_error_pending()){
#line 24190 "qb64pe.bas"
if(qbevent){evnt(24190);if(r)goto S_27747;}
#line 24195 "qb64pe.bas"
S_27748:;
#line 24195 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
#line 24195 "qb64pe.bas"
if(qbevent){evnt(24195);if(r)goto S_27748;}
#line 24196 "qb64pe.bas"
do{
#line 24196 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_F2)));
#line 24196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24196 "qb64pe.bas"
if(!qbevent)break;evnt(24196);}while(r);
#line 24197 "qb64pe.bas"
}else{
#line 24198 "qb64pe.bas"
do{
#line 24198 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_F2)));
#line 24198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24198 "qb64pe.bas"
if(!qbevent)break;evnt(24198);}while(r);
#line 24199 "qb64pe.bas"
}
#line 24200 "qb64pe.bas"
S_27753:;
#line 24200 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24200 "qb64pe.bas"
if(qbevent){evnt(24200);if(r)goto S_27753;}
#line 24200 "qb64pe.bas"
do{
#line 24200 "qb64pe.bas"
goto exit_subfunc;
#line 24200 "qb64pe.bas"
if(!qbevent)break;evnt(24200);}while(r);
#line 24200 "qb64pe.bas"
}
#line 24201 "qb64pe.bas"
do{
#line 24201 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3015= 0 ));
#line 24201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24201 "qb64pe.bas"
if(!qbevent)break;evnt(24201);}while(r);
#line 24202 "qb64pe.bas"
do{
#line 24202 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3016=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24202 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24202 "qb64pe.bas"
if(!qbevent)break;evnt(24202);}while(r);
#line 24203 "qb64pe.bas"
do{
#line 24203 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24203 "qb64pe.bas"
if(!qbevent)break;evnt(24203);}while(r);
#line 24207 "qb64pe.bas"
S_27759:;
#line 24207 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC!= 46 ))||is_error_pending()){
#line 24207 "qb64pe.bas"
if(qbevent){evnt(24207);if(r)goto S_27759;}
#line 24207 "qb64pe.bas"
do{
#line 24207 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24207 "qb64pe.bas"
if(!qbevent)break;evnt(24207);}while(r);
#line 24207 "qb64pe.bas"
do{
#line 24207 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24207 "qb64pe.bas"
if(!qbevent)break;evnt(24207);}while(r);
#line 24207 "qb64pe.bas"
}
#line 24208 "qb64pe.bas"
do{
#line 24208 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
#line 24208 "qb64pe.bas"
if(!qbevent)break;evnt(24208);}while(r);
#line 24210 "qb64pe.bas"
LABEL_FOOUDT:;
#line 24210 "qb64pe.bas"
if(qbevent){evnt(24210);r=0;}
#line 24212 "qb64pe.bas"
do{
#line 24212 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP));
#line 24212 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24212 "qb64pe.bas"
if(!qbevent)break;evnt(24212);}while(r);
#line 24213 "qb64pe.bas"
do{
#line 24213 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_T& 4095ll )-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
#line 24213 "qb64pe.bas"
if(!qbevent)break;evnt(24213);}while(r);
#line 24214 "qb64pe.bas"
do{
#line 24214 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ;
#line 24214 "qb64pe.bas"
if(!qbevent)break;evnt(24214);}while(r);
#line 24219 "qb64pe.bas"
S_27767:;
#line 24219 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I>*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 24219 "qb64pe.bas"
if(qbevent){evnt(24219);if(r)goto S_27767;}
#line 24219 "qb64pe.bas"
do{
#line 24219 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17));
#line 24219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24219 "qb64pe.bas"
if(!qbevent)break;evnt(24219);}while(r);
#line 24219 "qb64pe.bas"
do{
#line 24219 "qb64pe.bas"
goto exit_subfunc;
#line 24219 "qb64pe.bas"
if(!qbevent)break;evnt(24219);}while(r);
#line 24219 "qb64pe.bas"
}
#line 24220 "qb64pe.bas"
do{
#line 24220 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 24220 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24220 "qb64pe.bas"
if(!qbevent)break;evnt(24220);}while(r);
#line 24221 "qb64pe.bas"
do{
#line 24221 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24221 "qb64pe.bas"
if(!qbevent)break;evnt(24221);}while(r);
#line 24222 "qb64pe.bas"
S_27773:;
#line 24222 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24222 "qb64pe.bas"
if(qbevent){evnt(24222);if(r)goto S_27773;}
#line 24222 "qb64pe.bas"
do{
#line 24222 "qb64pe.bas"
goto exit_subfunc;
#line 24222 "qb64pe.bas"
if(!qbevent)break;evnt(24222);}while(r);
#line 24222 "qb64pe.bas"
}
#line 24223 "qb64pe.bas"
do{
#line 24223 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_U,qbs_add(qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2),func_space( 256 -_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len)));
#line 24223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24223 "qb64pe.bas"
if(!qbevent)break;evnt(24223);}while(r);
#line 24226 "qb64pe.bas"
LABEL_FOOUDTNEXTE:;
#line 24226 "qb64pe.bas"
if(qbevent){evnt(24226);r=0;}
#line 24227 "qb64pe.bas"
S_27777:;
#line 24227 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1),_FUNC_FIXOPERATIONORDER_REC_STRING_U)))||is_error_pending()){
#line 24227 "qb64pe.bas"
if(qbevent){evnt(24227);if(r)goto S_27777;}
#line 24232 "qb64pe.bas"
do{
#line 24232 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)),_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24232 "qb64pe.bas"
if(!qbevent)break;evnt(24232);}while(r);
#line 24233 "qb64pe.bas"
do{
#line 24233 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3018= 0 ));
#line 24233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24233 "qb64pe.bas"
if(!qbevent)break;evnt(24233);}while(r);
#line 24234 "qb64pe.bas"
do{
#line 24234 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3019=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24234 "qb64pe.bas"
if(!qbevent)break;evnt(24234);}while(r);
#line 24235 "qb64pe.bas"
do{
#line 24235 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24235 "qb64pe.bas"
if(!qbevent)break;evnt(24235);}while(r);
#line 24241 "qb64pe.bas"
S_27782:;
#line 24241 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 24241 "qb64pe.bas"
if(qbevent){evnt(24241);if(r)goto S_27782;}
#line 24242 "qb64pe.bas"
S_27783:;
#line 24242 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I<*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 24242 "qb64pe.bas"
if(qbevent){evnt(24242);if(r)goto S_27783;}
#line 24243 "qb64pe.bas"
S_27784:;
#line 24243 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3020=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )))== 40 )))||is_error_pending()){
#line 24243 "qb64pe.bas"
if(qbevent){evnt(24243);if(r)goto S_27784;}
#line 24244 "qb64pe.bas"
do{
#line 24244 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP));
#line 24244 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24244 "qb64pe.bas"
if(!qbevent)break;evnt(24244);}while(r);
#line 24245 "qb64pe.bas"
do{
#line 24245 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2= 1 ;
#line 24245 "qb64pe.bas"
if(!qbevent)break;evnt(24245);}while(r);
#line 24246 "qb64pe.bas"
S_27787:;
#line 24246 "qb64pe.bas"
fornext_value3022=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 2 ;
#line 24246 "qb64pe.bas"
fornext_finalvalue3022=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 24246 "qb64pe.bas"
fornext_step3022= 1 ;
#line 24246 "qb64pe.bas"
if (fornext_step3022<0) fornext_step_negative3022=1; else fornext_step_negative3022=0;
#line 24246 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3022;
#line 24246 "qb64pe.bas"
goto fornext_entrylabel3022;
#line 24246 "qb64pe.bas"
while(1){
#line 24246 "qb64pe.bas"
fornext_value3022=fornext_step3022+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I2);
#line 24246 "qb64pe.bas"
fornext_entrylabel3022:
#line 24246 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I2=fornext_value3022;
#line 24246 "qb64pe.bas"
if (fornext_step_negative3022){
#line 24246 "qb64pe.bas"
if (fornext_value3022<fornext_finalvalue3022) break;
#line 24246 "qb64pe.bas"
}else{
#line 24246 "qb64pe.bas"
if (fornext_value3022>fornext_finalvalue3022) break;
#line 24246 "qb64pe.bas"
}
#line 24246 "qb64pe.bas"
fornext_error3022:;
#line 24246 "qb64pe.bas"
if(qbevent){evnt(24246);if(r)goto S_27787;}
#line 24247 "qb64pe.bas"
do{
#line 24247 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I2));
#line 24247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24247 "qb64pe.bas"
if(!qbevent)break;evnt(24247);}while(r);
#line 24248 "qb64pe.bas"
S_27789:;
#line 24248 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2== 40 ))||is_error_pending()){
#line 24248 "qb64pe.bas"
if(qbevent){evnt(24248);if(r)goto S_27789;}
#line 24248 "qb64pe.bas"
do{
#line 24248 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2=*_FUNC_FIXOPERATIONORDER_REC_LONG_B2+ 1 ;
#line 24248 "qb64pe.bas"
if(!qbevent)break;evnt(24248);}while(r);
#line 24248 "qb64pe.bas"
}
#line 24249 "qb64pe.bas"
S_27792:;
#line 24249 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C2== 41 ))||is_error_pending()){
#line 24249 "qb64pe.bas"
if(qbevent){evnt(24249);if(r)goto S_27792;}
#line 24249 "qb64pe.bas"
do{
#line 24249 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2=*_FUNC_FIXOPERATIONORDER_REC_LONG_B2- 1 ;
#line 24249 "qb64pe.bas"
if(!qbevent)break;evnt(24249);}while(r);
#line 24249 "qb64pe.bas"
}
#line 24250 "qb64pe.bas"
S_27795:;
#line 24250 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B2== 0 ))||is_error_pending()){
#line 24250 "qb64pe.bas"
if(qbevent){evnt(24250);if(r)goto S_27795;}
#line 24250 "qb64pe.bas"
do{
#line 24250 "qb64pe.bas"
goto fornext_exit_3021;
#line 24250 "qb64pe.bas"
if(!qbevent)break;evnt(24250);}while(r);
#line 24250 "qb64pe.bas"
}
#line 24251 "qb64pe.bas"
do{
#line 24251 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24251 "qb64pe.bas"
if(!qbevent)break;evnt(24251);}while(r);
#line 24252 "qb64pe.bas"
fornext_continue_3021:;
#line 24252 "qb64pe.bas"
}
#line 24252 "qb64pe.bas"
fornext_exit_3021:;
#line 24253 "qb64pe.bas"
S_27800:;
#line 24253 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B2!= 0 ))||is_error_pending()){
#line 24253 "qb64pe.bas"
if(qbevent){evnt(24253);if(r)goto S_27800;}
#line 24253 "qb64pe.bas"
do{
#line 24253 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9));
#line 24253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24253 "qb64pe.bas"
if(!qbevent)break;evnt(24253);}while(r);
#line 24253 "qb64pe.bas"
do{
#line 24253 "qb64pe.bas"
goto exit_subfunc;
#line 24253 "qb64pe.bas"
if(!qbevent)break;evnt(24253);}while(r);
#line 24253 "qb64pe.bas"
}
#line 24254 "qb64pe.bas"
do{
#line 24254 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=*_FUNC_FIXOPERATIONORDER_REC_LONG_I2;
#line 24254 "qb64pe.bas"
if(!qbevent)break;evnt(24254);}while(r);
#line 24255 "qb64pe.bas"
do{
#line 24255 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_new_txt_len(")",1)));
#line 24255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24255 "qb64pe.bas"
if(!qbevent)break;evnt(24255);}while(r);
#line 24256 "qb64pe.bas"
S_27806:;
#line 24256 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I==*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 24256 "qb64pe.bas"
if(qbevent){evnt(24256);if(r)goto S_27806;}
#line 24256 "qb64pe.bas"
do{
#line 24256 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24256 "qb64pe.bas"
if(!qbevent)break;evnt(24256);}while(r);
#line 24256 "qb64pe.bas"
do{
#line 24256 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24256 "qb64pe.bas"
if(!qbevent)break;evnt(24256);}while(r);
#line 24256 "qb64pe.bas"
}
#line 24257 "qb64pe.bas"
do{
#line 24257 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3023=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 24257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24257 "qb64pe.bas"
if(!qbevent)break;evnt(24257);}while(r);
#line 24258 "qb64pe.bas"
S_27811:;
#line 24258 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC== 46 ))||is_error_pending()){
#line 24258 "qb64pe.bas"
if(qbevent){evnt(24258);if(r)goto S_27811;}
#line 24259 "qb64pe.bas"
do{
#line 24259 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 24259 "qb64pe.bas"
if(!qbevent)break;evnt(24259);}while(r);
#line 24260 "qb64pe.bas"
S_27813:;
#line 24260 "qb64pe.bas"
if ((-((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 24260 "qb64pe.bas"
if(qbevent){evnt(24260);if(r)goto S_27813;}
#line 24260 "qb64pe.bas"
do{
#line 24260 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23));
#line 24260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24260 "qb64pe.bas"
if(!qbevent)break;evnt(24260);}while(r);
#line 24260 "qb64pe.bas"
do{
#line 24260 "qb64pe.bas"
goto exit_subfunc;
#line 24260 "qb64pe.bas"
if(!qbevent)break;evnt(24260);}while(r);
#line 24260 "qb64pe.bas"
}
#line 24261 "qb64pe.bas"
do{
#line 24261 "qb64pe.bas"
goto LABEL_FOOUDT;
#line 24261 "qb64pe.bas"
if(!qbevent)break;evnt(24261);}while(r);
#line 24262 "qb64pe.bas"
}
#line 24263 "qb64pe.bas"
do{
#line 24263 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24263 "qb64pe.bas"
if(!qbevent)break;evnt(24263);}while(r);
#line 24263 "qb64pe.bas"
do{
#line 24263 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24263 "qb64pe.bas"
if(!qbevent)break;evnt(24263);}while(r);
#line 24264 "qb64pe.bas"
}
#line 24265 "qb64pe.bas"
}
#line 24266 "qb64pe.bas"
}
#line 24268 "qb64pe.bas"
S_27824:;
#line 24268 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I==*_FUNC_FIXOPERATIONORDER_REC_LONG_N))||is_error_pending()){
#line 24268 "qb64pe.bas"
if(qbevent){evnt(24268);if(r)goto S_27824;}
#line 24268 "qb64pe.bas"
do{
#line 24268 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24268 "qb64pe.bas"
if(!qbevent)break;evnt(24268);}while(r);
#line 24268 "qb64pe.bas"
do{
#line 24268 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24268 "qb64pe.bas"
if(!qbevent)break;evnt(24268);}while(r);
#line 24268 "qb64pe.bas"
}
#line 24269 "qb64pe.bas"
do{
#line 24269 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3024=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 )));
#line 24269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24269 "qb64pe.bas"
if(!qbevent)break;evnt(24269);}while(r);
#line 24270 "qb64pe.bas"
S_27829:;
#line 24270 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_NEXTC!= 46 ))||is_error_pending()){
#line 24270 "qb64pe.bas"
if(qbevent){evnt(24270);if(r)goto S_27829;}
#line 24270 "qb64pe.bas"
do{
#line 24270 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24270 "qb64pe.bas"
if(!qbevent)break;evnt(24270);}while(r);
#line 24270 "qb64pe.bas"
do{
#line 24270 "qb64pe.bas"
goto LABEL_CLASSDONE_SPECIAL;
#line 24270 "qb64pe.bas"
if(!qbevent)break;evnt(24270);}while(r);
#line 24270 "qb64pe.bas"
}
#line 24272 "qb64pe.bas"
do{
#line 24272 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 24272 "qb64pe.bas"
if(!qbevent)break;evnt(24272);}while(r);
#line 24273 "qb64pe.bas"
S_27834:;
#line 24273 "qb64pe.bas"
if ((-((*_FUNC_FIXOPERATIONORDER_REC_LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 24273 "qb64pe.bas"
if(qbevent){evnt(24273);if(r)goto S_27834;}
#line 24273 "qb64pe.bas"
do{
#line 24273 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23));
#line 24273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24273 "qb64pe.bas"
if(!qbevent)break;evnt(24273);}while(r);
#line 24273 "qb64pe.bas"
do{
#line 24273 "qb64pe.bas"
goto exit_subfunc;
#line 24273 "qb64pe.bas"
if(!qbevent)break;evnt(24273);}while(r);
#line 24273 "qb64pe.bas"
}
#line 24274 "qb64pe.bas"
do{
#line 24274 "qb64pe.bas"
goto LABEL_FOOUDT;
#line 24274 "qb64pe.bas"
if(!qbevent)break;evnt(24274);}while(r);
#line 24276 "qb64pe.bas"
}
#line 24279 "qb64pe.bas"
do{
#line 24279 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
#line 24279 "qb64pe.bas"
if(!qbevent)break;evnt(24279);}while(r);
#line 24280 "qb64pe.bas"
S_27841:;
#line 24280 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 24280 "qb64pe.bas"
if(qbevent){evnt(24280);if(r)goto S_27841;}
#line 24280 "qb64pe.bas"
do{
#line 24280 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19));
#line 24280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24280 "qb64pe.bas"
if(!qbevent)break;evnt(24280);}while(r);
#line 24280 "qb64pe.bas"
do{
#line 24280 "qb64pe.bas"
goto exit_subfunc;
#line 24280 "qb64pe.bas"
if(!qbevent)break;evnt(24280);}while(r);
#line 24280 "qb64pe.bas"
}
#line 24281 "qb64pe.bas"
do{
#line 24281 "qb64pe.bas"
goto LABEL_FOOUDTNEXTE;
#line 24281 "qb64pe.bas"
if(!qbevent)break;evnt(24281);}while(r);
#line 24283 "qb64pe.bas"
}
#line 24286 "qb64pe.bas"
do{
#line 24286 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,_FUNC_FIXOPERATIONORDER_REC_STRING_F2);
#line 24286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24286 "qb64pe.bas"
if(!qbevent)break;evnt(24286);}while(r);
#line 24287 "qb64pe.bas"
do{
#line 24287 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_REC_STRING_F3));
#line 24287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24287 "qb64pe.bas"
if(!qbevent)break;evnt(24287);}while(r);
#line 24288 "qb64pe.bas"
S_27849:;
#line 24288 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24288 "qb64pe.bas"
if(qbevent){evnt(24288);if(r)goto S_27849;}
#line 24288 "qb64pe.bas"
do{
#line 24288 "qb64pe.bas"
goto exit_subfunc;
#line 24288 "qb64pe.bas"
if(!qbevent)break;evnt(24288);}while(r);
#line 24288 "qb64pe.bas"
}
#line 24289 "qb64pe.bas"
S_27852:;
#line 24289 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
#line 24289 "qb64pe.bas"
if(qbevent){evnt(24289);if(r)goto S_27852;}
#line 24290 "qb64pe.bas"
do{
#line 24290 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24290 "qb64pe.bas"
if(!qbevent)break;evnt(24290);}while(r);
#line 24291 "qb64pe.bas"
}else{
#line 24292 "qb64pe.bas"
do{
#line 24292 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)),_FUNC_FIXOPERATIONORDER_REC_STRING_S));
#line 24292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24292 "qb64pe.bas"
if(!qbevent)break;evnt(24292);}while(r);
#line 24293 "qb64pe.bas"
}
#line 24295 "qb64pe.bas"
do{
#line 24295 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3025= 0 ));
#line 24295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24295 "qb64pe.bas"
if(!qbevent)break;evnt(24295);}while(r);
#line 24296 "qb64pe.bas"
do{
#line 24296 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3026=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24296 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24296 "qb64pe.bas"
if(!qbevent)break;evnt(24296);}while(r);
#line 24297 "qb64pe.bas"
do{
#line 24297 "qb64pe.bas"
goto LABEL_COULDNOTCLASSIFY;
#line 24297 "qb64pe.bas"
if(!qbevent)break;evnt(24297);}while(r);
#line 24298 "qb64pe.bas"
}
#line 24300 "qb64pe.bas"
}
#line 24302 "qb64pe.bas"
}
#line 24303 "qb64pe.bas"
S_27863:;
#line 24303 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY== 2 ))||is_error_pending()){
#line 24303 "qb64pe.bas"
if(qbevent){evnt(24303);if(r)goto S_27863;}
#line 24303 "qb64pe.bas"
do{
#line 24303 "qb64pe.bas"
*__INTEGER_FINDANOTHERID= 1 ;
#line 24303 "qb64pe.bas"
if(!qbevent)break;evnt(24303);}while(r);
#line 24303 "qb64pe.bas"
do{
#line 24303 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_REC_STRING_TRY_STRING);
#line 24303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24303 "qb64pe.bas"
if(!qbevent)break;evnt(24303);}while(r);
#line 24303 "qb64pe.bas"
}else{
#line 24303 "qb64pe.bas"
do{
#line 24303 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_TRY= 0 ;
#line 24303 "qb64pe.bas"
if(!qbevent)break;evnt(24303);}while(r);
#line 24303 "qb64pe.bas"
}
#line 24304 "qb64pe.bas"
S_27869:;
#line 24304 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24304 "qb64pe.bas"
if(qbevent){evnt(24304);if(r)goto S_27869;}
#line 24304 "qb64pe.bas"
do{
#line 24304 "qb64pe.bas"
goto exit_subfunc;
#line 24304 "qb64pe.bas"
if(!qbevent)break;evnt(24304);}while(r);
#line 24304 "qb64pe.bas"
}
#line 24305 "qb64pe.bas"
dl_continue_3008:;
#line 24305 "qb64pe.bas"
}
#line 24305 "qb64pe.bas"
dl_exit_3008:;
#line 24306 "qb64pe.bas"
fornext_continue_3005:;
#line 24306 "qb64pe.bas"
}
#line 24306 "qb64pe.bas"
fornext_exit_3005:;
#line 24307 "qb64pe.bas"
LABEL_COULDNOTCLASSIFY:;
#line 24307 "qb64pe.bas"
if(qbevent){evnt(24307);r=0;}
#line 24310 "qb64pe.bas"
do{
#line 24310 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_ucase(_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24310 "qb64pe.bas"
if(!qbevent)break;evnt(24310);}while(r);
#line 24311 "qb64pe.bas"
do{
#line 24311 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 0 ;
#line 24311 "qb64pe.bas"
if(!qbevent)break;evnt(24311);}while(r);
#line 24312 "qb64pe.bas"
S_27876:;
#line 24312 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("STRING",6))))||is_error_pending()){
#line 24312 "qb64pe.bas"
if(qbevent){evnt(24312);if(r)goto S_27876;}
#line 24312 "qb64pe.bas"
do{
#line 24312 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24312 "qb64pe.bas"
if(!qbevent)break;evnt(24312);}while(r);
#line 24312 "qb64pe.bas"
}
#line 24313 "qb64pe.bas"
S_27879:;
#line 24313 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_UNSIGNED",9))))||is_error_pending()){
#line 24313 "qb64pe.bas"
if(qbevent){evnt(24313);if(r)goto S_27879;}
#line 24313 "qb64pe.bas"
do{
#line 24313 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24313 "qb64pe.bas"
if(!qbevent)break;evnt(24313);}while(r);
#line 24313 "qb64pe.bas"
}
#line 24314 "qb64pe.bas"
S_27882:;
#line 24314 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_BIT",4))))||is_error_pending()){
#line 24314 "qb64pe.bas"
if(qbevent){evnt(24314);if(r)goto S_27882;}
#line 24314 "qb64pe.bas"
do{
#line 24314 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24314 "qb64pe.bas"
if(!qbevent)break;evnt(24314);}while(r);
#line 24314 "qb64pe.bas"
}
#line 24315 "qb64pe.bas"
S_27885:;
#line 24315 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_BYTE",5))))||is_error_pending()){
#line 24315 "qb64pe.bas"
if(qbevent){evnt(24315);if(r)goto S_27885;}
#line 24315 "qb64pe.bas"
do{
#line 24315 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24315 "qb64pe.bas"
if(!qbevent)break;evnt(24315);}while(r);
#line 24315 "qb64pe.bas"
}
#line 24316 "qb64pe.bas"
S_27888:;
#line 24316 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("INTEGER",7))))||is_error_pending()){
#line 24316 "qb64pe.bas"
if(qbevent){evnt(24316);if(r)goto S_27888;}
#line 24316 "qb64pe.bas"
do{
#line 24316 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24316 "qb64pe.bas"
if(!qbevent)break;evnt(24316);}while(r);
#line 24316 "qb64pe.bas"
}
#line 24317 "qb64pe.bas"
S_27891:;
#line 24317 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("LONG",4))))||is_error_pending()){
#line 24317 "qb64pe.bas"
if(qbevent){evnt(24317);if(r)goto S_27891;}
#line 24317 "qb64pe.bas"
do{
#line 24317 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24317 "qb64pe.bas"
if(!qbevent)break;evnt(24317);}while(r);
#line 24317 "qb64pe.bas"
}
#line 24318 "qb64pe.bas"
S_27894:;
#line 24318 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_INTEGER64",10))))||is_error_pending()){
#line 24318 "qb64pe.bas"
if(qbevent){evnt(24318);if(r)goto S_27894;}
#line 24318 "qb64pe.bas"
do{
#line 24318 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24318 "qb64pe.bas"
if(!qbevent)break;evnt(24318);}while(r);
#line 24318 "qb64pe.bas"
}
#line 24319 "qb64pe.bas"
S_27897:;
#line 24319 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("SINGLE",6))))||is_error_pending()){
#line 24319 "qb64pe.bas"
if(qbevent){evnt(24319);if(r)goto S_27897;}
#line 24319 "qb64pe.bas"
do{
#line 24319 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24319 "qb64pe.bas"
if(!qbevent)break;evnt(24319);}while(r);
#line 24319 "qb64pe.bas"
}
#line 24320 "qb64pe.bas"
S_27900:;
#line 24320 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||is_error_pending()){
#line 24320 "qb64pe.bas"
if(qbevent){evnt(24320);if(r)goto S_27900;}
#line 24320 "qb64pe.bas"
do{
#line 24320 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24320 "qb64pe.bas"
if(!qbevent)break;evnt(24320);}while(r);
#line 24320 "qb64pe.bas"
}
#line 24321 "qb64pe.bas"
S_27903:;
#line 24321 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_FLOAT",6))))||is_error_pending()){
#line 24321 "qb64pe.bas"
if(qbevent){evnt(24321);if(r)goto S_27903;}
#line 24321 "qb64pe.bas"
do{
#line 24321 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24321 "qb64pe.bas"
if(!qbevent)break;evnt(24321);}while(r);
#line 24321 "qb64pe.bas"
}
#line 24322 "qb64pe.bas"
S_27906:;
#line 24322 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_F3,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
#line 24322 "qb64pe.bas"
if(qbevent){evnt(24322);if(r)goto S_27906;}
#line 24322 "qb64pe.bas"
do{
#line 24322 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE= 1 ;
#line 24322 "qb64pe.bas"
if(!qbevent)break;evnt(24322);}while(r);
#line 24322 "qb64pe.bas"
}
#line 24323 "qb64pe.bas"
S_27909:;
#line 24323 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_INTERNALTYPE== 1 ))||is_error_pending()){
#line 24323 "qb64pe.bas"
if(qbevent){evnt(24323);if(r)goto S_27909;}
#line 24324 "qb64pe.bas"
do{
#line 24324 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_REC_STRING_F3));
#line 24324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24324 "qb64pe.bas"
if(!qbevent)break;evnt(24324);}while(r);
#line 24325 "qb64pe.bas"
do{
#line 24325 "qb64pe.bas"
SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I,_FUNC_FIXOPERATIONORDER_REC_LONG_I,&(pass3027= 0 ));
#line 24325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24325 "qb64pe.bas"
if(!qbevent)break;evnt(24325);}while(r);
#line 24326 "qb64pe.bas"
do{
#line 24326 "qb64pe.bas"
SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3028=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_REC_STRING_F3);
#line 24326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24326 "qb64pe.bas"
if(!qbevent)break;evnt(24326);}while(r);
#line 24327 "qb64pe.bas"
do{
#line 24327 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 24327 "qb64pe.bas"
if(!qbevent)break;evnt(24327);}while(r);
#line 24328 "qb64pe.bas"
}
#line 24330 "qb64pe.bas"
do{
#line 24330 "qb64pe.bas"
goto LABEL_CLASSDONE;
#line 24330 "qb64pe.bas"
if(!qbevent)break;evnt(24330);}while(r);
#line 24331 "qb64pe.bas"
}
#line 24333 "qb64pe.bas"
LABEL_CLASSDONE:;
#line 24333 "qb64pe.bas"
if(qbevent){evnt(24333);r=0;}
#line 24334 "qb64pe.bas"
do{
#line 24334 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_STRING_F2));
#line 24334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24334 "qb64pe.bas"
if(!qbevent)break;evnt(24334);}while(r);
#line 24335 "qb64pe.bas"
}
#line 24336 "qb64pe.bas"
do{
#line 24336 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_F,__STRING1_SP));
#line 24336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24336 "qb64pe.bas"
if(!qbevent)break;evnt(24336);}while(r);
#line 24337 "qb64pe.bas"
LABEL_CLASSDONE_SPECIAL:;
#line 24337 "qb64pe.bas"
if(qbevent){evnt(24337);r=0;}
#line 24338 "qb64pe.bas"
fornext_continue_2967:;
#line 24338 "qb64pe.bas"
}
#line 24338 "qb64pe.bas"
fornext_exit_2967:;
#line 24340 "qb64pe.bas"
S_27921:;
#line 24340 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_F->len))||is_error_pending()){
#line 24340 "qb64pe.bas"
if(qbevent){evnt(24340);if(r)goto S_27921;}
#line 24340 "qb64pe.bas"
do{
#line 24340 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F,qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_STRING_F->len- 1 ));
#line 24340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24340 "qb64pe.bas"
if(!qbevent)break;evnt(24340);}while(r);
#line 24340 "qb64pe.bas"
}
#line 24342 "qb64pe.bas"
S_27924:;
#line 24342 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 24342 "qb64pe.bas"
if(qbevent){evnt(24342);if(r)goto S_27924;}
#line 24342 "qb64pe.bas"
do{
#line 24342 "qb64pe.bas"
tab_spc_cr_size=2;
#line 24342 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 24342 "qb64pe.bas"
if (is_error_pending()) goto skip3031;
#line 24342 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification:",33),_FUNC_FIXOPERATIONORDER_REC_STRING_A), 0, 1, 0);
#line 24342 "qb64pe.bas"
if (is_error_pending()) goto skip3031;
#line 24342 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_REC_LONG_N)), 1, 0, 1);
#line 24342 "qb64pe.bas"
if (is_error_pending()) goto skip3031;
#line 24342 "qb64pe.bas"
skip3031:
#line 24342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24342 "qb64pe.bas"
tab_spc_cr_size=1;
#line 24342 "qb64pe.bas"
if(!qbevent)break;evnt(24342);}while(r);
#line 24342 "qb64pe.bas"
}
#line 24343 "qb64pe.bas"
S_27927:;
#line 24343 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 24343 "qb64pe.bas"
if(qbevent){evnt(24343);if(r)goto S_27927;}
#line 24343 "qb64pe.bas"
do{
#line 24343 "qb64pe.bas"
tab_spc_cr_size=2;
#line 24343 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 24343 "qb64pe.bas"
if (is_error_pending()) goto skip3032;
#line 24343 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification(layout):",41),_FUNC_FIXOPERATIONORDER_REC_STRING_F), 0, 1, 0);
#line 24343 "qb64pe.bas"
if (is_error_pending()) goto skip3032;
#line 24343 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_REC_LONG_N)), 1, 0, 1);
#line 24343 "qb64pe.bas"
if (is_error_pending()) goto skip3032;
#line 24343 "qb64pe.bas"
skip3032:
#line 24343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24343 "qb64pe.bas"
tab_spc_cr_size=1;
#line 24343 "qb64pe.bas"
if(!qbevent)break;evnt(24343);}while(r);
#line 24343 "qb64pe.bas"
}
#line 24349 "qb64pe.bas"
do{
#line 24349 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_new_txt_len("",0));
#line 24349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24349 "qb64pe.bas"
if(!qbevent)break;evnt(24349);}while(r);
#line 24350 "qb64pe.bas"
do{
#line 24350 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B= 0 ;
#line 24350 "qb64pe.bas"
if(!qbevent)break;evnt(24350);}while(r);
#line 24351 "qb64pe.bas"
do{
#line 24351 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B2= 0 ;
#line 24351 "qb64pe.bas"
if(!qbevent)break;evnt(24351);}while(r);
#line 24352 "qb64pe.bas"
do{
#line 24352 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_P1= 0 ;
#line 24352 "qb64pe.bas"
if(!qbevent)break;evnt(24352);}while(r);
#line 24353 "qb64pe.bas"
do{
#line 24353 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_new_txt_len("",0));
#line 24353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24353 "qb64pe.bas"
if(!qbevent)break;evnt(24353);}while(r);
#line 24354 "qb64pe.bas"
do{
#line 24354 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A);
#line 24354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24354 "qb64pe.bas"
if(!qbevent)break;evnt(24354);}while(r);
#line 24355 "qb64pe.bas"
S_27936:;
#line 24355 "qb64pe.bas"
fornext_value3034= 1 ;
#line 24355 "qb64pe.bas"
fornext_finalvalue3034=*_FUNC_FIXOPERATIONORDER_REC_LONG_N;
#line 24355 "qb64pe.bas"
fornext_step3034= 1 ;
#line 24355 "qb64pe.bas"
if (fornext_step3034<0) fornext_step_negative3034=1; else fornext_step_negative3034=0;
#line 24355 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3034;
#line 24355 "qb64pe.bas"
goto fornext_entrylabel3034;
#line 24355 "qb64pe.bas"
while(1){
#line 24355 "qb64pe.bas"
fornext_value3034=fornext_step3034+(*_FUNC_FIXOPERATIONORDER_REC_LONG_I);
#line 24355 "qb64pe.bas"
fornext_entrylabel3034:
#line 24355 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_I=fornext_value3034;
#line 24355 "qb64pe.bas"
if (fornext_step_negative3034){
#line 24355 "qb64pe.bas"
if (fornext_value3034<fornext_finalvalue3034) break;
#line 24355 "qb64pe.bas"
}else{
#line 24355 "qb64pe.bas"
if (fornext_value3034>fornext_finalvalue3034) break;
#line 24355 "qb64pe.bas"
}
#line 24355 "qb64pe.bas"
fornext_error3034:;
#line 24355 "qb64pe.bas"
if(qbevent){evnt(24355);if(r)goto S_27936;}
#line 24357 "qb64pe.bas"
do{
#line 24357 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_OPENBRACKET= 0 ;
#line 24357 "qb64pe.bas"
if(!qbevent)break;evnt(24357);}while(r);
#line 24359 "qb64pe.bas"
do{
#line 24359 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 24359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24359 "qb64pe.bas"
if(!qbevent)break;evnt(24359);}while(r);
#line 24361 "qb64pe.bas"
do{
#line 24361 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_REC_STRING_A2);
#line 24361 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24361 "qb64pe.bas"
if(!qbevent)break;evnt(24361);}while(r);
#line 24365 "qb64pe.bas"
S_27940:;
#line 24365 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 123 )))||is_error_pending()){
#line 24365 "qb64pe.bas"
if(qbevent){evnt(24365);if(r)goto S_27940;}
#line 24366 "qb64pe.bas"
do{
#line 24366 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B+ 1 ;
#line 24366 "qb64pe.bas"
if(!qbevent)break;evnt(24366);}while(r);
#line 24368 "qb64pe.bas"
S_27942:;
#line 24368 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 1 ))||is_error_pending()){
#line 24368 "qb64pe.bas"
if(qbevent){evnt(24368);if(r)goto S_27942;}
#line 24373 "qb64pe.bas"
do{
#line 24373 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_P1=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ;
#line 24373 "qb64pe.bas"
if(!qbevent)break;evnt(24373);}while(r);
#line 24374 "qb64pe.bas"
do{
#line 24374 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_new_txt_len("(",1)),__STRING1_SP));
#line 24374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24374 "qb64pe.bas"
if(!qbevent)break;evnt(24374);}while(r);
#line 24376 "qb64pe.bas"
}
#line 24378 "qb64pe.bas"
do{
#line 24378 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_OPENBRACKET= 1 ;
#line 24378 "qb64pe.bas"
if(!qbevent)break;evnt(24378);}while(r);
#line 24380 "qb64pe.bas"
do{
#line 24380 "qb64pe.bas"
goto LABEL_FOOPASS;
#line 24380 "qb64pe.bas"
if(!qbevent)break;evnt(24380);}while(r);
#line 24382 "qb64pe.bas"
}
#line 24384 "qb64pe.bas"
S_27949:;
#line 24384 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 44 ))||is_error_pending()){
#line 24384 "qb64pe.bas"
if(qbevent){evnt(24384);if(r)goto S_27949;}
#line 24385 "qb64pe.bas"
S_27950:;
#line 24385 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 1 ))||is_error_pending()){
#line 24385 "qb64pe.bas"
if(qbevent){evnt(24385);if(r)goto S_27950;}
#line 24386 "qb64pe.bas"
do{
#line 24386 "qb64pe.bas"
goto LABEL_FOOPASSIT;
#line 24386 "qb64pe.bas"
if(!qbevent)break;evnt(24386);}while(r);
#line 24387 "qb64pe.bas"
}
#line 24388 "qb64pe.bas"
}
#line 24390 "qb64pe.bas"
S_27954:;
#line 24390 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 )))||is_error_pending()){
#line 24390 "qb64pe.bas"
if(qbevent){evnt(24390);if(r)goto S_27954;}
#line 24391 "qb64pe.bas"
do{
#line 24391 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_B=*_FUNC_FIXOPERATIONORDER_REC_LONG_B- 1 ;
#line 24391 "qb64pe.bas"
if(!qbevent)break;evnt(24391);}while(r);
#line 24393 "qb64pe.bas"
S_27956:;
#line 24393 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 24393 "qb64pe.bas"
if(qbevent){evnt(24393);if(r)goto S_27956;}
#line 24394 "qb64pe.bas"
LABEL_FOOPASSIT:;
#line 24394 "qb64pe.bas"
if(qbevent){evnt(24394);r=0;}
#line 24395 "qb64pe.bas"
S_27957:;
#line 24395 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_P1!=*_FUNC_FIXOPERATIONORDER_REC_LONG_I))||is_error_pending()){
#line 24395 "qb64pe.bas"
if(qbevent){evnt(24395);if(r)goto S_27957;}
#line 24396 "qb64pe.bas"
do{
#line 24396 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAY_CONTEXT= 0ll ;
#line 24396 "qb64pe.bas"
if(!qbevent)break;evnt(24396);}while(r);
#line 24397 "qb64pe.bas"
S_27959:;
#line 24397 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_P1> 2 ))||is_error_pending()){
#line 24397 "qb64pe.bas"
if(qbevent){evnt(24397);if(r)goto S_27959;}
#line 24398 "qb64pe.bas"
do{
#line 24398 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_TOKEN_BEFORE_PAREN,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3035=*_FUNC_FIXOPERATIONORDER_REC_LONG_P1- 2 )));
#line 24398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24398 "qb64pe.bas"
if(!qbevent)break;evnt(24398);}while(r);
#line 24399 "qb64pe.bas"
do{
#line 24399 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAY_CONTEXT=((qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TOKEN_BEFORE_PAREN,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_FIXOPERATIONORDER_REC_STRING_TOKEN_BEFORE_PAREN,qbs_new_txt_len("LBOUND",6))));
#line 24399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24399 "qb64pe.bas"
if(!qbevent)break;evnt(24399);}while(r);
#line 24400 "qb64pe.bas"
}
#line 24401 "qb64pe.bas"
do{
#line 24401 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FOO,FUNC_FIXOPERATIONORDER_REC(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_REC_STRING_A,_FUNC_FIXOPERATIONORDER_REC_LONG_P1,&(pass3036=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 )),_FUNC_FIXOPERATIONORDER_REC_LONG_BARE_ARRAY_CONTEXT));
#line 24401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24401 "qb64pe.bas"
if(!qbevent)break;evnt(24401);}while(r);
#line 24402 "qb64pe.bas"
S_27964:;
#line 24402 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24402 "qb64pe.bas"
if(qbevent){evnt(24402);if(r)goto S_27964;}
#line 24402 "qb64pe.bas"
do{
#line 24402 "qb64pe.bas"
goto exit_subfunc;
#line 24402 "qb64pe.bas"
if(!qbevent)break;evnt(24402);}while(r);
#line 24402 "qb64pe.bas"
}
#line 24403 "qb64pe.bas"
S_27967:;
#line 24403 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_FOO->len))||is_error_pending()){
#line 24403 "qb64pe.bas"
if(qbevent){evnt(24403);if(r)goto S_27967;}
#line 24404 "qb64pe.bas"
do{
#line 24404 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,_FUNC_FIXOPERATIONORDER_REC_STRING_FOO),__STRING1_SP));
#line 24404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24404 "qb64pe.bas"
if(!qbevent)break;evnt(24404);}while(r);
#line 24405 "qb64pe.bas"
S_27969:;
#line 24405 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 125 ))||is_error_pending()){
#line 24405 "qb64pe.bas"
if(qbevent){evnt(24405);if(r)goto S_27969;}
#line 24405 "qb64pe.bas"
do{
#line 24405 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,__STRING_TLAYOUT),__STRING1_SP));
#line 24405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24405 "qb64pe.bas"
if(!qbevent)break;evnt(24405);}while(r);
#line 24405 "qb64pe.bas"
}else{
#line 24405 "qb64pe.bas"
do{
#line 24405 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,__STRING_TLAYOUT),__STRING1_SP2));
#line 24405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24405 "qb64pe.bas"
if(!qbevent)break;evnt(24405);}while(r);
#line 24405 "qb64pe.bas"
}
#line 24406 "qb64pe.bas"
}
#line 24407 "qb64pe.bas"
}
#line 24408 "qb64pe.bas"
S_27976:;
#line 24408 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 44 ))||is_error_pending()){
#line 24408 "qb64pe.bas"
if(qbevent){evnt(24408);if(r)goto S_27976;}
#line 24408 "qb64pe.bas"
do{
#line 24408 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_new_txt_len(",",1)),__STRING1_SP));
#line 24408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24408 "qb64pe.bas"
if(!qbevent)break;evnt(24408);}while(r);
#line 24408 "qb64pe.bas"
do{
#line 24408 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_new_txt_len(",",1)),__STRING1_SP));
#line 24408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24408 "qb64pe.bas"
if(!qbevent)break;evnt(24408);}while(r);
#line 24408 "qb64pe.bas"
}else{
#line 24408 "qb64pe.bas"
do{
#line 24408 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_new_txt_len(")",1)),__STRING1_SP));
#line 24408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24408 "qb64pe.bas"
if(!qbevent)break;evnt(24408);}while(r);
#line 24408 "qb64pe.bas"
}
#line 24409 "qb64pe.bas"
do{
#line 24409 "qb64pe.bas"
*_FUNC_FIXOPERATIONORDER_REC_LONG_P1=*_FUNC_FIXOPERATIONORDER_REC_LONG_I+ 1 ;
#line 24409 "qb64pe.bas"
if(!qbevent)break;evnt(24409);}while(r);
#line 24410 "qb64pe.bas"
}
#line 24412 "qb64pe.bas"
do{
#line 24412 "qb64pe.bas"
goto LABEL_FOOPASS;
#line 24412 "qb64pe.bas"
if(!qbevent)break;evnt(24412);}while(r);
#line 24413 "qb64pe.bas"
}
#line 24418 "qb64pe.bas"
S_27986:;
#line 24418 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_B== 0 ))||is_error_pending()){
#line 24418 "qb64pe.bas"
if(qbevent){evnt(24418);if(r)goto S_27986;}
#line 24418 "qb64pe.bas"
do{
#line 24418 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,_FUNC_FIXOPERATIONORDER_REC_STRING_A2),__STRING1_SP));
#line 24418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24418 "qb64pe.bas"
if(!qbevent)break;evnt(24418);}while(r);
#line 24418 "qb64pe.bas"
}
#line 24421 "qb64pe.bas"
LABEL_FOOPASS:;
#line 24421 "qb64pe.bas"
if(qbevent){evnt(24421);r=0;}
#line 24423 "qb64pe.bas"
do{
#line 24423 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_F2,FUNC_GETELEMENTSPECIAL(_FUNC_FIXOPERATIONORDER_REC_STRING_F,_FUNC_FIXOPERATIONORDER_REC_LONG_I));
#line 24423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24423 "qb64pe.bas"
if(!qbevent)break;evnt(24423);}while(r);
#line 24424 "qb64pe.bas"
S_27990:;
#line 24424 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 24424 "qb64pe.bas"
if(qbevent){evnt(24424);if(r)goto S_27990;}
#line 24424 "qb64pe.bas"
do{
#line 24424 "qb64pe.bas"
goto exit_subfunc;
#line 24424 "qb64pe.bas"
if(!qbevent)break;evnt(24424);}while(r);
#line 24424 "qb64pe.bas"
}
#line 24425 "qb64pe.bas"
S_27993:;
#line 24425 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_F2->len))||is_error_pending()){
#line 24425 "qb64pe.bas"
if(qbevent){evnt(24425);if(r)goto S_27993;}
#line 24428 "qb64pe.bas"
S_27994:;
#line 24428 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_C== 46 ))||is_error_pending()){
#line 24428 "qb64pe.bas"
if(qbevent){evnt(24428);if(r)goto S_27994;}
#line 24429 "qb64pe.bas"
S_27995:;
#line 24429 "qb64pe.bas"
if (((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I<*_FUNC_FIXOPERATIONORDER_REC_LONG_N)))||is_error_pending()){
#line 24429 "qb64pe.bas"
if(qbevent){evnt(24429);if(r)goto S_27995;}
#line 24430 "qb64pe.bas"
S_27996:;
#line 24430 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_FF->len))||is_error_pending()){
#line 24430 "qb64pe.bas"
if(qbevent){evnt(24430);if(r)goto S_27996;}
#line 24430 "qb64pe.bas"
do{
#line 24430 "qb64pe.bas"
sub_mid(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,_FUNC_FIXOPERATIONORDER_REC_STRING_FF->len, 1 ,__STRING1_SP2,1);
#line 24430 "qb64pe.bas"
if(!qbevent)break;evnt(24430);}while(r);
#line 24430 "qb64pe.bas"
}
#line 24431 "qb64pe.bas"
do{
#line 24431 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_new_txt_len(".",1)),__STRING1_SP2));
#line 24431 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24431 "qb64pe.bas"
if(!qbevent)break;evnt(24431);}while(r);
#line 24432 "qb64pe.bas"
do{
#line 24432 "qb64pe.bas"
goto LABEL_FOOLOOPNXT;
#line 24432 "qb64pe.bas"
if(!qbevent)break;evnt(24432);}while(r);
#line 24433 "qb64pe.bas"
}
#line 24434 "qb64pe.bas"
}
#line 24437 "qb64pe.bas"
S_28003:;
#line 24437 "qb64pe.bas"
if ((*_FUNC_FIXOPERATIONORDER_REC_LONG_OPENBRACKET)||is_error_pending()){
#line 24437 "qb64pe.bas"
if(qbevent){evnt(24437);if(r)goto S_28003;}
#line 24440 "qb64pe.bas"
S_28004:;
#line 24440 "qb64pe.bas"
if ((-(*_FUNC_FIXOPERATIONORDER_REC_LONG_I!= 1 ))||is_error_pending()){
#line 24440 "qb64pe.bas"
if(qbevent){evnt(24440);if(r)goto S_28004;}
#line 24441 "qb64pe.bas"
S_28005:;
#line 24441 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_REC_STRING_A,&(pass3041=*_FUNC_FIXOPERATIONORDER_REC_LONG_I- 1 )))== 0 )))||is_error_pending()){
#line 24441 "qb64pe.bas"
if(qbevent){evnt(24441);if(r)goto S_28005;}
#line 24442 "qb64pe.bas"
do{
#line 24442 "qb64pe.bas"
sub_mid(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,_FUNC_FIXOPERATIONORDER_REC_STRING_FF->len, 1 ,__STRING1_SP2,1);
#line 24442 "qb64pe.bas"
if(!qbevent)break;evnt(24442);}while(r);
#line 24443 "qb64pe.bas"
}
#line 24444 "qb64pe.bas"
}
#line 24445 "qb64pe.bas"
do{
#line 24445 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,_FUNC_FIXOPERATIONORDER_REC_STRING_F2),__STRING1_SP2));
#line 24445 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24445 "qb64pe.bas"
if(!qbevent)break;evnt(24445);}while(r);
#line 24446 "qb64pe.bas"
}else{
#line 24447 "qb64pe.bas"
do{
#line 24447 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,_FUNC_FIXOPERATIONORDER_REC_STRING_F2),__STRING1_SP));
#line 24447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24447 "qb64pe.bas"
if(!qbevent)break;evnt(24447);}while(r);
#line 24448 "qb64pe.bas"
}
#line 24450 "qb64pe.bas"
}
#line 24452 "qb64pe.bas"
LABEL_FOOLOOPNXT:;
#line 24452 "qb64pe.bas"
if(qbevent){evnt(24452);r=0;}
#line 24454 "qb64pe.bas"
fornext_continue_3033:;
#line 24454 "qb64pe.bas"
}
#line 24454 "qb64pe.bas"
fornext_exit_3033:;
#line 24456 "qb64pe.bas"
S_28015:;
#line 24456 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_AA->len))||is_error_pending()){
#line 24456 "qb64pe.bas"
if(qbevent){evnt(24456);if(r)goto S_28015;}
#line 24456 "qb64pe.bas"
do{
#line 24456 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_AA,_FUNC_FIXOPERATIONORDER_REC_STRING_AA->len- 1 ));
#line 24456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24456 "qb64pe.bas"
if(!qbevent)break;evnt(24456);}while(r);
#line 24456 "qb64pe.bas"
}
#line 24457 "qb64pe.bas"
S_28018:;
#line 24457 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_REC_STRING_FF->len))||is_error_pending()){
#line 24457 "qb64pe.bas"
if(qbevent){evnt(24457);if(r)goto S_28018;}
#line 24457 "qb64pe.bas"
do{
#line 24457 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,qbs_left(_FUNC_FIXOPERATIONORDER_REC_STRING_FF,_FUNC_FIXOPERATIONORDER_REC_STRING_FF->len- 1 ));
#line 24457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24457 "qb64pe.bas"
if(!qbevent)break;evnt(24457);}while(r);
#line 24457 "qb64pe.bas"
}
#line 24459 "qb64pe.bas"
S_28021:;
#line 24459 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 24459 "qb64pe.bas"
if(qbevent){evnt(24459);if(r)goto S_28021;}
#line 24459 "qb64pe.bas"
do{
#line 24459 "qb64pe.bas"
tab_spc_cr_size=2;
#line 24459 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 24459 "qb64pe.bas"
if (is_error_pending()) goto skip3047;
#line 24459 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:return:",25),_FUNC_FIXOPERATIONORDER_REC_STRING_AA), 0, 0, 1);
#line 24459 "qb64pe.bas"
if (is_error_pending()) goto skip3047;
#line 24459 "qb64pe.bas"
skip3047:
#line 24459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24459 "qb64pe.bas"
tab_spc_cr_size=1;
#line 24459 "qb64pe.bas"
if(!qbevent)break;evnt(24459);}while(r);
#line 24459 "qb64pe.bas"
}
#line 24460 "qb64pe.bas"
S_28024:;
#line 24460 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 24460 "qb64pe.bas"
if(qbevent){evnt(24460);if(r)goto S_28024;}
#line 24460 "qb64pe.bas"
do{
#line 24460 "qb64pe.bas"
tab_spc_cr_size=2;
#line 24460 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 24460 "qb64pe.bas"
if (is_error_pending()) goto skip3048;
#line 24460 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:layout:",25),_FUNC_FIXOPERATIONORDER_REC_STRING_FF), 0, 0, 1);
#line 24460 "qb64pe.bas"
if (is_error_pending()) goto skip3048;
#line 24460 "qb64pe.bas"
skip3048:
#line 24460 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24460 "qb64pe.bas"
tab_spc_cr_size=1;
#line 24460 "qb64pe.bas"
if(!qbevent)break;evnt(24460);}while(r);
#line 24460 "qb64pe.bas"
}
#line 24461 "qb64pe.bas"
do{
#line 24461 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_REC_STRING_FF);
#line 24461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24461 "qb64pe.bas"
if(!qbevent)break;evnt(24461);}while(r);
#line 24462 "qb64pe.bas"
do{
#line 24462 "qb64pe.bas"
qbs_set(_FUNC_FIXOPERATIONORDER_REC_STRING_FIXOPERATIONORDER_REC,_FUNC_FIXOPERATIONORDER_REC_STRING_AA);
#line 24462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24462 "qb64pe.bas"
if(!qbevent)break;evnt(24462);}while(r);
#line 24464 "qb64pe.bas"
do{
#line 24464 "qb64pe.bas"
*__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ;
#line 24464 "qb64pe.bas"
if(!qbevent)break;evnt(24464);}while(r);
#line 24465 "qb64pe.bas"
exit_subfunc:;
#line 24465 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 24465 "qb64pe.bas"
#include "free71.txt"
#line 24465 "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 24465 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 24465 "qb64pe.bas"
qbs_maketmp(_FUNC_FIXOPERATIONORDER_REC_STRING_FIXOPERATIONORDER_REC);return _FUNC_FIXOPERATIONORDER_REC_STRING_FIXOPERATIONORDER_REC;
#line 24465 "qb64pe.bas"
}
