int32 FUNC_IDEVBAR(int32*_FUNC_IDEVBAR_LONG_X,int32*_FUNC_IDEVBAR_LONG_Y,int32*_FUNC_IDEVBAR_LONG_H,int32*_FUNC_IDEVBAR_LONG_I2,int32*_FUNC_IDEVBAR_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 "data310.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_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_I2;
if(!qbevent)break;evnt(24235,14921,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_N=*_FUNC_IDEVBAR_LONG_N2;
if(!qbevent)break;evnt(24235,14921,"ide_methods.bas");}while(r);
do{
qbg_sub_color( 0 , 7 ,NULL,3);
if(!qbevent)break;evnt(24235,14926,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y,func_chr( 24 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14927,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 1 ,func_chr( 25 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14928,"ide_methods.bas");}while(r);
S_54452:;
fornext_value6203=*_FUNC_IDEVBAR_LONG_Y+ 1 ;
fornext_finalvalue6203=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ;
fornext_step6203= 1 ;
if (fornext_step6203<0) fornext_step_negative6203=1; else fornext_step_negative6203=0;
if (is_error_pending()) goto fornext_error6203;
goto fornext_entrylabel6203;
while(1){
fornext_value6203=fornext_step6203+(*_FUNC_IDEVBAR_LONG_Y2);
fornext_entrylabel6203:
*_FUNC_IDEVBAR_LONG_Y2=fornext_value6203;
if (fornext_step_negative6203){
if (fornext_value6203<fornext_finalvalue6203) break;
}else{
if (fornext_value6203>fornext_finalvalue6203) break;
}
fornext_error6203:;
if(qbevent){evnt(24235,14929,"ide_methods.bas");if(r)goto S_54452;}
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 176 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14930,"ide_methods.bas");}while(r);
fornext_continue_6202:;
}
fornext_exit_6202:;
S_54455:;
if ((-(*_FUNC_IDEVBAR_LONG_N< 1 ))||is_error_pending()){
if(qbevent){evnt(24235,14935,"ide_methods.bas");if(r)goto S_54455;}
do{
*_FUNC_IDEVBAR_LONG_N= 1 ;
if(!qbevent)break;evnt(24235,14935,"ide_methods.bas");}while(r);
}
S_54458:;
if ((-(*_FUNC_IDEVBAR_LONG_I< 1 ))||is_error_pending()){
if(qbevent){evnt(24235,14936,"ide_methods.bas");if(r)goto S_54458;}
do{
*_FUNC_IDEVBAR_LONG_I= 1 ;
if(!qbevent)break;evnt(24235,14936,"ide_methods.bas");}while(r);
}
S_54461:;
if ((-(*_FUNC_IDEVBAR_LONG_I>*_FUNC_IDEVBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(24235,14937,"ide_methods.bas");if(r)goto S_54461;}
do{
*_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_N;
if(!qbevent)break;evnt(24235,14937,"ide_methods.bas");}while(r);
}
S_54464:;
if ((-(*_FUNC_IDEVBAR_LONG_H== 2 ))||is_error_pending()){
if(qbevent){evnt(24235,14939,"ide_methods.bas");if(r)goto S_54464;}
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y;
if(!qbevent)break;evnt(24235,14940,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14941,"ide_methods.bas");}while(r);
}
S_54468:;
if ((-(*_FUNC_IDEVBAR_LONG_H== 3 ))||is_error_pending()){
if(qbevent){evnt(24235,14944,"ide_methods.bas");if(r)goto S_54468;}
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ;
if(!qbevent)break;evnt(24235,14945,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14947,"ide_methods.bas");}while(r);
}
S_54472:;
if ((-(*_FUNC_IDEVBAR_LONG_H== 4 ))||is_error_pending()){
if(qbevent){evnt(24235,14950,"ide_methods.bas");if(r)goto S_54472;}
S_54473:;
if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,14951,"ide_methods.bas");if(r)goto S_54473;}
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ;
if(!qbevent)break;evnt(24235,14952,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14954,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 )));
if(!qbevent)break;evnt(24235,14957,"ide_methods.bas");}while(r);
S_54478:;
if ((-(((float)(*_FUNC_IDEVBAR_SINGLE_P))<((float)( 0.5E+0 ))))||is_error_pending()){
if(qbevent){evnt(24235,14958,"ide_methods.bas");if(r)goto S_54478;}
do{
*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ;
if(!qbevent)break;evnt(24235,14958,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 2 ;
if(!qbevent)break;evnt(24235,14958,"ide_methods.bas");}while(r);
}
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14959,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2;
if(!qbevent)break;evnt(24235,14960,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14961,"ide_methods.bas");}while(r);
}
}
S_54488:;
if ((-(*_FUNC_IDEVBAR_LONG_H> 4 ))||is_error_pending()){
if(qbevent){evnt(24235,14965,"ide_methods.bas");if(r)goto S_54488;}
S_54489:;
if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,14966,"ide_methods.bas");if(r)goto S_54489;}
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+(*_FUNC_IDEVBAR_LONG_H/  4 );
if(!qbevent)break;evnt(24235,14967,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14969,"ide_methods.bas");}while(r);
}
S_54493:;
if ((-(*_FUNC_IDEVBAR_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,14971,"ide_methods.bas");if(r)goto S_54493;}
do{
*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ;
if(!qbevent)break;evnt(24235,14972,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14973,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2;
if(!qbevent)break;evnt(24235,14974,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14975,"ide_methods.bas");}while(r);
}
S_54499:;
if ((-(*_FUNC_IDEVBAR_LONG_I==*_FUNC_IDEVBAR_LONG_N))||is_error_pending()){
if(qbevent){evnt(24235,14977,"ide_methods.bas");if(r)goto S_54499;}
do{
*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ;
if(!qbevent)break;evnt(24235,14978,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14979,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2;
if(!qbevent)break;evnt(24235,14980,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14981,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 )));
if(!qbevent)break;evnt(24235,14984,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_SINGLE_P=*_FUNC_IDEVBAR_SINGLE_P*(*_FUNC_IDEVBAR_LONG_H- 4 );
if(!qbevent)break;evnt(24235,14985,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_Y2=qbr(*_FUNC_IDEVBAR_LONG_Y+ 2 +std::floor(*_FUNC_IDEVBAR_SINGLE_P));
if(!qbevent)break;evnt(24235,14986,"ide_methods.bas");}while(r);
do{
sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,14987,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2;
if(!qbevent)break;evnt(24235,14988,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,14989,"ide_methods.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free310.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_IDEVBAR_LONG_IDEVBAR;
}
