int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2){
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 "data300.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{
*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2;
if(!qbevent)break;evnt(25769,11953,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2;
if(!qbevent)break;evnt(25769,11953,"ide_methods.bas");}while(r);
do{
qbg_sub_color( 0 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(25769,11971,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X,*_FUNC_IDEHBAR_LONG_Y,func_chr( 27 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,11972,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 1 ,*_FUNC_IDEHBAR_LONG_Y,func_chr( 26 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,11973,"ide_methods.bas");}while(r);
S_52951:;
fornext_value6113=*_FUNC_IDEHBAR_LONG_X+ 1 ;
fornext_finalvalue6113=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ;
fornext_step6113= 1 ;
if (fornext_step6113<0) fornext_step_negative6113=1; else fornext_step_negative6113=0;
if (is_error_pending()) goto fornext_error6113;
goto fornext_entrylabel6113;
while(1){
fornext_value6113=fornext_step6113+(*_FUNC_IDEHBAR_LONG_X2);
fornext_entrylabel6113:
*_FUNC_IDEHBAR_LONG_X2=fornext_value6113;
if (fornext_step_negative6113){
if (fornext_value6113<fornext_finalvalue6113) break;
}else{
if (fornext_value6113>fornext_finalvalue6113) break;
}
fornext_error6113:;
if(qbevent){evnt(25769,11974,"ide_methods.bas");if(r)goto S_52951;}
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 176 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,11975,"ide_methods.bas");}while(r);
fornext_continue_6112:;
}
fornext_exit_6112:;
S_52954:;
if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||is_error_pending()){
if(qbevent){evnt(25769,11980,"ide_methods.bas");if(r)goto S_52954;}
do{
*_FUNC_IDEHBAR_LONG_N= 1 ;
if(!qbevent)break;evnt(25769,11980,"ide_methods.bas");}while(r);
}
S_52957:;
if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||is_error_pending()){
if(qbevent){evnt(25769,11981,"ide_methods.bas");if(r)goto S_52957;}
do{
*_FUNC_IDEHBAR_LONG_I= 1 ;
if(!qbevent)break;evnt(25769,11981,"ide_methods.bas");}while(r);
}
S_52960:;
if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(25769,11982,"ide_methods.bas");if(r)goto S_52960;}
do{
*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N;
if(!qbevent)break;evnt(25769,11982,"ide_methods.bas");}while(r);
}
S_52963:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||is_error_pending()){
if(qbevent){evnt(25769,11984,"ide_methods.bas");if(r)goto S_52963;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X;
if(!qbevent)break;evnt(25769,11985,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,11986,"ide_methods.bas");}while(r);
}
S_52967:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||is_error_pending()){
if(qbevent){evnt(25769,11989,"ide_methods.bas");if(r)goto S_52967;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,11990,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,11992,"ide_methods.bas");}while(r);
}
S_52971:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||is_error_pending()){
if(qbevent){evnt(25769,11995,"ide_methods.bas");if(r)goto S_52971;}
S_52972:;
if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,11996,"ide_methods.bas");if(r)goto S_52972;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,11997,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,11999,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 )));
if(!qbevent)break;evnt(25769,12002,"ide_methods.bas");}while(r);
S_52977:;
if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||is_error_pending()){
if(qbevent){evnt(25769,12003,"ide_methods.bas");if(r)goto S_52977;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,12003,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ;
if(!qbevent)break;evnt(25769,12003,"ide_methods.bas");}while(r);
}
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12004,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(25769,12005,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,12006,"ide_methods.bas");}while(r);
}
}
S_52987:;
if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||is_error_pending()){
if(qbevent){evnt(25769,12010,"ide_methods.bas");if(r)goto S_52987;}
S_52988:;
if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,12011,"ide_methods.bas");if(r)goto S_52988;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/  4 );
if(!qbevent)break;evnt(25769,12012,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,12014,"ide_methods.bas");}while(r);
}
S_52992:;
if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,12016,"ide_methods.bas");if(r)goto S_52992;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,12017,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12018,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(25769,12019,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,12020,"ide_methods.bas");}while(r);
}
S_52998:;
if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(25769,12022,"ide_methods.bas");if(r)goto S_52998;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ;
if(!qbevent)break;evnt(25769,12023,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12024,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(25769,12025,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,12026,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 )));
if(!qbevent)break;evnt(25769,12029,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 );
if(!qbevent)break;evnt(25769,12030,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_X2=qbr(*_FUNC_IDEHBAR_LONG_X+ 2 +std::floor(*_FUNC_IDEHBAR_SINGLE_P));
if(!qbevent)break;evnt(25769,12031,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,12032,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(25769,12033,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,12034,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free300.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;
return *_FUNC_IDEHBAR_LONG_IDEHBAR;
}
