void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F){
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 "data312.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
*__LONG_IDEERROR= 6 ;
if(!qbevent)break;evnt(25769,12767,"ide_methods.bas");}while(r);
do{
sub_open(_SUB_IDESAVE_STRING_F, 4 ,NULL,NULL, 151 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12768,"ide_methods.bas");}while(r);
do{
sub_close( 151 ,1);
if(!qbevent)break;evnt(25769,12768,"ide_methods.bas");}while(r);
do{
sub_open(_SUB_IDESAVE_STRING_F, 2 ,NULL,NULL, 151 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12769,"ide_methods.bas");}while(r);
do{
*__LONG_IDEERROR= 1 ;
if(!qbevent)break;evnt(25769,12770,"ide_methods.bas");}while(r);
S_53805:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(25769,12771,"ide_methods.bas");if(r)goto S_53805;}
do{
qbs_set(_SUB_IDESAVE_STRING_LINEENDING,qbs_add(func_chr( 13 ),func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12771,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_SUB_IDESAVE_STRING_LINEENDING,func_chr( 10 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12771,"ide_methods.bas");}while(r);
}
S_53810:;
fornext_value6204= 1 ;
fornext_finalvalue6204=*__LONG_IDEN;
fornext_step6204= 1 ;
if (fornext_step6204<0) fornext_step_negative6204=1; else fornext_step_negative6204=0;
if (is_error_pending()) goto fornext_error6204;
goto fornext_entrylabel6204;
while(1){
fornext_value6204=fornext_step6204+(*_SUB_IDESAVE_LONG_I);
fornext_entrylabel6204:
*_SUB_IDESAVE_LONG_I=fornext_value6204;
if (fornext_step_negative6204){
if (fornext_value6204<fornext_finalvalue6204) break;
}else{
if (fornext_value6204>fornext_finalvalue6204) break;
}
fornext_error6204:;
if(qbevent){evnt(25769,12772,"ide_methods.bas");if(r)goto S_53810;}
do{
qbs_set(_SUB_IDESAVE_STRING_OUTFILE,qbs_add(FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I),_SUB_IDESAVE_STRING_LINEENDING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12773,"ide_methods.bas");}while(r);
do{
sub_put2( 151 ,NULL,byte_element((uint64)_SUB_IDESAVE_STRING_OUTFILE->chr,_SUB_IDESAVE_STRING_OUTFILE->len,byte_element_6205),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12774,"ide_methods.bas");}while(r);
fornext_continue_6203:;
}
fornext_exit_6203:;
do{
sub_close( 151 ,1);
if(!qbevent)break;evnt(25769,12776,"ide_methods.bas");}while(r);
do{
SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12777,"ide_methods.bas");}while(r);
do{
*__LONG_IDEUNSAVED= 0 ;
if(!qbevent)break;evnt(25769,12778,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free312.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;
}
