void SUB_EXPORTCODEAS(qbs*_SUB_EXPORTCODEAS_STRING_DOCFORMAT){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data399.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,15,"ide_export.bas");}while(r);
S_64883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,15,"ide_export.bas");if(r)goto S_64883;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_add(qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,15,"ide_export.bas");}while(r);
}
S_64886:;
qbs_set(sc_7435,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,16,"ide_export.bas");if(r)goto S_64886;}
S_64887:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7435,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,17,"ide_export.bas");if(r)goto S_64887;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".htm",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,17,"ide_export.bas");}while(r);
sc_ec_481_end:;
goto sc_7435_end;
}
S_64889:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7435,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,18,"ide_export.bas");if(r)goto S_64889;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".rtf",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,18,"ide_export.bas");}while(r);
sc_ec_482_end:;
goto sc_7435_end;
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,19,"ide_export.bas");}while(r);
sc_7435_end:;
S_64894:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,21,"ide_export.bas");if(r)goto S_64894;}
S_64895:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT))))||is_error_pending()){
if(qbevent){evnt(25769,22,"ide_export.bas");if(r)goto S_64895;}
S_64896:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_IDEYESNOBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_new_txt_len("Overwrite file ",15),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT)),qbs_new_txt_len("N",1))))||is_error_pending()){
if(qbevent){evnt(25769,23,"ide_export.bas");if(r)goto S_64896;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,23,"ide_export.bas");}while(r);
}
}
}
do{
return_point[next_return_point++]=197;
if (next_return_point>=return_points) more_return_points();
goto LABEL_GETTHEMECOLORS;
RETURN_197:;
if(!qbevent)break;evnt(25769,26,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,func_chr( 10 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,27,"ide_export.bas");}while(r);
S_64903:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,28,"ide_export.bas");if(r)goto S_64903;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,qbs_add(func_chr( 13 ),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,28,"ide_export.bas");}while(r);
}
do{
sub_pcopy( 3 , 2 );
if(!qbevent)break;evnt(25769,30,"ide_export.bas");}while(r);
do{
qbg_screen(NULL,NULL, 3 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,30,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_GETSELECTEDTEXT(&(pass7436= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,31,"ide_export.bas");}while(r);
S_64909:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,32,"ide_export.bas");if(r)goto S_64909;}
S_64910:;
fornext_value7438= 1 ;
fornext_finalvalue7438=*__LONG_IDEN;
fornext_step7438= 1 ;
if (fornext_step7438<0) fornext_step_negative7438=1; else fornext_step_negative7438=0;
if (is_error_pending()) goto fornext_error7438;
goto fornext_entrylabel7438;
while(1){
fornext_value7438=fornext_step7438+(*_SUB_EXPORTCODEAS_LONG_I);
fornext_entrylabel7438:
*_SUB_EXPORTCODEAS_LONG_I=fornext_value7438;
if (fornext_step_negative7438){
if (fornext_value7438<fornext_finalvalue7438) break;
}else{
if (fornext_value7438>fornext_finalvalue7438) break;
}
fornext_error7438:;
if(qbevent){evnt(25769,33,"ide_export.bas");if(r)goto S_64910;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_IDEGETLINE(_SUB_EXPORTCODEAS_LONG_I)),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,34,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,qbs__tostr((long double)(std::floor( 30 / ((long double)(*__LONG_IDEN))**_SUB_EXPORTCODEAS_LONG_I)),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,35,"ide_export.bas");}while(r);
do{
qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,36,"ide_export.bas");}while(r);
do{
SUB_UPDATEIDEINFO();
if(!qbevent)break;evnt(25769,37,"ide_export.bas");}while(r);
fornext_continue_7437:;
}
fornext_exit_7437:;
S_64916:;
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL->len),_SUB_EXPORTCODEAS_STRING_CEOL)))||is_error_pending()){
if(qbevent){evnt(25769,39,"ide_export.bas");if(r)goto S_64916;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_left(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_STXT->len-_SUB_EXPORTCODEAS_STRING_CEOL->len));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,40,"ide_export.bas");}while(r);
ww_continue_7440:;
}
ww_exit_7440:;
}
S_64920:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,43,"ide_export.bas");if(r)goto S_64920;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,43,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,43,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_LONG_SLEN=_SUB_EXPORTCODEAS_STRING_STXT->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,44,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_SPOS= 1 ;
if(!qbevent)break;evnt(25769,45,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,46,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS= 1 ;
if(!qbevent)break;evnt(25769,47,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,49,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,50,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(25769,52,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(25769,53,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(25769,54,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,55,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,56,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(25769,57,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(25769,59,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_MA,qbs_new_txt_len("@_ARCCOT@_ARCCSC@_ARCSEC@_COT@_COTH@_COSH@_CSC@_CSCH@_SEC@_SECH@_SINH@_TANH@",76));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,60,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,61,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_FU,qbs_new_txt_len("@_AUTODISPLAY@_BLEND@_BLINK@_CAPSLOCK@_CLEARCOLOR@_CLIPBOARD$@_CLIPBOARDIMAGE@_CONTROLCHR@_DEST@_DISPLAY@_EXIT@_FONT@_FULLSCREEN@_MAPUNICODE@_MEM@_MEMGET@_MESSAGEBOX@_NUMLOCK@_OFFSET@_PALETTECOLOR@_PRINTMODE@_RESIZE@_SCREENICON@_SCROLLLOCK@_SMOOTH@_SOURCE@_WIDTH@ASC@MID$@PLAY@SCREEN@SEEK@SHELL@TIMER@",301));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,62,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,63,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_BO,qbs_new_txt_len("@AND@OR@XOR@",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,64,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
if(!qbevent)break;evnt(25769,66,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
if(!qbevent)break;evnt(25769,67,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
if(!qbevent)break;evnt(25769,68,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
if(!qbevent)break;evnt(25769,69,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
if(!qbevent)break;evnt(25769,70,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
if(!qbevent)break;evnt(25769,71,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,72,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NC= 0 ;
if(!qbevent)break;evnt(25769,74,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,75,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(25769,76,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=198;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENCODEBLOCK;
RETURN_198:;
if(!qbevent)break;evnt(25769,78,"ide_export.bas");}while(r);
S_64954:;
while((-(*_SUB_EXPORTCODEAS_LONG_SPOS<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,79,"ide_export.bas");if(r)goto S_64954;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,qbs__tostr((long double)( 30 +std::floor( 70 / ((long double)(*_SUB_EXPORTCODEAS_LONG_SLEN))**_SUB_EXPORTCODEAS_LONG_SPOS)),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,80,"ide_export.bas");}while(r);
do{
qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,81,"ide_export.bas");}while(r);
do{
SUB_UPDATEIDEINFO();
if(!qbevent)break;evnt(25769,82,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CURR=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,84,"ide_export.bas");}while(r);
S_64959:;
if(qbevent){evnt(25769,85,"ide_export.bas");if(r)goto S_64959;}
S_64960:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 10 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 13 )))||is_error_pending()){
if(qbevent){evnt(25769,86,"ide_export.bas");if(r)goto S_64960;}
S_64961:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_LB))||is_error_pending()){
if(qbevent){evnt(25769,87,"ide_export.bas");if(r)goto S_64961;}
S_64962:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,88,"ide_export.bas");if(r)goto S_64962;}
S_64963:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,89,"ide_export.bas");if(r)goto S_64963;}
do{
return_point[next_return_point++]=199;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_199:;
if(!qbevent)break;evnt(25769,89,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=200;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_200:;
if(!qbevent)break;evnt(25769,89,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,89,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,89,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(25769,90,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(25769,90,"ide_export.bas");}while(r);
}
S_64973:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,92,"ide_export.bas");if(r)goto S_64973;}
S_64974:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,93,"ide_export.bas");if(r)goto S_64974;}
do{
return_point[next_return_point++]=201;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_201:;
if(!qbevent)break;evnt(25769,93,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=202;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_202:;
if(!qbevent)break;evnt(25769,93,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,93,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,93,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,94,"ide_export.bas");}while(r);
}
S_64983:;
if ((*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
if(qbevent){evnt(25769,96,"ide_export.bas");if(r)goto S_64983;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,96,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,96,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=203;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_203:;
if(!qbevent)break;evnt(25769,96,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(25769,96,"ide_export.bas");}while(r);
}
S_64989:;
if ((*_SUB_EXPORTCODEAS_INTEGER_QU)||is_error_pending()){
if(qbevent){evnt(25769,97,"ide_export.bas");if(r)goto S_64989;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long= 34 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25769,98,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(25769,98,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,99,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,99,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=204;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_204:;
if(!qbevent)break;evnt(25769,99,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(25769,99,"ide_export.bas");}while(r);
}
S_64997:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,101,"ide_export.bas");if(r)goto S_64997;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,101,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,101,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=205;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_205:;
if(!qbevent)break;evnt(25769,101,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,101,"ide_export.bas");}while(r);
}
S_65003:;
if ((-(*_SUB_EXPORTCODEAS_LONG_SPOS> 1 ))||is_error_pending()){
if(qbevent){evnt(25769,102,"ide_export.bas");if(r)goto S_65003;}
S_65004:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(25769,103,"ide_export.bas");if(r)goto S_65004;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(25769,103,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,103,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,103,"ide_export.bas");}while(r);
}
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(25769,105,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,105,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,105,"ide_export.bas");}while(r);
}
do{
return_point[next_return_point++]=206;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ENDLINEOPS;
RETURN_206:;
if(!qbevent)break;evnt(25769,107,"ide_export.bas");}while(r);
S_65015:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 13 ))||is_error_pending()){
if(qbevent){evnt(25769,108,"ide_export.bas");if(r)goto S_65015;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= -1 ;
if(!qbevent)break;evnt(25769,108,"ide_export.bas");}while(r);
}
}
S_65019:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 10 ))||is_error_pending()){
if(qbevent){evnt(25769,110,"ide_export.bas");if(r)goto S_65019;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,110,"ide_export.bas");}while(r);
}
sc_ec_483_end:;
goto sc_7447_end;
}
S_65027:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 9 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 32 )))||is_error_pending()){
if(qbevent){evnt(25769,111,"ide_export.bas");if(r)goto S_65027;}
S_65028:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,112,"ide_export.bas");if(r)goto S_65028;}
do{
return_point[next_return_point++]=207;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_207:;
if(!qbevent)break;evnt(25769,113,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=208;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_208:;
if(!qbevent)break;evnt(25769,113,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(25769,113,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(25769,113,"ide_export.bas");}while(r);
S_65033:;
qbs_set(sc_7448,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,114,"ide_export.bas");if(r)goto S_65033;}
S_65034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7448,qbs_new_txt_len("$LET",4))||qbs_equal(sc_7448,qbs_new_txt_len("$ELSE",5))||qbs_equal(sc_7448,qbs_new_txt_len("$END",4))))||is_error_pending()){
if(qbevent){evnt(25769,115,"ide_export.bas");if(r)goto S_65034;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
if(!qbevent)break;evnt(25769,115,"ide_export.bas");}while(r);
sc_ec_484_end:;
goto sc_7448_end;
}
S_65036:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7448,qbs_new_txt_len("$IF",3))||qbs_equal(sc_7448,qbs_new_txt_len("$ELSEIF",7))))||is_error_pending()){
if(qbevent){evnt(25769,116,"ide_export.bas");if(r)goto S_65036;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
if(!qbevent)break;evnt(25769,116,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,116,"ide_export.bas");}while(r);
sc_ec_485_end:;
goto sc_7448_end;
}
sc_7448_end:;
}
S_65041:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,119,"ide_export.bas");if(r)goto S_65041;}
S_65042:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,120,"ide_export.bas");if(r)goto S_65042;}
do{
return_point[next_return_point++]=209;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_209:;
if(!qbevent)break;evnt(25769,120,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=210;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_210:;
if(!qbevent)break;evnt(25769,120,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,120,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,120,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,121,"ide_export.bas");}while(r);
S_65050:;
if ((*_SUB_EXPORTCODEAS_INTEGER_IN)||is_error_pending()){
if(qbevent){evnt(25769,121,"ide_export.bas");if(r)goto S_65050;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,121,"ide_export.bas");}while(r);
}
S_65053:;
qbs_set(sc_7449,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,122,"ide_export.bas");if(r)goto S_65053;}
S_65054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7449,qbs_new_txt_len("REM",3))))||is_error_pending()){
if(qbevent){evnt(25769,123,"ide_export.bas");if(r)goto S_65054;}
S_65055:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,123,"ide_export.bas");if(r)goto S_65055;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
if(!qbevent)break;evnt(25769,123,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,123,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=211;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_211:;
if(!qbevent)break;evnt(25769,123,"ide_export.bas");}while(r);
}
sc_ec_486_end:;
goto sc_7449_end;
}
S_65060:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7449,qbs_new_txt_len("DATA",4))))||is_error_pending()){
if(qbevent){evnt(25769,124,"ide_export.bas");if(r)goto S_65060;}
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= -1 ;
if(!qbevent)break;evnt(25769,124,"ide_export.bas");}while(r);
sc_ec_487_end:;
goto sc_7449_end;
}
S_65062:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7449,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
if(qbevent){evnt(25769,125,"ide_export.bas");if(r)goto S_65062;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= -1 ;
if(!qbevent)break;evnt(25769,125,"ide_export.bas");}while(r);
sc_ec_488_end:;
goto sc_7449_end;
}
S_65064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7449,qbs_new_txt_len("CASE",4))||qbs_equal(sc_7449,qbs_new_txt_len("IF",2))||qbs_equal(sc_7449,qbs_new_txt_len("ELSEIF",6))||qbs_equal(sc_7449,qbs_new_txt_len("UNTIL",5))||qbs_equal(sc_7449,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(25769,126,"ide_export.bas");if(r)goto S_65064;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,126,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,126,"ide_export.bas");}while(r);
sc_ec_489_end:;
goto sc_7449_end;
}
S_65067:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7449,qbs_new_txt_len("THEN",4))||qbs_equal(sc_7449,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(25769,127,"ide_export.bas");if(r)goto S_65067;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,127,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,127,"ide_export.bas");}while(r);
sc_ec_490_end:;
goto sc_7449_end;
}
S_65071:;
fornext_value7451= 1 ;
fornext_finalvalue7451=*__LONG_IDN;
fornext_step7451= 1 ;
if (fornext_step7451<0) fornext_step_negative7451=1; else fornext_step_negative7451=0;
if (is_error_pending()) goto fornext_error7451;
goto fornext_entrylabel7451;
while(1){
fornext_value7451=fornext_step7451+(*_SUB_EXPORTCODEAS_LONG_I);
fornext_entrylabel7451:
*_SUB_EXPORTCODEAS_LONG_I=fornext_value7451;
if (fornext_step_negative7451){
if (fornext_value7451<fornext_finalvalue7451) break;
}else{
if (fornext_value7451>fornext_finalvalue7451) break;
}
fornext_error7451:;
if(qbevent){evnt(25769,129,"ide_export.bas");if(r)goto S_65071;}
S_65072:;
if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544)))== 2 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809)))> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,130,"ide_export.bas");if(r)goto S_65072;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ID,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,131,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_UW,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,131,"ide_export.bas");}while(r);
S_65075:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,_SUB_EXPORTCODEAS_STRING_UW)))||is_error_pending()){
if(qbevent){evnt(25769,132,"ide_export.bas");if(r)goto S_65075;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -2 ;
if(!qbevent)break;evnt(25769,132,"ide_export.bas");}while(r);
do{
goto fornext_exit_7450;
if(!qbevent)break;evnt(25769,132,"ide_export.bas");}while(r);
}
}
fornext_continue_7450:;
}
fornext_exit_7450:;
sc_7449_end:;
}
S_65083:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,137,"ide_export.bas");if(r)goto S_65083;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,137,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,137,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=212;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_212:;
if(!qbevent)break;evnt(25769,137,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,137,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,138,"ide_export.bas");}while(r);
sc_ec_491_end:;
goto sc_7447_end;
}
S_65090:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
if(qbevent){evnt(25769,139,"ide_export.bas");if(r)goto S_65090;}
S_65091:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,140,"ide_export.bas");if(r)goto S_65091;}
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= -1 ;
if(!qbevent)break;evnt(25769,141,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,141,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=213;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_213:;
if(!qbevent)break;evnt(25769,141,"ide_export.bas");}while(r);
S_65095:;
}else{
if (*_SUB_EXPORTCODEAS_INTEGER_QU){
if(qbevent){evnt(25769,142,"ide_export.bas");if(r)goto S_65095;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= -1 ;
if(!qbevent)break;evnt(25769,143,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,143,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=214;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_214:;
if(!qbevent)break;evnt(25769,143,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(25769,143,"ide_export.bas");}while(r);
}
}
S_65101:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(25769,145,"ide_export.bas");if(r)goto S_65101;}
do{
return_point[next_return_point++]=215;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_215:;
if(!qbevent)break;evnt(25769,145,"ide_export.bas");}while(r);
}
sc_ec_492_end:;
goto sc_7447_end;
}
S_65104:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 36 )))||is_error_pending()){
if(qbevent){evnt(25769,146,"ide_export.bas");if(r)goto S_65104;}
S_65105:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NL|*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
if(qbevent){evnt(25769,147,"ide_export.bas");if(r)goto S_65105;}
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= -1 ;
if(!qbevent)break;evnt(25769,147,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= -1 ;
if(!qbevent)break;evnt(25769,147,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,147,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,147,"ide_export.bas");}while(r);
}
sc_ec_493_end:;
goto sc_7447_end;
}
S_65111:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(25769,148,"ide_export.bas");if(r)goto S_65111;}
S_65112:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(25769,149,"ide_export.bas");if(r)goto S_65112;}
S_65113:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,150,"ide_export.bas");if(r)goto S_65113;}
S_65114:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("BHO",3),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,151,"ide_export.bas");if(r)goto S_65114;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(25769,152,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,152,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=216;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_216:;
if(!qbevent)break;evnt(25769,152,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,152,"ide_export.bas");}while(r);
}
}
}
S_65122:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_KW)))||is_error_pending()){
if(qbevent){evnt(25769,156,"ide_export.bas");if(r)goto S_65122;}
do{
return_point[next_return_point++]=217;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_217:;
if(!qbevent)break;evnt(25769,156,"ide_export.bas");}while(r);
}
sc_ec_494_end:;
goto sc_7447_end;
}
S_65125:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 39 )))||is_error_pending()){
if(qbevent){evnt(25769,157,"ide_export.bas");if(r)goto S_65125;}
S_65126:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NL)||is_error_pending()){
if(qbevent){evnt(25769,158,"ide_export.bas");if(r)goto S_65126;}
S_65127:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,159,"ide_export.bas");if(r)goto S_65127;}
S_65128:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )== 36 )))||is_error_pending()){
if(qbevent){evnt(25769,160,"ide_export.bas");if(r)goto S_65128;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
if(!qbevent)break;evnt(25769,160,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,160,"ide_export.bas");}while(r);
}
}
}
S_65134:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,163,"ide_export.bas");if(r)goto S_65134;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
if(!qbevent)break;evnt(25769,163,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,163,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=218;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_218:;
if(!qbevent)break;evnt(25769,163,"ide_export.bas");}while(r);
}
sc_ec_495_end:;
goto sc_7447_end;
}
S_65139:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 40 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 41 )))||is_error_pending()){
if(qbevent){evnt(25769,164,"ide_export.bas");if(r)goto S_65139;}
S_65140:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,165,"ide_export.bas");if(r)goto S_65140;}
S_65141:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,166,"ide_export.bas");if(r)goto S_65141;}
do{
return_point[next_return_point++]=219;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_219:;
if(!qbevent)break;evnt(25769,166,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=220;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_220:;
if(!qbevent)break;evnt(25769,166,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,166,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,166,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,167,"ide_export.bas");}while(r);
}
S_65150:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,169,"ide_export.bas");if(r)goto S_65150;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,169,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,169,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=221;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_221:;
if(!qbevent)break;evnt(25769,169,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,169,"ide_export.bas");}while(r);
}
S_65156:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,170,"ide_export.bas");if(r)goto S_65156;}
S_65157:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 40 ))||is_error_pending()){
if(qbevent){evnt(25769,171,"ide_export.bas");if(r)goto S_65157;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC+ 1 ;
if(!qbevent)break;evnt(25769,171,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC- 1 ;
if(!qbevent)break;evnt(25769,171,"ide_export.bas");}while(r);
}
}
S_65163:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO)))||is_error_pending()){
if(qbevent){evnt(25769,173,"ide_export.bas");if(r)goto S_65163;}
S_65164:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_NC> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,174,"ide_export.bas");if(r)goto S_65164;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,174,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,174,"ide_export.bas");}while(r);
}
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,176,"ide_export.bas");}while(r);
sc_ec_496_end:;
goto sc_7447_end;
}
S_65171:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 42 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 44 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 47 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 59 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 62 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 94 )))||is_error_pending()){
if(qbevent){evnt(25769,177,"ide_export.bas");if(r)goto S_65171;}
S_65172:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,178,"ide_export.bas");if(r)goto S_65172;}
S_65173:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,179,"ide_export.bas");if(r)goto S_65173;}
do{
return_point[next_return_point++]=222;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_222:;
if(!qbevent)break;evnt(25769,179,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=223;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_223:;
if(!qbevent)break;evnt(25769,179,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,179,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,179,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,180,"ide_export.bas");}while(r);
}
S_65182:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,182,"ide_export.bas");if(r)goto S_65182;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,182,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,182,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=224;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_224:;
if(!qbevent)break;evnt(25769,182,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,182,"ide_export.bas");}while(r);
}
S_65188:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 61 ))&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO))))||is_error_pending()){
if(qbevent){evnt(25769,183,"ide_export.bas");if(r)goto S_65188;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -3 ;
if(!qbevent)break;evnt(25769,183,"ide_export.bas");}while(r);
}
S_65191:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 60 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 62 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 92 )))||is_error_pending()){
if(qbevent){evnt(25769,184,"ide_export.bas");if(r)goto S_65191;}
do{
return_point[next_return_point++]=225;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_225:;
if(!qbevent)break;evnt(25769,184,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,185,"ide_export.bas");}while(r);
sc_ec_497_end:;
goto sc_7447_end;
}
S_65195:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 45 )))||is_error_pending()){
if(qbevent){evnt(25769,186,"ide_export.bas");if(r)goto S_65195;}
S_65196:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,187,"ide_export.bas");if(r)goto S_65196;}
S_65197:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,188,"ide_export.bas");if(r)goto S_65197;}
do{
return_point[next_return_point++]=226;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_226:;
if(!qbevent)break;evnt(25769,188,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=227;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_227:;
if(!qbevent)break;evnt(25769,188,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,188,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,188,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,189,"ide_export.bas");}while(r);
}
S_65206:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,191,"ide_export.bas");if(r)goto S_65206;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,191,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,191,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=228;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_228:;
if(!qbevent)break;evnt(25769,191,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,191,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,192,"ide_export.bas");}while(r);
S_65213:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,193,"ide_export.bas");if(r)goto S_65213;}
S_65214:;
sc_7452=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,194,"ide_export.bas");if(r)goto S_65214;}
S_65215:;
if (((sc_7452==( 9 ))||(sc_7452==( 32 ))||(sc_7452==( 40 ))||((sc_7452>=( 42 ))&&(sc_7452<=( 45 )))||(sc_7452==( 47 ))||((sc_7452>=( 59 ))&&(sc_7452<=( 63 )))||(sc_7452==( 92 ))||(sc_7452==( 94 )))||is_error_pending()){
if(qbevent){evnt(25769,195,"ide_export.bas");if(r)goto S_65215;}
S_65216:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,196,"ide_export.bas");if(r)goto S_65216;}
S_65217:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(".0123456789",11),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,197,"ide_export.bas");if(r)goto S_65217;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(25769,198,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,198,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=229;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_229:;
if(!qbevent)break;evnt(25769,198,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,198,"ide_export.bas");}while(r);
}
}
sc_ec_498_end:;
goto sc_7452_end;
}
sc_7452_end:;
}
sc_ec_499_end:;
goto sc_7447_end;
}
S_65226:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 )))||is_error_pending()){
if(qbevent){evnt(25769,203,"ide_export.bas");if(r)goto S_65226;}
S_65227:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(25769,204,"ide_export.bas");if(r)goto S_65227;}
S_65228:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,205,"ide_export.bas");if(r)goto S_65228;}
S_65229:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,206,"ide_export.bas");if(r)goto S_65229;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(25769,207,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,207,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=230;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_230:;
if(!qbevent)break;evnt(25769,207,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,207,"ide_export.bas");}while(r);
}
}
}
sc_ec_500_end:;
goto sc_7447_end;
}
S_65237:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 ))))||is_error_pending()){
if(qbevent){evnt(25769,211,"ide_export.bas");if(r)goto S_65237;}
S_65238:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(25769,212,"ide_export.bas");if(r)goto S_65238;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(25769,212,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,212,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=231;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_231:;
if(!qbevent)break;evnt(25769,212,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,212,"ide_export.bas");}while(r);
}
sc_ec_501_end:;
goto sc_7447_end;
}
S_65244:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 58 )))||is_error_pending()){
if(qbevent){evnt(25769,213,"ide_export.bas");if(r)goto S_65244;}
S_65245:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,214,"ide_export.bas");if(r)goto S_65245;}
do{
return_point[next_return_point++]=232;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_232:;
if(!qbevent)break;evnt(25769,214,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=233;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_233:;
if(!qbevent)break;evnt(25769,214,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(25769,214,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(25769,214,"ide_export.bas");}while(r);
}
S_65251:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,215,"ide_export.bas");if(r)goto S_65251;}
S_65252:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(25769,216,"ide_export.bas");if(r)goto S_65252;}
do{
return_point[next_return_point++]=234;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_234:;
if(!qbevent)break;evnt(25769,216,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=235;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_235:;
if(!qbevent)break;evnt(25769,216,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,216,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(25769,216,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(25769,217,"ide_export.bas");}while(r);
}
S_65261:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(25769,219,"ide_export.bas");if(r)goto S_65261;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,219,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,219,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=236;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_236:;
if(!qbevent)break;evnt(25769,219,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(25769,219,"ide_export.bas");}while(r);
}
S_65267:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(25769,220,"ide_export.bas");if(r)goto S_65267;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(25769,220,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,220,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,220,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(25769,221,"ide_export.bas");}while(r);
sc_ec_502_end:;
goto sc_7447_end;
}
S_65273:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
if(qbevent){evnt(25769,222,"ide_export.bas");if(r)goto S_65273;}
do{
return_point[next_return_point++]=237;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_237:;
if(!qbevent)break;evnt(25769,223,"ide_export.bas");}while(r);
sc_ec_503_end:;
goto sc_7447_end;
}
S_65275:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 97 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 ))))||is_error_pending()){
if(qbevent){evnt(25769,224,"ide_export.bas");if(r)goto S_65275;}
S_65276:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(25769,225,"ide_export.bas");if(r)goto S_65276;}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
if(!qbevent)break;evnt(25769,225,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,225,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,225,"ide_export.bas");}while(r);
}
S_65281:;
if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_NL&(qbs_equal(qbs_ucase(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 5 ,0|1)),qbs_new_txt_len("REM $",5)))))||is_error_pending()){
if(qbevent){evnt(25769,226,"ide_export.bas");if(r)goto S_65281;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
if(!qbevent)break;evnt(25769,226,"ide_export.bas");}while(r);
}
sc_ec_504_end:;
goto sc_7447_end;
}
S_65284:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 95 )))||is_error_pending()){
if(qbevent){evnt(25769,227,"ide_export.bas");if(r)goto S_65284;}
S_65285:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(25769,228,"ide_export.bas");if(r)goto S_65285;}
S_65286:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(25769,229,"ide_export.bas");if(r)goto S_65286;}
S_65287:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 13 ))&(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 10 ))))||is_error_pending()){
if(qbevent){evnt(25769,230,"ide_export.bas");if(r)goto S_65287;}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
if(!qbevent)break;evnt(25769,231,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,231,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,231,"ide_export.bas");}while(r);
}
}
}
sc_ec_505_end:;
goto sc_7447_end;
}
S_65294:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(25769,235,"ide_export.bas");if(r)goto S_65294;}
do{
return_point[next_return_point++]=238;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_238:;
if(!qbevent)break;evnt(25769,236,"ide_export.bas");}while(r);
sc_ec_506_end:;
goto sc_7447_end;
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(25769,238,"ide_export.bas");}while(r);
sc_7447_end:;
S_65299:;
if(qbevent){evnt(25769,240,"ide_export.bas");if(r)goto S_65299;}
S_65300:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 33 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 35 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 38 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 95 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 126 )))||is_error_pending()){
if(qbevent){evnt(25769,241,"ide_export.bas");if(r)goto S_65300;}
S_65301:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,242,"ide_export.bas");if(r)goto S_65301;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(_SUB_EXPORTCODEAS_STRING_ME,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,242,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,242,"ide_export.bas");}while(r);
}
S_65305:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,243,"ide_export.bas");if(r)goto S_65305;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(_SUB_EXPORTCODEAS_STRING_KW,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,243,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,243,"ide_export.bas");}while(r);
}
sc_ec_507_end:;
goto sc_7453_end;
}
sc_7453_end:;
S_65310:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 9 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 10 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 32 )))||is_error_pending()){
if(qbevent){evnt(25769,245,"ide_export.bas");if(r)goto S_65310;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= 0 ;
if(!qbevent)break;evnt(25769,245,"ide_export.bas");}while(r);
}
S_65313:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(25769,246,"ide_export.bas");if(r)goto S_65313;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25769,246,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(25769,246,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(25769,247,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_SPOS=*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 ;
if(!qbevent)break;evnt(25769,247,"ide_export.bas");}while(r);
S_65319:;
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_EXPORTCODEAS_LONG_EPOS>(_SUB_EXPORTCODEAS_STRING_ETXT->len- 10000 ))))||is_error_pending()){
if(qbevent){evnt(25769,249,"ide_export.bas");if(r)goto S_65319;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,qbs_add(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,249,"ide_export.bas");}while(r);
}
ww_continue_7445:;
}
ww_exit_7445:;
do{
return_point[next_return_point++]=239;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSECODEBLOCK;
RETURN_239:;
if(!qbevent)break;evnt(25769,251,"ide_export.bas");}while(r);
do{
sub_pcopy( 2 , 3 );
if(!qbevent)break;evnt(25769,253,"ide_export.bas");}while(r);
S_65325:;
qbs_set(sc_7455,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,254,"ide_export.bas");if(r)goto S_65325;}
S_65326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("html",4))||qbs_equal(sc_7455,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,255,"ide_export.bas");if(r)goto S_65326;}
do{
*__LONG_IDEERROR= 7 ;
if(!qbevent)break;evnt(25769,256,"ide_export.bas");}while(r);
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT), 4 ,NULL,NULL, 151 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,257,"ide_export.bas");}while(r);
do{
*__LONG_IDEERROR= 1 ;
if(!qbevent)break;evnt(25769,258,"ide_export.bas");}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 151 ;
if (is_error_pending()) goto skip7456;
sub_file_print(tmp_fileno,qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ), 0, 0, 0);
if (is_error_pending()) goto skip7456;
skip7456:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25769,259,"ide_export.bas");}while(r);
do{
sub_close( 151 ,1);
if(!qbevent)break;evnt(25769,260,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Export to ",10),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT),qbs_new_txt_len(" completed.",11)),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,261,"ide_export.bas");}while(r);
sc_ec_508_end:;
goto sc_7455_end;
}
S_65333:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,262,"ide_export.bas");if(r)goto S_65333;}
do{
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,263,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Discord export to Clipboard completed.\\n",40),qbs_new_txt_len("Codeblock size is ",18)),qbs__tostr((int64)(*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ),NULL,0)),qbs_new_txt_len(" chars.\\n",9)),qbs_new_txt_len("Note that codeblocks count into the Discord Message Limit,\\n",60)),qbs_new_txt_len("which is usually 2000 for regulars and 4000 for Nitro users.\\n",62)),qbs_new_txt_len("Big code is better dropped to Discord as file attachement.",58)),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,268,"ide_export.bas");}while(r);
sc_ec_509_end:;
goto sc_7455_end;
}
S_65336:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("foru",4))||qbs_equal(sc_7455,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,269,"ide_export.bas");if(r)goto S_65336;}
do{
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,270,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_new_txt_len("Forum/Wiki export to Clipboard completed.",41),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,271,"ide_export.bas");}while(r);
sc_ec_510_end:;
goto sc_7455_end;
}
sc_7455_end:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,273,"ide_export.bas");}while(r);
LABEL_OPENCODEBLOCK:;
if(qbevent){evnt(25769,275,"ide_export.bas");r=0;}
S_65341:;
qbs_set(sc_7457,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,276,"ide_export.bas");if(r)goto S_65341;}
S_65342:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,277,"ide_export.bas");if(r)goto S_65342;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<!DOCTYPE html><html lang=",26),func_chr( 34 )),qbs_new_txt_len("en",2)),func_chr( 34 )),qbs_new_txt_len("><head><meta charset=",21)),func_chr( 34 )),qbs_new_txt_len("UTF-8",5)),func_chr( 34 )),qbs_new_txt_len("><title>",8)),FUNC_ANSITEXTTOUTF8TEXT(_SUB_EXPORTCODEAS_STRING_PNAM)),qbs_new_txt_len("</title></head><body><pre style=",32)),func_chr( 34 )),qbs_new_txt_len("font-size: 18px; background-color: ",35)),_SUB_EXPORTCODEAS_STRING_BGC),qbs_new_txt_len("; color: ",9)),_SUB_EXPORTCODEAS_STRING_TXC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,277,"ide_export.bas");}while(r);
sc_ec_511_end:;
goto sc_7457_end;
}
S_65344:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,278,"ide_export.bas");if(r)goto S_65344;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_new_txt_len("{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 Courier New;}}{\\colortbl ",56),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("}\\pard\\f0\\fs32\\cbpat6\\paperh23811\\paperw16838\\margl142\\margr142\\margt142\\margb142",81)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,278,"ide_export.bas");}while(r);
sc_ec_512_end:;
goto sc_7457_end;
}
S_65346:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,279,"ide_export.bas");if(r)goto S_65346;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("```ansi",7),_SUB_EXPORTCODEAS_STRING_CEOL),func_chr( 27 )),qbs_new_txt_len("[0;0;1;37m",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,279,"ide_export.bas");}while(r);
sc_ec_513_end:;
goto sc_7457_end;
}
S_65348:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,280,"ide_export.bas");if(r)goto S_65348;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[qb=export]",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,280,"ide_export.bas");}while(r);
sc_ec_514_end:;
goto sc_7457_end;
}
S_65350:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,281,"ide_export.bas");if(r)goto S_65350;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeStart}}",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,281,"ide_export.bas");}while(r);
sc_ec_515_end:;
goto sc_7457_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,282,"ide_export.bas");}while(r);
sc_7457_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(25769,284,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,284,"ide_export.bas");}while(r);
S_65357:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("disc",4)))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("foru",4)))))||is_error_pending()){
if(qbevent){evnt(25769,285,"ide_export.bas");if(r)goto S_65357;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
if(!qbevent)break;evnt(25769,286,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,286,"ide_export.bas");}while(r);
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,288,"ide_export.bas");}while(r);
LABEL_CLOSECODEBLOCK:;
if(qbevent){evnt(25769,290,"ide_export.bas");r=0;}
S_65362:;
qbs_set(sc_7462,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,291,"ide_export.bas");if(r)goto S_65362;}
S_65363:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7462,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,292,"ide_export.bas");if(r)goto S_65363;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</pre></body></html>",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,292,"ide_export.bas");}while(r);
sc_ec_516_end:;
goto sc_7462_end;
}
S_65365:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7462,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,293,"ide_export.bas");if(r)goto S_65365;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,293,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS- 4 ;
if(!qbevent)break;evnt(25769,293,"ide_export.bas");}while(r);
sc_ec_517_end:;
goto sc_7462_end;
}
S_65368:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7462,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,294,"ide_export.bas");if(r)goto S_65368;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("```",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,294,"ide_export.bas");}while(r);
sc_ec_518_end:;
goto sc_7462_end;
}
S_65370:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7462,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,295,"ide_export.bas");if(r)goto S_65370;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/qb]",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,295,"ide_export.bas");}while(r);
sc_ec_519_end:;
goto sc_7462_end;
}
S_65372:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7462,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,296,"ide_export.bas");if(r)goto S_65372;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeEnd}}",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,296,"ide_export.bas");}while(r);
sc_ec_520_end:;
goto sc_7462_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,297,"ide_export.bas");}while(r);
sc_7462_end:;
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS-_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,299,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(25769,300,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,300,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
if(!qbevent)break;evnt(25769,301,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,301,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,302,"ide_export.bas");}while(r);
LABEL_OPENTEXT:;
if(qbevent){evnt(25769,304,"ide_export.bas");r=0;}
S_65383:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||is_error_pending()){
if(qbevent){evnt(25769,305,"ide_export.bas");if(r)goto S_65383;}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,305,"ide_export.bas");}while(r);
}
S_65386:;
qbs_set(sc_7468,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,306,"ide_export.bas");if(r)goto S_65386;}
S_65387:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,307,"ide_export.bas");if(r)goto S_65387;}
S_65388:;
qbs_set(sc_7469,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,308,"ide_export.bas");if(r)goto S_65388;}
S_65389:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7469,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(25769,309,"ide_export.bas");if(r)goto S_65389;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_COC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,309,"ide_export.bas");}while(r);
sc_ec_521_end:;
goto sc_7469_end;
}
S_65391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7469,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,310,"ide_export.bas");if(r)goto S_65391;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_NUC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,310,"ide_export.bas");}while(r);
sc_ec_522_end:;
goto sc_7469_end;
}
S_65393:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7469,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,311,"ide_export.bas");if(r)goto S_65393;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_QUC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,311,"ide_export.bas");}while(r);
sc_ec_523_end:;
goto sc_7469_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,312,"ide_export.bas");}while(r);
sc_7469_end:;
sc_ec_524_end:;
goto sc_7468_end;
}
S_65398:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,314,"ide_export.bas");if(r)goto S_65398;}
S_65399:;
qbs_set(sc_7470,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,315,"ide_export.bas");if(r)goto S_65399;}
S_65400:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7470,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(25769,316,"ide_export.bas");if(r)goto S_65400;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf1 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,316,"ide_export.bas");}while(r);
sc_ec_525_end:;
goto sc_7470_end;
}
S_65402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7470,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,317,"ide_export.bas");if(r)goto S_65402;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf4 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,317,"ide_export.bas");}while(r);
sc_ec_526_end:;
goto sc_7470_end;
}
S_65404:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7470,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,318,"ide_export.bas");if(r)goto S_65404;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf5 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,318,"ide_export.bas");}while(r);
sc_ec_527_end:;
goto sc_7470_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,319,"ide_export.bas");}while(r);
sc_7470_end:;
sc_ec_528_end:;
goto sc_7468_end;
}
S_65409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,321,"ide_export.bas");if(r)goto S_65409;}
S_65410:;
qbs_set(sc_7471,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,322,"ide_export.bas");if(r)goto S_65410;}
S_65411:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7471,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(25769,323,"ide_export.bas");if(r)goto S_65411;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[30m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,323,"ide_export.bas");}while(r);
sc_ec_529_end:;
goto sc_7471_end;
}
S_65413:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7471,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,324,"ide_export.bas");if(r)goto S_65413;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[31m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,324,"ide_export.bas");}while(r);
sc_ec_530_end:;
goto sc_7471_end;
}
S_65415:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7471,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,325,"ide_export.bas");if(r)goto S_65415;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[33m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,325,"ide_export.bas");}while(r);
sc_ec_531_end:;
goto sc_7471_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,326,"ide_export.bas");}while(r);
sc_7471_end:;
sc_ec_532_end:;
goto sc_7468_end;
}
S_65420:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,328,"ide_export.bas");if(r)goto S_65420;}
S_65421:;
qbs_set(sc_7472,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,329,"ide_export.bas");if(r)goto S_65421;}
S_65422:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7472,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(25769,330,"ide_export.bas");if(r)goto S_65422;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#919191]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,330,"ide_export.bas");}while(r);
sc_ec_533_end:;
goto sc_7472_end;
}
S_65424:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7472,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,331,"ide_export.bas");if(r)goto S_65424;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#F580B1]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,331,"ide_export.bas");}while(r);
sc_ec_534_end:;
goto sc_7472_end;
}
S_65426:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7472,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,332,"ide_export.bas");if(r)goto S_65426;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#FFB100]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,332,"ide_export.bas");}while(r);
sc_ec_535_end:;
goto sc_7472_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,333,"ide_export.bas");}while(r);
sc_7472_end:;
sc_ec_536_end:;
goto sc_7468_end;
}
S_65431:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,335,"ide_export.bas");if(r)goto S_65431;}
S_65432:;
qbs_set(sc_7473,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,336,"ide_export.bas");if(r)goto S_65432;}
S_65433:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7473,qbs_new_txt_len("co",2))||qbs_equal(sc_7473,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,337,"ide_export.bas");if(r)goto S_65433;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|<nowiki>",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,337,"ide_export.bas");}while(r);
sc_ec_537_end:;
goto sc_7473_end;
}
S_65435:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7473,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,338,"ide_export.bas");if(r)goto S_65435;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,338,"ide_export.bas");}while(r);
sc_ec_538_end:;
goto sc_7473_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,339,"ide_export.bas");}while(r);
sc_7473_end:;
sc_ec_539_end:;
goto sc_7468_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,341,"ide_export.bas");}while(r);
sc_7468_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(25769,343,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,343,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,344,"ide_export.bas");}while(r);
LABEL_CLOSETEXT:;
if(qbevent){evnt(25769,346,"ide_export.bas");r=0;}
S_65446:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||is_error_pending()){
if(qbevent){evnt(25769,347,"ide_export.bas");if(r)goto S_65446;}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,347,"ide_export.bas");}while(r);
}
S_65449:;
qbs_set(sc_7476,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,348,"ide_export.bas");if(r)goto S_65449;}
S_65450:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7476,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,349,"ide_export.bas");if(r)goto S_65450;}
S_65451:;
qbs_set(sc_7477,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,350,"ide_export.bas");if(r)goto S_65451;}
S_65452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7477,qbs_new_txt_len("co",2))||qbs_equal(sc_7477,qbs_new_txt_len("nu",2))||qbs_equal(sc_7477,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,351,"ide_export.bas");if(r)goto S_65452;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</span>",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,351,"ide_export.bas");}while(r);
sc_ec_540_end:;
goto sc_7477_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,352,"ide_export.bas");}while(r);
sc_7477_end:;
sc_ec_541_end:;
goto sc_7476_end;
}
S_65457:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7476,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,354,"ide_export.bas");if(r)goto S_65457;}
S_65458:;
qbs_set(sc_7478,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,355,"ide_export.bas");if(r)goto S_65458;}
S_65459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7478,qbs_new_txt_len("co",2))||qbs_equal(sc_7478,qbs_new_txt_len("nu",2))||qbs_equal(sc_7478,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,356,"ide_export.bas");if(r)goto S_65459;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf0 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,356,"ide_export.bas");}while(r);
sc_ec_542_end:;
goto sc_7478_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,357,"ide_export.bas");}while(r);
sc_7478_end:;
sc_ec_543_end:;
goto sc_7476_end;
}
S_65464:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7476,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,359,"ide_export.bas");if(r)goto S_65464;}
S_65465:;
qbs_set(sc_7479,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,360,"ide_export.bas");if(r)goto S_65465;}
S_65466:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7479,qbs_new_txt_len("co",2))||qbs_equal(sc_7479,qbs_new_txt_len("nu",2))||qbs_equal(sc_7479,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,361,"ide_export.bas");if(r)goto S_65466;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[37m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,361,"ide_export.bas");}while(r);
sc_ec_544_end:;
goto sc_7479_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,362,"ide_export.bas");}while(r);
sc_7479_end:;
sc_ec_545_end:;
goto sc_7476_end;
}
S_65471:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7476,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,364,"ide_export.bas");if(r)goto S_65471;}
S_65472:;
qbs_set(sc_7480,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,365,"ide_export.bas");if(r)goto S_65472;}
S_65473:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7480,qbs_new_txt_len("co",2))||qbs_equal(sc_7480,qbs_new_txt_len("nu",2))||qbs_equal(sc_7480,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,366,"ide_export.bas");if(r)goto S_65473;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/color]",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,366,"ide_export.bas");}while(r);
sc_ec_546_end:;
goto sc_7480_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,367,"ide_export.bas");}while(r);
sc_7480_end:;
sc_ec_547_end:;
goto sc_7476_end;
}
S_65478:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7476,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,369,"ide_export.bas");if(r)goto S_65478;}
S_65479:;
qbs_set(sc_7481,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,370,"ide_export.bas");if(r)goto S_65479;}
S_65480:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7481,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(25769,371,"ide_export.bas");if(r)goto S_65480;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#919191}}",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,371,"ide_export.bas");}while(r);
sc_ec_548_end:;
goto sc_7481_end;
}
S_65482:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7481,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(25769,372,"ide_export.bas");if(r)goto S_65482;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#F580B1}}",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,372,"ide_export.bas");}while(r);
sc_ec_549_end:;
goto sc_7481_end;
}
S_65484:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7481,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(25769,373,"ide_export.bas");if(r)goto S_65484;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#FFB100}}",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,373,"ide_export.bas");}while(r);
sc_ec_550_end:;
goto sc_7481_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,374,"ide_export.bas");}while(r);
sc_7481_end:;
sc_ec_551_end:;
goto sc_7476_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,376,"ide_export.bas");}while(r);
sc_7476_end:;
S_65492:;
if ((*_SUB_EXPORTCODEAS_INTEGER_POST)||is_error_pending()){
if(qbevent){evnt(25769,378,"ide_export.bas");if(r)goto S_65492;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(25769,379,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=240;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_240:;
if(!qbevent)break;evnt(25769,379,"ide_export.bas");}while(r);
S_65495:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(25769,380,"ide_export.bas");if(r)goto S_65495;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25769,380,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(25769,380,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,380,"ide_export.bas");}while(r);
}
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(25769,382,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,382,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,383,"ide_export.bas");}while(r);
LABEL_VERIFYKEYWORD:;
if(qbevent){evnt(25769,385,"ide_export.bas");r=0;}
S_65504:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,386,"ide_export.bas");if(r)goto S_65504;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_ME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,386,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_KW);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,386,"ide_export.bas");}while(r);
}
S_65509:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(25769,387,"ide_export.bas");if(r)goto S_65509;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FLP= 1 ;
if(!qbevent)break;evnt(25769,387,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_FLP= 2 ;
if(!qbevent)break;evnt(25769,387,"ide_export.bas");}while(r);
}
S_65514:;
if ((qbs_cleanup(qbs_tmp_base,((-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP)== 36 ))|((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])])&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,388,"ide_export.bas");if(r)goto S_65514;}
S_65515:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
if(qbevent){evnt(25769,389,"ide_export.bas");if(r)goto S_65515;}
S_65516:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC$FORMAT",30),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,390,"ide_export.bas");if(r)goto S_65516;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,390,"ide_export.bas");}while(r);
}
S_65519:;
}else{
if (*_SUB_EXPORTCODEAS_INTEGER_ME&(~(*_SUB_EXPORTCODEAS_INTEGER_LE))){
if(qbevent){evnt(25769,391,"ide_export.bas");if(r)goto S_65519;}
S_65520:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC$FORMAT",30),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,392,"ide_export.bas");if(r)goto S_65520;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,392,"ide_export.bas");}while(r);
}
}
}
S_65524:;
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,394,"ide_export.bas");if(r)goto S_65524;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,394,"ide_export.bas");}while(r);
}
S_65527:;
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(25769,395,"ide_export.bas");if(r)goto S_65527;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,395,"ide_export.bas");}while(r);
}
S_65530:;
if ((*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,396,"ide_export.bas");if(r)goto S_65530;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,_SUB_EXPORTCODEAS_STRING_VERI);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,396,"ide_export.bas");}while(r);
}
S_65533:;
}else{
if (qbs_cleanup(qbs_tmp_base,(~(((-(*_SUB_EXPORTCODEAS_INTEGER_ML< 0 ))|*_SUB_EXPORTCODEAS_INTEGER_DL)))&(-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(FUNC_REMOVESYMBOL2(_SUB_EXPORTCODEAS_STRING_VERI))),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(25769,397,"ide_export.bas");if(r)goto S_65533;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
if(!qbevent)break;evnt(25769,398,"ide_export.bas");}while(r);
S_65535:;
}else{
if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_PC&(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(25769,399,"ide_export.bas");if(r)goto S_65535;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
if(!qbevent)break;evnt(25769,400,"ide_export.bas");}while(r);
}else{
S_65538:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,402,"ide_export.bas");if(r)goto S_65538;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,402,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,402,"ide_export.bas");}while(r);
}
}
}
}
S_65544:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_ML< 0 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 58 )))||is_error_pending()){
if(qbevent){evnt(25769,404,"ide_export.bas");if(r)goto S_65544;}
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= -2 ;
if(!qbevent)break;evnt(25769,404,"ide_export.bas");}while(r);
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,405,"ide_export.bas");}while(r);
LABEL_FINDWIKIPAGE:;
if(qbevent){evnt(25769,407,"ide_export.bas");r=0;}
S_65548:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(25769,408,"ide_export.bas");if(r)goto S_65548;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,408,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,408,"ide_export.bas");}while(r);
}
S_65553:;
if ((*_SUB_EXPORTCODEAS_INTEGER_OP)||is_error_pending()){
if(qbevent){evnt(25769,409,"ide_export.bas");if(r)goto S_65553;}
S_65554:;
if(qbevent){evnt(25769,410,"ide_export.bas");if(r)goto S_65554;}
S_65555:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(25769,411,"ide_export.bas");if(r)goto S_65555;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,411,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,411,"ide_export.bas");}while(r);
sc_ec_552_end:;
goto sc_7484_end;
}
S_65558:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LEN",3))))||is_error_pending()){
if(qbevent){evnt(25769,412,"ide_export.bas");if(r)goto S_65558;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,413,"ide_export.bas");}while(r);
S_65560:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(25769,414,"ide_export.bas");if(r)goto S_65560;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,414,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,414,"ide_export.bas");}while(r);
}
sc_ec_553_end:;
goto sc_7484_end;
}
S_65564:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ACCESS",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOCK",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHARED",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("READ",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(25769,415,"ide_export.bas");if(r)goto S_65564;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_ACCESS_and_LOCK_Permissions",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,415,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,415,"ide_export.bas");}while(r);
sc_ec_554_end:;
goto sc_7484_end;
}
S_65567:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("FOR",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OUTPUT",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("APPEND",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("BINARY",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOM",6))))||is_error_pending()){
if(qbevent){evnt(25769,416,"ide_export.bas");if(r)goto S_65567;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_Access_Modes",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,416,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,416,"ide_export.bas");}while(r);
sc_ec_555_end:;
goto sc_7484_end;
}
sc_7484_end:;
}
S_65572:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_EXPORTCODEAS_INTEGER_FU< 0 ))&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_FU,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,419,"ide_export.bas");if(r)goto S_65572;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (function)",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,420,"ide_export.bas");}while(r);
S_65574:;
}else{
if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_BO&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_BO,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(25769,421,"ide_export.bas");if(r)goto S_65574;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (boolean)",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,422,"ide_export.bas");}while(r);
S_65576:;
}else{
if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))){
if(qbevent){evnt(25769,423,"ide_export.bas");if(r)goto S_65576;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("Mathematical Operations#Derived_Mathematical_Functions",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,424,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_OLA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,426,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=_SUB_EXPORTCODEAS_STRING_OLA->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,426,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,427,"ide_export.bas");}while(r);
S_65582:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(25769,427,"ide_export.bas");if(r)goto S_65582;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(25769,427,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len("(",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,428,"ide_export.bas");}while(r);
S_65586:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(25769,428,"ide_export.bas");if(r)goto S_65586;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(25769,428,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(":",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,429,"ide_export.bas");}while(r);
S_65590:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(25769,429,"ide_export.bas");if(r)goto S_65590;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(25769,429,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 13 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,430,"ide_export.bas");}while(r);
S_65594:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(25769,430,"ide_export.bas");if(r)goto S_65594;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(25769,430,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 10 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,431,"ide_export.bas");}while(r);
S_65598:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(25769,431,"ide_export.bas");if(r)goto S_65598;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(25769,431,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_rtrim(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA,*_SUB_EXPORTCODEAS_INTEGER_SP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,432,"ide_export.bas");}while(r);
S_65602:;
sc_7486_var=0;
if(qbevent){evnt(25769,433,"ide_export.bas");if(r)goto S_65602;}
S_65603:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END",4))))||is_error_pending()){
if(qbevent){evnt(25769,434,"ide_export.bas");if(r)goto S_65603;}
S_65604:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(25769,434,"ide_export.bas");if(r)goto S_65604;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,434,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END IF",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,434,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,434,"ide_export.bas");}while(r);
}
sc_ec_556_end:;
sc_7486_var=-1;
}
S_65609:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("_CONSOLECURSOR",14))))||is_error_pending()){
if(qbevent){evnt(25769,435,"ide_export.bas");if(r)goto S_65609;}
S_65610:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_HIDE",5))))||is_error_pending()){
if(qbevent){evnt(25769,436,"ide_export.bas");if(r)goto S_65610;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,436,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,436,"ide_export.bas");}while(r);
}
S_65614:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_SHOW",5))))||is_error_pending()){
if(qbevent){evnt(25769,437,"ide_export.bas");if(r)goto S_65614;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,437,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,437,"ide_export.bas");}while(r);
}
sc_ec_557_end:;
sc_7486_var=-1;
}
S_65618:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL",4))))||is_error_pending()){
if(qbevent){evnt(25769,438,"ide_export.bas");if(r)goto S_65618;}
S_65619:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
if(qbevent){evnt(25769,438,"ide_export.bas");if(r)goto S_65619;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,438,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL ABSOLUTE",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,438,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,438,"ide_export.bas");}while(r);
}
sc_ec_558_end:;
sc_7486_var=-1;
}
S_65624:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(25769,439,"ide_export.bas");if(r)goto S_65624;}
S_65625:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IS",2))))||is_error_pending()){
if(qbevent){evnt(25769,440,"ide_export.bas");if(r)goto S_65625;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,440,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE IS",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,440,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,440,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,440,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,440,"ide_export.bas");}while(r);
}
S_65632:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(25769,441,"ide_export.bas");if(r)goto S_65632;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,441,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE ELSE",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,441,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(25769,441,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(25769,441,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,441,"ide_export.bas");}while(r);
}
sc_ec_559_end:;
sc_7486_var=-1;
}
S_65639:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(25769,442,"ide_export.bas");if(r)goto S_65639;}
S_65640:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(25769,442,"ide_export.bas");if(r)goto S_65640;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,442,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE LIBRARY",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,442,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,442,"ide_export.bas");}while(r);
}
sc_ec_560_end:;
sc_7486_var=-1;
}
S_65645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF",3))))||is_error_pending()){
if(qbevent){evnt(25769,443,"ide_export.bas");if(r)goto S_65645;}
S_65646:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SEG",3))))||is_error_pending()){
if(qbevent){evnt(25769,443,"ide_export.bas");if(r)goto S_65646;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,443,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF SEG",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,443,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,443,"ide_export.bas");}while(r);
}
sc_ec_561_end:;
sc_7486_var=-1;
}
S_65651:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(25769,444,"ide_export.bas");if(r)goto S_65651;}
S_65652:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(25769,445,"ide_export.bas");if(r)goto S_65652;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,445,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,445,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,445,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,445,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,445,"ide_export.bas");}while(r);
}
S_65659:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(25769,446,"ide_export.bas");if(r)goto S_65659;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,446,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,446,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,446,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,446,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,446,"ide_export.bas");}while(r);
}
sc_ec_562_end:;
sc_7486_var=-1;
}
S_65666:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(25769,447,"ide_export.bas");if(r)goto S_65666;}
S_65667:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(25769,448,"ide_export.bas");if(r)goto S_65667;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,448,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END DECLARE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,448,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,448,"ide_export.bas");}while(r);
}
S_65672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(25769,449,"ide_export.bas");if(r)goto S_65672;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,449,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END FUNCTION",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,449,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,449,"ide_export.bas");}while(r);
}
S_65677:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(25769,450,"ide_export.bas");if(r)goto S_65677;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,450,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END IF",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,450,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,450,"ide_export.bas");}while(r);
}
S_65682:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(25769,451,"ide_export.bas");if(r)goto S_65682;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,451,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SELECT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,451,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,451,"ide_export.bas");}while(r);
}
S_65687:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(25769,452,"ide_export.bas");if(r)goto S_65687;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,452,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SUB",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,452,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,452,"ide_export.bas");}while(r);
}
S_65692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(25769,453,"ide_export.bas");if(r)goto S_65692;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,453,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END TYPE",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,453,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,453,"ide_export.bas");}while(r);
}
sc_ec_563_end:;
sc_7486_var=-1;
}
S_65697:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(25769,454,"ide_export.bas");if(r)goto S_65697;}
S_65698:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(25769,455,"ide_export.bas");if(r)goto S_65698;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,455,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT CASE",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,455,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,455,"ide_export.bas");}while(r);
}
S_65703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(25769,456,"ide_export.bas");if(r)goto S_65703;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,456,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT DO",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,456,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,456,"ide_export.bas");}while(r);
}
S_65708:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(25769,457,"ide_export.bas");if(r)goto S_65708;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,457,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FOR",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,457,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,457,"ide_export.bas");}while(r);
}
S_65713:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(25769,458,"ide_export.bas");if(r)goto S_65713;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,458,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FUNCTION",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,458,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,458,"ide_export.bas");}while(r);
}
S_65718:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(25769,459,"ide_export.bas");if(r)goto S_65718;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,459,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SELECT",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,459,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,459,"ide_export.bas");}while(r);
}
S_65723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(25769,460,"ide_export.bas");if(r)goto S_65723;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,460,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SUB",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,460,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,460,"ide_export.bas");}while(r);
}
S_65728:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(25769,461,"ide_export.bas");if(r)goto S_65728;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,461,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT WHILE",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,461,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,461,"ide_export.bas");}while(r);
}
sc_ec_564_end:;
sc_7486_var=-1;
}
S_65733:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("GET",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PUT",3))))||is_error_pending()){
if(qbevent){evnt(25769,462,"ide_export.bas");if(r)goto S_65733;}
S_65734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(25769,462,"ide_export.bas");if(r)goto S_65734;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (general)",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,462,"ide_export.bas");}while(r);
}
sc_ec_565_end:;
sc_7486_var=-1;
}
S_65737:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(25769,463,"ide_export.bas");if(r)goto S_65737;}
S_65738:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIST",4))))||is_error_pending()){
if(qbevent){evnt(25769,463,"ide_export.bas");if(r)goto S_65738;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,463,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY LIST",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,463,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,463,"ide_export.bas");}while(r);
}
sc_ec_566_end:;
sc_7486_var=-1;
}
S_65743:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
if(qbevent){evnt(25769,464,"ide_export.bas");if(r)goto S_65743;}
S_65744:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(25769,464,"ide_export.bas");if(r)goto S_65744;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,464,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT USING",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,464,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,464,"ide_export.bas");}while(r);
}
sc_ec_567_end:;
sc_7486_var=-1;
}
S_65749:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE",4))))||is_error_pending()){
if(qbevent){evnt(25769,465,"ide_export.bas");if(r)goto S_65749;}
S_65750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(25769,466,"ide_export.bas");if(r)goto S_65750;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,467,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE INPUT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,467,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,467,"ide_export.bas");}while(r);
S_65754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_OLA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(25769,468,"ide_export.bas");if(r)goto S_65754;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,468,"ide_export.bas");}while(r);
}
}
sc_ec_568_end:;
sc_7486_var=-1;
}
S_65758:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
if(qbevent){evnt(25769,470,"ide_export.bas");if(r)goto S_65758;}
S_65759:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(25769,471,"ide_export.bas");if(r)goto S_65759;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,471,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,471,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,471,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,471,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,471,"ide_export.bas");}while(r);
}
S_65766:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(25769,472,"ide_export.bas");if(r)goto S_65766;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,472,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,472,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,472,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,472,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,472,"ide_export.bas");}while(r);
}
sc_ec_569_end:;
sc_7486_var=-1;
}
S_65773:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(25769,473,"ide_export.bas");if(r)goto S_65773;}
S_65774:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
if(qbevent){evnt(25769,474,"ide_export.bas");if(r)goto S_65774;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,474,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON ERROR",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,474,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,474,"ide_export.bas");}while(r);
}
S_65779:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(25769,475,"ide_export.bas");if(r)goto S_65779;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,475,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON KEY(n)",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,475,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,475,"ide_export.bas");}while(r);
}
S_65784:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("STRIG",5))))||is_error_pending()){
if(qbevent){evnt(25769,476,"ide_export.bas");if(r)goto S_65784;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,476,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON STRIG(n)",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,476,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,476,"ide_export.bas");}while(r);
}
S_65789:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TIMER",5))))||is_error_pending()){
if(qbevent){evnt(25769,477,"ide_export.bas");if(r)goto S_65789;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,477,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON TIMER(n)",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,477,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,477,"ide_export.bas");}while(r);
}
sc_ec_570_end:;
sc_7486_var=-1;
}
S_65794:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(25769,478,"ide_export.bas");if(r)goto S_65794;}
S_65795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(25769,478,"ide_export.bas");if(r)goto S_65795;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,478,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION BASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,478,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,478,"ide_export.bas");}while(r);
}
sc_ec_571_end:;
sc_7486_var=-1;
}
S_65800:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
if(qbevent){evnt(25769,479,"ide_export.bas");if(r)goto S_65800;}
S_65801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(25769,479,"ide_export.bas");if(r)goto S_65801;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,479,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE USING",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,479,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,479,"ide_export.bas");}while(r);
}
sc_ec_572_end:;
sc_7486_var=-1;
}
S_65806:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(25769,480,"ide_export.bas");if(r)goto S_65806;}
S_65807:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(25769,481,"ide_export.bas");if(r)goto S_65807;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,482,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT USING",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,482,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,482,"ide_export.bas");}while(r);
S_65811:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_OLA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(25769,483,"ide_export.bas");if(r)goto S_65811;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,483,"ide_export.bas");}while(r);
}
}
sc_ec_573_end:;
sc_7486_var=-1;
}
S_65815:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE",9))))||is_error_pending()){
if(qbevent){evnt(25769,485,"ide_export.bas");if(r)goto S_65815;}
S_65816:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(25769,485,"ide_export.bas");if(r)goto S_65816;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,485,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE USING",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,485,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,485,"ide_export.bas");}while(r);
}
sc_ec_574_end:;
sc_7486_var=-1;
}
S_65821:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(25769,486,"ide_export.bas");if(r)goto S_65821;}
S_65822:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(25769,487,"ide_export.bas");if(r)goto S_65822;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,487,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,487,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,487,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,487,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,487,"ide_export.bas");}while(r);
}
S_65829:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
if(qbevent){evnt(25769,488,"ide_export.bas");if(r)goto S_65829;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,488,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,488,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(25769,488,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(25769,488,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,488,"ide_export.bas");}while(r);
}
sc_ec_575_end:;
sc_7486_var=-1;
}
S_65836:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SOUND",5))))||is_error_pending()){
if(qbevent){evnt(25769,489,"ide_export.bas");if(r)goto S_65836;}
S_65837:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WAIT",4))))||is_error_pending()){
if(qbevent){evnt(25769,490,"ide_export.bas");if(r)goto S_65837;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,490,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,490,"ide_export.bas");}while(r);
}
S_65841:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("RESUME",6))))||is_error_pending()){
if(qbevent){evnt(25769,491,"ide_export.bas");if(r)goto S_65841;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,491,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,491,"ide_export.bas");}while(r);
}
sc_ec_576_end:;
sc_7486_var=-1;
}
S_65845:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW",4))))||is_error_pending()){
if(qbevent){evnt(25769,492,"ide_export.bas");if(r)goto S_65845;}
S_65846:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(25769,492,"ide_export.bas");if(r)goto S_65846;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,492,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW PRINT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,492,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(25769,492,"ide_export.bas");}while(r);
}
sc_ec_577_end:;
sc_7486_var=-1;
}
S_65851:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(25769,493,"ide_export.bas");if(r)goto S_65851;}
S_65852:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(25769,493,"ide_export.bas");if(r)goto S_65852;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,493,"ide_export.bas");}while(r);
}
sc_ec_578_end:;
}
sc_7486_end:;
}
}
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,496,"ide_export.bas");}while(r);
LABEL_WRITELINK:;
if(qbevent){evnt(25769,498,"ide_export.bas");r=0;}
S_65858:;
if ((qbs_cleanup(qbs_tmp_base,(*_SUB_EXPORTCODEAS_INTEGER_ME&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0))))|(*_SUB_EXPORTCODEAS_INTEGER_KW&(qbs_equal(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0))))))||is_error_pending()){
if(qbevent){evnt(25769,499,"ide_export.bas");if(r)goto S_65858;}
do{
goto LABEL_UNKNOWNNOLINKNOCOLOR;
if(!qbevent)break;evnt(25769,499,"ide_export.bas");}while(r);
}
S_65861:;
if ((*_SUB_EXPORTCODEAS_INTEGER_CU)||is_error_pending()){
if(qbevent){evnt(25769,500,"ide_export.bas");if(r)goto S_65861;}
do{
goto LABEL_CUSTOMNOLINK;
if(!qbevent)break;evnt(25769,500,"ide_export.bas");}while(r);
}
do{
return_point[next_return_point++]=241;
if (next_return_point>=return_points) more_return_points();
goto LABEL_FINDWIKIPAGE;
RETURN_241:;
if(!qbevent)break;evnt(25769,501,"ide_export.bas");}while(r);
S_65865:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE&*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
if(qbevent){evnt(25769,502,"ide_export.bas");if(r)goto S_65865;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(25769,502,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,502,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=242;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_242:;
if(!qbevent)break;evnt(25769,502,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(25769,502,"ide_export.bas");}while(r);
}
S_65871:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,503,"ide_export.bas");if(r)goto S_65871;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_ME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,503,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_KW);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,503,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_PAL=_SUB_EXPORTCODEAS_STRING_PAGE->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,504,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LKL=_SUB_EXPORTCODEAS_STRING_LNK->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,504,"ide_export.bas");}while(r);
S_65878:;
qbs_set(sc_7489,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,505,"ide_export.bas");if(r)goto S_65878;}
S_65879:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7489,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,506,"ide_export.bas");if(r)goto S_65879;}
S_65880:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,507,"ide_export.bas");if(r)goto S_65880;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_MEC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,507,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_KWC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,507,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<a style=",9),func_chr( 34 )),qbs_new_txt_len("text-decoration: none; color: ",30)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(" href=",6)),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len(" title=",7)),func_chr( 34 )),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len(">",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("</a>",4)),1);
if(!qbevent)break;evnt(25769,508,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ;
if(!qbevent)break;evnt(25769,509,"ide_export.bas");}while(r);
sc_ec_579_end:;
goto sc_7489_end;
}
S_65887:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7489,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,510,"ide_export.bas");if(r)goto S_65887;}
S_65888:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,511,"ide_export.bas");if(r)goto S_65888;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf2",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,511,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf3",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,511,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{\\field{\\*\\fldinst HYPERLINK ",29),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len("}{\\fldrslt{",11)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len("\\ul0 ",5)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}}\\cf0 ",8)),1);
if(!qbevent)break;evnt(25769,512,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ;
if(!qbevent)break;evnt(25769,513,"ide_export.bas");}while(r);
sc_ec_580_end:;
goto sc_7489_end;
}
S_65895:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7489,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,514,"ide_export.bas");if(r)goto S_65895;}
S_65896:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,516,"ide_export.bas");if(r)goto S_65896;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[32m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,516,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[34m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,516,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 10 ,qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_LNK),func_chr( 27 )),qbs_new_txt_len("[37m",4)),1);
if(!qbevent)break;evnt(25769,517,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 10 ;
if(!qbevent)break;evnt(25769,518,"ide_export.bas");}while(r);
sc_ec_581_end:;
goto sc_7489_end;
}
S_65903:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7489,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,519,"ide_export.bas");if(r)goto S_65903;}
S_65904:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,520,"ide_export.bas");if(r)goto S_65904;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#55FF55",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,520,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#4593D8",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,520,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 84 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[url=https://qb64phoenix.com/qb64wiki/index.php?title=",54),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("][color=",8)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len("]",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("[/color][/url]",14)),1);
if(!qbevent)break;evnt(25769,521,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 84 ;
if(!qbevent)break;evnt(25769,522,"ide_export.bas");}while(r);
sc_ec_582_end:;
goto sc_7489_end;
}
S_65911:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7489,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,523,"ide_export.bas");if(r)goto S_65911;}
S_65912:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(25769,524,"ide_export.bas");if(r)goto S_65912;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cm|",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,524,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cl|",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,524,"ide_export.bas");}while(r);
}
S_65917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,_SUB_EXPORTCODEAS_STRING_LNK)))||is_error_pending()){
if(qbevent){evnt(25769,525,"ide_export.bas");if(r)goto S_65917;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1);
if(!qbevent)break;evnt(25769,526,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ;
if(!qbevent)break;evnt(25769,527,"ide_export.bas");}while(r);
}else{
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("|",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1);
if(!qbevent)break;evnt(25769,529,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ;
if(!qbevent)break;evnt(25769,530,"ide_export.bas");}while(r);
}
sc_ec_583_end:;
goto sc_7489_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,532,"ide_export.bas");}while(r);
sc_7489_end:;
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,534,"ide_export.bas");}while(r);
LABEL_CUSTOMNOLINK:;
if(qbevent){evnt(25769,536,"ide_export.bas");r=0;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
if(!qbevent)break;evnt(25769,537,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,537,"ide_export.bas");}while(r);
S_65930:;
qbs_set(sc_7491,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,538,"ide_export.bas");if(r)goto S_65930;}
S_65931:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7491,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,539,"ide_export.bas");if(r)goto S_65931;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,540,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,540,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_MEC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("</span>",7)),1);
if(!qbevent)break;evnt(25769,541,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ;
if(!qbevent)break;evnt(25769,542,"ide_export.bas");}while(r);
sc_ec_584_end:;
goto sc_7491_end;
}
S_65936:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7491,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,543,"ide_export.bas");if(r)goto S_65936;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_new_txt_len("\\cf2 ",5),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("\\cf0 ",5)),1);
if(!qbevent)break;evnt(25769,544,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
if(!qbevent)break;evnt(25769,545,"ide_export.bas");}while(r);
sc_ec_585_end:;
goto sc_7491_end;
}
S_65939:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7491,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(25769,546,"ide_export.bas");if(r)goto S_65939;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 27 ),qbs_new_txt_len("[32m",4)),_SUB_EXPORTCODEAS_STRING_KW),func_chr( 27 )),qbs_new_txt_len("[37m",4)),1);
if(!qbevent)break;evnt(25769,547,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
if(!qbevent)break;evnt(25769,548,"ide_export.bas");}while(r);
sc_ec_586_end:;
goto sc_7491_end;
}
S_65942:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7491,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,549,"ide_export.bas");if(r)goto S_65942;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 23 ,qbs_add(qbs_add(qbs_new_txt_len("[color=#55FF55]",15),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("[/color]",8)),1);
if(!qbevent)break;evnt(25769,550,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 23 ;
if(!qbevent)break;evnt(25769,551,"ide_export.bas");}while(r);
sc_ec_587_end:;
goto sc_7491_end;
}
S_65945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7491,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,552,"ide_export.bas");if(r)goto S_65945;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ,qbs_add(qbs_add(qbs_new_txt_len("{{Text|",7),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("|#55FF55}}",10)),1);
if(!qbevent)break;evnt(25769,553,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ;
if(!qbevent)break;evnt(25769,554,"ide_export.bas");}while(r);
sc_ec_588_end:;
goto sc_7491_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,555,"ide_export.bas");}while(r);
sc_7491_end:;
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,557,"ide_export.bas");}while(r);
LABEL_UNKNOWNNOLINKNOCOLOR:;
if(qbevent){evnt(25769,559,"ide_export.bas");r=0;}
S_65952:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,560,"ide_export.bas");if(r)goto S_65952;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,560,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_VERI->len,_SUB_EXPORTCODEAS_STRING_VERI,1);
if(!qbevent)break;evnt(25769,561,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_VERI->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,561,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,561,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,562,"ide_export.bas");}while(r);
LABEL_ESCAPECHAR:;
if(qbevent){evnt(25769,564,"ide_export.bas");r=0;}
S_65959:;
qbs_set(sc_7495,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,565,"ide_export.bas");if(r)goto S_65959;}
S_65960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7495,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(25769,566,"ide_export.bas");if(r)goto S_65960;}
S_65961:;
if(qbevent){evnt(25769,567,"ide_export.bas");if(r)goto S_65961;}
S_65962:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
if(qbevent){evnt(25769,568,"ide_export.bas");if(r)goto S_65962;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&quot;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,568,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,568,"ide_export.bas");}while(r);
sc_ec_589_end:;
goto sc_7496_end;
}
S_65965:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(25769,569,"ide_export.bas");if(r)goto S_65965;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,569,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,569,"ide_export.bas");}while(r);
sc_ec_590_end:;
goto sc_7496_end;
}
S_65968:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
if(qbevent){evnt(25769,570,"ide_export.bas");if(r)goto S_65968;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,570,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,570,"ide_export.bas");}while(r);
sc_ec_591_end:;
goto sc_7496_end;
}
S_65971:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
if(qbevent){evnt(25769,571,"ide_export.bas");if(r)goto S_65971;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,571,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,571,"ide_export.bas");}while(r);
sc_ec_592_end:;
goto sc_7496_end;
}
S_65974:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(25769,572,"ide_export.bas");if(r)goto S_65974;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
if(!qbevent)break;evnt(25769,573,"ide_export.bas");}while(r);
S_65976:;
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,574,"ide_export.bas");if(r)goto S_65976;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
if(!qbevent)break;evnt(25769,574,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,FUNC_UNICODETOUTF8CHAR(_SUB_EXPORTCODEAS_LONG_UNI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,575,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,575,"ide_export.bas");}while(r);
sc_ec_593_end:;
goto sc_7496_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,576,"ide_export.bas");}while(r);
sc_7496_end:;
sc_ec_594_end:;
goto sc_7495_end;
}
S_65984:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7495,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,578,"ide_export.bas");if(r)goto S_65984;}
S_65985:;
if(qbevent){evnt(25769,579,"ide_export.bas");if(r)goto S_65985;}
S_65986:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
if(qbevent){evnt(25769,580,"ide_export.bas");if(r)goto S_65986;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,580,"ide_export.bas");}while(r);
sc_ec_595_end:;
goto sc_7497_end;
}
S_65988:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(25769,581,"ide_export.bas");if(r)goto S_65988;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
if(!qbevent)break;evnt(25769,582,"ide_export.bas");}while(r);
S_65990:;
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,583,"ide_export.bas");if(r)goto S_65990;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
if(!qbevent)break;evnt(25769,583,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("\\u",2),qbs__tostr((int32)(*_SUB_EXPORTCODEAS_LONG_UNI),NULL,0)),qbs_new_txt_len("\\'bf",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,584,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,584,"ide_export.bas");}while(r);
sc_ec_596_end:;
goto sc_7497_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,585,"ide_export.bas");}while(r);
sc_7497_end:;
sc_ec_597_end:;
goto sc_7495_end;
}
S_65998:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7495,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(25769,587,"ide_export.bas");if(r)goto S_65998;}
S_65999:;
if(qbevent){evnt(25769,588,"ide_export.bas");if(r)goto S_65999;}
S_66000:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(25769,589,"ide_export.bas");if(r)goto S_66000;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs__tostr((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,589,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,589,"ide_export.bas");}while(r);
sc_ec_598_end:;
goto sc_7498_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,590,"ide_export.bas");}while(r);
sc_7498_end:;
sc_ec_599_end:;
goto sc_7495_end;
}
S_66006:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7495,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(25769,592,"ide_export.bas");if(r)goto S_66006;}
S_66007:;
if(qbevent){evnt(25769,593,"ide_export.bas");if(r)goto S_66007;}
S_66008:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(25769,594,"ide_export.bas");if(r)goto S_66008;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,594,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,594,"ide_export.bas");}while(r);
sc_ec_600_end:;
goto sc_7499_end;
}
S_66011:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
if(qbevent){evnt(25769,595,"ide_export.bas");if(r)goto S_66011;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,595,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,595,"ide_export.bas");}while(r);
sc_ec_601_end:;
goto sc_7499_end;
}
S_66014:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
if(qbevent){evnt(25769,596,"ide_export.bas");if(r)goto S_66014;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,596,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,596,"ide_export.bas");}while(r);
sc_ec_602_end:;
goto sc_7499_end;
}
S_66017:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(25769,597,"ide_export.bas");if(r)goto S_66017;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs__tostr((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,597,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(25769,597,"ide_export.bas");}while(r);
sc_ec_603_end:;
goto sc_7499_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,598,"ide_export.bas");}while(r);
sc_7499_end:;
sc_ec_604_end:;
goto sc_7495_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,600,"ide_export.bas");}while(r);
sc_7495_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1);
if(!qbevent)break;evnt(25769,602,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,602,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,603,"ide_export.bas");}while(r);
LABEL_ENDLINEOPS:;
if(qbevent){evnt(25769,605,"ide_export.bas");r=0;}
S_66029:;
qbs_set(sc_7502,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25769,606,"ide_export.bas");if(r)goto S_66029;}
S_66030:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7502,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(25769,607,"ide_export.bas");if(r)goto S_66030;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,607,"ide_export.bas");}while(r);
sc_ec_605_end:;
goto sc_7502_end;
}
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,608,"ide_export.bas");}while(r);
sc_7502_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(25769,610,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,610,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,611,"ide_export.bas");}while(r);
LABEL_GETTHEMECOLORS:;
if(qbevent){evnt(25769,613,"ide_export.bas");r=0;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,614,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("\\red",4),qbs__tostr((int32)(func__red32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,615,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,616,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,617,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,618,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,619,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,620,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,621,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,622,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,623,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,624,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,625,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,626,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,627,"ide_export.bas");}while(r);
do{
#include "ret399.txt"
if(!qbevent)break;evnt(25769,628,"ide_export.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free399.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
