#line 2 "ide/ide_converters.bas"
int16 FUNC_BINARYFORMATCHECK(qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK){
#line 2 "ide/ide_converters.bas"
qbs *tqbs;
#line 2 "ide/ide_converters.bas"
ptrszint tmp_long;
#line 2 "ide/ide_converters.bas"
int32 tmp_fileno;
#line 2 "ide/ide_converters.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 2 "ide/ide_converters.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 2 "ide/ide_converters.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 2 "ide/ide_converters.bas"
#include "data502.txt"
#line 2 "ide/ide_converters.bas"
mem_lock *sf_mem_lock;
#line 2 "ide/ide_converters.bas"
new_mem_lock();
#line 2 "ide/ide_converters.bas"
sf_mem_lock=mem_lock_tmp;
#line 2 "ide/ide_converters.bas"
sf_mem_lock->type=3;
#line 2 "ide/ide_converters.bas"
libqb_check_stack();
#line 2 "ide/ide_converters.bas"
if (is_error_pending()) goto exit_subfunc;
#line 4 "ide/ide_converters.bas"
do{
#line 4 "ide/ide_converters.bas"
qbs_set(__STRING_FILE,qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK),_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK));
#line 4 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,4,"ide_converters.bas");}while(r);
#line 6 "ide/ide_converters.bas"
do{
#line 6 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_FH=func_freefile();
#line 6 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,6,"ide_converters.bas");}while(r);
#line 7 "ide/ide_converters.bas"
do{
#line 7 "ide/ide_converters.bas"
sub_open(__STRING_FILE, 2 ,NULL,NULL,*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,0);
#line 7 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 7 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,7,"ide_converters.bas");}while(r);
#line 8 "ide/ide_converters.bas"
do{
#line 8 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,func_space(func_lof(*_FUNC_BINARYFORMATCHECK_LONG_FH)));
#line 8 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 8 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,8,"ide_converters.bas");}while(r);
#line 9 "ide/ide_converters.bas"
do{
#line 9 "ide/ide_converters.bas"
sub_get2(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,_FUNC_BINARYFORMATCHECK_STRING_A,1);
#line 9 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 9 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,9,"ide_converters.bas");}while(r);
#line 10 "ide/ide_converters.bas"
S_70572:;
#line 10 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_BINARYFORMATCHECK_STRING_A,func_chr( 0 ),0)== 0 )))||is_error_pending()){
#line 10 "ide/ide_converters.bas"
if(qbevent){evnt(28819,10,"ide_converters.bas");if(r)goto S_70572;}
#line 10 "ide/ide_converters.bas"
do{
#line 10 "ide/ide_converters.bas"
sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1);
#line 10 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,10,"ide_converters.bas");}while(r);
#line 10 "ide/ide_converters.bas"
do{
#line 10 "ide/ide_converters.bas"
goto exit_subfunc;
#line 10 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,10,"ide_converters.bas");}while(r);
#line 10 "ide/ide_converters.bas"
}
#line 11 "ide/ide_converters.bas"
do{
#line 11 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,qbs_new_txt_len("",0));
#line 11 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,11,"ide_converters.bas");}while(r);
#line 12 "ide/ide_converters.bas"
do{
#line 12 "ide/ide_converters.bas"
sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_7379),1);
#line 12 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,12,"ide_converters.bas");}while(r);
#line 13 "ide/ide_converters.bas"
do{
#line 13 "ide/ide_converters.bas"
sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_7380),0);
#line 13 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,13,"ide_converters.bas");}while(r);
#line 14 "ide/ide_converters.bas"
do{
#line 14 "ide/ide_converters.bas"
sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1);
#line 14 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,14,"ide_converters.bas");}while(r);
#line 16 "ide/ide_converters.bas"
S_70580:;
#line 16 "ide/ide_converters.bas"
if(qbevent){evnt(28819,16,"ide_converters.bas");if(r)goto S_70580;}
#line 17 "ide/ide_converters.bas"
S_70581:;
#line 17 "ide/ide_converters.bas"
if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 2300 )))||is_error_pending()){
#line 17 "ide/ide_converters.bas"
if(qbevent){evnt(28819,17,"ide_converters.bas");if(r)goto S_70581;}
#line 18 "ide/ide_converters.bas"
do{
#line 18 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("VBDOS binary format not supported.",34),qbs_new_txt_len("",0));
#line 18 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,18,"ide_converters.bas");}while(r);
#line 19 "ide/ide_converters.bas"
do{
#line 19 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ;
#line 19 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,19,"ide_converters.bas");}while(r);
#line 20 "ide/ide_converters.bas"
sc_ec_485_end:;
#line 20 "ide/ide_converters.bas"
goto sc_7381_end;
#line 20 "ide/ide_converters.bas"
}
#line 20 "ide/ide_converters.bas"
S_70584:;
#line 20 "ide/ide_converters.bas"
if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 764 )))||is_error_pending()){
#line 20 "ide/ide_converters.bas"
if(qbevent){evnt(28819,20,"ide_converters.bas");if(r)goto S_70584;}
#line 21 "ide/ide_converters.bas"
do{
#line 21 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("QBX 7.1 binary format not supported.",36),qbs_new_txt_len("",0));
#line 21 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,21,"ide_converters.bas");}while(r);
#line 22 "ide/ide_converters.bas"
do{
#line 22 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ;
#line 22 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,22,"ide_converters.bas");}while(r);
#line 23 "ide/ide_converters.bas"
sc_ec_486_end:;
#line 23 "ide/ide_converters.bas"
goto sc_7381_end;
#line 23 "ide/ide_converters.bas"
}
#line 23 "ide/ide_converters.bas"
S_70587:;
#line 23 "ide/ide_converters.bas"
if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 252 )))||is_error_pending()){
#line 23 "ide/ide_converters.bas"
if(qbevent){evnt(28819,23,"ide_converters.bas");if(r)goto S_70587;}
#line 24 "ide/ide_converters.bas"
S_70588:;
#line 24 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
#line 24 "ide/ide_converters.bas"
if(qbevent){evnt(28819,24,"ide_converters.bas");if(r)goto S_70588;}
#line 25 "ide/ide_converters.bas"
do{
#line 25 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("internal\\utilities\\QB45BIN.exe",30));
#line 25 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,25,"ide_converters.bas");}while(r);
#line 26 "ide/ide_converters.bas"
}else{
#line 27 "ide/ide_converters.bas"
do{
#line 27 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("./internal/utilities/QB45BIN",28));
#line 27 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,27,"ide_converters.bas");}while(r);
#line 28 "ide/ide_converters.bas"
}
#line 29 "ide/ide_converters.bas"
S_70593:;
#line 29 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||is_error_pending()){
#line 29 "ide/ide_converters.bas"
if(qbevent){evnt(28819,29,"ide_converters.bas");if(r)goto S_70593;}
#line 30 "ide/ide_converters.bas"
do{
#line 30 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61)));
#line 30 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 30 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,30,"ide_converters.bas");}while(r);
#line 31 "ide/ide_converters.bas"
S_70595:;
#line 31 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||is_error_pending()){
#line 31 "ide/ide_converters.bas"
if(qbevent){evnt(28819,31,"ide_converters.bas");if(r)goto S_70595;}
#line 32 "ide/ide_converters.bas"
LABEL_CONVERTIT:;
#line 32 "ide/ide_converters.bas"
if(qbevent){evnt(28819,32,"ide_converters.bas");r=0;}
#line 33 "ide/ide_converters.bas"
S_70596:;
#line 33 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_FILEHASEXTENSION(__STRING_FILE)))||is_error_pending()){
#line 33 "ide/ide_converters.bas"
if(qbevent){evnt(28819,33,"ide_converters.bas");if(r)goto S_70596;}
#line 34 "ide/ide_converters.bas"
S_70597:;
#line 34 "ide/ide_converters.bas"
fornext_value7383=__STRING_FILE->len;
#line 34 "ide/ide_converters.bas"
fornext_finalvalue7383= 1 ;
#line 34 "ide/ide_converters.bas"
fornext_step7383= -1 ;
#line 34 "ide/ide_converters.bas"
if (fornext_step7383<0) fornext_step_negative7383=1; else fornext_step_negative7383=0;
#line 34 "ide/ide_converters.bas"
if (is_error_pending()) goto fornext_error7383;
#line 34 "ide/ide_converters.bas"
goto fornext_entrylabel7383;
#line 34 "ide/ide_converters.bas"
while(1){
#line 34 "ide/ide_converters.bas"
fornext_value7383=fornext_step7383+(*_FUNC_BINARYFORMATCHECK_LONG_I);
#line 34 "ide/ide_converters.bas"
fornext_entrylabel7383:
#line 34 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value7383;
#line 34 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 34 "ide/ide_converters.bas"
if (fornext_step_negative7383){
#line 34 "ide/ide_converters.bas"
if (fornext_value7383<fornext_finalvalue7383) break;
#line 34 "ide/ide_converters.bas"
}else{
#line 34 "ide/ide_converters.bas"
if (fornext_value7383>fornext_finalvalue7383) break;
#line 34 "ide/ide_converters.bas"
}
#line 34 "ide/ide_converters.bas"
fornext_error7383:;
#line 34 "ide/ide_converters.bas"
if(qbevent){evnt(28819,34,"ide_converters.bas");if(r)goto S_70597;}
#line 35 "ide/ide_converters.bas"
S_70598:;
#line 35 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I)== 46 )))||is_error_pending()){
#line 35 "ide/ide_converters.bas"
if(qbevent){evnt(28819,35,"ide_converters.bas");if(r)goto S_70598;}
#line 37 "ide/ide_converters.bas"
do{
#line 37 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(qbs_add(qbs_left(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I- 1 ),qbs_new_txt_len(" (converted)",12)),func_mid(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I,NULL,0)));
#line 37 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 37 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,37,"ide_converters.bas");}while(r);
#line 38 "ide/ide_converters.bas"
do{
#line 38 "ide/ide_converters.bas"
goto fornext_exit_7382;
#line 38 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,38,"ide_converters.bas");}while(r);
#line 39 "ide/ide_converters.bas"
}
#line 40 "ide/ide_converters.bas"
fornext_continue_7382:;
#line 40 "ide/ide_converters.bas"
}
#line 40 "ide/ide_converters.bas"
fornext_exit_7382:;
#line 41 "ide/ide_converters.bas"
}else{
#line 42 "ide/ide_converters.bas"
do{
#line 42 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(__STRING_FILE,qbs_new_txt_len(" (converted).bas",16)));
#line 42 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 42 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,42,"ide_converters.bas");}while(r);
#line 43 "ide/ide_converters.bas"
}
#line 45 "ide/ide_converters.bas"
do{
#line 45 "ide/ide_converters.bas"
qbg_screen(NULL,NULL, 3 , 0 ,NULL,12);
#line 45 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,45,"ide_converters.bas");}while(r);
#line 46 "ide/ide_converters.bas"
do{
#line 46 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass7385= 1 ));
#line 46 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,46,"ide_converters.bas");}while(r);
#line 47 "ide/ide_converters.bas"
do{
#line 47 "ide/ide_converters.bas"
SUB_CLEARSTATUSWINDOW(&(pass7386= 0 ));
#line 47 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,47,"ide_converters.bas");}while(r);
#line 48 "ide/ide_converters.bas"
do{
#line 48 "ide/ide_converters.bas"
qbg_sub_color( 15 , 1 ,NULL,NULL,3);
#line 48 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,48,"ide_converters.bas");}while(r);
#line 49 "ide/ide_converters.bas"
do{
#line 49 "ide/ide_converters.bas"
sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Converting...          ",23),NULL,0);
#line 49 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 49 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,49,"ide_converters.bas");}while(r);
#line 50 "ide/ide_converters.bas"
do{
#line 50 "ide/ide_converters.bas"
sub_pcopy( 3 , 0 );
#line 50 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,50,"ide_converters.bas");}while(r);
#line 52 "ide/ide_converters.bas"
do{
#line 52 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(__STRING_FILE)),qbs_new_txt_len(" -o ",4)),FUNC_QUOTEDFILENAME(_FUNC_BINARYFORMATCHECK_STRING_OFILE)));
#line 52 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 52 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,52,"ide_converters.bas");}while(r);
#line 53 "ide/ide_converters.bas"
do{
#line 53 "ide/ide_converters.bas"
sub_shell2(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,2);
#line 53 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 53 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,53,"ide_converters.bas");}while(r);
#line 55 "ide/ide_converters.bas"
do{
#line 55 "ide/ide_converters.bas"
SUB_CLEARSTATUSWINDOW(&(pass7387= 0 ));
#line 55 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,55,"ide_converters.bas");}while(r);
#line 56 "ide/ide_converters.bas"
do{
#line 56 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass7388= 0 ));
#line 56 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,56,"ide_converters.bas");}while(r);
#line 57 "ide/ide_converters.bas"
do{
#line 57 "ide/ide_converters.bas"
sub_pcopy( 3 , 0 );
#line 57 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,57,"ide_converters.bas");}while(r);
#line 59 "ide/ide_converters.bas"
S_70617:;
#line 59 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_OFILE)== 0 )))||is_error_pending()){
#line 59 "ide/ide_converters.bas"
if(qbevent){evnt(28819,59,"ide_converters.bas");if(r)goto S_70617;}
#line 60 "ide/ide_converters.bas"
do{
#line 60 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion failed.",18),qbs_new_txt_len("",0));
#line 60 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 60 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,60,"ide_converters.bas");}while(r);
#line 61 "ide/ide_converters.bas"
do{
#line 61 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 2 ;
#line 61 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,61,"ide_converters.bas");}while(r);
#line 62 "ide/ide_converters.bas"
}else{
#line 63 "ide/ide_converters.bas"
do{
#line 63 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,FUNC_GETFILEPATH(_FUNC_BINARYFORMATCHECK_STRING_OFILE));
#line 63 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 63 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,63,"ide_converters.bas");}while(r);
#line 64 "ide/ide_converters.bas"
S_70622:;
#line 64 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len))||is_error_pending()){
#line 64 "ide/ide_converters.bas"
if(qbevent){evnt(28819,64,"ide_converters.bas");if(r)goto S_70622;}
#line 65 "ide/ide_converters.bas"
do{
#line 65 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,func_mid(_FUNC_BINARYFORMATCHECK_STRING_OFILE,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len+ 1 ,NULL,0));
#line 65 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 65 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,65,"ide_converters.bas");}while(r);
#line 66 "ide/ide_converters.bas"
do{
#line 66 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs_left(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len- 1 ));
#line 66 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 66 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,66,"ide_converters.bas");}while(r);
#line 67 "ide/ide_converters.bas"
}else{
#line 68 "ide/ide_converters.bas"
do{
#line 68 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,_FUNC_BINARYFORMATCHECK_STRING_OFILE);
#line 68 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 68 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,68,"ide_converters.bas");}while(r);
#line 69 "ide/ide_converters.bas"
}
#line 70 "ide/ide_converters.bas"
}
#line 71 "ide/ide_converters.bas"
}else{
#line 72 "ide/ide_converters.bas"
do{
#line 72 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ;
#line 72 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,72,"ide_converters.bas");}while(r);
#line 73 "ide/ide_converters.bas"
}
#line 74 "ide/ide_converters.bas"
}else{
#line 75 "ide/ide_converters.bas"
S_70633:;
#line 75 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("internal/support/converter/QB45BIN.bas",38))== 0 )))||is_error_pending()){
#line 75 "ide/ide_converters.bas"
if(qbevent){evnt(28819,75,"ide_converters.bas");if(r)goto S_70633;}
#line 76 "ide/ide_converters.bas"
do{
#line 76 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.",71),qbs_new_txt_len("",0));
#line 76 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 76 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,76,"ide_converters.bas");}while(r);
#line 77 "ide/ide_converters.bas"
do{
#line 77 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ;
#line 77 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,77,"ide_converters.bas");}while(r);
#line 78 "ide/ide_converters.bas"
do{
#line 78 "ide/ide_converters.bas"
goto exit_subfunc;
#line 78 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,78,"ide_converters.bas");}while(r);
#line 79 "ide/ide_converters.bas"
}
#line 80 "ide/ide_converters.bas"
do{
#line 80 "ide/ide_converters.bas"
qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61)));
#line 80 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 80 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,80,"ide_converters.bas");}while(r);
#line 81 "ide/ide_converters.bas"
S_70639:;
#line 81 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||is_error_pending()){
#line 81 "ide/ide_converters.bas"
if(qbevent){evnt(28819,81,"ide_converters.bas");if(r)goto S_70639;}
#line 83 "ide/ide_converters.bas"
S_70640:;
#line 83 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("./internal/utilities",20))== 0 )))||is_error_pending()){
#line 83 "ide/ide_converters.bas"
if(qbevent){evnt(28819,83,"ide_converters.bas");if(r)goto S_70640;}
#line 83 "ide/ide_converters.bas"
do{
#line 83 "ide/ide_converters.bas"
sub_mkdir(qbs_new_txt_len("./internal/utilities",20));
#line 83 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 83 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,83,"ide_converters.bas");}while(r);
#line 83 "ide/ide_converters.bas"
}
#line 84 "ide/ide_converters.bas"
do{
#line 84 "ide/ide_converters.bas"
sub_pcopy( 3 , 0 );
#line 84 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,84,"ide_converters.bas");}while(r);
#line 85 "ide/ide_converters.bas"
do{
#line 85 "ide/ide_converters.bas"
qbg_screen(NULL,NULL, 3 , 0 ,NULL,12);
#line 85 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,85,"ide_converters.bas");}while(r);
#line 86 "ide/ide_converters.bas"
do{
#line 86 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass7392= 1 ));
#line 86 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,86,"ide_converters.bas");}while(r);
#line 87 "ide/ide_converters.bas"
do{
#line 87 "ide/ide_converters.bas"
SUB_CLEARSTATUSWINDOW(&(pass7393= 0 ));
#line 87 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,87,"ide_converters.bas");}while(r);
#line 88 "ide/ide_converters.bas"
do{
#line 88 "ide/ide_converters.bas"
qbg_sub_color( 15 , 1 ,NULL,NULL,3);
#line 88 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,88,"ide_converters.bas");}while(r);
#line 89 "ide/ide_converters.bas"
do{
#line 89 "ide/ide_converters.bas"
sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Preparing to convert...",23),NULL,0);
#line 89 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 89 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,89,"ide_converters.bas");}while(r);
#line 90 "ide/ide_converters.bas"
do{
#line 90 "ide/ide_converters.bas"
sub_pcopy( 3 , 0 );
#line 90 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,90,"ide_converters.bas");}while(r);
#line 91 "ide/ide_converters.bas"
S_70650:;
#line 91 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
#line 91 "ide/ide_converters.bas"
if(qbevent){evnt(28819,91,"ide_converters.bas");if(r)goto S_70650;}
#line 92 "ide/ide_converters.bas"
do{
#line 92 "ide/ide_converters.bas"
sub_shell2(qbs_new_txt_len("qb64pe -x internal/support/converter/QB45BIN.bas -o internal/utilities/QB45BIN",78),2);
#line 92 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 92 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,92,"ide_converters.bas");}while(r);
#line 93 "ide/ide_converters.bas"
}else{
#line 94 "ide/ide_converters.bas"
do{
#line 94 "ide/ide_converters.bas"
sub_shell2(qbs_new_txt_len("./qb64pe -x ./internal/support/converter/QB45BIN.bas -o ./internal/utilities/QB45BIN",84),2);
#line 94 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 94 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,94,"ide_converters.bas");}while(r);
#line 95 "ide/ide_converters.bas"
}
#line 96 "ide/ide_converters.bas"
S_70655:;
#line 96 "ide/ide_converters.bas"
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||is_error_pending()){
#line 96 "ide/ide_converters.bas"
if(qbevent){evnt(28819,96,"ide_converters.bas");if(r)goto S_70655;}
#line 96 "ide/ide_converters.bas"
do{
#line 96 "ide/ide_converters.bas"
goto LABEL_CONVERTIT;
#line 96 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,96,"ide_converters.bas");}while(r);
#line 96 "ide/ide_converters.bas"
}
#line 97 "ide/ide_converters.bas"
do{
#line 97 "ide/ide_converters.bas"
SUB_CLEARSTATUSWINDOW(&(pass7394= 0 ));
#line 97 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,97,"ide_converters.bas");}while(r);
#line 98 "ide/ide_converters.bas"
do{
#line 98 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass7395= 0 ));
#line 98 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,98,"ide_converters.bas");}while(r);
#line 99 "ide/ide_converters.bas"
do{
#line 99 "ide/ide_converters.bas"
sub_pcopy( 3 , 0 );
#line 99 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,99,"ide_converters.bas");}while(r);
#line 100 "ide/ide_converters.bas"
do{
#line 100 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Error launching conversion utility.",35),qbs_new_txt_len("",0));
#line 100 "ide/ide_converters.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 100 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,100,"ide_converters.bas");}while(r);
#line 101 "ide/ide_converters.bas"
}
#line 102 "ide/ide_converters.bas"
do{
#line 102 "ide/ide_converters.bas"
*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ;
#line 102 "ide/ide_converters.bas"
if(!qbevent)break;evnt(28819,102,"ide_converters.bas");}while(r);
#line 103 "ide/ide_converters.bas"
}
#line 104 "ide/ide_converters.bas"
sc_ec_487_end:;
#line 104 "ide/ide_converters.bas"
goto sc_7381_end;
#line 104 "ide/ide_converters.bas"
}
#line 104 "ide/ide_converters.bas"
sc_7381_end:;
#line 105 "ide/ide_converters.bas"
exit_subfunc:;
#line 105 "ide/ide_converters.bas"
free_mem_lock(sf_mem_lock);
#line 105 "ide/ide_converters.bas"
#include "free502.txt"
#line 105 "ide/ide_converters.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 105 "ide/ide_converters.bas"
cmem_sp=tmp_cmem_sp;
#line 105 "ide/ide_converters.bas"
return *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK;
#line 105 "ide/ide_converters.bas"
}
