void SUB_EXPORTCODEAS(qbs*_SUB_EXPORTCODEAS_STRING_DOCFORMAT){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data463.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15,"ide_export.bas");}while(r);
S_69574:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,15,"ide_export.bas");if(r)goto S_69574;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_add(qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,15,"ide_export.bas");}while(r);
}
S_69577:;
qbs_set(sc_8111,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,16,"ide_export.bas");if(r)goto S_69577;}
S_69578:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8111,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,17,"ide_export.bas");if(r)goto S_69578;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".htm",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,17,"ide_export.bas");}while(r);
sc_ec_489_end:;
goto sc_8111_end;
}
S_69580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8111,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,18,"ide_export.bas");if(r)goto S_69580;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".rtf",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18,"ide_export.bas");}while(r);
sc_ec_490_end:;
goto sc_8111_end;
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,19,"ide_export.bas");}while(r);
sc_8111_end:;
S_69585:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,21,"ide_export.bas");if(r)goto S_69585;}
S_69586:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT))))||is_error_pending()){
if(qbevent){evnt(28182,22,"ide_export.bas");if(r)goto S_69586;}
S_69587:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_IDEYESNOBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_new_txt_len("Overwrite file ",15),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT)),qbs_new_txt_len("N",1))))||is_error_pending()){
if(qbevent){evnt(28182,23,"ide_export.bas");if(r)goto S_69587;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,23,"ide_export.bas");}while(r);
}
}
}
do{
return_point[next_return_point++]=203;
if (next_return_point>=return_points) more_return_points();
goto LABEL_GETTHEMECOLORS;
RETURN_203:;
if(!qbevent)break;evnt(28182,26,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,func_chr( 10 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,27,"ide_export.bas");}while(r);
S_69594:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,28,"ide_export.bas");if(r)goto S_69594;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,qbs_add(func_chr( 13 ),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,28,"ide_export.bas");}while(r);
}
do{
sub_pcopy( 3 , 2 );
if(!qbevent)break;evnt(28182,30,"ide_export.bas");}while(r);
do{
qbg_screen(NULL,NULL, 3 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,30,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_GETSELECTEDTEXT(&(pass8112= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,31,"ide_export.bas");}while(r);
S_69600:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,32,"ide_export.bas");if(r)goto S_69600;}
S_69601:;
fornext_value8114= 1 ;
fornext_finalvalue8114=*__LONG_IDEN;
fornext_step8114= 1 ;
if (fornext_step8114<0) fornext_step_negative8114=1; else fornext_step_negative8114=0;
if (is_error_pending()) goto fornext_error8114;
goto fornext_entrylabel8114;
while(1){
fornext_value8114=fornext_step8114+(*_SUB_EXPORTCODEAS_LONG_I);
fornext_entrylabel8114:
*_SUB_EXPORTCODEAS_LONG_I=fornext_value8114;
if (fornext_step_negative8114){
if (fornext_value8114<fornext_finalvalue8114) break;
}else{
if (fornext_value8114>fornext_finalvalue8114) break;
}
fornext_error8114:;
if(qbevent){evnt(28182,33,"ide_export.bas");if(r)goto S_69601;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_IDEGETLINE(_SUB_EXPORTCODEAS_LONG_I)),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,34,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,qbs__tostr((long double)(std::floor( 30 / ((long double)(*__LONG_IDEN))**_SUB_EXPORTCODEAS_LONG_I)),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,35,"ide_export.bas");}while(r);
do{
qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,36,"ide_export.bas");}while(r);
do{
SUB_UPDATEIDEINFO();
if(!qbevent)break;evnt(28182,37,"ide_export.bas");}while(r);
fornext_continue_8113:;
}
fornext_exit_8113:;
S_69607:;
while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL->len),_SUB_EXPORTCODEAS_STRING_CEOL)))||is_error_pending()){
if(qbevent){evnt(28182,39,"ide_export.bas");if(r)goto S_69607;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_left(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_STXT->len-_SUB_EXPORTCODEAS_STRING_CEOL->len));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,40,"ide_export.bas");}while(r);
ww_continue_8116:;
}
ww_exit_8116:;
}
S_69611:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,43,"ide_export.bas");if(r)goto S_69611;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,43,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL),_SUB_EXPORTCODEAS_STRING_CEOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,43,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_LONG_SLEN=_SUB_EXPORTCODEAS_STRING_STXT->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,44,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_SPOS= 1 ;
if(!qbevent)break;evnt(28182,45,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,46,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS= 1 ;
if(!qbevent)break;evnt(28182,47,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,49,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,50,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(28182,52,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(28182,53,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(28182,54,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,55,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,56,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(28182,57,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(28182,59,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_MA,qbs_new_txt_len("@_ARCCOT@_ARCCSC@_ARCSEC@_COT@_COTH@_COSH@_CSC@_CSCH@_SEC@_SECH@_SINH@_TANH@",76));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,60,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,61,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_FU,qbs_new_txt_len("@_AUTODISPLAY@_BLEND@_BLINK@_CAPSLOCK@_CLEARCOLOR@_CLIPBOARD$@_CLIPBOARDIMAGE@_CONTROLCHR@_DEST@_DISPLAY@_EXIT@_FONT@_FULLSCREEN@_MAPUNICODE@_MEM@_MEMGET@_MESSAGEBOX@_NUMLOCK@_OFFSET@_PALETTECOLOR@_PRINTMODE@_RESIZE@_SCREENICON@_SCROLLLOCK@_SMOOTH@_SOURCE@_WIDTH@ASC@MID$@PLAY@SCREEN@SEEK@SHELL@TIMER@",301));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,62,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,63,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_BO,qbs_new_txt_len("@AND@OR@XOR@",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,64,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
if(!qbevent)break;evnt(28182,66,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
if(!qbevent)break;evnt(28182,67,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
if(!qbevent)break;evnt(28182,68,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
if(!qbevent)break;evnt(28182,69,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
if(!qbevent)break;evnt(28182,70,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
if(!qbevent)break;evnt(28182,71,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,72,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NC= 0 ;
if(!qbevent)break;evnt(28182,74,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,75,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(28182,76,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=204;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENCODEBLOCK;
RETURN_204:;
if(!qbevent)break;evnt(28182,78,"ide_export.bas");}while(r);
S_69645:;
while((-(*_SUB_EXPORTCODEAS_LONG_SPOS<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,79,"ide_export.bas");if(r)goto S_69645;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,qbs__tostr((long double)( 30 +std::floor( 70 / ((long double)(*_SUB_EXPORTCODEAS_LONG_SLEN))**_SUB_EXPORTCODEAS_LONG_SPOS)),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,80,"ide_export.bas");}while(r);
do{
qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,81,"ide_export.bas");}while(r);
do{
SUB_UPDATEIDEINFO();
if(!qbevent)break;evnt(28182,82,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CURR=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,84,"ide_export.bas");}while(r);
S_69650:;
if(qbevent){evnt(28182,85,"ide_export.bas");if(r)goto S_69650;}
S_69651:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 10 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 13 )))||is_error_pending()){
if(qbevent){evnt(28182,86,"ide_export.bas");if(r)goto S_69651;}
S_69652:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_LB))||is_error_pending()){
if(qbevent){evnt(28182,87,"ide_export.bas");if(r)goto S_69652;}
S_69653:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,88,"ide_export.bas");if(r)goto S_69653;}
S_69654:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,89,"ide_export.bas");if(r)goto S_69654;}
do{
return_point[next_return_point++]=205;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_205:;
if(!qbevent)break;evnt(28182,89,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=206;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_206:;
if(!qbevent)break;evnt(28182,89,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,89,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,89,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(28182,90,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(28182,90,"ide_export.bas");}while(r);
}
S_69664:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,92,"ide_export.bas");if(r)goto S_69664;}
S_69665:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,93,"ide_export.bas");if(r)goto S_69665;}
do{
return_point[next_return_point++]=207;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_207:;
if(!qbevent)break;evnt(28182,93,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=208;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_208:;
if(!qbevent)break;evnt(28182,93,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,93,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,93,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,94,"ide_export.bas");}while(r);
}
S_69674:;
if ((*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
if(qbevent){evnt(28182,96,"ide_export.bas");if(r)goto S_69674;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,96,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,96,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=209;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_209:;
if(!qbevent)break;evnt(28182,96,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(28182,96,"ide_export.bas");}while(r);
}
S_69680:;
if ((*_SUB_EXPORTCODEAS_INTEGER_QU)||is_error_pending()){
if(qbevent){evnt(28182,97,"ide_export.bas");if(r)goto S_69680;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long= 34 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(28182,98,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(28182,98,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,99,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,99,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=210;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_210:;
if(!qbevent)break;evnt(28182,99,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(28182,99,"ide_export.bas");}while(r);
}
S_69688:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,101,"ide_export.bas");if(r)goto S_69688;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,101,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,101,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=211;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_211:;
if(!qbevent)break;evnt(28182,101,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,101,"ide_export.bas");}while(r);
}
S_69694:;
if ((-(*_SUB_EXPORTCODEAS_LONG_SPOS> 1 ))||is_error_pending()){
if(qbevent){evnt(28182,102,"ide_export.bas");if(r)goto S_69694;}
S_69695:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(28182,103,"ide_export.bas");if(r)goto S_69695;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(28182,103,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,103,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,103,"ide_export.bas");}while(r);
}
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(28182,105,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,105,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,105,"ide_export.bas");}while(r);
}
do{
return_point[next_return_point++]=212;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ENDLINEOPS;
RETURN_212:;
if(!qbevent)break;evnt(28182,107,"ide_export.bas");}while(r);
S_69706:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 13 ))||is_error_pending()){
if(qbevent){evnt(28182,108,"ide_export.bas");if(r)goto S_69706;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= -1 ;
if(!qbevent)break;evnt(28182,108,"ide_export.bas");}while(r);
}
}
S_69710:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 10 ))||is_error_pending()){
if(qbevent){evnt(28182,110,"ide_export.bas");if(r)goto S_69710;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= 0 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,110,"ide_export.bas");}while(r);
}
sc_ec_491_end:;
goto sc_8123_end;
}
S_69718:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 9 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 32 )))||is_error_pending()){
if(qbevent){evnt(28182,111,"ide_export.bas");if(r)goto S_69718;}
S_69719:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,112,"ide_export.bas");if(r)goto S_69719;}
do{
return_point[next_return_point++]=213;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_213:;
if(!qbevent)break;evnt(28182,113,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=214;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_214:;
if(!qbevent)break;evnt(28182,113,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(28182,113,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(28182,113,"ide_export.bas");}while(r);
S_69724:;
qbs_set(sc_8124,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,114,"ide_export.bas");if(r)goto S_69724;}
S_69725:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8124,qbs_new_txt_len("$LET",4))||qbs_equal(sc_8124,qbs_new_txt_len("$ELSE",5))||qbs_equal(sc_8124,qbs_new_txt_len("$END",4))))||is_error_pending()){
if(qbevent){evnt(28182,115,"ide_export.bas");if(r)goto S_69725;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
if(!qbevent)break;evnt(28182,115,"ide_export.bas");}while(r);
sc_ec_492_end:;
goto sc_8124_end;
}
S_69727:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8124,qbs_new_txt_len("$IF",3))||qbs_equal(sc_8124,qbs_new_txt_len("$ELSEIF",7))))||is_error_pending()){
if(qbevent){evnt(28182,116,"ide_export.bas");if(r)goto S_69727;}
do{
*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ;
if(!qbevent)break;evnt(28182,116,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,116,"ide_export.bas");}while(r);
sc_ec_493_end:;
goto sc_8124_end;
}
sc_8124_end:;
}
S_69732:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,119,"ide_export.bas");if(r)goto S_69732;}
S_69733:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,120,"ide_export.bas");if(r)goto S_69733;}
do{
return_point[next_return_point++]=215;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_215:;
if(!qbevent)break;evnt(28182,120,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=216;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_216:;
if(!qbevent)break;evnt(28182,120,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,120,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,120,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,121,"ide_export.bas");}while(r);
S_69741:;
if ((*_SUB_EXPORTCODEAS_INTEGER_IN)||is_error_pending()){
if(qbevent){evnt(28182,121,"ide_export.bas");if(r)goto S_69741;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,121,"ide_export.bas");}while(r);
}
S_69744:;
qbs_set(sc_8125,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,122,"ide_export.bas");if(r)goto S_69744;}
S_69745:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8125,qbs_new_txt_len("REM",3))))||is_error_pending()){
if(qbevent){evnt(28182,123,"ide_export.bas");if(r)goto S_69745;}
S_69746:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,123,"ide_export.bas");if(r)goto S_69746;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
if(!qbevent)break;evnt(28182,123,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,123,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=217;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_217:;
if(!qbevent)break;evnt(28182,123,"ide_export.bas");}while(r);
}
sc_ec_494_end:;
goto sc_8125_end;
}
S_69751:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8125,qbs_new_txt_len("DATA",4))))||is_error_pending()){
if(qbevent){evnt(28182,124,"ide_export.bas");if(r)goto S_69751;}
do{
*_SUB_EXPORTCODEAS_INTEGER_DL= -1 ;
if(!qbevent)break;evnt(28182,124,"ide_export.bas");}while(r);
sc_ec_495_end:;
goto sc_8125_end;
}
S_69753:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8125,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
if(qbevent){evnt(28182,125,"ide_export.bas");if(r)goto S_69753;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= -1 ;
if(!qbevent)break;evnt(28182,125,"ide_export.bas");}while(r);
sc_ec_496_end:;
goto sc_8125_end;
}
S_69755:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8125,qbs_new_txt_len("CASE",4))||qbs_equal(sc_8125,qbs_new_txt_len("IF",2))||qbs_equal(sc_8125,qbs_new_txt_len("ELSEIF",6))||qbs_equal(sc_8125,qbs_new_txt_len("UNTIL",5))||qbs_equal(sc_8125,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(28182,126,"ide_export.bas");if(r)goto S_69755;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,126,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,126,"ide_export.bas");}while(r);
sc_ec_497_end:;
goto sc_8125_end;
}
S_69758:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8125,qbs_new_txt_len("THEN",4))||qbs_equal(sc_8125,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(28182,127,"ide_export.bas");if(r)goto S_69758;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,127,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,127,"ide_export.bas");}while(r);
sc_ec_498_end:;
goto sc_8125_end;
}
S_69762:;
fornext_value8127= 1 ;
fornext_finalvalue8127=*__LONG_IDN;
fornext_step8127= 1 ;
if (fornext_step8127<0) fornext_step_negative8127=1; else fornext_step_negative8127=0;
if (is_error_pending()) goto fornext_error8127;
goto fornext_entrylabel8127;
while(1){
fornext_value8127=fornext_step8127+(*_SUB_EXPORTCODEAS_LONG_I);
fornext_entrylabel8127:
*_SUB_EXPORTCODEAS_LONG_I=fornext_value8127;
if (fornext_step_negative8127){
if (fornext_value8127<fornext_finalvalue8127) break;
}else{
if (fornext_value8127>fornext_finalvalue8127) break;
}
fornext_error8127:;
if(qbevent){evnt(28182,129,"ide_export.bas");if(r)goto S_69762;}
S_69763:;
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()){
if(qbevent){evnt(28182,130,"ide_export.bas");if(r)goto S_69763;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ID,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,131,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_UW,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,131,"ide_export.bas");}while(r);
S_69766:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,_SUB_EXPORTCODEAS_STRING_UW)))||is_error_pending()){
if(qbevent){evnt(28182,132,"ide_export.bas");if(r)goto S_69766;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -2 ;
if(!qbevent)break;evnt(28182,132,"ide_export.bas");}while(r);
do{
goto fornext_exit_8126;
if(!qbevent)break;evnt(28182,132,"ide_export.bas");}while(r);
}
}
fornext_continue_8126:;
}
fornext_exit_8126:;
sc_8125_end:;
}
S_69774:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,137,"ide_export.bas");if(r)goto S_69774;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,137,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,137,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=218;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_218:;
if(!qbevent)break;evnt(28182,137,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,137,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,138,"ide_export.bas");}while(r);
sc_ec_499_end:;
goto sc_8123_end;
}
S_69781:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
if(qbevent){evnt(28182,139,"ide_export.bas");if(r)goto S_69781;}
S_69782:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,140,"ide_export.bas");if(r)goto S_69782;}
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= -1 ;
if(!qbevent)break;evnt(28182,141,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,141,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=219;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_219:;
if(!qbevent)break;evnt(28182,141,"ide_export.bas");}while(r);
S_69786:;
}else{
if (*_SUB_EXPORTCODEAS_INTEGER_QU){
if(qbevent){evnt(28182,142,"ide_export.bas");if(r)goto S_69786;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= -1 ;
if(!qbevent)break;evnt(28182,143,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,143,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=220;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_220:;
if(!qbevent)break;evnt(28182,143,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ;
if(!qbevent)break;evnt(28182,143,"ide_export.bas");}while(r);
}
}
S_69792:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(28182,145,"ide_export.bas");if(r)goto S_69792;}
do{
return_point[next_return_point++]=221;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_221:;
if(!qbevent)break;evnt(28182,145,"ide_export.bas");}while(r);
}
sc_ec_500_end:;
goto sc_8123_end;
}
S_69795:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 36 )))||is_error_pending()){
if(qbevent){evnt(28182,146,"ide_export.bas");if(r)goto S_69795;}
S_69796:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NL|*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
if(qbevent){evnt(28182,147,"ide_export.bas");if(r)goto S_69796;}
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= -1 ;
if(!qbevent)break;evnt(28182,147,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= -1 ;
if(!qbevent)break;evnt(28182,147,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,147,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,147,"ide_export.bas");}while(r);
}
sc_ec_501_end:;
goto sc_8123_end;
}
S_69802:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(28182,148,"ide_export.bas");if(r)goto S_69802;}
S_69803:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(28182,149,"ide_export.bas");if(r)goto S_69803;}
S_69804:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,150,"ide_export.bas");if(r)goto S_69804;}
S_69805:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("BHO",3),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,151,"ide_export.bas");if(r)goto S_69805;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(28182,152,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,152,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=222;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_222:;
if(!qbevent)break;evnt(28182,152,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,152,"ide_export.bas");}while(r);
}
}
}
S_69813:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_KW)))||is_error_pending()){
if(qbevent){evnt(28182,156,"ide_export.bas");if(r)goto S_69813;}
do{
return_point[next_return_point++]=223;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_223:;
if(!qbevent)break;evnt(28182,156,"ide_export.bas");}while(r);
}
sc_ec_502_end:;
goto sc_8123_end;
}
S_69816:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 39 )))||is_error_pending()){
if(qbevent){evnt(28182,157,"ide_export.bas");if(r)goto S_69816;}
S_69817:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NL)||is_error_pending()){
if(qbevent){evnt(28182,158,"ide_export.bas");if(r)goto S_69817;}
S_69818:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,159,"ide_export.bas");if(r)goto S_69818;}
S_69819:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )== 36 )))||is_error_pending()){
if(qbevent){evnt(28182,160,"ide_export.bas");if(r)goto S_69819;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
if(!qbevent)break;evnt(28182,160,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,160,"ide_export.bas");}while(r);
}
}
}
S_69825:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,163,"ide_export.bas");if(r)goto S_69825;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ;
if(!qbevent)break;evnt(28182,163,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,163,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=224;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_224:;
if(!qbevent)break;evnt(28182,163,"ide_export.bas");}while(r);
}
sc_ec_503_end:;
goto sc_8123_end;
}
S_69830:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 40 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 41 )))||is_error_pending()){
if(qbevent){evnt(28182,164,"ide_export.bas");if(r)goto S_69830;}
S_69831:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,165,"ide_export.bas");if(r)goto S_69831;}
S_69832:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,166,"ide_export.bas");if(r)goto S_69832;}
do{
return_point[next_return_point++]=225;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_225:;
if(!qbevent)break;evnt(28182,166,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=226;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_226:;
if(!qbevent)break;evnt(28182,166,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,166,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,166,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,167,"ide_export.bas");}while(r);
}
S_69841:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,169,"ide_export.bas");if(r)goto S_69841;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,169,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,169,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=227;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_227:;
if(!qbevent)break;evnt(28182,169,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,169,"ide_export.bas");}while(r);
}
S_69847:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,170,"ide_export.bas");if(r)goto S_69847;}
S_69848:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 40 ))||is_error_pending()){
if(qbevent){evnt(28182,171,"ide_export.bas");if(r)goto S_69848;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC+ 1 ;
if(!qbevent)break;evnt(28182,171,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC- 1 ;
if(!qbevent)break;evnt(28182,171,"ide_export.bas");}while(r);
}
}
S_69854:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO)))||is_error_pending()){
if(qbevent){evnt(28182,173,"ide_export.bas");if(r)goto S_69854;}
S_69855:;
if ((-(*_SUB_EXPORTCODEAS_INTEGER_NC> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,174,"ide_export.bas");if(r)goto S_69855;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,174,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,174,"ide_export.bas");}while(r);
}
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,176,"ide_export.bas");}while(r);
sc_ec_504_end:;
goto sc_8123_end;
}
S_69862:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 42 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 44 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 47 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 59 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 62 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 94 )))||is_error_pending()){
if(qbevent){evnt(28182,177,"ide_export.bas");if(r)goto S_69862;}
S_69863:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,178,"ide_export.bas");if(r)goto S_69863;}
S_69864:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,179,"ide_export.bas");if(r)goto S_69864;}
do{
return_point[next_return_point++]=228;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_228:;
if(!qbevent)break;evnt(28182,179,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=229;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_229:;
if(!qbevent)break;evnt(28182,179,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,179,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,179,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,180,"ide_export.bas");}while(r);
}
S_69873:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,182,"ide_export.bas");if(r)goto S_69873;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,182,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,182,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=230;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_230:;
if(!qbevent)break;evnt(28182,182,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,182,"ide_export.bas");}while(r);
}
S_69879:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 61 ))&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO))))||is_error_pending()){
if(qbevent){evnt(28182,183,"ide_export.bas");if(r)goto S_69879;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -3 ;
if(!qbevent)break;evnt(28182,183,"ide_export.bas");}while(r);
}
S_69882:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 60 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 62 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 92 )))||is_error_pending()){
if(qbevent){evnt(28182,184,"ide_export.bas");if(r)goto S_69882;}
do{
return_point[next_return_point++]=231;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_231:;
if(!qbevent)break;evnt(28182,184,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,185,"ide_export.bas");}while(r);
sc_ec_505_end:;
goto sc_8123_end;
}
S_69886:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 45 )))||is_error_pending()){
if(qbevent){evnt(28182,186,"ide_export.bas");if(r)goto S_69886;}
S_69887:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,187,"ide_export.bas");if(r)goto S_69887;}
S_69888:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,188,"ide_export.bas");if(r)goto S_69888;}
do{
return_point[next_return_point++]=232;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_232:;
if(!qbevent)break;evnt(28182,188,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=233;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_233:;
if(!qbevent)break;evnt(28182,188,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,188,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,188,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,189,"ide_export.bas");}while(r);
}
S_69897:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,191,"ide_export.bas");if(r)goto S_69897;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,191,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,191,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=234;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_234:;
if(!qbevent)break;evnt(28182,191,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,191,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,192,"ide_export.bas");}while(r);
S_69904:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,193,"ide_export.bas");if(r)goto S_69904;}
S_69905:;
sc_8128=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,194,"ide_export.bas");if(r)goto S_69905;}
S_69906:;
if (((sc_8128==( 9 ))||(sc_8128==( 32 ))||(sc_8128==( 40 ))||((sc_8128>=( 42 ))&&(sc_8128<=( 45 )))||(sc_8128==( 47 ))||((sc_8128>=( 59 ))&&(sc_8128<=( 63 )))||(sc_8128==( 92 ))||(sc_8128==( 94 )))||is_error_pending()){
if(qbevent){evnt(28182,195,"ide_export.bas");if(r)goto S_69906;}
S_69907:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,196,"ide_export.bas");if(r)goto S_69907;}
S_69908:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(".0123456789",11),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,197,"ide_export.bas");if(r)goto S_69908;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(28182,198,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,198,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=235;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_235:;
if(!qbevent)break;evnt(28182,198,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,198,"ide_export.bas");}while(r);
}
}
sc_ec_506_end:;
goto sc_8128_end;
}
sc_8128_end:;
}
sc_ec_507_end:;
goto sc_8123_end;
}
S_69917:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 )))||is_error_pending()){
if(qbevent){evnt(28182,203,"ide_export.bas");if(r)goto S_69917;}
S_69918:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(28182,204,"ide_export.bas");if(r)goto S_69918;}
S_69919:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,205,"ide_export.bas");if(r)goto S_69919;}
S_69920:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,206,"ide_export.bas");if(r)goto S_69920;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(28182,207,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,207,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=236;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_236:;
if(!qbevent)break;evnt(28182,207,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,207,"ide_export.bas");}while(r);
}
}
}
sc_ec_508_end:;
goto sc_8123_end;
}
S_69928:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 ))))||is_error_pending()){
if(qbevent){evnt(28182,211,"ide_export.bas");if(r)goto S_69928;}
S_69929:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(28182,212,"ide_export.bas");if(r)goto S_69929;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ;
if(!qbevent)break;evnt(28182,212,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,212,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=237;
if (next_return_point>=return_points) more_return_points();
goto LABEL_OPENTEXT;
RETURN_237:;
if(!qbevent)break;evnt(28182,212,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,212,"ide_export.bas");}while(r);
}
sc_ec_509_end:;
goto sc_8123_end;
}
S_69935:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 58 )))||is_error_pending()){
if(qbevent){evnt(28182,213,"ide_export.bas");if(r)goto S_69935;}
S_69936:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,214,"ide_export.bas");if(r)goto S_69936;}
do{
return_point[next_return_point++]=238;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_238:;
if(!qbevent)break;evnt(28182,214,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=239;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_239:;
if(!qbevent)break;evnt(28182,214,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ;
if(!qbevent)break;evnt(28182,214,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ;
if(!qbevent)break;evnt(28182,214,"ide_export.bas");}while(r);
}
S_69942:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,215,"ide_export.bas");if(r)goto S_69942;}
S_69943:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||is_error_pending()){
if(qbevent){evnt(28182,216,"ide_export.bas");if(r)goto S_69943;}
do{
return_point[next_return_point++]=240;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VERIFYKEYWORD;
RETURN_240:;
if(!qbevent)break;evnt(28182,216,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=241;
if (next_return_point>=return_points) more_return_points();
goto LABEL_WRITELINK;
RETURN_241:;
if(!qbevent)break;evnt(28182,216,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,216,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ;
if(!qbevent)break;evnt(28182,216,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ;
if(!qbevent)break;evnt(28182,217,"ide_export.bas");}while(r);
}
S_69952:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||is_error_pending()){
if(qbevent){evnt(28182,219,"ide_export.bas");if(r)goto S_69952;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,219,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,219,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=242;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_242:;
if(!qbevent)break;evnt(28182,219,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ;
if(!qbevent)break;evnt(28182,219,"ide_export.bas");}while(r);
}
S_69958:;
if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||is_error_pending()){
if(qbevent){evnt(28182,220,"ide_export.bas");if(r)goto S_69958;}
do{
*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ;
if(!qbevent)break;evnt(28182,220,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,220,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,220,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ;
if(!qbevent)break;evnt(28182,221,"ide_export.bas");}while(r);
sc_ec_510_end:;
goto sc_8123_end;
}
S_69964:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
if(qbevent){evnt(28182,222,"ide_export.bas");if(r)goto S_69964;}
do{
return_point[next_return_point++]=243;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_243:;
if(!qbevent)break;evnt(28182,223,"ide_export.bas");}while(r);
sc_ec_511_end:;
goto sc_8123_end;
}
S_69966:;
if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 97 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 ))))||is_error_pending()){
if(qbevent){evnt(28182,224,"ide_export.bas");if(r)goto S_69966;}
S_69967:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(28182,225,"ide_export.bas");if(r)goto S_69967;}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
if(!qbevent)break;evnt(28182,225,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,225,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,225,"ide_export.bas");}while(r);
}
S_69972:;
if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_NL&(qbs_equal(qbs_ucase(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 5 ,0|1)),qbs_new_txt_len("REM $",5)))))||is_error_pending()){
if(qbevent){evnt(28182,226,"ide_export.bas");if(r)goto S_69972;}
do{
*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ;
if(!qbevent)break;evnt(28182,226,"ide_export.bas");}while(r);
}
sc_ec_512_end:;
goto sc_8123_end;
}
S_69975:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 95 )))||is_error_pending()){
if(qbevent){evnt(28182,227,"ide_export.bas");if(r)goto S_69975;}
S_69976:;
if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||is_error_pending()){
if(qbevent){evnt(28182,228,"ide_export.bas");if(r)goto S_69976;}
S_69977:;
if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||is_error_pending()){
if(qbevent){evnt(28182,229,"ide_export.bas");if(r)goto S_69977;}
S_69978:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 13 ))&(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 10 ))))||is_error_pending()){
if(qbevent){evnt(28182,230,"ide_export.bas");if(r)goto S_69978;}
do{
*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ;
if(!qbevent)break;evnt(28182,231,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,231,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,231,"ide_export.bas");}while(r);
}
}
}
sc_ec_513_end:;
goto sc_8123_end;
}
S_69985:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(28182,235,"ide_export.bas");if(r)goto S_69985;}
do{
return_point[next_return_point++]=244;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_244:;
if(!qbevent)break;evnt(28182,236,"ide_export.bas");}while(r);
sc_ec_514_end:;
goto sc_8123_end;
}
do{
*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ;
if(!qbevent)break;evnt(28182,238,"ide_export.bas");}while(r);
sc_8123_end:;
S_69990:;
if(qbevent){evnt(28182,240,"ide_export.bas");if(r)goto S_69990;}
S_69991:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 33 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 35 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 38 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 95 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 126 )))||is_error_pending()){
if(qbevent){evnt(28182,241,"ide_export.bas");if(r)goto S_69991;}
S_69992:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,242,"ide_export.bas");if(r)goto S_69992;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(_SUB_EXPORTCODEAS_STRING_ME,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,242,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,242,"ide_export.bas");}while(r);
}
S_69996:;
if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,243,"ide_export.bas");if(r)goto S_69996;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(_SUB_EXPORTCODEAS_STRING_KW,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,243,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,243,"ide_export.bas");}while(r);
}
sc_ec_515_end:;
goto sc_8129_end;
}
sc_8129_end:;
S_70001:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 9 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 10 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 32 )))||is_error_pending()){
if(qbevent){evnt(28182,245,"ide_export.bas");if(r)goto S_70001;}
do{
*_SUB_EXPORTCODEAS_INTEGER_NL= 0 ;
if(!qbevent)break;evnt(28182,245,"ide_export.bas");}while(r);
}
S_70004:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(28182,246,"ide_export.bas");if(r)goto S_70004;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(28182,246,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(28182,246,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(28182,247,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_SPOS=*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 ;
if(!qbevent)break;evnt(28182,247,"ide_export.bas");}while(r);
S_70010:;
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_EXPORTCODEAS_LONG_EPOS>(_SUB_EXPORTCODEAS_STRING_ETXT->len- 10000 ))))||is_error_pending()){
if(qbevent){evnt(28182,249,"ide_export.bas");if(r)goto S_70010;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,qbs_add(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 1000000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,249,"ide_export.bas");}while(r);
}
ww_continue_8121:;
}
ww_exit_8121:;
do{
return_point[next_return_point++]=245;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSECODEBLOCK;
RETURN_245:;
if(!qbevent)break;evnt(28182,251,"ide_export.bas");}while(r);
do{
sub_pcopy( 2 , 3 );
if(!qbevent)break;evnt(28182,253,"ide_export.bas");}while(r);
S_70016:;
qbs_set(sc_8131,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,254,"ide_export.bas");if(r)goto S_70016;}
S_70017:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8131,qbs_new_txt_len("html",4))||qbs_equal(sc_8131,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,255,"ide_export.bas");if(r)goto S_70017;}
do{
*__LONG_IDEERROR= 7 ;
if(!qbevent)break;evnt(28182,256,"ide_export.bas");}while(r);
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT), 4 ,NULL,NULL, 151 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,257,"ide_export.bas");}while(r);
do{
*__LONG_IDEERROR= 1 ;
if(!qbevent)break;evnt(28182,258,"ide_export.bas");}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 151 ;
if (is_error_pending()) goto skip8132;
sub_file_print(tmp_fileno,qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ), 0, 0, 0);
if (is_error_pending()) goto skip8132;
skip8132:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(28182,259,"ide_export.bas");}while(r);
do{
sub_close( 151 ,1);
if(!qbevent)break;evnt(28182,260,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Export to ",10),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT),qbs_new_txt_len(" completed.",11)),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,261,"ide_export.bas");}while(r);
sc_ec_516_end:;
goto sc_8131_end;
}
S_70024:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8131,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,262,"ide_export.bas");if(r)goto S_70024;}
do{
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,263,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Discord export to Clipboard completed.\\n",40),qbs_new_txt_len("Codeblock size is ",18)),qbs__tostr((int64)(*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ),NULL,0)),qbs_new_txt_len(" chars.\\n",9)),qbs_new_txt_len("Note that codeblocks count into the Discord Message Limit,\\n",60)),qbs_new_txt_len("which is usually 2000 for regulars and 4000 for Nitro users.\\n",62)),qbs_new_txt_len("Big code is better dropped to Discord as file attachement.",58)),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,268,"ide_export.bas");}while(r);
sc_ec_517_end:;
goto sc_8131_end;
}
S_70027:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8131,qbs_new_txt_len("foru",4))||qbs_equal(sc_8131,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,269,"ide_export.bas");if(r)goto S_70027;}
do{
sub__clipboard(qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,270,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_OK=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Export As...",12),qbs_new_txt_len("Forum/Wiki export to Clipboard completed.",41),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,271,"ide_export.bas");}while(r);
sc_ec_518_end:;
goto sc_8131_end;
}
sc_8131_end:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,273,"ide_export.bas");}while(r);
LABEL_OPENCODEBLOCK:;
if(qbevent){evnt(28182,275,"ide_export.bas");r=0;}
S_70032:;
qbs_set(sc_8133,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,276,"ide_export.bas");if(r)goto S_70032;}
S_70033:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8133,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,277,"ide_export.bas");if(r)goto S_70033;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<!DOCTYPE html><html lang=",26),func_chr( 34 )),qbs_new_txt_len("en",2)),func_chr( 34 )),qbs_new_txt_len("><head><meta charset=",21)),func_chr( 34 )),qbs_new_txt_len("UTF-8",5)),func_chr( 34 )),qbs_new_txt_len("><title>",8)),FUNC_ANSITEXTTOUTF8TEXT(_SUB_EXPORTCODEAS_STRING_PNAM)),qbs_new_txt_len("</title></head><body><pre style=",32)),func_chr( 34 )),qbs_new_txt_len("font-size: 18px; background-color: ",35)),_SUB_EXPORTCODEAS_STRING_BGC),qbs_new_txt_len("; color: ",9)),_SUB_EXPORTCODEAS_STRING_TXC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,277,"ide_export.bas");}while(r);
sc_ec_519_end:;
goto sc_8133_end;
}
S_70035:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8133,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,278,"ide_export.bas");if(r)goto S_70035;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_new_txt_len("{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 Courier New;}}{\\colortbl ",56),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("}\\pard\\f0\\fs32\\cbpat6\\paperh23811\\paperw16838\\margl142\\margr142\\margt142\\margb142",81)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,278,"ide_export.bas");}while(r);
sc_ec_520_end:;
goto sc_8133_end;
}
S_70037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8133,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,279,"ide_export.bas");if(r)goto S_70037;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("```ansi",7),_SUB_EXPORTCODEAS_STRING_CEOL),func_chr( 27 )),qbs_new_txt_len("[0;0;1;38m",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,279,"ide_export.bas");}while(r);
sc_ec_521_end:;
goto sc_8133_end;
}
S_70039:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8133,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,280,"ide_export.bas");if(r)goto S_70039;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[qb=export]",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,280,"ide_export.bas");}while(r);
sc_ec_522_end:;
goto sc_8133_end;
}
S_70041:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8133,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,281,"ide_export.bas");if(r)goto S_70041;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeStart}}",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,281,"ide_export.bas");}while(r);
sc_ec_523_end:;
goto sc_8133_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,282,"ide_export.bas");}while(r);
sc_8133_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(28182,284,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,284,"ide_export.bas");}while(r);
S_70048:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("disc",4)))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("foru",4)))))||is_error_pending()){
if(qbevent){evnt(28182,285,"ide_export.bas");if(r)goto S_70048;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
if(!qbevent)break;evnt(28182,286,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,286,"ide_export.bas");}while(r);
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,288,"ide_export.bas");}while(r);
LABEL_CLOSECODEBLOCK:;
if(qbevent){evnt(28182,290,"ide_export.bas");r=0;}
S_70053:;
qbs_set(sc_8138,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,291,"ide_export.bas");if(r)goto S_70053;}
S_70054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8138,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,292,"ide_export.bas");if(r)goto S_70054;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</pre></body></html>",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,292,"ide_export.bas");}while(r);
sc_ec_524_end:;
goto sc_8138_end;
}
S_70056:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8138,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,293,"ide_export.bas");if(r)goto S_70056;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,293,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS- 4 ;
if(!qbevent)break;evnt(28182,293,"ide_export.bas");}while(r);
sc_ec_525_end:;
goto sc_8138_end;
}
S_70059:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8138,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,294,"ide_export.bas");if(r)goto S_70059;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("```",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,294,"ide_export.bas");}while(r);
sc_ec_526_end:;
goto sc_8138_end;
}
S_70061:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8138,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,295,"ide_export.bas");if(r)goto S_70061;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/qb]",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,295,"ide_export.bas");}while(r);
sc_ec_527_end:;
goto sc_8138_end;
}
S_70063:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8138,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,296,"ide_export.bas");if(r)goto S_70063;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeEnd}}",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,296,"ide_export.bas");}while(r);
sc_ec_528_end:;
goto sc_8138_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,297,"ide_export.bas");}while(r);
sc_8138_end:;
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS-_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,299,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(28182,300,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,300,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
if(!qbevent)break;evnt(28182,301,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,301,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,302,"ide_export.bas");}while(r);
LABEL_OPENTEXT:;
if(qbevent){evnt(28182,304,"ide_export.bas");r=0;}
S_70074:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||is_error_pending()){
if(qbevent){evnt(28182,305,"ide_export.bas");if(r)goto S_70074;}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,305,"ide_export.bas");}while(r);
}
S_70077:;
qbs_set(sc_8144,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,306,"ide_export.bas");if(r)goto S_70077;}
S_70078:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8144,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,307,"ide_export.bas");if(r)goto S_70078;}
S_70079:;
qbs_set(sc_8145,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,308,"ide_export.bas");if(r)goto S_70079;}
S_70080:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8145,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(28182,309,"ide_export.bas");if(r)goto S_70080;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_COC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,309,"ide_export.bas");}while(r);
sc_ec_529_end:;
goto sc_8145_end;
}
S_70082:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8145,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,310,"ide_export.bas");if(r)goto S_70082;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_NUC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,310,"ide_export.bas");}while(r);
sc_ec_530_end:;
goto sc_8145_end;
}
S_70084:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8145,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,311,"ide_export.bas");if(r)goto S_70084;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_QUC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,311,"ide_export.bas");}while(r);
sc_ec_531_end:;
goto sc_8145_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,312,"ide_export.bas");}while(r);
sc_8145_end:;
sc_ec_532_end:;
goto sc_8144_end;
}
S_70089:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8144,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,314,"ide_export.bas");if(r)goto S_70089;}
S_70090:;
qbs_set(sc_8146,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,315,"ide_export.bas");if(r)goto S_70090;}
S_70091:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8146,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(28182,316,"ide_export.bas");if(r)goto S_70091;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf1 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,316,"ide_export.bas");}while(r);
sc_ec_533_end:;
goto sc_8146_end;
}
S_70093:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8146,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,317,"ide_export.bas");if(r)goto S_70093;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf4 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,317,"ide_export.bas");}while(r);
sc_ec_534_end:;
goto sc_8146_end;
}
S_70095:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8146,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,318,"ide_export.bas");if(r)goto S_70095;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf5 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,318,"ide_export.bas");}while(r);
sc_ec_535_end:;
goto sc_8146_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,319,"ide_export.bas");}while(r);
sc_8146_end:;
sc_ec_536_end:;
goto sc_8144_end;
}
S_70100:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8144,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,321,"ide_export.bas");if(r)goto S_70100;}
S_70101:;
qbs_set(sc_8147,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,322,"ide_export.bas");if(r)goto S_70101;}
S_70102:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8147,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(28182,323,"ide_export.bas");if(r)goto S_70102;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[37m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,323,"ide_export.bas");}while(r);
sc_ec_537_end:;
goto sc_8147_end;
}
S_70104:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8147,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,324,"ide_export.bas");if(r)goto S_70104;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[31m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,324,"ide_export.bas");}while(r);
sc_ec_538_end:;
goto sc_8147_end;
}
S_70106:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8147,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,325,"ide_export.bas");if(r)goto S_70106;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[33m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,325,"ide_export.bas");}while(r);
sc_ec_539_end:;
goto sc_8147_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,326,"ide_export.bas");}while(r);
sc_8147_end:;
sc_ec_540_end:;
goto sc_8144_end;
}
S_70111:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8144,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,328,"ide_export.bas");if(r)goto S_70111;}
S_70112:;
qbs_set(sc_8148,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,329,"ide_export.bas");if(r)goto S_70112;}
S_70113:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8148,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(28182,330,"ide_export.bas");if(r)goto S_70113;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#919191]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,330,"ide_export.bas");}while(r);
sc_ec_541_end:;
goto sc_8148_end;
}
S_70115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8148,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,331,"ide_export.bas");if(r)goto S_70115;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#F580B1]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,331,"ide_export.bas");}while(r);
sc_ec_542_end:;
goto sc_8148_end;
}
S_70117:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8148,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,332,"ide_export.bas");if(r)goto S_70117;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[color=#FFB100]",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,332,"ide_export.bas");}while(r);
sc_ec_543_end:;
goto sc_8148_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,333,"ide_export.bas");}while(r);
sc_8148_end:;
sc_ec_544_end:;
goto sc_8144_end;
}
S_70122:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8144,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,335,"ide_export.bas");if(r)goto S_70122;}
S_70123:;
qbs_set(sc_8149,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,336,"ide_export.bas");if(r)goto S_70123;}
S_70124:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8149,qbs_new_txt_len("co",2))||qbs_equal(sc_8149,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,337,"ide_export.bas");if(r)goto S_70124;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|<nowiki>",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,337,"ide_export.bas");}while(r);
sc_ec_545_end:;
goto sc_8149_end;
}
S_70126:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8149,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,338,"ide_export.bas");if(r)goto S_70126;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,338,"ide_export.bas");}while(r);
sc_ec_546_end:;
goto sc_8149_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,339,"ide_export.bas");}while(r);
sc_8149_end:;
sc_ec_547_end:;
goto sc_8144_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,341,"ide_export.bas");}while(r);
sc_8144_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(28182,343,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,343,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,344,"ide_export.bas");}while(r);
LABEL_CLOSETEXT:;
if(qbevent){evnt(28182,346,"ide_export.bas");r=0;}
S_70137:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||is_error_pending()){
if(qbevent){evnt(28182,347,"ide_export.bas");if(r)goto S_70137;}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,347,"ide_export.bas");}while(r);
}
S_70140:;
qbs_set(sc_8152,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,348,"ide_export.bas");if(r)goto S_70140;}
S_70141:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8152,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,349,"ide_export.bas");if(r)goto S_70141;}
S_70142:;
qbs_set(sc_8153,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,350,"ide_export.bas");if(r)goto S_70142;}
S_70143:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8153,qbs_new_txt_len("co",2))||qbs_equal(sc_8153,qbs_new_txt_len("nu",2))||qbs_equal(sc_8153,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,351,"ide_export.bas");if(r)goto S_70143;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</span>",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,351,"ide_export.bas");}while(r);
sc_ec_548_end:;
goto sc_8153_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,352,"ide_export.bas");}while(r);
sc_8153_end:;
sc_ec_549_end:;
goto sc_8152_end;
}
S_70148:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8152,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,354,"ide_export.bas");if(r)goto S_70148;}
S_70149:;
qbs_set(sc_8154,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,355,"ide_export.bas");if(r)goto S_70149;}
S_70150:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8154,qbs_new_txt_len("co",2))||qbs_equal(sc_8154,qbs_new_txt_len("nu",2))||qbs_equal(sc_8154,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,356,"ide_export.bas");if(r)goto S_70150;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf0 ",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,356,"ide_export.bas");}while(r);
sc_ec_550_end:;
goto sc_8154_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,357,"ide_export.bas");}while(r);
sc_8154_end:;
sc_ec_551_end:;
goto sc_8152_end;
}
S_70155:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8152,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,359,"ide_export.bas");if(r)goto S_70155;}
S_70156:;
qbs_set(sc_8155,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,360,"ide_export.bas");if(r)goto S_70156;}
S_70157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8155,qbs_new_txt_len("co",2))||qbs_equal(sc_8155,qbs_new_txt_len("nu",2))||qbs_equal(sc_8155,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,361,"ide_export.bas");if(r)goto S_70157;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(func_chr( 27 ),qbs_new_txt_len("[38m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,361,"ide_export.bas");}while(r);
sc_ec_552_end:;
goto sc_8155_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,362,"ide_export.bas");}while(r);
sc_8155_end:;
sc_ec_553_end:;
goto sc_8152_end;
}
S_70162:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8152,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,364,"ide_export.bas");if(r)goto S_70162;}
S_70163:;
qbs_set(sc_8156,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,365,"ide_export.bas");if(r)goto S_70163;}
S_70164:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8156,qbs_new_txt_len("co",2))||qbs_equal(sc_8156,qbs_new_txt_len("nu",2))||qbs_equal(sc_8156,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,366,"ide_export.bas");if(r)goto S_70164;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("[/color]",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,366,"ide_export.bas");}while(r);
sc_ec_554_end:;
goto sc_8156_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,367,"ide_export.bas");}while(r);
sc_8156_end:;
sc_ec_555_end:;
goto sc_8152_end;
}
S_70169:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8152,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,369,"ide_export.bas");if(r)goto S_70169;}
S_70170:;
qbs_set(sc_8157,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,370,"ide_export.bas");if(r)goto S_70170;}
S_70171:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8157,qbs_new_txt_len("co",2))))||is_error_pending()){
if(qbevent){evnt(28182,371,"ide_export.bas");if(r)goto S_70171;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#919191}}",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,371,"ide_export.bas");}while(r);
sc_ec_556_end:;
goto sc_8157_end;
}
S_70173:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8157,qbs_new_txt_len("nu",2))))||is_error_pending()){
if(qbevent){evnt(28182,372,"ide_export.bas");if(r)goto S_70173;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#F580B1}}",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,372,"ide_export.bas");}while(r);
sc_ec_557_end:;
goto sc_8157_end;
}
S_70175:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8157,qbs_new_txt_len("qu",2))))||is_error_pending()){
if(qbevent){evnt(28182,373,"ide_export.bas");if(r)goto S_70175;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("</nowiki>|#FFB100}}",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,373,"ide_export.bas");}while(r);
sc_ec_558_end:;
goto sc_8157_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,374,"ide_export.bas");}while(r);
sc_8157_end:;
sc_ec_559_end:;
goto sc_8152_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,376,"ide_export.bas");}while(r);
sc_8152_end:;
S_70183:;
if ((*_SUB_EXPORTCODEAS_INTEGER_POST)||is_error_pending()){
if(qbevent){evnt(28182,378,"ide_export.bas");if(r)goto S_70183;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ;
if(!qbevent)break;evnt(28182,379,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=246;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ESCAPECHAR;
RETURN_246:;
if(!qbevent)break;evnt(28182,379,"ide_export.bas");}while(r);
S_70186:;
if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||is_error_pending()){
if(qbevent){evnt(28182,380,"ide_export.bas");if(r)goto S_70186;}
do{
tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!is_error_pending()){
tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!is_error_pending()){
tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(28182,380,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ;
if(!qbevent)break;evnt(28182,380,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,380,"ide_export.bas");}while(r);
}
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(28182,382,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,382,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,383,"ide_export.bas");}while(r);
LABEL_VERIFYKEYWORD:;
if(qbevent){evnt(28182,385,"ide_export.bas");r=0;}
S_70195:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,386,"ide_export.bas");if(r)goto S_70195;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_ME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,386,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_KW);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,386,"ide_export.bas");}while(r);
}
S_70200:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )!= 95 )))||is_error_pending()){
if(qbevent){evnt(28182,387,"ide_export.bas");if(r)goto S_70200;}
do{
*_SUB_EXPORTCODEAS_INTEGER_FLP= 1 ;
if(!qbevent)break;evnt(28182,387,"ide_export.bas");}while(r);
}else{
do{
*_SUB_EXPORTCODEAS_INTEGER_FLP= 2 ;
if(!qbevent)break;evnt(28182,387,"ide_export.bas");}while(r);
}
S_70205:;
if ((qbs_cleanup(qbs_tmp_base,((-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP)== 36 ))|((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])])&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(28182,388,"ide_export.bas");if(r)goto S_70205;}
S_70206:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE)||is_error_pending()){
if(qbevent){evnt(28182,389,"ide_export.bas");if(r)goto S_70206;}
S_70207:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC$FORMAT",30),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,390,"ide_export.bas");if(r)goto S_70207;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,390,"ide_export.bas");}while(r);
}
S_70210:;
}else{
if (*_SUB_EXPORTCODEAS_INTEGER_ME&(~(*_SUB_EXPORTCODEAS_INTEGER_LE))){
if(qbevent){evnt(28182,391,"ide_export.bas");if(r)goto S_70210;}
S_70211:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC$FORMAT",30),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,392,"ide_export.bas");if(r)goto S_70211;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,392,"ide_export.bas");}while(r);
}
}
}
S_70215:;
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,394,"ide_export.bas");if(r)goto S_70215;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,394,"ide_export.bas");}while(r);
}
S_70218:;
if (((((-(*_SUB_EXPORTCODEAS_INTEGER_ML< -1 ))&(~(*_SUB_EXPORTCODEAS_INTEGER_PC)))|*_SUB_EXPORTCODEAS_INTEGER_DL)&*_SUB_EXPORTCODEAS_INTEGER_KW)||is_error_pending()){
if(qbevent){evnt(28182,395,"ide_export.bas");if(r)goto S_70218;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,395,"ide_export.bas");}while(r);
}
S_70221:;
if ((*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,396,"ide_export.bas");if(r)goto S_70221;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,_SUB_EXPORTCODEAS_STRING_VERI);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,396,"ide_export.bas");}while(r);
}
S_70224:;
}else{
if (qbs_cleanup(qbs_tmp_base,(~(((-(*_SUB_EXPORTCODEAS_INTEGER_ML< 0 ))|*_SUB_EXPORTCODEAS_INTEGER_DL)))&(-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(FUNC_REMOVESYMBOL2(_SUB_EXPORTCODEAS_STRING_VERI))),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(28182,397,"ide_export.bas");if(r)goto S_70224;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
if(!qbevent)break;evnt(28182,398,"ide_export.bas");}while(r);
S_70226:;
}else{
if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_PC&(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(28182,399,"ide_export.bas");if(r)goto S_70226;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ;
if(!qbevent)break;evnt(28182,400,"ide_export.bas");}while(r);
}else{
S_70229:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,402,"ide_export.bas");if(r)goto S_70229;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,402,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,402,"ide_export.bas");}while(r);
}
}
}
}
S_70235:;
if (((-(*_SUB_EXPORTCODEAS_INTEGER_ML< 0 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 58 )))||is_error_pending()){
if(qbevent){evnt(28182,404,"ide_export.bas");if(r)goto S_70235;}
do{
*_SUB_EXPORTCODEAS_INTEGER_ML= -2 ;
if(!qbevent)break;evnt(28182,404,"ide_export.bas");}while(r);
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,405,"ide_export.bas");}while(r);
LABEL_FINDWIKIPAGE:;
if(qbevent){evnt(28182,407,"ide_export.bas");r=0;}
S_70239:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||is_error_pending()){
if(qbevent){evnt(28182,408,"ide_export.bas");if(r)goto S_70239;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,408,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,408,"ide_export.bas");}while(r);
}
S_70244:;
if ((*_SUB_EXPORTCODEAS_INTEGER_OP)||is_error_pending()){
if(qbevent){evnt(28182,409,"ide_export.bas");if(r)goto S_70244;}
S_70245:;
if(qbevent){evnt(28182,410,"ide_export.bas");if(r)goto S_70245;}
S_70246:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(28182,411,"ide_export.bas");if(r)goto S_70246;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,411,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,411,"ide_export.bas");}while(r);
sc_ec_560_end:;
goto sc_8160_end;
}
S_70249:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LEN",3))))||is_error_pending()){
if(qbevent){evnt(28182,412,"ide_export.bas");if(r)goto S_70249;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,413,"ide_export.bas");}while(r);
S_70251:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(28182,414,"ide_export.bas");if(r)goto S_70251;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,414,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,414,"ide_export.bas");}while(r);
}
sc_ec_561_end:;
goto sc_8160_end;
}
S_70255:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ACCESS",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOCK",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHARED",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("READ",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(28182,415,"ide_export.bas");if(r)goto S_70255;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_ACCESS_and_LOCK_Permissions",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,415,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,415,"ide_export.bas");}while(r);
sc_ec_562_end:;
goto sc_8160_end;
}
S_70258:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("FOR",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OUTPUT",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("APPEND",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("BINARY",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOM",6))))||is_error_pending()){
if(qbevent){evnt(28182,416,"ide_export.bas");if(r)goto S_70258;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_Access_Modes",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,416,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,416,"ide_export.bas");}while(r);
sc_ec_563_end:;
goto sc_8160_end;
}
sc_8160_end:;
}
S_70263:;
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()){
if(qbevent){evnt(28182,419,"ide_export.bas");if(r)goto S_70263;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (type field)",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,420,"ide_export.bas");}while(r);
S_70265:;
}else{
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 )))){
if(qbevent){evnt(28182,421,"ide_export.bas");if(r)goto S_70265;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (function)",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,422,"ide_export.bas");}while(r);
S_70267:;
}else{
if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_BO&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_BO,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))){
if(qbevent){evnt(28182,423,"ide_export.bas");if(r)goto S_70267;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (boolean)",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,424,"ide_export.bas");}while(r);
S_70269:;
}else{
if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))){
if(qbevent){evnt(28182,425,"ide_export.bas");if(r)goto S_70269;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("Mathematical Operations#Derived_Mathematical_Functions",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,426,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_OLA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,428,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=_SUB_EXPORTCODEAS_STRING_OLA->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,428,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,429,"ide_export.bas");}while(r);
S_70275:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(28182,429,"ide_export.bas");if(r)goto S_70275;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(28182,429,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len("(",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,430,"ide_export.bas");}while(r);
S_70279:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(28182,430,"ide_export.bas");if(r)goto S_70279;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(28182,430,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,qbs_new_txt_len(":",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,431,"ide_export.bas");}while(r);
S_70283:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(28182,431,"ide_export.bas");if(r)goto S_70283;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(28182,431,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 13 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,432,"ide_export.bas");}while(r);
S_70287:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(28182,432,"ide_export.bas");if(r)goto S_70287;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(28182,432,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_SEP=func_instr(NULL,_SUB_EXPORTCODEAS_STRING_OLA,func_chr( 10 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,433,"ide_export.bas");}while(r);
S_70291:;
if ((-((-(*_SUB_EXPORTCODEAS_INTEGER_SEP> 0 ))&&(-(*_SUB_EXPORTCODEAS_INTEGER_SEP<*_SUB_EXPORTCODEAS_INTEGER_SP))))||is_error_pending()){
if(qbevent){evnt(28182,433,"ide_export.bas");if(r)goto S_70291;}
do{
*_SUB_EXPORTCODEAS_INTEGER_SP=*_SUB_EXPORTCODEAS_INTEGER_SEP;
if(!qbevent)break;evnt(28182,433,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_rtrim(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA,*_SUB_EXPORTCODEAS_INTEGER_SP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,434,"ide_export.bas");}while(r);
S_70295:;
sc_8162_var=0;
if(qbevent){evnt(28182,435,"ide_export.bas");if(r)goto S_70295;}
S_70296:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END",4))))||is_error_pending()){
if(qbevent){evnt(28182,436,"ide_export.bas");if(r)goto S_70296;}
S_70297:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(28182,436,"ide_export.bas");if(r)goto S_70297;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,436,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END IF",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,436,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,436,"ide_export.bas");}while(r);
}
sc_ec_564_end:;
sc_8162_var=-1;
}
S_70302:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("_CONSOLECURSOR",14))))||is_error_pending()){
if(qbevent){evnt(28182,437,"ide_export.bas");if(r)goto S_70302;}
S_70303:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_HIDE",5))))||is_error_pending()){
if(qbevent){evnt(28182,438,"ide_export.bas");if(r)goto S_70303;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,438,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,438,"ide_export.bas");}while(r);
}
S_70307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("_SHOW",5))))||is_error_pending()){
if(qbevent){evnt(28182,439,"ide_export.bas");if(r)goto S_70307;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,439,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,439,"ide_export.bas");}while(r);
}
sc_ec_565_end:;
sc_8162_var=-1;
}
S_70311:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL",4))))||is_error_pending()){
if(qbevent){evnt(28182,440,"ide_export.bas");if(r)goto S_70311;}
S_70312:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
if(qbevent){evnt(28182,440,"ide_export.bas");if(r)goto S_70312;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,440,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL ABSOLUTE",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,440,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,440,"ide_export.bas");}while(r);
}
sc_ec_566_end:;
sc_8162_var=-1;
}
S_70317:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(28182,441,"ide_export.bas");if(r)goto S_70317;}
S_70318:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IS",2))))||is_error_pending()){
if(qbevent){evnt(28182,442,"ide_export.bas");if(r)goto S_70318;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,442,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE IS",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,442,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,442,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,442,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,442,"ide_export.bas");}while(r);
}
S_70325:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(28182,443,"ide_export.bas");if(r)goto S_70325;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,443,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CASE ELSE",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,443,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ;
if(!qbevent)break;evnt(28182,443,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ;
if(!qbevent)break;evnt(28182,443,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,443,"ide_export.bas");}while(r);
}
sc_ec_567_end:;
sc_8162_var=-1;
}
S_70332:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(28182,444,"ide_export.bas");if(r)goto S_70332;}
S_70333:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(28182,444,"ide_export.bas");if(r)goto S_70333;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,444,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE LIBRARY",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,444,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,444,"ide_export.bas");}while(r);
}
sc_ec_568_end:;
sc_8162_var=-1;
}
S_70338:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF",3))))||is_error_pending()){
if(qbevent){evnt(28182,445,"ide_export.bas");if(r)goto S_70338;}
S_70339:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SEG",3))))||is_error_pending()){
if(qbevent){evnt(28182,445,"ide_export.bas");if(r)goto S_70339;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,445,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF SEG",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,445,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,445,"ide_export.bas");}while(r);
}
sc_ec_569_end:;
sc_8162_var=-1;
}
S_70344:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(28182,446,"ide_export.bas");if(r)goto S_70344;}
S_70345:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(28182,447,"ide_export.bas");if(r)goto S_70345;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,447,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,447,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,447,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,447,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,447,"ide_export.bas");}while(r);
}
S_70352:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(28182,448,"ide_export.bas");if(r)goto S_70352;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,448,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,448,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,448,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,448,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,448,"ide_export.bas");}while(r);
}
sc_ec_570_end:;
sc_8162_var=-1;
}
S_70359:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(28182,449,"ide_export.bas");if(r)goto S_70359;}
S_70360:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(28182,450,"ide_export.bas");if(r)goto S_70360;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,450,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END DECLARE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,450,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,450,"ide_export.bas");}while(r);
}
S_70365:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(28182,451,"ide_export.bas");if(r)goto S_70365;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,451,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END FUNCTION",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,451,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,451,"ide_export.bas");}while(r);
}
S_70370:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(28182,452,"ide_export.bas");if(r)goto S_70370;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,452,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END IF",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,452,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,452,"ide_export.bas");}while(r);
}
S_70375:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(28182,453,"ide_export.bas");if(r)goto S_70375;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,453,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SELECT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,453,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,453,"ide_export.bas");}while(r);
}
S_70380:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(28182,454,"ide_export.bas");if(r)goto S_70380;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,454,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SUB",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,454,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,454,"ide_export.bas");}while(r);
}
S_70385:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(28182,455,"ide_export.bas");if(r)goto S_70385;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,455,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END TYPE",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,455,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,455,"ide_export.bas");}while(r);
}
sc_ec_571_end:;
sc_8162_var=-1;
}
S_70390:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(28182,456,"ide_export.bas");if(r)goto S_70390;}
S_70391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(28182,457,"ide_export.bas");if(r)goto S_70391;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,457,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT CASE",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,457,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,457,"ide_export.bas");}while(r);
}
S_70396:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(28182,458,"ide_export.bas");if(r)goto S_70396;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,458,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT DO",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,458,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,458,"ide_export.bas");}while(r);
}
S_70401:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(28182,459,"ide_export.bas");if(r)goto S_70401;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,459,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FOR",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,459,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,459,"ide_export.bas");}while(r);
}
S_70406:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(28182,460,"ide_export.bas");if(r)goto S_70406;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,460,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FUNCTION",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,460,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,460,"ide_export.bas");}while(r);
}
S_70411:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(28182,461,"ide_export.bas");if(r)goto S_70411;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,461,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SELECT",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,461,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,461,"ide_export.bas");}while(r);
}
S_70416:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(28182,462,"ide_export.bas");if(r)goto S_70416;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,462,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SUB",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,462,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,462,"ide_export.bas");}while(r);
}
S_70421:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(28182,463,"ide_export.bas");if(r)goto S_70421;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,463,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT WHILE",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,463,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,463,"ide_export.bas");}while(r);
}
sc_ec_572_end:;
sc_8162_var=-1;
}
S_70426:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("GET",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PUT",3))))||is_error_pending()){
if(qbevent){evnt(28182,464,"ide_export.bas");if(r)goto S_70426;}
S_70427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(28182,464,"ide_export.bas");if(r)goto S_70427;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (general)",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,464,"ide_export.bas");}while(r);
}
sc_ec_573_end:;
sc_8162_var=-1;
}
S_70430:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(28182,465,"ide_export.bas");if(r)goto S_70430;}
S_70431:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("LIST",4))))||is_error_pending()){
if(qbevent){evnt(28182,465,"ide_export.bas");if(r)goto S_70431;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,465,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY LIST",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,465,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,465,"ide_export.bas");}while(r);
}
sc_ec_574_end:;
sc_8162_var=-1;
}
S_70436:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
if(qbevent){evnt(28182,466,"ide_export.bas");if(r)goto S_70436;}
S_70437:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(28182,466,"ide_export.bas");if(r)goto S_70437;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,466,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT USING",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,466,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,466,"ide_export.bas");}while(r);
}
sc_ec_575_end:;
sc_8162_var=-1;
}
S_70442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE",4))))||is_error_pending()){
if(qbevent){evnt(28182,467,"ide_export.bas");if(r)goto S_70442;}
S_70443:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(28182,468,"ide_export.bas");if(r)goto S_70443;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,469,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE INPUT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,469,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,469,"ide_export.bas");}while(r);
S_70447:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_OLA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(28182,470,"ide_export.bas");if(r)goto S_70447;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,470,"ide_export.bas");}while(r);
}
}
sc_ec_576_end:;
sc_8162_var=-1;
}
S_70451:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
if(qbevent){evnt(28182,472,"ide_export.bas");if(r)goto S_70451;}
S_70452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(28182,473,"ide_export.bas");if(r)goto S_70452;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,473,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,473,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,473,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,473,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,473,"ide_export.bas");}while(r);
}
S_70459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(28182,474,"ide_export.bas");if(r)goto S_70459;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,474,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,474,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,474,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,474,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,474,"ide_export.bas");}while(r);
}
sc_ec_577_end:;
sc_8162_var=-1;
}
S_70466:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(28182,475,"ide_export.bas");if(r)goto S_70466;}
S_70467:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
if(qbevent){evnt(28182,476,"ide_export.bas");if(r)goto S_70467;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,476,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON ERROR",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,476,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,476,"ide_export.bas");}while(r);
}
S_70472:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(28182,477,"ide_export.bas");if(r)goto S_70472;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,477,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON KEY(n)",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,477,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,477,"ide_export.bas");}while(r);
}
S_70477:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("STRIG",5))))||is_error_pending()){
if(qbevent){evnt(28182,478,"ide_export.bas");if(r)goto S_70477;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,478,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON STRIG(n)",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,478,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,478,"ide_export.bas");}while(r);
}
S_70482:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("TIMER",5))))||is_error_pending()){
if(qbevent){evnt(28182,479,"ide_export.bas");if(r)goto S_70482;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,479,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON TIMER(n)",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,479,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,479,"ide_export.bas");}while(r);
}
sc_ec_578_end:;
sc_8162_var=-1;
}
S_70487:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(28182,480,"ide_export.bas");if(r)goto S_70487;}
S_70488:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(28182,480,"ide_export.bas");if(r)goto S_70488;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,480,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION BASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,480,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,480,"ide_export.bas");}while(r);
}
sc_ec_579_end:;
sc_8162_var=-1;
}
S_70493:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
if(qbevent){evnt(28182,481,"ide_export.bas");if(r)goto S_70493;}
S_70494:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(28182,481,"ide_export.bas");if(r)goto S_70494;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,481,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE USING",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,481,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,481,"ide_export.bas");}while(r);
}
sc_ec_580_end:;
sc_8162_var=-1;
}
S_70499:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(28182,482,"ide_export.bas");if(r)goto S_70499;}
S_70500:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(28182,483,"ide_export.bas");if(r)goto S_70500;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,484,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT USING",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,484,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,484,"ide_export.bas");}while(r);
S_70504:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_OLA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(28182,485,"ide_export.bas");if(r)goto S_70504;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,485,"ide_export.bas");}while(r);
}
}
sc_ec_581_end:;
sc_8162_var=-1;
}
S_70508:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE",9))))||is_error_pending()){
if(qbevent){evnt(28182,487,"ide_export.bas");if(r)goto S_70508;}
S_70509:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(28182,487,"ide_export.bas");if(r)goto S_70509;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,487,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE USING",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,487,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,487,"ide_export.bas");}while(r);
}
sc_ec_582_end:;
sc_8162_var=-1;
}
S_70514:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(28182,488,"ide_export.bas");if(r)goto S_70514;}
S_70515:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(28182,489,"ide_export.bas");if(r)goto S_70515;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,489,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,489,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,489,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,489,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,489,"ide_export.bas");}while(r);
}
S_70522:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
if(qbevent){evnt(28182,490,"ide_export.bas");if(r)goto S_70522;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,490,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,490,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ;
if(!qbevent)break;evnt(28182,490,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ;
if(!qbevent)break;evnt(28182,490,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,490,"ide_export.bas");}while(r);
}
sc_ec_583_end:;
sc_8162_var=-1;
}
S_70529:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SOUND",5))))||is_error_pending()){
if(qbevent){evnt(28182,491,"ide_export.bas");if(r)goto S_70529;}
S_70530:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("WAIT",4))))||is_error_pending()){
if(qbevent){evnt(28182,492,"ide_export.bas");if(r)goto S_70530;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,492,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,492,"ide_export.bas");}while(r);
}
S_70534:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("RESUME",6))))||is_error_pending()){
if(qbevent){evnt(28182,493,"ide_export.bas");if(r)goto S_70534;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,493,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,493,"ide_export.bas");}while(r);
}
sc_ec_584_end:;
sc_8162_var=-1;
}
S_70538:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW",4))))||is_error_pending()){
if(qbevent){evnt(28182,494,"ide_export.bas");if(r)goto S_70538;}
S_70539:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_LA),qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(28182,494,"ide_export.bas");if(r)goto S_70539;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),_SUB_EXPORTCODEAS_STRING_LA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,494,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW PRINT",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,494,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ;
if(!qbevent)break;evnt(28182,494,"ide_export.bas");}while(r);
}
sc_ec_585_end:;
sc_8162_var=-1;
}
S_70544:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(28182,495,"ide_export.bas");if(r)goto S_70544;}
S_70545:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_EXPORTCODEAS_STRING_OLA, 1 ),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(28182,495,"ide_export.bas");if(r)goto S_70545;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,495,"ide_export.bas");}while(r);
}
sc_ec_586_end:;
}
sc_8162_end:;
}
}
}
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,498,"ide_export.bas");}while(r);
LABEL_WRITELINK:;
if(qbevent){evnt(28182,500,"ide_export.bas");r=0;}
S_70551:;
if ((qbs_cleanup(qbs_tmp_base,(*_SUB_EXPORTCODEAS_INTEGER_ME&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0))))|(*_SUB_EXPORTCODEAS_INTEGER_KW&(qbs_equal(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0))))))||is_error_pending()){
if(qbevent){evnt(28182,501,"ide_export.bas");if(r)goto S_70551;}
do{
goto LABEL_UNKNOWNNOLINKNOCOLOR;
if(!qbevent)break;evnt(28182,501,"ide_export.bas");}while(r);
}
S_70554:;
if ((*_SUB_EXPORTCODEAS_INTEGER_CU)||is_error_pending()){
if(qbevent){evnt(28182,502,"ide_export.bas");if(r)goto S_70554;}
do{
goto LABEL_CUSTOMNOLINK;
if(!qbevent)break;evnt(28182,502,"ide_export.bas");}while(r);
}
do{
return_point[next_return_point++]=247;
if (next_return_point>=return_points) more_return_points();
goto LABEL_FINDWIKIPAGE;
RETURN_247:;
if(!qbevent)break;evnt(28182,503,"ide_export.bas");}while(r);
S_70558:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE&*_SUB_EXPORTCODEAS_INTEGER_CO)||is_error_pending()){
if(qbevent){evnt(28182,504,"ide_export.bas");if(r)goto S_70558;}
do{
*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ;
if(!qbevent)break;evnt(28182,504,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,504,"ide_export.bas");}while(r);
do{
return_point[next_return_point++]=248;
if (next_return_point>=return_points) more_return_points();
goto LABEL_CLOSETEXT;
RETURN_248:;
if(!qbevent)break;evnt(28182,504,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ;
if(!qbevent)break;evnt(28182,504,"ide_export.bas");}while(r);
}
S_70564:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,505,"ide_export.bas");if(r)goto S_70564;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_ME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,505,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_KW);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,505,"ide_export.bas");}while(r);
}
do{
*_SUB_EXPORTCODEAS_INTEGER_PAL=_SUB_EXPORTCODEAS_STRING_PAGE->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,506,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_LKL=_SUB_EXPORTCODEAS_STRING_LNK->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,506,"ide_export.bas");}while(r);
S_70571:;
qbs_set(sc_8165,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,507,"ide_export.bas");if(r)goto S_70571;}
S_70572:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8165,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,508,"ide_export.bas");if(r)goto S_70572;}
S_70573:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,509,"ide_export.bas");if(r)goto S_70573;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_MEC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,509,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_KWC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,509,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<a style=",9),func_chr( 34 )),qbs_new_txt_len("text-decoration: none; color: ",30)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(" href=",6)),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len(" title=",7)),func_chr( 34 )),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len(">",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("</a>",4)),1);
if(!qbevent)break;evnt(28182,510,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ;
if(!qbevent)break;evnt(28182,511,"ide_export.bas");}while(r);
sc_ec_587_end:;
goto sc_8165_end;
}
S_70580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8165,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,512,"ide_export.bas");if(r)goto S_70580;}
S_70581:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,513,"ide_export.bas");if(r)goto S_70581;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf2",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,513,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("\\cf3",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,513,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{\\field{\\*\\fldinst HYPERLINK ",29),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len("}{\\fldrslt{",11)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len("\\ul0 ",5)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}}\\cf0 ",8)),1);
if(!qbevent)break;evnt(28182,514,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ;
if(!qbevent)break;evnt(28182,515,"ide_export.bas");}while(r);
sc_ec_588_end:;
goto sc_8165_end;
}
S_70588:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8165,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,516,"ide_export.bas");if(r)goto S_70588;}
S_70589:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,518,"ide_export.bas");if(r)goto S_70589;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[32m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,518,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_add(func_chr( 27 ),qbs_new_txt_len("[34m",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,518,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 10 ,qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_LNK),func_chr( 27 )),qbs_new_txt_len("[38m",4)),1);
if(!qbevent)break;evnt(28182,519,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 10 ;
if(!qbevent)break;evnt(28182,520,"ide_export.bas");}while(r);
sc_ec_589_end:;
goto sc_8165_end;
}
S_70596:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8165,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,521,"ide_export.bas");if(r)goto S_70596;}
S_70597:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,522,"ide_export.bas");if(r)goto S_70597;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#55FF55",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,522,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("#4593D8",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,522,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 84 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[url=https://qb64phoenix.com/qb64wiki/index.php?title=",54),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("][color=",8)),_SUB_EXPORTCODEAS_STRING_LKC),qbs_new_txt_len("]",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("[/color][/url]",14)),1);
if(!qbevent)break;evnt(28182,523,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 84 ;
if(!qbevent)break;evnt(28182,524,"ide_export.bas");}while(r);
sc_ec_590_end:;
goto sc_8165_end;
}
S_70604:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8165,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,525,"ide_export.bas");if(r)goto S_70604;}
S_70605:;
if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||is_error_pending()){
if(qbevent){evnt(28182,526,"ide_export.bas");if(r)goto S_70605;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cm|",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,526,"ide_export.bas");}while(r);
}else{
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,qbs_new_txt_len("{{Cl|",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,526,"ide_export.bas");}while(r);
}
S_70610:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,_SUB_EXPORTCODEAS_STRING_LNK)))||is_error_pending()){
if(qbevent){evnt(28182,527,"ide_export.bas");if(r)goto S_70610;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1);
if(!qbevent)break;evnt(28182,528,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ;
if(!qbevent)break;evnt(28182,529,"ide_export.bas");}while(r);
}else{
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("|",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1);
if(!qbevent)break;evnt(28182,531,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ;
if(!qbevent)break;evnt(28182,532,"ide_export.bas");}while(r);
}
sc_ec_591_end:;
goto sc_8165_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,534,"ide_export.bas");}while(r);
sc_8165_end:;
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,536,"ide_export.bas");}while(r);
LABEL_CUSTOMNOLINK:;
if(qbevent){evnt(28182,538,"ide_export.bas");r=0;}
do{
*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ;
if(!qbevent)break;evnt(28182,539,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,539,"ide_export.bas");}while(r);
S_70623:;
qbs_set(sc_8167,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,540,"ide_export.bas");if(r)goto S_70623;}
S_70624:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8167,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,541,"ide_export.bas");if(r)goto S_70624;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KW,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,542,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,542,"ide_export.bas");}while(r);
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<span style=",12),func_chr( 34 )),qbs_new_txt_len("color: ",7)),_SUB_EXPORTCODEAS_STRING_MEC),qbs_new_txt_len(";",1)),func_chr( 34 )),qbs_new_txt_len(">",1)),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("</span>",7)),1);
if(!qbevent)break;evnt(28182,543,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ;
if(!qbevent)break;evnt(28182,544,"ide_export.bas");}while(r);
sc_ec_592_end:;
goto sc_8167_end;
}
S_70629:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8167,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,545,"ide_export.bas");if(r)goto S_70629;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_new_txt_len("\\cf2 ",5),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("\\cf0 ",5)),1);
if(!qbevent)break;evnt(28182,546,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
if(!qbevent)break;evnt(28182,547,"ide_export.bas");}while(r);
sc_ec_593_end:;
goto sc_8167_end;
}
S_70632:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8167,qbs_new_txt_len("disc",4))))||is_error_pending()){
if(qbevent){evnt(28182,548,"ide_export.bas");if(r)goto S_70632;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 27 ),qbs_new_txt_len("[36m",4)),_SUB_EXPORTCODEAS_STRING_KW),func_chr( 27 )),qbs_new_txt_len("[38m",4)),1);
if(!qbevent)break;evnt(28182,549,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ;
if(!qbevent)break;evnt(28182,550,"ide_export.bas");}while(r);
sc_ec_594_end:;
goto sc_8167_end;
}
S_70635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8167,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,551,"ide_export.bas");if(r)goto S_70635;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 23 ,qbs_add(qbs_add(qbs_new_txt_len("[color=#55FF55]",15),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("[/color]",8)),1);
if(!qbevent)break;evnt(28182,552,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 23 ;
if(!qbevent)break;evnt(28182,553,"ide_export.bas");}while(r);
sc_ec_595_end:;
goto sc_8167_end;
}
S_70638:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8167,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,554,"ide_export.bas");if(r)goto S_70638;}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ,qbs_add(qbs_add(qbs_new_txt_len("{{Text|",7),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("|#55FF55}}",10)),1);
if(!qbevent)break;evnt(28182,555,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ;
if(!qbevent)break;evnt(28182,556,"ide_export.bas");}while(r);
sc_ec_596_end:;
goto sc_8167_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,557,"ide_export.bas");}while(r);
sc_8167_end:;
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,559,"ide_export.bas");}while(r);
LABEL_UNKNOWNNOLINKNOCOLOR:;
if(qbevent){evnt(28182,561,"ide_export.bas");r=0;}
S_70645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,562,"ide_export.bas");if(r)goto S_70645;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("&",1),qbs_new_txt_len("&amp;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,562,"ide_export.bas");}while(r);
}
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_VERI->len,_SUB_EXPORTCODEAS_STRING_VERI,1);
if(!qbevent)break;evnt(28182,563,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_VERI->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,563,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,563,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,564,"ide_export.bas");}while(r);
LABEL_ESCAPECHAR:;
if(qbevent){evnt(28182,566,"ide_export.bas");r=0;}
S_70652:;
qbs_set(sc_8171,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,567,"ide_export.bas");if(r)goto S_70652;}
S_70653:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8171,qbs_new_txt_len("html",4))))||is_error_pending()){
if(qbevent){evnt(28182,568,"ide_export.bas");if(r)goto S_70653;}
S_70654:;
if(qbevent){evnt(28182,569,"ide_export.bas");if(r)goto S_70654;}
S_70655:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||is_error_pending()){
if(qbevent){evnt(28182,570,"ide_export.bas");if(r)goto S_70655;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&quot;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,570,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,570,"ide_export.bas");}while(r);
sc_ec_597_end:;
goto sc_8172_end;
}
S_70658:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(28182,571,"ide_export.bas");if(r)goto S_70658;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,571,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,571,"ide_export.bas");}while(r);
sc_ec_598_end:;
goto sc_8172_end;
}
S_70661:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
if(qbevent){evnt(28182,572,"ide_export.bas");if(r)goto S_70661;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,572,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,572,"ide_export.bas");}while(r);
sc_ec_599_end:;
goto sc_8172_end;
}
S_70664:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
if(qbevent){evnt(28182,573,"ide_export.bas");if(r)goto S_70664;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,573,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,573,"ide_export.bas");}while(r);
sc_ec_600_end:;
goto sc_8172_end;
}
S_70667:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(28182,574,"ide_export.bas");if(r)goto S_70667;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
if(!qbevent)break;evnt(28182,575,"ide_export.bas");}while(r);
S_70669:;
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,576,"ide_export.bas");if(r)goto S_70669;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
if(!qbevent)break;evnt(28182,576,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,FUNC_UNICODETOUTF8CHAR(_SUB_EXPORTCODEAS_LONG_UNI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,577,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,577,"ide_export.bas");}while(r);
sc_ec_601_end:;
goto sc_8172_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,578,"ide_export.bas");}while(r);
sc_8172_end:;
sc_ec_602_end:;
goto sc_8171_end;
}
S_70677:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8171,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,580,"ide_export.bas");if(r)goto S_70677;}
S_70678:;
if(qbevent){evnt(28182,581,"ide_export.bas");if(r)goto S_70678;}
S_70679:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||is_error_pending()){
if(qbevent){evnt(28182,582,"ide_export.bas");if(r)goto S_70679;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,582,"ide_export.bas");}while(r);
sc_ec_603_end:;
goto sc_8173_end;
}
S_70681:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(28182,583,"ide_export.bas");if(r)goto S_70681;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR);
if(!qbevent)break;evnt(28182,584,"ide_export.bas");}while(r);
S_70683:;
if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,585,"ide_export.bas");if(r)goto S_70683;}
do{
*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ;
if(!qbevent)break;evnt(28182,585,"ide_export.bas");}while(r);
}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("\\u",2),qbs__tostr((int32)(*_SUB_EXPORTCODEAS_LONG_UNI),NULL,0)),qbs_new_txt_len("\\'bf",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,586,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,586,"ide_export.bas");}while(r);
sc_ec_604_end:;
goto sc_8173_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,587,"ide_export.bas");}while(r);
sc_8173_end:;
sc_ec_605_end:;
goto sc_8171_end;
}
S_70691:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8171,qbs_new_txt_len("foru",4))))||is_error_pending()){
if(qbevent){evnt(28182,589,"ide_export.bas");if(r)goto S_70691;}
S_70692:;
if(qbevent){evnt(28182,590,"ide_export.bas");if(r)goto S_70692;}
S_70693:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(28182,591,"ide_export.bas");if(r)goto S_70693;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs__tostr((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,591,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,591,"ide_export.bas");}while(r);
sc_ec_606_end:;
goto sc_8174_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,592,"ide_export.bas");}while(r);
sc_8174_end:;
sc_ec_607_end:;
goto sc_8171_end;
}
S_70699:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8171,qbs_new_txt_len("wiki",4))))||is_error_pending()){
if(qbevent){evnt(28182,594,"ide_export.bas");if(r)goto S_70699;}
S_70700:;
if(qbevent){evnt(28182,595,"ide_export.bas");if(r)goto S_70700;}
S_70701:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||is_error_pending()){
if(qbevent){evnt(28182,596,"ide_export.bas");if(r)goto S_70701;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&amp;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,596,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,596,"ide_export.bas");}while(r);
sc_ec_608_end:;
goto sc_8175_end;
}
S_70704:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||is_error_pending()){
if(qbevent){evnt(28182,597,"ide_export.bas");if(r)goto S_70704;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&lt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,597,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,597,"ide_export.bas");}while(r);
sc_ec_609_end:;
goto sc_8175_end;
}
S_70707:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||is_error_pending()){
if(qbevent){evnt(28182,598,"ide_export.bas");if(r)goto S_70707;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&gt;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,598,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,598,"ide_export.bas");}while(r);
sc_ec_610_end:;
goto sc_8175_end;
}
S_70710:;
if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||is_error_pending()){
if(qbevent){evnt(28182,599,"ide_export.bas");if(r)goto S_70710;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs__tostr((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,599,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ;
if(!qbevent)break;evnt(28182,599,"ide_export.bas");}while(r);
sc_ec_611_end:;
goto sc_8175_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,600,"ide_export.bas");}while(r);
sc_8175_end:;
sc_ec_612_end:;
goto sc_8171_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,602,"ide_export.bas");}while(r);
sc_8171_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1);
if(!qbevent)break;evnt(28182,604,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,604,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,605,"ide_export.bas");}while(r);
LABEL_ENDLINEOPS:;
if(qbevent){evnt(28182,607,"ide_export.bas");r=0;}
S_70722:;
qbs_set(sc_8178,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(28182,608,"ide_export.bas");if(r)goto S_70722;}
S_70723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_8178,qbs_new_txt_len("rich",4))))||is_error_pending()){
if(qbevent){evnt(28182,609,"ide_export.bas");if(r)goto S_70723;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,609,"ide_export.bas");}while(r);
sc_ec_613_end:;
goto sc_8178_end;
}
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,610,"ide_export.bas");}while(r);
sc_8178_end:;
do{
sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
if(!qbevent)break;evnt(28182,612,"ide_export.bas");}while(r);
do{
*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,612,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,613,"ide_export.bas");}while(r);
LABEL_GETTHEMECOLORS:;
if(qbevent){evnt(28182,615,"ide_export.bas");r=0;}
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,616,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("\\red",4),qbs__tostr((int32)(func__red32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDETEXTCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,617,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,618,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDECOMMENTCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,619,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,620,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,621,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,622,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEKEYWORDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,623,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,624,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDENUMBERSCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,625,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,626,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEQUOTECOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,627,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,628,"ide_export.bas");}while(r);
do{
qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs__tostr((int32)(func__red32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len("\\green",6)),qbs__tostr((int32)(func__green32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len("\\blue",5)),qbs__tostr((int32)(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR)),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,629,"ide_export.bas");}while(r);
do{
#include "ret463.txt"
if(!qbevent)break;evnt(28182,630,"ide_export.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free463.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
