void SUB_GETINPUT(){
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 "data409.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(28182,18833,"ide_methods.bas");}while(r);
S_64753:;
if ((*__LONG_ICHECKLATER)||is_error_pending()){
if(qbevent){evnt(28182,18835,"ide_methods.bas");if(r)goto S_64753;}
do{
*__LONG_ICHECKLATER= 0 ;
if(!qbevent)break;evnt(28182,18835,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18835,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= 0 ;
if(!qbevent)break;evnt(28182,18837,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= 0 ;
if(!qbevent)break;evnt(28182,18838,"ide_methods.bas");}while(r);
do{
*__LONG_MCLICK= 0 ;
if(!qbevent)break;evnt(28182,18839,"ide_methods.bas");}while(r);
do{
*__LONG_MCLICK2= 0 ;
if(!qbevent)break;evnt(28182,18839,"ide_methods.bas");}while(r);
do{
*__LONG_MRELEASE= 0 ;
if(!qbevent)break;evnt(28182,18839,"ide_methods.bas");}while(r);
do{
*__LONG_MRELEASE2= 0 ;
if(!qbevent)break;evnt(28182,18839,"ide_methods.bas");}while(r);
do{
*__LONG_MWHEEL= 0 ;
if(!qbevent)break;evnt(28182,18840,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_K,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18841,"ide_methods.bas");}while(r);
do{
*__LONG_KB= 0 ;
if(!qbevent)break;evnt(28182,18841,"ide_methods.bas");}while(r);
do{
*__LONG_MOB=*__LONG_MB;
if(!qbevent)break;evnt(28182,18842,"ide_methods.bas");}while(r);
do{
*__LONG_MOB2=*__LONG_MB2;
if(!qbevent)break;evnt(28182,18842,"ide_methods.bas");}while(r);
do{
*__LONG_KOALT=*__LONG_KALT;
if(!qbevent)break;evnt(28182,18843,"ide_methods.bas");}while(r);
do{
*__LONG_KALTPRESS= 0 ;
if(!qbevent)break;evnt(28182,18843,"ide_methods.bas");}while(r);
do{
*__LONG_KALTRELEASE= 0 ;
if(!qbevent)break;evnt(28182,18843,"ide_methods.bas");}while(r);
S_64771:;
do{
if(qbevent){evnt(28182,18845,"ide_methods.bas");if(r)goto S_64771;}
S_64772:;
dl_continue_7498:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_7498:;
if(qbevent){evnt(28182,18845,"ide_methods.bas");if(r)goto S_64772;}
do{
*_SUB_GETINPUT_LONG_K=func__keyhit();
if(!qbevent)break;evnt(28182,18847,"ide_methods.bas");}while(r);
S_64774:;
if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||is_error_pending()){
if(qbevent){evnt(28182,18850,"ide_methods.bas");if(r)goto S_64774;}
do{
qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_add(_SUB_GETINPUT_STRING_ASCVALUE,func_chr(-(*_SUB_GETINPUT_LONG_K))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18851,"ide_methods.bas");}while(r);
}
S_64777:;
if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||is_error_pending()){
if(qbevent){evnt(28182,18853,"ide_methods.bas");if(r)goto S_64777;}
S_64778:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||is_error_pending()){
if(qbevent){evnt(28182,18854,"ide_methods.bas");if(r)goto S_64778;}
do{
*__LONG_KB=qbr(qbs_val<long double>(qbs_right(_SUB_GETINPUT_STRING_ASCVALUE, 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18855,"ide_methods.bas");}while(r);
S_64780:;
if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||is_error_pending()){
if(qbevent){evnt(28182,18856,"ide_methods.bas");if(r)goto S_64780;}
do{
qbs_set(__STRING_K,func_chr(*__LONG_KB));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18857,"ide_methods.bas");}while(r);
do{
*_SUB_GETINPUT_LONG_K=*__LONG_KB;
if(!qbevent)break;evnt(28182,18858,"ide_methods.bas");}while(r);
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18859,"ide_methods.bas");}while(r);
do{
*__BYTE_ALTSPECIAL= -1ll ;
if(!qbevent)break;evnt(28182,18860,"ide_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18862,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18863,"ide_methods.bas");}while(r);
}
}
S_64790:;
if ((*_SUB_GETINPUT_LONG_K)||is_error_pending()){
if(qbevent){evnt(28182,18868,"ide_methods.bas");if(r)goto S_64790;}
S_64791:;
if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||is_error_pending()){
if(qbevent){evnt(28182,18869,"ide_methods.bas");if(r)goto S_64791;}
do{
*_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K);
if(!qbevent)break;evnt(28182,18869,"ide_methods.bas");}while(r);
do{
*_SUB_GETINPUT_LONG_RELEASE= 1 ;
if(!qbevent)break;evnt(28182,18869,"ide_methods.bas");}while(r);
}
S_64795:;
if (((-(*_SUB_GETINPUT_LONG_K== 100304ll ))|(-(*_SUB_GETINPUT_LONG_K== 100303ll )))||is_error_pending()){
if(qbevent){evnt(28182,18871,"ide_methods.bas");if(r)goto S_64795;}
S_64796:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,18872,"ide_methods.bas");if(r)goto S_64796;}
do{
*__LONG_KSHIFT= 0 ;
if(!qbevent)break;evnt(28182,18872,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KSHIFT= -1 ;
if(!qbevent)break;evnt(28182,18872,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18873,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(28182,18873,"ide_methods.bas");}while(r);
}
S_64804:;
if (((-(*_SUB_GETINPUT_LONG_K== 100308ll ))|(-(*_SUB_GETINPUT_LONG_K== 100307ll )))||is_error_pending()){
if(qbevent){evnt(28182,18875,"ide_methods.bas");if(r)goto S_64804;}
S_64805:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,18876,"ide_methods.bas");if(r)goto S_64805;}
do{
*__LONG_KALT= 0 ;
if(!qbevent)break;evnt(28182,18877,"ide_methods.bas");}while(r);
do{
*__LONG_KALTRELEASE= -1 ;
if(!qbevent)break;evnt(28182,18877,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KALT= -1 ;
if(!qbevent)break;evnt(28182,18879,"ide_methods.bas");}while(r);
do{
*__LONG_KALTPRESS= -1 ;
if(!qbevent)break;evnt(28182,18879,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18881,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(28182,18881,"ide_methods.bas");}while(r);
}
S_64815:;
if (((-(*_SUB_GETINPUT_LONG_K== 100306ll ))|(-(*_SUB_GETINPUT_LONG_K== 100305ll )))||is_error_pending()){
if(qbevent){evnt(28182,18883,"ide_methods.bas");if(r)goto S_64815;}
S_64816:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,18884,"ide_methods.bas");if(r)goto S_64816;}
do{
*__LONG_KCTRL= 0 ;
if(!qbevent)break;evnt(28182,18884,"ide_methods.bas");}while(r);
do{
*__LONG_KCONTROL= 0 ;
if(!qbevent)break;evnt(28182,18884,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KCTRL= -1 ;
if(!qbevent)break;evnt(28182,18884,"ide_methods.bas");}while(r);
do{
*__LONG_KCONTROL= -1 ;
if(!qbevent)break;evnt(28182,18884,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18885,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(28182,18885,"ide_methods.bas");}while(r);
}
S_64826:;
if (((-(*_SUB_GETINPUT_LONG_K== 100310ll ))|(-(*_SUB_GETINPUT_LONG_K== 100309ll )))||is_error_pending()){
if(qbevent){evnt(28182,18887,"ide_methods.bas");if(r)goto S_64826;}
S_64827:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,18888,"ide_methods.bas");if(r)goto S_64827;}
do{
*__LONG_KCONTROL= 0 ;
if(!qbevent)break;evnt(28182,18888,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KCONTROL= -1 ;
if(!qbevent)break;evnt(28182,18888,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18889,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(28182,18889,"ide_methods.bas");}while(r);
}
S_64835:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||is_error_pending()){
if(qbevent){evnt(28182,18892,"ide_methods.bas");if(r)goto S_64835;}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(28182,18893,"ide_methods.bas");}while(r);
S_64837:;
if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||is_error_pending()){
if(qbevent){evnt(28182,18894,"ide_methods.bas");if(r)goto S_64837;}
do{
qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18894,"ide_methods.bas");}while(r);
}
S_64840:;
if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||is_error_pending()){
if(qbevent){evnt(28182,18895,"ide_methods.bas");if(r)goto S_64840;}
do{
qbs_set(__STRING_K,qbs_add(func_chr( 0 ),func_chr(qb_safe_idiv(*_SUB_GETINPUT_LONG_K, 256 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18895,"ide_methods.bas");}while(r);
}
do{
*__LONG_KB=*_SUB_GETINPUT_LONG_K;
if(!qbevent)break;evnt(28182,18896,"ide_methods.bas");}while(r);
}
S_64845:;
if ((*__LONG_ICHANGED)||is_error_pending()){
if(qbevent){evnt(28182,18898,"ide_methods.bas");if(r)goto S_64845;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18898,"ide_methods.bas");}while(r);
}
}
S_64849:;
while((func__mouseinput())||is_error_pending()){
if(qbevent){evnt(28182,18900,"ide_methods.bas");if(r)goto S_64849;}
do{
*__LONG_ICHANGED= 1 ;
if(!qbevent)break;evnt(28182,18901,"ide_methods.bas");}while(r);
S_64851:;
if ((*__BYTE_MOUSEBUTTONSWAPPED)||is_error_pending()){
if(qbevent){evnt(28182,18902,"ide_methods.bas");if(r)goto S_64851;}
do{
*__LONG_MB=func__mousebutton( 2 );
if(!qbevent)break;evnt(28182,18903,"ide_methods.bas");}while(r);
do{
*__LONG_MB2=func__mousebutton( 1 );
if(!qbevent)break;evnt(28182,18903,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_MB=func__mousebutton( 1 );
if(!qbevent)break;evnt(28182,18905,"ide_methods.bas");}while(r);
do{
*__LONG_MB2=func__mousebutton( 2 );
if(!qbevent)break;evnt(28182,18905,"ide_methods.bas");}while(r);
}
do{
*__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel();
if(!qbevent)break;evnt(28182,18907,"ide_methods.bas");}while(r);
do{
*__LONG_MX=qbr(func__mousex());
if(!qbevent)break;evnt(28182,18908,"ide_methods.bas");}while(r);
do{
*__LONG_MY=qbr(func__mousey());
if(!qbevent)break;evnt(28182,18908,"ide_methods.bas");}while(r);
S_64861:;
if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,18909,"ide_methods.bas");if(r)goto S_64861;}
do{
*__LONG_MCLICK= -1 ;
if(!qbevent)break;evnt(28182,18909,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18909,"ide_methods.bas");}while(r);
}
S_64865:;
if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,18910,"ide_methods.bas");if(r)goto S_64865;}
do{
*__LONG_MCLICK2= -1 ;
if(!qbevent)break;evnt(28182,18910,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18910,"ide_methods.bas");}while(r);
}
S_64869:;
if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||is_error_pending()){
if(qbevent){evnt(28182,18911,"ide_methods.bas");if(r)goto S_64869;}
do{
*__LONG_MRELEASE= -1 ;
if(!qbevent)break;evnt(28182,18911,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18911,"ide_methods.bas");}while(r);
}
S_64873:;
if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||is_error_pending()){
if(qbevent){evnt(28182,18912,"ide_methods.bas");if(r)goto S_64873;}
do{
*__LONG_MRELEASE2= -1 ;
if(!qbevent)break;evnt(28182,18912,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,18912,"ide_methods.bas");}while(r);
}
dl_continue_7500:;
}
dl_exit_7500:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free409.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;
}
