#line 1 "ide/ide_export.bas"
void SUB_EXPORTCODEAS(qbs*_SUB_EXPORTCODEAS_STRING_DOCFORMAT){
#line 1 "ide/ide_export.bas"
qbs *tqbs;
#line 1 "ide/ide_export.bas"
ptrszint tmp_long;
#line 1 "ide/ide_export.bas"
int32 tmp_fileno;
#line 1 "ide/ide_export.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 1 "ide/ide_export.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 1 "ide/ide_export.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 1 "ide/ide_export.bas"
#include "data504.txt"
#line 1 "ide/ide_export.bas"
mem_lock *sf_mem_lock;
#line 1 "ide/ide_export.bas"
new_mem_lock();
#line 1 "ide/ide_export.bas"
sf_mem_lock=mem_lock_tmp;
#line 1 "ide/ide_export.bas"
sf_mem_lock->type=3;
#line 1 "ide/ide_export.bas"
libqb_check_stack();
#line 1 "ide/ide_export.bas"
if (is_error_pending()) goto exit_subfunc;
#line 15 "ide/ide_export.bas"
do{
#line 15 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,__STRING_IDEPROGNAME);
#line 15 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,15,"ide_export.bas");}while(r);
#line 15 "ide/ide_export.bas"
S_70701:;
#line 15 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_new_txt_len("",0))))||is_error_pending()){
#line 15 "ide/ide_export.bas"
if(qbevent){evnt(28819,15,"ide_export.bas");if(r)goto S_70701;}
#line 15 "ide/ide_export.bas"
do{
#line 15 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_add(qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)));
#line 15 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,15,"ide_export.bas");}while(r);
#line 15 "ide/ide_export.bas"
}
#line 16 "ide/ide_export.bas"
S_70704:;
#line 16 "ide/ide_export.bas"
qbs_set(sc_7401,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 16 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16 "ide/ide_export.bas"
if(qbevent){evnt(28819,16,"ide_export.bas");if(r)goto S_70704;}
#line 17 "ide/ide_export.bas"
S_70705:;
#line 17 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7401,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 17 "ide/ide_export.bas"
if(qbevent){evnt(28819,17,"ide_export.bas");if(r)goto S_70705;}
#line 17 "ide/ide_export.bas"
do{
#line 17 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".htm",4));
#line 17 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,17,"ide_export.bas");}while(r);
#line 18 "ide/ide_export.bas"
sc_ec_488_end:;
#line 18 "ide/ide_export.bas"
goto sc_7401_end;
#line 18 "ide/ide_export.bas"
}
#line 18 "ide/ide_export.bas"
S_70707:;
#line 18 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7401,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 18 "ide/ide_export.bas"
if(qbevent){evnt(28819,18,"ide_export.bas");if(r)goto S_70707;}
#line 18 "ide/ide_export.bas"
do{
#line 18 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".rtf",4));
#line 18 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,18,"ide_export.bas");}while(r);
#line 19 "ide/ide_export.bas"
sc_ec_489_end:;
#line 19 "ide/ide_export.bas"
goto sc_7401_end;
#line 19 "ide/ide_export.bas"
}
#line 19 "ide/ide_export.bas"
do{
#line 19 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0));
#line 19 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,19,"ide_export.bas");}while(r);
#line 20 "ide/ide_export.bas"
sc_7401_end:;
#line 21 "ide/ide_export.bas"
S_70712:;
#line 21 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0))))||is_error_pending()){
#line 21 "ide/ide_export.bas"
if(qbevent){evnt(28819,21,"ide_export.bas");if(r)goto S_70712;}
#line 22 "ide/ide_export.bas"
S_70713:;
#line 22 "ide/ide_export.bas"
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()){
#line 22 "ide/ide_export.bas"
if(qbevent){evnt(28819,22,"ide_export.bas");if(r)goto S_70713;}
#line 23 "ide/ide_export.bas"
S_70714:;
#line 23 "ide/ide_export.bas"
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()){
#line 23 "ide/ide_export.bas"
if(qbevent){evnt(28819,23,"ide_export.bas");if(r)goto S_70714;}
#line 23 "ide/ide_export.bas"
do{
#line 23 "ide/ide_export.bas"
goto exit_subfunc;
#line 23 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,23,"ide_export.bas");}while(r);
#line 23 "ide/ide_export.bas"
}
#line 24 "ide/ide_export.bas"
}
#line 25 "ide/ide_export.bas"
}
#line 26 "ide/ide_export.bas"
do{
#line 26 "ide/ide_export.bas"
return_point[next_return_point++]=205;
#line 26 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 26 "ide/ide_export.bas"
goto LABEL_GETTHEMECOLORS;
#line 26 "ide/ide_export.bas"
RETURN_205:;
#line 26 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,26,"ide_export.bas");}while(r);
#line 27 "ide/ide_export.bas"
do{
#line 27 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,func_chr( 10 ));
#line 27 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,27,"ide_export.bas");}while(r);
#line 28 "ide/ide_export.bas"
S_70721:;
#line 28 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)== 0 )))||is_error_pending()){
#line 28 "ide/ide_export.bas"
if(qbevent){evnt(28819,28,"ide_export.bas");if(r)goto S_70721;}
#line 28 "ide/ide_export.bas"
do{
#line 28 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,qbs_add(func_chr( 13 ),_SUB_EXPORTCODEAS_STRING_CEOL));
#line 28 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,28,"ide_export.bas");}while(r);
#line 28 "ide/ide_export.bas"
}
#line 30 "ide/ide_export.bas"
do{
#line 30 "ide/ide_export.bas"
sub_pcopy( 3 , 2 );
#line 30 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,30,"ide_export.bas");}while(r);
#line 30 "ide/ide_export.bas"
do{
#line 30 "ide/ide_export.bas"
qbg_screen(NULL,NULL, 3 , 0 ,NULL,12);
#line 30 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,30,"ide_export.bas");}while(r);
#line 31 "ide/ide_export.bas"
do{
#line 31 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_GETSELECTEDTEXT(&(pass7402= -1 )));
#line 31 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 31 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,31,"ide_export.bas");}while(r);
#line 32 "ide/ide_export.bas"
S_70727:;
#line 32 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
#line 32 "ide/ide_export.bas"
if(qbevent){evnt(28819,32,"ide_export.bas");if(r)goto S_70727;}
#line 33 "ide/ide_export.bas"
S_70728:;
#line 33 "ide/ide_export.bas"
fornext_value7404= 1 ;
#line 33 "ide/ide_export.bas"
fornext_finalvalue7404=*__LONG_IDEN;
#line 33 "ide/ide_export.bas"
fornext_step7404= 1 ;
#line 33 "ide/ide_export.bas"
if (fornext_step7404<0) fornext_step_negative7404=1; else fornext_step_negative7404=0;
#line 33 "ide/ide_export.bas"
if (is_error_pending()) goto fornext_error7404;
#line 33 "ide/ide_export.bas"
goto fornext_entrylabel7404;
#line 33 "ide/ide_export.bas"
while(1){
#line 33 "ide/ide_export.bas"
fornext_value7404=fornext_step7404+(*_SUB_EXPORTCODEAS_LONG_I);
#line 33 "ide/ide_export.bas"
fornext_entrylabel7404:
#line 33 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_I=fornext_value7404;
#line 33 "ide/ide_export.bas"
if (fornext_step_negative7404){
#line 33 "ide/ide_export.bas"
if (fornext_value7404<fornext_finalvalue7404) break;
#line 33 "ide/ide_export.bas"
}else{
#line 33 "ide/ide_export.bas"
if (fornext_value7404>fornext_finalvalue7404) break;
#line 33 "ide/ide_export.bas"
}
#line 33 "ide/ide_export.bas"
fornext_error7404:;
#line 33 "ide/ide_export.bas"
if(qbevent){evnt(28819,33,"ide_export.bas");if(r)goto S_70728;}
#line 34 "ide/ide_export.bas"
do{
#line 34 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_IDEGETLINE(_SUB_EXPORTCODEAS_LONG_I)),_SUB_EXPORTCODEAS_STRING_CEOL));
#line 34 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 34 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,34,"ide_export.bas");}while(r);
#line 35 "ide/ide_export.bas"
do{
#line 35 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,qbs__tostr((long double)(std::floor( 30 / ((long double)(*__LONG_IDEN))**_SUB_EXPORTCODEAS_LONG_I)),NULL,0));
#line 35 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 35 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,35,"ide_export.bas");}while(r);
#line 36 "ide/ide_export.bas"
do{
#line 36 "ide/ide_export.bas"
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)));
#line 36 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 36 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,36,"ide_export.bas");}while(r);
#line 37 "ide/ide_export.bas"
do{
#line 37 "ide/ide_export.bas"
SUB_UPDATEIDEINFO();
#line 37 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,37,"ide_export.bas");}while(r);
#line 38 "ide/ide_export.bas"
fornext_continue_7403:;
#line 38 "ide/ide_export.bas"
}
#line 38 "ide/ide_export.bas"
fornext_exit_7403:;
#line 39 "ide/ide_export.bas"
S_70734:;
#line 39 "ide/ide_export.bas"
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()){
#line 39 "ide/ide_export.bas"
if(qbevent){evnt(28819,39,"ide_export.bas");if(r)goto S_70734;}
#line 40 "ide/ide_export.bas"
do{
#line 40 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_left(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_STXT->len-_SUB_EXPORTCODEAS_STRING_CEOL->len));
#line 40 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 40 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,40,"ide_export.bas");}while(r);
#line 41 "ide/ide_export.bas"
ww_continue_7406:;
#line 41 "ide/ide_export.bas"
}
#line 41 "ide/ide_export.bas"
ww_exit_7406:;
#line 42 "ide/ide_export.bas"
}
#line 43 "ide/ide_export.bas"
S_70738:;
#line 43 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
#line 43 "ide/ide_export.bas"
if(qbevent){evnt(28819,43,"ide_export.bas");if(r)goto S_70738;}
#line 43 "ide/ide_export.bas"
do{
#line 43 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL));
#line 43 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 43 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,43,"ide_export.bas");}while(r);
#line 43 "ide/ide_export.bas"
}else{
#line 43 "ide/ide_export.bas"
do{
#line 43 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL),_SUB_EXPORTCODEAS_STRING_CEOL));
#line 43 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 43 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,43,"ide_export.bas");}while(r);
#line 43 "ide/ide_export.bas"
}
#line 44 "ide/ide_export.bas"
do{
#line 44 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_SLEN=_SUB_EXPORTCODEAS_STRING_STXT->len;
#line 44 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 44 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,44,"ide_export.bas");}while(r);
#line 45 "ide/ide_export.bas"
do{
#line 45 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_SPOS= 1 ;
#line 45 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,45,"ide_export.bas");}while(r);
#line 46 "ide/ide_export.bas"
do{
#line 46 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 ));
#line 46 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 46 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,46,"ide_export.bas");}while(r);
#line 47 "ide/ide_export.bas"
do{
#line 47 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS= 1 ;
#line 47 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,47,"ide_export.bas");}while(r);
#line 49 "ide/ide_export.bas"
do{
#line 49 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 49 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,49,"ide_export.bas");}while(r);
#line 50 "ide/ide_export.bas"
do{
#line 50 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("",0));
#line 50 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 50 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,50,"ide_export.bas");}while(r);
#line 52 "ide/ide_export.bas"
do{
#line 52 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
#line 52 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,52,"ide_export.bas");}while(r);
#line 53 "ide/ide_export.bas"
do{
#line 53 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
#line 53 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,53,"ide_export.bas");}while(r);
#line 54 "ide/ide_export.bas"
do{
#line 54 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
#line 54 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,54,"ide_export.bas");}while(r);
#line 55 "ide/ide_export.bas"
do{
#line 55 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 55 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,55,"ide_export.bas");}while(r);
#line 56 "ide/ide_export.bas"
do{
#line 56 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 56 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,56,"ide_export.bas");}while(r);
#line 57 "ide/ide_export.bas"
do{
#line 57 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
#line 57 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,57,"ide_export.bas");}while(r);
#line 59 "ide/ide_export.bas"
do{
#line 59 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
#line 59 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,59,"ide_export.bas");}while(r);
#line 60 "ide/ide_export.bas"
do{
#line 60 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_MA,qbs_new_txt_len("@_ARCCOT@_ARCCSC@_ARCSEC@_COT@_COTH@_COSH@_CSC@_CSCH@_SEC@_SECH@_SINH@_TANH@",76));
#line 60 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 60 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,60,"ide_export.bas");}while(r);
#line 61 "ide/ide_export.bas"
do{
#line 61 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 61 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,61,"ide_export.bas");}while(r);
#line 62 "ide/ide_export.bas"
do{
#line 62 "ide/ide_export.bas"
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));
#line 62 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 62 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,62,"ide_export.bas");}while(r);
#line 63 "ide/ide_export.bas"
do{
#line 63 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 63 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,63,"ide_export.bas");}while(r);
#line 64 "ide/ide_export.bas"
do{
#line 64 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_BO,qbs_new_txt_len("@AND@OR@XOR@",12));
#line 64 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 64 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,64,"ide_export.bas");}while(r);
#line 66 "ide/ide_export.bas"
do{
#line 66 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
#line 66 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,66,"ide_export.bas");}while(r);
#line 67 "ide/ide_export.bas"
do{
#line 67 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
#line 67 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,67,"ide_export.bas");}while(r);
#line 68 "ide/ide_export.bas"
do{
#line 68 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
#line 68 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,68,"ide_export.bas");}while(r);
#line 69 "ide/ide_export.bas"
do{
#line 69 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
#line 69 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,69,"ide_export.bas");}while(r);
#line 70 "ide/ide_export.bas"
do{
#line 70 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
#line 70 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,70,"ide_export.bas");}while(r);
#line 71 "ide/ide_export.bas"
do{
#line 71 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
#line 71 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,71,"ide_export.bas");}while(r);
#line 72 "ide/ide_export.bas"
do{
#line 72 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 72 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,72,"ide_export.bas");}while(r);
#line 74 "ide/ide_export.bas"
do{
#line 74 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NC= 0 ;
#line 74 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,74,"ide_export.bas");}while(r);
#line 75 "ide/ide_export.bas"
do{
#line 75 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 75 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,75,"ide_export.bas");}while(r);
#line 76 "ide/ide_export.bas"
do{
#line 76 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
#line 76 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,76,"ide_export.bas");}while(r);
#line 78 "ide/ide_export.bas"
do{
#line 78 "ide/ide_export.bas"
return_point[next_return_point++]=206;
#line 78 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 78 "ide/ide_export.bas"
goto LABEL_OPENCODEBLOCK;
#line 78 "ide/ide_export.bas"
RETURN_206:;
#line 78 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,78,"ide_export.bas");}while(r);
#line 79 "ide/ide_export.bas"
S_70772:;
#line 79 "ide/ide_export.bas"
while((-(*_SUB_EXPORTCODEAS_LONG_SPOS<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 79 "ide/ide_export.bas"
if(qbevent){evnt(28819,79,"ide_export.bas");if(r)goto S_70772;}
#line 80 "ide/ide_export.bas"
do{
#line 80 "ide/ide_export.bas"
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));
#line 80 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 80 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,80,"ide_export.bas");}while(r);
#line 81 "ide/ide_export.bas"
do{
#line 81 "ide/ide_export.bas"
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)));
#line 81 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 81 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,81,"ide_export.bas");}while(r);
#line 82 "ide/ide_export.bas"
do{
#line 82 "ide/ide_export.bas"
SUB_UPDATEIDEINFO();
#line 82 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,82,"ide_export.bas");}while(r);
#line 84 "ide/ide_export.bas"
do{
#line 84 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CURR=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS);
#line 84 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 84 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,84,"ide_export.bas");}while(r);
#line 85 "ide/ide_export.bas"
S_70777:;
#line 85 "ide/ide_export.bas"
if(qbevent){evnt(28819,85,"ide_export.bas");if(r)goto S_70777;}
#line 86 "ide/ide_export.bas"
S_70778:;
#line 86 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 10 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 13 )))||is_error_pending()){
#line 86 "ide/ide_export.bas"
if(qbevent){evnt(28819,86,"ide_export.bas");if(r)goto S_70778;}
#line 87 "ide/ide_export.bas"
S_70779:;
#line 87 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_LB))||is_error_pending()){
#line 87 "ide/ide_export.bas"
if(qbevent){evnt(28819,87,"ide_export.bas");if(r)goto S_70779;}
#line 88 "ide/ide_export.bas"
S_70780:;
#line 88 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 88 "ide/ide_export.bas"
if(qbevent){evnt(28819,88,"ide_export.bas");if(r)goto S_70780;}
#line 89 "ide/ide_export.bas"
S_70781:;
#line 89 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 89 "ide/ide_export.bas"
if(qbevent){evnt(28819,89,"ide_export.bas");if(r)goto S_70781;}
#line 89 "ide/ide_export.bas"
do{
#line 89 "ide/ide_export.bas"
return_point[next_return_point++]=207;
#line 89 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 89 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 89 "ide/ide_export.bas"
RETURN_207:;
#line 89 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,89,"ide_export.bas");}while(r);
#line 89 "ide/ide_export.bas"
do{
#line 89 "ide/ide_export.bas"
return_point[next_return_point++]=208;
#line 89 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 89 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 89 "ide/ide_export.bas"
RETURN_208:;
#line 89 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,89,"ide_export.bas");}while(r);
#line 89 "ide/ide_export.bas"
}else{
#line 89 "ide/ide_export.bas"
do{
#line 89 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 89 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 89 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,89,"ide_export.bas");}while(r);
#line 89 "ide/ide_export.bas"
do{
#line 89 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 89 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,89,"ide_export.bas");}while(r);
#line 89 "ide/ide_export.bas"
}
#line 90 "ide/ide_export.bas"
do{
#line 90 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
#line 90 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,90,"ide_export.bas");}while(r);
#line 90 "ide/ide_export.bas"
do{
#line 90 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
#line 90 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,90,"ide_export.bas");}while(r);
#line 91 "ide/ide_export.bas"
}
#line 92 "ide/ide_export.bas"
S_70791:;
#line 92 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 92 "ide/ide_export.bas"
if(qbevent){evnt(28819,92,"ide_export.bas");if(r)goto S_70791;}
#line 93 "ide/ide_export.bas"
S_70792:;
#line 93 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 93 "ide/ide_export.bas"
if(qbevent){evnt(28819,93,"ide_export.bas");if(r)goto S_70792;}
#line 93 "ide/ide_export.bas"
do{
#line 93 "ide/ide_export.bas"
return_point[next_return_point++]=209;
#line 93 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 93 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 93 "ide/ide_export.bas"
RETURN_209:;
#line 93 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,93,"ide_export.bas");}while(r);
#line 93 "ide/ide_export.bas"
do{
#line 93 "ide/ide_export.bas"
return_point[next_return_point++]=210;
#line 93 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 93 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 93 "ide/ide_export.bas"
RETURN_210:;
#line 93 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,93,"ide_export.bas");}while(r);
#line 93 "ide/ide_export.bas"
}else{
#line 93 "ide/ide_export.bas"
do{
#line 93 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 93 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 93 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,93,"ide_export.bas");}while(r);
#line 93 "ide/ide_export.bas"
do{
#line 93 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 93 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,93,"ide_export.bas");}while(r);
#line 93 "ide/ide_export.bas"
}
#line 94 "ide/ide_export.bas"
do{
#line 94 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 94 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,94,"ide_export.bas");}while(r);
#line 95 "ide/ide_export.bas"
}
#line 96 "ide/ide_export.bas"
S_70801:;
#line 96 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
#line 96 "ide/ide_export.bas"
if(qbevent){evnt(28819,96,"ide_export.bas");if(r)goto S_70801;}
#line 96 "ide/ide_export.bas"
do{
#line 96 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 96 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,96,"ide_export.bas");}while(r);
#line 96 "ide/ide_export.bas"
do{
#line 96 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
#line 96 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 96 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,96,"ide_export.bas");}while(r);
#line 96 "ide/ide_export.bas"
do{
#line 96 "ide/ide_export.bas"
return_point[next_return_point++]=211;
#line 96 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 96 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 96 "ide/ide_export.bas"
RETURN_211:;
#line 96 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,96,"ide_export.bas");}while(r);
#line 96 "ide/ide_export.bas"
do{
#line 96 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
#line 96 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,96,"ide_export.bas");}while(r);
#line 96 "ide/ide_export.bas"
}
#line 97 "ide/ide_export.bas"
S_70807:;
#line 97 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_QU)||is_error_pending()){
#line 97 "ide/ide_export.bas"
if(qbevent){evnt(28819,97,"ide_export.bas");if(r)goto S_70807;}
#line 98 "ide/ide_export.bas"
do{
#line 98 "ide/ide_export.bas"
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
#line 98 "ide/ide_export.bas"
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
#line 98 "ide/ide_export.bas"
tmp_long= 34 ; if (!is_error_pending()){
#line 98 "ide/ide_export.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 98 "ide/ide_export.bas"
}}}
#line 98 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,98,"ide_export.bas");}while(r);
#line 98 "ide/ide_export.bas"
do{
#line 98 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
#line 98 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,98,"ide_export.bas");}while(r);
#line 99 "ide/ide_export.bas"
do{
#line 99 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 99 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,99,"ide_export.bas");}while(r);
#line 99 "ide/ide_export.bas"
do{
#line 99 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
#line 99 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 99 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,99,"ide_export.bas");}while(r);
#line 99 "ide/ide_export.bas"
do{
#line 99 "ide/ide_export.bas"
return_point[next_return_point++]=212;
#line 99 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 99 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 99 "ide/ide_export.bas"
RETURN_212:;
#line 99 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,99,"ide_export.bas");}while(r);
#line 99 "ide/ide_export.bas"
do{
#line 99 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
#line 99 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,99,"ide_export.bas");}while(r);
#line 100 "ide/ide_export.bas"
}
#line 101 "ide/ide_export.bas"
S_70815:;
#line 101 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 101 "ide/ide_export.bas"
if(qbevent){evnt(28819,101,"ide_export.bas");if(r)goto S_70815;}
#line 101 "ide/ide_export.bas"
do{
#line 101 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 101 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,101,"ide_export.bas");}while(r);
#line 101 "ide/ide_export.bas"
do{
#line 101 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 101 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 101 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,101,"ide_export.bas");}while(r);
#line 101 "ide/ide_export.bas"
do{
#line 101 "ide/ide_export.bas"
return_point[next_return_point++]=213;
#line 101 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 101 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 101 "ide/ide_export.bas"
RETURN_213:;
#line 101 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,101,"ide_export.bas");}while(r);
#line 101 "ide/ide_export.bas"
do{
#line 101 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 101 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,101,"ide_export.bas");}while(r);
#line 101 "ide/ide_export.bas"
}
#line 102 "ide/ide_export.bas"
S_70821:;
#line 102 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_LONG_SPOS> 1 ))||is_error_pending()){
#line 102 "ide/ide_export.bas"
if(qbevent){evnt(28819,102,"ide_export.bas");if(r)goto S_70821;}
#line 103 "ide/ide_export.bas"
S_70822:;
#line 103 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 )!= 95 )))||is_error_pending()){
#line 103 "ide/ide_export.bas"
if(qbevent){evnt(28819,103,"ide_export.bas");if(r)goto S_70822;}
#line 103 "ide/ide_export.bas"
do{
#line 103 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
#line 103 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,103,"ide_export.bas");}while(r);
#line 103 "ide/ide_export.bas"
do{
#line 103 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 103 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,103,"ide_export.bas");}while(r);
#line 103 "ide/ide_export.bas"
do{
#line 103 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 103 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,103,"ide_export.bas");}while(r);
#line 103 "ide/ide_export.bas"
}
#line 104 "ide/ide_export.bas"
}else{
#line 105 "ide/ide_export.bas"
do{
#line 105 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
#line 105 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,105,"ide_export.bas");}while(r);
#line 105 "ide/ide_export.bas"
do{
#line 105 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 105 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,105,"ide_export.bas");}while(r);
#line 105 "ide/ide_export.bas"
do{
#line 105 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 105 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,105,"ide_export.bas");}while(r);
#line 106 "ide/ide_export.bas"
}
#line 107 "ide/ide_export.bas"
do{
#line 107 "ide/ide_export.bas"
return_point[next_return_point++]=214;
#line 107 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 107 "ide/ide_export.bas"
goto LABEL_ENDLINEOPS;
#line 107 "ide/ide_export.bas"
RETURN_214:;
#line 107 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,107,"ide_export.bas");}while(r);
#line 108 "ide/ide_export.bas"
S_70833:;
#line 108 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 13 ))||is_error_pending()){
#line 108 "ide/ide_export.bas"
if(qbevent){evnt(28819,108,"ide_export.bas");if(r)goto S_70833;}
#line 108 "ide/ide_export.bas"
do{
#line 108 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LB= -1 ;
#line 108 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,108,"ide_export.bas");}while(r);
#line 108 "ide/ide_export.bas"
}
#line 109 "ide/ide_export.bas"
}
#line 110 "ide/ide_export.bas"
S_70837:;
#line 110 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 10 ))||is_error_pending()){
#line 110 "ide/ide_export.bas"
if(qbevent){evnt(28819,110,"ide_export.bas");if(r)goto S_70837;}
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
do{
#line 110 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 110 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,110,"ide_export.bas");}while(r);
#line 110 "ide/ide_export.bas"
}
#line 111 "ide/ide_export.bas"
sc_ec_490_end:;
#line 111 "ide/ide_export.bas"
goto sc_7413_end;
#line 111 "ide/ide_export.bas"
}
#line 111 "ide/ide_export.bas"
S_70845:;
#line 111 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 9 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 32 )))||is_error_pending()){
#line 111 "ide/ide_export.bas"
if(qbevent){evnt(28819,111,"ide_export.bas");if(r)goto S_70845;}
#line 112 "ide/ide_export.bas"
S_70846:;
#line 112 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 112 "ide/ide_export.bas"
if(qbevent){evnt(28819,112,"ide_export.bas");if(r)goto S_70846;}
#line 113 "ide/ide_export.bas"
do{
#line 113 "ide/ide_export.bas"
return_point[next_return_point++]=215;
#line 113 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 113 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 113 "ide/ide_export.bas"
RETURN_215:;
#line 113 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,113,"ide_export.bas");}while(r);
#line 113 "ide/ide_export.bas"
do{
#line 113 "ide/ide_export.bas"
return_point[next_return_point++]=216;
#line 113 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 113 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 113 "ide/ide_export.bas"
RETURN_216:;
#line 113 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,113,"ide_export.bas");}while(r);
#line 113 "ide/ide_export.bas"
do{
#line 113 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
#line 113 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,113,"ide_export.bas");}while(r);
#line 113 "ide/ide_export.bas"
do{
#line 113 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
#line 113 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,113,"ide_export.bas");}while(r);
#line 114 "ide/ide_export.bas"
S_70851:;
#line 114 "ide/ide_export.bas"
qbs_set(sc_7414,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
#line 114 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 114 "ide/ide_export.bas"
if(qbevent){evnt(28819,114,"ide_export.bas");if(r)goto S_70851;}
#line 115 "ide/ide_export.bas"
S_70852:;
#line 115 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7414,qbs_new_txt_len("$LET",4))||qbs_equal(sc_7414,qbs_new_txt_len("$ELSE",5))||qbs_equal(sc_7414,qbs_new_txt_len("$END",4))))||is_error_pending()){
#line 115 "ide/ide_export.bas"
if(qbevent){evnt(28819,115,"ide_export.bas");if(r)goto S_70852;}
#line 115 "ide/ide_export.bas"
do{
#line 115 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
#line 115 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,115,"ide_export.bas");}while(r);
#line 116 "ide/ide_export.bas"
sc_ec_491_end:;
#line 116 "ide/ide_export.bas"
goto sc_7414_end;
#line 116 "ide/ide_export.bas"
}
#line 116 "ide/ide_export.bas"
S_70854:;
#line 116 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7414,qbs_new_txt_len("$IF",3))||qbs_equal(sc_7414,qbs_new_txt_len("$ELSEIF",7))))||is_error_pending()){
#line 116 "ide/ide_export.bas"
if(qbevent){evnt(28819,116,"ide_export.bas");if(r)goto S_70854;}
#line 116 "ide/ide_export.bas"
do{
#line 116 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
#line 116 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,116,"ide_export.bas");}while(r);
#line 116 "ide/ide_export.bas"
do{
#line 116 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 116 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,116,"ide_export.bas");}while(r);
#line 117 "ide/ide_export.bas"
sc_ec_492_end:;
#line 117 "ide/ide_export.bas"
goto sc_7414_end;
#line 117 "ide/ide_export.bas"
}
#line 117 "ide/ide_export.bas"
sc_7414_end:;
#line 118 "ide/ide_export.bas"
}
#line 119 "ide/ide_export.bas"
S_70859:;
#line 119 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 119 "ide/ide_export.bas"
if(qbevent){evnt(28819,119,"ide_export.bas");if(r)goto S_70859;}
#line 120 "ide/ide_export.bas"
S_70860:;
#line 120 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 120 "ide/ide_export.bas"
if(qbevent){evnt(28819,120,"ide_export.bas");if(r)goto S_70860;}
#line 120 "ide/ide_export.bas"
do{
#line 120 "ide/ide_export.bas"
return_point[next_return_point++]=217;
#line 120 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 120 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 120 "ide/ide_export.bas"
RETURN_217:;
#line 120 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,120,"ide_export.bas");}while(r);
#line 120 "ide/ide_export.bas"
do{
#line 120 "ide/ide_export.bas"
return_point[next_return_point++]=218;
#line 120 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 120 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 120 "ide/ide_export.bas"
RETURN_218:;
#line 120 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,120,"ide_export.bas");}while(r);
#line 120 "ide/ide_export.bas"
}else{
#line 120 "ide/ide_export.bas"
do{
#line 120 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 120 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 120 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,120,"ide_export.bas");}while(r);
#line 120 "ide/ide_export.bas"
do{
#line 120 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 120 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,120,"ide_export.bas");}while(r);
#line 120 "ide/ide_export.bas"
}
#line 121 "ide/ide_export.bas"
do{
#line 121 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 121 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,121,"ide_export.bas");}while(r);
#line 121 "ide/ide_export.bas"
S_70868:;
#line 121 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_IN)||is_error_pending()){
#line 121 "ide/ide_export.bas"
if(qbevent){evnt(28819,121,"ide_export.bas");if(r)goto S_70868;}
#line 121 "ide/ide_export.bas"
do{
#line 121 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 121 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,121,"ide_export.bas");}while(r);
#line 121 "ide/ide_export.bas"
}
#line 122 "ide/ide_export.bas"
S_70871:;
#line 122 "ide/ide_export.bas"
qbs_set(sc_7415,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
#line 122 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 122 "ide/ide_export.bas"
if(qbevent){evnt(28819,122,"ide_export.bas");if(r)goto S_70871;}
#line 123 "ide/ide_export.bas"
S_70872:;
#line 123 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7415,qbs_new_txt_len("REM",3))))||is_error_pending()){
#line 123 "ide/ide_export.bas"
if(qbevent){evnt(28819,123,"ide_export.bas");if(r)goto S_70872;}
#line 123 "ide/ide_export.bas"
S_70873:;
#line 123 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 123 "ide/ide_export.bas"
if(qbevent){evnt(28819,123,"ide_export.bas");if(r)goto S_70873;}
#line 123 "ide/ide_export.bas"
do{
#line 123 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
#line 123 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,123,"ide_export.bas");}while(r);
#line 123 "ide/ide_export.bas"
do{
#line 123 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
#line 123 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 123 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,123,"ide_export.bas");}while(r);
#line 123 "ide/ide_export.bas"
do{
#line 123 "ide/ide_export.bas"
return_point[next_return_point++]=219;
#line 123 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 123 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 123 "ide/ide_export.bas"
RETURN_219:;
#line 123 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,123,"ide_export.bas");}while(r);
#line 123 "ide/ide_export.bas"
}
#line 124 "ide/ide_export.bas"
sc_ec_493_end:;
#line 124 "ide/ide_export.bas"
goto sc_7415_end;
#line 124 "ide/ide_export.bas"
}
#line 124 "ide/ide_export.bas"
S_70878:;
#line 124 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7415,qbs_new_txt_len("DATA",4))))||is_error_pending()){
#line 124 "ide/ide_export.bas"
if(qbevent){evnt(28819,124,"ide_export.bas");if(r)goto S_70878;}
#line 124 "ide/ide_export.bas"
do{
#line 124 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_DL= -1 ;
#line 124 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,124,"ide_export.bas");}while(r);
#line 125 "ide/ide_export.bas"
sc_ec_494_end:;
#line 125 "ide/ide_export.bas"
goto sc_7415_end;
#line 125 "ide/ide_export.bas"
}
#line 125 "ide/ide_export.bas"
S_70880:;
#line 125 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7415,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
#line 125 "ide/ide_export.bas"
if(qbevent){evnt(28819,125,"ide_export.bas");if(r)goto S_70880;}
#line 125 "ide/ide_export.bas"
do{
#line 125 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_OP= -1 ;
#line 125 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,125,"ide_export.bas");}while(r);
#line 126 "ide/ide_export.bas"
sc_ec_495_end:;
#line 126 "ide/ide_export.bas"
goto sc_7415_end;
#line 126 "ide/ide_export.bas"
}
#line 126 "ide/ide_export.bas"
S_70882:;
#line 126 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7415,qbs_new_txt_len("CASE",4))||qbs_equal(sc_7415,qbs_new_txt_len("IF",2))||qbs_equal(sc_7415,qbs_new_txt_len("ELSEIF",6))||qbs_equal(sc_7415,qbs_new_txt_len("UNTIL",5))||qbs_equal(sc_7415,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 126 "ide/ide_export.bas"
if(qbevent){evnt(28819,126,"ide_export.bas");if(r)goto S_70882;}
#line 126 "ide/ide_export.bas"
do{
#line 126 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 126 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,126,"ide_export.bas");}while(r);
#line 126 "ide/ide_export.bas"
do{
#line 126 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 126 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,126,"ide_export.bas");}while(r);
#line 127 "ide/ide_export.bas"
sc_ec_496_end:;
#line 127 "ide/ide_export.bas"
goto sc_7415_end;
#line 127 "ide/ide_export.bas"
}
#line 127 "ide/ide_export.bas"
S_70885:;
#line 127 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7415,qbs_new_txt_len("THEN",4))||qbs_equal(sc_7415,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 127 "ide/ide_export.bas"
if(qbevent){evnt(28819,127,"ide_export.bas");if(r)goto S_70885;}
#line 127 "ide/ide_export.bas"
do{
#line 127 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 127 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,127,"ide_export.bas");}while(r);
#line 127 "ide/ide_export.bas"
do{
#line 127 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 127 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,127,"ide_export.bas");}while(r);
#line 128 "ide/ide_export.bas"
sc_ec_497_end:;
#line 128 "ide/ide_export.bas"
goto sc_7415_end;
#line 128 "ide/ide_export.bas"
}
#line 129 "ide/ide_export.bas"
S_70889:;
#line 129 "ide/ide_export.bas"
fornext_value7417= 1 ;
#line 129 "ide/ide_export.bas"
fornext_finalvalue7417=*__LONG_IDN;
#line 129 "ide/ide_export.bas"
fornext_step7417= 1 ;
#line 129 "ide/ide_export.bas"
if (fornext_step7417<0) fornext_step_negative7417=1; else fornext_step_negative7417=0;
#line 129 "ide/ide_export.bas"
if (is_error_pending()) goto fornext_error7417;
#line 129 "ide/ide_export.bas"
goto fornext_entrylabel7417;
#line 129 "ide/ide_export.bas"
while(1){
#line 129 "ide/ide_export.bas"
fornext_value7417=fornext_step7417+(*_SUB_EXPORTCODEAS_LONG_I);
#line 129 "ide/ide_export.bas"
fornext_entrylabel7417:
#line 129 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_I=fornext_value7417;
#line 129 "ide/ide_export.bas"
if (fornext_step_negative7417){
#line 129 "ide/ide_export.bas"
if (fornext_value7417<fornext_finalvalue7417) break;
#line 129 "ide/ide_export.bas"
}else{
#line 129 "ide/ide_export.bas"
if (fornext_value7417>fornext_finalvalue7417) break;
#line 129 "ide/ide_export.bas"
}
#line 129 "ide/ide_export.bas"
fornext_error7417:;
#line 129 "ide/ide_export.bas"
if(qbevent){evnt(28819,129,"ide_export.bas");if(r)goto S_70889;}
#line 130 "ide/ide_export.bas"
S_70890:;
#line 130 "ide/ide_export.bas"
if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+548)))== 2 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))> 0 )))||is_error_pending()){
#line 130 "ide/ide_export.bas"
if(qbevent){evnt(28819,130,"ide_export.bas");if(r)goto S_70890;}
#line 131 "ide/ide_export.bas"
do{
#line 131 "ide/ide_export.bas"
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]))*2973+0))),256,1)));
#line 131 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 131 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,131,"ide_export.bas");}while(r);
#line 131 "ide/ide_export.bas"
do{
#line 131 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_UW,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
#line 131 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 131 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,131,"ide_export.bas");}while(r);
#line 132 "ide/ide_export.bas"
S_70893:;
#line 132 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,_SUB_EXPORTCODEAS_STRING_UW)))||is_error_pending()){
#line 132 "ide/ide_export.bas"
if(qbevent){evnt(28819,132,"ide_export.bas");if(r)goto S_70893;}
#line 132 "ide/ide_export.bas"
do{
#line 132 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -2 ;
#line 132 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,132,"ide_export.bas");}while(r);
#line 132 "ide/ide_export.bas"
do{
#line 132 "ide/ide_export.bas"
goto fornext_exit_7416;
#line 132 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,132,"ide_export.bas");}while(r);
#line 132 "ide/ide_export.bas"
}
#line 133 "ide/ide_export.bas"
}
#line 134 "ide/ide_export.bas"
fornext_continue_7416:;
#line 134 "ide/ide_export.bas"
}
#line 134 "ide/ide_export.bas"
fornext_exit_7416:;
#line 135 "ide/ide_export.bas"
sc_7415_end:;
#line 136 "ide/ide_export.bas"
}
#line 137 "ide/ide_export.bas"
S_70901:;
#line 137 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 137 "ide/ide_export.bas"
if(qbevent){evnt(28819,137,"ide_export.bas");if(r)goto S_70901;}
#line 137 "ide/ide_export.bas"
do{
#line 137 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 137 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,137,"ide_export.bas");}while(r);
#line 137 "ide/ide_export.bas"
do{
#line 137 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 137 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 137 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,137,"ide_export.bas");}while(r);
#line 137 "ide/ide_export.bas"
do{
#line 137 "ide/ide_export.bas"
return_point[next_return_point++]=220;
#line 137 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 137 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 137 "ide/ide_export.bas"
RETURN_220:;
#line 137 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,137,"ide_export.bas");}while(r);
#line 137 "ide/ide_export.bas"
do{
#line 137 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 137 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,137,"ide_export.bas");}while(r);
#line 137 "ide/ide_export.bas"
}
#line 138 "ide/ide_export.bas"
do{
#line 138 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 138 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,138,"ide_export.bas");}while(r);
#line 139 "ide/ide_export.bas"
sc_ec_498_end:;
#line 139 "ide/ide_export.bas"
goto sc_7413_end;
#line 139 "ide/ide_export.bas"
}
#line 139 "ide/ide_export.bas"
S_70908:;
#line 139 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
#line 139 "ide/ide_export.bas"
if(qbevent){evnt(28819,139,"ide_export.bas");if(r)goto S_70908;}
#line 140 "ide/ide_export.bas"
S_70909:;
#line 140 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 140 "ide/ide_export.bas"
if(qbevent){evnt(28819,140,"ide_export.bas");if(r)goto S_70909;}
#line 141 "ide/ide_export.bas"
do{
#line 141 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_QU= -1 ;
#line 141 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,141,"ide_export.bas");}while(r);
#line 141 "ide/ide_export.bas"
do{
#line 141 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
#line 141 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 141 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,141,"ide_export.bas");}while(r);
#line 141 "ide/ide_export.bas"
do{
#line 141 "ide/ide_export.bas"
return_point[next_return_point++]=221;
#line 141 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 141 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 141 "ide/ide_export.bas"
RETURN_221:;
#line 141 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,141,"ide_export.bas");}while(r);
#line 142 "ide/ide_export.bas"
S_70913:;
#line 142 "ide/ide_export.bas"
}else{
#line 142 "ide/ide_export.bas"
if (*_SUB_EXPORTCODEAS_INTEGER_QU){
#line 142 "ide/ide_export.bas"
if(qbevent){evnt(28819,142,"ide_export.bas");if(r)goto S_70913;}
#line 143 "ide/ide_export.bas"
do{
#line 143 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= -1 ;
#line 143 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,143,"ide_export.bas");}while(r);
#line 143 "ide/ide_export.bas"
do{
#line 143 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
#line 143 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 143 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,143,"ide_export.bas");}while(r);
#line 143 "ide/ide_export.bas"
do{
#line 143 "ide/ide_export.bas"
return_point[next_return_point++]=222;
#line 143 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 143 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 143 "ide/ide_export.bas"
RETURN_222:;
#line 143 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,143,"ide_export.bas");}while(r);
#line 143 "ide/ide_export.bas"
do{
#line 143 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
#line 143 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,143,"ide_export.bas");}while(r);
#line 144 "ide/ide_export.bas"
}
#line 144 "ide/ide_export.bas"
}
#line 145 "ide/ide_export.bas"
S_70919:;
#line 145 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
#line 145 "ide/ide_export.bas"
if(qbevent){evnt(28819,145,"ide_export.bas");if(r)goto S_70919;}
#line 145 "ide/ide_export.bas"
do{
#line 145 "ide/ide_export.bas"
return_point[next_return_point++]=223;
#line 145 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 145 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 145 "ide/ide_export.bas"
RETURN_223:;
#line 145 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,145,"ide_export.bas");}while(r);
#line 145 "ide/ide_export.bas"
}
#line 146 "ide/ide_export.bas"
sc_ec_499_end:;
#line 146 "ide/ide_export.bas"
goto sc_7413_end;
#line 146 "ide/ide_export.bas"
}
#line 146 "ide/ide_export.bas"
S_70922:;
#line 146 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 36 )))||is_error_pending()){
#line 146 "ide/ide_export.bas"
if(qbevent){evnt(28819,146,"ide_export.bas");if(r)goto S_70922;}
#line 147 "ide/ide_export.bas"
S_70923:;
#line 147 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NL|*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
#line 147 "ide/ide_export.bas"
if(qbevent){evnt(28819,147,"ide_export.bas");if(r)goto S_70923;}
#line 147 "ide/ide_export.bas"
do{
#line 147 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ML= -1 ;
#line 147 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,147,"ide_export.bas");}while(r);
#line 147 "ide/ide_export.bas"
do{
#line 147 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ME= -1 ;
#line 147 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,147,"ide_export.bas");}while(r);
#line 147 "ide/ide_export.bas"
do{
#line 147 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 147 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 147 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,147,"ide_export.bas");}while(r);
#line 147 "ide/ide_export.bas"
do{
#line 147 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 147 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,147,"ide_export.bas");}while(r);
#line 147 "ide/ide_export.bas"
}
#line 148 "ide/ide_export.bas"
sc_ec_500_end:;
#line 148 "ide/ide_export.bas"
goto sc_7413_end;
#line 148 "ide/ide_export.bas"
}
#line 148 "ide/ide_export.bas"
S_70929:;
#line 148 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
#line 148 "ide/ide_export.bas"
if(qbevent){evnt(28819,148,"ide_export.bas");if(r)goto S_70929;}
#line 149 "ide/ide_export.bas"
S_70930:;
#line 149 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
#line 149 "ide/ide_export.bas"
if(qbevent){evnt(28819,149,"ide_export.bas");if(r)goto S_70930;}
#line 150 "ide/ide_export.bas"
S_70931:;
#line 150 "ide/ide_export.bas"
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 150 "ide/ide_export.bas"
if(qbevent){evnt(28819,150,"ide_export.bas");if(r)goto S_70931;}
#line 151 "ide/ide_export.bas"
S_70932:;
#line 151 "ide/ide_export.bas"
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()){
#line 151 "ide/ide_export.bas"
if(qbevent){evnt(28819,151,"ide_export.bas");if(r)goto S_70932;}
#line 152 "ide/ide_export.bas"
do{
#line 152 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
#line 152 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,152,"ide_export.bas");}while(r);
#line 152 "ide/ide_export.bas"
do{
#line 152 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 152 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 152 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,152,"ide_export.bas");}while(r);
#line 152 "ide/ide_export.bas"
do{
#line 152 "ide/ide_export.bas"
return_point[next_return_point++]=224;
#line 152 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 152 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 152 "ide/ide_export.bas"
RETURN_224:;
#line 152 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,152,"ide_export.bas");}while(r);
#line 152 "ide/ide_export.bas"
do{
#line 152 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 152 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,152,"ide_export.bas");}while(r);
#line 153 "ide/ide_export.bas"
}
#line 154 "ide/ide_export.bas"
}
#line 155 "ide/ide_export.bas"
}
#line 156 "ide/ide_export.bas"
S_70940:;
#line 156 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_KW)))||is_error_pending()){
#line 156 "ide/ide_export.bas"
if(qbevent){evnt(28819,156,"ide_export.bas");if(r)goto S_70940;}
#line 156 "ide/ide_export.bas"
do{
#line 156 "ide/ide_export.bas"
return_point[next_return_point++]=225;
#line 156 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 156 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 156 "ide/ide_export.bas"
RETURN_225:;
#line 156 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,156,"ide_export.bas");}while(r);
#line 156 "ide/ide_export.bas"
}
#line 157 "ide/ide_export.bas"
sc_ec_501_end:;
#line 157 "ide/ide_export.bas"
goto sc_7413_end;
#line 157 "ide/ide_export.bas"
}
#line 157 "ide/ide_export.bas"
S_70943:;
#line 157 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 39 )))||is_error_pending()){
#line 157 "ide/ide_export.bas"
if(qbevent){evnt(28819,157,"ide_export.bas");if(r)goto S_70943;}
#line 158 "ide/ide_export.bas"
S_70944:;
#line 158 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NL)||is_error_pending()){
#line 158 "ide/ide_export.bas"
if(qbevent){evnt(28819,158,"ide_export.bas");if(r)goto S_70944;}
#line 159 "ide/ide_export.bas"
S_70945:;
#line 159 "ide/ide_export.bas"
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 159 "ide/ide_export.bas"
if(qbevent){evnt(28819,159,"ide_export.bas");if(r)goto S_70945;}
#line 160 "ide/ide_export.bas"
S_70946:;
#line 160 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )== 36 )))||is_error_pending()){
#line 160 "ide/ide_export.bas"
if(qbevent){evnt(28819,160,"ide_export.bas");if(r)goto S_70946;}
#line 160 "ide/ide_export.bas"
do{
#line 160 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
#line 160 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,160,"ide_export.bas");}while(r);
#line 160 "ide/ide_export.bas"
do{
#line 160 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 160 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,160,"ide_export.bas");}while(r);
#line 160 "ide/ide_export.bas"
}
#line 161 "ide/ide_export.bas"
}
#line 162 "ide/ide_export.bas"
}
#line 163 "ide/ide_export.bas"
S_70952:;
#line 163 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 163 "ide/ide_export.bas"
if(qbevent){evnt(28819,163,"ide_export.bas");if(r)goto S_70952;}
#line 163 "ide/ide_export.bas"
do{
#line 163 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
#line 163 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,163,"ide_export.bas");}while(r);
#line 163 "ide/ide_export.bas"
do{
#line 163 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
#line 163 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 163 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,163,"ide_export.bas");}while(r);
#line 163 "ide/ide_export.bas"
do{
#line 163 "ide/ide_export.bas"
return_point[next_return_point++]=226;
#line 163 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 163 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 163 "ide/ide_export.bas"
RETURN_226:;
#line 163 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,163,"ide_export.bas");}while(r);
#line 163 "ide/ide_export.bas"
}
#line 164 "ide/ide_export.bas"
sc_ec_502_end:;
#line 164 "ide/ide_export.bas"
goto sc_7413_end;
#line 164 "ide/ide_export.bas"
}
#line 164 "ide/ide_export.bas"
S_70957:;
#line 164 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 40 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 41 )))||is_error_pending()){
#line 164 "ide/ide_export.bas"
if(qbevent){evnt(28819,164,"ide_export.bas");if(r)goto S_70957;}
#line 165 "ide/ide_export.bas"
S_70958:;
#line 165 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 165 "ide/ide_export.bas"
if(qbevent){evnt(28819,165,"ide_export.bas");if(r)goto S_70958;}
#line 166 "ide/ide_export.bas"
S_70959:;
#line 166 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 166 "ide/ide_export.bas"
if(qbevent){evnt(28819,166,"ide_export.bas");if(r)goto S_70959;}
#line 166 "ide/ide_export.bas"
do{
#line 166 "ide/ide_export.bas"
return_point[next_return_point++]=227;
#line 166 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 166 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 166 "ide/ide_export.bas"
RETURN_227:;
#line 166 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,166,"ide_export.bas");}while(r);
#line 166 "ide/ide_export.bas"
do{
#line 166 "ide/ide_export.bas"
return_point[next_return_point++]=228;
#line 166 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 166 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 166 "ide/ide_export.bas"
RETURN_228:;
#line 166 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,166,"ide_export.bas");}while(r);
#line 166 "ide/ide_export.bas"
}else{
#line 166 "ide/ide_export.bas"
do{
#line 166 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 166 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 166 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,166,"ide_export.bas");}while(r);
#line 166 "ide/ide_export.bas"
do{
#line 166 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 166 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,166,"ide_export.bas");}while(r);
#line 166 "ide/ide_export.bas"
}
#line 167 "ide/ide_export.bas"
do{
#line 167 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 167 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,167,"ide_export.bas");}while(r);
#line 168 "ide/ide_export.bas"
}
#line 169 "ide/ide_export.bas"
S_70968:;
#line 169 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 169 "ide/ide_export.bas"
if(qbevent){evnt(28819,169,"ide_export.bas");if(r)goto S_70968;}
#line 169 "ide/ide_export.bas"
do{
#line 169 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 169 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,169,"ide_export.bas");}while(r);
#line 169 "ide/ide_export.bas"
do{
#line 169 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 169 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 169 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,169,"ide_export.bas");}while(r);
#line 169 "ide/ide_export.bas"
do{
#line 169 "ide/ide_export.bas"
return_point[next_return_point++]=229;
#line 169 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 169 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 169 "ide/ide_export.bas"
RETURN_229:;
#line 169 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,169,"ide_export.bas");}while(r);
#line 169 "ide/ide_export.bas"
do{
#line 169 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 169 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,169,"ide_export.bas");}while(r);
#line 169 "ide/ide_export.bas"
}
#line 170 "ide/ide_export.bas"
S_70974:;
#line 170 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 170 "ide/ide_export.bas"
if(qbevent){evnt(28819,170,"ide_export.bas");if(r)goto S_70974;}
#line 171 "ide/ide_export.bas"
S_70975:;
#line 171 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 40 ))||is_error_pending()){
#line 171 "ide/ide_export.bas"
if(qbevent){evnt(28819,171,"ide_export.bas");if(r)goto S_70975;}
#line 171 "ide/ide_export.bas"
do{
#line 171 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC+ 1 ;
#line 171 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,171,"ide_export.bas");}while(r);
#line 171 "ide/ide_export.bas"
}else{
#line 171 "ide/ide_export.bas"
do{
#line 171 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC- 1 ;
#line 171 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,171,"ide_export.bas");}while(r);
#line 171 "ide/ide_export.bas"
}
#line 172 "ide/ide_export.bas"
}
#line 173 "ide/ide_export.bas"
S_70981:;
#line 173 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO)))||is_error_pending()){
#line 173 "ide/ide_export.bas"
if(qbevent){evnt(28819,173,"ide_export.bas");if(r)goto S_70981;}
#line 174 "ide/ide_export.bas"
S_70982:;
#line 174 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_INTEGER_NC> 0 ))||is_error_pending()){
#line 174 "ide/ide_export.bas"
if(qbevent){evnt(28819,174,"ide_export.bas");if(r)goto S_70982;}
#line 174 "ide/ide_export.bas"
do{
#line 174 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 174 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,174,"ide_export.bas");}while(r);
#line 174 "ide/ide_export.bas"
}else{
#line 174 "ide/ide_export.bas"
do{
#line 174 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 174 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,174,"ide_export.bas");}while(r);
#line 174 "ide/ide_export.bas"
}
#line 175 "ide/ide_export.bas"
}
#line 176 "ide/ide_export.bas"
do{
#line 176 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 176 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,176,"ide_export.bas");}while(r);
#line 177 "ide/ide_export.bas"
sc_ec_503_end:;
#line 177 "ide/ide_export.bas"
goto sc_7413_end;
#line 177 "ide/ide_export.bas"
}
#line 177 "ide/ide_export.bas"
S_70989:;
#line 177 "ide/ide_export.bas"
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()){
#line 177 "ide/ide_export.bas"
if(qbevent){evnt(28819,177,"ide_export.bas");if(r)goto S_70989;}
#line 178 "ide/ide_export.bas"
S_70990:;
#line 178 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 178 "ide/ide_export.bas"
if(qbevent){evnt(28819,178,"ide_export.bas");if(r)goto S_70990;}
#line 179 "ide/ide_export.bas"
S_70991:;
#line 179 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 179 "ide/ide_export.bas"
if(qbevent){evnt(28819,179,"ide_export.bas");if(r)goto S_70991;}
#line 179 "ide/ide_export.bas"
do{
#line 179 "ide/ide_export.bas"
return_point[next_return_point++]=230;
#line 179 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 179 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 179 "ide/ide_export.bas"
RETURN_230:;
#line 179 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,179,"ide_export.bas");}while(r);
#line 179 "ide/ide_export.bas"
do{
#line 179 "ide/ide_export.bas"
return_point[next_return_point++]=231;
#line 179 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 179 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 179 "ide/ide_export.bas"
RETURN_231:;
#line 179 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,179,"ide_export.bas");}while(r);
#line 179 "ide/ide_export.bas"
}else{
#line 179 "ide/ide_export.bas"
do{
#line 179 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 179 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 179 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,179,"ide_export.bas");}while(r);
#line 179 "ide/ide_export.bas"
do{
#line 179 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 179 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,179,"ide_export.bas");}while(r);
#line 179 "ide/ide_export.bas"
}
#line 180 "ide/ide_export.bas"
do{
#line 180 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 180 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,180,"ide_export.bas");}while(r);
#line 181 "ide/ide_export.bas"
}
#line 182 "ide/ide_export.bas"
S_71000:;
#line 182 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 182 "ide/ide_export.bas"
if(qbevent){evnt(28819,182,"ide_export.bas");if(r)goto S_71000;}
#line 182 "ide/ide_export.bas"
do{
#line 182 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 182 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,182,"ide_export.bas");}while(r);
#line 182 "ide/ide_export.bas"
do{
#line 182 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 182 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 182 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,182,"ide_export.bas");}while(r);
#line 182 "ide/ide_export.bas"
do{
#line 182 "ide/ide_export.bas"
return_point[next_return_point++]=232;
#line 182 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 182 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 182 "ide/ide_export.bas"
RETURN_232:;
#line 182 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,182,"ide_export.bas");}while(r);
#line 182 "ide/ide_export.bas"
do{
#line 182 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 182 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,182,"ide_export.bas");}while(r);
#line 182 "ide/ide_export.bas"
}
#line 183 "ide/ide_export.bas"
S_71006:;
#line 183 "ide/ide_export.bas"
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()){
#line 183 "ide/ide_export.bas"
if(qbevent){evnt(28819,183,"ide_export.bas");if(r)goto S_71006;}
#line 183 "ide/ide_export.bas"
do{
#line 183 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -3 ;
#line 183 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,183,"ide_export.bas");}while(r);
#line 183 "ide/ide_export.bas"
}
#line 184 "ide/ide_export.bas"
S_71009:;
#line 184 "ide/ide_export.bas"
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 60 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 62 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 92 )))||is_error_pending()){
#line 184 "ide/ide_export.bas"
if(qbevent){evnt(28819,184,"ide_export.bas");if(r)goto S_71009;}
#line 184 "ide/ide_export.bas"
do{
#line 184 "ide/ide_export.bas"
return_point[next_return_point++]=233;
#line 184 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 184 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 184 "ide/ide_export.bas"
RETURN_233:;
#line 184 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,184,"ide_export.bas");}while(r);
#line 184 "ide/ide_export.bas"
}
#line 185 "ide/ide_export.bas"
do{
#line 185 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 185 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,185,"ide_export.bas");}while(r);
#line 186 "ide/ide_export.bas"
sc_ec_504_end:;
#line 186 "ide/ide_export.bas"
goto sc_7413_end;
#line 186 "ide/ide_export.bas"
}
#line 186 "ide/ide_export.bas"
S_71013:;
#line 186 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 45 )))||is_error_pending()){
#line 186 "ide/ide_export.bas"
if(qbevent){evnt(28819,186,"ide_export.bas");if(r)goto S_71013;}
#line 187 "ide/ide_export.bas"
S_71014:;
#line 187 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 187 "ide/ide_export.bas"
if(qbevent){evnt(28819,187,"ide_export.bas");if(r)goto S_71014;}
#line 188 "ide/ide_export.bas"
S_71015:;
#line 188 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 188 "ide/ide_export.bas"
if(qbevent){evnt(28819,188,"ide_export.bas");if(r)goto S_71015;}
#line 188 "ide/ide_export.bas"
do{
#line 188 "ide/ide_export.bas"
return_point[next_return_point++]=234;
#line 188 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 188 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 188 "ide/ide_export.bas"
RETURN_234:;
#line 188 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,188,"ide_export.bas");}while(r);
#line 188 "ide/ide_export.bas"
do{
#line 188 "ide/ide_export.bas"
return_point[next_return_point++]=235;
#line 188 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 188 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 188 "ide/ide_export.bas"
RETURN_235:;
#line 188 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,188,"ide_export.bas");}while(r);
#line 188 "ide/ide_export.bas"
}else{
#line 188 "ide/ide_export.bas"
do{
#line 188 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 188 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 188 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,188,"ide_export.bas");}while(r);
#line 188 "ide/ide_export.bas"
do{
#line 188 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 188 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,188,"ide_export.bas");}while(r);
#line 188 "ide/ide_export.bas"
}
#line 189 "ide/ide_export.bas"
do{
#line 189 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 189 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,189,"ide_export.bas");}while(r);
#line 190 "ide/ide_export.bas"
}
#line 191 "ide/ide_export.bas"
S_71024:;
#line 191 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 191 "ide/ide_export.bas"
if(qbevent){evnt(28819,191,"ide_export.bas");if(r)goto S_71024;}
#line 191 "ide/ide_export.bas"
do{
#line 191 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 191 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,191,"ide_export.bas");}while(r);
#line 191 "ide/ide_export.bas"
do{
#line 191 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 191 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 191 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,191,"ide_export.bas");}while(r);
#line 191 "ide/ide_export.bas"
do{
#line 191 "ide/ide_export.bas"
return_point[next_return_point++]=236;
#line 191 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 191 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 191 "ide/ide_export.bas"
RETURN_236:;
#line 191 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,191,"ide_export.bas");}while(r);
#line 191 "ide/ide_export.bas"
do{
#line 191 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 191 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,191,"ide_export.bas");}while(r);
#line 191 "ide/ide_export.bas"
}
#line 192 "ide/ide_export.bas"
do{
#line 192 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 192 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,192,"ide_export.bas");}while(r);
#line 193 "ide/ide_export.bas"
S_71031:;
#line 193 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 193 "ide/ide_export.bas"
if(qbevent){evnt(28819,193,"ide_export.bas");if(r)goto S_71031;}
#line 194 "ide/ide_export.bas"
S_71032:;
#line 194 "ide/ide_export.bas"
sc_7418=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 );
#line 194 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 194 "ide/ide_export.bas"
if(qbevent){evnt(28819,194,"ide_export.bas");if(r)goto S_71032;}
#line 195 "ide/ide_export.bas"
S_71033:;
#line 195 "ide/ide_export.bas"
if (((sc_7418==( 9 ))||(sc_7418==( 32 ))||(sc_7418==( 40 ))||((sc_7418>=( 42 ))&&(sc_7418<=( 45 )))||(sc_7418==( 47 ))||((sc_7418>=( 59 ))&&(sc_7418<=( 63 )))||(sc_7418==( 92 ))||(sc_7418==( 94 )))||is_error_pending()){
#line 195 "ide/ide_export.bas"
if(qbevent){evnt(28819,195,"ide_export.bas");if(r)goto S_71033;}
#line 196 "ide/ide_export.bas"
S_71034:;
#line 196 "ide/ide_export.bas"
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 196 "ide/ide_export.bas"
if(qbevent){evnt(28819,196,"ide_export.bas");if(r)goto S_71034;}
#line 197 "ide/ide_export.bas"
S_71035:;
#line 197 "ide/ide_export.bas"
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()){
#line 197 "ide/ide_export.bas"
if(qbevent){evnt(28819,197,"ide_export.bas");if(r)goto S_71035;}
#line 198 "ide/ide_export.bas"
do{
#line 198 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
#line 198 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,198,"ide_export.bas");}while(r);
#line 198 "ide/ide_export.bas"
do{
#line 198 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 198 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 198 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,198,"ide_export.bas");}while(r);
#line 198 "ide/ide_export.bas"
do{
#line 198 "ide/ide_export.bas"
return_point[next_return_point++]=237;
#line 198 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 198 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 198 "ide/ide_export.bas"
RETURN_237:;
#line 198 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,198,"ide_export.bas");}while(r);
#line 198 "ide/ide_export.bas"
do{
#line 198 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 198 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,198,"ide_export.bas");}while(r);
#line 199 "ide/ide_export.bas"
}
#line 200 "ide/ide_export.bas"
}
#line 201 "ide/ide_export.bas"
sc_ec_505_end:;
#line 201 "ide/ide_export.bas"
goto sc_7418_end;
#line 201 "ide/ide_export.bas"
}
#line 201 "ide/ide_export.bas"
sc_7418_end:;
#line 202 "ide/ide_export.bas"
}
#line 203 "ide/ide_export.bas"
sc_ec_506_end:;
#line 203 "ide/ide_export.bas"
goto sc_7413_end;
#line 203 "ide/ide_export.bas"
}
#line 203 "ide/ide_export.bas"
S_71044:;
#line 203 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 )))||is_error_pending()){
#line 203 "ide/ide_export.bas"
if(qbevent){evnt(28819,203,"ide_export.bas");if(r)goto S_71044;}
#line 204 "ide/ide_export.bas"
S_71045:;
#line 204 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
#line 204 "ide/ide_export.bas"
if(qbevent){evnt(28819,204,"ide_export.bas");if(r)goto S_71045;}
#line 205 "ide/ide_export.bas"
S_71046:;
#line 205 "ide/ide_export.bas"
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 205 "ide/ide_export.bas"
if(qbevent){evnt(28819,205,"ide_export.bas");if(r)goto S_71046;}
#line 206 "ide/ide_export.bas"
S_71047:;
#line 206 "ide/ide_export.bas"
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()){
#line 206 "ide/ide_export.bas"
if(qbevent){evnt(28819,206,"ide_export.bas");if(r)goto S_71047;}
#line 207 "ide/ide_export.bas"
do{
#line 207 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
#line 207 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,207,"ide_export.bas");}while(r);
#line 207 "ide/ide_export.bas"
do{
#line 207 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 207 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 207 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,207,"ide_export.bas");}while(r);
#line 207 "ide/ide_export.bas"
do{
#line 207 "ide/ide_export.bas"
return_point[next_return_point++]=238;
#line 207 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 207 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 207 "ide/ide_export.bas"
RETURN_238:;
#line 207 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,207,"ide_export.bas");}while(r);
#line 207 "ide/ide_export.bas"
do{
#line 207 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 207 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,207,"ide_export.bas");}while(r);
#line 208 "ide/ide_export.bas"
}
#line 209 "ide/ide_export.bas"
}
#line 210 "ide/ide_export.bas"
}
#line 211 "ide/ide_export.bas"
sc_ec_507_end:;
#line 211 "ide/ide_export.bas"
goto sc_7413_end;
#line 211 "ide/ide_export.bas"
}
#line 211 "ide/ide_export.bas"
S_71055:;
#line 211 "ide/ide_export.bas"
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 ))))||is_error_pending()){
#line 211 "ide/ide_export.bas"
if(qbevent){evnt(28819,211,"ide_export.bas");if(r)goto S_71055;}
#line 212 "ide/ide_export.bas"
S_71056:;
#line 212 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
#line 212 "ide/ide_export.bas"
if(qbevent){evnt(28819,212,"ide_export.bas");if(r)goto S_71056;}
#line 212 "ide/ide_export.bas"
do{
#line 212 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
#line 212 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,212,"ide_export.bas");}while(r);
#line 212 "ide/ide_export.bas"
do{
#line 212 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 212 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 212 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,212,"ide_export.bas");}while(r);
#line 212 "ide/ide_export.bas"
do{
#line 212 "ide/ide_export.bas"
return_point[next_return_point++]=239;
#line 212 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 212 "ide/ide_export.bas"
goto LABEL_OPENTEXT;
#line 212 "ide/ide_export.bas"
RETURN_239:;
#line 212 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,212,"ide_export.bas");}while(r);
#line 212 "ide/ide_export.bas"
do{
#line 212 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 212 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,212,"ide_export.bas");}while(r);
#line 212 "ide/ide_export.bas"
}
#line 213 "ide/ide_export.bas"
sc_ec_508_end:;
#line 213 "ide/ide_export.bas"
goto sc_7413_end;
#line 213 "ide/ide_export.bas"
}
#line 213 "ide/ide_export.bas"
S_71062:;
#line 213 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 58 )))||is_error_pending()){
#line 213 "ide/ide_export.bas"
if(qbevent){evnt(28819,213,"ide_export.bas");if(r)goto S_71062;}
#line 214 "ide/ide_export.bas"
S_71063:;
#line 214 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 214 "ide/ide_export.bas"
if(qbevent){evnt(28819,214,"ide_export.bas");if(r)goto S_71063;}
#line 214 "ide/ide_export.bas"
do{
#line 214 "ide/ide_export.bas"
return_point[next_return_point++]=240;
#line 214 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 214 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 214 "ide/ide_export.bas"
RETURN_240:;
#line 214 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,214,"ide_export.bas");}while(r);
#line 214 "ide/ide_export.bas"
do{
#line 214 "ide/ide_export.bas"
return_point[next_return_point++]=241;
#line 214 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 214 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 214 "ide/ide_export.bas"
RETURN_241:;
#line 214 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,214,"ide_export.bas");}while(r);
#line 214 "ide/ide_export.bas"
do{
#line 214 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
#line 214 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,214,"ide_export.bas");}while(r);
#line 214 "ide/ide_export.bas"
do{
#line 214 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
#line 214 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,214,"ide_export.bas");}while(r);
#line 214 "ide/ide_export.bas"
}
#line 215 "ide/ide_export.bas"
S_71069:;
#line 215 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 215 "ide/ide_export.bas"
if(qbevent){evnt(28819,215,"ide_export.bas");if(r)goto S_71069;}
#line 216 "ide/ide_export.bas"
S_71070:;
#line 216 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
#line 216 "ide/ide_export.bas"
if(qbevent){evnt(28819,216,"ide_export.bas");if(r)goto S_71070;}
#line 216 "ide/ide_export.bas"
do{
#line 216 "ide/ide_export.bas"
return_point[next_return_point++]=242;
#line 216 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 216 "ide/ide_export.bas"
goto LABEL_VERIFYKEYWORD;
#line 216 "ide/ide_export.bas"
RETURN_242:;
#line 216 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,216,"ide_export.bas");}while(r);
#line 216 "ide/ide_export.bas"
do{
#line 216 "ide/ide_export.bas"
return_point[next_return_point++]=243;
#line 216 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 216 "ide/ide_export.bas"
goto LABEL_WRITELINK;
#line 216 "ide/ide_export.bas"
RETURN_243:;
#line 216 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,216,"ide_export.bas");}while(r);
#line 216 "ide/ide_export.bas"
}else{
#line 216 "ide/ide_export.bas"
do{
#line 216 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 216 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 216 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,216,"ide_export.bas");}while(r);
#line 216 "ide/ide_export.bas"
do{
#line 216 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
#line 216 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,216,"ide_export.bas");}while(r);
#line 216 "ide/ide_export.bas"
}
#line 217 "ide/ide_export.bas"
do{
#line 217 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
#line 217 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,217,"ide_export.bas");}while(r);
#line 218 "ide/ide_export.bas"
}
#line 219 "ide/ide_export.bas"
S_71079:;
#line 219 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
#line 219 "ide/ide_export.bas"
if(qbevent){evnt(28819,219,"ide_export.bas");if(r)goto S_71079;}
#line 219 "ide/ide_export.bas"
do{
#line 219 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 219 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,219,"ide_export.bas");}while(r);
#line 219 "ide/ide_export.bas"
do{
#line 219 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
#line 219 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 219 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,219,"ide_export.bas");}while(r);
#line 219 "ide/ide_export.bas"
do{
#line 219 "ide/ide_export.bas"
return_point[next_return_point++]=244;
#line 219 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 219 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 219 "ide/ide_export.bas"
RETURN_244:;
#line 219 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,219,"ide_export.bas");}while(r);
#line 219 "ide/ide_export.bas"
do{
#line 219 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
#line 219 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,219,"ide_export.bas");}while(r);
#line 219 "ide/ide_export.bas"
}
#line 220 "ide/ide_export.bas"
S_71085:;
#line 220 "ide/ide_export.bas"
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
#line 220 "ide/ide_export.bas"
if(qbevent){evnt(28819,220,"ide_export.bas");if(r)goto S_71085;}
#line 220 "ide/ide_export.bas"
do{
#line 220 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
#line 220 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,220,"ide_export.bas");}while(r);
#line 220 "ide/ide_export.bas"
do{
#line 220 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 220 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,220,"ide_export.bas");}while(r);
#line 220 "ide/ide_export.bas"
do{
#line 220 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 220 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,220,"ide_export.bas");}while(r);
#line 220 "ide/ide_export.bas"
}
#line 221 "ide/ide_export.bas"
do{
#line 221 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
#line 221 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,221,"ide_export.bas");}while(r);
#line 222 "ide/ide_export.bas"
sc_ec_509_end:;
#line 222 "ide/ide_export.bas"
goto sc_7413_end;
#line 222 "ide/ide_export.bas"
}
#line 222 "ide/ide_export.bas"
S_71091:;
#line 222 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
#line 222 "ide/ide_export.bas"
if(qbevent){evnt(28819,222,"ide_export.bas");if(r)goto S_71091;}
#line 223 "ide/ide_export.bas"
do{
#line 223 "ide/ide_export.bas"
return_point[next_return_point++]=245;
#line 223 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 223 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 223 "ide/ide_export.bas"
RETURN_245:;
#line 223 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,223,"ide_export.bas");}while(r);
#line 224 "ide/ide_export.bas"
sc_ec_510_end:;
#line 224 "ide/ide_export.bas"
goto sc_7413_end;
#line 224 "ide/ide_export.bas"
}
#line 224 "ide/ide_export.bas"
S_71093:;
#line 224 "ide/ide_export.bas"
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 97 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 ))))||is_error_pending()){
#line 224 "ide/ide_export.bas"
if(qbevent){evnt(28819,224,"ide_export.bas");if(r)goto S_71093;}
#line 225 "ide/ide_export.bas"
S_71094:;
#line 225 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
#line 225 "ide/ide_export.bas"
if(qbevent){evnt(28819,225,"ide_export.bas");if(r)goto S_71094;}
#line 225 "ide/ide_export.bas"
do{
#line 225 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
#line 225 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,225,"ide_export.bas");}while(r);
#line 225 "ide/ide_export.bas"
do{
#line 225 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 225 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 225 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,225,"ide_export.bas");}while(r);
#line 225 "ide/ide_export.bas"
do{
#line 225 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 225 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,225,"ide_export.bas");}while(r);
#line 225 "ide/ide_export.bas"
}
#line 226 "ide/ide_export.bas"
S_71099:;
#line 226 "ide/ide_export.bas"
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()){
#line 226 "ide/ide_export.bas"
if(qbevent){evnt(28819,226,"ide_export.bas");if(r)goto S_71099;}
#line 226 "ide/ide_export.bas"
do{
#line 226 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
#line 226 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,226,"ide_export.bas");}while(r);
#line 226 "ide/ide_export.bas"
}
#line 227 "ide/ide_export.bas"
sc_ec_511_end:;
#line 227 "ide/ide_export.bas"
goto sc_7413_end;
#line 227 "ide/ide_export.bas"
}
#line 227 "ide/ide_export.bas"
S_71102:;
#line 227 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 95 )))||is_error_pending()){
#line 227 "ide/ide_export.bas"
if(qbevent){evnt(28819,227,"ide_export.bas");if(r)goto S_71102;}
#line 228 "ide/ide_export.bas"
S_71103:;
#line 228 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
#line 228 "ide/ide_export.bas"
if(qbevent){evnt(28819,228,"ide_export.bas");if(r)goto S_71103;}
#line 229 "ide/ide_export.bas"
S_71104:;
#line 229 "ide/ide_export.bas"
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
#line 229 "ide/ide_export.bas"
if(qbevent){evnt(28819,229,"ide_export.bas");if(r)goto S_71104;}
#line 230 "ide/ide_export.bas"
S_71105:;
#line 230 "ide/ide_export.bas"
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()){
#line 230 "ide/ide_export.bas"
if(qbevent){evnt(28819,230,"ide_export.bas");if(r)goto S_71105;}
#line 231 "ide/ide_export.bas"
do{
#line 231 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
#line 231 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,231,"ide_export.bas");}while(r);
#line 231 "ide/ide_export.bas"
do{
#line 231 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 231 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 231 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,231,"ide_export.bas");}while(r);
#line 231 "ide/ide_export.bas"
do{
#line 231 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 231 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,231,"ide_export.bas");}while(r);
#line 232 "ide/ide_export.bas"
}
#line 233 "ide/ide_export.bas"
}
#line 234 "ide/ide_export.bas"
}
#line 235 "ide/ide_export.bas"
sc_ec_512_end:;
#line 235 "ide/ide_export.bas"
goto sc_7413_end;
#line 235 "ide/ide_export.bas"
}
#line 235 "ide/ide_export.bas"
S_71112:;
#line 235 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
#line 235 "ide/ide_export.bas"
if(qbevent){evnt(28819,235,"ide_export.bas");if(r)goto S_71112;}
#line 236 "ide/ide_export.bas"
do{
#line 236 "ide/ide_export.bas"
return_point[next_return_point++]=246;
#line 236 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 236 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 236 "ide/ide_export.bas"
RETURN_246:;
#line 236 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,236,"ide_export.bas");}while(r);
#line 237 "ide/ide_export.bas"
sc_ec_513_end:;
#line 237 "ide/ide_export.bas"
goto sc_7413_end;
#line 237 "ide/ide_export.bas"
}
#line 238 "ide/ide_export.bas"
do{
#line 238 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
#line 238 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,238,"ide_export.bas");}while(r);
#line 239 "ide/ide_export.bas"
sc_7413_end:;
#line 240 "ide/ide_export.bas"
S_71117:;
#line 240 "ide/ide_export.bas"
if(qbevent){evnt(28819,240,"ide_export.bas");if(r)goto S_71117;}
#line 241 "ide/ide_export.bas"
S_71118:;
#line 241 "ide/ide_export.bas"
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()){
#line 241 "ide/ide_export.bas"
if(qbevent){evnt(28819,241,"ide_export.bas");if(r)goto S_71118;}
#line 242 "ide/ide_export.bas"
S_71119:;
#line 242 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 242 "ide/ide_export.bas"
if(qbevent){evnt(28819,242,"ide_export.bas");if(r)goto S_71119;}
#line 242 "ide/ide_export.bas"
do{
#line 242 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(_SUB_EXPORTCODEAS_STRING_ME,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
#line 242 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 242 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,242,"ide_export.bas");}while(r);
#line 242 "ide/ide_export.bas"
do{
#line 242 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 242 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,242,"ide_export.bas");}while(r);
#line 242 "ide/ide_export.bas"
}
#line 243 "ide/ide_export.bas"
S_71123:;
#line 243 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 243 "ide/ide_export.bas"
if(qbevent){evnt(28819,243,"ide_export.bas");if(r)goto S_71123;}
#line 243 "ide/ide_export.bas"
do{
#line 243 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(_SUB_EXPORTCODEAS_STRING_KW,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
#line 243 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 243 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,243,"ide_export.bas");}while(r);
#line 243 "ide/ide_export.bas"
do{
#line 243 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 243 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,243,"ide_export.bas");}while(r);
#line 243 "ide/ide_export.bas"
}
#line 244 "ide/ide_export.bas"
sc_ec_514_end:;
#line 244 "ide/ide_export.bas"
goto sc_7419_end;
#line 244 "ide/ide_export.bas"
}
#line 244 "ide/ide_export.bas"
sc_7419_end:;
#line 245 "ide/ide_export.bas"
S_71128:;
#line 245 "ide/ide_export.bas"
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 9 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 10 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 32 )))||is_error_pending()){
#line 245 "ide/ide_export.bas"
if(qbevent){evnt(28819,245,"ide_export.bas");if(r)goto S_71128;}
#line 245 "ide/ide_export.bas"
do{
#line 245 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_NL= 0 ;
#line 245 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,245,"ide_export.bas");}while(r);
#line 245 "ide/ide_export.bas"
}
#line 246 "ide/ide_export.bas"
S_71131:;
#line 246 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
#line 246 "ide/ide_export.bas"
if(qbevent){evnt(28819,246,"ide_export.bas");if(r)goto S_71131;}
#line 246 "ide/ide_export.bas"
do{
#line 246 "ide/ide_export.bas"
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
#line 246 "ide/ide_export.bas"
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
#line 246 "ide/ide_export.bas"
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
#line 246 "ide/ide_export.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 246 "ide/ide_export.bas"
}}}
#line 246 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,246,"ide_export.bas");}while(r);
#line 246 "ide/ide_export.bas"
do{
#line 246 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
#line 246 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,246,"ide_export.bas");}while(r);
#line 246 "ide/ide_export.bas"
}
#line 247 "ide/ide_export.bas"
do{
#line 247 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
#line 247 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,247,"ide_export.bas");}while(r);
#line 247 "ide/ide_export.bas"
do{
#line 247 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_SPOS=*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 ;
#line 247 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,247,"ide_export.bas");}while(r);
#line 249 "ide/ide_export.bas"
S_71137:;
#line 249 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_EXPORTCODEAS_LONG_EPOS>(_SUB_EXPORTCODEAS_STRING_ETXT->len- 10000 ))))||is_error_pending()){
#line 249 "ide/ide_export.bas"
if(qbevent){evnt(28819,249,"ide_export.bas");if(r)goto S_71137;}
#line 249 "ide/ide_export.bas"
do{
#line 249 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,qbs_add(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 )));
#line 249 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 249 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,249,"ide_export.bas");}while(r);
#line 249 "ide/ide_export.bas"
}
#line 250 "ide/ide_export.bas"
ww_continue_7411:;
#line 250 "ide/ide_export.bas"
}
#line 250 "ide/ide_export.bas"
ww_exit_7411:;
#line 251 "ide/ide_export.bas"
do{
#line 251 "ide/ide_export.bas"
return_point[next_return_point++]=247;
#line 251 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 251 "ide/ide_export.bas"
goto LABEL_CLOSECODEBLOCK;
#line 251 "ide/ide_export.bas"
RETURN_247:;
#line 251 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,251,"ide_export.bas");}while(r);
#line 253 "ide/ide_export.bas"
do{
#line 253 "ide/ide_export.bas"
sub_pcopy( 2 , 3 );
#line 253 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,253,"ide_export.bas");}while(r);
#line 254 "ide/ide_export.bas"
S_71143:;
#line 254 "ide/ide_export.bas"
qbs_set(sc_7421,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 254 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 254 "ide/ide_export.bas"
if(qbevent){evnt(28819,254,"ide_export.bas");if(r)goto S_71143;}
#line 255 "ide/ide_export.bas"
S_71144:;
#line 255 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7421,qbs_new_txt_len("html",4))||qbs_equal(sc_7421,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 255 "ide/ide_export.bas"
if(qbevent){evnt(28819,255,"ide_export.bas");if(r)goto S_71144;}
#line 256 "ide/ide_export.bas"
do{
#line 256 "ide/ide_export.bas"
*__LONG_IDEERROR= 7 ;
#line 256 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,256,"ide_export.bas");}while(r);
#line 257 "ide/ide_export.bas"
do{
#line 257 "ide/ide_export.bas"
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);
#line 257 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 257 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,257,"ide_export.bas");}while(r);
#line 258 "ide/ide_export.bas"
do{
#line 258 "ide/ide_export.bas"
*__LONG_IDEERROR= 1 ;
#line 258 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,258,"ide_export.bas");}while(r);
#line 259 "ide/ide_export.bas"
do{
#line 259 "ide/ide_export.bas"
tab_spc_cr_size=2;
#line 259 "ide/ide_export.bas"
tab_fileno=tmp_fileno= 151 ;
#line 259 "ide/ide_export.bas"
if (is_error_pending()) goto skip7422;
#line 259 "ide/ide_export.bas"
sub_file_print(tmp_fileno,qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ), 0, 0, 0);
#line 259 "ide/ide_export.bas"
if (is_error_pending()) goto skip7422;
#line 259 "ide/ide_export.bas"
skip7422:
#line 259 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 259 "ide/ide_export.bas"
tab_spc_cr_size=1;
#line 259 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,259,"ide_export.bas");}while(r);
#line 260 "ide/ide_export.bas"
do{
#line 260 "ide/ide_export.bas"
sub_close( 151 ,1);
#line 260 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,260,"ide_export.bas");}while(r);
#line 261 "ide/ide_export.bas"
do{
#line 261 "ide/ide_export.bas"
*_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));
#line 261 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 261 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,261,"ide_export.bas");}while(r);
#line 262 "ide/ide_export.bas"
sc_ec_515_end:;
#line 262 "ide/ide_export.bas"
goto sc_7421_end;
#line 262 "ide/ide_export.bas"
}
#line 262 "ide/ide_export.bas"
S_71151:;
#line 262 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7421,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 262 "ide/ide_export.bas"
if(qbevent){evnt(28819,262,"ide_export.bas");if(r)goto S_71151;}
#line 263 "ide/ide_export.bas"
do{
#line 263 "ide/ide_export.bas"
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
#line 263 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 263 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,263,"ide_export.bas");}while(r);
#line 268 "ide/ide_export.bas"
do{
#line 268 "ide/ide_export.bas"
*_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));
#line 268 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 268 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,268,"ide_export.bas");}while(r);
#line 269 "ide/ide_export.bas"
sc_ec_516_end:;
#line 269 "ide/ide_export.bas"
goto sc_7421_end;
#line 269 "ide/ide_export.bas"
}
#line 269 "ide/ide_export.bas"
S_71154:;
#line 269 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7421,qbs_new_txt_len("foru",4))||qbs_equal(sc_7421,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 269 "ide/ide_export.bas"
if(qbevent){evnt(28819,269,"ide_export.bas");if(r)goto S_71154;}
#line 270 "ide/ide_export.bas"
do{
#line 270 "ide/ide_export.bas"
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
#line 270 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 270 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,270,"ide_export.bas");}while(r);
#line 271 "ide/ide_export.bas"
do{
#line 271 "ide/ide_export.bas"
*_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));
#line 271 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 271 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,271,"ide_export.bas");}while(r);
#line 272 "ide/ide_export.bas"
sc_ec_517_end:;
#line 272 "ide/ide_export.bas"
goto sc_7421_end;
#line 272 "ide/ide_export.bas"
}
#line 272 "ide/ide_export.bas"
sc_7421_end:;
#line 273 "ide/ide_export.bas"
do{
#line 273 "ide/ide_export.bas"
goto exit_subfunc;
#line 273 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,273,"ide_export.bas");}while(r);
#line 275 "ide/ide_export.bas"
LABEL_OPENCODEBLOCK:;
#line 275 "ide/ide_export.bas"
if(qbevent){evnt(28819,275,"ide_export.bas");r=0;}
#line 276 "ide/ide_export.bas"
S_71159:;
#line 276 "ide/ide_export.bas"
qbs_set(sc_7423,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 276 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 276 "ide/ide_export.bas"
if(qbevent){evnt(28819,276,"ide_export.bas");if(r)goto S_71159;}
#line 277 "ide/ide_export.bas"
S_71160:;
#line 277 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7423,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 277 "ide/ide_export.bas"
if(qbevent){evnt(28819,277,"ide_export.bas");if(r)goto S_71160;}
#line 277 "ide/ide_export.bas"
do{
#line 277 "ide/ide_export.bas"
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)));
#line 277 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 277 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,277,"ide_export.bas");}while(r);
#line 278 "ide/ide_export.bas"
sc_ec_518_end:;
#line 278 "ide/ide_export.bas"
goto sc_7423_end;
#line 278 "ide/ide_export.bas"
}
#line 278 "ide/ide_export.bas"
S_71162:;
#line 278 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7423,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 278 "ide/ide_export.bas"
if(qbevent){evnt(28819,278,"ide_export.bas");if(r)goto S_71162;}
#line 278 "ide/ide_export.bas"
do{
#line 278 "ide/ide_export.bas"
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)));
#line 278 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 278 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,278,"ide_export.bas");}while(r);
#line 279 "ide/ide_export.bas"
sc_ec_519_end:;
#line 279 "ide/ide_export.bas"
goto sc_7423_end;
#line 279 "ide/ide_export.bas"
}
#line 279 "ide/ide_export.bas"
S_71164:;
#line 279 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7423,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 279 "ide/ide_export.bas"
if(qbevent){evnt(28819,279,"ide_export.bas");if(r)goto S_71164;}
#line 279 "ide/ide_export.bas"
do{
#line 279 "ide/ide_export.bas"
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;38m",10)));
#line 279 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 279 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,279,"ide_export.bas");}while(r);
#line 280 "ide/ide_export.bas"
sc_ec_520_end:;
#line 280 "ide/ide_export.bas"
goto sc_7423_end;
#line 280 "ide/ide_export.bas"
}
#line 280 "ide/ide_export.bas"
S_71166:;
#line 280 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7423,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 280 "ide/ide_export.bas"
if(qbevent){evnt(28819,280,"ide_export.bas");if(r)goto S_71166;}
#line 280 "ide/ide_export.bas"
do{
#line 280 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[qb=export]",11));
#line 280 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 280 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,280,"ide_export.bas");}while(r);
#line 281 "ide/ide_export.bas"
sc_ec_521_end:;
#line 281 "ide/ide_export.bas"
goto sc_7423_end;
#line 281 "ide/ide_export.bas"
}
#line 281 "ide/ide_export.bas"
S_71168:;
#line 281 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7423,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 281 "ide/ide_export.bas"
if(qbevent){evnt(28819,281,"ide_export.bas");if(r)goto S_71168;}
#line 281 "ide/ide_export.bas"
do{
#line 281 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeStart}}",13));
#line 281 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 281 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,281,"ide_export.bas");}while(r);
#line 282 "ide/ide_export.bas"
sc_ec_522_end:;
#line 282 "ide/ide_export.bas"
goto sc_7423_end;
#line 282 "ide/ide_export.bas"
}
#line 282 "ide/ide_export.bas"
do{
#line 282 "ide/ide_export.bas"
#include "ret504.txt"
#line 282 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,282,"ide_export.bas");}while(r);
#line 283 "ide/ide_export.bas"
sc_7423_end:;
#line 284 "ide/ide_export.bas"
do{
#line 284 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
#line 284 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,284,"ide_export.bas");}while(r);
#line 284 "ide/ide_export.bas"
do{
#line 284 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
#line 284 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 284 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,284,"ide_export.bas");}while(r);
#line 285 "ide/ide_export.bas"
S_71175:;
#line 285 "ide/ide_export.bas"
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()){
#line 285 "ide/ide_export.bas"
if(qbevent){evnt(28819,285,"ide_export.bas");if(r)goto S_71175;}
#line 286 "ide/ide_export.bas"
do{
#line 286 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
#line 286 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,286,"ide_export.bas");}while(r);
#line 286 "ide/ide_export.bas"
do{
#line 286 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
#line 286 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 286 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,286,"ide_export.bas");}while(r);
#line 287 "ide/ide_export.bas"
}
#line 288 "ide/ide_export.bas"
do{
#line 288 "ide/ide_export.bas"
#include "ret504.txt"
#line 288 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,288,"ide_export.bas");}while(r);
#line 290 "ide/ide_export.bas"
LABEL_CLOSECODEBLOCK:;
#line 290 "ide/ide_export.bas"
if(qbevent){evnt(28819,290,"ide_export.bas");r=0;}
#line 291 "ide/ide_export.bas"
S_71180:;
#line 291 "ide/ide_export.bas"
qbs_set(sc_7428,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 291 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 291 "ide/ide_export.bas"
if(qbevent){evnt(28819,291,"ide_export.bas");if(r)goto S_71180;}
#line 292 "ide/ide_export.bas"
S_71181:;
#line 292 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7428,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 292 "ide/ide_export.bas"
if(qbevent){evnt(28819,292,"ide_export.bas");if(r)goto S_71181;}
#line 292 "ide/ide_export.bas"
do{
#line 292 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</pre></body></html>",20));
#line 292 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 292 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,292,"ide_export.bas");}while(r);
#line 293 "ide/ide_export.bas"
sc_ec_523_end:;
#line 293 "ide/ide_export.bas"
goto sc_7428_end;
#line 293 "ide/ide_export.bas"
}
#line 293 "ide/ide_export.bas"
S_71183:;
#line 293 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7428,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 293 "ide/ide_export.bas"
if(qbevent){evnt(28819,293,"ide_export.bas");if(r)goto S_71183;}
#line 293 "ide/ide_export.bas"
do{
#line 293 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("}",1));
#line 293 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 293 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,293,"ide_export.bas");}while(r);
#line 293 "ide/ide_export.bas"
do{
#line 293 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS- 4 ;
#line 293 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,293,"ide_export.bas");}while(r);
#line 294 "ide/ide_export.bas"
sc_ec_524_end:;
#line 294 "ide/ide_export.bas"
goto sc_7428_end;
#line 294 "ide/ide_export.bas"
}
#line 294 "ide/ide_export.bas"
S_71186:;
#line 294 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7428,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 294 "ide/ide_export.bas"
if(qbevent){evnt(28819,294,"ide_export.bas");if(r)goto S_71186;}
#line 294 "ide/ide_export.bas"
do{
#line 294 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("```",3));
#line 294 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 294 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,294,"ide_export.bas");}while(r);
#line 295 "ide/ide_export.bas"
sc_ec_525_end:;
#line 295 "ide/ide_export.bas"
goto sc_7428_end;
#line 295 "ide/ide_export.bas"
}
#line 295 "ide/ide_export.bas"
S_71188:;
#line 295 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7428,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 295 "ide/ide_export.bas"
if(qbevent){evnt(28819,295,"ide_export.bas");if(r)goto S_71188;}
#line 295 "ide/ide_export.bas"
do{
#line 295 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/qb]",5));
#line 295 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 295 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,295,"ide_export.bas");}while(r);
#line 296 "ide/ide_export.bas"
sc_ec_526_end:;
#line 296 "ide/ide_export.bas"
goto sc_7428_end;
#line 296 "ide/ide_export.bas"
}
#line 296 "ide/ide_export.bas"
S_71190:;
#line 296 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7428,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 296 "ide/ide_export.bas"
if(qbevent){evnt(28819,296,"ide_export.bas");if(r)goto S_71190;}
#line 296 "ide/ide_export.bas"
do{
#line 296 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeEnd}}",11));
#line 296 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 296 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,296,"ide_export.bas");}while(r);
#line 297 "ide/ide_export.bas"
sc_ec_527_end:;
#line 297 "ide/ide_export.bas"
goto sc_7428_end;
#line 297 "ide/ide_export.bas"
}
#line 297 "ide/ide_export.bas"
do{
#line 297 "ide/ide_export.bas"
#include "ret504.txt"
#line 297 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,297,"ide_export.bas");}while(r);
#line 298 "ide/ide_export.bas"
sc_7428_end:;
#line 299 "ide/ide_export.bas"
do{
#line 299 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS-_SUB_EXPORTCODEAS_STRING_CEOL->len;
#line 299 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 299 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,299,"ide_export.bas");}while(r);
#line 300 "ide/ide_export.bas"
do{
#line 300 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
#line 300 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,300,"ide_export.bas");}while(r);
#line 300 "ide/ide_export.bas"
do{
#line 300 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
#line 300 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 300 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,300,"ide_export.bas");}while(r);
#line 301 "ide/ide_export.bas"
do{
#line 301 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
#line 301 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,301,"ide_export.bas");}while(r);
#line 301 "ide/ide_export.bas"
do{
#line 301 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
#line 301 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 301 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,301,"ide_export.bas");}while(r);
#line 302 "ide/ide_export.bas"
do{
#line 302 "ide/ide_export.bas"
#include "ret504.txt"
#line 302 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,302,"ide_export.bas");}while(r);
#line 304 "ide/ide_export.bas"
LABEL_OPENTEXT:;
#line 304 "ide/ide_export.bas"
if(qbevent){evnt(28819,304,"ide_export.bas");r=0;}
#line 305 "ide/ide_export.bas"
S_71201:;
#line 305 "ide/ide_export.bas"
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()){
#line 305 "ide/ide_export.bas"
if(qbevent){evnt(28819,305,"ide_export.bas");if(r)goto S_71201;}
#line 305 "ide/ide_export.bas"
do{
#line 305 "ide/ide_export.bas"
#include "ret504.txt"
#line 305 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,305,"ide_export.bas");}while(r);
#line 305 "ide/ide_export.bas"
}
#line 306 "ide/ide_export.bas"
S_71204:;
#line 306 "ide/ide_export.bas"
qbs_set(sc_7434,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 306 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 306 "ide/ide_export.bas"
if(qbevent){evnt(28819,306,"ide_export.bas");if(r)goto S_71204;}
#line 307 "ide/ide_export.bas"
S_71205:;
#line 307 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7434,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 307 "ide/ide_export.bas"
if(qbevent){evnt(28819,307,"ide_export.bas");if(r)goto S_71205;}
#line 308 "ide/ide_export.bas"
S_71206:;
#line 308 "ide/ide_export.bas"
qbs_set(sc_7435,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 308 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 308 "ide/ide_export.bas"
if(qbevent){evnt(28819,308,"ide_export.bas");if(r)goto S_71206;}
#line 309 "ide/ide_export.bas"
S_71207:;
#line 309 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7435,qbs_new_txt_len("co",2))))||is_error_pending()){
#line 309 "ide/ide_export.bas"
if(qbevent){evnt(28819,309,"ide_export.bas");if(r)goto S_71207;}
#line 309 "ide/ide_export.bas"
do{
#line 309 "ide/ide_export.bas"
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)));
#line 309 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 309 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,309,"ide_export.bas");}while(r);
#line 310 "ide/ide_export.bas"
sc_ec_528_end:;
#line 310 "ide/ide_export.bas"
goto sc_7435_end;
#line 310 "ide/ide_export.bas"
}
#line 310 "ide/ide_export.bas"
S_71209:;
#line 310 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7435,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 310 "ide/ide_export.bas"
if(qbevent){evnt(28819,310,"ide_export.bas");if(r)goto S_71209;}
#line 310 "ide/ide_export.bas"
do{
#line 310 "ide/ide_export.bas"
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)));
#line 310 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 310 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,310,"ide_export.bas");}while(r);
#line 311 "ide/ide_export.bas"
sc_ec_529_end:;
#line 311 "ide/ide_export.bas"
goto sc_7435_end;
#line 311 "ide/ide_export.bas"
}
#line 311 "ide/ide_export.bas"
S_71211:;
#line 311 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7435,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 311 "ide/ide_export.bas"
if(qbevent){evnt(28819,311,"ide_export.bas");if(r)goto S_71211;}
#line 311 "ide/ide_export.bas"
do{
#line 311 "ide/ide_export.bas"
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)));
#line 311 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 311 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,311,"ide_export.bas");}while(r);
#line 312 "ide/ide_export.bas"
sc_ec_530_end:;
#line 312 "ide/ide_export.bas"
goto sc_7435_end;
#line 312 "ide/ide_export.bas"
}
#line 312 "ide/ide_export.bas"
do{
#line 312 "ide/ide_export.bas"
#include "ret504.txt"
#line 312 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,312,"ide_export.bas");}while(r);
#line 313 "ide/ide_export.bas"
sc_7435_end:;
#line 314 "ide/ide_export.bas"
sc_ec_531_end:;
#line 314 "ide/ide_export.bas"
goto sc_7434_end;
#line 314 "ide/ide_export.bas"
}
#line 314 "ide/ide_export.bas"
S_71216:;
#line 314 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7434,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 314 "ide/ide_export.bas"
if(qbevent){evnt(28819,314,"ide_export.bas");if(r)goto S_71216;}
#line 315 "ide/ide_export.bas"
S_71217:;
#line 315 "ide/ide_export.bas"
qbs_set(sc_7436,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 315 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 315 "ide/ide_export.bas"
if(qbevent){evnt(28819,315,"ide_export.bas");if(r)goto S_71217;}
#line 316 "ide/ide_export.bas"
S_71218:;
#line 316 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7436,qbs_new_txt_len("co",2))))||is_error_pending()){
#line 316 "ide/ide_export.bas"
if(qbevent){evnt(28819,316,"ide_export.bas");if(r)goto S_71218;}
#line 316 "ide/ide_export.bas"
do{
#line 316 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf1 ",5));
#line 316 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 316 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,316,"ide_export.bas");}while(r);
#line 317 "ide/ide_export.bas"
sc_ec_532_end:;
#line 317 "ide/ide_export.bas"
goto sc_7436_end;
#line 317 "ide/ide_export.bas"
}
#line 317 "ide/ide_export.bas"
S_71220:;
#line 317 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7436,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 317 "ide/ide_export.bas"
if(qbevent){evnt(28819,317,"ide_export.bas");if(r)goto S_71220;}
#line 317 "ide/ide_export.bas"
do{
#line 317 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf4 ",5));
#line 317 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 317 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,317,"ide_export.bas");}while(r);
#line 318 "ide/ide_export.bas"
sc_ec_533_end:;
#line 318 "ide/ide_export.bas"
goto sc_7436_end;
#line 318 "ide/ide_export.bas"
}
#line 318 "ide/ide_export.bas"
S_71222:;
#line 318 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7436,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 318 "ide/ide_export.bas"
if(qbevent){evnt(28819,318,"ide_export.bas");if(r)goto S_71222;}
#line 318 "ide/ide_export.bas"
do{
#line 318 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf5 ",5));
#line 318 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 318 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,318,"ide_export.bas");}while(r);
#line 319 "ide/ide_export.bas"
sc_ec_534_end:;
#line 319 "ide/ide_export.bas"
goto sc_7436_end;
#line 319 "ide/ide_export.bas"
}
#line 319 "ide/ide_export.bas"
do{
#line 319 "ide/ide_export.bas"
#include "ret504.txt"
#line 319 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,319,"ide_export.bas");}while(r);
#line 320 "ide/ide_export.bas"
sc_7436_end:;
#line 321 "ide/ide_export.bas"
sc_ec_535_end:;
#line 321 "ide/ide_export.bas"
goto sc_7434_end;
#line 321 "ide/ide_export.bas"
}
#line 321 "ide/ide_export.bas"
S_71227:;
#line 321 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7434,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 321 "ide/ide_export.bas"
if(qbevent){evnt(28819,321,"ide_export.bas");if(r)goto S_71227;}
#line 322 "ide/ide_export.bas"
S_71228:;
#line 322 "ide/ide_export.bas"
qbs_set(sc_7437,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 322 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 322 "ide/ide_export.bas"
if(qbevent){evnt(28819,322,"ide_export.bas");if(r)goto S_71228;}
#line 323 "ide/ide_export.bas"
S_71229:;
#line 323 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7437,qbs_new_txt_len("co",2))))||is_error_pending()){
#line 323 "ide/ide_export.bas"
if(qbevent){evnt(28819,323,"ide_export.bas");if(r)goto S_71229;}
#line 323 "ide/ide_export.bas"
do{
#line 323 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[37m",4)));
#line 323 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 323 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,323,"ide_export.bas");}while(r);
#line 324 "ide/ide_export.bas"
sc_ec_536_end:;
#line 324 "ide/ide_export.bas"
goto sc_7437_end;
#line 324 "ide/ide_export.bas"
}
#line 324 "ide/ide_export.bas"
S_71231:;
#line 324 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7437,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 324 "ide/ide_export.bas"
if(qbevent){evnt(28819,324,"ide_export.bas");if(r)goto S_71231;}
#line 324 "ide/ide_export.bas"
do{
#line 324 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[31m",4)));
#line 324 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 324 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,324,"ide_export.bas");}while(r);
#line 325 "ide/ide_export.bas"
sc_ec_537_end:;
#line 325 "ide/ide_export.bas"
goto sc_7437_end;
#line 325 "ide/ide_export.bas"
}
#line 325 "ide/ide_export.bas"
S_71233:;
#line 325 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7437,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 325 "ide/ide_export.bas"
if(qbevent){evnt(28819,325,"ide_export.bas");if(r)goto S_71233;}
#line 325 "ide/ide_export.bas"
do{
#line 325 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[33m",4)));
#line 325 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 325 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,325,"ide_export.bas");}while(r);
#line 326 "ide/ide_export.bas"
sc_ec_538_end:;
#line 326 "ide/ide_export.bas"
goto sc_7437_end;
#line 326 "ide/ide_export.bas"
}
#line 326 "ide/ide_export.bas"
do{
#line 326 "ide/ide_export.bas"
#include "ret504.txt"
#line 326 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,326,"ide_export.bas");}while(r);
#line 327 "ide/ide_export.bas"
sc_7437_end:;
#line 328 "ide/ide_export.bas"
sc_ec_539_end:;
#line 328 "ide/ide_export.bas"
goto sc_7434_end;
#line 328 "ide/ide_export.bas"
}
#line 328 "ide/ide_export.bas"
S_71238:;
#line 328 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7434,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 328 "ide/ide_export.bas"
if(qbevent){evnt(28819,328,"ide_export.bas");if(r)goto S_71238;}
#line 329 "ide/ide_export.bas"
S_71239:;
#line 329 "ide/ide_export.bas"
qbs_set(sc_7438,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 329 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 329 "ide/ide_export.bas"
if(qbevent){evnt(28819,329,"ide_export.bas");if(r)goto S_71239;}
#line 330 "ide/ide_export.bas"
S_71240:;
#line 330 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7438,qbs_new_txt_len("co",2))))||is_error_pending()){
#line 330 "ide/ide_export.bas"
if(qbevent){evnt(28819,330,"ide_export.bas");if(r)goto S_71240;}
#line 330 "ide/ide_export.bas"
do{
#line 330 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#919191]",15));
#line 330 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 330 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,330,"ide_export.bas");}while(r);
#line 331 "ide/ide_export.bas"
sc_ec_540_end:;
#line 331 "ide/ide_export.bas"
goto sc_7438_end;
#line 331 "ide/ide_export.bas"
}
#line 331 "ide/ide_export.bas"
S_71242:;
#line 331 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7438,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 331 "ide/ide_export.bas"
if(qbevent){evnt(28819,331,"ide_export.bas");if(r)goto S_71242;}
#line 331 "ide/ide_export.bas"
do{
#line 331 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#F580B1]",15));
#line 331 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 331 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,331,"ide_export.bas");}while(r);
#line 332 "ide/ide_export.bas"
sc_ec_541_end:;
#line 332 "ide/ide_export.bas"
goto sc_7438_end;
#line 332 "ide/ide_export.bas"
}
#line 332 "ide/ide_export.bas"
S_71244:;
#line 332 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7438,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 332 "ide/ide_export.bas"
if(qbevent){evnt(28819,332,"ide_export.bas");if(r)goto S_71244;}
#line 332 "ide/ide_export.bas"
do{
#line 332 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#FFB100]",15));
#line 332 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 332 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,332,"ide_export.bas");}while(r);
#line 333 "ide/ide_export.bas"
sc_ec_542_end:;
#line 333 "ide/ide_export.bas"
goto sc_7438_end;
#line 333 "ide/ide_export.bas"
}
#line 333 "ide/ide_export.bas"
do{
#line 333 "ide/ide_export.bas"
#include "ret504.txt"
#line 333 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,333,"ide_export.bas");}while(r);
#line 334 "ide/ide_export.bas"
sc_7438_end:;
#line 335 "ide/ide_export.bas"
sc_ec_543_end:;
#line 335 "ide/ide_export.bas"
goto sc_7434_end;
#line 335 "ide/ide_export.bas"
}
#line 335 "ide/ide_export.bas"
S_71249:;
#line 335 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7434,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 335 "ide/ide_export.bas"
if(qbevent){evnt(28819,335,"ide_export.bas");if(r)goto S_71249;}
#line 336 "ide/ide_export.bas"
S_71250:;
#line 336 "ide/ide_export.bas"
qbs_set(sc_7439,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 336 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 336 "ide/ide_export.bas"
if(qbevent){evnt(28819,336,"ide_export.bas");if(r)goto S_71250;}
#line 337 "ide/ide_export.bas"
S_71251:;
#line 337 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7439,qbs_new_txt_len("co",2))||qbs_equal(sc_7439,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 337 "ide/ide_export.bas"
if(qbevent){evnt(28819,337,"ide_export.bas");if(r)goto S_71251;}
#line 337 "ide/ide_export.bas"
do{
#line 337 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|<nowiki>",15));
#line 337 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 337 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,337,"ide_export.bas");}while(r);
#line 338 "ide/ide_export.bas"
sc_ec_544_end:;
#line 338 "ide/ide_export.bas"
goto sc_7439_end;
#line 338 "ide/ide_export.bas"
}
#line 338 "ide/ide_export.bas"
S_71253:;
#line 338 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7439,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 338 "ide/ide_export.bas"
if(qbevent){evnt(28819,338,"ide_export.bas");if(r)goto S_71253;}
#line 338 "ide/ide_export.bas"
do{
#line 338 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",7));
#line 338 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 338 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,338,"ide_export.bas");}while(r);
#line 339 "ide/ide_export.bas"
sc_ec_545_end:;
#line 339 "ide/ide_export.bas"
goto sc_7439_end;
#line 339 "ide/ide_export.bas"
}
#line 339 "ide/ide_export.bas"
do{
#line 339 "ide/ide_export.bas"
#include "ret504.txt"
#line 339 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,339,"ide_export.bas");}while(r);
#line 340 "ide/ide_export.bas"
sc_7439_end:;
#line 341 "ide/ide_export.bas"
sc_ec_546_end:;
#line 341 "ide/ide_export.bas"
goto sc_7434_end;
#line 341 "ide/ide_export.bas"
}
#line 341 "ide/ide_export.bas"
do{
#line 341 "ide/ide_export.bas"
#include "ret504.txt"
#line 341 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,341,"ide_export.bas");}while(r);
#line 342 "ide/ide_export.bas"
sc_7434_end:;
#line 343 "ide/ide_export.bas"
do{
#line 343 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
#line 343 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,343,"ide_export.bas");}while(r);
#line 343 "ide/ide_export.bas"
do{
#line 343 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
#line 343 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 343 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,343,"ide_export.bas");}while(r);
#line 344 "ide/ide_export.bas"
do{
#line 344 "ide/ide_export.bas"
#include "ret504.txt"
#line 344 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,344,"ide_export.bas");}while(r);
#line 346 "ide/ide_export.bas"
LABEL_CLOSETEXT:;
#line 346 "ide/ide_export.bas"
if(qbevent){evnt(28819,346,"ide_export.bas");r=0;}
#line 347 "ide/ide_export.bas"
S_71264:;
#line 347 "ide/ide_export.bas"
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()){
#line 347 "ide/ide_export.bas"
if(qbevent){evnt(28819,347,"ide_export.bas");if(r)goto S_71264;}
#line 347 "ide/ide_export.bas"
do{
#line 347 "ide/ide_export.bas"
#include "ret504.txt"
#line 347 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,347,"ide_export.bas");}while(r);
#line 347 "ide/ide_export.bas"
}
#line 348 "ide/ide_export.bas"
S_71267:;
#line 348 "ide/ide_export.bas"
qbs_set(sc_7442,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 348 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 348 "ide/ide_export.bas"
if(qbevent){evnt(28819,348,"ide_export.bas");if(r)goto S_71267;}
#line 349 "ide/ide_export.bas"
S_71268:;
#line 349 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7442,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 349 "ide/ide_export.bas"
if(qbevent){evnt(28819,349,"ide_export.bas");if(r)goto S_71268;}
#line 350 "ide/ide_export.bas"
S_71269:;
#line 350 "ide/ide_export.bas"
qbs_set(sc_7443,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 350 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 350 "ide/ide_export.bas"
if(qbevent){evnt(28819,350,"ide_export.bas");if(r)goto S_71269;}
#line 351 "ide/ide_export.bas"
S_71270:;
#line 351 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7443,qbs_new_txt_len("co",2))||qbs_equal(sc_7443,qbs_new_txt_len("nu",2))||qbs_equal(sc_7443,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 351 "ide/ide_export.bas"
if(qbevent){evnt(28819,351,"ide_export.bas");if(r)goto S_71270;}
#line 351 "ide/ide_export.bas"
do{
#line 351 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</span>",7));
#line 351 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 351 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,351,"ide_export.bas");}while(r);
#line 352 "ide/ide_export.bas"
sc_ec_547_end:;
#line 352 "ide/ide_export.bas"
goto sc_7443_end;
#line 352 "ide/ide_export.bas"
}
#line 352 "ide/ide_export.bas"
do{
#line 352 "ide/ide_export.bas"
#include "ret504.txt"
#line 352 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,352,"ide_export.bas");}while(r);
#line 353 "ide/ide_export.bas"
sc_7443_end:;
#line 354 "ide/ide_export.bas"
sc_ec_548_end:;
#line 354 "ide/ide_export.bas"
goto sc_7442_end;
#line 354 "ide/ide_export.bas"
}
#line 354 "ide/ide_export.bas"
S_71275:;
#line 354 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7442,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 354 "ide/ide_export.bas"
if(qbevent){evnt(28819,354,"ide_export.bas");if(r)goto S_71275;}
#line 355 "ide/ide_export.bas"
S_71276:;
#line 355 "ide/ide_export.bas"
qbs_set(sc_7444,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 355 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 355 "ide/ide_export.bas"
if(qbevent){evnt(28819,355,"ide_export.bas");if(r)goto S_71276;}
#line 356 "ide/ide_export.bas"
S_71277:;
#line 356 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7444,qbs_new_txt_len("co",2))||qbs_equal(sc_7444,qbs_new_txt_len("nu",2))||qbs_equal(sc_7444,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 356 "ide/ide_export.bas"
if(qbevent){evnt(28819,356,"ide_export.bas");if(r)goto S_71277;}
#line 356 "ide/ide_export.bas"
do{
#line 356 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf0 ",5));
#line 356 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 356 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,356,"ide_export.bas");}while(r);
#line 357 "ide/ide_export.bas"
sc_ec_549_end:;
#line 357 "ide/ide_export.bas"
goto sc_7444_end;
#line 357 "ide/ide_export.bas"
}
#line 357 "ide/ide_export.bas"
do{
#line 357 "ide/ide_export.bas"
#include "ret504.txt"
#line 357 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,357,"ide_export.bas");}while(r);
#line 358 "ide/ide_export.bas"
sc_7444_end:;
#line 359 "ide/ide_export.bas"
sc_ec_550_end:;
#line 359 "ide/ide_export.bas"
goto sc_7442_end;
#line 359 "ide/ide_export.bas"
}
#line 359 "ide/ide_export.bas"
S_71282:;
#line 359 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7442,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 359 "ide/ide_export.bas"
if(qbevent){evnt(28819,359,"ide_export.bas");if(r)goto S_71282;}
#line 360 "ide/ide_export.bas"
S_71283:;
#line 360 "ide/ide_export.bas"
qbs_set(sc_7445,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 360 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 360 "ide/ide_export.bas"
if(qbevent){evnt(28819,360,"ide_export.bas");if(r)goto S_71283;}
#line 361 "ide/ide_export.bas"
S_71284:;
#line 361 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7445,qbs_new_txt_len("co",2))||qbs_equal(sc_7445,qbs_new_txt_len("nu",2))||qbs_equal(sc_7445,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 361 "ide/ide_export.bas"
if(qbevent){evnt(28819,361,"ide_export.bas");if(r)goto S_71284;}
#line 361 "ide/ide_export.bas"
do{
#line 361 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[38m",4)));
#line 361 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 361 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,361,"ide_export.bas");}while(r);
#line 362 "ide/ide_export.bas"
sc_ec_551_end:;
#line 362 "ide/ide_export.bas"
goto sc_7445_end;
#line 362 "ide/ide_export.bas"
}
#line 362 "ide/ide_export.bas"
do{
#line 362 "ide/ide_export.bas"
#include "ret504.txt"
#line 362 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,362,"ide_export.bas");}while(r);
#line 363 "ide/ide_export.bas"
sc_7445_end:;
#line 364 "ide/ide_export.bas"
sc_ec_552_end:;
#line 364 "ide/ide_export.bas"
goto sc_7442_end;
#line 364 "ide/ide_export.bas"
}
#line 364 "ide/ide_export.bas"
S_71289:;
#line 364 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7442,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 364 "ide/ide_export.bas"
if(qbevent){evnt(28819,364,"ide_export.bas");if(r)goto S_71289;}
#line 365 "ide/ide_export.bas"
S_71290:;
#line 365 "ide/ide_export.bas"
qbs_set(sc_7446,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 365 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 365 "ide/ide_export.bas"
if(qbevent){evnt(28819,365,"ide_export.bas");if(r)goto S_71290;}
#line 366 "ide/ide_export.bas"
S_71291:;
#line 366 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7446,qbs_new_txt_len("co",2))||qbs_equal(sc_7446,qbs_new_txt_len("nu",2))||qbs_equal(sc_7446,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 366 "ide/ide_export.bas"
if(qbevent){evnt(28819,366,"ide_export.bas");if(r)goto S_71291;}
#line 366 "ide/ide_export.bas"
do{
#line 366 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/color]",8));
#line 366 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 366 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,366,"ide_export.bas");}while(r);
#line 367 "ide/ide_export.bas"
sc_ec_553_end:;
#line 367 "ide/ide_export.bas"
goto sc_7446_end;
#line 367 "ide/ide_export.bas"
}
#line 367 "ide/ide_export.bas"
do{
#line 367 "ide/ide_export.bas"
#include "ret504.txt"
#line 367 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,367,"ide_export.bas");}while(r);
#line 368 "ide/ide_export.bas"
sc_7446_end:;
#line 369 "ide/ide_export.bas"
sc_ec_554_end:;
#line 369 "ide/ide_export.bas"
goto sc_7442_end;
#line 369 "ide/ide_export.bas"
}
#line 369 "ide/ide_export.bas"
S_71296:;
#line 369 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7442,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 369 "ide/ide_export.bas"
if(qbevent){evnt(28819,369,"ide_export.bas");if(r)goto S_71296;}
#line 370 "ide/ide_export.bas"
S_71297:;
#line 370 "ide/ide_export.bas"
qbs_set(sc_7447,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
#line 370 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 370 "ide/ide_export.bas"
if(qbevent){evnt(28819,370,"ide_export.bas");if(r)goto S_71297;}
#line 371 "ide/ide_export.bas"
S_71298:;
#line 371 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7447,qbs_new_txt_len("co",2))))||is_error_pending()){
#line 371 "ide/ide_export.bas"
if(qbevent){evnt(28819,371,"ide_export.bas");if(r)goto S_71298;}
#line 371 "ide/ide_export.bas"
do{
#line 371 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#919191}}",19));
#line 371 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 371 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,371,"ide_export.bas");}while(r);
#line 372 "ide/ide_export.bas"
sc_ec_555_end:;
#line 372 "ide/ide_export.bas"
goto sc_7447_end;
#line 372 "ide/ide_export.bas"
}
#line 372 "ide/ide_export.bas"
S_71300:;
#line 372 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7447,qbs_new_txt_len("nu",2))))||is_error_pending()){
#line 372 "ide/ide_export.bas"
if(qbevent){evnt(28819,372,"ide_export.bas");if(r)goto S_71300;}
#line 372 "ide/ide_export.bas"
do{
#line 372 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#F580B1}}",10));
#line 372 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 372 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,372,"ide_export.bas");}while(r);
#line 373 "ide/ide_export.bas"
sc_ec_556_end:;
#line 373 "ide/ide_export.bas"
goto sc_7447_end;
#line 373 "ide/ide_export.bas"
}
#line 373 "ide/ide_export.bas"
S_71302:;
#line 373 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7447,qbs_new_txt_len("qu",2))))||is_error_pending()){
#line 373 "ide/ide_export.bas"
if(qbevent){evnt(28819,373,"ide_export.bas");if(r)goto S_71302;}
#line 373 "ide/ide_export.bas"
do{
#line 373 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#FFB100}}",19));
#line 373 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 373 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,373,"ide_export.bas");}while(r);
#line 374 "ide/ide_export.bas"
sc_ec_557_end:;
#line 374 "ide/ide_export.bas"
goto sc_7447_end;
#line 374 "ide/ide_export.bas"
}
#line 374 "ide/ide_export.bas"
do{
#line 374 "ide/ide_export.bas"
#include "ret504.txt"
#line 374 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,374,"ide_export.bas");}while(r);
#line 375 "ide/ide_export.bas"
sc_7447_end:;
#line 376 "ide/ide_export.bas"
sc_ec_558_end:;
#line 376 "ide/ide_export.bas"
goto sc_7442_end;
#line 376 "ide/ide_export.bas"
}
#line 376 "ide/ide_export.bas"
do{
#line 376 "ide/ide_export.bas"
#include "ret504.txt"
#line 376 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,376,"ide_export.bas");}while(r);
#line 377 "ide/ide_export.bas"
sc_7442_end:;
#line 378 "ide/ide_export.bas"
S_71310:;
#line 378 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_POST)||is_error_pending()){
#line 378 "ide/ide_export.bas"
if(qbevent){evnt(28819,378,"ide_export.bas");if(r)goto S_71310;}
#line 379 "ide/ide_export.bas"
do{
#line 379 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
#line 379 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,379,"ide_export.bas");}while(r);
#line 379 "ide/ide_export.bas"
do{
#line 379 "ide/ide_export.bas"
return_point[next_return_point++]=248;
#line 379 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 379 "ide/ide_export.bas"
goto LABEL_ESCAPECHAR;
#line 379 "ide/ide_export.bas"
RETURN_248:;
#line 379 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,379,"ide_export.bas");}while(r);
#line 380 "ide/ide_export.bas"
S_71313:;
#line 380 "ide/ide_export.bas"
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
#line 380 "ide/ide_export.bas"
if(qbevent){evnt(28819,380,"ide_export.bas");if(r)goto S_71313;}
#line 380 "ide/ide_export.bas"
do{
#line 380 "ide/ide_export.bas"
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
#line 380 "ide/ide_export.bas"
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
#line 380 "ide/ide_export.bas"
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
#line 380 "ide/ide_export.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 380 "ide/ide_export.bas"
}}}
#line 380 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,380,"ide_export.bas");}while(r);
#line 380 "ide/ide_export.bas"
do{
#line 380 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
#line 380 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,380,"ide_export.bas");}while(r);
#line 380 "ide/ide_export.bas"
do{
#line 380 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 380 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,380,"ide_export.bas");}while(r);
#line 380 "ide/ide_export.bas"
}
#line 381 "ide/ide_export.bas"
}
#line 382 "ide/ide_export.bas"
do{
#line 382 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
#line 382 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,382,"ide_export.bas");}while(r);
#line 382 "ide/ide_export.bas"
do{
#line 382 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
#line 382 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 382 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,382,"ide_export.bas");}while(r);
#line 383 "ide/ide_export.bas"
do{
#line 383 "ide/ide_export.bas"
#include "ret504.txt"
#line 383 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,383,"ide_export.bas");}while(r);
#line 385 "ide/ide_export.bas"
LABEL_VERIFYKEYWORD:;
#line 385 "ide/ide_export.bas"
if(qbevent){evnt(28819,385,"ide_export.bas");r=0;}
#line 386 "ide/ide_export.bas"
S_71322:;
#line 386 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 386 "ide/ide_export.bas"
if(qbevent){evnt(28819,386,"ide_export.bas");if(r)goto S_71322;}
#line 386 "ide/ide_export.bas"
do{
#line 386 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_ME);
#line 386 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 386 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,386,"ide_export.bas");}while(r);
#line 386 "ide/ide_export.bas"
}else{
#line 386 "ide/ide_export.bas"
do{
#line 386 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_KW);
#line 386 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 386 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,386,"ide_export.bas");}while(r);
#line 386 "ide/ide_export.bas"
}
#line 387 "ide/ide_export.bas"
S_71327:;
#line 387 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )!= 95 )))||is_error_pending()){
#line 387 "ide/ide_export.bas"
if(qbevent){evnt(28819,387,"ide_export.bas");if(r)goto S_71327;}
#line 387 "ide/ide_export.bas"
do{
#line 387 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FLP= 1 ;
#line 387 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,387,"ide_export.bas");}while(r);
#line 387 "ide/ide_export.bas"
}else{
#line 387 "ide/ide_export.bas"
do{
#line 387 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FLP= 2 ;
#line 387 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,387,"ide_export.bas");}while(r);
#line 387 "ide/ide_export.bas"
}
#line 388 "ide/ide_export.bas"
S_71332:;
#line 388 "ide/ide_export.bas"
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()){
#line 388 "ide/ide_export.bas"
if(qbevent){evnt(28819,388,"ide_export.bas");if(r)goto S_71332;}
#line 389 "ide/ide_export.bas"
S_71333:;
#line 389 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
#line 389 "ide/ide_export.bas"
if(qbevent){evnt(28819,389,"ide_export.bas");if(r)goto S_71333;}
#line 390 "ide/ide_export.bas"
S_71334:;
#line 390 "ide/ide_export.bas"
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()){
#line 390 "ide/ide_export.bas"
if(qbevent){evnt(28819,390,"ide_export.bas");if(r)goto S_71334;}
#line 390 "ide/ide_export.bas"
do{
#line 390 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 390 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 390 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,390,"ide_export.bas");}while(r);
#line 390 "ide/ide_export.bas"
}
#line 391 "ide/ide_export.bas"
S_71337:;
#line 391 "ide/ide_export.bas"
}else{
#line 391 "ide/ide_export.bas"
if (*_SUB_EXPORTCODEAS_INTEGER_ME&(~(*_SUB_EXPORTCODEAS_INTEGER_LE))){
#line 391 "ide/ide_export.bas"
if(qbevent){evnt(28819,391,"ide_export.bas");if(r)goto S_71337;}
#line 392 "ide/ide_export.bas"
S_71338:;
#line 392 "ide/ide_export.bas"
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()){
#line 392 "ide/ide_export.bas"
if(qbevent){evnt(28819,392,"ide_export.bas");if(r)goto S_71338;}
#line 392 "ide/ide_export.bas"
do{
#line 392 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 392 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 392 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,392,"ide_export.bas");}while(r);
#line 392 "ide/ide_export.bas"
}
#line 393 "ide/ide_export.bas"
}
#line 393 "ide/ide_export.bas"
}
#line 394 "ide/ide_export.bas"
S_71342:;
#line 394 "ide/ide_export.bas"
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 394 "ide/ide_export.bas"
if(qbevent){evnt(28819,394,"ide_export.bas");if(r)goto S_71342;}
#line 394 "ide/ide_export.bas"
do{
#line 394 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 394 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 394 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,394,"ide_export.bas");}while(r);
#line 394 "ide/ide_export.bas"
}
#line 395 "ide/ide_export.bas"
S_71345:;
#line 395 "ide/ide_export.bas"
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
#line 395 "ide/ide_export.bas"
if(qbevent){evnt(28819,395,"ide_export.bas");if(r)goto S_71345;}
#line 395 "ide/ide_export.bas"
do{
#line 395 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 395 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 395 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,395,"ide_export.bas");}while(r);
#line 395 "ide/ide_export.bas"
}
#line 396 "ide/ide_export.bas"
S_71348:;
#line 396 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 396 "ide/ide_export.bas"
if(qbevent){evnt(28819,396,"ide_export.bas");if(r)goto S_71348;}
#line 396 "ide/ide_export.bas"
do{
#line 396 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,_SUB_EXPORTCODEAS_STRING_VERI);
#line 396 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 396 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,396,"ide_export.bas");}while(r);
#line 396 "ide/ide_export.bas"
}
#line 397 "ide/ide_export.bas"
S_71351:;
#line 397 "ide/ide_export.bas"
}else{
#line 397 "ide/ide_export.bas"
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 )))){
#line 397 "ide/ide_export.bas"
if(qbevent){evnt(28819,397,"ide_export.bas");if(r)goto S_71351;}
#line 398 "ide/ide_export.bas"
do{
#line 398 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
#line 398 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,398,"ide_export.bas");}while(r);
#line 399 "ide/ide_export.bas"
S_71353:;
#line 399 "ide/ide_export.bas"
}else{
#line 399 "ide/ide_export.bas"
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 )))){
#line 399 "ide/ide_export.bas"
if(qbevent){evnt(28819,399,"ide_export.bas");if(r)goto S_71353;}
#line 400 "ide/ide_export.bas"
do{
#line 400 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
#line 400 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,400,"ide_export.bas");}while(r);
#line 401 "ide/ide_export.bas"
}else{
#line 402 "ide/ide_export.bas"
S_71356:;
#line 402 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 402 "ide/ide_export.bas"
if(qbevent){evnt(28819,402,"ide_export.bas");if(r)goto S_71356;}
#line 402 "ide/ide_export.bas"
do{
#line 402 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
#line 402 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 402 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,402,"ide_export.bas");}while(r);
#line 402 "ide/ide_export.bas"
}else{
#line 402 "ide/ide_export.bas"
do{
#line 402 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
#line 402 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 402 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,402,"ide_export.bas");}while(r);
#line 402 "ide/ide_export.bas"
}
#line 403 "ide/ide_export.bas"
}
#line 403 "ide/ide_export.bas"
}
#line 403 "ide/ide_export.bas"
}
#line 404 "ide/ide_export.bas"
S_71362:;
#line 404 "ide/ide_export.bas"
if (((-(*_SUB_EXPORTCODEAS_INTEGER_ML< 0 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 58 )))||is_error_pending()){
#line 404 "ide/ide_export.bas"
if(qbevent){evnt(28819,404,"ide_export.bas");if(r)goto S_71362;}
#line 404 "ide/ide_export.bas"
do{
#line 404 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_ML= -2 ;
#line 404 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,404,"ide_export.bas");}while(r);
#line 404 "ide/ide_export.bas"
}
#line 405 "ide/ide_export.bas"
do{
#line 405 "ide/ide_export.bas"
#include "ret504.txt"
#line 405 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,405,"ide_export.bas");}while(r);
#line 407 "ide/ide_export.bas"
LABEL_FINDWIKIPAGE:;
#line 407 "ide/ide_export.bas"
if(qbevent){evnt(28819,407,"ide_export.bas");r=0;}
#line 408 "ide/ide_export.bas"
S_71366:;
#line 408 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
#line 408 "ide/ide_export.bas"
if(qbevent){evnt(28819,408,"ide_export.bas");if(r)goto S_71366;}
#line 408 "ide/ide_export.bas"
do{
#line 408 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
#line 408 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 408 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,408,"ide_export.bas");}while(r);
#line 408 "ide/ide_export.bas"
}else{
#line 408 "ide/ide_export.bas"
do{
#line 408 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
#line 408 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 408 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,408,"ide_export.bas");}while(r);
#line 408 "ide/ide_export.bas"
}
#line 409 "ide/ide_export.bas"
S_71371:;
#line 409 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_OP)||is_error_pending()){
#line 409 "ide/ide_export.bas"
if(qbevent){evnt(28819,409,"ide_export.bas");if(r)goto S_71371;}
#line 410 "ide/ide_export.bas"
S_71372:;
#line 410 "ide/ide_export.bas"
if(qbevent){evnt(28819,410,"ide_export.bas");if(r)goto S_71372;}
#line 411 "ide/ide_export.bas"
S_71373:;
#line 411 "ide/ide_export.bas"
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()){
#line 411 "ide/ide_export.bas"
if(qbevent){evnt(28819,411,"ide_export.bas");if(r)goto S_71373;}
#line 411 "ide/ide_export.bas"
do{
#line 411 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
#line 411 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 411 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,411,"ide_export.bas");}while(r);
#line 411 "ide/ide_export.bas"
do{
#line 411 "ide/ide_export.bas"
#include "ret504.txt"
#line 411 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,411,"ide_export.bas");}while(r);
#line 412 "ide/ide_export.bas"
sc_ec_559_end:;
#line 412 "ide/ide_export.bas"
goto sc_7450_end;
#line 412 "ide/ide_export.bas"
}
#line 412 "ide/ide_export.bas"
S_71376:;
#line 412 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LEN",3))))||is_error_pending()){
#line 412 "ide/ide_export.bas"
if(qbevent){evnt(28819,412,"ide_export.bas");if(r)goto S_71376;}
#line 413 "ide/ide_export.bas"
do{
#line 413 "ide/ide_export.bas"
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))));
#line 413 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 413 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,413,"ide_export.bas");}while(r);
#line 414 "ide/ide_export.bas"
S_71378:;
#line 414 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 414 "ide/ide_export.bas"
if(qbevent){evnt(28819,414,"ide_export.bas");if(r)goto S_71378;}
#line 414 "ide/ide_export.bas"
do{
#line 414 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
#line 414 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 414 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,414,"ide_export.bas");}while(r);
#line 414 "ide/ide_export.bas"
do{
#line 414 "ide/ide_export.bas"
#include "ret504.txt"
#line 414 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,414,"ide_export.bas");}while(r);
#line 414 "ide/ide_export.bas"
}
#line 415 "ide/ide_export.bas"
sc_ec_560_end:;
#line 415 "ide/ide_export.bas"
goto sc_7450_end;
#line 415 "ide/ide_export.bas"
}
#line 415 "ide/ide_export.bas"
S_71382:;
#line 415 "ide/ide_export.bas"
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()){
#line 415 "ide/ide_export.bas"
if(qbevent){evnt(28819,415,"ide_export.bas");if(r)goto S_71382;}
#line 415 "ide/ide_export.bas"
do{
#line 415 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_ACCESS_and_LOCK_Permissions",37));
#line 415 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 415 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,415,"ide_export.bas");}while(r);
#line 415 "ide/ide_export.bas"
do{
#line 415 "ide/ide_export.bas"
#include "ret504.txt"
#line 415 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,415,"ide_export.bas");}while(r);
#line 416 "ide/ide_export.bas"
sc_ec_561_end:;
#line 416 "ide/ide_export.bas"
goto sc_7450_end;
#line 416 "ide/ide_export.bas"
}
#line 416 "ide/ide_export.bas"
S_71385:;
#line 416 "ide/ide_export.bas"
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()){
#line 416 "ide/ide_export.bas"
if(qbevent){evnt(28819,416,"ide_export.bas");if(r)goto S_71385;}
#line 416 "ide/ide_export.bas"
do{
#line 416 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_Access_Modes",22));
#line 416 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 416 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,416,"ide_export.bas");}while(r);
#line 416 "ide/ide_export.bas"
do{
#line 416 "ide/ide_export.bas"
#include "ret504.txt"
#line 416 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,416,"ide_export.bas");}while(r);
#line 417 "ide/ide_export.bas"
sc_ec_562_end:;
#line 417 "ide/ide_export.bas"
goto sc_7450_end;
#line 417 "ide/ide_export.bas"
}
#line 417 "ide/ide_export.bas"
sc_7450_end:;
#line 418 "ide/ide_export.bas"
}
#line 419 "ide/ide_export.bas"
S_71390:;
#line 419 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("_STATIC",7)))|(qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("_DYNAMIC",8)))))||is_error_pending()){
#line 419 "ide/ide_export.bas"
if(qbevent){evnt(28819,419,"ide_export.bas");if(r)goto S_71390;}
#line 420 "ide/ide_export.bas"
do{
#line 420 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (type field)",13)));
#line 420 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 420 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,420,"ide_export.bas");}while(r);
#line 421 "ide/ide_export.bas"
S_71392:;
#line 421 "ide/ide_export.bas"
}else{
#line 421 "ide/ide_export.bas"
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 )))){
#line 421 "ide/ide_export.bas"
if(qbevent){evnt(28819,421,"ide_export.bas");if(r)goto S_71392;}
#line 422 "ide/ide_export.bas"
do{
#line 422 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (function)",11)));
#line 422 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 422 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,422,"ide_export.bas");}while(r);
#line 423 "ide/ide_export.bas"
S_71394:;
#line 423 "ide/ide_export.bas"
}else{
#line 423 "ide/ide_export.bas"
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 )))){
#line 423 "ide/ide_export.bas"
if(qbevent){evnt(28819,423,"ide_export.bas");if(r)goto S_71394;}
#line 424 "ide/ide_export.bas"
do{
#line 424 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (boolean)",10)));
#line 424 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 424 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,424,"ide_export.bas");}while(r);
#line 425 "ide/ide_export.bas"
S_71396:;
#line 425 "ide/ide_export.bas"
}else{
#line 425 "ide/ide_export.bas"
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 ))){
#line 425 "ide/ide_export.bas"
if(qbevent){evnt(28819,425,"ide_export.bas");if(r)goto S_71396;}
#line 426 "ide/ide_export.bas"
do{
#line 426 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("Mathematical Operations#Derived_Mathematical_Functions",54));
#line 426 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 426 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,426,"ide_export.bas");}while(r);
#line 427 "ide/ide_export.bas"
}else{
#line 428 "ide/ide_export.bas"
do{
#line 428 "ide/ide_export.bas"
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))));
#line 428 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 428 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,428,"ide_export.bas");}while(r);
#line 428 "ide/ide_export.bas"
do{
#line 428 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=_SUB_EXPORTCODEAS_STRING_OLA->len;
#line 428 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 428 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,428,"ide_export.bas");}while(r);
#line 429 "ide/ide_export.bas"
do{
#line 429 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(" ",1),0);
#line 429 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 429 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,429,"ide_export.bas");}while(r);
#line 429 "ide/ide_export.bas"
S_71402:;
#line 429 "ide/ide_export.bas"
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
#line 429 "ide/ide_export.bas"
if(qbevent){evnt(28819,429,"ide_export.bas");if(r)goto S_71402;}
#line 429 "ide/ide_export.bas"
do{
#line 429 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
#line 429 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,429,"ide_export.bas");}while(r);
#line 429 "ide/ide_export.bas"
}
#line 430 "ide/ide_export.bas"
do{
#line 430 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len("(",1),0);
#line 430 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 430 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,430,"ide_export.bas");}while(r);
#line 430 "ide/ide_export.bas"
S_71406:;
#line 430 "ide/ide_export.bas"
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
#line 430 "ide/ide_export.bas"
if(qbevent){evnt(28819,430,"ide_export.bas");if(r)goto S_71406;}
#line 430 "ide/ide_export.bas"
do{
#line 430 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
#line 430 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,430,"ide_export.bas");}while(r);
#line 430 "ide/ide_export.bas"
}
#line 431 "ide/ide_export.bas"
do{
#line 431 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(":",1),0);
#line 431 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 431 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,431,"ide_export.bas");}while(r);
#line 431 "ide/ide_export.bas"
S_71410:;
#line 431 "ide/ide_export.bas"
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
#line 431 "ide/ide_export.bas"
if(qbevent){evnt(28819,431,"ide_export.bas");if(r)goto S_71410;}
#line 431 "ide/ide_export.bas"
do{
#line 431 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
#line 431 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,431,"ide_export.bas");}while(r);
#line 431 "ide/ide_export.bas"
}
#line 432 "ide/ide_export.bas"
do{
#line 432 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 13 ),0);
#line 432 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 432 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,432,"ide_export.bas");}while(r);
#line 432 "ide/ide_export.bas"
S_71414:;
#line 432 "ide/ide_export.bas"
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
#line 432 "ide/ide_export.bas"
if(qbevent){evnt(28819,432,"ide_export.bas");if(r)goto S_71414;}
#line 432 "ide/ide_export.bas"
do{
#line 432 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
#line 432 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,432,"ide_export.bas");}while(r);
#line 432 "ide/ide_export.bas"
}
#line 433 "ide/ide_export.bas"
do{
#line 433 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 10 ),0);
#line 433 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 433 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,433,"ide_export.bas");}while(r);
#line 433 "ide/ide_export.bas"
S_71418:;
#line 433 "ide/ide_export.bas"
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
#line 433 "ide/ide_export.bas"
if(qbevent){evnt(28819,433,"ide_export.bas");if(r)goto S_71418;}
#line 433 "ide/ide_export.bas"
do{
#line 433 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
#line 433 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,433,"ide_export.bas");}while(r);
#line 433 "ide/ide_export.bas"
}
#line 434 "ide/ide_export.bas"
do{
#line 434 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_rtrim(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA,*_SUB_EXPORTCODEAS_INTEGER_SP- 1 )));
#line 434 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 434 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,434,"ide_export.bas");}while(r);
#line 435 "ide/ide_export.bas"
S_71422:;
#line 435 "ide/ide_export.bas"
sc_7452_var=0;
#line 435 "ide/ide_export.bas"
if(qbevent){evnt(28819,435,"ide_export.bas");if(r)goto S_71422;}
#line 436 "ide/ide_export.bas"
S_71423:;
#line 436 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END",4))))||is_error_pending()){
#line 436 "ide/ide_export.bas"
if(qbevent){evnt(28819,436,"ide_export.bas");if(r)goto S_71423;}
#line 436 "ide/ide_export.bas"
S_71424:;
#line 436 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
#line 436 "ide/ide_export.bas"
if(qbevent){evnt(28819,436,"ide_export.bas");if(r)goto S_71424;}
#line 436 "ide/ide_export.bas"
do{
#line 436 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 436 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 436 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,436,"ide_export.bas");}while(r);
#line 436 "ide/ide_export.bas"
do{
#line 436 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END IF",7));
#line 436 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 436 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,436,"ide_export.bas");}while(r);
#line 436 "ide/ide_export.bas"
do{
#line 436 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 436 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,436,"ide_export.bas");}while(r);
#line 436 "ide/ide_export.bas"
}
#line 437 "ide/ide_export.bas"
sc_ec_563_end:;
#line 437 "ide/ide_export.bas"
sc_7452_var=-1;
#line 437 "ide/ide_export.bas"
}
#line 437 "ide/ide_export.bas"
S_71429:;
#line 437 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("_CONSOLECURSOR",14))))||is_error_pending()){
#line 437 "ide/ide_export.bas"
if(qbevent){evnt(28819,437,"ide_export.bas");if(r)goto S_71429;}
#line 438 "ide/ide_export.bas"
S_71430:;
#line 438 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_HIDE",5))))||is_error_pending()){
#line 438 "ide/ide_export.bas"
if(qbevent){evnt(28819,438,"ide_export.bas");if(r)goto S_71430;}
#line 438 "ide/ide_export.bas"
do{
#line 438 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 438 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 438 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,438,"ide_export.bas");}while(r);
#line 438 "ide/ide_export.bas"
do{
#line 438 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 438 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,438,"ide_export.bas");}while(r);
#line 438 "ide/ide_export.bas"
}
#line 439 "ide/ide_export.bas"
S_71434:;
#line 439 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_SHOW",5))))||is_error_pending()){
#line 439 "ide/ide_export.bas"
if(qbevent){evnt(28819,439,"ide_export.bas");if(r)goto S_71434;}
#line 439 "ide/ide_export.bas"
do{
#line 439 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 439 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 439 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,439,"ide_export.bas");}while(r);
#line 439 "ide/ide_export.bas"
do{
#line 439 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 439 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,439,"ide_export.bas");}while(r);
#line 439 "ide/ide_export.bas"
}
#line 440 "ide/ide_export.bas"
sc_ec_564_end:;
#line 440 "ide/ide_export.bas"
sc_7452_var=-1;
#line 440 "ide/ide_export.bas"
}
#line 440 "ide/ide_export.bas"
S_71438:;
#line 440 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL",4))))||is_error_pending()){
#line 440 "ide/ide_export.bas"
if(qbevent){evnt(28819,440,"ide_export.bas");if(r)goto S_71438;}
#line 440 "ide/ide_export.bas"
S_71439:;
#line 440 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
#line 440 "ide/ide_export.bas"
if(qbevent){evnt(28819,440,"ide_export.bas");if(r)goto S_71439;}
#line 440 "ide/ide_export.bas"
do{
#line 440 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 440 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 440 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,440,"ide_export.bas");}while(r);
#line 440 "ide/ide_export.bas"
do{
#line 440 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL ABSOLUTE",13));
#line 440 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 440 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,440,"ide_export.bas");}while(r);
#line 440 "ide/ide_export.bas"
do{
#line 440 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 440 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,440,"ide_export.bas");}while(r);
#line 440 "ide/ide_export.bas"
}
#line 441 "ide/ide_export.bas"
sc_ec_565_end:;
#line 441 "ide/ide_export.bas"
sc_7452_var=-1;
#line 441 "ide/ide_export.bas"
}
#line 441 "ide/ide_export.bas"
S_71444:;
#line 441 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE",4))))||is_error_pending()){
#line 441 "ide/ide_export.bas"
if(qbevent){evnt(28819,441,"ide_export.bas");if(r)goto S_71444;}
#line 442 "ide/ide_export.bas"
S_71445:;
#line 442 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IS",2))))||is_error_pending()){
#line 442 "ide/ide_export.bas"
if(qbevent){evnt(28819,442,"ide_export.bas");if(r)goto S_71445;}
#line 442 "ide/ide_export.bas"
do{
#line 442 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 442 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 442 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,442,"ide_export.bas");}while(r);
#line 442 "ide/ide_export.bas"
do{
#line 442 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE IS",7));
#line 442 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 442 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,442,"ide_export.bas");}while(r);
#line 442 "ide/ide_export.bas"
do{
#line 442 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 442 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,442,"ide_export.bas");}while(r);
#line 442 "ide/ide_export.bas"
do{
#line 442 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 442 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,442,"ide_export.bas");}while(r);
#line 442 "ide/ide_export.bas"
do{
#line 442 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 442 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,442,"ide_export.bas");}while(r);
#line 442 "ide/ide_export.bas"
}
#line 443 "ide/ide_export.bas"
S_71452:;
#line 443 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
#line 443 "ide/ide_export.bas"
if(qbevent){evnt(28819,443,"ide_export.bas");if(r)goto S_71452;}
#line 443 "ide/ide_export.bas"
do{
#line 443 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 443 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 443 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,443,"ide_export.bas");}while(r);
#line 443 "ide/ide_export.bas"
do{
#line 443 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE ELSE",9));
#line 443 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 443 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,443,"ide_export.bas");}while(r);
#line 443 "ide/ide_export.bas"
do{
#line 443 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
#line 443 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,443,"ide_export.bas");}while(r);
#line 443 "ide/ide_export.bas"
do{
#line 443 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
#line 443 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,443,"ide_export.bas");}while(r);
#line 443 "ide/ide_export.bas"
do{
#line 443 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 443 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,443,"ide_export.bas");}while(r);
#line 443 "ide/ide_export.bas"
}
#line 444 "ide/ide_export.bas"
sc_ec_566_end:;
#line 444 "ide/ide_export.bas"
sc_7452_var=-1;
#line 444 "ide/ide_export.bas"
}
#line 444 "ide/ide_export.bas"
S_71459:;
#line 444 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
#line 444 "ide/ide_export.bas"
if(qbevent){evnt(28819,444,"ide_export.bas");if(r)goto S_71459;}
#line 444 "ide/ide_export.bas"
S_71460:;
#line 444 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
#line 444 "ide/ide_export.bas"
if(qbevent){evnt(28819,444,"ide_export.bas");if(r)goto S_71460;}
#line 444 "ide/ide_export.bas"
do{
#line 444 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 444 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 444 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,444,"ide_export.bas");}while(r);
#line 444 "ide/ide_export.bas"
do{
#line 444 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE LIBRARY",15));
#line 444 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 444 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,444,"ide_export.bas");}while(r);
#line 444 "ide/ide_export.bas"
do{
#line 444 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 444 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,444,"ide_export.bas");}while(r);
#line 444 "ide/ide_export.bas"
}
#line 445 "ide/ide_export.bas"
sc_ec_567_end:;
#line 445 "ide/ide_export.bas"
sc_7452_var=-1;
#line 445 "ide/ide_export.bas"
}
#line 445 "ide/ide_export.bas"
S_71465:;
#line 445 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF",3))))||is_error_pending()){
#line 445 "ide/ide_export.bas"
if(qbevent){evnt(28819,445,"ide_export.bas");if(r)goto S_71465;}
#line 445 "ide/ide_export.bas"
S_71466:;
#line 445 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SEG",3))))||is_error_pending()){
#line 445 "ide/ide_export.bas"
if(qbevent){evnt(28819,445,"ide_export.bas");if(r)goto S_71466;}
#line 445 "ide/ide_export.bas"
do{
#line 445 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 445 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 445 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,445,"ide_export.bas");}while(r);
#line 445 "ide/ide_export.bas"
do{
#line 445 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF SEG",7));
#line 445 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 445 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,445,"ide_export.bas");}while(r);
#line 445 "ide/ide_export.bas"
do{
#line 445 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 445 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,445,"ide_export.bas");}while(r);
#line 445 "ide/ide_export.bas"
}
#line 446 "ide/ide_export.bas"
sc_ec_568_end:;
#line 446 "ide/ide_export.bas"
sc_7452_var=-1;
#line 446 "ide/ide_export.bas"
}
#line 446 "ide/ide_export.bas"
S_71471:;
#line 446 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO",2))))||is_error_pending()){
#line 446 "ide/ide_export.bas"
if(qbevent){evnt(28819,446,"ide_export.bas");if(r)goto S_71471;}
#line 447 "ide/ide_export.bas"
S_71472:;
#line 447 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 447 "ide/ide_export.bas"
if(qbevent){evnt(28819,447,"ide_export.bas");if(r)goto S_71472;}
#line 447 "ide/ide_export.bas"
do{
#line 447 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 447 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 447 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,447,"ide_export.bas");}while(r);
#line 447 "ide/ide_export.bas"
do{
#line 447 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
#line 447 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 447 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,447,"ide_export.bas");}while(r);
#line 447 "ide/ide_export.bas"
do{
#line 447 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 447 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,447,"ide_export.bas");}while(r);
#line 447 "ide/ide_export.bas"
do{
#line 447 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 447 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,447,"ide_export.bas");}while(r);
#line 447 "ide/ide_export.bas"
do{
#line 447 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 447 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,447,"ide_export.bas");}while(r);
#line 447 "ide/ide_export.bas"
}
#line 448 "ide/ide_export.bas"
S_71479:;
#line 448 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
#line 448 "ide/ide_export.bas"
if(qbevent){evnt(28819,448,"ide_export.bas");if(r)goto S_71479;}
#line 448 "ide/ide_export.bas"
do{
#line 448 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 448 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 448 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,448,"ide_export.bas");}while(r);
#line 448 "ide/ide_export.bas"
do{
#line 448 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
#line 448 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 448 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,448,"ide_export.bas");}while(r);
#line 448 "ide/ide_export.bas"
do{
#line 448 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 448 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,448,"ide_export.bas");}while(r);
#line 448 "ide/ide_export.bas"
do{
#line 448 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 448 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,448,"ide_export.bas");}while(r);
#line 448 "ide/ide_export.bas"
do{
#line 448 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 448 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,448,"ide_export.bas");}while(r);
#line 448 "ide/ide_export.bas"
}
#line 449 "ide/ide_export.bas"
sc_ec_569_end:;
#line 449 "ide/ide_export.bas"
sc_7452_var=-1;
#line 449 "ide/ide_export.bas"
}
#line 449 "ide/ide_export.bas"
S_71486:;
#line 449 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END",3))))||is_error_pending()){
#line 449 "ide/ide_export.bas"
if(qbevent){evnt(28819,449,"ide_export.bas");if(r)goto S_71486;}
#line 450 "ide/ide_export.bas"
S_71487:;
#line 450 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
#line 450 "ide/ide_export.bas"
if(qbevent){evnt(28819,450,"ide_export.bas");if(r)goto S_71487;}
#line 450 "ide/ide_export.bas"
do{
#line 450 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 450 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 450 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,450,"ide_export.bas");}while(r);
#line 450 "ide/ide_export.bas"
do{
#line 450 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END DECLARE",11));
#line 450 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 450 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,450,"ide_export.bas");}while(r);
#line 450 "ide/ide_export.bas"
do{
#line 450 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 450 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,450,"ide_export.bas");}while(r);
#line 450 "ide/ide_export.bas"
}
#line 451 "ide/ide_export.bas"
S_71492:;
#line 451 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 451 "ide/ide_export.bas"
if(qbevent){evnt(28819,451,"ide_export.bas");if(r)goto S_71492;}
#line 451 "ide/ide_export.bas"
do{
#line 451 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 451 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 451 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,451,"ide_export.bas");}while(r);
#line 451 "ide/ide_export.bas"
do{
#line 451 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END FUNCTION",12));
#line 451 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 451 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,451,"ide_export.bas");}while(r);
#line 451 "ide/ide_export.bas"
do{
#line 451 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 451 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,451,"ide_export.bas");}while(r);
#line 451 "ide/ide_export.bas"
}
#line 452 "ide/ide_export.bas"
S_71497:;
#line 452 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
#line 452 "ide/ide_export.bas"
if(qbevent){evnt(28819,452,"ide_export.bas");if(r)goto S_71497;}
#line 452 "ide/ide_export.bas"
do{
#line 452 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 452 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 452 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,452,"ide_export.bas");}while(r);
#line 452 "ide/ide_export.bas"
do{
#line 452 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END IF",6));
#line 452 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 452 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,452,"ide_export.bas");}while(r);
#line 452 "ide/ide_export.bas"
do{
#line 452 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 452 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,452,"ide_export.bas");}while(r);
#line 452 "ide/ide_export.bas"
}
#line 453 "ide/ide_export.bas"
S_71502:;
#line 453 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
#line 453 "ide/ide_export.bas"
if(qbevent){evnt(28819,453,"ide_export.bas");if(r)goto S_71502;}
#line 453 "ide/ide_export.bas"
do{
#line 453 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 453 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 453 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,453,"ide_export.bas");}while(r);
#line 453 "ide/ide_export.bas"
do{
#line 453 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SELECT",10));
#line 453 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 453 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,453,"ide_export.bas");}while(r);
#line 453 "ide/ide_export.bas"
do{
#line 453 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 453 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,453,"ide_export.bas");}while(r);
#line 453 "ide/ide_export.bas"
}
#line 454 "ide/ide_export.bas"
S_71507:;
#line 454 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 454 "ide/ide_export.bas"
if(qbevent){evnt(28819,454,"ide_export.bas");if(r)goto S_71507;}
#line 454 "ide/ide_export.bas"
do{
#line 454 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 454 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 454 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,454,"ide_export.bas");}while(r);
#line 454 "ide/ide_export.bas"
do{
#line 454 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SUB",7));
#line 454 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 454 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,454,"ide_export.bas");}while(r);
#line 454 "ide/ide_export.bas"
do{
#line 454 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 454 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,454,"ide_export.bas");}while(r);
#line 454 "ide/ide_export.bas"
}
#line 455 "ide/ide_export.bas"
S_71512:;
#line 455 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TYPE",4))))||is_error_pending()){
#line 455 "ide/ide_export.bas"
if(qbevent){evnt(28819,455,"ide_export.bas");if(r)goto S_71512;}
#line 455 "ide/ide_export.bas"
do{
#line 455 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 455 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 455 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,455,"ide_export.bas");}while(r);
#line 455 "ide/ide_export.bas"
do{
#line 455 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END TYPE",8));
#line 455 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 455 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,455,"ide_export.bas");}while(r);
#line 455 "ide/ide_export.bas"
do{
#line 455 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 455 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,455,"ide_export.bas");}while(r);
#line 455 "ide/ide_export.bas"
}
#line 456 "ide/ide_export.bas"
sc_ec_570_end:;
#line 456 "ide/ide_export.bas"
sc_7452_var=-1;
#line 456 "ide/ide_export.bas"
}
#line 456 "ide/ide_export.bas"
S_71517:;
#line 456 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
#line 456 "ide/ide_export.bas"
if(qbevent){evnt(28819,456,"ide_export.bas");if(r)goto S_71517;}
#line 457 "ide/ide_export.bas"
S_71518:;
#line 457 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
#line 457 "ide/ide_export.bas"
if(qbevent){evnt(28819,457,"ide_export.bas");if(r)goto S_71518;}
#line 457 "ide/ide_export.bas"
do{
#line 457 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 457 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 457 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,457,"ide_export.bas");}while(r);
#line 457 "ide/ide_export.bas"
do{
#line 457 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT CASE",9));
#line 457 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 457 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,457,"ide_export.bas");}while(r);
#line 457 "ide/ide_export.bas"
do{
#line 457 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 457 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,457,"ide_export.bas");}while(r);
#line 457 "ide/ide_export.bas"
}
#line 458 "ide/ide_export.bas"
S_71523:;
#line 458 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DO",2))))||is_error_pending()){
#line 458 "ide/ide_export.bas"
if(qbevent){evnt(28819,458,"ide_export.bas");if(r)goto S_71523;}
#line 458 "ide/ide_export.bas"
do{
#line 458 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 458 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 458 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,458,"ide_export.bas");}while(r);
#line 458 "ide/ide_export.bas"
do{
#line 458 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT DO",7));
#line 458 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 458 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,458,"ide_export.bas");}while(r);
#line 458 "ide/ide_export.bas"
do{
#line 458 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 458 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,458,"ide_export.bas");}while(r);
#line 458 "ide/ide_export.bas"
}
#line 459 "ide/ide_export.bas"
S_71528:;
#line 459 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FOR",3))))||is_error_pending()){
#line 459 "ide/ide_export.bas"
if(qbevent){evnt(28819,459,"ide_export.bas");if(r)goto S_71528;}
#line 459 "ide/ide_export.bas"
do{
#line 459 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 459 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 459 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,459,"ide_export.bas");}while(r);
#line 459 "ide/ide_export.bas"
do{
#line 459 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FOR",8));
#line 459 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 459 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,459,"ide_export.bas");}while(r);
#line 459 "ide/ide_export.bas"
do{
#line 459 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 459 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,459,"ide_export.bas");}while(r);
#line 459 "ide/ide_export.bas"
}
#line 460 "ide/ide_export.bas"
S_71533:;
#line 460 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
#line 460 "ide/ide_export.bas"
if(qbevent){evnt(28819,460,"ide_export.bas");if(r)goto S_71533;}
#line 460 "ide/ide_export.bas"
do{
#line 460 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 460 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 460 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,460,"ide_export.bas");}while(r);
#line 460 "ide/ide_export.bas"
do{
#line 460 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FUNCTION",13));
#line 460 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 460 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,460,"ide_export.bas");}while(r);
#line 460 "ide/ide_export.bas"
do{
#line 460 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 460 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,460,"ide_export.bas");}while(r);
#line 460 "ide/ide_export.bas"
}
#line 461 "ide/ide_export.bas"
S_71538:;
#line 461 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
#line 461 "ide/ide_export.bas"
if(qbevent){evnt(28819,461,"ide_export.bas");if(r)goto S_71538;}
#line 461 "ide/ide_export.bas"
do{
#line 461 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 461 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 461 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,461,"ide_export.bas");}while(r);
#line 461 "ide/ide_export.bas"
do{
#line 461 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SELECT",11));
#line 461 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 461 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,461,"ide_export.bas");}while(r);
#line 461 "ide/ide_export.bas"
do{
#line 461 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 461 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,461,"ide_export.bas");}while(r);
#line 461 "ide/ide_export.bas"
}
#line 462 "ide/ide_export.bas"
S_71543:;
#line 462 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
#line 462 "ide/ide_export.bas"
if(qbevent){evnt(28819,462,"ide_export.bas");if(r)goto S_71543;}
#line 462 "ide/ide_export.bas"
do{
#line 462 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 462 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 462 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,462,"ide_export.bas");}while(r);
#line 462 "ide/ide_export.bas"
do{
#line 462 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SUB",8));
#line 462 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 462 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,462,"ide_export.bas");}while(r);
#line 462 "ide/ide_export.bas"
do{
#line 462 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 462 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,462,"ide_export.bas");}while(r);
#line 462 "ide/ide_export.bas"
}
#line 463 "ide/ide_export.bas"
S_71548:;
#line 463 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 463 "ide/ide_export.bas"
if(qbevent){evnt(28819,463,"ide_export.bas");if(r)goto S_71548;}
#line 463 "ide/ide_export.bas"
do{
#line 463 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 463 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 463 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,463,"ide_export.bas");}while(r);
#line 463 "ide/ide_export.bas"
do{
#line 463 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT WHILE",10));
#line 463 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 463 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,463,"ide_export.bas");}while(r);
#line 463 "ide/ide_export.bas"
do{
#line 463 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 463 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,463,"ide_export.bas");}while(r);
#line 463 "ide/ide_export.bas"
}
#line 464 "ide/ide_export.bas"
sc_ec_571_end:;
#line 464 "ide/ide_export.bas"
sc_7452_var=-1;
#line 464 "ide/ide_export.bas"
}
#line 464 "ide/ide_export.bas"
S_71553:;
#line 464 "ide/ide_export.bas"
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()){
#line 464 "ide/ide_export.bas"
if(qbevent){evnt(28819,464,"ide_export.bas");if(r)goto S_71553;}
#line 464 "ide/ide_export.bas"
S_71554:;
#line 464 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
#line 464 "ide/ide_export.bas"
if(qbevent){evnt(28819,464,"ide_export.bas");if(r)goto S_71554;}
#line 464 "ide/ide_export.bas"
do{
#line 464 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (general)",10)));
#line 464 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 464 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,464,"ide_export.bas");}while(r);
#line 464 "ide/ide_export.bas"
}
#line 465 "ide/ide_export.bas"
sc_ec_572_end:;
#line 465 "ide/ide_export.bas"
sc_7452_var=-1;
#line 465 "ide/ide_export.bas"
}
#line 465 "ide/ide_export.bas"
S_71557:;
#line 465 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY",3))))||is_error_pending()){
#line 465 "ide/ide_export.bas"
if(qbevent){evnt(28819,465,"ide_export.bas");if(r)goto S_71557;}
#line 465 "ide/ide_export.bas"
S_71558:;
#line 465 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIST",4))))||is_error_pending()){
#line 465 "ide/ide_export.bas"
if(qbevent){evnt(28819,465,"ide_export.bas");if(r)goto S_71558;}
#line 465 "ide/ide_export.bas"
do{
#line 465 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 465 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 465 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,465,"ide_export.bas");}while(r);
#line 465 "ide/ide_export.bas"
do{
#line 465 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY LIST",8));
#line 465 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 465 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,465,"ide_export.bas");}while(r);
#line 465 "ide/ide_export.bas"
do{
#line 465 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 465 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,465,"ide_export.bas");}while(r);
#line 465 "ide/ide_export.bas"
}
#line 466 "ide/ide_export.bas"
sc_ec_573_end:;
#line 466 "ide/ide_export.bas"
sc_7452_var=-1;
#line 466 "ide/ide_export.bas"
}
#line 466 "ide/ide_export.bas"
S_71563:;
#line 466 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
#line 466 "ide/ide_export.bas"
if(qbevent){evnt(28819,466,"ide_export.bas");if(r)goto S_71563;}
#line 466 "ide/ide_export.bas"
S_71564:;
#line 466 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 466 "ide/ide_export.bas"
if(qbevent){evnt(28819,466,"ide_export.bas");if(r)goto S_71564;}
#line 466 "ide/ide_export.bas"
do{
#line 466 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 466 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 466 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,466,"ide_export.bas");}while(r);
#line 466 "ide/ide_export.bas"
do{
#line 466 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT USING",12));
#line 466 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 466 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,466,"ide_export.bas");}while(r);
#line 466 "ide/ide_export.bas"
do{
#line 466 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 466 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,466,"ide_export.bas");}while(r);
#line 466 "ide/ide_export.bas"
}
#line 467 "ide/ide_export.bas"
sc_ec_574_end:;
#line 467 "ide/ide_export.bas"
sc_7452_var=-1;
#line 467 "ide/ide_export.bas"
}
#line 467 "ide/ide_export.bas"
S_71569:;
#line 467 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE",4))))||is_error_pending()){
#line 467 "ide/ide_export.bas"
if(qbevent){evnt(28819,467,"ide_export.bas");if(r)goto S_71569;}
#line 468 "ide/ide_export.bas"
S_71570:;
#line 468 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("INPUT",5))))||is_error_pending()){
#line 468 "ide/ide_export.bas"
if(qbevent){evnt(28819,468,"ide_export.bas");if(r)goto S_71570;}
#line 469 "ide/ide_export.bas"
do{
#line 469 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 469 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 469 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,469,"ide_export.bas");}while(r);
#line 469 "ide/ide_export.bas"
do{
#line 469 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE INPUT",10));
#line 469 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 469 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,469,"ide_export.bas");}while(r);
#line 469 "ide/ide_export.bas"
do{
#line 469 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 469 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,469,"ide_export.bas");}while(r);
#line 470 "ide/ide_export.bas"
S_71574:;
#line 470 "ide/ide_export.bas"
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()){
#line 470 "ide/ide_export.bas"
if(qbevent){evnt(28819,470,"ide_export.bas");if(r)goto S_71574;}
#line 470 "ide/ide_export.bas"
do{
#line 470 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
#line 470 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 470 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,470,"ide_export.bas");}while(r);
#line 470 "ide/ide_export.bas"
}
#line 471 "ide/ide_export.bas"
}
#line 472 "ide/ide_export.bas"
sc_ec_575_end:;
#line 472 "ide/ide_export.bas"
sc_7452_var=-1;
#line 472 "ide/ide_export.bas"
}
#line 472 "ide/ide_export.bas"
S_71578:;
#line 472 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
#line 472 "ide/ide_export.bas"
if(qbevent){evnt(28819,472,"ide_export.bas");if(r)goto S_71578;}
#line 473 "ide/ide_export.bas"
S_71579:;
#line 473 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
#line 473 "ide/ide_export.bas"
if(qbevent){evnt(28819,473,"ide_export.bas");if(r)goto S_71579;}
#line 473 "ide/ide_export.bas"
do{
#line 473 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 473 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 473 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,473,"ide_export.bas");}while(r);
#line 473 "ide/ide_export.bas"
do{
#line 473 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
#line 473 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 473 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,473,"ide_export.bas");}while(r);
#line 473 "ide/ide_export.bas"
do{
#line 473 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 473 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,473,"ide_export.bas");}while(r);
#line 473 "ide/ide_export.bas"
do{
#line 473 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 473 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,473,"ide_export.bas");}while(r);
#line 473 "ide/ide_export.bas"
do{
#line 473 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 473 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,473,"ide_export.bas");}while(r);
#line 473 "ide/ide_export.bas"
}
#line 474 "ide/ide_export.bas"
S_71586:;
#line 474 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
#line 474 "ide/ide_export.bas"
if(qbevent){evnt(28819,474,"ide_export.bas");if(r)goto S_71586;}
#line 474 "ide/ide_export.bas"
do{
#line 474 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 474 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 474 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,474,"ide_export.bas");}while(r);
#line 474 "ide/ide_export.bas"
do{
#line 474 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
#line 474 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 474 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,474,"ide_export.bas");}while(r);
#line 474 "ide/ide_export.bas"
do{
#line 474 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 474 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,474,"ide_export.bas");}while(r);
#line 474 "ide/ide_export.bas"
do{
#line 474 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 474 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,474,"ide_export.bas");}while(r);
#line 474 "ide/ide_export.bas"
do{
#line 474 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 474 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,474,"ide_export.bas");}while(r);
#line 474 "ide/ide_export.bas"
}
#line 475 "ide/ide_export.bas"
sc_ec_576_end:;
#line 475 "ide/ide_export.bas"
sc_7452_var=-1;
#line 475 "ide/ide_export.bas"
}
#line 475 "ide/ide_export.bas"
S_71593:;
#line 475 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON",2))))||is_error_pending()){
#line 475 "ide/ide_export.bas"
if(qbevent){evnt(28819,475,"ide_export.bas");if(r)goto S_71593;}
#line 476 "ide/ide_export.bas"
S_71594:;
#line 476 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
#line 476 "ide/ide_export.bas"
if(qbevent){evnt(28819,476,"ide_export.bas");if(r)goto S_71594;}
#line 476 "ide/ide_export.bas"
do{
#line 476 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 476 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 476 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,476,"ide_export.bas");}while(r);
#line 476 "ide/ide_export.bas"
do{
#line 476 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON ERROR",8));
#line 476 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 476 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,476,"ide_export.bas");}while(r);
#line 476 "ide/ide_export.bas"
do{
#line 476 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 476 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,476,"ide_export.bas");}while(r);
#line 476 "ide/ide_export.bas"
}
#line 477 "ide/ide_export.bas"
S_71599:;
#line 477 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("KEY",3))))||is_error_pending()){
#line 477 "ide/ide_export.bas"
if(qbevent){evnt(28819,477,"ide_export.bas");if(r)goto S_71599;}
#line 477 "ide/ide_export.bas"
do{
#line 477 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 477 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 477 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,477,"ide_export.bas");}while(r);
#line 477 "ide/ide_export.bas"
do{
#line 477 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON KEY(n)",9));
#line 477 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 477 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,477,"ide_export.bas");}while(r);
#line 477 "ide/ide_export.bas"
do{
#line 477 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 477 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,477,"ide_export.bas");}while(r);
#line 477 "ide/ide_export.bas"
}
#line 478 "ide/ide_export.bas"
S_71604:;
#line 478 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("STRIG",5))))||is_error_pending()){
#line 478 "ide/ide_export.bas"
if(qbevent){evnt(28819,478,"ide_export.bas");if(r)goto S_71604;}
#line 478 "ide/ide_export.bas"
do{
#line 478 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 478 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 478 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,478,"ide_export.bas");}while(r);
#line 478 "ide/ide_export.bas"
do{
#line 478 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON STRIG(n)",11));
#line 478 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 478 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,478,"ide_export.bas");}while(r);
#line 478 "ide/ide_export.bas"
do{
#line 478 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 478 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,478,"ide_export.bas");}while(r);
#line 478 "ide/ide_export.bas"
}
#line 479 "ide/ide_export.bas"
S_71609:;
#line 479 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TIMER",5))))||is_error_pending()){
#line 479 "ide/ide_export.bas"
if(qbevent){evnt(28819,479,"ide_export.bas");if(r)goto S_71609;}
#line 479 "ide/ide_export.bas"
do{
#line 479 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 479 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 479 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,479,"ide_export.bas");}while(r);
#line 479 "ide/ide_export.bas"
do{
#line 479 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON TIMER(n)",11));
#line 479 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 479 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,479,"ide_export.bas");}while(r);
#line 479 "ide/ide_export.bas"
do{
#line 479 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 479 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,479,"ide_export.bas");}while(r);
#line 479 "ide/ide_export.bas"
}
#line 480 "ide/ide_export.bas"
sc_ec_577_end:;
#line 480 "ide/ide_export.bas"
sc_7452_var=-1;
#line 480 "ide/ide_export.bas"
}
#line 480 "ide/ide_export.bas"
S_71614:;
#line 480 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
#line 480 "ide/ide_export.bas"
if(qbevent){evnt(28819,480,"ide_export.bas");if(r)goto S_71614;}
#line 480 "ide/ide_export.bas"
S_71615:;
#line 480 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("BASE",4))))||is_error_pending()){
#line 480 "ide/ide_export.bas"
if(qbevent){evnt(28819,480,"ide_export.bas");if(r)goto S_71615;}
#line 480 "ide/ide_export.bas"
do{
#line 480 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 480 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 480 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,480,"ide_export.bas");}while(r);
#line 480 "ide/ide_export.bas"
do{
#line 480 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION BASE",11));
#line 480 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 480 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,480,"ide_export.bas");}while(r);
#line 480 "ide/ide_export.bas"
do{
#line 480 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 480 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,480,"ide_export.bas");}while(r);
#line 480 "ide/ide_export.bas"
}
#line 481 "ide/ide_export.bas"
sc_ec_578_end:;
#line 481 "ide/ide_export.bas"
sc_7452_var=-1;
#line 481 "ide/ide_export.bas"
}
#line 481 "ide/ide_export.bas"
S_71620:;
#line 481 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
#line 481 "ide/ide_export.bas"
if(qbevent){evnt(28819,481,"ide_export.bas");if(r)goto S_71620;}
#line 481 "ide/ide_export.bas"
S_71621:;
#line 481 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 481 "ide/ide_export.bas"
if(qbevent){evnt(28819,481,"ide_export.bas");if(r)goto S_71621;}
#line 481 "ide/ide_export.bas"
do{
#line 481 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 481 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 481 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,481,"ide_export.bas");}while(r);
#line 481 "ide/ide_export.bas"
do{
#line 481 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE USING",13));
#line 481 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 481 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,481,"ide_export.bas");}while(r);
#line 481 "ide/ide_export.bas"
do{
#line 481 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 481 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,481,"ide_export.bas");}while(r);
#line 481 "ide/ide_export.bas"
}
#line 482 "ide/ide_export.bas"
sc_ec_579_end:;
#line 482 "ide/ide_export.bas"
sc_7452_var=-1;
#line 482 "ide/ide_export.bas"
}
#line 482 "ide/ide_export.bas"
S_71626:;
#line 482 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
#line 482 "ide/ide_export.bas"
if(qbevent){evnt(28819,482,"ide_export.bas");if(r)goto S_71626;}
#line 483 "ide/ide_export.bas"
S_71627:;
#line 483 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 483 "ide/ide_export.bas"
if(qbevent){evnt(28819,483,"ide_export.bas");if(r)goto S_71627;}
#line 484 "ide/ide_export.bas"
do{
#line 484 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 484 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 484 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,484,"ide_export.bas");}while(r);
#line 484 "ide/ide_export.bas"
do{
#line 484 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT USING",11));
#line 484 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 484 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,484,"ide_export.bas");}while(r);
#line 484 "ide/ide_export.bas"
do{
#line 484 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 484 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,484,"ide_export.bas");}while(r);
#line 485 "ide/ide_export.bas"
S_71631:;
#line 485 "ide/ide_export.bas"
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()){
#line 485 "ide/ide_export.bas"
if(qbevent){evnt(28819,485,"ide_export.bas");if(r)goto S_71631;}
#line 485 "ide/ide_export.bas"
do{
#line 485 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
#line 485 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 485 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,485,"ide_export.bas");}while(r);
#line 485 "ide/ide_export.bas"
}
#line 486 "ide/ide_export.bas"
}
#line 487 "ide/ide_export.bas"
sc_ec_580_end:;
#line 487 "ide/ide_export.bas"
sc_7452_var=-1;
#line 487 "ide/ide_export.bas"
}
#line 487 "ide/ide_export.bas"
S_71635:;
#line 487 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE",9))))||is_error_pending()){
#line 487 "ide/ide_export.bas"
if(qbevent){evnt(28819,487,"ide_export.bas");if(r)goto S_71635;}
#line 487 "ide/ide_export.bas"
S_71636:;
#line 487 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
#line 487 "ide/ide_export.bas"
if(qbevent){evnt(28819,487,"ide_export.bas");if(r)goto S_71636;}
#line 487 "ide/ide_export.bas"
do{
#line 487 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 487 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 487 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,487,"ide_export.bas");}while(r);
#line 487 "ide/ide_export.bas"
do{
#line 487 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE USING",15));
#line 487 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 487 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,487,"ide_export.bas");}while(r);
#line 487 "ide/ide_export.bas"
do{
#line 487 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 487 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,487,"ide_export.bas");}while(r);
#line 487 "ide/ide_export.bas"
}
#line 488 "ide/ide_export.bas"
sc_ec_581_end:;
#line 488 "ide/ide_export.bas"
sc_7452_var=-1;
#line 488 "ide/ide_export.bas"
}
#line 488 "ide/ide_export.bas"
S_71641:;
#line 488 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
#line 488 "ide/ide_export.bas"
if(qbevent){evnt(28819,488,"ide_export.bas");if(r)goto S_71641;}
#line 489 "ide/ide_export.bas"
S_71642:;
#line 489 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
#line 489 "ide/ide_export.bas"
if(qbevent){evnt(28819,489,"ide_export.bas");if(r)goto S_71642;}
#line 489 "ide/ide_export.bas"
do{
#line 489 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 489 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 489 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,489,"ide_export.bas");}while(r);
#line 489 "ide/ide_export.bas"
do{
#line 489 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
#line 489 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 489 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,489,"ide_export.bas");}while(r);
#line 489 "ide/ide_export.bas"
do{
#line 489 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 489 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,489,"ide_export.bas");}while(r);
#line 489 "ide/ide_export.bas"
do{
#line 489 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 489 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,489,"ide_export.bas");}while(r);
#line 489 "ide/ide_export.bas"
do{
#line 489 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 489 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,489,"ide_export.bas");}while(r);
#line 489 "ide/ide_export.bas"
}
#line 490 "ide/ide_export.bas"
S_71649:;
#line 490 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
#line 490 "ide/ide_export.bas"
if(qbevent){evnt(28819,490,"ide_export.bas");if(r)goto S_71649;}
#line 490 "ide/ide_export.bas"
do{
#line 490 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 490 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 490 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,490,"ide_export.bas");}while(r);
#line 490 "ide/ide_export.bas"
do{
#line 490 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
#line 490 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 490 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,490,"ide_export.bas");}while(r);
#line 490 "ide/ide_export.bas"
do{
#line 490 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
#line 490 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,490,"ide_export.bas");}while(r);
#line 490 "ide/ide_export.bas"
do{
#line 490 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
#line 490 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,490,"ide_export.bas");}while(r);
#line 490 "ide/ide_export.bas"
do{
#line 490 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 490 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,490,"ide_export.bas");}while(r);
#line 490 "ide/ide_export.bas"
}
#line 491 "ide/ide_export.bas"
sc_ec_582_end:;
#line 491 "ide/ide_export.bas"
sc_7452_var=-1;
#line 491 "ide/ide_export.bas"
}
#line 491 "ide/ide_export.bas"
S_71656:;
#line 491 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SOUND",5))))||is_error_pending()){
#line 491 "ide/ide_export.bas"
if(qbevent){evnt(28819,491,"ide_export.bas");if(r)goto S_71656;}
#line 492 "ide/ide_export.bas"
S_71657:;
#line 492 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WAIT",4))))||is_error_pending()){
#line 492 "ide/ide_export.bas"
if(qbevent){evnt(28819,492,"ide_export.bas");if(r)goto S_71657;}
#line 492 "ide/ide_export.bas"
do{
#line 492 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 492 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 492 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,492,"ide_export.bas");}while(r);
#line 492 "ide/ide_export.bas"
do{
#line 492 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 492 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,492,"ide_export.bas");}while(r);
#line 492 "ide/ide_export.bas"
}
#line 493 "ide/ide_export.bas"
S_71661:;
#line 493 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("RESUME",6))))||is_error_pending()){
#line 493 "ide/ide_export.bas"
if(qbevent){evnt(28819,493,"ide_export.bas");if(r)goto S_71661;}
#line 493 "ide/ide_export.bas"
do{
#line 493 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 493 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 493 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,493,"ide_export.bas");}while(r);
#line 493 "ide/ide_export.bas"
do{
#line 493 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 493 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,493,"ide_export.bas");}while(r);
#line 493 "ide/ide_export.bas"
}
#line 494 "ide/ide_export.bas"
sc_ec_583_end:;
#line 494 "ide/ide_export.bas"
sc_7452_var=-1;
#line 494 "ide/ide_export.bas"
}
#line 494 "ide/ide_export.bas"
S_71665:;
#line 494 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW",4))))||is_error_pending()){
#line 494 "ide/ide_export.bas"
if(qbevent){evnt(28819,494,"ide_export.bas");if(r)goto S_71665;}
#line 494 "ide/ide_export.bas"
S_71666:;
#line 494 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("PRINT",5))))||is_error_pending()){
#line 494 "ide/ide_export.bas"
if(qbevent){evnt(28819,494,"ide_export.bas");if(r)goto S_71666;}
#line 494 "ide/ide_export.bas"
do{
#line 494 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
#line 494 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 494 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,494,"ide_export.bas");}while(r);
#line 494 "ide/ide_export.bas"
do{
#line 494 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW PRINT",10));
#line 494 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 494 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,494,"ide_export.bas");}while(r);
#line 494 "ide/ide_export.bas"
do{
#line 494 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
#line 494 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,494,"ide_export.bas");}while(r);
#line 494 "ide/ide_export.bas"
}
#line 495 "ide/ide_export.bas"
sc_ec_584_end:;
#line 495 "ide/ide_export.bas"
sc_7452_var=-1;
#line 495 "ide/ide_export.bas"
}
#line 495 "ide/ide_export.bas"
S_71671:;
#line 495 "ide/ide_export.bas"
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()){
#line 495 "ide/ide_export.bas"
if(qbevent){evnt(28819,495,"ide_export.bas");if(r)goto S_71671;}
#line 495 "ide/ide_export.bas"
S_71672:;
#line 495 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
#line 495 "ide/ide_export.bas"
if(qbevent){evnt(28819,495,"ide_export.bas");if(r)goto S_71672;}
#line 495 "ide/ide_export.bas"
do{
#line 495 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
#line 495 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 495 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,495,"ide_export.bas");}while(r);
#line 495 "ide/ide_export.bas"
}
#line 496 "ide/ide_export.bas"
sc_ec_585_end:;
#line 496 "ide/ide_export.bas"
}
#line 496 "ide/ide_export.bas"
sc_7452_end:;
#line 497 "ide/ide_export.bas"
}
#line 497 "ide/ide_export.bas"
}
#line 497 "ide/ide_export.bas"
}
#line 497 "ide/ide_export.bas"
}
#line 498 "ide/ide_export.bas"
do{
#line 498 "ide/ide_export.bas"
#include "ret504.txt"
#line 498 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,498,"ide_export.bas");}while(r);
#line 500 "ide/ide_export.bas"
LABEL_WRITELINK:;
#line 500 "ide/ide_export.bas"
if(qbevent){evnt(28819,500,"ide_export.bas");r=0;}
#line 501 "ide/ide_export.bas"
S_71678:;
#line 501 "ide/ide_export.bas"
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()){
#line 501 "ide/ide_export.bas"
if(qbevent){evnt(28819,501,"ide_export.bas");if(r)goto S_71678;}
#line 501 "ide/ide_export.bas"
do{
#line 501 "ide/ide_export.bas"
goto LABEL_UNKNOWNNOLINKNOCOLOR;
#line 501 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,501,"ide_export.bas");}while(r);
#line 501 "ide/ide_export.bas"
}
#line 502 "ide/ide_export.bas"
S_71681:;
#line 502 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_CU)||is_error_pending()){
#line 502 "ide/ide_export.bas"
if(qbevent){evnt(28819,502,"ide_export.bas");if(r)goto S_71681;}
#line 502 "ide/ide_export.bas"
do{
#line 502 "ide/ide_export.bas"
goto LABEL_CUSTOMNOLINK;
#line 502 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,502,"ide_export.bas");}while(r);
#line 502 "ide/ide_export.bas"
}
#line 503 "ide/ide_export.bas"
do{
#line 503 "ide/ide_export.bas"
return_point[next_return_point++]=249;
#line 503 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 503 "ide/ide_export.bas"
goto LABEL_FINDWIKIPAGE;
#line 503 "ide/ide_export.bas"
RETURN_249:;
#line 503 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,503,"ide_export.bas");}while(r);
#line 504 "ide/ide_export.bas"
S_71685:;
#line 504 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE&*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
#line 504 "ide/ide_export.bas"
if(qbevent){evnt(28819,504,"ide_export.bas");if(r)goto S_71685;}
#line 504 "ide/ide_export.bas"
do{
#line 504 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
#line 504 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,504,"ide_export.bas");}while(r);
#line 504 "ide/ide_export.bas"
do{
#line 504 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
#line 504 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 504 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,504,"ide_export.bas");}while(r);
#line 504 "ide/ide_export.bas"
do{
#line 504 "ide/ide_export.bas"
return_point[next_return_point++]=250;
#line 504 "ide/ide_export.bas"
if (next_return_point>=return_points) more_return_points();
#line 504 "ide/ide_export.bas"
goto LABEL_CLOSETEXT;
#line 504 "ide/ide_export.bas"
RETURN_250:;
#line 504 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,504,"ide_export.bas");}while(r);
#line 504 "ide/ide_export.bas"
do{
#line 504 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
#line 504 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,504,"ide_export.bas");}while(r);
#line 504 "ide/ide_export.bas"
}
#line 505 "ide/ide_export.bas"
S_71691:;
#line 505 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 505 "ide/ide_export.bas"
if(qbevent){evnt(28819,505,"ide_export.bas");if(r)goto S_71691;}
#line 505 "ide/ide_export.bas"
do{
#line 505 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_ME);
#line 505 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 505 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,505,"ide_export.bas");}while(r);
#line 505 "ide/ide_export.bas"
}else{
#line 505 "ide/ide_export.bas"
do{
#line 505 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_KW);
#line 505 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 505 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,505,"ide_export.bas");}while(r);
#line 505 "ide/ide_export.bas"
}
#line 506 "ide/ide_export.bas"
do{
#line 506 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_PAL=_SUB_EXPORTCODEAS_STRING_PAGE->len;
#line 506 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 506 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,506,"ide_export.bas");}while(r);
#line 506 "ide/ide_export.bas"
do{
#line 506 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_LKL=_SUB_EXPORTCODEAS_STRING_LNK->len;
#line 506 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 506 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,506,"ide_export.bas");}while(r);
#line 507 "ide/ide_export.bas"
S_71698:;
#line 507 "ide/ide_export.bas"
qbs_set(sc_7455,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 507 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 507 "ide/ide_export.bas"
if(qbevent){evnt(28819,507,"ide_export.bas");if(r)goto S_71698;}
#line 508 "ide/ide_export.bas"
S_71699:;
#line 508 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 508 "ide/ide_export.bas"
if(qbevent){evnt(28819,508,"ide_export.bas");if(r)goto S_71699;}
#line 509 "ide/ide_export.bas"
S_71700:;
#line 509 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 509 "ide/ide_export.bas"
if(qbevent){evnt(28819,509,"ide_export.bas");if(r)goto S_71700;}
#line 509 "ide/ide_export.bas"
do{
#line 509 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_MEC);
#line 509 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 509 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,509,"ide_export.bas");}while(r);
#line 509 "ide/ide_export.bas"
}else{
#line 509 "ide/ide_export.bas"
do{
#line 509 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_KWC);
#line 509 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 509 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,509,"ide_export.bas");}while(r);
#line 509 "ide/ide_export.bas"
}
#line 510 "ide/ide_export.bas"
do{
#line 510 "ide/ide_export.bas"
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);
#line 510 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,510,"ide_export.bas");}while(r);
#line 511 "ide/ide_export.bas"
do{
#line 511 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ;
#line 511 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,511,"ide_export.bas");}while(r);
#line 512 "ide/ide_export.bas"
sc_ec_586_end:;
#line 512 "ide/ide_export.bas"
goto sc_7455_end;
#line 512 "ide/ide_export.bas"
}
#line 512 "ide/ide_export.bas"
S_71707:;
#line 512 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 512 "ide/ide_export.bas"
if(qbevent){evnt(28819,512,"ide_export.bas");if(r)goto S_71707;}
#line 513 "ide/ide_export.bas"
S_71708:;
#line 513 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 513 "ide/ide_export.bas"
if(qbevent){evnt(28819,513,"ide_export.bas");if(r)goto S_71708;}
#line 513 "ide/ide_export.bas"
do{
#line 513 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf2",4));
#line 513 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 513 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,513,"ide_export.bas");}while(r);
#line 513 "ide/ide_export.bas"
}else{
#line 513 "ide/ide_export.bas"
do{
#line 513 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf3",4));
#line 513 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 513 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,513,"ide_export.bas");}while(r);
#line 513 "ide/ide_export.bas"
}
#line 514 "ide/ide_export.bas"
do{
#line 514 "ide/ide_export.bas"
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);
#line 514 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,514,"ide_export.bas");}while(r);
#line 515 "ide/ide_export.bas"
do{
#line 515 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ;
#line 515 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,515,"ide_export.bas");}while(r);
#line 516 "ide/ide_export.bas"
sc_ec_587_end:;
#line 516 "ide/ide_export.bas"
goto sc_7455_end;
#line 516 "ide/ide_export.bas"
}
#line 516 "ide/ide_export.bas"
S_71715:;
#line 516 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 516 "ide/ide_export.bas"
if(qbevent){evnt(28819,516,"ide_export.bas");if(r)goto S_71715;}
#line 518 "ide/ide_export.bas"
S_71716:;
#line 518 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 518 "ide/ide_export.bas"
if(qbevent){evnt(28819,518,"ide_export.bas");if(r)goto S_71716;}
#line 518 "ide/ide_export.bas"
do{
#line 518 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[32m",4)));
#line 518 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 518 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,518,"ide_export.bas");}while(r);
#line 518 "ide/ide_export.bas"
}else{
#line 518 "ide/ide_export.bas"
do{
#line 518 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[34m",4)));
#line 518 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 518 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,518,"ide_export.bas");}while(r);
#line 518 "ide/ide_export.bas"
}
#line 519 "ide/ide_export.bas"
do{
#line 519 "ide/ide_export.bas"
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("[38m",4)),1);
#line 519 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,519,"ide_export.bas");}while(r);
#line 520 "ide/ide_export.bas"
do{
#line 520 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 10 ;
#line 520 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,520,"ide_export.bas");}while(r);
#line 521 "ide/ide_export.bas"
sc_ec_588_end:;
#line 521 "ide/ide_export.bas"
goto sc_7455_end;
#line 521 "ide/ide_export.bas"
}
#line 521 "ide/ide_export.bas"
S_71723:;
#line 521 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 521 "ide/ide_export.bas"
if(qbevent){evnt(28819,521,"ide_export.bas");if(r)goto S_71723;}
#line 522 "ide/ide_export.bas"
S_71724:;
#line 522 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 522 "ide/ide_export.bas"
if(qbevent){evnt(28819,522,"ide_export.bas");if(r)goto S_71724;}
#line 522 "ide/ide_export.bas"
do{
#line 522 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#55FF55",7));
#line 522 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 522 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,522,"ide_export.bas");}while(r);
#line 522 "ide/ide_export.bas"
}else{
#line 522 "ide/ide_export.bas"
do{
#line 522 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#4593D8",7));
#line 522 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 522 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,522,"ide_export.bas");}while(r);
#line 522 "ide/ide_export.bas"
}
#line 523 "ide/ide_export.bas"
do{
#line 523 "ide/ide_export.bas"
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);
#line 523 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,523,"ide_export.bas");}while(r);
#line 524 "ide/ide_export.bas"
do{
#line 524 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 84 ;
#line 524 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,524,"ide_export.bas");}while(r);
#line 525 "ide/ide_export.bas"
sc_ec_589_end:;
#line 525 "ide/ide_export.bas"
goto sc_7455_end;
#line 525 "ide/ide_export.bas"
}
#line 525 "ide/ide_export.bas"
S_71731:;
#line 525 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7455,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 525 "ide/ide_export.bas"
if(qbevent){evnt(28819,525,"ide_export.bas");if(r)goto S_71731;}
#line 526 "ide/ide_export.bas"
S_71732:;
#line 526 "ide/ide_export.bas"
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
#line 526 "ide/ide_export.bas"
if(qbevent){evnt(28819,526,"ide_export.bas");if(r)goto S_71732;}
#line 526 "ide/ide_export.bas"
do{
#line 526 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cm|",5));
#line 526 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 526 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,526,"ide_export.bas");}while(r);
#line 526 "ide/ide_export.bas"
}else{
#line 526 "ide/ide_export.bas"
do{
#line 526 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cl|",5));
#line 526 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 526 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,526,"ide_export.bas");}while(r);
#line 526 "ide/ide_export.bas"
}
#line 527 "ide/ide_export.bas"
S_71737:;
#line 527 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,_SUB_EXPORTCODEAS_STRING_LNK)))||is_error_pending()){
#line 527 "ide/ide_export.bas"
if(qbevent){evnt(28819,527,"ide_export.bas");if(r)goto S_71737;}
#line 528 "ide/ide_export.bas"
do{
#line 528 "ide/ide_export.bas"
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);
#line 528 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,528,"ide_export.bas");}while(r);
#line 529 "ide/ide_export.bas"
do{
#line 529 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ;
#line 529 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,529,"ide_export.bas");}while(r);
#line 530 "ide/ide_export.bas"
}else{
#line 531 "ide/ide_export.bas"
do{
#line 531 "ide/ide_export.bas"
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);
#line 531 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,531,"ide_export.bas");}while(r);
#line 532 "ide/ide_export.bas"
do{
#line 532 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ;
#line 532 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,532,"ide_export.bas");}while(r);
#line 533 "ide/ide_export.bas"
}
#line 534 "ide/ide_export.bas"
sc_ec_590_end:;
#line 534 "ide/ide_export.bas"
goto sc_7455_end;
#line 534 "ide/ide_export.bas"
}
#line 534 "ide/ide_export.bas"
do{
#line 534 "ide/ide_export.bas"
#include "ret504.txt"
#line 534 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,534,"ide_export.bas");}while(r);
#line 535 "ide/ide_export.bas"
sc_7455_end:;
#line 536 "ide/ide_export.bas"
do{
#line 536 "ide/ide_export.bas"
#include "ret504.txt"
#line 536 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,536,"ide_export.bas");}while(r);
#line 538 "ide/ide_export.bas"
LABEL_CUSTOMNOLINK:;
#line 538 "ide/ide_export.bas"
if(qbevent){evnt(28819,538,"ide_export.bas");r=0;}
#line 539 "ide/ide_export.bas"
do{
#line 539 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
#line 539 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,539,"ide_export.bas");}while(r);
#line 539 "ide/ide_export.bas"
do{
#line 539 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
#line 539 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 539 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,539,"ide_export.bas");}while(r);
#line 540 "ide/ide_export.bas"
S_71750:;
#line 540 "ide/ide_export.bas"
qbs_set(sc_7457,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 540 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 540 "ide/ide_export.bas"
if(qbevent){evnt(28819,540,"ide_export.bas");if(r)goto S_71750;}
#line 541 "ide/ide_export.bas"
S_71751:;
#line 541 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 541 "ide/ide_export.bas"
if(qbevent){evnt(28819,541,"ide_export.bas");if(r)goto S_71751;}
#line 542 "ide/ide_export.bas"
do{
#line 542 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
#line 542 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 542 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,542,"ide_export.bas");}while(r);
#line 542 "ide/ide_export.bas"
do{
#line 542 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
#line 542 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 542 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,542,"ide_export.bas");}while(r);
#line 543 "ide/ide_export.bas"
do{
#line 543 "ide/ide_export.bas"
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);
#line 543 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,543,"ide_export.bas");}while(r);
#line 544 "ide/ide_export.bas"
do{
#line 544 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ;
#line 544 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,544,"ide_export.bas");}while(r);
#line 545 "ide/ide_export.bas"
sc_ec_591_end:;
#line 545 "ide/ide_export.bas"
goto sc_7457_end;
#line 545 "ide/ide_export.bas"
}
#line 545 "ide/ide_export.bas"
S_71756:;
#line 545 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 545 "ide/ide_export.bas"
if(qbevent){evnt(28819,545,"ide_export.bas");if(r)goto S_71756;}
#line 546 "ide/ide_export.bas"
do{
#line 546 "ide/ide_export.bas"
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);
#line 546 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,546,"ide_export.bas");}while(r);
#line 547 "ide/ide_export.bas"
do{
#line 547 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
#line 547 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,547,"ide_export.bas");}while(r);
#line 548 "ide/ide_export.bas"
sc_ec_592_end:;
#line 548 "ide/ide_export.bas"
goto sc_7457_end;
#line 548 "ide/ide_export.bas"
}
#line 548 "ide/ide_export.bas"
S_71759:;
#line 548 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("disc",4))))||is_error_pending()){
#line 548 "ide/ide_export.bas"
if(qbevent){evnt(28819,548,"ide_export.bas");if(r)goto S_71759;}
#line 549 "ide/ide_export.bas"
do{
#line 549 "ide/ide_export.bas"
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("[36m",4)),_SUB_EXPORTCODEAS_STRING_KW),func_chr( 27 )),qbs_new_txt_len("[38m",4)),1);
#line 549 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,549,"ide_export.bas");}while(r);
#line 550 "ide/ide_export.bas"
do{
#line 550 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
#line 550 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,550,"ide_export.bas");}while(r);
#line 551 "ide/ide_export.bas"
sc_ec_593_end:;
#line 551 "ide/ide_export.bas"
goto sc_7457_end;
#line 551 "ide/ide_export.bas"
}
#line 551 "ide/ide_export.bas"
S_71762:;
#line 551 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 551 "ide/ide_export.bas"
if(qbevent){evnt(28819,551,"ide_export.bas");if(r)goto S_71762;}
#line 552 "ide/ide_export.bas"
do{
#line 552 "ide/ide_export.bas"
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);
#line 552 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,552,"ide_export.bas");}while(r);
#line 553 "ide/ide_export.bas"
do{
#line 553 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 23 ;
#line 553 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,553,"ide_export.bas");}while(r);
#line 554 "ide/ide_export.bas"
sc_ec_594_end:;
#line 554 "ide/ide_export.bas"
goto sc_7457_end;
#line 554 "ide/ide_export.bas"
}
#line 554 "ide/ide_export.bas"
S_71765:;
#line 554 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7457,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 554 "ide/ide_export.bas"
if(qbevent){evnt(28819,554,"ide_export.bas");if(r)goto S_71765;}
#line 555 "ide/ide_export.bas"
do{
#line 555 "ide/ide_export.bas"
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);
#line 555 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,555,"ide_export.bas");}while(r);
#line 556 "ide/ide_export.bas"
do{
#line 556 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ;
#line 556 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,556,"ide_export.bas");}while(r);
#line 557 "ide/ide_export.bas"
sc_ec_595_end:;
#line 557 "ide/ide_export.bas"
goto sc_7457_end;
#line 557 "ide/ide_export.bas"
}
#line 557 "ide/ide_export.bas"
do{
#line 557 "ide/ide_export.bas"
#include "ret504.txt"
#line 557 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,557,"ide_export.bas");}while(r);
#line 558 "ide/ide_export.bas"
sc_7457_end:;
#line 559 "ide/ide_export.bas"
do{
#line 559 "ide/ide_export.bas"
#include "ret504.txt"
#line 559 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,559,"ide_export.bas");}while(r);
#line 561 "ide/ide_export.bas"
LABEL_UNKNOWNNOLINKNOCOLOR:;
#line 561 "ide/ide_export.bas"
if(qbevent){evnt(28819,561,"ide_export.bas");r=0;}
#line 562 "ide/ide_export.bas"
S_71772:;
#line 562 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("html",4))))||is_error_pending()){
#line 562 "ide/ide_export.bas"
if(qbevent){evnt(28819,562,"ide_export.bas");if(r)goto S_71772;}
#line 562 "ide/ide_export.bas"
do{
#line 562 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
#line 562 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 562 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,562,"ide_export.bas");}while(r);
#line 562 "ide/ide_export.bas"
}
#line 563 "ide/ide_export.bas"
do{
#line 563 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_VERI->len,_SUB_EXPORTCODEAS_STRING_VERI,1);
#line 563 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,563,"ide_export.bas");}while(r);
#line 563 "ide/ide_export.bas"
do{
#line 563 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_VERI->len;
#line 563 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 563 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,563,"ide_export.bas");}while(r);
#line 563 "ide/ide_export.bas"
do{
#line 563 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("",0));
#line 563 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 563 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,563,"ide_export.bas");}while(r);
#line 564 "ide/ide_export.bas"
do{
#line 564 "ide/ide_export.bas"
#include "ret504.txt"
#line 564 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,564,"ide_export.bas");}while(r);
#line 566 "ide/ide_export.bas"
LABEL_ESCAPECHAR:;
#line 566 "ide/ide_export.bas"
if(qbevent){evnt(28819,566,"ide_export.bas");r=0;}
#line 567 "ide/ide_export.bas"
S_71779:;
#line 567 "ide/ide_export.bas"
qbs_set(sc_7461,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 567 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 567 "ide/ide_export.bas"
if(qbevent){evnt(28819,567,"ide_export.bas");if(r)goto S_71779;}
#line 568 "ide/ide_export.bas"
S_71780:;
#line 568 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7461,qbs_new_txt_len("html",4))))||is_error_pending()){
#line 568 "ide/ide_export.bas"
if(qbevent){evnt(28819,568,"ide_export.bas");if(r)goto S_71780;}
#line 569 "ide/ide_export.bas"
S_71781:;
#line 569 "ide/ide_export.bas"
if(qbevent){evnt(28819,569,"ide_export.bas");if(r)goto S_71781;}
#line 570 "ide/ide_export.bas"
S_71782:;
#line 570 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
#line 570 "ide/ide_export.bas"
if(qbevent){evnt(28819,570,"ide_export.bas");if(r)goto S_71782;}
#line 570 "ide/ide_export.bas"
do{
#line 570 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&quot;",6));
#line 570 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 570 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,570,"ide_export.bas");}while(r);
#line 570 "ide/ide_export.bas"
do{
#line 570 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 570 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,570,"ide_export.bas");}while(r);
#line 571 "ide/ide_export.bas"
sc_ec_596_end:;
#line 571 "ide/ide_export.bas"
goto sc_7462_end;
#line 571 "ide/ide_export.bas"
}
#line 571 "ide/ide_export.bas"
S_71785:;
#line 571 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
#line 571 "ide/ide_export.bas"
if(qbevent){evnt(28819,571,"ide_export.bas");if(r)goto S_71785;}
#line 571 "ide/ide_export.bas"
do{
#line 571 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
#line 571 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 571 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,571,"ide_export.bas");}while(r);
#line 571 "ide/ide_export.bas"
do{
#line 571 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 571 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,571,"ide_export.bas");}while(r);
#line 572 "ide/ide_export.bas"
sc_ec_597_end:;
#line 572 "ide/ide_export.bas"
goto sc_7462_end;
#line 572 "ide/ide_export.bas"
}
#line 572 "ide/ide_export.bas"
S_71788:;
#line 572 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
#line 572 "ide/ide_export.bas"
if(qbevent){evnt(28819,572,"ide_export.bas");if(r)goto S_71788;}
#line 572 "ide/ide_export.bas"
do{
#line 572 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
#line 572 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 572 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,572,"ide_export.bas");}while(r);
#line 572 "ide/ide_export.bas"
do{
#line 572 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 572 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,572,"ide_export.bas");}while(r);
#line 573 "ide/ide_export.bas"
sc_ec_598_end:;
#line 573 "ide/ide_export.bas"
goto sc_7462_end;
#line 573 "ide/ide_export.bas"
}
#line 573 "ide/ide_export.bas"
S_71791:;
#line 573 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
#line 573 "ide/ide_export.bas"
if(qbevent){evnt(28819,573,"ide_export.bas");if(r)goto S_71791;}
#line 573 "ide/ide_export.bas"
do{
#line 573 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
#line 573 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 573 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,573,"ide_export.bas");}while(r);
#line 573 "ide/ide_export.bas"
do{
#line 573 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 573 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,573,"ide_export.bas");}while(r);
#line 574 "ide/ide_export.bas"
sc_ec_599_end:;
#line 574 "ide/ide_export.bas"
goto sc_7462_end;
#line 574 "ide/ide_export.bas"
}
#line 574 "ide/ide_export.bas"
S_71794:;
#line 574 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
#line 574 "ide/ide_export.bas"
if(qbevent){evnt(28819,574,"ide_export.bas");if(r)goto S_71794;}
#line 575 "ide/ide_export.bas"
do{
#line 575 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
#line 575 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,575,"ide_export.bas");}while(r);
#line 576 "ide/ide_export.bas"
S_71796:;
#line 576 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
#line 576 "ide/ide_export.bas"
if(qbevent){evnt(28819,576,"ide_export.bas");if(r)goto S_71796;}
#line 576 "ide/ide_export.bas"
do{
#line 576 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
#line 576 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,576,"ide_export.bas");}while(r);
#line 576 "ide/ide_export.bas"
}
#line 577 "ide/ide_export.bas"
do{
#line 577 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,FUNC_UNICODETOUTF8CHAR(_SUB_EXPORTCODEAS_LONG_UNI));
#line 577 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 577 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,577,"ide_export.bas");}while(r);
#line 577 "ide/ide_export.bas"
do{
#line 577 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 577 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,577,"ide_export.bas");}while(r);
#line 578 "ide/ide_export.bas"
sc_ec_600_end:;
#line 578 "ide/ide_export.bas"
goto sc_7462_end;
#line 578 "ide/ide_export.bas"
}
#line 578 "ide/ide_export.bas"
do{
#line 578 "ide/ide_export.bas"
#include "ret504.txt"
#line 578 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,578,"ide_export.bas");}while(r);
#line 579 "ide/ide_export.bas"
sc_7462_end:;
#line 580 "ide/ide_export.bas"
sc_ec_601_end:;
#line 580 "ide/ide_export.bas"
goto sc_7461_end;
#line 580 "ide/ide_export.bas"
}
#line 580 "ide/ide_export.bas"
S_71804:;
#line 580 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7461,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 580 "ide/ide_export.bas"
if(qbevent){evnt(28819,580,"ide_export.bas");if(r)goto S_71804;}
#line 581 "ide/ide_export.bas"
S_71805:;
#line 581 "ide/ide_export.bas"
if(qbevent){evnt(28819,581,"ide_export.bas");if(r)goto S_71805;}
#line 582 "ide/ide_export.bas"
S_71806:;
#line 582 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
#line 582 "ide/ide_export.bas"
if(qbevent){evnt(28819,582,"ide_export.bas");if(r)goto S_71806;}
#line 582 "ide/ide_export.bas"
do{
#line 582 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("\\",1));
#line 582 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 582 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,582,"ide_export.bas");}while(r);
#line 583 "ide/ide_export.bas"
sc_ec_602_end:;
#line 583 "ide/ide_export.bas"
goto sc_7463_end;
#line 583 "ide/ide_export.bas"
}
#line 583 "ide/ide_export.bas"
S_71808:;
#line 583 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
#line 583 "ide/ide_export.bas"
if(qbevent){evnt(28819,583,"ide_export.bas");if(r)goto S_71808;}
#line 584 "ide/ide_export.bas"
do{
#line 584 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
#line 584 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,584,"ide_export.bas");}while(r);
#line 585 "ide/ide_export.bas"
S_71810:;
#line 585 "ide/ide_export.bas"
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
#line 585 "ide/ide_export.bas"
if(qbevent){evnt(28819,585,"ide_export.bas");if(r)goto S_71810;}
#line 585 "ide/ide_export.bas"
do{
#line 585 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
#line 585 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,585,"ide_export.bas");}while(r);
#line 585 "ide/ide_export.bas"
}
#line 586 "ide/ide_export.bas"
do{
#line 586 "ide/ide_export.bas"
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)));
#line 586 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 586 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,586,"ide_export.bas");}while(r);
#line 586 "ide/ide_export.bas"
do{
#line 586 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 586 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,586,"ide_export.bas");}while(r);
#line 587 "ide/ide_export.bas"
sc_ec_603_end:;
#line 587 "ide/ide_export.bas"
goto sc_7463_end;
#line 587 "ide/ide_export.bas"
}
#line 587 "ide/ide_export.bas"
do{
#line 587 "ide/ide_export.bas"
#include "ret504.txt"
#line 587 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,587,"ide_export.bas");}while(r);
#line 588 "ide/ide_export.bas"
sc_7463_end:;
#line 589 "ide/ide_export.bas"
sc_ec_604_end:;
#line 589 "ide/ide_export.bas"
goto sc_7461_end;
#line 589 "ide/ide_export.bas"
}
#line 589 "ide/ide_export.bas"
S_71818:;
#line 589 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7461,qbs_new_txt_len("foru",4))))||is_error_pending()){
#line 589 "ide/ide_export.bas"
if(qbevent){evnt(28819,589,"ide_export.bas");if(r)goto S_71818;}
#line 590 "ide/ide_export.bas"
S_71819:;
#line 590 "ide/ide_export.bas"
if(qbevent){evnt(28819,590,"ide_export.bas");if(r)goto S_71819;}
#line 591 "ide/ide_export.bas"
S_71820:;
#line 591 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
#line 591 "ide/ide_export.bas"
if(qbevent){evnt(28819,591,"ide_export.bas");if(r)goto S_71820;}
#line 591 "ide/ide_export.bas"
do{
#line 591 "ide/ide_export.bas"
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)));
#line 591 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 591 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,591,"ide_export.bas");}while(r);
#line 591 "ide/ide_export.bas"
do{
#line 591 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 591 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,591,"ide_export.bas");}while(r);
#line 592 "ide/ide_export.bas"
sc_ec_605_end:;
#line 592 "ide/ide_export.bas"
goto sc_7464_end;
#line 592 "ide/ide_export.bas"
}
#line 592 "ide/ide_export.bas"
do{
#line 592 "ide/ide_export.bas"
#include "ret504.txt"
#line 592 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,592,"ide_export.bas");}while(r);
#line 593 "ide/ide_export.bas"
sc_7464_end:;
#line 594 "ide/ide_export.bas"
sc_ec_606_end:;
#line 594 "ide/ide_export.bas"
goto sc_7461_end;
#line 594 "ide/ide_export.bas"
}
#line 594 "ide/ide_export.bas"
S_71826:;
#line 594 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7461,qbs_new_txt_len("wiki",4))))||is_error_pending()){
#line 594 "ide/ide_export.bas"
if(qbevent){evnt(28819,594,"ide_export.bas");if(r)goto S_71826;}
#line 595 "ide/ide_export.bas"
S_71827:;
#line 595 "ide/ide_export.bas"
if(qbevent){evnt(28819,595,"ide_export.bas");if(r)goto S_71827;}
#line 596 "ide/ide_export.bas"
S_71828:;
#line 596 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
#line 596 "ide/ide_export.bas"
if(qbevent){evnt(28819,596,"ide_export.bas");if(r)goto S_71828;}
#line 596 "ide/ide_export.bas"
do{
#line 596 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
#line 596 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 596 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,596,"ide_export.bas");}while(r);
#line 596 "ide/ide_export.bas"
do{
#line 596 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 596 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,596,"ide_export.bas");}while(r);
#line 597 "ide/ide_export.bas"
sc_ec_607_end:;
#line 597 "ide/ide_export.bas"
goto sc_7465_end;
#line 597 "ide/ide_export.bas"
}
#line 597 "ide/ide_export.bas"
S_71831:;
#line 597 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
#line 597 "ide/ide_export.bas"
if(qbevent){evnt(28819,597,"ide_export.bas");if(r)goto S_71831;}
#line 597 "ide/ide_export.bas"
do{
#line 597 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
#line 597 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 597 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,597,"ide_export.bas");}while(r);
#line 597 "ide/ide_export.bas"
do{
#line 597 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 597 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,597,"ide_export.bas");}while(r);
#line 598 "ide/ide_export.bas"
sc_ec_608_end:;
#line 598 "ide/ide_export.bas"
goto sc_7465_end;
#line 598 "ide/ide_export.bas"
}
#line 598 "ide/ide_export.bas"
S_71834:;
#line 598 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
#line 598 "ide/ide_export.bas"
if(qbevent){evnt(28819,598,"ide_export.bas");if(r)goto S_71834;}
#line 598 "ide/ide_export.bas"
do{
#line 598 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
#line 598 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 598 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,598,"ide_export.bas");}while(r);
#line 598 "ide/ide_export.bas"
do{
#line 598 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 598 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,598,"ide_export.bas");}while(r);
#line 599 "ide/ide_export.bas"
sc_ec_609_end:;
#line 599 "ide/ide_export.bas"
goto sc_7465_end;
#line 599 "ide/ide_export.bas"
}
#line 599 "ide/ide_export.bas"
S_71837:;
#line 599 "ide/ide_export.bas"
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
#line 599 "ide/ide_export.bas"
if(qbevent){evnt(28819,599,"ide_export.bas");if(r)goto S_71837;}
#line 599 "ide/ide_export.bas"
do{
#line 599 "ide/ide_export.bas"
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)));
#line 599 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 599 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,599,"ide_export.bas");}while(r);
#line 599 "ide/ide_export.bas"
do{
#line 599 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
#line 599 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,599,"ide_export.bas");}while(r);
#line 600 "ide/ide_export.bas"
sc_ec_610_end:;
#line 600 "ide/ide_export.bas"
goto sc_7465_end;
#line 600 "ide/ide_export.bas"
}
#line 600 "ide/ide_export.bas"
do{
#line 600 "ide/ide_export.bas"
#include "ret504.txt"
#line 600 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,600,"ide_export.bas");}while(r);
#line 601 "ide/ide_export.bas"
sc_7465_end:;
#line 602 "ide/ide_export.bas"
sc_ec_611_end:;
#line 602 "ide/ide_export.bas"
goto sc_7461_end;
#line 602 "ide/ide_export.bas"
}
#line 602 "ide/ide_export.bas"
do{
#line 602 "ide/ide_export.bas"
#include "ret504.txt"
#line 602 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,602,"ide_export.bas");}while(r);
#line 603 "ide/ide_export.bas"
sc_7461_end:;
#line 604 "ide/ide_export.bas"
do{
#line 604 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1);
#line 604 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,604,"ide_export.bas");}while(r);
#line 604 "ide/ide_export.bas"
do{
#line 604 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len;
#line 604 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 604 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,604,"ide_export.bas");}while(r);
#line 605 "ide/ide_export.bas"
do{
#line 605 "ide/ide_export.bas"
#include "ret504.txt"
#line 605 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,605,"ide_export.bas");}while(r);
#line 607 "ide/ide_export.bas"
LABEL_ENDLINEOPS:;
#line 607 "ide/ide_export.bas"
if(qbevent){evnt(28819,607,"ide_export.bas");r=0;}
#line 608 "ide/ide_export.bas"
S_71849:;
#line 608 "ide/ide_export.bas"
qbs_set(sc_7468,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
#line 608 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 608 "ide/ide_export.bas"
if(qbevent){evnt(28819,608,"ide_export.bas");if(r)goto S_71849;}
#line 609 "ide/ide_export.bas"
S_71850:;
#line 609 "ide/ide_export.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_7468,qbs_new_txt_len("rich",4))))||is_error_pending()){
#line 609 "ide/ide_export.bas"
if(qbevent){evnt(28819,609,"ide_export.bas");if(r)goto S_71850;}
#line 609 "ide/ide_export.bas"
do{
#line 609 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4));
#line 609 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 609 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,609,"ide_export.bas");}while(r);
#line 610 "ide/ide_export.bas"
sc_ec_612_end:;
#line 610 "ide/ide_export.bas"
goto sc_7468_end;
#line 610 "ide/ide_export.bas"
}
#line 610 "ide/ide_export.bas"
do{
#line 610 "ide/ide_export.bas"
#include "ret504.txt"
#line 610 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,610,"ide_export.bas");}while(r);
#line 611 "ide/ide_export.bas"
sc_7468_end:;
#line 612 "ide/ide_export.bas"
do{
#line 612 "ide/ide_export.bas"
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
#line 612 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,612,"ide_export.bas");}while(r);
#line 612 "ide/ide_export.bas"
do{
#line 612 "ide/ide_export.bas"
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
#line 612 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 612 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,612,"ide_export.bas");}while(r);
#line 613 "ide/ide_export.bas"
do{
#line 613 "ide/ide_export.bas"
#include "ret504.txt"
#line 613 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,613,"ide_export.bas");}while(r);
#line 615 "ide/ide_export.bas"
LABEL_GETTHEMECOLORS:;
#line 615 "ide/ide_export.bas"
if(qbevent){evnt(28819,615,"ide_export.bas");r=0;}
#line 616 "ide/ide_export.bas"
do{
#line 616 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 )));
#line 616 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 616 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,616,"ide_export.bas");}while(r);
#line 617 "ide/ide_export.bas"
do{
#line 617 "ide/ide_export.bas"
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)));
#line 617 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 617 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,617,"ide_export.bas");}while(r);
#line 618 "ide/ide_export.bas"
do{
#line 618 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 )));
#line 618 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 618 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,618,"ide_export.bas");}while(r);
#line 619 "ide/ide_export.bas"
do{
#line 619 "ide/ide_export.bas"
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)));
#line 619 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 619 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,619,"ide_export.bas");}while(r);
#line 620 "ide/ide_export.bas"
do{
#line 620 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 )));
#line 620 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 620 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,620,"ide_export.bas");}while(r);
#line 621 "ide/ide_export.bas"
do{
#line 621 "ide/ide_export.bas"
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)));
#line 621 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 621 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,621,"ide_export.bas");}while(r);
#line 622 "ide/ide_export.bas"
do{
#line 622 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 )));
#line 622 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 622 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,622,"ide_export.bas");}while(r);
#line 623 "ide/ide_export.bas"
do{
#line 623 "ide/ide_export.bas"
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)));
#line 623 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 623 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,623,"ide_export.bas");}while(r);
#line 624 "ide/ide_export.bas"
do{
#line 624 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 )));
#line 624 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 624 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,624,"ide_export.bas");}while(r);
#line 625 "ide/ide_export.bas"
do{
#line 625 "ide/ide_export.bas"
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)));
#line 625 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 625 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,625,"ide_export.bas");}while(r);
#line 626 "ide/ide_export.bas"
do{
#line 626 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 )));
#line 626 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 626 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,626,"ide_export.bas");}while(r);
#line 627 "ide/ide_export.bas"
do{
#line 627 "ide/ide_export.bas"
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)));
#line 627 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 627 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,627,"ide_export.bas");}while(r);
#line 628 "ide/ide_export.bas"
do{
#line 628 "ide/ide_export.bas"
qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 )));
#line 628 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 628 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,628,"ide_export.bas");}while(r);
#line 629 "ide/ide_export.bas"
do{
#line 629 "ide/ide_export.bas"
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)));
#line 629 "ide/ide_export.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 629 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,629,"ide_export.bas");}while(r);
#line 630 "ide/ide_export.bas"
do{
#line 630 "ide/ide_export.bas"
#include "ret504.txt"
#line 630 "ide/ide_export.bas"
if(!qbevent)break;evnt(28819,630,"ide_export.bas");}while(r);
#line 631 "ide/ide_export.bas"
exit_subfunc:;
#line 631 "ide/ide_export.bas"
free_mem_lock(sf_mem_lock);
#line 631 "ide/ide_export.bas"
#include "free504.txt"
#line 631 "ide/ide_export.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 631 "ide/ide_export.bas"
cmem_sp=tmp_cmem_sp;
#line 631 "ide/ide_export.bas"
}
