#line 24580 "qb64pe.bas"
qbs* FUNC_LINEFORMAT(qbs*_FUNC_LINEFORMAT_STRING_A){
#line 24580 "qb64pe.bas"
qbs *tqbs;
#line 24580 "qb64pe.bas"
ptrszint tmp_long;
#line 24580 "qb64pe.bas"
int32 tmp_fileno;
#line 24580 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 24580 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 24580 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 24580 "qb64pe.bas"
#include "data76.txt"
#line 24580 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 24580 "qb64pe.bas"
new_mem_lock();
#line 24580 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 24580 "qb64pe.bas"
sf_mem_lock->type=3;
#line 24580 "qb64pe.bas"
libqb_check_stack();
#line 24580 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 24581 "qb64pe.bas"
do{
#line 24581 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0));
#line 24581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24581 "qb64pe.bas"
if(!qbevent)break;evnt(24581);}while(r);
#line 24582 "qb64pe.bas"
do{
#line 24582 "qb64pe.bas"
*__LONG_LINECONTINUATION= 0 ;
#line 24582 "qb64pe.bas"
if(!qbevent)break;evnt(24582);}while(r);
#line 24584 "qb64pe.bas"
LABEL_CONTINUELINE:;
#line 24584 "qb64pe.bas"
if(qbevent){evnt(24584);r=0;}
#line 24586 "qb64pe.bas"
do{
#line 24586 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_add(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("  ",2)));
#line 24586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24586 "qb64pe.bas"
if(!qbevent)break;evnt(24586);}while(r);
#line 24588 "qb64pe.bas"
do{
#line 24588 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A);
#line 24588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24588 "qb64pe.bas"
if(!qbevent)break;evnt(24588);}while(r);
#line 24589 "qb64pe.bas"
do{
#line 24589 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_ucase(_FUNC_LINEFORMAT_STRING_A));
#line 24589 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24589 "qb64pe.bas"
if(!qbevent)break;evnt(24589);}while(r);
#line 24591 "qb64pe.bas"
do{
#line 24591 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len;
#line 24591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24591 "qb64pe.bas"
if(!qbevent)break;evnt(24591);}while(r);
#line 24592 "qb64pe.bas"
do{
#line 24592 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I= 1 ;
#line 24592 "qb64pe.bas"
if(!qbevent)break;evnt(24592);}while(r);
#line 24593 "qb64pe.bas"
LABEL_LINEFORMATNEXT:;
#line 24593 "qb64pe.bas"
if(qbevent){evnt(24593);r=0;}
#line 24594 "qb64pe.bas"
S_28225:;
#line 24594 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24594 "qb64pe.bas"
if(qbevent){evnt(24594);if(r)goto S_28225;}
#line 24594 "qb64pe.bas"
do{
#line 24594 "qb64pe.bas"
goto LABEL_LINEFORMATDONE;
#line 24594 "qb64pe.bas"
if(!qbevent)break;evnt(24594);}while(r);
#line 24594 "qb64pe.bas"
}
#line 24596 "qb64pe.bas"
do{
#line 24596 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 24596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24596 "qb64pe.bas"
if(!qbevent)break;evnt(24596);}while(r);
#line 24599 "qb64pe.bas"
S_28229:;
#line 24599 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||is_error_pending()){
#line 24599 "qb64pe.bas"
if(qbevent){evnt(24599);if(r)goto S_28229;}
#line 24600 "qb64pe.bas"
do{
#line 24600 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ENDINGQUOTE=func_instr(*_FUNC_LINEFORMAT_LONG_I+ 1 ,_FUNC_LINEFORMAT_STRING_CA,func_chr( 34 ),0|1);
#line 24600 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24600 "qb64pe.bas"
if(!qbevent)break;evnt(24600);}while(r);
#line 24601 "qb64pe.bas"
S_28231:;
#line 24601 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_ENDINGQUOTE== 0 ))||is_error_pending()){
#line 24601 "qb64pe.bas"
if(qbevent){evnt(24601);if(r)goto S_28231;}
#line 24601 "qb64pe.bas"
do{
#line 24601 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ENDINGQUOTE=*_FUNC_LINEFORMAT_LONG_N- 1 ;
#line 24601 "qb64pe.bas"
if(!qbevent)break;evnt(24601);}while(r);
#line 24601 "qb64pe.bas"
}
#line 24603 "qb64pe.bas"
do{
#line 24603 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),FUNC_CREATEELEMENTSTRING(func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_ENDINGQUOTE- 1 -*_FUNC_LINEFORMAT_LONG_I,0|1))));
#line 24603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24603 "qb64pe.bas"
if(!qbevent)break;evnt(24603);}while(r);
#line 24604 "qb64pe.bas"
do{
#line 24604 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_ENDINGQUOTE+ 1 ;
#line 24604 "qb64pe.bas"
if(!qbevent)break;evnt(24604);}while(r);
#line 24606 "qb64pe.bas"
do{
#line 24606 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 24606 "qb64pe.bas"
if(!qbevent)break;evnt(24606);}while(r);
#line 24607 "qb64pe.bas"
}
#line 24610 "qb64pe.bas"
do{
#line 24610 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I;
#line 24610 "qb64pe.bas"
if(!qbevent)break;evnt(24610);}while(r);
#line 24611 "qb64pe.bas"
S_28239:;
#line 24611 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||is_error_pending()){
#line 24611 "qb64pe.bas"
if(qbevent){evnt(24611);if(r)goto S_28239;}
#line 24612 "qb64pe.bas"
do{
#line 24612 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1));
#line 24612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24612 "qb64pe.bas"
if(!qbevent)break;evnt(24612);}while(r);
#line 24612 "qb64pe.bas"
do{
#line 24612 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2);
#line 24612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24612 "qb64pe.bas"
if(!qbevent)break;evnt(24612);}while(r);
#line 24613 "qb64pe.bas"
S_28242:;
#line 24613 "qb64pe.bas"
if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||is_error_pending()){
#line 24613 "qb64pe.bas"
if(qbevent){evnt(24613);if(r)goto S_28242;}
#line 24613 "qb64pe.bas"
do{
#line 24613 "qb64pe.bas"
goto LABEL_LFNUMBER;
#line 24613 "qb64pe.bas"
if(!qbevent)break;evnt(24613);}while(r);
#line 24613 "qb64pe.bas"
}
#line 24614 "qb64pe.bas"
}
#line 24615 "qb64pe.bas"
S_28246:;
#line 24615 "qb64pe.bas"
if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||is_error_pending()){
#line 24615 "qb64pe.bas"
if(qbevent){evnt(24615);if(r)goto S_28246;}
#line 24616 "qb64pe.bas"
LABEL_LFNUMBER:;
#line 24616 "qb64pe.bas"
if(qbevent){evnt(24616);r=0;}
#line 24618 "qb64pe.bas"
do{
#line 24618 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,func_chr(*_FUNC_LINEFORMAT_LONG_C));
#line 24618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24618 "qb64pe.bas"
if(!qbevent)break;evnt(24618);}while(r);
#line 24621 "qb64pe.bas"
S_28248:;
#line 24621 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("ELSE",4))))))||is_error_pending()){
#line 24621 "qb64pe.bas"
if(qbevent){evnt(24621);if(r)goto S_28248;}
#line 24622 "qb64pe.bas"
do{
#line 24622 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("GOTO",4)));
#line 24622 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24622 "qb64pe.bas"
if(!qbevent)break;evnt(24622);}while(r);
#line 24623 "qb64pe.bas"
}
#line 24630 "qb64pe.bas"
do{
#line 24630 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MODE= 0 ;
#line 24630 "qb64pe.bas"
if(!qbevent)break;evnt(24630);}while(r);
#line 24631 "qb64pe.bas"
do{
#line 24631 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0));
#line 24631 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24631 "qb64pe.bas"
if(!qbevent)break;evnt(24631);}while(r);
#line 24632 "qb64pe.bas"
do{
#line 24632 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_DP= 0 ;
#line 24632 "qb64pe.bas"
if(!qbevent)break;evnt(24632);}while(r);
#line 24633 "qb64pe.bas"
do{
#line 24633 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0));
#line 24633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24633 "qb64pe.bas"
if(!qbevent)break;evnt(24633);}while(r);
#line 24634 "qb64pe.bas"
do{
#line 24634 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 0 ;
#line 24634 "qb64pe.bas"
if(!qbevent)break;evnt(24634);}while(r);
#line 24635 "qb64pe.bas"
do{
#line 24635 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_PM= 1 ;
#line 24635 "qb64pe.bas"
if(!qbevent)break;evnt(24635);}while(r);
#line 24636 "qb64pe.bas"
do{
#line 24636 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0));
#line 24636 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24636 "qb64pe.bas"
if(!qbevent)break;evnt(24636);}while(r);
#line 24641 "qb64pe.bas"
LABEL_LFREADNUMBER:;
#line 24641 "qb64pe.bas"
if(qbevent){evnt(24641);r=0;}
#line 24642 "qb64pe.bas"
do{
#line 24642 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VALID= 0 ;
#line 24642 "qb64pe.bas"
if(!qbevent)break;evnt(24642);}while(r);
#line 24644 "qb64pe.bas"
S_28259:;
#line 24644 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||is_error_pending()){
#line 24644 "qb64pe.bas"
if(qbevent){evnt(24644);if(r)goto S_28259;}
#line 24645 "qb64pe.bas"
S_28260:;
#line 24645 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||is_error_pending()){
#line 24645 "qb64pe.bas"
if(qbevent){evnt(24645);if(r)goto S_28260;}
#line 24645 "qb64pe.bas"
do{
#line 24645 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VALID= 1 ;
#line 24645 "qb64pe.bas"
if(!qbevent)break;evnt(24645);}while(r);
#line 24645 "qb64pe.bas"
do{
#line 24645 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_DP= 1 ;
#line 24645 "qb64pe.bas"
if(!qbevent)break;evnt(24645);}while(r);
#line 24645 "qb64pe.bas"
do{
#line 24645 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MODE= 1 ;
#line 24645 "qb64pe.bas"
if(!qbevent)break;evnt(24645);}while(r);
#line 24645 "qb64pe.bas"
}
#line 24646 "qb64pe.bas"
}
#line 24648 "qb64pe.bas"
S_28266:;
#line 24648 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||is_error_pending()){
#line 24648 "qb64pe.bas"
if(qbevent){evnt(24648);if(r)goto S_28266;}
#line 24649 "qb64pe.bas"
do{
#line 24649 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VALID= 1 ;
#line 24649 "qb64pe.bas"
if(!qbevent)break;evnt(24649);}while(r);
#line 24650 "qb64pe.bas"
S_28268:;
#line 24650 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||is_error_pending()){
#line 24650 "qb64pe.bas"
if(qbevent){evnt(24650);if(r)goto S_28268;}
#line 24650 "qb64pe.bas"
do{
#line 24650 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_C));
#line 24650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24650 "qb64pe.bas"
if(!qbevent)break;evnt(24650);}while(r);
#line 24650 "qb64pe.bas"
}
#line 24651 "qb64pe.bas"
S_28271:;
#line 24651 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||is_error_pending()){
#line 24651 "qb64pe.bas"
if(qbevent){evnt(24651);if(r)goto S_28271;}
#line 24651 "qb64pe.bas"
do{
#line 24651 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_add(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_C));
#line 24651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24651 "qb64pe.bas"
if(!qbevent)break;evnt(24651);}while(r);
#line 24651 "qb64pe.bas"
}
#line 24652 "qb64pe.bas"
S_28274:;
#line 24652 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||is_error_pending()){
#line 24652 "qb64pe.bas"
if(qbevent){evnt(24652);if(r)goto S_28274;}
#line 24652 "qb64pe.bas"
do{
#line 24652 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MODE= 3 ;
#line 24652 "qb64pe.bas"
if(!qbevent)break;evnt(24652);}while(r);
#line 24652 "qb64pe.bas"
}
#line 24653 "qb64pe.bas"
S_28277:;
#line 24653 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||is_error_pending()){
#line 24653 "qb64pe.bas"
if(qbevent){evnt(24653);if(r)goto S_28277;}
#line 24653 "qb64pe.bas"
do{
#line 24653 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_add(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_C));
#line 24653 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24653 "qb64pe.bas"
if(!qbevent)break;evnt(24653);}while(r);
#line 24653 "qb64pe.bas"
}
#line 24654 "qb64pe.bas"
}
#line 24656 "qb64pe.bas"
S_28281:;
#line 24656 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||is_error_pending()){
#line 24656 "qb64pe.bas"
if(qbevent){evnt(24656);if(r)goto S_28281;}
#line 24657 "qb64pe.bas"
S_28282:;
#line 24657 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||is_error_pending()){
#line 24657 "qb64pe.bas"
if(qbevent){evnt(24657);if(r)goto S_28282;}
#line 24658 "qb64pe.bas"
do{
#line 24658 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VALID= 1 ;
#line 24658 "qb64pe.bas"
if(!qbevent)break;evnt(24658);}while(r);
#line 24659 "qb64pe.bas"
S_28284:;
#line 24659 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||is_error_pending()){
#line 24659 "qb64pe.bas"
if(qbevent){evnt(24659);if(r)goto S_28284;}
#line 24659 "qb64pe.bas"
do{
#line 24659 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 1 ;
#line 24659 "qb64pe.bas"
if(!qbevent)break;evnt(24659);}while(r);
#line 24659 "qb64pe.bas"
}
#line 24660 "qb64pe.bas"
S_28287:;
#line 24660 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||is_error_pending()){
#line 24660 "qb64pe.bas"
if(qbevent){evnt(24660);if(r)goto S_28287;}
#line 24660 "qb64pe.bas"
do{
#line 24660 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 2 ;
#line 24660 "qb64pe.bas"
if(!qbevent)break;evnt(24660);}while(r);
#line 24660 "qb64pe.bas"
}
#line 24661 "qb64pe.bas"
S_28290:;
#line 24661 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||is_error_pending()){
#line 24661 "qb64pe.bas"
if(qbevent){evnt(24661);if(r)goto S_28290;}
#line 24661 "qb64pe.bas"
do{
#line 24661 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 3 ;
#line 24661 "qb64pe.bas"
if(!qbevent)break;evnt(24661);}while(r);
#line 24661 "qb64pe.bas"
}
#line 24662 "qb64pe.bas"
do{
#line 24662 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MODE= 2 ;
#line 24662 "qb64pe.bas"
if(!qbevent)break;evnt(24662);}while(r);
#line 24663 "qb64pe.bas"
}
#line 24664 "qb64pe.bas"
}
#line 24666 "qb64pe.bas"
S_28296:;
#line 24666 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||is_error_pending()){
#line 24666 "qb64pe.bas"
if(qbevent){evnt(24666);if(r)goto S_28296;}
#line 24667 "qb64pe.bas"
S_28297:;
#line 24667 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||is_error_pending()){
#line 24667 "qb64pe.bas"
if(qbevent){evnt(24667);if(r)goto S_28297;}
#line 24668 "qb64pe.bas"
do{
#line 24668 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VALID= 1 ;
#line 24668 "qb64pe.bas"
if(!qbevent)break;evnt(24668);}while(r);
#line 24669 "qb64pe.bas"
S_28299:;
#line 24669 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||is_error_pending()){
#line 24669 "qb64pe.bas"
if(qbevent){evnt(24669);if(r)goto S_28299;}
#line 24669 "qb64pe.bas"
do{
#line 24669 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_PM= -1 ;
#line 24669 "qb64pe.bas"
if(!qbevent)break;evnt(24669);}while(r);
#line 24669 "qb64pe.bas"
}
#line 24670 "qb64pe.bas"
do{
#line 24670 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MODE= 3 ;
#line 24670 "qb64pe.bas"
if(!qbevent)break;evnt(24670);}while(r);
#line 24671 "qb64pe.bas"
}
#line 24672 "qb64pe.bas"
}
#line 24674 "qb64pe.bas"
S_28305:;
#line 24674 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_VALID)||is_error_pending()){
#line 24674 "qb64pe.bas"
if(qbevent){evnt(24674);if(r)goto S_28305;}
#line 24675 "qb64pe.bas"
S_28306:;
#line 24675 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24675 "qb64pe.bas"
if(qbevent){evnt(24675);if(r)goto S_28306;}
#line 24675 "qb64pe.bas"
do{
#line 24675 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24675 "qb64pe.bas"
if(!qbevent)break;evnt(24675);}while(r);
#line 24675 "qb64pe.bas"
do{
#line 24675 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24675 "qb64pe.bas"
if(!qbevent)break;evnt(24675);}while(r);
#line 24675 "qb64pe.bas"
do{
#line 24675 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C);
#line 24675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24675 "qb64pe.bas"
if(!qbevent)break;evnt(24675);}while(r);
#line 24675 "qb64pe.bas"
do{
#line 24675 "qb64pe.bas"
goto LABEL_LFREADNUMBER;
#line 24675 "qb64pe.bas"
if(!qbevent)break;evnt(24675);}while(r);
#line 24675 "qb64pe.bas"
}
#line 24676 "qb64pe.bas"
}
#line 24681 "qb64pe.bas"
S_28313:;
#line 24681 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_WHOLE, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24681 "qb64pe.bas"
if(qbevent){evnt(24681);if(r)goto S_28313;}
#line 24681 "qb64pe.bas"
do{
#line 24681 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_right(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ));
#line 24681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24681 "qb64pe.bas"
if(!qbevent)break;evnt(24681);}while(r);
#line 24681 "qb64pe.bas"
dl_continue_3062:;
#line 24681 "qb64pe.bas"
}
#line 24681 "qb64pe.bas"
dl_exit_3062:;
#line 24683 "qb64pe.bas"
S_28316:;
#line 24683 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_FRAC, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24683 "qb64pe.bas"
if(qbevent){evnt(24683);if(r)goto S_28316;}
#line 24683 "qb64pe.bas"
do{
#line 24683 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_left(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_FRAC->len- 1 ));
#line 24683 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24683 "qb64pe.bas"
if(!qbevent)break;evnt(24683);}while(r);
#line 24683 "qb64pe.bas"
dl_continue_3064:;
#line 24683 "qb64pe.bas"
}
#line 24683 "qb64pe.bas"
dl_exit_3064:;
#line 24685 "qb64pe.bas"
S_28319:;
#line 24685 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_EX, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24685 "qb64pe.bas"
if(qbevent){evnt(24685);if(r)goto S_28319;}
#line 24685 "qb64pe.bas"
do{
#line 24685 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_right(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_EX->len- 1 ));
#line 24685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24685 "qb64pe.bas"
if(!qbevent)break;evnt(24685);}while(r);
#line 24685 "qb64pe.bas"
dl_continue_3066:;
#line 24685 "qb64pe.bas"
}
#line 24685 "qb64pe.bas"
dl_exit_3066:;
#line 24687 "qb64pe.bas"
S_28322:;
#line 24687 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||is_error_pending()){
#line 24687 "qb64pe.bas"
if(qbevent){evnt(24687);if(r)goto S_28322;}
#line 24687 "qb64pe.bas"
do{
#line 24687 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FLOAT= 1 ;
#line 24687 "qb64pe.bas"
if(!qbevent)break;evnt(24687);}while(r);
#line 24687 "qb64pe.bas"
}else{
#line 24687 "qb64pe.bas"
do{
#line 24687 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FLOAT= 0 ;
#line 24687 "qb64pe.bas"
if(!qbevent)break;evnt(24687);}while(r);
#line 24687 "qb64pe.bas"
}
#line 24689 "qb64pe.bas"
do{
#line 24689 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ;
#line 24689 "qb64pe.bas"
if(!qbevent)break;evnt(24689);}while(r);
#line 24691 "qb64pe.bas"
S_28328:;
#line 24691 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_ED)||is_error_pending()){
#line 24691 "qb64pe.bas"
if(qbevent){evnt(24691);if(r)goto S_28328;}
#line 24691 "qb64pe.bas"
do{
#line 24691 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24691 "qb64pe.bas"
if(!qbevent)break;evnt(24691);}while(r);
#line 24691 "qb64pe.bas"
do{
#line 24691 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24691 "qb64pe.bas"
if(!qbevent)break;evnt(24691);}while(r);
#line 24691 "qb64pe.bas"
}
#line 24694 "qb64pe.bas"
S_28332:;
#line 24694 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||is_error_pending()){
#line 24694 "qb64pe.bas"
if(qbevent){evnt(24694);if(r)goto S_28332;}
#line 24695 "qb64pe.bas"
do{
#line 24695 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1));
#line 24695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24695 "qb64pe.bas"
if(!qbevent)break;evnt(24695);}while(r);
#line 24696 "qb64pe.bas"
S_28334:;
#line 24696 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24696 "qb64pe.bas"
if(qbevent){evnt(24696);if(r)goto S_28334;}
#line 24696 "qb64pe.bas"
do{
#line 24696 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 24696 "qb64pe.bas"
if(!qbevent)break;evnt(24696);}while(r);
#line 24696 "qb64pe.bas"
do{
#line 24696 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24696 "qb64pe.bas"
if(!qbevent)break;evnt(24696);}while(r);
#line 24696 "qb64pe.bas"
}
#line 24697 "qb64pe.bas"
S_28338:;
#line 24697 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24697 "qb64pe.bas"
if(qbevent){evnt(24697);if(r)goto S_28338;}
#line 24697 "qb64pe.bas"
do{
#line 24697 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 24697 "qb64pe.bas"
if(!qbevent)break;evnt(24697);}while(r);
#line 24697 "qb64pe.bas"
do{
#line 24697 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24697 "qb64pe.bas"
if(!qbevent)break;evnt(24697);}while(r);
#line 24697 "qb64pe.bas"
}
#line 24698 "qb64pe.bas"
S_28342:;
#line 24698 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24698 "qb64pe.bas"
if(qbevent){evnt(24698);if(r)goto S_28342;}
#line 24698 "qb64pe.bas"
do{
#line 24698 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 24698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24698 "qb64pe.bas"
if(!qbevent)break;evnt(24698);}while(r);
#line 24698 "qb64pe.bas"
do{
#line 24698 "qb64pe.bas"
goto exit_subfunc;
#line 24698 "qb64pe.bas"
if(!qbevent)break;evnt(24698);}while(r);
#line 24698 "qb64pe.bas"
}
#line 24699 "qb64pe.bas"
}
#line 24701 "qb64pe.bas"
S_28347:;
#line 24701 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||is_error_pending()){
#line 24701 "qb64pe.bas"
if(qbevent){evnt(24701);if(r)goto S_28347;}
#line 24702 "qb64pe.bas"
do{
#line 24702 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1));
#line 24702 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24702 "qb64pe.bas"
if(!qbevent)break;evnt(24702);}while(r);
#line 24703 "qb64pe.bas"
S_28349:;
#line 24703 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24703 "qb64pe.bas"
if(qbevent){evnt(24703);if(r)goto S_28349;}
#line 24703 "qb64pe.bas"
do{
#line 24703 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24703 "qb64pe.bas"
if(!qbevent)break;evnt(24703);}while(r);
#line 24703 "qb64pe.bas"
do{
#line 24703 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24703 "qb64pe.bas"
if(!qbevent)break;evnt(24703);}while(r);
#line 24703 "qb64pe.bas"
}
#line 24704 "qb64pe.bas"
S_28353:;
#line 24704 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24704 "qb64pe.bas"
if(qbevent){evnt(24704);if(r)goto S_28353;}
#line 24704 "qb64pe.bas"
do{
#line 24704 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24704 "qb64pe.bas"
if(!qbevent)break;evnt(24704);}while(r);
#line 24704 "qb64pe.bas"
do{
#line 24704 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24704 "qb64pe.bas"
if(!qbevent)break;evnt(24704);}while(r);
#line 24704 "qb64pe.bas"
}
#line 24705 "qb64pe.bas"
S_28357:;
#line 24705 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24705 "qb64pe.bas"
if(qbevent){evnt(24705);if(r)goto S_28357;}
#line 24705 "qb64pe.bas"
do{
#line 24705 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24705 "qb64pe.bas"
if(!qbevent)break;evnt(24705);}while(r);
#line 24705 "qb64pe.bas"
do{
#line 24705 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24705 "qb64pe.bas"
if(!qbevent)break;evnt(24705);}while(r);
#line 24705 "qb64pe.bas"
}
#line 24706 "qb64pe.bas"
S_28361:;
#line 24706 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24706 "qb64pe.bas"
if(qbevent){evnt(24706);if(r)goto S_28361;}
#line 24706 "qb64pe.bas"
do{
#line 24706 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24706 "qb64pe.bas"
if(!qbevent)break;evnt(24706);}while(r);
#line 24706 "qb64pe.bas"
do{
#line 24706 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24706 "qb64pe.bas"
if(!qbevent)break;evnt(24706);}while(r);
#line 24706 "qb64pe.bas"
}
#line 24707 "qb64pe.bas"
S_28365:;
#line 24707 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24707 "qb64pe.bas"
if(qbevent){evnt(24707);if(r)goto S_28365;}
#line 24707 "qb64pe.bas"
do{
#line 24707 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 24707 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24707 "qb64pe.bas"
if(!qbevent)break;evnt(24707);}while(r);
#line 24707 "qb64pe.bas"
do{
#line 24707 "qb64pe.bas"
goto exit_subfunc;
#line 24707 "qb64pe.bas"
if(!qbevent)break;evnt(24707);}while(r);
#line 24707 "qb64pe.bas"
}
#line 24708 "qb64pe.bas"
S_28369:;
#line 24708 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||is_error_pending()){
#line 24708 "qb64pe.bas"
if(qbevent){evnt(24708);if(r)goto S_28369;}
#line 24709 "qb64pe.bas"
do{
#line 24709 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24709 "qb64pe.bas"
if(!qbevent)break;evnt(24709);}while(r);
#line 24710 "qb64pe.bas"
do{
#line 24710 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 3 ;
#line 24710 "qb64pe.bas"
if(!qbevent)break;evnt(24710);}while(r);
#line 24711 "qb64pe.bas"
do{
#line 24711 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24711 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24711 "qb64pe.bas"
if(!qbevent)break;evnt(24711);}while(r);
#line 24712 "qb64pe.bas"
do{
#line 24712 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24712 "qb64pe.bas"
if(!qbevent)break;evnt(24712);}while(r);
#line 24713 "qb64pe.bas"
}
#line 24714 "qb64pe.bas"
S_28375:;
#line 24714 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 24714 "qb64pe.bas"
if(qbevent){evnt(24714);if(r)goto S_28375;}
#line 24715 "qb64pe.bas"
do{
#line 24715 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24715 "qb64pe.bas"
if(!qbevent)break;evnt(24715);}while(r);
#line 24716 "qb64pe.bas"
do{
#line 24716 "qb64pe.bas"
goto LABEL_LFFOUNDBITEXT;
#line 24716 "qb64pe.bas"
if(!qbevent)break;evnt(24716);}while(r);
#line 24717 "qb64pe.bas"
}
#line 24718 "qb64pe.bas"
}
#line 24720 "qb64pe.bas"
S_28380:;
#line 24720 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24720 "qb64pe.bas"
if(qbevent){evnt(24720);if(r)goto S_28380;}
#line 24721 "qb64pe.bas"
do{
#line 24721 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24721 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24721 "qb64pe.bas"
if(!qbevent)break;evnt(24721);}while(r);
#line 24722 "qb64pe.bas"
S_28382:;
#line 24722 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24722 "qb64pe.bas"
if(qbevent){evnt(24722);if(r)goto S_28382;}
#line 24722 "qb64pe.bas"
do{
#line 24722 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24722 "qb64pe.bas"
if(!qbevent)break;evnt(24722);}while(r);
#line 24722 "qb64pe.bas"
do{
#line 24722 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24722 "qb64pe.bas"
if(!qbevent)break;evnt(24722);}while(r);
#line 24722 "qb64pe.bas"
}
#line 24723 "qb64pe.bas"
S_28386:;
#line 24723 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||is_error_pending()){
#line 24723 "qb64pe.bas"
if(qbevent){evnt(24723);if(r)goto S_28386;}
#line 24723 "qb64pe.bas"
do{
#line 24723 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24723 "qb64pe.bas"
if(!qbevent)break;evnt(24723);}while(r);
#line 24723 "qb64pe.bas"
do{
#line 24723 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24723 "qb64pe.bas"
if(!qbevent)break;evnt(24723);}while(r);
#line 24723 "qb64pe.bas"
}
#line 24724 "qb64pe.bas"
S_28390:;
#line 24724 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 24724 "qb64pe.bas"
if(qbevent){evnt(24724);if(r)goto S_28390;}
#line 24725 "qb64pe.bas"
do{
#line 24725 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24725 "qb64pe.bas"
if(!qbevent)break;evnt(24725);}while(r);
#line 24726 "qb64pe.bas"
do{
#line 24726 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 1 ;
#line 24726 "qb64pe.bas"
if(!qbevent)break;evnt(24726);}while(r);
#line 24727 "qb64pe.bas"
do{
#line 24727 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24727 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24727 "qb64pe.bas"
if(!qbevent)break;evnt(24727);}while(r);
#line 24728 "qb64pe.bas"
do{
#line 24728 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24728 "qb64pe.bas"
if(!qbevent)break;evnt(24728);}while(r);
#line 24729 "qb64pe.bas"
}
#line 24730 "qb64pe.bas"
S_28396:;
#line 24730 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 24730 "qb64pe.bas"
if(qbevent){evnt(24730);if(r)goto S_28396;}
#line 24731 "qb64pe.bas"
do{
#line 24731 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24731 "qb64pe.bas"
if(!qbevent)break;evnt(24731);}while(r);
#line 24732 "qb64pe.bas"
do{
#line 24732 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 2 ;
#line 24732 "qb64pe.bas"
if(!qbevent)break;evnt(24732);}while(r);
#line 24733 "qb64pe.bas"
do{
#line 24733 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24733 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24733 "qb64pe.bas"
if(!qbevent)break;evnt(24733);}while(r);
#line 24734 "qb64pe.bas"
do{
#line 24734 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24734 "qb64pe.bas"
if(!qbevent)break;evnt(24734);}while(r);
#line 24735 "qb64pe.bas"
}
#line 24736 "qb64pe.bas"
S_28402:;
#line 24736 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 24736 "qb64pe.bas"
if(qbevent){evnt(24736);if(r)goto S_28402;}
#line 24737 "qb64pe.bas"
do{
#line 24737 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24737 "qb64pe.bas"
if(!qbevent)break;evnt(24737);}while(r);
#line 24738 "qb64pe.bas"
LABEL_LFFOUNDBITEXT:;
#line 24738 "qb64pe.bas"
if(qbevent){evnt(24738);r=0;}
#line 24739 "qb64pe.bas"
do{
#line 24739 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 24739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24739 "qb64pe.bas"
if(!qbevent)break;evnt(24739);}while(r);
#line 24740 "qb64pe.bas"
S_28405:;
#line 24740 "qb64pe.bas"
while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24740 "qb64pe.bas"
if(qbevent){evnt(24740);if(r)goto S_28405;}
#line 24741 "qb64pe.bas"
do{
#line 24741 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24741 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24741 "qb64pe.bas"
if(!qbevent)break;evnt(24741);}while(r);
#line 24742 "qb64pe.bas"
S_28407:;
#line 24742 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||is_error_pending()){
#line 24742 "qb64pe.bas"
if(qbevent){evnt(24742);if(r)goto S_28407;}
#line 24743 "qb64pe.bas"
do{
#line 24743 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2)));
#line 24743 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24743 "qb64pe.bas"
if(!qbevent)break;evnt(24743);}while(r);
#line 24744 "qb64pe.bas"
do{
#line 24744 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24744 "qb64pe.bas"
if(!qbevent)break;evnt(24744);}while(r);
#line 24745 "qb64pe.bas"
}else{
#line 24746 "qb64pe.bas"
do{
#line 24746 "qb64pe.bas"
goto dl_exit_3068;
#line 24746 "qb64pe.bas"
if(!qbevent)break;evnt(24746);}while(r);
#line 24747 "qb64pe.bas"
}
#line 24748 "qb64pe.bas"
dl_continue_3068:;
#line 24748 "qb64pe.bas"
}
#line 24748 "qb64pe.bas"
dl_exit_3068:;
#line 24749 "qb64pe.bas"
S_28414:;
#line 24749 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24749 "qb64pe.bas"
if(qbevent){evnt(24749);if(r)goto S_28414;}
#line 24749 "qb64pe.bas"
do{
#line 24749 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1));
#line 24749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24749 "qb64pe.bas"
if(!qbevent)break;evnt(24749);}while(r);
#line 24749 "qb64pe.bas"
}
#line 24751 "qb64pe.bas"
S_28417:;
#line 24751 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24751 "qb64pe.bas"
if(qbevent){evnt(24751);if(r)goto S_28417;}
#line 24751 "qb64pe.bas"
do{
#line 24751 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 ));
#line 24751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24751 "qb64pe.bas"
if(!qbevent)break;evnt(24751);}while(r);
#line 24751 "qb64pe.bas"
dl_continue_3069:;
#line 24751 "qb64pe.bas"
}
#line 24751 "qb64pe.bas"
dl_exit_3069:;
#line 24752 "qb64pe.bas"
do{
#line 24752 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_add(_FUNC_LINEFORMAT_STRING_E,_FUNC_LINEFORMAT_STRING_BITN));
#line 24752 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24752 "qb64pe.bas"
if(!qbevent)break;evnt(24752);}while(r);
#line 24753 "qb64pe.bas"
do{
#line 24753 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24753 "qb64pe.bas"
if(!qbevent)break;evnt(24753);}while(r);
#line 24754 "qb64pe.bas"
}
#line 24755 "qb64pe.bas"
}
#line 24757 "qb64pe.bas"
S_28424:;
#line 24757 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||is_error_pending()){
#line 24757 "qb64pe.bas"
if(qbevent){evnt(24757);if(r)goto S_28424;}
#line 24759 "qb64pe.bas"
S_28425:;
#line 24759 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24759 "qb64pe.bas"
if(qbevent){evnt(24759);if(r)goto S_28425;}
#line 24760 "qb64pe.bas"
do{
#line 24760 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ;
#line 24760 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24760 "qb64pe.bas"
if(!qbevent)break;evnt(24760);}while(r);
#line 24761 "qb64pe.bas"
do{
#line 24761 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_WHOLE->len+_FUNC_LINEFORMAT_STRING_FRAC->len;
#line 24761 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24761 "qb64pe.bas"
if(!qbevent)break;evnt(24761);}while(r);
#line 24762 "qb64pe.bas"
}else{
#line 24763 "qb64pe.bas"
S_28429:;
#line 24763 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24763 "qb64pe.bas"
if(qbevent){evnt(24763);if(r)goto S_28429;}
#line 24764 "qb64pe.bas"
do{
#line 24764 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_OFFSET= -1 ;
#line 24764 "qb64pe.bas"
if(!qbevent)break;evnt(24764);}while(r);
#line 24765 "qb64pe.bas"
do{
#line 24765 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len;
#line 24765 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24765 "qb64pe.bas"
if(!qbevent)break;evnt(24765);}while(r);
#line 24766 "qb64pe.bas"
S_28432:;
#line 24766 "qb64pe.bas"
fornext_value3076= 1 ;
#line 24766 "qb64pe.bas"
fornext_finalvalue3076=_FUNC_LINEFORMAT_STRING_FRAC->len;
#line 24766 "qb64pe.bas"
fornext_step3076= 1 ;
#line 24766 "qb64pe.bas"
if (fornext_step3076<0) fornext_step_negative3076=1; else fornext_step_negative3076=0;
#line 24766 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3076;
#line 24766 "qb64pe.bas"
goto fornext_entrylabel3076;
#line 24766 "qb64pe.bas"
while(1){
#line 24766 "qb64pe.bas"
fornext_value3076=fornext_step3076+(*_FUNC_LINEFORMAT_LONG_I2);
#line 24766 "qb64pe.bas"
fornext_entrylabel3076:
#line 24766 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3076;
#line 24766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24766 "qb64pe.bas"
if (fornext_step_negative3076){
#line 24766 "qb64pe.bas"
if (fornext_value3076<fornext_finalvalue3076) break;
#line 24766 "qb64pe.bas"
}else{
#line 24766 "qb64pe.bas"
if (fornext_value3076>fornext_finalvalue3076) break;
#line 24766 "qb64pe.bas"
}
#line 24766 "qb64pe.bas"
fornext_error3076:;
#line 24766 "qb64pe.bas"
if(qbevent){evnt(24766);if(r)goto S_28432;}
#line 24767 "qb64pe.bas"
S_28433:;
#line 24767 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24767 "qb64pe.bas"
if(qbevent){evnt(24767);if(r)goto S_28433;}
#line 24767 "qb64pe.bas"
do{
#line 24767 "qb64pe.bas"
goto fornext_exit_3075;
#line 24767 "qb64pe.bas"
if(!qbevent)break;evnt(24767);}while(r);
#line 24767 "qb64pe.bas"
}
#line 24768 "qb64pe.bas"
do{
#line 24768 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ;
#line 24768 "qb64pe.bas"
if(!qbevent)break;evnt(24768);}while(r);
#line 24769 "qb64pe.bas"
do{
#line 24769 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ;
#line 24769 "qb64pe.bas"
if(!qbevent)break;evnt(24769);}while(r);
#line 24770 "qb64pe.bas"
fornext_continue_3075:;
#line 24770 "qb64pe.bas"
}
#line 24770 "qb64pe.bas"
fornext_exit_3075:;
#line 24771 "qb64pe.bas"
}else{
#line 24773 "qb64pe.bas"
do{
#line 24773 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_OFFSET= 0 ;
#line 24773 "qb64pe.bas"
if(!qbevent)break;evnt(24773);}while(r);
#line 24774 "qb64pe.bas"
do{
#line 24774 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ;
#line 24774 "qb64pe.bas"
if(!qbevent)break;evnt(24774);}while(r);
#line 24775 "qb64pe.bas"
}
#line 24776 "qb64pe.bas"
}
#line 24777 "qb64pe.bas"
do{
#line 24777 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_right(qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_FRAC),*_FUNC_LINEFORMAT_LONG_SIGDIGITS));
#line 24777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24777 "qb64pe.bas"
if(!qbevent)break;evnt(24777);}while(r);
#line 24779 "qb64pe.bas"
S_28445:;
#line 24779 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||is_error_pending()){
#line 24779 "qb64pe.bas"
if(qbevent){evnt(24779);if(r)goto S_28445;}
#line 24780 "qb64pe.bas"
S_28446:;
#line 24780 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||is_error_pending()){
#line 24780 "qb64pe.bas"
if(qbevent){evnt(24780);if(r)goto S_28446;}
#line 24781 "qb64pe.bas"
S_28447:;
#line 24781 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||is_error_pending()){
#line 24781 "qb64pe.bas"
if(qbevent){evnt(24781);if(r)goto S_28447;}
#line 24782 "qb64pe.bas"
S_28448:;
#line 24782 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||is_error_pending()){
#line 24782 "qb64pe.bas"
if(qbevent){evnt(24782);if(r)goto S_28448;}
#line 24782 "qb64pe.bas"
do{
#line 24782 "qb64pe.bas"
goto LABEL_LFXSINGLE;
#line 24782 "qb64pe.bas"
if(!qbevent)break;evnt(24782);}while(r);
#line 24782 "qb64pe.bas"
}
#line 24783 "qb64pe.bas"
}
#line 24784 "qb64pe.bas"
S_28452:;
#line 24784 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||is_error_pending()){
#line 24784 "qb64pe.bas"
if(qbevent){evnt(24784);if(r)goto S_28452;}
#line 24785 "qb64pe.bas"
S_28453:;
#line 24785 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||is_error_pending()){
#line 24785 "qb64pe.bas"
if(qbevent){evnt(24785);if(r)goto S_28453;}
#line 24785 "qb64pe.bas"
do{
#line 24785 "qb64pe.bas"
goto LABEL_LFXSINGLE;
#line 24785 "qb64pe.bas"
if(!qbevent)break;evnt(24785);}while(r);
#line 24785 "qb64pe.bas"
}
#line 24786 "qb64pe.bas"
}
#line 24787 "qb64pe.bas"
do{
#line 24787 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 1 ;
#line 24787 "qb64pe.bas"
if(!qbevent)break;evnt(24787);}while(r);
#line 24788 "qb64pe.bas"
do{
#line 24788 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24788 "qb64pe.bas"
if(!qbevent)break;evnt(24788);}while(r);
#line 24789 "qb64pe.bas"
do{
#line 24789 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24789 "qb64pe.bas"
if(!qbevent)break;evnt(24789);}while(r);
#line 24790 "qb64pe.bas"
}
#line 24791 "qb64pe.bas"
}
#line 24792 "qb64pe.bas"
LABEL_LFXSINGLE:;
#line 24792 "qb64pe.bas"
if(qbevent){evnt(24792);r=0;}
#line 24794 "qb64pe.bas"
S_28462:;
#line 24794 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||is_error_pending()){
#line 24794 "qb64pe.bas"
if(qbevent){evnt(24794);if(r)goto S_28462;}
#line 24795 "qb64pe.bas"
S_28463:;
#line 24795 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||is_error_pending()){
#line 24795 "qb64pe.bas"
if(qbevent){evnt(24795);if(r)goto S_28463;}
#line 24796 "qb64pe.bas"
S_28464:;
#line 24796 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||is_error_pending()){
#line 24796 "qb64pe.bas"
if(qbevent){evnt(24796);if(r)goto S_28464;}
#line 24797 "qb64pe.bas"
S_28465:;
#line 24797 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||is_error_pending()){
#line 24797 "qb64pe.bas"
if(qbevent){evnt(24797);if(r)goto S_28465;}
#line 24797 "qb64pe.bas"
do{
#line 24797 "qb64pe.bas"
goto LABEL_LFXDOUBLE;
#line 24797 "qb64pe.bas"
if(!qbevent)break;evnt(24797);}while(r);
#line 24797 "qb64pe.bas"
}
#line 24798 "qb64pe.bas"
}
#line 24799 "qb64pe.bas"
S_28469:;
#line 24799 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||is_error_pending()){
#line 24799 "qb64pe.bas"
if(qbevent){evnt(24799);if(r)goto S_28469;}
#line 24800 "qb64pe.bas"
S_28470:;
#line 24800 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||is_error_pending()){
#line 24800 "qb64pe.bas"
if(qbevent){evnt(24800);if(r)goto S_28470;}
#line 24800 "qb64pe.bas"
do{
#line 24800 "qb64pe.bas"
goto LABEL_LFXDOUBLE;
#line 24800 "qb64pe.bas"
if(!qbevent)break;evnt(24800);}while(r);
#line 24800 "qb64pe.bas"
}
#line 24801 "qb64pe.bas"
}
#line 24802 "qb64pe.bas"
do{
#line 24802 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 2 ;
#line 24802 "qb64pe.bas"
if(!qbevent)break;evnt(24802);}while(r);
#line 24803 "qb64pe.bas"
do{
#line 24803 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24803 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24803 "qb64pe.bas"
if(!qbevent)break;evnt(24803);}while(r);
#line 24804 "qb64pe.bas"
do{
#line 24804 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24804 "qb64pe.bas"
if(!qbevent)break;evnt(24804);}while(r);
#line 24805 "qb64pe.bas"
}
#line 24806 "qb64pe.bas"
}
#line 24807 "qb64pe.bas"
LABEL_LFXDOUBLE:;
#line 24807 "qb64pe.bas"
if(qbevent){evnt(24807);r=0;}
#line 24809 "qb64pe.bas"
do{
#line 24809 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_ED= 3 ;
#line 24809 "qb64pe.bas"
if(!qbevent)break;evnt(24809);}while(r);
#line 24810 "qb64pe.bas"
do{
#line 24810 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24810 "qb64pe.bas"
if(!qbevent)break;evnt(24810);}while(r);
#line 24810 "qb64pe.bas"
do{
#line 24810 "qb64pe.bas"
goto LABEL_LFFOUNDEXT;
#line 24810 "qb64pe.bas"
if(!qbevent)break;evnt(24810);}while(r);
#line 24811 "qb64pe.bas"
}
#line 24813 "qb64pe.bas"
do{
#line 24813 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ;
#line 24813 "qb64pe.bas"
if(!qbevent)break;evnt(24813);}while(r);
#line 24814 "qb64pe.bas"
do{
#line 24814 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 24814 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24814 "qb64pe.bas"
if(!qbevent)break;evnt(24814);}while(r);
#line 24815 "qb64pe.bas"
LABEL_LFFOUNDEXT:;
#line 24815 "qb64pe.bas"
if(qbevent){evnt(24815);r=0;}
#line 24818 "qb64pe.bas"
S_28485:;
#line 24818 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24818 "qb64pe.bas"
if(qbevent){evnt(24818);if(r)goto S_28485;}
#line 24818 "qb64pe.bas"
do{
#line 24818 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1));
#line 24818 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24818 "qb64pe.bas"
if(!qbevent)break;evnt(24818);}while(r);
#line 24818 "qb64pe.bas"
}
#line 24820 "qb64pe.bas"
S_28488:;
#line 24820 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||is_error_pending()){
#line 24820 "qb64pe.bas"
if(qbevent){evnt(24820);if(r)goto S_28488;}
#line 24821 "qb64pe.bas"
do{
#line 24821 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_DP= 1 ;
#line 24821 "qb64pe.bas"
if(!qbevent)break;evnt(24821);}while(r);
#line 24822 "qb64pe.bas"
S_28490:;
#line 24822 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24822 "qb64pe.bas"
if(qbevent){evnt(24822);if(r)goto S_28490;}
#line 24822 "qb64pe.bas"
do{
#line 24822 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1));
#line 24822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24822 "qb64pe.bas"
if(!qbevent)break;evnt(24822);}while(r);
#line 24822 "qb64pe.bas"
}
#line 24823 "qb64pe.bas"
}
#line 24825 "qb64pe.bas"
S_28494:;
#line 24825 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 ))&(qbs_equal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 24825 "qb64pe.bas"
if(qbevent){evnt(24825);if(r)goto S_28494;}
#line 24825 "qb64pe.bas"
do{
#line 24825 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1));
#line 24825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24825 "qb64pe.bas"
if(!qbevent)break;evnt(24825);}while(r);
#line 24825 "qb64pe.bas"
}
#line 24827 "qb64pe.bas"
do{
#line 24827 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP));
#line 24827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24827 "qb64pe.bas"
if(!qbevent)break;evnt(24827);}while(r);
#line 24828 "qb64pe.bas"
do{
#line 24828 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_WHOLE));
#line 24828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24828 "qb64pe.bas"
if(!qbevent)break;evnt(24828);}while(r);
#line 24829 "qb64pe.bas"
S_28499:;
#line 24829 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_DP)||is_error_pending()){
#line 24829 "qb64pe.bas"
if(qbevent){evnt(24829);if(r)goto S_28499;}
#line 24829 "qb64pe.bas"
do{
#line 24829 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(".",1)),_FUNC_LINEFORMAT_STRING_FRAC));
#line 24829 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24829 "qb64pe.bas"
if(!qbevent)break;evnt(24829);}while(r);
#line 24829 "qb64pe.bas"
}
#line 24830 "qb64pe.bas"
S_28502:;
#line 24830 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_ED)||is_error_pending()){
#line 24830 "qb64pe.bas"
if(qbevent){evnt(24830);if(r)goto S_28502;}
#line 24831 "qb64pe.bas"
S_28503:;
#line 24831 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||is_error_pending()){
#line 24831 "qb64pe.bas"
if(qbevent){evnt(24831);if(r)goto S_28503;}
#line 24831 "qb64pe.bas"
do{
#line 24831 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("E",1)));
#line 24831 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24831 "qb64pe.bas"
if(!qbevent)break;evnt(24831);}while(r);
#line 24831 "qb64pe.bas"
}
#line 24832 "qb64pe.bas"
S_28506:;
#line 24832 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||is_error_pending()){
#line 24832 "qb64pe.bas"
if(qbevent){evnt(24832);if(r)goto S_28506;}
#line 24832 "qb64pe.bas"
do{
#line 24832 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("D",1)));
#line 24832 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24832 "qb64pe.bas"
if(!qbevent)break;evnt(24832);}while(r);
#line 24832 "qb64pe.bas"
}
#line 24833 "qb64pe.bas"
S_28509:;
#line 24833 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||is_error_pending()){
#line 24833 "qb64pe.bas"
if(qbevent){evnt(24833);if(r)goto S_28509;}
#line 24833 "qb64pe.bas"
do{
#line 24833 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("F",1)));
#line 24833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24833 "qb64pe.bas"
if(!qbevent)break;evnt(24833);}while(r);
#line 24833 "qb64pe.bas"
}
#line 24834 "qb64pe.bas"
S_28512:;
#line 24834 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_PM== -1 ))&(qbs_notequal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)))))||is_error_pending()){
#line 24834 "qb64pe.bas"
if(qbevent){evnt(24834);if(r)goto S_28512;}
#line 24834 "qb64pe.bas"
do{
#line 24834 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("-",1)));
#line 24834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24834 "qb64pe.bas"
if(!qbevent)break;evnt(24834);}while(r);
#line 24834 "qb64pe.bas"
}else{
#line 24834 "qb64pe.bas"
do{
#line 24834 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("+",1)));
#line 24834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24834 "qb64pe.bas"
if(!qbevent)break;evnt(24834);}while(r);
#line 24834 "qb64pe.bas"
}
#line 24835 "qb64pe.bas"
do{
#line 24835 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_EX));
#line 24835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24835 "qb64pe.bas"
if(!qbevent)break;evnt(24835);}while(r);
#line 24836 "qb64pe.bas"
}
#line 24837 "qb64pe.bas"
do{
#line 24837 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E));
#line 24837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24837 "qb64pe.bas"
if(!qbevent)break;evnt(24837);}while(r);
#line 24839 "qb64pe.bas"
S_28520:;
#line 24839 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||is_error_pending()){
#line 24839 "qb64pe.bas"
if(qbevent){evnt(24839);if(r)goto S_28520;}
#line 24839 "qb64pe.bas"
do{
#line 24839 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(",",1)),func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_FIRSTI,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_FIRSTI,0|1)));
#line 24839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24839 "qb64pe.bas"
if(!qbevent)break;evnt(24839);}while(r);
#line 24839 "qb64pe.bas"
}
#line 24841 "qb64pe.bas"
do{
#line 24841 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 24841 "qb64pe.bas"
if(!qbevent)break;evnt(24841);}while(r);
#line 24842 "qb64pe.bas"
}
#line 24846 "qb64pe.bas"
S_28525:;
#line 24846 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||is_error_pending()){
#line 24846 "qb64pe.bas"
if(qbevent){evnt(24846);if(r)goto S_28525;}
#line 24847 "qb64pe.bas"
S_28526:;
#line 24847 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("H",1))))||is_error_pending()){
#line 24847 "qb64pe.bas"
if(qbevent){evnt(24847);if(r)goto S_28526;}
#line 24848 "qb64pe.bas"
do{
#line 24848 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24848 "qb64pe.bas"
if(!qbevent)break;evnt(24848);}while(r);
#line 24849 "qb64pe.bas"
do{
#line 24849 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0));
#line 24849 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24849 "qb64pe.bas"
if(!qbevent)break;evnt(24849);}while(r);
#line 24850 "qb64pe.bas"
LABEL_LFREADHEX:;
#line 24850 "qb64pe.bas"
if(qbevent){evnt(24850);r=0;}
#line 24851 "qb64pe.bas"
S_28529:;
#line 24851 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24851 "qb64pe.bas"
if(qbevent){evnt(24851);if(r)goto S_28529;}
#line 24852 "qb64pe.bas"
do{
#line 24852 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24852 "qb64pe.bas"
if(!qbevent)break;evnt(24852);}while(r);
#line 24852 "qb64pe.bas"
do{
#line 24852 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C);
#line 24852 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24852 "qb64pe.bas"
if(!qbevent)break;evnt(24852);}while(r);
#line 24853 "qb64pe.bas"
S_28532:;
#line 24853 "qb64pe.bas"
if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))|((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 70 ))))||is_error_pending()){
#line 24853 "qb64pe.bas"
if(qbevent){evnt(24853);if(r)goto S_28532;}
#line 24853 "qb64pe.bas"
do{
#line 24853 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C));
#line 24853 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24853 "qb64pe.bas"
if(!qbevent)break;evnt(24853);}while(r);
#line 24853 "qb64pe.bas"
do{
#line 24853 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24853 "qb64pe.bas"
if(!qbevent)break;evnt(24853);}while(r);
#line 24853 "qb64pe.bas"
do{
#line 24853 "qb64pe.bas"
goto LABEL_LFREADHEX;
#line 24853 "qb64pe.bas"
if(!qbevent)break;evnt(24853);}while(r);
#line 24853 "qb64pe.bas"
}
#line 24854 "qb64pe.bas"
}
#line 24855 "qb64pe.bas"
do{
#line 24855 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&H",2),_FUNC_LINEFORMAT_STRING_HX));
#line 24855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24855 "qb64pe.bas"
if(!qbevent)break;evnt(24855);}while(r);
#line 24858 "qb64pe.bas"
S_28539:;
#line 24858 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24858 "qb64pe.bas"
if(qbevent){evnt(24858);if(r)goto S_28539;}
#line 24858 "qb64pe.bas"
do{
#line 24858 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 ));
#line 24858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24858 "qb64pe.bas"
if(!qbevent)break;evnt(24858);}while(r);
#line 24858 "qb64pe.bas"
dl_continue_3078:;
#line 24858 "qb64pe.bas"
}
#line 24858 "qb64pe.bas"
dl_exit_3078:;
#line 24859 "qb64pe.bas"
S_28542:;
#line 24859 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24859 "qb64pe.bas"
if(qbevent){evnt(24859);if(r)goto S_28542;}
#line 24859 "qb64pe.bas"
do{
#line 24859 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1));
#line 24859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24859 "qb64pe.bas"
if(!qbevent)break;evnt(24859);}while(r);
#line 24859 "qb64pe.bas"
}
#line 24861 "qb64pe.bas"
do{
#line 24861 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 24861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24861 "qb64pe.bas"
if(!qbevent)break;evnt(24861);}while(r);
#line 24863 "qb64pe.bas"
S_28546:;
#line 24863 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||is_error_pending()){
#line 24863 "qb64pe.bas"
if(qbevent){evnt(24863);if(r)goto S_28546;}
#line 24864 "qb64pe.bas"
do{
#line 24864 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1));
#line 24864 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24864 "qb64pe.bas"
if(!qbevent)break;evnt(24864);}while(r);
#line 24865 "qb64pe.bas"
S_28548:;
#line 24865 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 24865 "qb64pe.bas"
if(qbevent){evnt(24865);if(r)goto S_28548;}
#line 24865 "qb64pe.bas"
do{
#line 24865 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 24865 "qb64pe.bas"
if(!qbevent)break;evnt(24865);}while(r);
#line 24865 "qb64pe.bas"
do{
#line 24865 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24865 "qb64pe.bas"
if(!qbevent)break;evnt(24865);}while(r);
#line 24865 "qb64pe.bas"
}
#line 24866 "qb64pe.bas"
S_28552:;
#line 24866 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 24866 "qb64pe.bas"
if(qbevent){evnt(24866);if(r)goto S_28552;}
#line 24866 "qb64pe.bas"
do{
#line 24866 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 24866 "qb64pe.bas"
if(!qbevent)break;evnt(24866);}while(r);
#line 24866 "qb64pe.bas"
do{
#line 24866 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24866 "qb64pe.bas"
if(!qbevent)break;evnt(24866);}while(r);
#line 24866 "qb64pe.bas"
}
#line 24867 "qb64pe.bas"
S_28556:;
#line 24867 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 24867 "qb64pe.bas"
if(qbevent){evnt(24867);if(r)goto S_28556;}
#line 24867 "qb64pe.bas"
do{
#line 24867 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 24867 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24867 "qb64pe.bas"
if(!qbevent)break;evnt(24867);}while(r);
#line 24867 "qb64pe.bas"
do{
#line 24867 "qb64pe.bas"
goto exit_subfunc;
#line 24867 "qb64pe.bas"
if(!qbevent)break;evnt(24867);}while(r);
#line 24867 "qb64pe.bas"
}
#line 24868 "qb64pe.bas"
}
#line 24870 "qb64pe.bas"
S_28561:;
#line 24870 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||is_error_pending()){
#line 24870 "qb64pe.bas"
if(qbevent){evnt(24870);if(r)goto S_28561;}
#line 24871 "qb64pe.bas"
do{
#line 24871 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1));
#line 24871 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24871 "qb64pe.bas"
if(!qbevent)break;evnt(24871);}while(r);
#line 24872 "qb64pe.bas"
S_28563:;
#line 24872 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 24872 "qb64pe.bas"
if(qbevent){evnt(24872);if(r)goto S_28563;}
#line 24872 "qb64pe.bas"
do{
#line 24872 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24872 "qb64pe.bas"
if(!qbevent)break;evnt(24872);}while(r);
#line 24872 "qb64pe.bas"
do{
#line 24872 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24872 "qb64pe.bas"
if(!qbevent)break;evnt(24872);}while(r);
#line 24872 "qb64pe.bas"
}
#line 24873 "qb64pe.bas"
S_28567:;
#line 24873 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 24873 "qb64pe.bas"
if(qbevent){evnt(24873);if(r)goto S_28567;}
#line 24873 "qb64pe.bas"
do{
#line 24873 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24873 "qb64pe.bas"
if(!qbevent)break;evnt(24873);}while(r);
#line 24873 "qb64pe.bas"
do{
#line 24873 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24873 "qb64pe.bas"
if(!qbevent)break;evnt(24873);}while(r);
#line 24873 "qb64pe.bas"
}
#line 24874 "qb64pe.bas"
S_28571:;
#line 24874 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 24874 "qb64pe.bas"
if(qbevent){evnt(24874);if(r)goto S_28571;}
#line 24874 "qb64pe.bas"
do{
#line 24874 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24874 "qb64pe.bas"
if(!qbevent)break;evnt(24874);}while(r);
#line 24874 "qb64pe.bas"
do{
#line 24874 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24874 "qb64pe.bas"
if(!qbevent)break;evnt(24874);}while(r);
#line 24874 "qb64pe.bas"
}
#line 24875 "qb64pe.bas"
S_28575:;
#line 24875 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 24875 "qb64pe.bas"
if(qbevent){evnt(24875);if(r)goto S_28575;}
#line 24875 "qb64pe.bas"
do{
#line 24875 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 24875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24875 "qb64pe.bas"
if(!qbevent)break;evnt(24875);}while(r);
#line 24875 "qb64pe.bas"
do{
#line 24875 "qb64pe.bas"
goto exit_subfunc;
#line 24875 "qb64pe.bas"
if(!qbevent)break;evnt(24875);}while(r);
#line 24875 "qb64pe.bas"
}
#line 24876 "qb64pe.bas"
S_28579:;
#line 24876 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 24876 "qb64pe.bas"
if(qbevent){evnt(24876);if(r)goto S_28579;}
#line 24876 "qb64pe.bas"
do{
#line 24876 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24876 "qb64pe.bas"
if(!qbevent)break;evnt(24876);}while(r);
#line 24876 "qb64pe.bas"
do{
#line 24876 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24876 "qb64pe.bas"
if(!qbevent)break;evnt(24876);}while(r);
#line 24876 "qb64pe.bas"
}
#line 24877 "qb64pe.bas"
S_28583:;
#line 24877 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 24877 "qb64pe.bas"
if(qbevent){evnt(24877);if(r)goto S_28583;}
#line 24878 "qb64pe.bas"
do{
#line 24878 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24878 "qb64pe.bas"
if(!qbevent)break;evnt(24878);}while(r);
#line 24879 "qb64pe.bas"
do{
#line 24879 "qb64pe.bas"
goto LABEL_LFHXBITEXT;
#line 24879 "qb64pe.bas"
if(!qbevent)break;evnt(24879);}while(r);
#line 24880 "qb64pe.bas"
}
#line 24881 "qb64pe.bas"
}
#line 24883 "qb64pe.bas"
S_28588:;
#line 24883 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24883 "qb64pe.bas"
if(qbevent){evnt(24883);if(r)goto S_28588;}
#line 24884 "qb64pe.bas"
do{
#line 24884 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24884 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24884 "qb64pe.bas"
if(!qbevent)break;evnt(24884);}while(r);
#line 24885 "qb64pe.bas"
S_28590:;
#line 24885 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 24885 "qb64pe.bas"
if(qbevent){evnt(24885);if(r)goto S_28590;}
#line 24885 "qb64pe.bas"
do{
#line 24885 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24885 "qb64pe.bas"
if(!qbevent)break;evnt(24885);}while(r);
#line 24885 "qb64pe.bas"
do{
#line 24885 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24885 "qb64pe.bas"
if(!qbevent)break;evnt(24885);}while(r);
#line 24885 "qb64pe.bas"
}
#line 24886 "qb64pe.bas"
S_28594:;
#line 24886 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 24886 "qb64pe.bas"
if(qbevent){evnt(24886);if(r)goto S_28594;}
#line 24886 "qb64pe.bas"
do{
#line 24886 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24886 "qb64pe.bas"
if(!qbevent)break;evnt(24886);}while(r);
#line 24886 "qb64pe.bas"
do{
#line 24886 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24886 "qb64pe.bas"
if(!qbevent)break;evnt(24886);}while(r);
#line 24886 "qb64pe.bas"
}
#line 24887 "qb64pe.bas"
S_28598:;
#line 24887 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 24887 "qb64pe.bas"
if(qbevent){evnt(24887);if(r)goto S_28598;}
#line 24888 "qb64pe.bas"
do{
#line 24888 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24888 "qb64pe.bas"
if(!qbevent)break;evnt(24888);}while(r);
#line 24889 "qb64pe.bas"
LABEL_LFHXBITEXT:;
#line 24889 "qb64pe.bas"
if(qbevent){evnt(24889);r=0;}
#line 24890 "qb64pe.bas"
S_28600:;
#line 24890 "qb64pe.bas"
while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24890 "qb64pe.bas"
if(qbevent){evnt(24890);if(r)goto S_28600;}
#line 24891 "qb64pe.bas"
do{
#line 24891 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24891 "qb64pe.bas"
if(!qbevent)break;evnt(24891);}while(r);
#line 24892 "qb64pe.bas"
S_28602:;
#line 24892 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||is_error_pending()){
#line 24892 "qb64pe.bas"
if(qbevent){evnt(24892);if(r)goto S_28602;}
#line 24893 "qb64pe.bas"
do{
#line 24893 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2)));
#line 24893 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24893 "qb64pe.bas"
if(!qbevent)break;evnt(24893);}while(r);
#line 24894 "qb64pe.bas"
do{
#line 24894 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24894 "qb64pe.bas"
if(!qbevent)break;evnt(24894);}while(r);
#line 24895 "qb64pe.bas"
}else{
#line 24896 "qb64pe.bas"
do{
#line 24896 "qb64pe.bas"
goto dl_exit_3080;
#line 24896 "qb64pe.bas"
if(!qbevent)break;evnt(24896);}while(r);
#line 24897 "qb64pe.bas"
}
#line 24898 "qb64pe.bas"
dl_continue_3080:;
#line 24898 "qb64pe.bas"
}
#line 24898 "qb64pe.bas"
dl_exit_3080:;
#line 24899 "qb64pe.bas"
S_28609:;
#line 24899 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24899 "qb64pe.bas"
if(qbevent){evnt(24899);if(r)goto S_28609;}
#line 24899 "qb64pe.bas"
do{
#line 24899 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1));
#line 24899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24899 "qb64pe.bas"
if(!qbevent)break;evnt(24899);}while(r);
#line 24899 "qb64pe.bas"
}
#line 24901 "qb64pe.bas"
S_28612:;
#line 24901 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24901 "qb64pe.bas"
if(qbevent){evnt(24901);if(r)goto S_28612;}
#line 24901 "qb64pe.bas"
do{
#line 24901 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 ));
#line 24901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24901 "qb64pe.bas"
if(!qbevent)break;evnt(24901);}while(r);
#line 24901 "qb64pe.bas"
dl_continue_3081:;
#line 24901 "qb64pe.bas"
}
#line 24901 "qb64pe.bas"
dl_exit_3081:;
#line 24902 "qb64pe.bas"
do{
#line 24902 "qb64pe.bas"
goto LABEL_LFHXEXT;
#line 24902 "qb64pe.bas"
if(!qbevent)break;evnt(24902);}while(r);
#line 24903 "qb64pe.bas"
}
#line 24904 "qb64pe.bas"
}
#line 24907 "qb64pe.bas"
do{
#line 24907 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2));
#line 24907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24907 "qb64pe.bas"
if(!qbevent)break;evnt(24907);}while(r);
#line 24908 "qb64pe.bas"
S_28619:;
#line 24908 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||is_error_pending()){
#line 24908 "qb64pe.bas"
if(qbevent){evnt(24908);if(r)goto S_28619;}
#line 24908 "qb64pe.bas"
do{
#line 24908 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1));
#line 24908 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24908 "qb64pe.bas"
if(!qbevent)break;evnt(24908);}while(r);
#line 24908 "qb64pe.bas"
}
#line 24909 "qb64pe.bas"
S_28622:;
#line 24909 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||is_error_pending()){
#line 24909 "qb64pe.bas"
if(qbevent){evnt(24909);if(r)goto S_28622;}
#line 24909 "qb64pe.bas"
do{
#line 24909 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1));
#line 24909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24909 "qb64pe.bas"
if(!qbevent)break;evnt(24909);}while(r);
#line 24909 "qb64pe.bas"
}
#line 24910 "qb64pe.bas"
do{
#line 24910 "qb64pe.bas"
goto LABEL_LFHXEXT2;
#line 24910 "qb64pe.bas"
if(!qbevent)break;evnt(24910);}while(r);
#line 24911 "qb64pe.bas"
LABEL_LFHXEXT:;
#line 24911 "qb64pe.bas"
if(qbevent){evnt(24911);r=0;}
#line 24912 "qb64pe.bas"
do{
#line 24912 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN));
#line 24912 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24912 "qb64pe.bas"
if(!qbevent)break;evnt(24912);}while(r);
#line 24913 "qb64pe.bas"
LABEL_LFHXEXT2:;
#line 24913 "qb64pe.bas"
if(qbevent){evnt(24913);r=0;}
#line 24916 "qb64pe.bas"
S_28627:;
#line 24916 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||is_error_pending()){
#line 24916 "qb64pe.bas"
if(qbevent){evnt(24916);if(r)goto S_28627;}
#line 24916 "qb64pe.bas"
do{
#line 24916 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 24916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24916 "qb64pe.bas"
if(!qbevent)break;evnt(24916);}while(r);
#line 24916 "qb64pe.bas"
do{
#line 24916 "qb64pe.bas"
goto exit_subfunc;
#line 24916 "qb64pe.bas"
if(!qbevent)break;evnt(24916);}while(r);
#line 24916 "qb64pe.bas"
}
#line 24917 "qb64pe.bas"
do{
#line 24917 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ;
#line 24917 "qb64pe.bas"
if(!qbevent)break;evnt(24917);}while(r);
#line 24918 "qb64pe.bas"
S_28632:;
#line 24918 "qb64pe.bas"
fornext_value3087= 1 ;
#line 24918 "qb64pe.bas"
fornext_finalvalue3087=_FUNC_LINEFORMAT_STRING_HX->len;
#line 24918 "qb64pe.bas"
fornext_step3087= 1 ;
#line 24918 "qb64pe.bas"
if (fornext_step3087<0) fornext_step_negative3087=1; else fornext_step_negative3087=0;
#line 24918 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3087;
#line 24918 "qb64pe.bas"
goto fornext_entrylabel3087;
#line 24918 "qb64pe.bas"
while(1){
#line 24918 "qb64pe.bas"
fornext_value3087=fornext_step3087+(*_FUNC_LINEFORMAT_LONG_I2);
#line 24918 "qb64pe.bas"
fornext_entrylabel3087:
#line 24918 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3087;
#line 24918 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24918 "qb64pe.bas"
if (fornext_step_negative3087){
#line 24918 "qb64pe.bas"
if (fornext_value3087<fornext_finalvalue3087) break;
#line 24918 "qb64pe.bas"
}else{
#line 24918 "qb64pe.bas"
if (fornext_value3087>fornext_finalvalue3087) break;
#line 24918 "qb64pe.bas"
}
#line 24918 "qb64pe.bas"
fornext_error3087:;
#line 24918 "qb64pe.bas"
if(qbevent){evnt(24918);if(r)goto S_28632;}
#line 24919 "qb64pe.bas"
do{
#line 24919 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1));
#line 24919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24919 "qb64pe.bas"
if(!qbevent)break;evnt(24919);}while(r);
#line 24920 "qb64pe.bas"
S_28634:;
#line 24920 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||is_error_pending()){
#line 24920 "qb64pe.bas"
if(qbevent){evnt(24920);if(r)goto S_28634;}
#line 24920 "qb64pe.bas"
do{
#line 24920 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ;
#line 24920 "qb64pe.bas"
if(!qbevent)break;evnt(24920);}while(r);
#line 24920 "qb64pe.bas"
}else{
#line 24920 "qb64pe.bas"
do{
#line 24920 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ;
#line 24920 "qb64pe.bas"
if(!qbevent)break;evnt(24920);}while(r);
#line 24920 "qb64pe.bas"
}
#line 24921 "qb64pe.bas"
do{
#line 24921 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2;
#line 24921 "qb64pe.bas"
if(!qbevent)break;evnt(24921);}while(r);
#line 24922 "qb64pe.bas"
fornext_continue_3086:;
#line 24922 "qb64pe.bas"
}
#line 24922 "qb64pe.bas"
fornext_exit_3086:;
#line 24924 "qb64pe.bas"
LABEL_FINISHHEXOCTBIN:;
#line 24924 "qb64pe.bas"
if(qbevent){evnt(24924);r=0;}
#line 24925 "qb64pe.bas"
do{
#line 24925 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0));
#line 24925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24925 "qb64pe.bas"
if(!qbevent)break;evnt(24925);}while(r);
#line 24926 "qb64pe.bas"
S_28642:;
#line 24926 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_E, 1 ),qbs_new_txt_len("~",1))))||is_error_pending()){
#line 24926 "qb64pe.bas"
if(qbevent){evnt(24926);if(r)goto S_28642;}
#line 24929 "qb64pe.bas"
S_28643:;
#line 24929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 24929 "qb64pe.bas"
if(qbevent){evnt(24929);if(r)goto S_28643;}
#line 24930 "qb64pe.bas"
S_28644:;
#line 24930 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||is_error_pending()){
#line 24930 "qb64pe.bas"
if(qbevent){evnt(24930);if(r)goto S_28644;}
#line 24931 "qb64pe.bas"
S_28645:;
#line 24931 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||is_error_pending()){
#line 24931 "qb64pe.bas"
if(qbevent){evnt(24931);if(r)goto S_28645;}
#line 24931 "qb64pe.bas"
do{
#line 24931 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 24931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24931 "qb64pe.bas"
if(!qbevent)break;evnt(24931);}while(r);
#line 24931 "qb64pe.bas"
do{
#line 24931 "qb64pe.bas"
goto exit_subfunc;
#line 24931 "qb64pe.bas"
if(!qbevent)break;evnt(24931);}while(r);
#line 24931 "qb64pe.bas"
}
#line 24932 "qb64pe.bas"
do{
#line 24932 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ;
#line 24932 "qb64pe.bas"
if(!qbevent)break;evnt(24932);}while(r);
#line 24933 "qb64pe.bas"
do{
#line 24933 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0)));
#line 24933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24933 "qb64pe.bas"
if(!qbevent)break;evnt(24933);}while(r);
#line 24934 "qb64pe.bas"
}
#line 24935 "qb64pe.bas"
}
#line 24937 "qb64pe.bas"
S_28653:;
#line 24937 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 24937 "qb64pe.bas"
if(qbevent){evnt(24937);if(r)goto S_28653;}
#line 24938 "qb64pe.bas"
S_28654:;
#line 24938 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||is_error_pending()){
#line 24938 "qb64pe.bas"
if(qbevent){evnt(24938);if(r)goto S_28654;}
#line 24939 "qb64pe.bas"
S_28655:;
#line 24939 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||is_error_pending()){
#line 24939 "qb64pe.bas"
if(qbevent){evnt(24939);if(r)goto S_28655;}
#line 24939 "qb64pe.bas"
do{
#line 24939 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 24939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24939 "qb64pe.bas"
if(!qbevent)break;evnt(24939);}while(r);
#line 24939 "qb64pe.bas"
do{
#line 24939 "qb64pe.bas"
goto exit_subfunc;
#line 24939 "qb64pe.bas"
if(!qbevent)break;evnt(24939);}while(r);
#line 24939 "qb64pe.bas"
}
#line 24940 "qb64pe.bas"
do{
#line 24940 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ;
#line 24940 "qb64pe.bas"
if(!qbevent)break;evnt(24940);}while(r);
#line 24941 "qb64pe.bas"
do{
#line 24941 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0)));
#line 24941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24941 "qb64pe.bas"
if(!qbevent)break;evnt(24941);}while(r);
#line 24942 "qb64pe.bas"
}
#line 24943 "qb64pe.bas"
}
#line 24945 "qb64pe.bas"
S_28663:;
#line 24945 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 24945 "qb64pe.bas"
if(qbevent){evnt(24945);if(r)goto S_28663;}
#line 24946 "qb64pe.bas"
S_28664:;
#line 24946 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||is_error_pending()){
#line 24946 "qb64pe.bas"
if(qbevent){evnt(24946);if(r)goto S_28664;}
#line 24947 "qb64pe.bas"
S_28665:;
#line 24947 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||is_error_pending()){
#line 24947 "qb64pe.bas"
if(qbevent){evnt(24947);if(r)goto S_28665;}
#line 24947 "qb64pe.bas"
do{
#line 24947 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 24947 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24947 "qb64pe.bas"
if(!qbevent)break;evnt(24947);}while(r);
#line 24947 "qb64pe.bas"
do{
#line 24947 "qb64pe.bas"
goto exit_subfunc;
#line 24947 "qb64pe.bas"
if(!qbevent)break;evnt(24947);}while(r);
#line 24947 "qb64pe.bas"
}
#line 24948 "qb64pe.bas"
do{
#line 24948 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ;
#line 24948 "qb64pe.bas"
if(!qbevent)break;evnt(24948);}while(r);
#line 24949 "qb64pe.bas"
do{
#line 24949 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0)));
#line 24949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24949 "qb64pe.bas"
if(!qbevent)break;evnt(24949);}while(r);
#line 24950 "qb64pe.bas"
}
#line 24951 "qb64pe.bas"
}
#line 24953 "qb64pe.bas"
S_28673:;
#line 24953 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 24953 "qb64pe.bas"
if(qbevent){evnt(24953);if(r)goto S_28673;}
#line 24954 "qb64pe.bas"
S_28674:;
#line 24954 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||is_error_pending()){
#line 24954 "qb64pe.bas"
if(qbevent){evnt(24954);if(r)goto S_28674;}
#line 24956 "qb64pe.bas"
do{
#line 24956 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ;
#line 24956 "qb64pe.bas"
if(!qbevent)break;evnt(24956);}while(r);
#line 24957 "qb64pe.bas"
do{
#line 24957 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0)));
#line 24957 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24957 "qb64pe.bas"
if(!qbevent)break;evnt(24957);}while(r);
#line 24958 "qb64pe.bas"
}
#line 24959 "qb64pe.bas"
}
#line 24961 "qb64pe.bas"
S_28679:;
#line 24961 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 24961 "qb64pe.bas"
if(qbevent){evnt(24961);if(r)goto S_28679;}
#line 24962 "qb64pe.bas"
do{
#line 24962 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_VBITN=qbr(qbs_val<long double>(_FUNC_LINEFORMAT_STRING_BITN));
#line 24962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24962 "qb64pe.bas"
if(!qbevent)break;evnt(24962);}while(r);
#line 24963 "qb64pe.bas"
do{
#line 24963 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ;
#line 24963 "qb64pe.bas"
if(!qbevent)break;evnt(24963);}while(r);
#line 24963 "qb64pe.bas"
S_28682:;
#line 24963 "qb64pe.bas"
fornext_value3090= 1 ;
#line 24963 "qb64pe.bas"
fornext_finalvalue3090=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ;
#line 24963 "qb64pe.bas"
fornext_step3090= 1 ;
#line 24963 "qb64pe.bas"
if (fornext_step3090<0) fornext_step_negative3090=1; else fornext_step_negative3090=0;
#line 24963 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3090;
#line 24963 "qb64pe.bas"
goto fornext_entrylabel3090;
#line 24963 "qb64pe.bas"
while(1){
#line 24963 "qb64pe.bas"
fornext_value3090=fornext_step3090+(*_FUNC_LINEFORMAT_LONG_I2);
#line 24963 "qb64pe.bas"
fornext_entrylabel3090:
#line 24963 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3090;
#line 24963 "qb64pe.bas"
if (fornext_step_negative3090){
#line 24963 "qb64pe.bas"
if (fornext_value3090<fornext_finalvalue3090) break;
#line 24963 "qb64pe.bas"
}else{
#line 24963 "qb64pe.bas"
if (fornext_value3090>fornext_finalvalue3090) break;
#line 24963 "qb64pe.bas"
}
#line 24963 "qb64pe.bas"
fornext_error3090:;
#line 24963 "qb64pe.bas"
if(qbevent){evnt(24963);if(r)goto S_28682;}
#line 24963 "qb64pe.bas"
do{
#line 24963 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ;
#line 24963 "qb64pe.bas"
if(!qbevent)break;evnt(24963);}while(r);
#line 24963 "qb64pe.bas"
fornext_continue_3089:;
#line 24963 "qb64pe.bas"
}
#line 24963 "qb64pe.bas"
fornext_exit_3089:;
#line 24963 "qb64pe.bas"
do{
#line 24963 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ;
#line 24963 "qb64pe.bas"
if(!qbevent)break;evnt(24963);}while(r);
#line 24964 "qb64pe.bas"
S_28686:;
#line 24964 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||is_error_pending()){
#line 24964 "qb64pe.bas"
if(qbevent){evnt(24964);if(r)goto S_28686;}
#line 24965 "qb64pe.bas"
do{
#line 24965 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ;
#line 24965 "qb64pe.bas"
if(!qbevent)break;evnt(24965);}while(r);
#line 24965 "qb64pe.bas"
S_28688:;
#line 24965 "qb64pe.bas"
fornext_value3092= 1 ;
#line 24965 "qb64pe.bas"
fornext_finalvalue3092=*_FUNC_LINEFORMAT_LONG_VBITN;
#line 24965 "qb64pe.bas"
fornext_step3092= 1 ;
#line 24965 "qb64pe.bas"
if (fornext_step3092<0) fornext_step_negative3092=1; else fornext_step_negative3092=0;
#line 24965 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3092;
#line 24965 "qb64pe.bas"
goto fornext_entrylabel3092;
#line 24965 "qb64pe.bas"
while(1){
#line 24965 "qb64pe.bas"
fornext_value3092=fornext_step3092+(*_FUNC_LINEFORMAT_LONG_I2);
#line 24965 "qb64pe.bas"
fornext_entrylabel3092:
#line 24965 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3092;
#line 24965 "qb64pe.bas"
if (fornext_step_negative3092){
#line 24965 "qb64pe.bas"
if (fornext_value3092<fornext_finalvalue3092) break;
#line 24965 "qb64pe.bas"
}else{
#line 24965 "qb64pe.bas"
if (fornext_value3092>fornext_finalvalue3092) break;
#line 24965 "qb64pe.bas"
}
#line 24965 "qb64pe.bas"
fornext_error3092:;
#line 24965 "qb64pe.bas"
if(qbevent){evnt(24965);if(r)goto S_28688;}
#line 24965 "qb64pe.bas"
do{
#line 24965 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ;
#line 24965 "qb64pe.bas"
if(!qbevent)break;evnt(24965);}while(r);
#line 24965 "qb64pe.bas"
fornext_continue_3091:;
#line 24965 "qb64pe.bas"
}
#line 24965 "qb64pe.bas"
fornext_exit_3091:;
#line 24965 "qb64pe.bas"
do{
#line 24965 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ;
#line 24965 "qb64pe.bas"
if(!qbevent)break;evnt(24965);}while(r);
#line 24966 "qb64pe.bas"
S_28692:;
#line 24966 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||is_error_pending()){
#line 24966 "qb64pe.bas"
if(qbevent){evnt(24966);if(r)goto S_28692;}
#line 24966 "qb64pe.bas"
do{
#line 24966 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 24966 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24966 "qb64pe.bas"
if(!qbevent)break;evnt(24966);}while(r);
#line 24966 "qb64pe.bas"
do{
#line 24966 "qb64pe.bas"
goto exit_subfunc;
#line 24966 "qb64pe.bas"
if(!qbevent)break;evnt(24966);}while(r);
#line 24966 "qb64pe.bas"
}
#line 24967 "qb64pe.bas"
do{
#line 24967 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ;
#line 24967 "qb64pe.bas"
if(!qbevent)break;evnt(24967);}while(r);
#line 24968 "qb64pe.bas"
do{
#line 24968 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),qbs__tostr((uint64)(*_FUNC_LINEFORMAT_UINTEGER64_V),NULL,0)));
#line 24968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24968 "qb64pe.bas"
if(!qbevent)break;evnt(24968);}while(r);
#line 24969 "qb64pe.bas"
}
#line 24970 "qb64pe.bas"
}
#line 24972 "qb64pe.bas"
}
#line 24974 "qb64pe.bas"
do{
#line 24974 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),_FUNC_LINEFORMAT_STRING_NUM),_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN),qbs_new_txt_len(",",1)),_FUNC_LINEFORMAT_STRING_FULLHX));
#line 24974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24974 "qb64pe.bas"
if(!qbevent)break;evnt(24974);}while(r);
#line 24976 "qb64pe.bas"
do{
#line 24976 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 24976 "qb64pe.bas"
if(!qbevent)break;evnt(24976);}while(r);
#line 24977 "qb64pe.bas"
}
#line 24978 "qb64pe.bas"
}
#line 24982 "qb64pe.bas"
S_28705:;
#line 24982 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||is_error_pending()){
#line 24982 "qb64pe.bas"
if(qbevent){evnt(24982);if(r)goto S_28705;}
#line 24983 "qb64pe.bas"
S_28706:;
#line 24983 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("O",1))))||is_error_pending()){
#line 24983 "qb64pe.bas"
if(qbevent){evnt(24983);if(r)goto S_28706;}
#line 24984 "qb64pe.bas"
do{
#line 24984 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 24984 "qb64pe.bas"
if(!qbevent)break;evnt(24984);}while(r);
#line 24986 "qb64pe.bas"
do{
#line 24986 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0));
#line 24986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24986 "qb64pe.bas"
if(!qbevent)break;evnt(24986);}while(r);
#line 24987 "qb64pe.bas"
LABEL_LFREADOCT:;
#line 24987 "qb64pe.bas"
if(qbevent){evnt(24987);r=0;}
#line 24988 "qb64pe.bas"
S_28709:;
#line 24988 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 24988 "qb64pe.bas"
if(qbevent){evnt(24988);if(r)goto S_28709;}
#line 24989 "qb64pe.bas"
do{
#line 24989 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 24989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24989 "qb64pe.bas"
if(!qbevent)break;evnt(24989);}while(r);
#line 24989 "qb64pe.bas"
do{
#line 24989 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C);
#line 24989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24989 "qb64pe.bas"
if(!qbevent)break;evnt(24989);}while(r);
#line 24990 "qb64pe.bas"
S_28712:;
#line 24990 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||is_error_pending()){
#line 24990 "qb64pe.bas"
if(qbevent){evnt(24990);if(r)goto S_28712;}
#line 24990 "qb64pe.bas"
do{
#line 24990 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C));
#line 24990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24990 "qb64pe.bas"
if(!qbevent)break;evnt(24990);}while(r);
#line 24990 "qb64pe.bas"
do{
#line 24990 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 24990 "qb64pe.bas"
if(!qbevent)break;evnt(24990);}while(r);
#line 24990 "qb64pe.bas"
do{
#line 24990 "qb64pe.bas"
goto LABEL_LFREADOCT;
#line 24990 "qb64pe.bas"
if(!qbevent)break;evnt(24990);}while(r);
#line 24990 "qb64pe.bas"
}
#line 24991 "qb64pe.bas"
}
#line 24992 "qb64pe.bas"
do{
#line 24992 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&O",2),_FUNC_LINEFORMAT_STRING_HX));
#line 24992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24992 "qb64pe.bas"
if(!qbevent)break;evnt(24992);}while(r);
#line 24995 "qb64pe.bas"
S_28719:;
#line 24995 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 24995 "qb64pe.bas"
if(qbevent){evnt(24995);if(r)goto S_28719;}
#line 24995 "qb64pe.bas"
do{
#line 24995 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 ));
#line 24995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24995 "qb64pe.bas"
if(!qbevent)break;evnt(24995);}while(r);
#line 24995 "qb64pe.bas"
dl_continue_3093:;
#line 24995 "qb64pe.bas"
}
#line 24995 "qb64pe.bas"
dl_exit_3093:;
#line 24996 "qb64pe.bas"
S_28722:;
#line 24996 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||is_error_pending()){
#line 24996 "qb64pe.bas"
if(qbevent){evnt(24996);if(r)goto S_28722;}
#line 24996 "qb64pe.bas"
do{
#line 24996 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1));
#line 24996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24996 "qb64pe.bas"
if(!qbevent)break;evnt(24996);}while(r);
#line 24996 "qb64pe.bas"
}
#line 24998 "qb64pe.bas"
do{
#line 24998 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 24998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24998 "qb64pe.bas"
if(!qbevent)break;evnt(24998);}while(r);
#line 25000 "qb64pe.bas"
S_28726:;
#line 25000 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||is_error_pending()){
#line 25000 "qb64pe.bas"
if(qbevent){evnt(25000);if(r)goto S_28726;}
#line 25001 "qb64pe.bas"
do{
#line 25001 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1));
#line 25001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25001 "qb64pe.bas"
if(!qbevent)break;evnt(25001);}while(r);
#line 25002 "qb64pe.bas"
S_28728:;
#line 25002 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 25002 "qb64pe.bas"
if(qbevent){evnt(25002);if(r)goto S_28728;}
#line 25002 "qb64pe.bas"
do{
#line 25002 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 25002 "qb64pe.bas"
if(!qbevent)break;evnt(25002);}while(r);
#line 25002 "qb64pe.bas"
do{
#line 25002 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25002 "qb64pe.bas"
if(!qbevent)break;evnt(25002);}while(r);
#line 25002 "qb64pe.bas"
}
#line 25003 "qb64pe.bas"
S_28732:;
#line 25003 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 25003 "qb64pe.bas"
if(qbevent){evnt(25003);if(r)goto S_28732;}
#line 25003 "qb64pe.bas"
do{
#line 25003 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 25003 "qb64pe.bas"
if(!qbevent)break;evnt(25003);}while(r);
#line 25003 "qb64pe.bas"
do{
#line 25003 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25003 "qb64pe.bas"
if(!qbevent)break;evnt(25003);}while(r);
#line 25003 "qb64pe.bas"
}
#line 25004 "qb64pe.bas"
S_28736:;
#line 25004 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 25004 "qb64pe.bas"
if(qbevent){evnt(25004);if(r)goto S_28736;}
#line 25004 "qb64pe.bas"
do{
#line 25004 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 25004 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25004 "qb64pe.bas"
if(!qbevent)break;evnt(25004);}while(r);
#line 25004 "qb64pe.bas"
do{
#line 25004 "qb64pe.bas"
goto exit_subfunc;
#line 25004 "qb64pe.bas"
if(!qbevent)break;evnt(25004);}while(r);
#line 25004 "qb64pe.bas"
}
#line 25005 "qb64pe.bas"
}
#line 25007 "qb64pe.bas"
S_28741:;
#line 25007 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||is_error_pending()){
#line 25007 "qb64pe.bas"
if(qbevent){evnt(25007);if(r)goto S_28741;}
#line 25008 "qb64pe.bas"
do{
#line 25008 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1));
#line 25008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25008 "qb64pe.bas"
if(!qbevent)break;evnt(25008);}while(r);
#line 25009 "qb64pe.bas"
S_28743:;
#line 25009 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 25009 "qb64pe.bas"
if(qbevent){evnt(25009);if(r)goto S_28743;}
#line 25009 "qb64pe.bas"
do{
#line 25009 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25009 "qb64pe.bas"
if(!qbevent)break;evnt(25009);}while(r);
#line 25009 "qb64pe.bas"
do{
#line 25009 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25009 "qb64pe.bas"
if(!qbevent)break;evnt(25009);}while(r);
#line 25009 "qb64pe.bas"
}
#line 25010 "qb64pe.bas"
S_28747:;
#line 25010 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 25010 "qb64pe.bas"
if(qbevent){evnt(25010);if(r)goto S_28747;}
#line 25010 "qb64pe.bas"
do{
#line 25010 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25010 "qb64pe.bas"
if(!qbevent)break;evnt(25010);}while(r);
#line 25010 "qb64pe.bas"
do{
#line 25010 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25010 "qb64pe.bas"
if(!qbevent)break;evnt(25010);}while(r);
#line 25010 "qb64pe.bas"
}
#line 25011 "qb64pe.bas"
S_28751:;
#line 25011 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 25011 "qb64pe.bas"
if(qbevent){evnt(25011);if(r)goto S_28751;}
#line 25011 "qb64pe.bas"
do{
#line 25011 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25011 "qb64pe.bas"
if(!qbevent)break;evnt(25011);}while(r);
#line 25011 "qb64pe.bas"
do{
#line 25011 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25011 "qb64pe.bas"
if(!qbevent)break;evnt(25011);}while(r);
#line 25011 "qb64pe.bas"
}
#line 25012 "qb64pe.bas"
S_28755:;
#line 25012 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 25012 "qb64pe.bas"
if(qbevent){evnt(25012);if(r)goto S_28755;}
#line 25012 "qb64pe.bas"
do{
#line 25012 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 25012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25012 "qb64pe.bas"
if(!qbevent)break;evnt(25012);}while(r);
#line 25012 "qb64pe.bas"
do{
#line 25012 "qb64pe.bas"
goto exit_subfunc;
#line 25012 "qb64pe.bas"
if(!qbevent)break;evnt(25012);}while(r);
#line 25012 "qb64pe.bas"
}
#line 25013 "qb64pe.bas"
S_28759:;
#line 25013 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 25013 "qb64pe.bas"
if(qbevent){evnt(25013);if(r)goto S_28759;}
#line 25013 "qb64pe.bas"
do{
#line 25013 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25013 "qb64pe.bas"
if(!qbevent)break;evnt(25013);}while(r);
#line 25013 "qb64pe.bas"
do{
#line 25013 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25013 "qb64pe.bas"
if(!qbevent)break;evnt(25013);}while(r);
#line 25013 "qb64pe.bas"
}
#line 25014 "qb64pe.bas"
S_28763:;
#line 25014 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 25014 "qb64pe.bas"
if(qbevent){evnt(25014);if(r)goto S_28763;}
#line 25015 "qb64pe.bas"
do{
#line 25015 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25015 "qb64pe.bas"
if(!qbevent)break;evnt(25015);}while(r);
#line 25016 "qb64pe.bas"
do{
#line 25016 "qb64pe.bas"
goto LABEL_LFOTBITEXT;
#line 25016 "qb64pe.bas"
if(!qbevent)break;evnt(25016);}while(r);
#line 25017 "qb64pe.bas"
}
#line 25018 "qb64pe.bas"
}
#line 25020 "qb64pe.bas"
S_28768:;
#line 25020 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25020 "qb64pe.bas"
if(qbevent){evnt(25020);if(r)goto S_28768;}
#line 25021 "qb64pe.bas"
do{
#line 25021 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 25021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25021 "qb64pe.bas"
if(!qbevent)break;evnt(25021);}while(r);
#line 25022 "qb64pe.bas"
S_28770:;
#line 25022 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 25022 "qb64pe.bas"
if(qbevent){evnt(25022);if(r)goto S_28770;}
#line 25022 "qb64pe.bas"
do{
#line 25022 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25022 "qb64pe.bas"
if(!qbevent)break;evnt(25022);}while(r);
#line 25022 "qb64pe.bas"
do{
#line 25022 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25022 "qb64pe.bas"
if(!qbevent)break;evnt(25022);}while(r);
#line 25022 "qb64pe.bas"
}
#line 25023 "qb64pe.bas"
S_28774:;
#line 25023 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 25023 "qb64pe.bas"
if(qbevent){evnt(25023);if(r)goto S_28774;}
#line 25023 "qb64pe.bas"
do{
#line 25023 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25023 "qb64pe.bas"
if(!qbevent)break;evnt(25023);}while(r);
#line 25023 "qb64pe.bas"
do{
#line 25023 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25023 "qb64pe.bas"
if(!qbevent)break;evnt(25023);}while(r);
#line 25023 "qb64pe.bas"
}
#line 25024 "qb64pe.bas"
S_28778:;
#line 25024 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 25024 "qb64pe.bas"
if(qbevent){evnt(25024);if(r)goto S_28778;}
#line 25025 "qb64pe.bas"
do{
#line 25025 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25025 "qb64pe.bas"
if(!qbevent)break;evnt(25025);}while(r);
#line 25026 "qb64pe.bas"
LABEL_LFOTBITEXT:;
#line 25026 "qb64pe.bas"
if(qbevent){evnt(25026);r=0;}
#line 25027 "qb64pe.bas"
do{
#line 25027 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 25027 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25027 "qb64pe.bas"
if(!qbevent)break;evnt(25027);}while(r);
#line 25028 "qb64pe.bas"
S_28781:;
#line 25028 "qb64pe.bas"
while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25028 "qb64pe.bas"
if(qbevent){evnt(25028);if(r)goto S_28781;}
#line 25029 "qb64pe.bas"
do{
#line 25029 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 25029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25029 "qb64pe.bas"
if(!qbevent)break;evnt(25029);}while(r);
#line 25030 "qb64pe.bas"
S_28783:;
#line 25030 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||is_error_pending()){
#line 25030 "qb64pe.bas"
if(qbevent){evnt(25030);if(r)goto S_28783;}
#line 25031 "qb64pe.bas"
do{
#line 25031 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2)));
#line 25031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25031 "qb64pe.bas"
if(!qbevent)break;evnt(25031);}while(r);
#line 25032 "qb64pe.bas"
do{
#line 25032 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25032 "qb64pe.bas"
if(!qbevent)break;evnt(25032);}while(r);
#line 25033 "qb64pe.bas"
}else{
#line 25034 "qb64pe.bas"
do{
#line 25034 "qb64pe.bas"
goto dl_exit_3095;
#line 25034 "qb64pe.bas"
if(!qbevent)break;evnt(25034);}while(r);
#line 25035 "qb64pe.bas"
}
#line 25036 "qb64pe.bas"
dl_continue_3095:;
#line 25036 "qb64pe.bas"
}
#line 25036 "qb64pe.bas"
dl_exit_3095:;
#line 25037 "qb64pe.bas"
S_28790:;
#line 25037 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||is_error_pending()){
#line 25037 "qb64pe.bas"
if(qbevent){evnt(25037);if(r)goto S_28790;}
#line 25037 "qb64pe.bas"
do{
#line 25037 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1));
#line 25037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25037 "qb64pe.bas"
if(!qbevent)break;evnt(25037);}while(r);
#line 25037 "qb64pe.bas"
}
#line 25039 "qb64pe.bas"
S_28793:;
#line 25039 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 25039 "qb64pe.bas"
if(qbevent){evnt(25039);if(r)goto S_28793;}
#line 25039 "qb64pe.bas"
do{
#line 25039 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 ));
#line 25039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25039 "qb64pe.bas"
if(!qbevent)break;evnt(25039);}while(r);
#line 25039 "qb64pe.bas"
dl_continue_3096:;
#line 25039 "qb64pe.bas"
}
#line 25039 "qb64pe.bas"
dl_exit_3096:;
#line 25040 "qb64pe.bas"
do{
#line 25040 "qb64pe.bas"
goto LABEL_LFOTEXT;
#line 25040 "qb64pe.bas"
if(!qbevent)break;evnt(25040);}while(r);
#line 25041 "qb64pe.bas"
}
#line 25042 "qb64pe.bas"
}
#line 25045 "qb64pe.bas"
do{
#line 25045 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2));
#line 25045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25045 "qb64pe.bas"
if(!qbevent)break;evnt(25045);}while(r);
#line 25047 "qb64pe.bas"
S_28800:;
#line 25047 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||is_error_pending()){
#line 25047 "qb64pe.bas"
if(qbevent){evnt(25047);if(r)goto S_28800;}
#line 25048 "qb64pe.bas"
S_28801:;
#line 25048 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 11 ))|(-(qbs_asc(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ))<= 51 ))))||is_error_pending()){
#line 25048 "qb64pe.bas"
if(qbevent){evnt(25048);if(r)goto S_28801;}
#line 25048 "qb64pe.bas"
do{
#line 25048 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1));
#line 25048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25048 "qb64pe.bas"
if(!qbevent)break;evnt(25048);}while(r);
#line 25048 "qb64pe.bas"
}
#line 25049 "qb64pe.bas"
}
#line 25051 "qb64pe.bas"
S_28805:;
#line 25051 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||is_error_pending()){
#line 25051 "qb64pe.bas"
if(qbevent){evnt(25051);if(r)goto S_28805;}
#line 25052 "qb64pe.bas"
S_28806:;
#line 25052 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 6 ))|(qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1)))))||is_error_pending()){
#line 25052 "qb64pe.bas"
if(qbevent){evnt(25052);if(r)goto S_28806;}
#line 25052 "qb64pe.bas"
do{
#line 25052 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1));
#line 25052 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25052 "qb64pe.bas"
if(!qbevent)break;evnt(25052);}while(r);
#line 25052 "qb64pe.bas"
}
#line 25053 "qb64pe.bas"
}
#line 25055 "qb64pe.bas"
do{
#line 25055 "qb64pe.bas"
goto LABEL_LFOTEXT2;
#line 25055 "qb64pe.bas"
if(!qbevent)break;evnt(25055);}while(r);
#line 25056 "qb64pe.bas"
LABEL_LFOTEXT:;
#line 25056 "qb64pe.bas"
if(qbevent){evnt(25056);r=0;}
#line 25057 "qb64pe.bas"
do{
#line 25057 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN));
#line 25057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25057 "qb64pe.bas"
if(!qbevent)break;evnt(25057);}while(r);
#line 25058 "qb64pe.bas"
LABEL_LFOTEXT2:;
#line 25058 "qb64pe.bas"
if(qbevent){evnt(25058);r=0;}
#line 25062 "qb64pe.bas"
S_28812:;
#line 25062 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||is_error_pending()){
#line 25062 "qb64pe.bas"
if(qbevent){evnt(25062);if(r)goto S_28812;}
#line 25062 "qb64pe.bas"
do{
#line 25062 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 25062 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25062 "qb64pe.bas"
if(!qbevent)break;evnt(25062);}while(r);
#line 25062 "qb64pe.bas"
do{
#line 25062 "qb64pe.bas"
goto exit_subfunc;
#line 25062 "qb64pe.bas"
if(!qbevent)break;evnt(25062);}while(r);
#line 25062 "qb64pe.bas"
}
#line 25063 "qb64pe.bas"
S_28816:;
#line 25063 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||is_error_pending()){
#line 25063 "qb64pe.bas"
if(qbevent){evnt(25063);if(r)goto S_28816;}
#line 25064 "qb64pe.bas"
S_28817:;
#line 25064 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1))))||is_error_pending()){
#line 25064 "qb64pe.bas"
if(qbevent){evnt(25064);if(r)goto S_28817;}
#line 25064 "qb64pe.bas"
do{
#line 25064 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 25064 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25064 "qb64pe.bas"
if(!qbevent)break;evnt(25064);}while(r);
#line 25064 "qb64pe.bas"
do{
#line 25064 "qb64pe.bas"
goto exit_subfunc;
#line 25064 "qb64pe.bas"
if(!qbevent)break;evnt(25064);}while(r);
#line 25064 "qb64pe.bas"
}
#line 25065 "qb64pe.bas"
}
#line 25067 "qb64pe.bas"
do{
#line 25067 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ;
#line 25067 "qb64pe.bas"
if(!qbevent)break;evnt(25067);}while(r);
#line 25068 "qb64pe.bas"
S_28823:;
#line 25068 "qb64pe.bas"
fornext_value3105= 1 ;
#line 25068 "qb64pe.bas"
fornext_finalvalue3105=_FUNC_LINEFORMAT_STRING_HX->len;
#line 25068 "qb64pe.bas"
fornext_step3105= 1 ;
#line 25068 "qb64pe.bas"
if (fornext_step3105<0) fornext_step_negative3105=1; else fornext_step_negative3105=0;
#line 25068 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3105;
#line 25068 "qb64pe.bas"
goto fornext_entrylabel3105;
#line 25068 "qb64pe.bas"
while(1){
#line 25068 "qb64pe.bas"
fornext_value3105=fornext_step3105+(*_FUNC_LINEFORMAT_LONG_I2);
#line 25068 "qb64pe.bas"
fornext_entrylabel3105:
#line 25068 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3105;
#line 25068 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25068 "qb64pe.bas"
if (fornext_step_negative3105){
#line 25068 "qb64pe.bas"
if (fornext_value3105<fornext_finalvalue3105) break;
#line 25068 "qb64pe.bas"
}else{
#line 25068 "qb64pe.bas"
if (fornext_value3105>fornext_finalvalue3105) break;
#line 25068 "qb64pe.bas"
}
#line 25068 "qb64pe.bas"
fornext_error3105:;
#line 25068 "qb64pe.bas"
if(qbevent){evnt(25068);if(r)goto S_28823;}
#line 25069 "qb64pe.bas"
do{
#line 25069 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1));
#line 25069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25069 "qb64pe.bas"
if(!qbevent)break;evnt(25069);}while(r);
#line 25070 "qb64pe.bas"
do{
#line 25070 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ;
#line 25070 "qb64pe.bas"
if(!qbevent)break;evnt(25070);}while(r);
#line 25071 "qb64pe.bas"
do{
#line 25071 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2;
#line 25071 "qb64pe.bas"
if(!qbevent)break;evnt(25071);}while(r);
#line 25072 "qb64pe.bas"
fornext_continue_3104:;
#line 25072 "qb64pe.bas"
}
#line 25072 "qb64pe.bas"
fornext_exit_3104:;
#line 25074 "qb64pe.bas"
do{
#line 25074 "qb64pe.bas"
goto LABEL_FINISHHEXOCTBIN;
#line 25074 "qb64pe.bas"
if(!qbevent)break;evnt(25074);}while(r);
#line 25075 "qb64pe.bas"
}
#line 25076 "qb64pe.bas"
}
#line 25080 "qb64pe.bas"
S_28831:;
#line 25080 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||is_error_pending()){
#line 25080 "qb64pe.bas"
if(qbevent){evnt(25080);if(r)goto S_28831;}
#line 25081 "qb64pe.bas"
S_28832:;
#line 25081 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("B",1))))||is_error_pending()){
#line 25081 "qb64pe.bas"
if(qbevent){evnt(25081);if(r)goto S_28832;}
#line 25082 "qb64pe.bas"
do{
#line 25082 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25082 "qb64pe.bas"
if(!qbevent)break;evnt(25082);}while(r);
#line 25084 "qb64pe.bas"
do{
#line 25084 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0));
#line 25084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25084 "qb64pe.bas"
if(!qbevent)break;evnt(25084);}while(r);
#line 25085 "qb64pe.bas"
LABEL_LFREADBIN:;
#line 25085 "qb64pe.bas"
if(qbevent){evnt(25085);r=0;}
#line 25086 "qb64pe.bas"
S_28835:;
#line 25086 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25086 "qb64pe.bas"
if(qbevent){evnt(25086);if(r)goto S_28835;}
#line 25087 "qb64pe.bas"
do{
#line 25087 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 25087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25087 "qb64pe.bas"
if(!qbevent)break;evnt(25087);}while(r);
#line 25087 "qb64pe.bas"
do{
#line 25087 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C);
#line 25087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25087 "qb64pe.bas"
if(!qbevent)break;evnt(25087);}while(r);
#line 25088 "qb64pe.bas"
S_28838:;
#line 25088 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||is_error_pending()){
#line 25088 "qb64pe.bas"
if(qbevent){evnt(25088);if(r)goto S_28838;}
#line 25088 "qb64pe.bas"
do{
#line 25088 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C));
#line 25088 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25088 "qb64pe.bas"
if(!qbevent)break;evnt(25088);}while(r);
#line 25088 "qb64pe.bas"
do{
#line 25088 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25088 "qb64pe.bas"
if(!qbevent)break;evnt(25088);}while(r);
#line 25088 "qb64pe.bas"
do{
#line 25088 "qb64pe.bas"
goto LABEL_LFREADBIN;
#line 25088 "qb64pe.bas"
if(!qbevent)break;evnt(25088);}while(r);
#line 25088 "qb64pe.bas"
}
#line 25089 "qb64pe.bas"
}
#line 25090 "qb64pe.bas"
do{
#line 25090 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&B",2),_FUNC_LINEFORMAT_STRING_HX));
#line 25090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25090 "qb64pe.bas"
if(!qbevent)break;evnt(25090);}while(r);
#line 25093 "qb64pe.bas"
S_28845:;
#line 25093 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 25093 "qb64pe.bas"
if(qbevent){evnt(25093);if(r)goto S_28845;}
#line 25093 "qb64pe.bas"
do{
#line 25093 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 ));
#line 25093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25093 "qb64pe.bas"
if(!qbevent)break;evnt(25093);}while(r);
#line 25093 "qb64pe.bas"
dl_continue_3107:;
#line 25093 "qb64pe.bas"
}
#line 25093 "qb64pe.bas"
dl_exit_3107:;
#line 25094 "qb64pe.bas"
S_28848:;
#line 25094 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||is_error_pending()){
#line 25094 "qb64pe.bas"
if(qbevent){evnt(25094);if(r)goto S_28848;}
#line 25094 "qb64pe.bas"
do{
#line 25094 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1));
#line 25094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25094 "qb64pe.bas"
if(!qbevent)break;evnt(25094);}while(r);
#line 25094 "qb64pe.bas"
}
#line 25096 "qb64pe.bas"
do{
#line 25096 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 25096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25096 "qb64pe.bas"
if(!qbevent)break;evnt(25096);}while(r);
#line 25098 "qb64pe.bas"
S_28852:;
#line 25098 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||is_error_pending()){
#line 25098 "qb64pe.bas"
if(qbevent){evnt(25098);if(r)goto S_28852;}
#line 25099 "qb64pe.bas"
do{
#line 25099 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1));
#line 25099 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25099 "qb64pe.bas"
if(!qbevent)break;evnt(25099);}while(r);
#line 25100 "qb64pe.bas"
S_28854:;
#line 25100 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 25100 "qb64pe.bas"
if(qbevent){evnt(25100);if(r)goto S_28854;}
#line 25100 "qb64pe.bas"
do{
#line 25100 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 25100 "qb64pe.bas"
if(!qbevent)break;evnt(25100);}while(r);
#line 25100 "qb64pe.bas"
do{
#line 25100 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25100 "qb64pe.bas"
if(!qbevent)break;evnt(25100);}while(r);
#line 25100 "qb64pe.bas"
}
#line 25101 "qb64pe.bas"
S_28858:;
#line 25101 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 25101 "qb64pe.bas"
if(qbevent){evnt(25101);if(r)goto S_28858;}
#line 25101 "qb64pe.bas"
do{
#line 25101 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ;
#line 25101 "qb64pe.bas"
if(!qbevent)break;evnt(25101);}while(r);
#line 25101 "qb64pe.bas"
do{
#line 25101 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25101 "qb64pe.bas"
if(!qbevent)break;evnt(25101);}while(r);
#line 25101 "qb64pe.bas"
}
#line 25102 "qb64pe.bas"
S_28862:;
#line 25102 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 25102 "qb64pe.bas"
if(qbevent){evnt(25102);if(r)goto S_28862;}
#line 25102 "qb64pe.bas"
do{
#line 25102 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 25102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25102 "qb64pe.bas"
if(!qbevent)break;evnt(25102);}while(r);
#line 25102 "qb64pe.bas"
do{
#line 25102 "qb64pe.bas"
goto exit_subfunc;
#line 25102 "qb64pe.bas"
if(!qbevent)break;evnt(25102);}while(r);
#line 25102 "qb64pe.bas"
}
#line 25103 "qb64pe.bas"
}
#line 25105 "qb64pe.bas"
S_28867:;
#line 25105 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||is_error_pending()){
#line 25105 "qb64pe.bas"
if(qbevent){evnt(25105);if(r)goto S_28867;}
#line 25106 "qb64pe.bas"
do{
#line 25106 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1));
#line 25106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25106 "qb64pe.bas"
if(!qbevent)break;evnt(25106);}while(r);
#line 25107 "qb64pe.bas"
S_28869:;
#line 25107 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 25107 "qb64pe.bas"
if(qbevent){evnt(25107);if(r)goto S_28869;}
#line 25107 "qb64pe.bas"
do{
#line 25107 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25107 "qb64pe.bas"
if(!qbevent)break;evnt(25107);}while(r);
#line 25107 "qb64pe.bas"
do{
#line 25107 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25107 "qb64pe.bas"
if(!qbevent)break;evnt(25107);}while(r);
#line 25107 "qb64pe.bas"
}
#line 25108 "qb64pe.bas"
S_28873:;
#line 25108 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 25108 "qb64pe.bas"
if(qbevent){evnt(25108);if(r)goto S_28873;}
#line 25108 "qb64pe.bas"
do{
#line 25108 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25108 "qb64pe.bas"
if(!qbevent)break;evnt(25108);}while(r);
#line 25108 "qb64pe.bas"
do{
#line 25108 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25108 "qb64pe.bas"
if(!qbevent)break;evnt(25108);}while(r);
#line 25108 "qb64pe.bas"
}
#line 25109 "qb64pe.bas"
S_28877:;
#line 25109 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 25109 "qb64pe.bas"
if(qbevent){evnt(25109);if(r)goto S_28877;}
#line 25109 "qb64pe.bas"
do{
#line 25109 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25109 "qb64pe.bas"
if(!qbevent)break;evnt(25109);}while(r);
#line 25109 "qb64pe.bas"
do{
#line 25109 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25109 "qb64pe.bas"
if(!qbevent)break;evnt(25109);}while(r);
#line 25109 "qb64pe.bas"
}
#line 25110 "qb64pe.bas"
S_28881:;
#line 25110 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 25110 "qb64pe.bas"
if(qbevent){evnt(25110);if(r)goto S_28881;}
#line 25110 "qb64pe.bas"
do{
#line 25110 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40));
#line 25110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25110 "qb64pe.bas"
if(!qbevent)break;evnt(25110);}while(r);
#line 25110 "qb64pe.bas"
do{
#line 25110 "qb64pe.bas"
goto exit_subfunc;
#line 25110 "qb64pe.bas"
if(!qbevent)break;evnt(25110);}while(r);
#line 25110 "qb64pe.bas"
}
#line 25111 "qb64pe.bas"
S_28885:;
#line 25111 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 25111 "qb64pe.bas"
if(qbevent){evnt(25111);if(r)goto S_28885;}
#line 25111 "qb64pe.bas"
do{
#line 25111 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25111 "qb64pe.bas"
if(!qbevent)break;evnt(25111);}while(r);
#line 25111 "qb64pe.bas"
do{
#line 25111 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25111 "qb64pe.bas"
if(!qbevent)break;evnt(25111);}while(r);
#line 25111 "qb64pe.bas"
}
#line 25112 "qb64pe.bas"
S_28889:;
#line 25112 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 25112 "qb64pe.bas"
if(qbevent){evnt(25112);if(r)goto S_28889;}
#line 25113 "qb64pe.bas"
do{
#line 25113 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25113 "qb64pe.bas"
if(!qbevent)break;evnt(25113);}while(r);
#line 25114 "qb64pe.bas"
do{
#line 25114 "qb64pe.bas"
goto LABEL_LFBIBITEXT;
#line 25114 "qb64pe.bas"
if(!qbevent)break;evnt(25114);}while(r);
#line 25115 "qb64pe.bas"
}
#line 25116 "qb64pe.bas"
}
#line 25120 "qb64pe.bas"
S_28894:;
#line 25120 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25120 "qb64pe.bas"
if(qbevent){evnt(25120);if(r)goto S_28894;}
#line 25121 "qb64pe.bas"
do{
#line 25121 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 25121 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25121 "qb64pe.bas"
if(!qbevent)break;evnt(25121);}while(r);
#line 25122 "qb64pe.bas"
S_28896:;
#line 25122 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 25122 "qb64pe.bas"
if(qbevent){evnt(25122);if(r)goto S_28896;}
#line 25122 "qb64pe.bas"
do{
#line 25122 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25122 "qb64pe.bas"
if(!qbevent)break;evnt(25122);}while(r);
#line 25122 "qb64pe.bas"
do{
#line 25122 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25122 "qb64pe.bas"
if(!qbevent)break;evnt(25122);}while(r);
#line 25122 "qb64pe.bas"
}
#line 25123 "qb64pe.bas"
S_28900:;
#line 25123 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 25123 "qb64pe.bas"
if(qbevent){evnt(25123);if(r)goto S_28900;}
#line 25123 "qb64pe.bas"
do{
#line 25123 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25123 "qb64pe.bas"
if(!qbevent)break;evnt(25123);}while(r);
#line 25123 "qb64pe.bas"
do{
#line 25123 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25123 "qb64pe.bas"
if(!qbevent)break;evnt(25123);}while(r);
#line 25123 "qb64pe.bas"
}
#line 25124 "qb64pe.bas"
S_28904:;
#line 25124 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 25124 "qb64pe.bas"
if(qbevent){evnt(25124);if(r)goto S_28904;}
#line 25125 "qb64pe.bas"
do{
#line 25125 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25125 "qb64pe.bas"
if(!qbevent)break;evnt(25125);}while(r);
#line 25126 "qb64pe.bas"
LABEL_LFBIBITEXT:;
#line 25126 "qb64pe.bas"
if(qbevent){evnt(25126);r=0;}
#line 25127 "qb64pe.bas"
do{
#line 25127 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0));
#line 25127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25127 "qb64pe.bas"
if(!qbevent)break;evnt(25127);}while(r);
#line 25128 "qb64pe.bas"
S_28907:;
#line 25128 "qb64pe.bas"
while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25128 "qb64pe.bas"
if(qbevent){evnt(25128);if(r)goto S_28907;}
#line 25129 "qb64pe.bas"
do{
#line 25129 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1));
#line 25129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25129 "qb64pe.bas"
if(!qbevent)break;evnt(25129);}while(r);
#line 25130 "qb64pe.bas"
S_28909:;
#line 25130 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||is_error_pending()){
#line 25130 "qb64pe.bas"
if(qbevent){evnt(25130);if(r)goto S_28909;}
#line 25131 "qb64pe.bas"
do{
#line 25131 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2)));
#line 25131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25131 "qb64pe.bas"
if(!qbevent)break;evnt(25131);}while(r);
#line 25132 "qb64pe.bas"
do{
#line 25132 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25132 "qb64pe.bas"
if(!qbevent)break;evnt(25132);}while(r);
#line 25133 "qb64pe.bas"
}else{
#line 25134 "qb64pe.bas"
do{
#line 25134 "qb64pe.bas"
goto dl_exit_3109;
#line 25134 "qb64pe.bas"
if(!qbevent)break;evnt(25134);}while(r);
#line 25135 "qb64pe.bas"
}
#line 25136 "qb64pe.bas"
dl_continue_3109:;
#line 25136 "qb64pe.bas"
}
#line 25136 "qb64pe.bas"
dl_exit_3109:;
#line 25137 "qb64pe.bas"
S_28916:;
#line 25137 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||is_error_pending()){
#line 25137 "qb64pe.bas"
if(qbevent){evnt(25137);if(r)goto S_28916;}
#line 25137 "qb64pe.bas"
do{
#line 25137 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1));
#line 25137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25137 "qb64pe.bas"
if(!qbevent)break;evnt(25137);}while(r);
#line 25137 "qb64pe.bas"
}
#line 25139 "qb64pe.bas"
S_28919:;
#line 25139 "qb64pe.bas"
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||is_error_pending()){
#line 25139 "qb64pe.bas"
if(qbevent){evnt(25139);if(r)goto S_28919;}
#line 25139 "qb64pe.bas"
do{
#line 25139 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 ));
#line 25139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25139 "qb64pe.bas"
if(!qbevent)break;evnt(25139);}while(r);
#line 25139 "qb64pe.bas"
dl_continue_3110:;
#line 25139 "qb64pe.bas"
}
#line 25139 "qb64pe.bas"
dl_exit_3110:;
#line 25140 "qb64pe.bas"
do{
#line 25140 "qb64pe.bas"
goto LABEL_LFBIEXT;
#line 25140 "qb64pe.bas"
if(!qbevent)break;evnt(25140);}while(r);
#line 25141 "qb64pe.bas"
}
#line 25142 "qb64pe.bas"
}
#line 25145 "qb64pe.bas"
do{
#line 25145 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2));
#line 25145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25145 "qb64pe.bas"
if(!qbevent)break;evnt(25145);}while(r);
#line 25146 "qb64pe.bas"
S_28926:;
#line 25146 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||is_error_pending()){
#line 25146 "qb64pe.bas"
if(qbevent){evnt(25146);if(r)goto S_28926;}
#line 25146 "qb64pe.bas"
do{
#line 25146 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1));
#line 25146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25146 "qb64pe.bas"
if(!qbevent)break;evnt(25146);}while(r);
#line 25146 "qb64pe.bas"
}
#line 25147 "qb64pe.bas"
S_28929:;
#line 25147 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||is_error_pending()){
#line 25147 "qb64pe.bas"
if(qbevent){evnt(25147);if(r)goto S_28929;}
#line 25147 "qb64pe.bas"
do{
#line 25147 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1));
#line 25147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25147 "qb64pe.bas"
if(!qbevent)break;evnt(25147);}while(r);
#line 25147 "qb64pe.bas"
}
#line 25149 "qb64pe.bas"
do{
#line 25149 "qb64pe.bas"
goto LABEL_LFBIEXT2;
#line 25149 "qb64pe.bas"
if(!qbevent)break;evnt(25149);}while(r);
#line 25150 "qb64pe.bas"
LABEL_LFBIEXT:;
#line 25150 "qb64pe.bas"
if(qbevent){evnt(25150);r=0;}
#line 25151 "qb64pe.bas"
do{
#line 25151 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN));
#line 25151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25151 "qb64pe.bas"
if(!qbevent)break;evnt(25151);}while(r);
#line 25152 "qb64pe.bas"
LABEL_LFBIEXT2:;
#line 25152 "qb64pe.bas"
if(qbevent){evnt(25152);r=0;}
#line 25155 "qb64pe.bas"
S_28934:;
#line 25155 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||is_error_pending()){
#line 25155 "qb64pe.bas"
if(qbevent){evnt(25155);if(r)goto S_28934;}
#line 25155 "qb64pe.bas"
do{
#line 25155 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8));
#line 25155 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25155 "qb64pe.bas"
if(!qbevent)break;evnt(25155);}while(r);
#line 25155 "qb64pe.bas"
do{
#line 25155 "qb64pe.bas"
goto exit_subfunc;
#line 25155 "qb64pe.bas"
if(!qbevent)break;evnt(25155);}while(r);
#line 25155 "qb64pe.bas"
}
#line 25157 "qb64pe.bas"
do{
#line 25157 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ;
#line 25157 "qb64pe.bas"
if(!qbevent)break;evnt(25157);}while(r);
#line 25158 "qb64pe.bas"
S_28939:;
#line 25158 "qb64pe.bas"
fornext_value3116= 1 ;
#line 25158 "qb64pe.bas"
fornext_finalvalue3116=_FUNC_LINEFORMAT_STRING_HX->len;
#line 25158 "qb64pe.bas"
fornext_step3116= 1 ;
#line 25158 "qb64pe.bas"
if (fornext_step3116<0) fornext_step_negative3116=1; else fornext_step_negative3116=0;
#line 25158 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3116;
#line 25158 "qb64pe.bas"
goto fornext_entrylabel3116;
#line 25158 "qb64pe.bas"
while(1){
#line 25158 "qb64pe.bas"
fornext_value3116=fornext_step3116+(*_FUNC_LINEFORMAT_LONG_I2);
#line 25158 "qb64pe.bas"
fornext_entrylabel3116:
#line 25158 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3116;
#line 25158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25158 "qb64pe.bas"
if (fornext_step_negative3116){
#line 25158 "qb64pe.bas"
if (fornext_value3116<fornext_finalvalue3116) break;
#line 25158 "qb64pe.bas"
}else{
#line 25158 "qb64pe.bas"
if (fornext_value3116>fornext_finalvalue3116) break;
#line 25158 "qb64pe.bas"
}
#line 25158 "qb64pe.bas"
fornext_error3116:;
#line 25158 "qb64pe.bas"
if(qbevent){evnt(25158);if(r)goto S_28939;}
#line 25159 "qb64pe.bas"
do{
#line 25159 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1));
#line 25159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25159 "qb64pe.bas"
if(!qbevent)break;evnt(25159);}while(r);
#line 25160 "qb64pe.bas"
do{
#line 25160 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ;
#line 25160 "qb64pe.bas"
if(!qbevent)break;evnt(25160);}while(r);
#line 25161 "qb64pe.bas"
do{
#line 25161 "qb64pe.bas"
*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2;
#line 25161 "qb64pe.bas"
if(!qbevent)break;evnt(25161);}while(r);
#line 25162 "qb64pe.bas"
fornext_continue_3115:;
#line 25162 "qb64pe.bas"
}
#line 25162 "qb64pe.bas"
fornext_exit_3115:;
#line 25164 "qb64pe.bas"
do{
#line 25164 "qb64pe.bas"
goto LABEL_FINISHHEXOCTBIN;
#line 25164 "qb64pe.bas"
if(!qbevent)break;evnt(25164);}while(r);
#line 25165 "qb64pe.bas"
}
#line 25166 "qb64pe.bas"
}
#line 25170 "qb64pe.bas"
S_28947:;
#line 25170 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||is_error_pending()){
#line 25170 "qb64pe.bas"
if(qbevent){evnt(25170);if(r)goto S_28947;}
#line 25170 "qb64pe.bas"
do{
#line 25170 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23));
#line 25170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25170 "qb64pe.bas"
if(!qbevent)break;evnt(25170);}while(r);
#line 25170 "qb64pe.bas"
do{
#line 25170 "qb64pe.bas"
goto exit_subfunc;
#line 25170 "qb64pe.bas"
if(!qbevent)break;evnt(25170);}while(r);
#line 25170 "qb64pe.bas"
}
#line 25174 "qb64pe.bas"
S_28951:;
#line 25174 "qb64pe.bas"
if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||is_error_pending()){
#line 25174 "qb64pe.bas"
if(qbevent){evnt(25174);if(r)goto S_28951;}
#line 25175 "qb64pe.bas"
S_28952:;
#line 25175 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||is_error_pending()){
#line 25175 "qb64pe.bas"
if(qbevent){evnt(25175);if(r)goto S_28952;}
#line 25175 "qb64pe.bas"
do{
#line 25175 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2= 0 ;
#line 25175 "qb64pe.bas"
if(!qbevent)break;evnt(25175);}while(r);
#line 25175 "qb64pe.bas"
}else{
#line 25175 "qb64pe.bas"
do{
#line 25175 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I;
#line 25175 "qb64pe.bas"
if(!qbevent)break;evnt(25175);}while(r);
#line 25175 "qb64pe.bas"
}
#line 25176 "qb64pe.bas"
S_28957:;
#line 25176 "qb64pe.bas"
fornext_value3119=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25176 "qb64pe.bas"
fornext_finalvalue3119=*_FUNC_LINEFORMAT_LONG_N;
#line 25176 "qb64pe.bas"
fornext_step3119= 1 ;
#line 25176 "qb64pe.bas"
if (fornext_step3119<0) fornext_step_negative3119=1; else fornext_step_negative3119=0;
#line 25176 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3119;
#line 25176 "qb64pe.bas"
goto fornext_entrylabel3119;
#line 25176 "qb64pe.bas"
while(1){
#line 25176 "qb64pe.bas"
fornext_value3119=fornext_step3119+(*_FUNC_LINEFORMAT_LONG_I2);
#line 25176 "qb64pe.bas"
fornext_entrylabel3119:
#line 25176 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3119;
#line 25176 "qb64pe.bas"
if (fornext_step_negative3119){
#line 25176 "qb64pe.bas"
if (fornext_value3119<fornext_finalvalue3119) break;
#line 25176 "qb64pe.bas"
}else{
#line 25176 "qb64pe.bas"
if (fornext_value3119>fornext_finalvalue3119) break;
#line 25176 "qb64pe.bas"
}
#line 25176 "qb64pe.bas"
fornext_error3119:;
#line 25176 "qb64pe.bas"
if(qbevent){evnt(25176);if(r)goto S_28957;}
#line 25177 "qb64pe.bas"
do{
#line 25177 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2);
#line 25177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25177 "qb64pe.bas"
if(!qbevent)break;evnt(25177);}while(r);
#line 25178 "qb64pe.bas"
S_28959:;
#line 25178 "qb64pe.bas"
if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C2)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
#line 25178 "qb64pe.bas"
if(qbevent){evnt(25178);if(r)goto S_28959;}
#line 25178 "qb64pe.bas"
do{
#line 25178 "qb64pe.bas"
goto fornext_exit_3118;
#line 25178 "qb64pe.bas"
if(!qbevent)break;evnt(25178);}while(r);
#line 25178 "qb64pe.bas"
}
#line 25179 "qb64pe.bas"
S_28962:;
#line 25179 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||is_error_pending()){
#line 25179 "qb64pe.bas"
if(qbevent){evnt(25179);if(r)goto S_28962;}
#line 25179 "qb64pe.bas"
do{
#line 25179 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2;
#line 25179 "qb64pe.bas"
if(!qbevent)break;evnt(25179);}while(r);
#line 25179 "qb64pe.bas"
}
#line 25180 "qb64pe.bas"
fornext_continue_3118:;
#line 25180 "qb64pe.bas"
}
#line 25180 "qb64pe.bas"
fornext_exit_3118:;
#line 25181 "qb64pe.bas"
S_28966:;
#line 25181 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_P2)||is_error_pending()){
#line 25181 "qb64pe.bas"
if(qbevent){evnt(25181);if(r)goto S_28966;}
#line 25183 "qb64pe.bas"
do{
#line 25183 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25183 "qb64pe.bas"
if(!qbevent)break;evnt(25183);}while(r);
#line 25184 "qb64pe.bas"
do{
#line 25184 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1));
#line 25184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25184 "qb64pe.bas"
if(!qbevent)break;evnt(25184);}while(r);
#line 25187 "qb64pe.bas"
S_28969:;
#line 25187 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||is_error_pending()){
#line 25187 "qb64pe.bas"
if(qbevent){evnt(25187);if(r)goto S_28969;}
#line 25188 "qb64pe.bas"
S_28970:;
#line 25188 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||is_error_pending()){
#line 25188 "qb64pe.bas"
if(qbevent){evnt(25188);if(r)goto S_28970;}
#line 25189 "qb64pe.bas"
do{
#line 25189 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2;
#line 25189 "qb64pe.bas"
if(!qbevent)break;evnt(25189);}while(r);
#line 25190 "qb64pe.bas"
S_28972:;
#line 25190 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25190 "qb64pe.bas"
if(qbevent){evnt(25190);if(r)goto S_28972;}
#line 25191 "qb64pe.bas"
do{
#line 25191 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 25191 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25191 "qb64pe.bas"
if(!qbevent)break;evnt(25191);}while(r);
#line 25192 "qb64pe.bas"
S_28974:;
#line 25192 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||is_error_pending()){
#line 25192 "qb64pe.bas"
if(qbevent){evnt(25192);if(r)goto S_28974;}
#line 25192 "qb64pe.bas"
do{
#line 25192 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1)));
#line 25192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25192 "qb64pe.bas"
if(!qbevent)break;evnt(25192);}while(r);
#line 25192 "qb64pe.bas"
do{
#line 25192 "qb64pe.bas"
goto LABEL_EXTCHECK;
#line 25192 "qb64pe.bas"
if(!qbevent)break;evnt(25192);}while(r);
#line 25192 "qb64pe.bas"
}
#line 25193 "qb64pe.bas"
}
#line 25196 "qb64pe.bas"
S_28979:;
#line 25196 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 ))),(qbs_add(__STRING1_SP,qbs_new_txt_len("THEN",4))))))||is_error_pending()){
#line 25196 "qb64pe.bas"
if(qbevent){evnt(25196);if(r)goto S_28979;}
#line 25196 "qb64pe.bas"
do{
#line 25196 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1)));
#line 25196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25196 "qb64pe.bas"
if(!qbevent)break;evnt(25196);}while(r);
#line 25196 "qb64pe.bas"
}
#line 25197 "qb64pe.bas"
do{
#line 25197 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT,FUNC_SCASE(qbs_new_txt_len("Rem",3)));
#line 25197 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25197 "qb64pe.bas"
if(!qbevent)break;evnt(25197);}while(r);
#line 25198 "qb64pe.bas"
do{
#line 25198 "qb64pe.bas"
goto LABEL_COMMENT;
#line 25198 "qb64pe.bas"
if(!qbevent)break;evnt(25198);}while(r);
#line 25199 "qb64pe.bas"
}
#line 25200 "qb64pe.bas"
}
#line 25203 "qb64pe.bas"
S_28986:;
#line 25203 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||is_error_pending()){
#line 25203 "qb64pe.bas"
if(qbevent){evnt(25203);if(r)goto S_28986;}
#line 25204 "qb64pe.bas"
S_28987:;
#line 25204 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||is_error_pending()){
#line 25204 "qb64pe.bas"
if(qbevent){evnt(25204);if(r)goto S_28987;}
#line 25205 "qb64pe.bas"
do{
#line 25205 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0));
#line 25205 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25205 "qb64pe.bas"
if(!qbevent)break;evnt(25205);}while(r);
#line 25206 "qb64pe.bas"
do{
#line 25206 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2;
#line 25206 "qb64pe.bas"
if(!qbevent)break;evnt(25206);}while(r);
#line 25207 "qb64pe.bas"
S_28990:;
#line 25207 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25207 "qb64pe.bas"
if(qbevent){evnt(25207);if(r)goto S_28990;}
#line 25208 "qb64pe.bas"
do{
#line 25208 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 25208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25208 "qb64pe.bas"
if(!qbevent)break;evnt(25208);}while(r);
#line 25209 "qb64pe.bas"
S_28992:;
#line 25209 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||is_error_pending()){
#line 25209 "qb64pe.bas"
if(qbevent){evnt(25209);if(r)goto S_28992;}
#line 25209 "qb64pe.bas"
do{
#line 25209 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1)));
#line 25209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25209 "qb64pe.bas"
if(!qbevent)break;evnt(25209);}while(r);
#line 25209 "qb64pe.bas"
do{
#line 25209 "qb64pe.bas"
goto LABEL_EXTCHECK;
#line 25209 "qb64pe.bas"
if(!qbevent)break;evnt(25209);}while(r);
#line 25209 "qb64pe.bas"
}
#line 25210 "qb64pe.bas"
}
#line 25212 "qb64pe.bas"
do{
#line 25212 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SCAN= 0 ;
#line 25212 "qb64pe.bas"
if(!qbevent)break;evnt(25212);}while(r);
#line 25213 "qb64pe.bas"
do{
#line 25213 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ;
#line 25213 "qb64pe.bas"
if(!qbevent)break;evnt(25213);}while(r);
#line 25214 "qb64pe.bas"
do{
#line 25214 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ;
#line 25214 "qb64pe.bas"
if(!qbevent)break;evnt(25214);}while(r);
#line 25215 "qb64pe.bas"
do{
#line 25215 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ;
#line 25215 "qb64pe.bas"
if(!qbevent)break;evnt(25215);}while(r);
#line 25216 "qb64pe.bas"
do{
#line 25216 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 25216 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25216 "qb64pe.bas"
if(!qbevent)break;evnt(25216);}while(r);
#line 25217 "qb64pe.bas"
do{
#line 25217 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P1= 0 ;
#line 25217 "qb64pe.bas"
if(!qbevent)break;evnt(25217);}while(r);
#line 25218 "qb64pe.bas"
do{
#line 25218 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2= 0 ;
#line 25218 "qb64pe.bas"
if(!qbevent)break;evnt(25218);}while(r);
#line 25219 "qb64pe.bas"
LABEL_NEXTDATACHR:;
#line 25219 "qb64pe.bas"
if(qbevent){evnt(25219);r=0;}
#line 25220 "qb64pe.bas"
S_29004:;
#line 25220 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25220 "qb64pe.bas"
if(qbevent){evnt(25220);if(r)goto S_29004;}
#line 25221 "qb64pe.bas"
do{
#line 25221 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 25221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25221 "qb64pe.bas"
if(!qbevent)break;evnt(25221);}while(r);
#line 25222 "qb64pe.bas"
S_29006:;
#line 25222 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||is_error_pending()){
#line 25222 "qb64pe.bas"
if(qbevent){evnt(25222);if(r)goto S_29006;}
#line 25223 "qb64pe.bas"
S_29007:;
#line 25223 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||is_error_pending()){
#line 25223 "qb64pe.bas"
if(qbevent){evnt(25223);if(r)goto S_29007;}
#line 25223 "qb64pe.bas"
do{
#line 25223 "qb64pe.bas"
goto LABEL_SKIPWHITESPACE;
#line 25223 "qb64pe.bas"
if(!qbevent)break;evnt(25223);}while(r);
#line 25223 "qb64pe.bas"
}
#line 25224 "qb64pe.bas"
}
#line 25226 "qb64pe.bas"
S_29011:;
#line 25226 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||is_error_pending()){
#line 25226 "qb64pe.bas"
if(qbevent){evnt(25226);if(r)goto S_29011;}
#line 25227 "qb64pe.bas"
S_29012:;
#line 25227 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||is_error_pending()){
#line 25227 "qb64pe.bas"
if(qbevent){evnt(25227);if(r)goto S_29012;}
#line 25227 "qb64pe.bas"
do{
#line 25227 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ;
#line 25227 "qb64pe.bas"
if(!qbevent)break;evnt(25227);}while(r);
#line 25227 "qb64pe.bas"
do{
#line 25227 "qb64pe.bas"
goto LABEL_ADDDATA;
#line 25227 "qb64pe.bas"
if(!qbevent)break;evnt(25227);}while(r);
#line 25227 "qb64pe.bas"
}
#line 25228 "qb64pe.bas"
}
#line 25230 "qb64pe.bas"
S_29017:;
#line 25230 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||is_error_pending()){
#line 25230 "qb64pe.bas"
if(qbevent){evnt(25230);if(r)goto S_29017;}
#line 25231 "qb64pe.bas"
S_29018:;
#line 25231 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||is_error_pending()){
#line 25231 "qb64pe.bas"
if(qbevent){evnt(25231);if(r)goto S_29018;}
#line 25232 "qb64pe.bas"
LABEL_ADDDATA:;
#line 25232 "qb64pe.bas"
if(qbevent){evnt(25232);r=0;}
#line 25233 "qb64pe.bas"
S_29019:;
#line 25233 "qb64pe.bas"
if ((-(*__LONG_PREPASS== 0 ))||is_error_pending()){
#line 25233 "qb64pe.bas"
if(qbevent){evnt(25233);if(r)goto S_29019;}
#line 25234 "qb64pe.bas"
S_29020:;
#line 25234 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_P1)||is_error_pending()){
#line 25234 "qb64pe.bas"
if(qbevent){evnt(25234);if(r)goto S_29020;}
#line 25238 "qb64pe.bas"
do{
#line 25238 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1)));
#line 25238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25238 "qb64pe.bas"
if(!qbevent)break;evnt(25238);}while(r);
#line 25239 "qb64pe.bas"
}
#line 25241 "qb64pe.bas"
S_29023:;
#line 25241 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||is_error_pending()){
#line 25241 "qb64pe.bas"
if(qbevent){evnt(25241);if(r)goto S_29023;}
#line 25243 "qb64pe.bas"
do{
#line 25243 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 34 )));
#line 25243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25243 "qb64pe.bas"
if(!qbevent)break;evnt(25243);}while(r);
#line 25244 "qb64pe.bas"
}
#line 25247 "qb64pe.bas"
do{
#line 25247 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 44 )));
#line 25247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25247 "qb64pe.bas"
if(!qbevent)break;evnt(25247);}while(r);
#line 25248 "qb64pe.bas"
}
#line 25249 "qb64pe.bas"
S_29028:;
#line 25249 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||is_error_pending()){
#line 25249 "qb64pe.bas"
if(qbevent){evnt(25249);if(r)goto S_29028;}
#line 25249 "qb64pe.bas"
do{
#line 25249 "qb64pe.bas"
goto LABEL_FINISHEDDATA;
#line 25249 "qb64pe.bas"
if(!qbevent)break;evnt(25249);}while(r);
#line 25249 "qb64pe.bas"
}
#line 25250 "qb64pe.bas"
do{
#line 25250 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 25250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25250 "qb64pe.bas"
if(!qbevent)break;evnt(25250);}while(r);
#line 25251 "qb64pe.bas"
do{
#line 25251 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P1= 0 ;
#line 25251 "qb64pe.bas"
if(!qbevent)break;evnt(25251);}while(r);
#line 25252 "qb64pe.bas"
do{
#line 25252 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2= 0 ;
#line 25252 "qb64pe.bas"
if(!qbevent)break;evnt(25252);}while(r);
#line 25253 "qb64pe.bas"
do{
#line 25253 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ;
#line 25253 "qb64pe.bas"
if(!qbevent)break;evnt(25253);}while(r);
#line 25254 "qb64pe.bas"
do{
#line 25254 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SCAN= 0 ;
#line 25254 "qb64pe.bas"
if(!qbevent)break;evnt(25254);}while(r);
#line 25255 "qb64pe.bas"
do{
#line 25255 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ;
#line 25255 "qb64pe.bas"
if(!qbevent)break;evnt(25255);}while(r);
#line 25256 "qb64pe.bas"
do{
#line 25256 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25256 "qb64pe.bas"
if(!qbevent)break;evnt(25256);}while(r);
#line 25257 "qb64pe.bas"
do{
#line 25257 "qb64pe.bas"
goto LABEL_NEXTDATACHR;
#line 25257 "qb64pe.bas"
if(!qbevent)break;evnt(25257);}while(r);
#line 25258 "qb64pe.bas"
}
#line 25259 "qb64pe.bas"
}
#line 25261 "qb64pe.bas"
S_29041:;
#line 25261 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||is_error_pending()){
#line 25261 "qb64pe.bas"
if(qbevent){evnt(25261);if(r)goto S_29041;}
#line 25262 "qb64pe.bas"
S_29042:;
#line 25262 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||is_error_pending()){
#line 25262 "qb64pe.bas"
if(qbevent){evnt(25262);if(r)goto S_29042;}
#line 25262 "qb64pe.bas"
do{
#line 25262 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected , after quoted string in DATA statement",48));
#line 25262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25262 "qb64pe.bas"
if(!qbevent)break;evnt(25262);}while(r);
#line 25262 "qb64pe.bas"
do{
#line 25262 "qb64pe.bas"
goto exit_subfunc;
#line 25262 "qb64pe.bas"
if(!qbevent)break;evnt(25262);}while(r);
#line 25262 "qb64pe.bas"
}
#line 25263 "qb64pe.bas"
}
#line 25265 "qb64pe.bas"
S_29047:;
#line 25265 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||is_error_pending()){
#line 25265 "qb64pe.bas"
if(qbevent){evnt(25265);if(r)goto S_29047;}
#line 25266 "qb64pe.bas"
S_29048:;
#line 25266 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||is_error_pending()){
#line 25266 "qb64pe.bas"
if(qbevent){evnt(25266);if(r)goto S_29048;}
#line 25267 "qb64pe.bas"
do{
#line 25267 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ;
#line 25267 "qb64pe.bas"
if(!qbevent)break;evnt(25267);}while(r);
#line 25268 "qb64pe.bas"
do{
#line 25268 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ;
#line 25268 "qb64pe.bas"
if(!qbevent)break;evnt(25268);}while(r);
#line 25269 "qb64pe.bas"
}
#line 25270 "qb64pe.bas"
S_29052:;
#line 25270 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||is_error_pending()){
#line 25270 "qb64pe.bas"
if(qbevent){evnt(25270);if(r)goto S_29052;}
#line 25270 "qb64pe.bas"
do{
#line 25270 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ;
#line 25270 "qb64pe.bas"
if(!qbevent)break;evnt(25270);}while(r);
#line 25270 "qb64pe.bas"
}
#line 25271 "qb64pe.bas"
}
#line 25273 "qb64pe.bas"
do{
#line 25273 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_SCAN= 1 ;
#line 25273 "qb64pe.bas"
if(!qbevent)break;evnt(25273);}while(r);
#line 25275 "qb64pe.bas"
S_29057:;
#line 25275 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||is_error_pending()){
#line 25275 "qb64pe.bas"
if(qbevent){evnt(25275);if(r)goto S_29057;}
#line 25275 "qb64pe.bas"
do{
#line 25275 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I;
#line 25275 "qb64pe.bas"
if(!qbevent)break;evnt(25275);}while(r);
#line 25275 "qb64pe.bas"
do{
#line 25275 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I;
#line 25275 "qb64pe.bas"
if(!qbevent)break;evnt(25275);}while(r);
#line 25275 "qb64pe.bas"
}
#line 25276 "qb64pe.bas"
S_29061:;
#line 25276 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||is_error_pending()){
#line 25276 "qb64pe.bas"
if(qbevent){evnt(25276);if(r)goto S_29061;}
#line 25276 "qb64pe.bas"
do{
#line 25276 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I;
#line 25276 "qb64pe.bas"
if(!qbevent)break;evnt(25276);}while(r);
#line 25276 "qb64pe.bas"
}
#line 25278 "qb64pe.bas"
LABEL_SKIPWHITESPACE:;
#line 25278 "qb64pe.bas"
if(qbevent){evnt(25278);r=0;}
#line 25279 "qb64pe.bas"
do{
#line 25279 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25279 "qb64pe.bas"
if(!qbevent)break;evnt(25279);}while(r);
#line 25279 "qb64pe.bas"
do{
#line 25279 "qb64pe.bas"
goto LABEL_NEXTDATACHR;
#line 25279 "qb64pe.bas"
if(!qbevent)break;evnt(25279);}while(r);
#line 25280 "qb64pe.bas"
}
#line 25281 "qb64pe.bas"
do{
#line 25281 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ;
#line 25281 "qb64pe.bas"
if(!qbevent)break;evnt(25281);}while(r);
#line 25281 "qb64pe.bas"
do{
#line 25281 "qb64pe.bas"
goto LABEL_ADDDATA;
#line 25281 "qb64pe.bas"
if(!qbevent)break;evnt(25281);}while(r);
#line 25282 "qb64pe.bas"
LABEL_FINISHEDDATA:;
#line 25282 "qb64pe.bas"
if(qbevent){evnt(25282);r=0;}
#line 25283 "qb64pe.bas"
do{
#line 25283 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0));
#line 25283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25283 "qb64pe.bas"
if(!qbevent)break;evnt(25283);}while(r);
#line 25284 "qb64pe.bas"
S_29070:;
#line 25284 "qb64pe.bas"
if ((-(*__LONG_PREPASS== 0 ))||is_error_pending()){
#line 25284 "qb64pe.bas"
if(qbevent){evnt(25284);if(r)goto S_29070;}
#line 25285 "qb64pe.bas"
do{
#line 25285 "qb64pe.bas"
SUB_WRITEBUFRAWDATA(&(pass3120=*__LONG_DATABINBUF),_FUNC_LINEFORMAT_STRING_X);
#line 25285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25285 "qb64pe.bas"
if(!qbevent)break;evnt(25285);}while(r);
#line 25286 "qb64pe.bas"
do{
#line 25286 "qb64pe.bas"
*__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len;
#line 25286 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25286 "qb64pe.bas"
if(!qbevent)break;evnt(25286);}while(r);
#line 25288 "qb64pe.bas"
do{
#line 25288 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E,func_space((_FUNC_LINEFORMAT_STRING_X->len- 1 )* 2 ));
#line 25288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25288 "qb64pe.bas"
if(!qbevent)break;evnt(25288);}while(r);
#line 25289 "qb64pe.bas"
S_29074:;
#line 25289 "qb64pe.bas"
fornext_value3124= 1 ;
#line 25289 "qb64pe.bas"
fornext_finalvalue3124=_FUNC_LINEFORMAT_STRING_X->len- 1 ;
#line 25289 "qb64pe.bas"
fornext_step3124= 1 ;
#line 25289 "qb64pe.bas"
if (fornext_step3124<0) fornext_step_negative3124=1; else fornext_step_negative3124=0;
#line 25289 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3124;
#line 25289 "qb64pe.bas"
goto fornext_entrylabel3124;
#line 25289 "qb64pe.bas"
while(1){
#line 25289 "qb64pe.bas"
fornext_value3124=fornext_step3124+(*_FUNC_LINEFORMAT_LONG_EC);
#line 25289 "qb64pe.bas"
fornext_entrylabel3124:
#line 25289 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_EC=fornext_value3124;
#line 25289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25289 "qb64pe.bas"
if (fornext_step_negative3124){
#line 25289 "qb64pe.bas"
if (fornext_value3124<fornext_finalvalue3124) break;
#line 25289 "qb64pe.bas"
}else{
#line 25289 "qb64pe.bas"
if (fornext_value3124>fornext_finalvalue3124) break;
#line 25289 "qb64pe.bas"
}
#line 25289 "qb64pe.bas"
fornext_error3124:;
#line 25289 "qb64pe.bas"
if(qbevent){evnt(25289);if(r)goto S_29074;}
#line 25291 "qb64pe.bas"
do{
#line 25291 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V1=qbs_asc(_FUNC_LINEFORMAT_STRING_X,*_FUNC_LINEFORMAT_LONG_EC);
#line 25291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25291 "qb64pe.bas"
if(!qbevent)break;evnt(25291);}while(r);
#line 25292 "qb64pe.bas"
do{
#line 25292 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=qb_safe_idiv(*_FUNC_LINEFORMAT_LONG_V1, 16 );
#line 25292 "qb64pe.bas"
if(!qbevent)break;evnt(25292);}while(r);
#line 25292 "qb64pe.bas"
S_29077:;
#line 25292 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||is_error_pending()){
#line 25292 "qb64pe.bas"
if(qbevent){evnt(25292);if(r)goto S_29077;}
#line 25292 "qb64pe.bas"
do{
#line 25292 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ;
#line 25292 "qb64pe.bas"
if(!qbevent)break;evnt(25292);}while(r);
#line 25292 "qb64pe.bas"
}else{
#line 25292 "qb64pe.bas"
do{
#line 25292 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ;
#line 25292 "qb64pe.bas"
if(!qbevent)break;evnt(25292);}while(r);
#line 25292 "qb64pe.bas"
}
#line 25293 "qb64pe.bas"
do{
#line 25293 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ;
#line 25293 "qb64pe.bas"
if(!qbevent)break;evnt(25293);}while(r);
#line 25293 "qb64pe.bas"
S_29083:;
#line 25293 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||is_error_pending()){
#line 25293 "qb64pe.bas"
if(qbevent){evnt(25293);if(r)goto S_29083;}
#line 25293 "qb64pe.bas"
do{
#line 25293 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ;
#line 25293 "qb64pe.bas"
if(!qbevent)break;evnt(25293);}while(r);
#line 25293 "qb64pe.bas"
}else{
#line 25293 "qb64pe.bas"
do{
#line 25293 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ;
#line 25293 "qb64pe.bas"
if(!qbevent)break;evnt(25293);}while(r);
#line 25293 "qb64pe.bas"
}
#line 25294 "qb64pe.bas"
do{
#line 25294 "qb64pe.bas"
tqbs=_FUNC_LINEFORMAT_STRING_E; if (!is_error_pending()){
#line 25294 "qb64pe.bas"
tmp_fileno=(*_FUNC_LINEFORMAT_LONG_EC* 2 )-( 1 ); if (!is_error_pending()){
#line 25294 "qb64pe.bas"
tmp_long=*_FUNC_LINEFORMAT_LONG_V1; if (!is_error_pending()){
#line 25294 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 25294 "qb64pe.bas"
}}}
#line 25294 "qb64pe.bas"
if(!qbevent)break;evnt(25294);}while(r);
#line 25295 "qb64pe.bas"
do{
#line 25295 "qb64pe.bas"
tqbs=_FUNC_LINEFORMAT_STRING_E; if (!is_error_pending()){
#line 25295 "qb64pe.bas"
tmp_fileno=*_FUNC_LINEFORMAT_LONG_EC* 2 ; if (!is_error_pending()){
#line 25295 "qb64pe.bas"
tmp_long=*_FUNC_LINEFORMAT_LONG_V2; if (!is_error_pending()){
#line 25295 "qb64pe.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 25295 "qb64pe.bas"
}}}
#line 25295 "qb64pe.bas"
if(!qbevent)break;evnt(25295);}while(r);
#line 25296 "qb64pe.bas"
fornext_continue_3123:;
#line 25296 "qb64pe.bas"
}
#line 25296 "qb64pe.bas"
fornext_exit_3123:;
#line 25298 "qb64pe.bas"
}
#line 25300 "qb64pe.bas"
do{
#line 25300 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("DATA",4)));
#line 25300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25300 "qb64pe.bas"
if(!qbevent)break;evnt(25300);}while(r);
#line 25300 "qb64pe.bas"
S_29093:;
#line 25300 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||is_error_pending()){
#line 25300 "qb64pe.bas"
if(qbevent){evnt(25300);if(r)goto S_29093;}
#line 25300 "qb64pe.bas"
do{
#line 25300 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("_",1)),_FUNC_LINEFORMAT_STRING_E));
#line 25300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25300 "qb64pe.bas"
if(!qbevent)break;evnt(25300);}while(r);
#line 25300 "qb64pe.bas"
}
#line 25301 "qb64pe.bas"
do{
#line 25301 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25301 "qb64pe.bas"
if(!qbevent)break;evnt(25301);}while(r);
#line 25302 "qb64pe.bas"
}
#line 25303 "qb64pe.bas"
}
#line 25305 "qb64pe.bas"
do{
#line 25305 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1)));
#line 25305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25305 "qb64pe.bas"
if(!qbevent)break;evnt(25305);}while(r);
#line 25306 "qb64pe.bas"
do{
#line 25306 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2;
#line 25306 "qb64pe.bas"
if(!qbevent)break;evnt(25306);}while(r);
#line 25309 "qb64pe.bas"
LABEL_EXTCHECK:;
#line 25309 "qb64pe.bas"
if(qbevent){evnt(25309);r=0;}
#line 25310 "qb64pe.bas"
S_29101:;
#line 25310 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||is_error_pending()){
#line 25310 "qb64pe.bas"
if(qbevent){evnt(25310);if(r)goto S_29101;}
#line 25310 "qb64pe.bas"
do{
#line 25310 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Identifier longer than 40 character limit",41));
#line 25310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25310 "qb64pe.bas"
if(!qbevent)break;evnt(25310);}while(r);
#line 25310 "qb64pe.bas"
do{
#line 25310 "qb64pe.bas"
goto exit_subfunc;
#line 25310 "qb64pe.bas"
if(!qbevent)break;evnt(25310);}while(r);
#line 25310 "qb64pe.bas"
}
#line 25311 "qb64pe.bas"
do{
#line 25311 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C3=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 25311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25311 "qb64pe.bas"
if(!qbevent)break;evnt(25311);}while(r);
#line 25312 "qb64pe.bas"
do{
#line 25312 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_M= 0 ;
#line 25312 "qb64pe.bas"
if(!qbevent)break;evnt(25312);}while(r);
#line 25313 "qb64pe.bas"
S_29107:;
#line 25313 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||is_error_pending()){
#line 25313 "qb64pe.bas"
if(qbevent){evnt(25313);if(r)goto S_29107;}
#line 25314 "qb64pe.bas"
do{
#line 25314 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,0|1));
#line 25314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25314 "qb64pe.bas"
if(!qbevent)break;evnt(25314);}while(r);
#line 25315 "qb64pe.bas"
S_29109:;
#line 25315 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 25315 "qb64pe.bas"
if(qbevent){evnt(25315);if(r)goto S_29109;}
#line 25315 "qb64pe.bas"
do{
#line 25315 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3));
#line 25315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25315 "qb64pe.bas"
if(!qbevent)break;evnt(25315);}while(r);
#line 25315 "qb64pe.bas"
do{
#line 25315 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25315 "qb64pe.bas"
if(!qbevent)break;evnt(25315);}while(r);
#line 25315 "qb64pe.bas"
}
#line 25316 "qb64pe.bas"
S_29113:;
#line 25316 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 25316 "qb64pe.bas"
if(qbevent){evnt(25316);if(r)goto S_29113;}
#line 25316 "qb64pe.bas"
do{
#line 25316 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3));
#line 25316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25316 "qb64pe.bas"
if(!qbevent)break;evnt(25316);}while(r);
#line 25316 "qb64pe.bas"
do{
#line 25316 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25316 "qb64pe.bas"
if(!qbevent)break;evnt(25316);}while(r);
#line 25316 "qb64pe.bas"
}
#line 25317 "qb64pe.bas"
S_29117:;
#line 25317 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 25317 "qb64pe.bas"
if(qbevent){evnt(25317);if(r)goto S_29117;}
#line 25317 "qb64pe.bas"
do{
#line 25317 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3));
#line 25317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25317 "qb64pe.bas"
if(!qbevent)break;evnt(25317);}while(r);
#line 25317 "qb64pe.bas"
do{
#line 25317 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25317 "qb64pe.bas"
if(!qbevent)break;evnt(25317);}while(r);
#line 25317 "qb64pe.bas"
}
#line 25318 "qb64pe.bas"
do{
#line 25318 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_chr(qbs_asc(_FUNC_LINEFORMAT_STRING_E2)));
#line 25318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25318 "qb64pe.bas"
if(!qbevent)break;evnt(25318);}while(r);
#line 25319 "qb64pe.bas"
S_29122:;
#line 25319 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 25319 "qb64pe.bas"
if(qbevent){evnt(25319);if(r)goto S_29122;}
#line 25319 "qb64pe.bas"
do{
#line 25319 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2));
#line 25319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25319 "qb64pe.bas"
if(!qbevent)break;evnt(25319);}while(r);
#line 25319 "qb64pe.bas"
do{
#line 25319 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25319 "qb64pe.bas"
if(!qbevent)break;evnt(25319);}while(r);
#line 25319 "qb64pe.bas"
}
#line 25320 "qb64pe.bas"
S_29126:;
#line 25320 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 25320 "qb64pe.bas"
if(qbevent){evnt(25320);if(r)goto S_29126;}
#line 25320 "qb64pe.bas"
do{
#line 25320 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2));
#line 25320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25320 "qb64pe.bas"
if(!qbevent)break;evnt(25320);}while(r);
#line 25320 "qb64pe.bas"
do{
#line 25320 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25320 "qb64pe.bas"
if(!qbevent)break;evnt(25320);}while(r);
#line 25320 "qb64pe.bas"
}
#line 25321 "qb64pe.bas"
S_29130:;
#line 25321 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||is_error_pending()){
#line 25321 "qb64pe.bas"
if(qbevent){evnt(25321);if(r)goto S_29130;}
#line 25321 "qb64pe.bas"
do{
#line 25321 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_M= 1 ;
#line 25321 "qb64pe.bas"
if(!qbevent)break;evnt(25321);}while(r);
#line 25321 "qb64pe.bas"
do{
#line 25321 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2));
#line 25321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25321 "qb64pe.bas"
if(!qbevent)break;evnt(25321);}while(r);
#line 25321 "qb64pe.bas"
do{
#line 25321 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25321 "qb64pe.bas"
if(!qbevent)break;evnt(25321);}while(r);
#line 25321 "qb64pe.bas"
}
#line 25322 "qb64pe.bas"
}
#line 25323 "qb64pe.bas"
S_29136:;
#line 25323 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||is_error_pending()){
#line 25323 "qb64pe.bas"
if(qbevent){evnt(25323);if(r)goto S_29136;}
#line 25324 "qb64pe.bas"
do{
#line 25324 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 );
#line 25324 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25324 "qb64pe.bas"
if(!qbevent)break;evnt(25324);}while(r);
#line 25325 "qb64pe.bas"
S_29138:;
#line 25325 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||is_error_pending()){
#line 25325 "qb64pe.bas"
if(qbevent){evnt(25325);if(r)goto S_29138;}
#line 25325 "qb64pe.bas"
do{
#line 25325 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2));
#line 25325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25325 "qb64pe.bas"
if(!qbevent)break;evnt(25325);}while(r);
#line 25325 "qb64pe.bas"
do{
#line 25325 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25325 "qb64pe.bas"
if(!qbevent)break;evnt(25325);}while(r);
#line 25325 "qb64pe.bas"
}
#line 25326 "qb64pe.bas"
S_29142:;
#line 25326 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||is_error_pending()){
#line 25326 "qb64pe.bas"
if(qbevent){evnt(25326);if(r)goto S_29142;}
#line 25326 "qb64pe.bas"
do{
#line 25326 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2));
#line 25326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25326 "qb64pe.bas"
if(!qbevent)break;evnt(25326);}while(r);
#line 25326 "qb64pe.bas"
do{
#line 25326 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25326 "qb64pe.bas"
if(!qbevent)break;evnt(25326);}while(r);
#line 25326 "qb64pe.bas"
}
#line 25327 "qb64pe.bas"
do{
#line 25327 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1));
#line 25327 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25327 "qb64pe.bas"
if(!qbevent)break;evnt(25327);}while(r);
#line 25327 "qb64pe.bas"
do{
#line 25327 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25327 "qb64pe.bas"
if(!qbevent)break;evnt(25327);}while(r);
#line 25328 "qb64pe.bas"
}
#line 25329 "qb64pe.bas"
S_29149:;
#line 25329 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||is_error_pending()){
#line 25329 "qb64pe.bas"
if(qbevent){evnt(25329);if(r)goto S_29149;}
#line 25330 "qb64pe.bas"
do{
#line 25330 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 );
#line 25330 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25330 "qb64pe.bas"
if(!qbevent)break;evnt(25330);}while(r);
#line 25331 "qb64pe.bas"
S_29151:;
#line 25331 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||is_error_pending()){
#line 25331 "qb64pe.bas"
if(qbevent){evnt(25331);if(r)goto S_29151;}
#line 25331 "qb64pe.bas"
do{
#line 25331 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2));
#line 25331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25331 "qb64pe.bas"
if(!qbevent)break;evnt(25331);}while(r);
#line 25331 "qb64pe.bas"
do{
#line 25331 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25331 "qb64pe.bas"
if(!qbevent)break;evnt(25331);}while(r);
#line 25331 "qb64pe.bas"
}
#line 25332 "qb64pe.bas"
do{
#line 25332 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1));
#line 25332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25332 "qb64pe.bas"
if(!qbevent)break;evnt(25332);}while(r);
#line 25332 "qb64pe.bas"
do{
#line 25332 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25332 "qb64pe.bas"
if(!qbevent)break;evnt(25332);}while(r);
#line 25333 "qb64pe.bas"
}
#line 25334 "qb64pe.bas"
S_29158:;
#line 25334 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||is_error_pending()){
#line 25334 "qb64pe.bas"
if(qbevent){evnt(25334);if(r)goto S_29158;}
#line 25334 "qb64pe.bas"
do{
#line 25334 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1));
#line 25334 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25334 "qb64pe.bas"
if(!qbevent)break;evnt(25334);}while(r);
#line 25334 "qb64pe.bas"
do{
#line 25334 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25334 "qb64pe.bas"
if(!qbevent)break;evnt(25334);}while(r);
#line 25334 "qb64pe.bas"
}
#line 25335 "qb64pe.bas"
S_29162:;
#line 25335 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||is_error_pending()){
#line 25335 "qb64pe.bas"
if(qbevent){evnt(25335);if(r)goto S_29162;}
#line 25336 "qb64pe.bas"
do{
#line 25336 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 );
#line 25336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25336 "qb64pe.bas"
if(!qbevent)break;evnt(25336);}while(r);
#line 25337 "qb64pe.bas"
S_29164:;
#line 25337 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||is_error_pending()){
#line 25337 "qb64pe.bas"
if(qbevent){evnt(25337);if(r)goto S_29164;}
#line 25337 "qb64pe.bas"
do{
#line 25337 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2));
#line 25337 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25337 "qb64pe.bas"
if(!qbevent)break;evnt(25337);}while(r);
#line 25337 "qb64pe.bas"
do{
#line 25337 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25337 "qb64pe.bas"
if(!qbevent)break;evnt(25337);}while(r);
#line 25337 "qb64pe.bas"
}
#line 25338 "qb64pe.bas"
do{
#line 25338 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1));
#line 25338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25338 "qb64pe.bas"
if(!qbevent)break;evnt(25338);}while(r);
#line 25338 "qb64pe.bas"
do{
#line 25338 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25338 "qb64pe.bas"
if(!qbevent)break;evnt(25338);}while(r);
#line 25339 "qb64pe.bas"
}
#line 25340 "qb64pe.bas"
S_29171:;
#line 25340 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||is_error_pending()){
#line 25340 "qb64pe.bas"
if(qbevent){evnt(25340);if(r)goto S_29171;}
#line 25340 "qb64pe.bas"
do{
#line 25340 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_M= 1 ;
#line 25340 "qb64pe.bas"
if(!qbevent)break;evnt(25340);}while(r);
#line 25340 "qb64pe.bas"
do{
#line 25340 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1));
#line 25340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25340 "qb64pe.bas"
if(!qbevent)break;evnt(25340);}while(r);
#line 25340 "qb64pe.bas"
do{
#line 25340 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25340 "qb64pe.bas"
if(!qbevent)break;evnt(25340);}while(r);
#line 25340 "qb64pe.bas"
}
#line 25341 "qb64pe.bas"
S_29176:;
#line 25341 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||is_error_pending()){
#line 25341 "qb64pe.bas"
if(qbevent){evnt(25341);if(r)goto S_29176;}
#line 25341 "qb64pe.bas"
do{
#line 25341 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_M= 1 ;
#line 25341 "qb64pe.bas"
if(!qbevent)break;evnt(25341);}while(r);
#line 25341 "qb64pe.bas"
do{
#line 25341 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1));
#line 25341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25341 "qb64pe.bas"
if(!qbevent)break;evnt(25341);}while(r);
#line 25341 "qb64pe.bas"
do{
#line 25341 "qb64pe.bas"
goto LABEL_LFGETVE;
#line 25341 "qb64pe.bas"
if(!qbevent)break;evnt(25341);}while(r);
#line 25341 "qb64pe.bas"
}
#line 25345 "qb64pe.bas"
S_29181:;
#line 25345 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||is_error_pending()){
#line 25345 "qb64pe.bas"
if(qbevent){evnt(25345);if(r)goto S_29181;}
#line 25346 "qb64pe.bas"
do{
#line 25346 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 );
#line 25346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25346 "qb64pe.bas"
if(!qbevent)break;evnt(25346);}while(r);
#line 25347 "qb64pe.bas"
S_29183:;
#line 25347 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||is_error_pending()){
#line 25347 "qb64pe.bas"
if(qbevent){evnt(25347);if(r)goto S_29183;}
#line 25349 "qb64pe.bas"
do{
#line 25349 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25349 "qb64pe.bas"
if(!qbevent)break;evnt(25349);}while(r);
#line 25350 "qb64pe.bas"
S_29185:;
#line 25350 "qb64pe.bas"
fornext_value3128=*_FUNC_LINEFORMAT_LONG_I+ 2 ;
#line 25350 "qb64pe.bas"
fornext_finalvalue3128=*_FUNC_LINEFORMAT_LONG_N;
#line 25350 "qb64pe.bas"
fornext_step3128= 1 ;
#line 25350 "qb64pe.bas"
if (fornext_step3128<0) fornext_step_negative3128=1; else fornext_step_negative3128=0;
#line 25350 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3128;
#line 25350 "qb64pe.bas"
goto fornext_entrylabel3128;
#line 25350 "qb64pe.bas"
while(1){
#line 25350 "qb64pe.bas"
fornext_value3128=fornext_step3128+(*_FUNC_LINEFORMAT_LONG_I2);
#line 25350 "qb64pe.bas"
fornext_entrylabel3128:
#line 25350 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I2=fornext_value3128;
#line 25350 "qb64pe.bas"
if (fornext_step_negative3128){
#line 25350 "qb64pe.bas"
if (fornext_value3128<fornext_finalvalue3128) break;
#line 25350 "qb64pe.bas"
}else{
#line 25350 "qb64pe.bas"
if (fornext_value3128>fornext_finalvalue3128) break;
#line 25350 "qb64pe.bas"
}
#line 25350 "qb64pe.bas"
fornext_error3128:;
#line 25350 "qb64pe.bas"
if(qbevent){evnt(25350);if(r)goto S_29185;}
#line 25351 "qb64pe.bas"
do{
#line 25351 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2);
#line 25351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25351 "qb64pe.bas"
if(!qbevent)break;evnt(25351);}while(r);
#line 25353 "qb64pe.bas"
S_29187:;
#line 25353 "qb64pe.bas"
if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
#line 25353 "qb64pe.bas"
if(qbevent){evnt(25353);if(r)goto S_29187;}
#line 25353 "qb64pe.bas"
do{
#line 25353 "qb64pe.bas"
goto fornext_exit_3127;
#line 25353 "qb64pe.bas"
if(!qbevent)break;evnt(25353);}while(r);
#line 25353 "qb64pe.bas"
}
#line 25354 "qb64pe.bas"
S_29190:;
#line 25354 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||is_error_pending()){
#line 25354 "qb64pe.bas"
if(qbevent){evnt(25354);if(r)goto S_29190;}
#line 25354 "qb64pe.bas"
do{
#line 25354 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2;
#line 25354 "qb64pe.bas"
if(!qbevent)break;evnt(25354);}while(r);
#line 25354 "qb64pe.bas"
}
#line 25355 "qb64pe.bas"
fornext_continue_3127:;
#line 25355 "qb64pe.bas"
}
#line 25355 "qb64pe.bas"
fornext_exit_3127:;
#line 25356 "qb64pe.bas"
do{
#line 25356 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ,0|1)));
#line 25356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25356 "qb64pe.bas"
if(!qbevent)break;evnt(25356);}while(r);
#line 25357 "qb64pe.bas"
do{
#line 25357 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_N2+ 1 +(*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 );
#line 25357 "qb64pe.bas"
if(!qbevent)break;evnt(25357);}while(r);
#line 25358 "qb64pe.bas"
do{
#line 25358 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ;
#line 25358 "qb64pe.bas"
if(!qbevent)break;evnt(25358);}while(r);
#line 25359 "qb64pe.bas"
do{
#line 25359 "qb64pe.bas"
goto LABEL_EXTCHECK;
#line 25359 "qb64pe.bas"
if(!qbevent)break;evnt(25359);}while(r);
#line 25360 "qb64pe.bas"
}
#line 25361 "qb64pe.bas"
}
#line 25363 "qb64pe.bas"
do{
#line 25363 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25363 "qb64pe.bas"
if(!qbevent)break;evnt(25363);}while(r);
#line 25365 "qb64pe.bas"
LABEL_LFGETVE:;
#line 25365 "qb64pe.bas"
if(qbevent){evnt(25365);r=0;}
#line 25366 "qb64pe.bas"
do{
#line 25366 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+_FUNC_LINEFORMAT_STRING_E2->len;
#line 25366 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25366 "qb64pe.bas"
if(!qbevent)break;evnt(25366);}while(r);
#line 25367 "qb64pe.bas"
do{
#line 25367 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E2));
#line 25367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25367 "qb64pe.bas"
if(!qbevent)break;evnt(25367);}while(r);
#line 25368 "qb64pe.bas"
S_29203:;
#line 25368 "qb64pe.bas"
if ((*_FUNC_LINEFORMAT_LONG_M)||is_error_pending()){
#line 25368 "qb64pe.bas"
if(qbevent){evnt(25368);if(r)goto S_29203;}
#line 25369 "qb64pe.bas"
LABEL_LFGETVD:;
#line 25369 "qb64pe.bas"
if(qbevent){evnt(25369);r=0;}
#line 25370 "qb64pe.bas"
S_29204:;
#line 25370 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25370 "qb64pe.bas"
if(qbevent){evnt(25370);if(r)goto S_29204;}
#line 25371 "qb64pe.bas"
do{
#line 25371 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I);
#line 25371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25371 "qb64pe.bas"
if(!qbevent)break;evnt(25371);}while(r);
#line 25372 "qb64pe.bas"
S_29206:;
#line 25372 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||is_error_pending()){
#line 25372 "qb64pe.bas"
if(qbevent){evnt(25372);if(r)goto S_29206;}
#line 25372 "qb64pe.bas"
do{
#line 25372 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_chr(*_FUNC_LINEFORMAT_LONG_C)));
#line 25372 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25372 "qb64pe.bas"
if(!qbevent)break;evnt(25372);}while(r);
#line 25372 "qb64pe.bas"
do{
#line 25372 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25372 "qb64pe.bas"
if(!qbevent)break;evnt(25372);}while(r);
#line 25372 "qb64pe.bas"
do{
#line 25372 "qb64pe.bas"
goto LABEL_LFGETVD;
#line 25372 "qb64pe.bas"
if(!qbevent)break;evnt(25372);}while(r);
#line 25372 "qb64pe.bas"
}
#line 25373 "qb64pe.bas"
}
#line 25374 "qb64pe.bas"
}
#line 25376 "qb64pe.bas"
do{
#line 25376 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25376 "qb64pe.bas"
if(!qbevent)break;evnt(25376);}while(r);
#line 25378 "qb64pe.bas"
}
#line 25379 "qb64pe.bas"
}
#line 25383 "qb64pe.bas"
S_29216:;
#line 25383 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||is_error_pending()){
#line 25383 "qb64pe.bas"
if(qbevent){evnt(25383);if(r)goto S_29216;}
#line 25383 "qb64pe.bas"
do{
#line 25383 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25383 "qb64pe.bas"
if(!qbevent)break;evnt(25383);}while(r);
#line 25383 "qb64pe.bas"
do{
#line 25383 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25383 "qb64pe.bas"
if(!qbevent)break;evnt(25383);}while(r);
#line 25383 "qb64pe.bas"
}
#line 25387 "qb64pe.bas"
S_29220:;
#line 25387 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5])])||is_error_pending()){
#line 25387 "qb64pe.bas"
if(qbevent){evnt(25387);if(r)goto S_29220;}
#line 25388 "qb64pe.bas"
S_29221:;
#line 25388 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||is_error_pending()){
#line 25388 "qb64pe.bas"
if(qbevent){evnt(25388);if(r)goto S_29221;}
#line 25389 "qb64pe.bas"
do{
#line 25389 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_COUNT= 0 ;
#line 25389 "qb64pe.bas"
if(!qbevent)break;evnt(25389);}while(r);
#line 25390 "qb64pe.bas"
S_29223:;
#line 25390 "qb64pe.bas"
do{
#line 25390 "qb64pe.bas"
if(qbevent){evnt(25390);if(r)goto S_29223;}
#line 25391 "qb64pe.bas"
do{
#line 25391 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25391 "qb64pe.bas"
if(!qbevent)break;evnt(25391);}while(r);
#line 25392 "qb64pe.bas"
S_29225:;
#line 25392 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)>=(_FUNC_LINEFORMAT_STRING_A->len- 2 ))))||is_error_pending()){
#line 25392 "qb64pe.bas"
if(qbevent){evnt(25392);if(r)goto S_29225;}
#line 25392 "qb64pe.bas"
do{
#line 25392 "qb64pe.bas"
goto dl_exit_3130;
#line 25392 "qb64pe.bas"
if(!qbevent)break;evnt(25392);}while(r);
#line 25392 "qb64pe.bas"
}
#line 25393 "qb64pe.bas"
S_29228:;
#line 25393 "qb64pe.bas"
dl_continue_3130:;
#line 25393 "qb64pe.bas"
}while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)!= 32 ))))&&(!is_error_pending()));
#line 25393 "qb64pe.bas"
dl_exit_3130:;
#line 25393 "qb64pe.bas"
if(qbevent){evnt(25393);if(r)goto S_29228;}
#line 25394 "qb64pe.bas"
do{
#line 25394 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT);
#line 25394 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25394 "qb64pe.bas"
if(!qbevent)break;evnt(25394);}while(r);
#line 25395 "qb64pe.bas"
S_29230:;
#line 25395 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||is_error_pending()){
#line 25395 "qb64pe.bas"
if(qbevent){evnt(25395);if(r)goto S_29230;}
#line 25396 "qb64pe.bas"
S_29231:;
#line 25396 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||is_error_pending()){
#line 25396 "qb64pe.bas"
if(qbevent){evnt(25396);if(r)goto S_29231;}
#line 25396 "qb64pe.bas"
do{
#line 25396 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2)));
#line 25396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25396 "qb64pe.bas"
if(!qbevent)break;evnt(25396);}while(r);
#line 25396 "qb64pe.bas"
do{
#line 25396 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25396 "qb64pe.bas"
if(!qbevent)break;evnt(25396);}while(r);
#line 25396 "qb64pe.bas"
do{
#line 25396 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25396 "qb64pe.bas"
if(!qbevent)break;evnt(25396);}while(r);
#line 25396 "qb64pe.bas"
}
#line 25397 "qb64pe.bas"
S_29236:;
#line 25397 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||is_error_pending()){
#line 25397 "qb64pe.bas"
if(qbevent){evnt(25397);if(r)goto S_29236;}
#line 25397 "qb64pe.bas"
do{
#line 25397 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2)));
#line 25397 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25397 "qb64pe.bas"
if(!qbevent)break;evnt(25397);}while(r);
#line 25397 "qb64pe.bas"
do{
#line 25397 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25397 "qb64pe.bas"
if(!qbevent)break;evnt(25397);}while(r);
#line 25397 "qb64pe.bas"
do{
#line 25397 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25397 "qb64pe.bas"
if(!qbevent)break;evnt(25397);}while(r);
#line 25397 "qb64pe.bas"
}
#line 25398 "qb64pe.bas"
S_29241:;
#line 25398 "qb64pe.bas"
}else{
#line 25398 "qb64pe.bas"
if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){
#line 25398 "qb64pe.bas"
if(qbevent){evnt(25398);if(r)goto S_29241;}
#line 25399 "qb64pe.bas"
S_29242:;
#line 25399 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||is_error_pending()){
#line 25399 "qb64pe.bas"
if(qbevent){evnt(25399);if(r)goto S_29242;}
#line 25399 "qb64pe.bas"
do{
#line 25399 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2)));
#line 25399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25399 "qb64pe.bas"
if(!qbevent)break;evnt(25399);}while(r);
#line 25399 "qb64pe.bas"
do{
#line 25399 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25399 "qb64pe.bas"
if(!qbevent)break;evnt(25399);}while(r);
#line 25399 "qb64pe.bas"
do{
#line 25399 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25399 "qb64pe.bas"
if(!qbevent)break;evnt(25399);}while(r);
#line 25399 "qb64pe.bas"
}
#line 25400 "qb64pe.bas"
S_29247:;
#line 25400 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||is_error_pending()){
#line 25400 "qb64pe.bas"
if(qbevent){evnt(25400);if(r)goto S_29247;}
#line 25400 "qb64pe.bas"
do{
#line 25400 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2)));
#line 25400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25400 "qb64pe.bas"
if(!qbevent)break;evnt(25400);}while(r);
#line 25400 "qb64pe.bas"
do{
#line 25400 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25400 "qb64pe.bas"
if(!qbevent)break;evnt(25400);}while(r);
#line 25400 "qb64pe.bas"
do{
#line 25400 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25400 "qb64pe.bas"
if(!qbevent)break;evnt(25400);}while(r);
#line 25400 "qb64pe.bas"
}
#line 25401 "qb64pe.bas"
S_29252:;
#line 25401 "qb64pe.bas"
}else{
#line 25401 "qb64pe.bas"
if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){
#line 25401 "qb64pe.bas"
if(qbevent){evnt(25401);if(r)goto S_29252;}
#line 25402 "qb64pe.bas"
S_29253:;
#line 25402 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||is_error_pending()){
#line 25402 "qb64pe.bas"
if(qbevent){evnt(25402);if(r)goto S_29253;}
#line 25402 "qb64pe.bas"
do{
#line 25402 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2)));
#line 25402 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25402 "qb64pe.bas"
if(!qbevent)break;evnt(25402);}while(r);
#line 25402 "qb64pe.bas"
do{
#line 25402 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25402 "qb64pe.bas"
if(!qbevent)break;evnt(25402);}while(r);
#line 25402 "qb64pe.bas"
do{
#line 25402 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25402 "qb64pe.bas"
if(!qbevent)break;evnt(25402);}while(r);
#line 25402 "qb64pe.bas"
}
#line 25403 "qb64pe.bas"
S_29258:;
#line 25403 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||is_error_pending()){
#line 25403 "qb64pe.bas"
if(qbevent){evnt(25403);if(r)goto S_29258;}
#line 25403 "qb64pe.bas"
do{
#line 25403 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2)));
#line 25403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25403 "qb64pe.bas"
if(!qbevent)break;evnt(25403);}while(r);
#line 25403 "qb64pe.bas"
do{
#line 25403 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ;
#line 25403 "qb64pe.bas"
if(!qbevent)break;evnt(25403);}while(r);
#line 25403 "qb64pe.bas"
do{
#line 25403 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25403 "qb64pe.bas"
if(!qbevent)break;evnt(25403);}while(r);
#line 25403 "qb64pe.bas"
}
#line 25404 "qb64pe.bas"
}
#line 25404 "qb64pe.bas"
}
#line 25404 "qb64pe.bas"
}
#line 25405 "qb64pe.bas"
}
#line 25407 "qb64pe.bas"
S_29265:;
#line 25407 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||is_error_pending()){
#line 25407 "qb64pe.bas"
if(qbevent){evnt(25407);if(r)goto S_29265;}
#line 25407 "qb64pe.bas"
do{
#line 25407 "qb64pe.bas"
goto LABEL_BADUSAGE;
#line 25407 "qb64pe.bas"
if(!qbevent)break;evnt(25407);}while(r);
#line 25407 "qb64pe.bas"
}
#line 25410 "qb64pe.bas"
do{
#line 25410 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr(*_FUNC_LINEFORMAT_LONG_C)));
#line 25410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25410 "qb64pe.bas"
if(!qbevent)break;evnt(25410);}while(r);
#line 25411 "qb64pe.bas"
do{
#line 25411 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25411 "qb64pe.bas"
if(!qbevent)break;evnt(25411);}while(r);
#line 25412 "qb64pe.bas"
do{
#line 25412 "qb64pe.bas"
goto LABEL_LINEFORMATNEXT;
#line 25412 "qb64pe.bas"
if(!qbevent)break;evnt(25412);}while(r);
#line 25413 "qb64pe.bas"
}
#line 25414 "qb64pe.bas"
LABEL_BADUSAGE:;
#line 25414 "qb64pe.bas"
if(qbevent){evnt(25414);r=0;}
#line 25416 "qb64pe.bas"
S_29272:;
#line 25416 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||is_error_pending()){
#line 25416 "qb64pe.bas"
if(qbevent){evnt(25416);if(r)goto S_29272;}
#line 25416 "qb64pe.bas"
do{
#line 25416 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28));
#line 25416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25416 "qb64pe.bas"
if(!qbevent)break;evnt(25416);}while(r);
#line 25416 "qb64pe.bas"
do{
#line 25416 "qb64pe.bas"
goto exit_subfunc;
#line 25416 "qb64pe.bas"
if(!qbevent)break;evnt(25416);}while(r);
#line 25416 "qb64pe.bas"
}
#line 25419 "qb64pe.bas"
do{
#line 25419 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1));
#line 25419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25419 "qb64pe.bas"
if(!qbevent)break;evnt(25419);}while(r);
#line 25420 "qb64pe.bas"
do{
#line 25420 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ;
#line 25420 "qb64pe.bas"
if(!qbevent)break;evnt(25420);}while(r);
#line 25421 "qb64pe.bas"
LABEL_COMMENT:;
#line 25421 "qb64pe.bas"
if(qbevent){evnt(25421);r=0;}
#line 25422 "qb64pe.bas"
S_29278:;
#line 25422 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||is_error_pending()){
#line 25422 "qb64pe.bas"
if(qbevent){evnt(25422);if(r)goto S_29278;}
#line 25422 "qb64pe.bas"
do{
#line 25422 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25422 "qb64pe.bas"
if(!qbevent)break;evnt(25422);}while(r);
#line 25422 "qb64pe.bas"
}
#line 25423 "qb64pe.bas"
do{
#line 25423 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_right(_FUNC_LINEFORMAT_STRING_A,_FUNC_LINEFORMAT_STRING_A->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ));
#line 25423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25423 "qb64pe.bas"
if(!qbevent)break;evnt(25423);}while(r);
#line 25424 "qb64pe.bas"
do{
#line 25424 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_CC,qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ));
#line 25424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25424 "qb64pe.bas"
if(!qbevent)break;evnt(25424);}while(r);
#line 25425 "qb64pe.bas"
S_29283:;
#line 25425 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||is_error_pending()){
#line 25425 "qb64pe.bas"
if(qbevent){evnt(25425);if(r)goto S_29283;}
#line 25425 "qb64pe.bas"
do{
#line 25425 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25425 "qb64pe.bas"
if(!qbevent)break;evnt(25425);}while(r);
#line 25425 "qb64pe.bas"
}
#line 25426 "qb64pe.bas"
do{
#line 25426 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCOMMENT,qbs_rtrim(qbs_add(__STRING_LAYOUTCOMMENT,_FUNC_LINEFORMAT_STRING_CC)));
#line 25426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25426 "qb64pe.bas"
if(!qbevent)break;evnt(25426);}while(r);
#line 25428 "qb64pe.bas"
do{
#line 25428 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs__trim(_FUNC_LINEFORMAT_STRING_C));
#line 25428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25428 "qb64pe.bas"
if(!qbevent)break;evnt(25428);}while(r);
#line 25429 "qb64pe.bas"
S_29288:;
#line 25429 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||is_error_pending()){
#line 25429 "qb64pe.bas"
if(qbevent){evnt(25429);if(r)goto S_29288;}
#line 25429 "qb64pe.bas"
do{
#line 25429 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25429 "qb64pe.bas"
if(!qbevent)break;evnt(25429);}while(r);
#line 25429 "qb64pe.bas"
}
#line 25430 "qb64pe.bas"
do{
#line 25430 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C);
#line 25430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25430 "qb64pe.bas"
if(!qbevent)break;evnt(25430);}while(r);
#line 25430 "qb64pe.bas"
do{
#line 25430 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_CDIF=__STRING_LAYOUTCOMMENT->len-_FUNC_LINEFORMAT_STRING_C->len;
#line 25430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25430 "qb64pe.bas"
if(!qbevent)break;evnt(25430);}while(r);
#line 25435 "qb64pe.bas"
S_29293:;
#line 25435 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||is_error_pending()){
#line 25435 "qb64pe.bas"
if(qbevent){evnt(25435);if(r)goto S_29293;}
#line 25435 "qb64pe.bas"
do{
#line 25435 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25435 "qb64pe.bas"
if(!qbevent)break;evnt(25435);}while(r);
#line 25435 "qb64pe.bas"
}
#line 25436 "qb64pe.bas"
do{
#line 25436 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_NOCASEC,qbs_ltrim(qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )));
#line 25436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25436 "qb64pe.bas"
if(!qbevent)break;evnt(25436);}while(r);
#line 25437 "qb64pe.bas"
do{
#line 25437 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ;
#line 25437 "qb64pe.bas"
if(!qbevent)break;evnt(25437);}while(r);
#line 25438 "qb64pe.bas"
do{
#line 25438 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_X= 1 ;
#line 25438 "qb64pe.bas"
if(!qbevent)break;evnt(25438);}while(r);
#line 25439 "qb64pe.bas"
S_29299:;
#line 25439 "qb64pe.bas"
do{
#line 25439 "qb64pe.bas"
if(qbevent){evnt(25439);if(r)goto S_29299;}
#line 25446 "qb64pe.bas"
S_29300:;
#line 25446 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 11 ,0|1),qbs_new_txt_len("$FORMAT:OFF",11))))||is_error_pending()){
#line 25446 "qb64pe.bas"
if(qbevent){evnt(25446);if(r)goto S_29300;}
#line 25447 "qb64pe.bas"
do{
#line 25447 "qb64pe.bas"
sub_mid(__STRING_LAYOUTCOMMENT,*_FUNC_LINEFORMAT_LONG_X+*_FUNC_LINEFORMAT_LONG_CDIF, 11 ,FUNC_SCASE(qbs_new_txt_len("$Format:Off",11)),1);
#line 25447 "qb64pe.bas"
if(!qbevent)break;evnt(25447);}while(r);
#line 25448 "qb64pe.bas"
do{
#line 25448 "qb64pe.bas"
*__LONG_IDEAUTOINDENT= 0 ;
#line 25448 "qb64pe.bas"
if(!qbevent)break;evnt(25448);}while(r);
#line 25448 "qb64pe.bas"
do{
#line 25448 "qb64pe.bas"
*__LONG_IDEAUTOLAYOUT= 0 ;
#line 25448 "qb64pe.bas"
if(!qbevent)break;evnt(25448);}while(r);
#line 25449 "qb64pe.bas"
S_29304:;
#line 25449 "qb64pe.bas"
}else{
#line 25449 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 10 ,0|1),qbs_new_txt_len("$FORMAT:ON",10)))){
#line 25449 "qb64pe.bas"
if(qbevent){evnt(25449);if(r)goto S_29304;}
#line 25450 "qb64pe.bas"
do{
#line 25450 "qb64pe.bas"
sub_mid(__STRING_LAYOUTCOMMENT,*_FUNC_LINEFORMAT_LONG_X+*_FUNC_LINEFORMAT_LONG_CDIF, 10 ,FUNC_SCASE(qbs_new_txt_len("$Format:On",10)),1);
#line 25450 "qb64pe.bas"
if(!qbevent)break;evnt(25450);}while(r);
#line 25451 "qb64pe.bas"
do{
#line 25451 "qb64pe.bas"
*__LONG_IDEAUTOINDENT=*__LONG_DEFAUTOINDENT;
#line 25451 "qb64pe.bas"
if(!qbevent)break;evnt(25451);}while(r);
#line 25451 "qb64pe.bas"
do{
#line 25451 "qb64pe.bas"
*__LONG_IDEAUTOLAYOUT=*__LONG_DEFAUTOLAYOUT;
#line 25451 "qb64pe.bas"
if(!qbevent)break;evnt(25451);}while(r);
#line 25453 "qb64pe.bas"
S_29308:;
#line 25453 "qb64pe.bas"
}else{
#line 25453 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,0|1),qbs_new_txt_len("$STATIC",7)))){
#line 25453 "qb64pe.bas"
if(qbevent){evnt(25453);if(r)goto S_29308;}
#line 25454 "qb64pe.bas"
do{
#line 25454 "qb64pe.bas"
sub_mid(__STRING_LAYOUTCOMMENT,*_FUNC_LINEFORMAT_LONG_X+*_FUNC_LINEFORMAT_LONG_CDIF, 7 ,FUNC_SCASE(qbs_new_txt_len("$Static",7)),1);
#line 25454 "qb64pe.bas"
if(!qbevent)break;evnt(25454);}while(r);
#line 25455 "qb64pe.bas"
do{
#line 25455 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ;
#line 25455 "qb64pe.bas"
if(!qbevent)break;evnt(25455);}while(r);
#line 25456 "qb64pe.bas"
S_29311:;
#line 25456 "qb64pe.bas"
}else{
#line 25456 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$DYNAMIC",8)))){
#line 25456 "qb64pe.bas"
if(qbevent){evnt(25456);if(r)goto S_29311;}
#line 25457 "qb64pe.bas"
do{
#line 25457 "qb64pe.bas"
sub_mid(__STRING_LAYOUTCOMMENT,*_FUNC_LINEFORMAT_LONG_X+*_FUNC_LINEFORMAT_LONG_CDIF, 8 ,FUNC_SCASE(qbs_new_txt_len("$Dynamic",8)),1);
#line 25457 "qb64pe.bas"
if(!qbevent)break;evnt(25457);}while(r);
#line 25458 "qb64pe.bas"
do{
#line 25458 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ;
#line 25458 "qb64pe.bas"
if(!qbevent)break;evnt(25458);}while(r);
#line 25459 "qb64pe.bas"
S_29314:;
#line 25459 "qb64pe.bas"
}else{
#line 25459 "qb64pe.bas"
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$INCLUDE",8)))&(qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X+ 8 , 4 ,0|1),qbs_new_txt_len("ONCE",4))))){
#line 25459 "qb64pe.bas"
if(qbevent){evnt(25459);if(r)goto S_29314;}
#line 25460 "qb64pe.bas"
do{
#line 25460 "qb64pe.bas"
sub_mid(__STRING_LAYOUTCOMMENT,*_FUNC_LINEFORMAT_LONG_X+*_FUNC_LINEFORMAT_LONG_CDIF, 8 ,FUNC_SCASE(qbs_new_txt_len("$Include",8)),1);
#line 25460 "qb64pe.bas"
if(!qbevent)break;evnt(25460);}while(r);
#line 25463 "qb64pe.bas"
S_29316:;
#line 25463 "qb64pe.bas"
fornext_value3142=*_FUNC_LINEFORMAT_LONG_X+ 8 ;
#line 25463 "qb64pe.bas"
fornext_finalvalue3142=_FUNC_LINEFORMAT_STRING_C->len;
#line 25463 "qb64pe.bas"
fornext_step3142= 1 ;
#line 25463 "qb64pe.bas"
if (fornext_step3142<0) fornext_step_negative3142=1; else fornext_step_negative3142=0;
#line 25463 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3142;
#line 25463 "qb64pe.bas"
goto fornext_entrylabel3142;
#line 25463 "qb64pe.bas"
while(1){
#line 25463 "qb64pe.bas"
fornext_value3142=fornext_step3142+(*_FUNC_LINEFORMAT_LONG_XX);
#line 25463 "qb64pe.bas"
fornext_entrylabel3142:
#line 25463 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_XX=fornext_value3142;
#line 25463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25463 "qb64pe.bas"
if (fornext_step_negative3142){
#line 25463 "qb64pe.bas"
if (fornext_value3142<fornext_finalvalue3142) break;
#line 25463 "qb64pe.bas"
}else{
#line 25463 "qb64pe.bas"
if (fornext_value3142>fornext_finalvalue3142) break;
#line 25463 "qb64pe.bas"
}
#line 25463 "qb64pe.bas"
fornext_error3142:;
#line 25463 "qb64pe.bas"
if(qbevent){evnt(25463);if(r)goto S_29316;}
#line 25464 "qb64pe.bas"
do{
#line 25464 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1));
#line 25464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25464 "qb64pe.bas"
if(!qbevent)break;evnt(25464);}while(r);
#line 25465 "qb64pe.bas"
S_29318:;
#line 25465 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||is_error_pending()){
#line 25465 "qb64pe.bas"
if(qbevent){evnt(25465);if(r)goto S_29318;}
#line 25465 "qb64pe.bas"
do{
#line 25465 "qb64pe.bas"
goto fornext_exit_3141;
#line 25465 "qb64pe.bas"
if(!qbevent)break;evnt(25465);}while(r);
#line 25465 "qb64pe.bas"
}
#line 25466 "qb64pe.bas"
S_29321:;
#line 25466 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||is_error_pending()){
#line 25466 "qb64pe.bas"
if(qbevent){evnt(25466);if(r)goto S_29321;}
#line 25466 "qb64pe.bas"
do{
#line 25466 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28));
#line 25466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25466 "qb64pe.bas"
if(!qbevent)break;evnt(25466);}while(r);
#line 25466 "qb64pe.bas"
do{
#line 25466 "qb64pe.bas"
goto exit_subfunc;
#line 25466 "qb64pe.bas"
if(!qbevent)break;evnt(25466);}while(r);
#line 25466 "qb64pe.bas"
}
#line 25467 "qb64pe.bas"
fornext_continue_3141:;
#line 25467 "qb64pe.bas"
}
#line 25467 "qb64pe.bas"
fornext_exit_3141:;
#line 25468 "qb64pe.bas"
do{
#line 25468 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX;
#line 25468 "qb64pe.bas"
if(!qbevent)break;evnt(25468);}while(r);
#line 25470 "qb64pe.bas"
S_29327:;
#line 25470 "qb64pe.bas"
fornext_value3145=*_FUNC_LINEFORMAT_LONG_X+ 1 ;
#line 25470 "qb64pe.bas"
fornext_finalvalue3145=_FUNC_LINEFORMAT_STRING_C->len;
#line 25470 "qb64pe.bas"
fornext_step3145= 1 ;
#line 25470 "qb64pe.bas"
if (fornext_step3145<0) fornext_step_negative3145=1; else fornext_step_negative3145=0;
#line 25470 "qb64pe.bas"
if (is_error_pending()) goto fornext_error3145;
#line 25470 "qb64pe.bas"
goto fornext_entrylabel3145;
#line 25470 "qb64pe.bas"
while(1){
#line 25470 "qb64pe.bas"
fornext_value3145=fornext_step3145+(*_FUNC_LINEFORMAT_LONG_XX);
#line 25470 "qb64pe.bas"
fornext_entrylabel3145:
#line 25470 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_XX=fornext_value3145;
#line 25470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25470 "qb64pe.bas"
if (fornext_step_negative3145){
#line 25470 "qb64pe.bas"
if (fornext_value3145<fornext_finalvalue3145) break;
#line 25470 "qb64pe.bas"
}else{
#line 25470 "qb64pe.bas"
if (fornext_value3145>fornext_finalvalue3145) break;
#line 25470 "qb64pe.bas"
}
#line 25470 "qb64pe.bas"
fornext_error3145:;
#line 25470 "qb64pe.bas"
if(qbevent){evnt(25470);if(r)goto S_29327;}
#line 25471 "qb64pe.bas"
do{
#line 25471 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1));
#line 25471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25471 "qb64pe.bas"
if(!qbevent)break;evnt(25471);}while(r);
#line 25472 "qb64pe.bas"
S_29329:;
#line 25472 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||is_error_pending()){
#line 25472 "qb64pe.bas"
if(qbevent){evnt(25472);if(r)goto S_29329;}
#line 25472 "qb64pe.bas"
do{
#line 25472 "qb64pe.bas"
goto fornext_exit_3144;
#line 25472 "qb64pe.bas"
if(!qbevent)break;evnt(25472);}while(r);
#line 25472 "qb64pe.bas"
}
#line 25473 "qb64pe.bas"
S_29332:;
#line 25473 "qb64pe.bas"
if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||is_error_pending()){
#line 25473 "qb64pe.bas"
if(qbevent){evnt(25473);if(r)goto S_29332;}
#line 25473 "qb64pe.bas"
do{
#line 25473 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28));
#line 25473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25473 "qb64pe.bas"
if(!qbevent)break;evnt(25473);}while(r);
#line 25473 "qb64pe.bas"
do{
#line 25473 "qb64pe.bas"
goto exit_subfunc;
#line 25473 "qb64pe.bas"
if(!qbevent)break;evnt(25473);}while(r);
#line 25473 "qb64pe.bas"
}
#line 25474 "qb64pe.bas"
fornext_continue_3144:;
#line 25474 "qb64pe.bas"
}
#line 25474 "qb64pe.bas"
fornext_exit_3144:;
#line 25475 "qb64pe.bas"
do{
#line 25475 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX;
#line 25475 "qb64pe.bas"
if(!qbevent)break;evnt(25475);}while(r);
#line 25476 "qb64pe.bas"
do{
#line 25476 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),0|1);
#line 25476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25476 "qb64pe.bas"
if(!qbevent)break;evnt(25476);}while(r);
#line 25477 "qb64pe.bas"
S_29339:;
#line 25477 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||is_error_pending()){
#line 25477 "qb64pe.bas"
if(qbevent){evnt(25477);if(r)goto S_29339;}
#line 25477 "qb64pe.bas"
do{
#line 25477 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28));
#line 25477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25477 "qb64pe.bas"
if(!qbevent)break;evnt(25477);}while(r);
#line 25477 "qb64pe.bas"
do{
#line 25477 "qb64pe.bas"
goto exit_subfunc;
#line 25477 "qb64pe.bas"
if(!qbevent)break;evnt(25477);}while(r);
#line 25477 "qb64pe.bas"
}
#line 25478 "qb64pe.bas"
do{
#line 25478 "qb64pe.bas"
qbs_set(__STRING_ADDMETAINCLUDE,func_mid(_FUNC_LINEFORMAT_STRING_NOCASEC,*_FUNC_LINEFORMAT_LONG_X+ 1 ,*_FUNC_LINEFORMAT_LONG_XX-*_FUNC_LINEFORMAT_LONG_X- 1 ,0|1));
#line 25478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25478 "qb64pe.bas"
if(!qbevent)break;evnt(25478);}while(r);
#line 25479 "qb64pe.bas"
S_29344:;
#line 25479 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 25479 "qb64pe.bas"
if(qbevent){evnt(25479);if(r)goto S_29344;}
#line 25479 "qb64pe.bas"
do{
#line 25479 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28));
#line 25479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25479 "qb64pe.bas"
if(!qbevent)break;evnt(25479);}while(r);
#line 25479 "qb64pe.bas"
do{
#line 25479 "qb64pe.bas"
goto exit_subfunc;
#line 25479 "qb64pe.bas"
if(!qbevent)break;evnt(25479);}while(r);
#line 25479 "qb64pe.bas"
}
#line 25480 "qb64pe.bas"
}
#line 25480 "qb64pe.bas"
}
#line 25480 "qb64pe.bas"
}
#line 25480 "qb64pe.bas"
}
#line 25480 "qb64pe.bas"
}
#line 25482 "qb64pe.bas"
do{
#line 25482 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_X=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),0|1);
#line 25482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25482 "qb64pe.bas"
if(!qbevent)break;evnt(25482);}while(r);
#line 25483 "qb64pe.bas"
S_29350:;
#line 25483 "qb64pe.bas"
dl_continue_3140:;
#line 25483 "qb64pe.bas"
}while((-(*_FUNC_LINEFORMAT_LONG_X!= 0 ))&&(!is_error_pending()));
#line 25483 "qb64pe.bas"
dl_exit_3140:;
#line 25483 "qb64pe.bas"
if(qbevent){evnt(25483);if(r)goto S_29350;}
#line 25485 "qb64pe.bas"
S_29351:;
#line 25485 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||is_error_pending()){
#line 25485 "qb64pe.bas"
if(qbevent){evnt(25485);if(r)goto S_29351;}
#line 25485 "qb64pe.bas"
do{
#line 25485 "qb64pe.bas"
*__INTEGER_ADDMETASTATIC= 1 ;
#line 25485 "qb64pe.bas"
if(!qbevent)break;evnt(25485);}while(r);
#line 25485 "qb64pe.bas"
}
#line 25486 "qb64pe.bas"
S_29354:;
#line 25486 "qb64pe.bas"
if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||is_error_pending()){
#line 25486 "qb64pe.bas"
if(qbevent){evnt(25486);if(r)goto S_29354;}
#line 25486 "qb64pe.bas"
do{
#line 25486 "qb64pe.bas"
*__INTEGER_ADDMETADYNAMIC= 1 ;
#line 25486 "qb64pe.bas"
if(!qbevent)break;evnt(25486);}while(r);
#line 25486 "qb64pe.bas"
}
#line 25488 "qb64pe.bas"
do{
#line 25488 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25488 "qb64pe.bas"
if(!qbevent)break;evnt(25488);}while(r);
#line 25492 "qb64pe.bas"
LABEL_LINEFORMATDONE:;
#line 25492 "qb64pe.bas"
if(qbevent){evnt(25492);r=0;}
#line 25496 "qb64pe.bas"
S_29358:;
#line 25496 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||is_error_pending()){
#line 25496 "qb64pe.bas"
if(qbevent){evnt(25496);if(r)goto S_29358;}
#line 25497 "qb64pe.bas"
S_29359:;
#line 25497 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
#line 25497 "qb64pe.bas"
if(qbevent){evnt(25497);if(r)goto S_29359;}
#line 25499 "qb64pe.bas"
do{
#line 25499 "qb64pe.bas"
*__LONG_LINECONTINUATION= 1 ;
#line 25499 "qb64pe.bas"
if(!qbevent)break;evnt(25499);}while(r);
#line 25500 "qb64pe.bas"
do{
#line 25500 "qb64pe.bas"
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
#line 25500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25500 "qb64pe.bas"
if(!qbevent)break;evnt(25500);}while(r);
#line 25503 "qb64pe.bas"
S_29362:;
#line 25503 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||is_error_pending()){
#line 25503 "qb64pe.bas"
if(qbevent){evnt(25503);if(r)goto S_29362;}
#line 25504 "qb64pe.bas"
S_29363:;
#line 25504 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("_",1))))))||is_error_pending()){
#line 25504 "qb64pe.bas"
if(qbevent){evnt(25504);if(r)goto S_29363;}
#line 25504 "qb64pe.bas"
do{
#line 25504 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 ));
#line 25504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25504 "qb64pe.bas"
if(!qbevent)break;evnt(25504);}while(r);
#line 25504 "qb64pe.bas"
}
#line 25505 "qb64pe.bas"
}
#line 25506 "qb64pe.bas"
do{
#line 25506 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 ));
#line 25506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25506 "qb64pe.bas"
if(!qbevent)break;evnt(25506);}while(r);
#line 25508 "qb64pe.bas"
S_29368:;
#line 25508 "qb64pe.bas"
if ((*__LONG_INCLEVEL)||is_error_pending()){
#line 25508 "qb64pe.bas"
if(qbevent){evnt(25508);if(r)goto S_29368;}
#line 25509 "qb64pe.bas"
do{
#line 25509 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_FH= 199 +*__LONG_INCLEVEL;
#line 25509 "qb64pe.bas"
if(!qbevent)break;evnt(25509);}while(r);
#line 25510 "qb64pe.bas"
S_29370:;
#line 25510 "qb64pe.bas"
if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||is_error_pending()){
#line 25510 "qb64pe.bas"
if(qbevent){evnt(25510);if(r)goto S_29370;}
#line 25510 "qb64pe.bas"
do{
#line 25510 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25510 "qb64pe.bas"
if(!qbevent)break;evnt(25510);}while(r);
#line 25510 "qb64pe.bas"
}
#line 25511 "qb64pe.bas"
do{
#line 25511 "qb64pe.bas"
tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH;
#line 25511 "qb64pe.bas"
if (is_error_pending()) goto skip3151;
#line 25511 "qb64pe.bas"
sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A);
#line 25511 "qb64pe.bas"
if (is_error_pending()) goto skip3151;
#line 25511 "qb64pe.bas"
skip3151:
#line 25511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25511 "qb64pe.bas"
if(!qbevent)break;evnt(25511);}while(r);
#line 25512 "qb64pe.bas"
do{
#line 25512 "qb64pe.bas"
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
#line 25512 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ;
#line 25512 "qb64pe.bas"
if(!qbevent)break;evnt(25512);}while(r);
#line 25513 "qb64pe.bas"
do{
#line 25513 "qb64pe.bas"
goto LABEL_INCLUDECONT;
#line 25513 "qb64pe.bas"
if(!qbevent)break;evnt(25513);}while(r);
#line 25514 "qb64pe.bas"
}
#line 25516 "qb64pe.bas"
S_29377:;
#line 25516 "qb64pe.bas"
if ((*__LONG_IDEMODE)||is_error_pending()){
#line 25516 "qb64pe.bas"
if(qbevent){evnt(25516);if(r)goto S_29377;}
#line 25517 "qb64pe.bas"
do{
#line 25517 "qb64pe.bas"
qbs_set(__STRING_IDECOMMAND,func_chr( 100 ));
#line 25517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25517 "qb64pe.bas"
if(!qbevent)break;evnt(25517);}while(r);
#line 25518 "qb64pe.bas"
do{
#line 25518 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass3152= 0 ));
#line 25518 "qb64pe.bas"
if(!qbevent)break;evnt(25518);}while(r);
#line 25519 "qb64pe.bas"
do{
#line 25519 "qb64pe.bas"
*__LONG_IDEERROR= 0 ;
#line 25519 "qb64pe.bas"
if(!qbevent)break;evnt(25519);}while(r);
#line 25520 "qb64pe.bas"
do{
#line 25520 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN);
#line 25520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25520 "qb64pe.bas"
if(!qbevent)break;evnt(25520);}while(r);
#line 25521 "qb64pe.bas"
S_29382:;
#line 25521 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
#line 25521 "qb64pe.bas"
if(qbevent){evnt(25521);if(r)goto S_29382;}
#line 25521 "qb64pe.bas"
do{
#line 25521 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25521 "qb64pe.bas"
if(!qbevent)break;evnt(25521);}while(r);
#line 25521 "qb64pe.bas"
}
#line 25522 "qb64pe.bas"
}else{
#line 25523 "qb64pe.bas"
do{
#line 25523 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3());
#line 25523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25523 "qb64pe.bas"
if(!qbevent)break;evnt(25523);}while(r);
#line 25524 "qb64pe.bas"
S_29387:;
#line 25524 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||is_error_pending()){
#line 25524 "qb64pe.bas"
if(qbevent){evnt(25524);if(r)goto S_29387;}
#line 25524 "qb64pe.bas"
do{
#line 25524 "qb64pe.bas"
goto LABEL_LINEFORMATDONE2;
#line 25524 "qb64pe.bas"
if(!qbevent)break;evnt(25524);}while(r);
#line 25524 "qb64pe.bas"
}
#line 25525 "qb64pe.bas"
do{
#line 25525 "qb64pe.bas"
qbs_set(__STRING_LAYOUTCONTINUATIONS,qbs_add(qbs_add(__STRING_LAYOUTCONTINUATIONS,__STRING_NATIVE_LINEENDING),_FUNC_LINEFORMAT_STRING_A));
#line 25525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25525 "qb64pe.bas"
if(!qbevent)break;evnt(25525);}while(r);
#line 25526 "qb64pe.bas"
}
#line 25528 "qb64pe.bas"
do{
#line 25528 "qb64pe.bas"
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
#line 25528 "qb64pe.bas"
if(!qbevent)break;evnt(25528);}while(r);
#line 25530 "qb64pe.bas"
LABEL_INCLUDECONT:;
#line 25530 "qb64pe.bas"
if(qbevent){evnt(25530);r=0;}
#line 25532 "qb64pe.bas"
do{
#line 25532 "qb64pe.bas"
*_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ;
#line 25532 "qb64pe.bas"
if(!qbevent)break;evnt(25532);}while(r);
#line 25533 "qb64pe.bas"
do{
#line 25533 "qb64pe.bas"
goto LABEL_CONTINUELINE;
#line 25533 "qb64pe.bas"
if(!qbevent)break;evnt(25533);}while(r);
#line 25534 "qb64pe.bas"
}
#line 25535 "qb64pe.bas"
}
#line 25537 "qb64pe.bas"
LABEL_LINEFORMATDONE2:;
#line 25537 "qb64pe.bas"
if(qbevent){evnt(25537);r=0;}
#line 25538 "qb64pe.bas"
S_29397:;
#line 25538 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||is_error_pending()){
#line 25538 "qb64pe.bas"
if(qbevent){evnt(25538);if(r)goto S_29397;}
#line 25538 "qb64pe.bas"
do{
#line 25538 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_right(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 ));
#line 25538 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25538 "qb64pe.bas"
if(!qbevent)break;evnt(25538);}while(r);
#line 25538 "qb64pe.bas"
}
#line 25541 "qb64pe.bas"
S_29400:;
#line 25541 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len(":",1))))||is_error_pending()){
#line 25541 "qb64pe.bas"
if(qbevent){evnt(25541);if(r)goto S_29400;}
#line 25541 "qb64pe.bas"
do{
#line 25541 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1)));
#line 25541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25541 "qb64pe.bas"
if(!qbevent)break;evnt(25541);}while(r);
#line 25541 "qb64pe.bas"
}
#line 25543 "qb64pe.bas"
S_29403:;
#line 25543 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 25543 "qb64pe.bas"
if(qbevent){evnt(25543);if(r)goto S_29403;}
#line 25543 "qb64pe.bas"
do{
#line 25543 "qb64pe.bas"
tab_spc_cr_size=2;
#line 25543 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 25543 "qb64pe.bas"
if (is_error_pending()) goto skip3154;
#line 25543 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("lineformat():return:",20),_FUNC_LINEFORMAT_STRING_A2), 0, 0, 1);
#line 25543 "qb64pe.bas"
if (is_error_pending()) goto skip3154;
#line 25543 "qb64pe.bas"
skip3154:
#line 25543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25543 "qb64pe.bas"
tab_spc_cr_size=1;
#line 25543 "qb64pe.bas"
if(!qbevent)break;evnt(25543);}while(r);
#line 25543 "qb64pe.bas"
}
#line 25544 "qb64pe.bas"
S_29406:;
#line 25544 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 25544 "qb64pe.bas"
if(qbevent){evnt(25544);if(r)goto S_29406;}
#line 25544 "qb64pe.bas"
do{
#line 25544 "qb64pe.bas"
goto exit_subfunc;
#line 25544 "qb64pe.bas"
if(!qbevent)break;evnt(25544);}while(r);
#line 25544 "qb64pe.bas"
}
#line 25545 "qb64pe.bas"
do{
#line 25545 "qb64pe.bas"
qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2);
#line 25545 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25545 "qb64pe.bas"
if(!qbevent)break;evnt(25545);}while(r);
#line 25547 "qb64pe.bas"
exit_subfunc:;
#line 25547 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 25547 "qb64pe.bas"
#include "free76.txt"
#line 25547 "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 25547 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 25547 "qb64pe.bas"
qbs_maketmp(_FUNC_LINEFORMAT_STRING_LINEFORMAT);return _FUNC_LINEFORMAT_STRING_LINEFORMAT;
#line 25547 "qb64pe.bas"
}
