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 "data289.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(24235,11952,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2;
if(!qbevent)break;evnt(24235,11952,"ide_methods.bas");}while(r);
do{
qbg_sub_color( 0 , 7 ,NULL,3);
if(!qbevent)break;evnt(24235,11970,"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(24235,11971,"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(24235,11972,"ide_methods.bas");}while(r);
S_51286:;
fornext_value5845=*_FUNC_IDEHBAR_LONG_X+ 1 ;
fornext_finalvalue5845=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ;
fornext_step5845= 1 ;
if (fornext_step5845<0) fornext_step_negative5845=1; else fornext_step_negative5845=0;
if (is_error_pending()) goto fornext_error5845;
goto fornext_entrylabel5845;
while(1){
fornext_value5845=fornext_step5845+(*_FUNC_IDEHBAR_LONG_X2);
fornext_entrylabel5845:
*_FUNC_IDEHBAR_LONG_X2=fornext_value5845;
if (fornext_step_negative5845){
if (fornext_value5845<fornext_finalvalue5845) break;
}else{
if (fornext_value5845>fornext_finalvalue5845) break;
}
fornext_error5845:;
if(qbevent){evnt(24235,11973,"ide_methods.bas");if(r)goto S_51286;}
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(24235,11974,"ide_methods.bas");}while(r);
fornext_continue_5844:;
}
fornext_exit_5844:;
S_51289:;
if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||is_error_pending()){
if(qbevent){evnt(24235,11979,"ide_methods.bas");if(r)goto S_51289;}
do{
*_FUNC_IDEHBAR_LONG_N= 1 ;
if(!qbevent)break;evnt(24235,11979,"ide_methods.bas");}while(r);
}
S_51292:;
if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||is_error_pending()){
if(qbevent){evnt(24235,11980,"ide_methods.bas");if(r)goto S_51292;}
do{
*_FUNC_IDEHBAR_LONG_I= 1 ;
if(!qbevent)break;evnt(24235,11980,"ide_methods.bas");}while(r);
}
S_51295:;
if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(24235,11981,"ide_methods.bas");if(r)goto S_51295;}
do{
*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N;
if(!qbevent)break;evnt(24235,11981,"ide_methods.bas");}while(r);
}
S_51298:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||is_error_pending()){
if(qbevent){evnt(24235,11983,"ide_methods.bas");if(r)goto S_51298;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X;
if(!qbevent)break;evnt(24235,11984,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,11985,"ide_methods.bas");}while(r);
}
S_51302:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||is_error_pending()){
if(qbevent){evnt(24235,11988,"ide_methods.bas");if(r)goto S_51302;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(24235,11989,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,11991,"ide_methods.bas");}while(r);
}
S_51306:;
if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||is_error_pending()){
if(qbevent){evnt(24235,11994,"ide_methods.bas");if(r)goto S_51306;}
S_51307:;
if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,11995,"ide_methods.bas");if(r)goto S_51307;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(24235,11996,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,11998,"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(24235,12001,"ide_methods.bas");}while(r);
S_51312:;
if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||is_error_pending()){
if(qbevent){evnt(24235,12002,"ide_methods.bas");if(r)goto S_51312;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(24235,12002,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ;
if(!qbevent)break;evnt(24235,12002,"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(24235,12003,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(24235,12004,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,12005,"ide_methods.bas");}while(r);
}
}
S_51322:;
if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||is_error_pending()){
if(qbevent){evnt(24235,12009,"ide_methods.bas");if(r)goto S_51322;}
S_51323:;
if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,12010,"ide_methods.bas");if(r)goto S_51323;}
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/  4 );
if(!qbevent)break;evnt(24235,12011,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,12013,"ide_methods.bas");}while(r);
}
S_51327:;
if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,12015,"ide_methods.bas");if(r)goto S_51327;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ;
if(!qbevent)break;evnt(24235,12016,"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(24235,12017,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(24235,12018,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,12019,"ide_methods.bas");}while(r);
}
S_51333:;
if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(24235,12021,"ide_methods.bas");if(r)goto S_51333;}
do{
*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ;
if(!qbevent)break;evnt(24235,12022,"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(24235,12023,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(24235,12024,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,12025,"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(24235,12028,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 );
if(!qbevent)break;evnt(24235,12029,"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(24235,12030,"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(24235,12031,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2;
if(!qbevent)break;evnt(24235,12032,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,12033,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free289.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;
}
