#line 16826 "ide/ide_methods.bas"
int32 FUNC_IDETERMINALBOX(){
#line 16826 "ide/ide_methods.bas"
qbs *tqbs;
#line 16826 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 16826 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 16826 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 16826 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 16826 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 16826 "ide/ide_methods.bas"
#include "data440.txt"
#line 16826 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 16826 "ide/ide_methods.bas"
new_mem_lock();
#line 16826 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 16826 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 16826 "ide/ide_methods.bas"
libqb_check_stack();
#line 16826 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 16829 "ide/ide_methods.bas"
do{
#line 16829 "ide/ide_methods.bas"
sub_pcopy( 0 , 2 );
#line 16829 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16829,"ide_methods.bas");}while(r);
#line 16830 "ide/ide_methods.bas"
do{
#line 16830 "ide/ide_methods.bas"
sub_pcopy( 0 , 1 );
#line 16830 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16830,"ide_methods.bas");}while(r);
#line 16831 "ide/ide_methods.bas"
do{
#line 16831 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 16831 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16831,"ide_methods.bas");}while(r);
#line 16832 "ide/ide_methods.bas"
do{
#line 16832 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUS= 1 ;
#line 16832 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16832,"ide_methods.bas");}while(r);
#line 16833 "ide/ide_methods.bas"
do{
#line 16833 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16833,"ide_methods.bas");}while(r);
#line 16834 "ide/ide_methods.bas"
do{
if (_FUNC_IDETERMINALBOX_ARRAY_UDT_O[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_IDETERMINALBOX_ARRAY_UDT_O[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(101);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_IDETERMINALBOX_ARRAY_UDT_O[2]&4){
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0]) error(257);
memset((void*)(_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[2]|=1;
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4]=alloc_new_desc[4];
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]=alloc_new_desc[5];
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[6]=alloc_new_desc[6];
_FUNC_IDETERMINALBOX_ARRAY_UDT_O[7]=alloc_new_desc[7];
}
}
#line 16834 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16834,"ide_methods.bas");}while(r);
#line 16835 "ide/ide_methods.bas"
do{
#line 16835 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16835,"ide_methods.bas");}while(r);
#line 16836 "ide/ide_methods.bas"
do{
#line 16836 "ide/ide_methods.bas"
qbs_set(_FUNC_IDETERMINALBOX_STRING1_SEP,func_chr( 0 ));
#line 16836 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16836 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16836,"ide_methods.bas");}while(r);
#line 16840 "ide/ide_methods.bas"
do{
#line 16840 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I= 0 ;
#line 16840 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16840,"ide_methods.bas");}while(r);
#line 16841 "ide/ide_methods.bas"
do{
#line 16841 "ide/ide_methods.bas"
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDETERMINALBOX_UDT_P)) + ((0+0)) ),&(pass6574= 60 ),&(pass6575= 7 ),qbs_new_txt_len("Default Terminal",16));
#line 16841 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16841 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16841,"ide_methods.bas");}while(r);
#line 16843 "ide/ide_methods.bas"
do{
#line 16843 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I=*_FUNC_IDETERMINALBOX_LONG_I+ 1 ;
#line 16843 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16843,"ide_methods.bas");}while(r);
#line 16843 "ide/ide_methods.bas"
do{
#line 16843 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_DTTBOX=*_FUNC_IDETERMINALBOX_LONG_I;
#line 16843 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16843,"ide_methods.bas");}while(r);
#line 16844 "ide/ide_methods.bas"
do{
#line 16844 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+36)))= 1 ;
#line 16844 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16844,"ide_methods.bas");}while(r);
#line 16845 "ide/ide_methods.bas"
do{
#line 16845 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+24)))= 2 ;
#line 16845 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16845,"ide_methods.bas");}while(r);
#line 16846 "ide/ide_methods.bas"
do{
#line 16846 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("Terminal Command",16));
#line 16846 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16846,"ide_methods.bas");}while(r);
#line 16846 "ide/ide_methods.bas"
do{
#line 16846 "ide/ide_methods.bas"
qbs_set(_FUNC_IDETERMINALBOX_STRING_A2,__STRING_DEFAULTTERMINAL);
#line 16846 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16846 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16846,"ide_methods.bas");}while(r);
#line 16847 "ide/ide_methods.bas"
do{
#line 16847 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDETERMINALBOX_STRING_A2);
#line 16847 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16847,"ide_methods.bas");}while(r);
#line 16847 "ide/ide_methods.bas"
do{
#line 16847 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+93)))=_FUNC_IDETERMINALBOX_STRING_A2->len;
#line 16847 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16847,"ide_methods.bas");}while(r);
#line 16849 "ide/ide_methods.bas"
do{
#line 16849 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I=*_FUNC_IDETERMINALBOX_LONG_I+ 1 ;
#line 16849 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16849,"ide_methods.bas");}while(r);
#line 16849 "ide/ide_methods.bas"
do{
#line 16849 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_OKBUT=*_FUNC_IDETERMINALBOX_LONG_I;
#line 16849 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16849,"ide_methods.bas");}while(r);
#line 16849 "ide/ide_methods.bas"
do{
#line 16849 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CABUT=*_FUNC_IDETERMINALBOX_LONG_I+ 1 ;
#line 16849 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16849,"ide_methods.bas");}while(r);
#line 16850 "ide/ide_methods.bas"
do{
#line 16850 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+36)))= 3 ;
#line 16850 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16850,"ide_methods.bas");}while(r);
#line 16851 "ide/ide_methods.bas"
do{
#line 16851 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+24)))= 7 ;
#line 16851 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16851,"ide_methods.bas");}while(r);
#line 16852 "ide/ide_methods.bas"
do{
#line 16852 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDETERMINALBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)));
#line 16852 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16852,"ide_methods.bas");}while(r);
#line 16852 "ide/ide_methods.bas"
do{
#line 16852 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+60)))= 1 ;
#line 16852 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16852,"ide_methods.bas");}while(r);
#line 16856 "ide/ide_methods.bas"
S_63548:;
#line 16856 "ide/ide_methods.bas"
fornext_value6578= 1 ;
#line 16856 "ide/ide_methods.bas"
fornext_finalvalue6578= 100 ;
#line 16856 "ide/ide_methods.bas"
fornext_step6578= 1 ;
#line 16856 "ide/ide_methods.bas"
if (fornext_step6578<0) fornext_step_negative6578=1; else fornext_step_negative6578=0;
#line 16856 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6578;
#line 16856 "ide/ide_methods.bas"
goto fornext_entrylabel6578;
#line 16856 "ide/ide_methods.bas"
while(1){
#line 16856 "ide/ide_methods.bas"
fornext_value6578=fornext_step6578+(*_FUNC_IDETERMINALBOX_LONG_I);
#line 16856 "ide/ide_methods.bas"
fornext_entrylabel6578:
#line 16856 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I=fornext_value6578;
#line 16856 "ide/ide_methods.bas"
if (fornext_step_negative6578){
#line 16856 "ide/ide_methods.bas"
if (fornext_value6578<fornext_finalvalue6578) break;
#line 16856 "ide/ide_methods.bas"
}else{
#line 16856 "ide/ide_methods.bas"
if (fornext_value6578>fornext_finalvalue6578) break;
#line 16856 "ide/ide_methods.bas"
}
#line 16856 "ide/ide_methods.bas"
fornext_error6578:;
#line 16856 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16856,"ide_methods.bas");if(r)goto S_63548;}
#line 16856 "ide/ide_methods.bas"
do{
#line 16856 "ide/ide_methods.bas"
memcpy((((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+0))+(0)),(((char*)_FUNC_IDETERMINALBOX_UDT_P)+((0+0))+(0)),20);
#line 16856 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16856,"ide_methods.bas");}while(r);
#line 16856 "ide/ide_methods.bas"
fornext_continue_6577:;
#line 16856 "ide/ide_methods.bas"
}
#line 16856 "ide/ide_methods.bas"
fornext_exit_6577:;
#line 16862 "ide/ide_methods.bas"
S_63551:;
#line 16862 "ide/ide_methods.bas"
do{
#line 16862 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16862,"ide_methods.bas");if(r)goto S_63551;}
#line 16865 "ide/ide_methods.bas"
do{
#line 16865 "ide/ide_methods.bas"
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDETERMINALBOX_UDT_P)) + ((0+0)) ));
#line 16865 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16865,"ide_methods.bas");}while(r);
#line 16866 "ide/ide_methods.bas"
do{
#line 16866 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_F= 1 ;
#line 16866 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16866,"ide_methods.bas");}while(r);
#line 16866 "ide/ide_methods.bas"
do{
#line 16866 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CX= 0 ;
#line 16866 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16866,"ide_methods.bas");}while(r);
#line 16866 "ide/ide_methods.bas"
do{
#line 16866 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CY= 0 ;
#line 16866 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16866,"ide_methods.bas");}while(r);
#line 16867 "ide/ide_methods.bas"
S_63556:;
#line 16867 "ide/ide_methods.bas"
fornext_value6581= 1 ;
#line 16867 "ide/ide_methods.bas"
fornext_finalvalue6581= 100 ;
#line 16867 "ide/ide_methods.bas"
fornext_step6581= 1 ;
#line 16867 "ide/ide_methods.bas"
if (fornext_step6581<0) fornext_step_negative6581=1; else fornext_step_negative6581=0;
#line 16867 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6581;
#line 16867 "ide/ide_methods.bas"
goto fornext_entrylabel6581;
#line 16867 "ide/ide_methods.bas"
while(1){
#line 16867 "ide/ide_methods.bas"
fornext_value6581=fornext_step6581+(*_FUNC_IDETERMINALBOX_LONG_I);
#line 16867 "ide/ide_methods.bas"
fornext_entrylabel6581:
#line 16867 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I=fornext_value6581;
#line 16867 "ide/ide_methods.bas"
if (fornext_step_negative6581){
#line 16867 "ide/ide_methods.bas"
if (fornext_value6581<fornext_finalvalue6581) break;
#line 16867 "ide/ide_methods.bas"
}else{
#line 16867 "ide/ide_methods.bas"
if (fornext_value6581>fornext_finalvalue6581) break;
#line 16867 "ide/ide_methods.bas"
}
#line 16867 "ide/ide_methods.bas"
fornext_error6581:;
#line 16867 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16867,"ide_methods.bas");if(r)goto S_63556;}
#line 16868 "ide/ide_methods.bas"
S_63557:;
#line 16868 "ide/ide_methods.bas"
if ((*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
#line 16868 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16868,"ide_methods.bas");if(r)goto S_63557;}
#line 16870 "ide/ide_methods.bas"
do{
#line 16870 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+72)))=*_FUNC_IDETERMINALBOX_LONG_FOCUS-*_FUNC_IDETERMINALBOX_LONG_F;
#line 16870 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16870,"ide_methods.bas");}while(r);
#line 16871 "ide/ide_methods.bas"
do{
#line 16871 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+64)))= 0 ;
#line 16871 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16871,"ide_methods.bas");}while(r);
#line 16871 "ide/ide_methods.bas"
do{
#line 16871 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+68)))= 0 ;
#line 16871 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16871,"ide_methods.bas");}while(r);
#line 16872 "ide/ide_methods.bas"
S_63561:;
#line 16872 "ide/ide_methods.bas"
if ((-((-(*_FUNC_IDETERMINALBOX_LONG_I==*_FUNC_IDETERMINALBOX_LONG_FOCUS))&&(-(*_FUNC_IDETERMINALBOX_LONG_FOCUS!=*_FUNC_IDETERMINALBOX_LONG_OLDFOCUS))))||is_error_pending()){
#line 16872 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16872,"ide_methods.bas");if(r)goto S_63561;}
#line 16873 "ide/ide_methods.bas"
do{
#line 16873 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_OLDFOCUS=*_FUNC_IDETERMINALBOX_LONG_FOCUS;
#line 16873 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16873,"ide_methods.bas");}while(r);
#line 16874 "ide/ide_methods.bas"
S_63563:;
#line 16874 "ide/ide_methods.bas"
if ((-(*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+36)))== 1 ))||is_error_pending()){
#line 16874 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16874,"ide_methods.bas");if(r)goto S_63563;}
#line 16876 "ide/ide_methods.bas"
do{
#line 16876 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+93)))=(((qbs**)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])->len;
#line 16876 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16876,"ide_methods.bas");}while(r);
#line 16877 "ide/ide_methods.bas"
S_63565:;
#line 16877 "ide/ide_methods.bas"
if ((-(*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+93)))> 0 ))||is_error_pending()){
#line 16877 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16877,"ide_methods.bas");if(r)goto S_63565;}
#line 16877 "ide/ide_methods.bas"
do{
#line 16877 "ide/ide_methods.bas"
*(int8*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+88)))= -1 ;
#line 16877 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16877,"ide_methods.bas");}while(r);
#line 16877 "ide/ide_methods.bas"
}else{
#line 16877 "ide/ide_methods.bas"
do{
#line 16877 "ide/ide_methods.bas"
*(int8*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+88)))= 0 ;
#line 16877 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16877,"ide_methods.bas");}while(r);
#line 16877 "ide/ide_methods.bas"
}
#line 16878 "ide/ide_methods.bas"
do{
#line 16878 "ide/ide_methods.bas"
*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_FOCUS)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+89)))= 0 ;
#line 16878 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16878,"ide_methods.bas");}while(r);
#line 16879 "ide/ide_methods.bas"
}
#line 16880 "ide/ide_methods.bas"
}
#line 16881 "ide/ide_methods.bas"
do{
#line 16881 "ide/ide_methods.bas"
SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDETERMINALBOX_LONG_F);
#line 16881 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16881,"ide_methods.bas");}while(r);
#line 16882 "ide/ide_methods.bas"
S_63574:;
#line 16882 "ide/ide_methods.bas"
if ((*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+64))))||is_error_pending()){
#line 16882 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16882,"ide_methods.bas");if(r)goto S_63574;}
#line 16882 "ide/ide_methods.bas"
do{
#line 16882 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+64)));
#line 16882 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16882,"ide_methods.bas");}while(r);
#line 16882 "ide/ide_methods.bas"
do{
#line 16882 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+68)));
#line 16882 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16882,"ide_methods.bas");}while(r);
#line 16882 "ide/ide_methods.bas"
}
#line 16883 "ide/ide_methods.bas"
}
#line 16884 "ide/ide_methods.bas"
fornext_continue_6580:;
#line 16884 "ide/ide_methods.bas"
}
#line 16884 "ide/ide_methods.bas"
fornext_exit_6580:;
#line 16885 "ide/ide_methods.bas"
do{
#line 16885 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_LASTFOCUS=*_FUNC_IDETERMINALBOX_LONG_F- 1 ;
#line 16885 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16885,"ide_methods.bas");}while(r);
#line 16889 "ide/ide_methods.bas"
do{
#line 16889 "ide/ide_methods.bas"
sub__printstring(*(int32*)(((char*)_FUNC_IDETERMINALBOX_UDT_P)+((0+0)))+ 3 ,*(int32*)(((char*)_FUNC_IDETERMINALBOX_UDT_P)+((0+4)))+ 4 ,qbs_new_txt_len("Placeholder $$ will be replaced with the executable name.",57),NULL,0);
#line 16889 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16889 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16889,"ide_methods.bas");}while(r);
#line 16890 "ide/ide_methods.bas"
do{
#line 16890 "ide/ide_methods.bas"
sub__printstring(*(int32*)(((char*)_FUNC_IDETERMINALBOX_UDT_P)+((0+0)))+ 3 ,*(int32*)(((char*)_FUNC_IDETERMINALBOX_UDT_P)+((0+4)))+ 5 ,qbs_new_txt_len("Placeholder $@ will be replaced with the COMMAND$ string.",57),NULL,0);
#line 16890 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16890 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16890,"ide_methods.bas");}while(r);
#line 16894 "ide/ide_methods.bas"
do{
#line 16894 "ide/ide_methods.bas"
sub_pcopy( 1 , 0 );
#line 16894 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16894,"ide_methods.bas");}while(r);
#line 16895 "ide/ide_methods.bas"
S_63584:;
#line 16895 "ide/ide_methods.bas"
if ((*_FUNC_IDETERMINALBOX_LONG_CX)||is_error_pending()){
#line 16895 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16895,"ide_methods.bas");if(r)goto S_63584;}
#line 16895 "ide/ide_methods.bas"
do{
#line 16895 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
#line 16895 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16895,"ide_methods.bas");}while(r);
#line 16895 "ide/ide_methods.bas"
do{
#line 16895 "ide/ide_methods.bas"
qbg_sub_locate(*_FUNC_IDETERMINALBOX_LONG_CY,*_FUNC_IDETERMINALBOX_LONG_CX, 1 ,NULL,NULL,7);
#line 16895 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16895,"ide_methods.bas");}while(r);
#line 16895 "ide/ide_methods.bas"
do{
#line 16895 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 16895 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16895,"ide_methods.bas");}while(r);
#line 16895 "ide/ide_methods.bas"
}
#line 16898 "ide/ide_methods.bas"
do{
#line 16898 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 0 ;
#line 16898 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16898,"ide_methods.bas");}while(r);
#line 16899 "ide/ide_methods.bas"
S_63590:;
#line 16899 "ide/ide_methods.bas"
do{
#line 16899 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16899,"ide_methods.bas");if(r)goto S_63590;}
#line 16900 "ide/ide_methods.bas"
do{
#line 16900 "ide/ide_methods.bas"
SUB_GETINPUT();
#line 16900 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16900,"ide_methods.bas");}while(r);
#line 16901 "ide/ide_methods.bas"
S_63592:;
#line 16901 "ide/ide_methods.bas"
if ((*__LONG_MWHEEL)||is_error_pending()){
#line 16901 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16901,"ide_methods.bas");if(r)goto S_63592;}
#line 16901 "ide/ide_methods.bas"
do{
#line 16901 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16901 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16901,"ide_methods.bas");}while(r);
#line 16901 "ide/ide_methods.bas"
}
#line 16902 "ide/ide_methods.bas"
S_63595:;
#line 16902 "ide/ide_methods.bas"
if ((*__LONG_KB)||is_error_pending()){
#line 16902 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16902,"ide_methods.bas");if(r)goto S_63595;}
#line 16902 "ide/ide_methods.bas"
do{
#line 16902 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16902 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16902,"ide_methods.bas");}while(r);
#line 16902 "ide/ide_methods.bas"
}
#line 16903 "ide/ide_methods.bas"
S_63598:;
#line 16903 "ide/ide_methods.bas"
if ((*__LONG_MCLICK)||is_error_pending()){
#line 16903 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16903,"ide_methods.bas");if(r)goto S_63598;}
#line 16903 "ide/ide_methods.bas"
do{
#line 16903 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_MOUSEDOWN= 1 ;
#line 16903 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16903,"ide_methods.bas");}while(r);
#line 16903 "ide/ide_methods.bas"
do{
#line 16903 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16903 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16903,"ide_methods.bas");}while(r);
#line 16903 "ide/ide_methods.bas"
}
#line 16904 "ide/ide_methods.bas"
S_63602:;
#line 16904 "ide/ide_methods.bas"
if ((*__LONG_MRELEASE)||is_error_pending()){
#line 16904 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16904,"ide_methods.bas");if(r)goto S_63602;}
#line 16904 "ide/ide_methods.bas"
do{
#line 16904 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_MOUSEUP= 1 ;
#line 16904 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16904,"ide_methods.bas");}while(r);
#line 16904 "ide/ide_methods.bas"
do{
#line 16904 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16904 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16904,"ide_methods.bas");}while(r);
#line 16904 "ide/ide_methods.bas"
}
#line 16905 "ide/ide_methods.bas"
S_63606:;
#line 16905 "ide/ide_methods.bas"
if ((*__LONG_MB)||is_error_pending()){
#line 16905 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16905,"ide_methods.bas");if(r)goto S_63606;}
#line 16905 "ide/ide_methods.bas"
do{
#line 16905 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16905 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16905,"ide_methods.bas");}while(r);
#line 16905 "ide/ide_methods.bas"
}
#line 16906 "ide/ide_methods.bas"
do{
#line 16906 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_ALT=*__LONG_KALT;
#line 16906 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16906,"ide_methods.bas");}while(r);
#line 16906 "ide/ide_methods.bas"
S_63610:;
#line 16906 "ide/ide_methods.bas"
if ((-(*_FUNC_IDETERMINALBOX_LONG_ALT!=*_FUNC_IDETERMINALBOX_LONG_OLDALT))||is_error_pending()){
#line 16906 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16906,"ide_methods.bas");if(r)goto S_63610;}
#line 16906 "ide/ide_methods.bas"
do{
#line 16906 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_CHANGE= 1 ;
#line 16906 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16906,"ide_methods.bas");}while(r);
#line 16906 "ide/ide_methods.bas"
}
#line 16907 "ide/ide_methods.bas"
do{
#line 16907 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_OLDALT=*_FUNC_IDETERMINALBOX_LONG_ALT;
#line 16907 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16907,"ide_methods.bas");}while(r);
#line 16908 "ide/ide_methods.bas"
do{
#line 16908 "ide/ide_methods.bas"
sub__limit( 100 );
#line 16908 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16908,"ide_methods.bas");}while(r);
#line 16909 "ide/ide_methods.bas"
S_63615:;
#line 16909 "ide/ide_methods.bas"
dl_continue_6583:;
#line 16909 "ide/ide_methods.bas"
}while((!(*_FUNC_IDETERMINALBOX_LONG_CHANGE))&&(!is_error_pending()));
#line 16909 "ide/ide_methods.bas"
dl_exit_6583:;
#line 16909 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16909,"ide_methods.bas");if(r)goto S_63615;}
#line 16910 "ide/ide_methods.bas"
S_63616:;
#line 16910 "ide/ide_methods.bas"
if ((*_FUNC_IDETERMINALBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
#line 16910 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16910,"ide_methods.bas");if(r)goto S_63616;}
#line 16910 "ide/ide_methods.bas"
do{
#line 16910 "ide/ide_methods.bas"
*__LONG_IDEHL= 1 ;
#line 16910 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16910,"ide_methods.bas");}while(r);
#line 16910 "ide/ide_methods.bas"
}else{
#line 16910 "ide/ide_methods.bas"
do{
#line 16910 "ide/ide_methods.bas"
*__LONG_IDEHL= 0 ;
#line 16910 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16910,"ide_methods.bas");}while(r);
#line 16910 "ide/ide_methods.bas"
}
#line 16912 "ide/ide_methods.bas"
do{
#line 16912 "ide/ide_methods.bas"
qbs_set(_FUNC_IDETERMINALBOX_STRING_ALTLETTER,qbs_new_txt_len("",0));
#line 16912 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16912 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16912,"ide_methods.bas");}while(r);
#line 16913 "ide/ide_methods.bas"
S_63622:;
#line 16913 "ide/ide_methods.bas"
if ((*_FUNC_IDETERMINALBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
#line 16913 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16913,"ide_methods.bas");if(r)goto S_63622;}
#line 16914 "ide/ide_methods.bas"
S_63623:;
#line 16914 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
#line 16914 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16914,"ide_methods.bas");if(r)goto S_63623;}
#line 16915 "ide/ide_methods.bas"
do{
#line 16915 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
#line 16915 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16915 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16915,"ide_methods.bas");}while(r);
#line 16916 "ide/ide_methods.bas"
S_63625:;
#line 16916 "ide/ide_methods.bas"
if (((-(*_FUNC_IDETERMINALBOX_LONG_K>= 65 ))&(-(*_FUNC_IDETERMINALBOX_LONG_K<= 90 )))||is_error_pending()){
#line 16916 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16916,"ide_methods.bas");if(r)goto S_63625;}
#line 16916 "ide/ide_methods.bas"
do{
#line 16916 "ide/ide_methods.bas"
qbs_set(_FUNC_IDETERMINALBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDETERMINALBOX_LONG_K));
#line 16916 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16916 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16916,"ide_methods.bas");}while(r);
#line 16916 "ide/ide_methods.bas"
}
#line 16917 "ide/ide_methods.bas"
}
#line 16918 "ide/ide_methods.bas"
}
#line 16919 "ide/ide_methods.bas"
do{
#line 16919 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
#line 16919 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16919,"ide_methods.bas");}while(r);
#line 16919 "ide/ide_methods.bas"
do{
#line 16919 "ide/ide_methods.bas"
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
#line 16919 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16919,"ide_methods.bas");}while(r);
#line 16919 "ide/ide_methods.bas"
do{
#line 16919 "ide/ide_methods.bas"
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
#line 16919 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16919,"ide_methods.bas");}while(r);
#line 16923 "ide/ide_methods.bas"
do{
#line 16923 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_INFO= 0 ;
#line 16923 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16923,"ide_methods.bas");}while(r);
#line 16923 "ide/ide_methods.bas"
do{
#line 16923 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_INVDATA= 0 ;
#line 16923 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16923,"ide_methods.bas");}while(r);
#line 16924 "ide/ide_methods.bas"
S_63635:;
#line 16924 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
#line 16924 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16924,"ide_methods.bas");if(r)goto S_63635;}
#line 16924 "ide/ide_methods.bas"
do{
#line 16924 "ide/ide_methods.bas"
qbs_set(__STRING_K,func_chr( 255 ));
#line 16924 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16924 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16924,"ide_methods.bas");}while(r);
#line 16924 "ide/ide_methods.bas"
}
#line 16925 "ide/ide_methods.bas"
S_63638:;
#line 16925 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
#line 16925 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16925,"ide_methods.bas");if(r)goto S_63638;}
#line 16925 "ide/ide_methods.bas"
do{
#line 16925 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUS=*_FUNC_IDETERMINALBOX_LONG_FOCUS+ 1 ;
#line 16925 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16925,"ide_methods.bas");}while(r);
#line 16925 "ide/ide_methods.bas"
}
#line 16926 "ide/ide_methods.bas"
S_63641:;
#line 16926 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||is_error_pending()){
#line 16926 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16926,"ide_methods.bas");if(r)goto S_63641;}
#line 16926 "ide/ide_methods.bas"
do{
#line 16926 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUS=*_FUNC_IDETERMINALBOX_LONG_FOCUS- 1 ;
#line 16926 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16926,"ide_methods.bas");}while(r);
#line 16926 "ide/ide_methods.bas"
do{
#line 16926 "ide/ide_methods.bas"
qbs_set(__STRING_K,qbs_new_txt_len("",0));
#line 16926 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16926 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16926,"ide_methods.bas");}while(r);
#line 16926 "ide/ide_methods.bas"
}
#line 16927 "ide/ide_methods.bas"
S_63645:;
#line 16927 "ide/ide_methods.bas"
if ((-(*_FUNC_IDETERMINALBOX_LONG_FOCUS< 1 ))||is_error_pending()){
#line 16927 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16927,"ide_methods.bas");if(r)goto S_63645;}
#line 16927 "ide/ide_methods.bas"
do{
#line 16927 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUS=*_FUNC_IDETERMINALBOX_LONG_LASTFOCUS;
#line 16927 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16927,"ide_methods.bas");}while(r);
#line 16927 "ide/ide_methods.bas"
}
#line 16928 "ide/ide_methods.bas"
S_63648:;
#line 16928 "ide/ide_methods.bas"
if ((-(*_FUNC_IDETERMINALBOX_LONG_FOCUS>*_FUNC_IDETERMINALBOX_LONG_LASTFOCUS))||is_error_pending()){
#line 16928 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16928,"ide_methods.bas");if(r)goto S_63648;}
#line 16928 "ide/ide_methods.bas"
do{
#line 16928 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUS= 1 ;
#line 16928 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16928,"ide_methods.bas");}while(r);
#line 16928 "ide/ide_methods.bas"
}
#line 16929 "ide/ide_methods.bas"
do{
#line 16929 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_F= 1 ;
#line 16929 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16929,"ide_methods.bas");}while(r);
#line 16930 "ide/ide_methods.bas"
S_63652:;
#line 16930 "ide/ide_methods.bas"
fornext_value6586= 1 ;
#line 16930 "ide/ide_methods.bas"
fornext_finalvalue6586= 100 ;
#line 16930 "ide/ide_methods.bas"
fornext_step6586= 1 ;
#line 16930 "ide/ide_methods.bas"
if (fornext_step6586<0) fornext_step_negative6586=1; else fornext_step_negative6586=0;
#line 16930 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error6586;
#line 16930 "ide/ide_methods.bas"
goto fornext_entrylabel6586;
#line 16930 "ide/ide_methods.bas"
while(1){
#line 16930 "ide/ide_methods.bas"
fornext_value6586=fornext_step6586+(*_FUNC_IDETERMINALBOX_LONG_I);
#line 16930 "ide/ide_methods.bas"
fornext_entrylabel6586:
#line 16930 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_I=fornext_value6586;
#line 16930 "ide/ide_methods.bas"
if (fornext_step_negative6586){
#line 16930 "ide/ide_methods.bas"
if (fornext_value6586<fornext_finalvalue6586) break;
#line 16930 "ide/ide_methods.bas"
}else{
#line 16930 "ide/ide_methods.bas"
if (fornext_value6586>fornext_finalvalue6586) break;
#line 16930 "ide/ide_methods.bas"
}
#line 16930 "ide/ide_methods.bas"
fornext_error6586:;
#line 16930 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16930,"ide_methods.bas");if(r)goto S_63652;}
#line 16931 "ide/ide_methods.bas"
S_63653:;
#line 16931 "ide/ide_methods.bas"
if ((*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
#line 16931 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16931,"ide_methods.bas");if(r)goto S_63653;}
#line 16932 "ide/ide_methods.bas"
do{
#line 16932 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_FOCUSOFFSET=*_FUNC_IDETERMINALBOX_LONG_FOCUS-*_FUNC_IDETERMINALBOX_LONG_F;
#line 16932 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16932,"ide_methods.bas");}while(r);
#line 16933 "ide/ide_methods.bas"
do{
#line 16933 "ide/ide_methods.bas"
SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDETERMINALBOX_LONG_I)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDETERMINALBOX_LONG_FOCUS,_FUNC_IDETERMINALBOX_LONG_F,_FUNC_IDETERMINALBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDETERMINALBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDETERMINALBOX_LONG_MOUSEDOWN,_FUNC_IDETERMINALBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDETERMINALBOX_LONG_INFO,__LONG_MWHEEL);
#line 16933 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16933 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16933,"ide_methods.bas");}while(r);
#line 16934 "ide/ide_methods.bas"
}
#line 16935 "ide/ide_methods.bas"
fornext_continue_6585:;
#line 16935 "ide/ide_methods.bas"
}
#line 16935 "ide/ide_methods.bas"
fornext_exit_6585:;
#line 16940 "ide/ide_methods.bas"
S_63658:;
#line 16940 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDETERMINALBOX_LONG_FOCUS==*_FUNC_IDETERMINALBOX_LONG_CABUT))&(-(*_FUNC_IDETERMINALBOX_LONG_INFO!= 0 ))))))||is_error_pending()){
#line 16940 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16940,"ide_methods.bas");if(r)goto S_63658;}
#line 16940 "ide/ide_methods.bas"
do{
#line 16940 "ide/ide_methods.bas"
goto exit_subfunc;
#line 16940 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16940,"ide_methods.bas");}while(r);
#line 16940 "ide/ide_methods.bas"
}
#line 16941 "ide/ide_methods.bas"
S_63661:;
#line 16941 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDETERMINALBOX_LONG_FOCUS==*_FUNC_IDETERMINALBOX_LONG_OKBUT))&(-(*_FUNC_IDETERMINALBOX_LONG_INFO!= 0 ))))))||is_error_pending()){
#line 16941 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16941,"ide_methods.bas");if(r)goto S_63661;}
#line 16943 "ide/ide_methods.bas"
S_63662:;
#line 16943 "ide/ide_methods.bas"
if ((*_FUNC_IDETERMINALBOX_LONG_INVDATA)||is_error_pending()){
#line 16943 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16943,"ide_methods.bas");if(r)goto S_63662;}
#line 16944 "ide/ide_methods.bas"
do{
#line 16944 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_RETVAL=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Warning",7),qbs_new_txt_len("Confirmation has been blocked due to invalid settings.\\nPlease check your inputs, look for highlighted boxes.",109),qbs_new_txt_len("#OK",3));
#line 16944 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16944 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16944,"ide_methods.bas");}while(r);
#line 16945 "ide/ide_methods.bas"
do{
#line 16945 "ide/ide_methods.bas"
sub_pcopy( 2 , 1 );
#line 16945 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16945,"ide_methods.bas");}while(r);
#line 16945 "ide/ide_methods.bas"
do{
#line 16945 "ide/ide_methods.bas"
goto dl_continue_6579;
#line 16945 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16945,"ide_methods.bas");}while(r);
#line 16946 "ide/ide_methods.bas"
}
#line 16948 "ide/ide_methods.bas"
do{
#line 16948 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_INTEGER_OPTCHG= 0ll ;
#line 16948 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16948,"ide_methods.bas");}while(r);
#line 16951 "ide/ide_methods.bas"
do{
#line 16951 "ide/ide_methods.bas"
qbs_set(_FUNC_IDETERMINALBOX_STRING_V,(((qbs**)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDETERMINALBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDETERMINALBOX_LONG_DTTBOX)-_FUNC_IDETERMINALBOX_ARRAY_UDT_O[4],_FUNC_IDETERMINALBOX_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]));
#line 16951 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16951 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16951,"ide_methods.bas");}while(r);
#line 16952 "ide/ide_methods.bas"
S_63669:;
#line 16952 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DEFAULTTERMINAL,_FUNC_IDETERMINALBOX_STRING_V)))||is_error_pending()){
#line 16952 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16952,"ide_methods.bas");if(r)goto S_63669;}
#line 16952 "ide/ide_methods.bas"
do{
#line 16952 "ide/ide_methods.bas"
qbs_set(__STRING_DEFAULTTERMINAL,_FUNC_IDETERMINALBOX_STRING_V);
#line 16952 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16952 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16952,"ide_methods.bas");}while(r);
#line 16952 "ide/ide_methods.bas"
do{
#line 16952 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_INTEGER_OPTCHG= -1ll ;
#line 16952 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16952,"ide_methods.bas");}while(r);
#line 16952 "ide/ide_methods.bas"
}
#line 16954 "ide/ide_methods.bas"
S_63673:;
#line 16954 "ide/ide_methods.bas"
if ((*_FUNC_IDETERMINALBOX_INTEGER_OPTCHG)||is_error_pending()){
#line 16954 "ide/ide_methods.bas"
if(qbevent){evnt(28819,16954,"ide_methods.bas");if(r)goto S_63673;}
#line 16956 "ide/ide_methods.bas"
do{
#line 16956 "ide/ide_methods.bas"
SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DefaultTerminal",15),__STRING_DEFAULTTERMINAL);
#line 16956 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16956 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16956,"ide_methods.bas");}while(r);
#line 16958 "ide/ide_methods.bas"
do{
#line 16958 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_IDETERMINALBOX= 1 ;
#line 16958 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16958,"ide_methods.bas");}while(r);
#line 16959 "ide/ide_methods.bas"
}
#line 16960 "ide/ide_methods.bas"
do{
#line 16960 "ide/ide_methods.bas"
goto exit_subfunc;
#line 16960 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16960,"ide_methods.bas");}while(r);
#line 16961 "ide/ide_methods.bas"
}
#line 16964 "ide/ide_methods.bas"
do{
#line 16964 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_MOUSEDOWN= 0 ;
#line 16964 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16964,"ide_methods.bas");}while(r);
#line 16965 "ide/ide_methods.bas"
do{
#line 16965 "ide/ide_methods.bas"
*_FUNC_IDETERMINALBOX_LONG_MOUSEUP= 0 ;
#line 16965 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,16965,"ide_methods.bas");}while(r);
#line 16966 "ide/ide_methods.bas"
dl_continue_6579:;
#line 16966 "ide/ide_methods.bas"
}while(1);
#line 16966 "ide/ide_methods.bas"
dl_exit_6579:;
#line 16967 "ide/ide_methods.bas"
exit_subfunc:;
#line 16967 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 16967 "ide/ide_methods.bas"
#include "free440.txt"
#line 16967 "ide/ide_methods.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 16967 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 16967 "ide/ide_methods.bas"
return *_FUNC_IDETERMINALBOX_LONG_IDETERMINALBOX;
#line 16967 "ide/ide_methods.bas"
}
