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 "data345.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{
if(!qbevent)break;evnt(25769,18312,"ide_methods.bas");}while(r);
S_60070:;
if ((*__LONG_ICHECKLATER)||is_error_pending()){
if(qbevent){evnt(25769,18314,"ide_methods.bas");if(r)goto S_60070;}
do{
*__LONG_ICHECKLATER= 0 ;
if(!qbevent)break;evnt(25769,18314,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18314,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= 0 ;
if(!qbevent)break;evnt(25769,18316,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= 0 ;
if(!qbevent)break;evnt(25769,18317,"ide_methods.bas");}while(r);
do{
*__LONG_MCLICK= 0 ;
if(!qbevent)break;evnt(25769,18318,"ide_methods.bas");}while(r);
do{
*__LONG_MCLICK2= 0 ;
if(!qbevent)break;evnt(25769,18318,"ide_methods.bas");}while(r);
do{
*__LONG_MRELEASE= 0 ;
if(!qbevent)break;evnt(25769,18318,"ide_methods.bas");}while(r);
do{
*__LONG_MRELEASE2= 0 ;
if(!qbevent)break;evnt(25769,18318,"ide_methods.bas");}while(r);
do{
*__LONG_MWHEEL= 0 ;
if(!qbevent)break;evnt(25769,18319,"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(25769,18320,"ide_methods.bas");}while(r);
do{
*__LONG_KB= 0 ;
if(!qbevent)break;evnt(25769,18320,"ide_methods.bas");}while(r);
do{
*__LONG_MOB=*__LONG_MB;
if(!qbevent)break;evnt(25769,18321,"ide_methods.bas");}while(r);
do{
*__LONG_MOB2=*__LONG_MB2;
if(!qbevent)break;evnt(25769,18321,"ide_methods.bas");}while(r);
do{
*__LONG_KOALT=*__LONG_KALT;
if(!qbevent)break;evnt(25769,18322,"ide_methods.bas");}while(r);
do{
*__LONG_KALTPRESS= 0 ;
if(!qbevent)break;evnt(25769,18322,"ide_methods.bas");}while(r);
do{
*__LONG_KALTRELEASE= 0 ;
if(!qbevent)break;evnt(25769,18322,"ide_methods.bas");}while(r);
S_60088:;
do{
if(qbevent){evnt(25769,18324,"ide_methods.bas");if(r)goto S_60088;}
S_60089:;
dl_continue_6824:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_6824:;
if(qbevent){evnt(25769,18324,"ide_methods.bas");if(r)goto S_60089;}
do{
*_SUB_GETINPUT_LONG_K=func__keyhit();
if(!qbevent)break;evnt(25769,18326,"ide_methods.bas");}while(r);
S_60091:;
if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||is_error_pending()){
if(qbevent){evnt(25769,18329,"ide_methods.bas");if(r)goto S_60091;}
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(25769,18330,"ide_methods.bas");}while(r);
}
S_60094:;
if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||is_error_pending()){
if(qbevent){evnt(25769,18332,"ide_methods.bas");if(r)goto S_60094;}
S_60095:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||is_error_pending()){
if(qbevent){evnt(25769,18333,"ide_methods.bas");if(r)goto S_60095;}
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(25769,18334,"ide_methods.bas");}while(r);
S_60097:;
if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||is_error_pending()){
if(qbevent){evnt(25769,18335,"ide_methods.bas");if(r)goto S_60097;}
do{
qbs_set(__STRING_K,func_chr(*__LONG_KB));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,18336,"ide_methods.bas");}while(r);
do{
*_SUB_GETINPUT_LONG_K=*__LONG_KB;
if(!qbevent)break;evnt(25769,18337,"ide_methods.bas");}while(r);
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18338,"ide_methods.bas");}while(r);
do{
*__BYTE_ALTSPECIAL= -1ll ;
if(!qbevent)break;evnt(25769,18339,"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(25769,18341,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18342,"ide_methods.bas");}while(r);
}
}
S_60107:;
if ((*_SUB_GETINPUT_LONG_K)||is_error_pending()){
if(qbevent){evnt(25769,18347,"ide_methods.bas");if(r)goto S_60107;}
S_60108:;
if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||is_error_pending()){
if(qbevent){evnt(25769,18348,"ide_methods.bas");if(r)goto S_60108;}
do{
*_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K);
if(!qbevent)break;evnt(25769,18348,"ide_methods.bas");}while(r);
do{
*_SUB_GETINPUT_LONG_RELEASE= 1 ;
if(!qbevent)break;evnt(25769,18348,"ide_methods.bas");}while(r);
}
S_60112:;
if (((-(*_SUB_GETINPUT_LONG_K== 100304ll ))|(-(*_SUB_GETINPUT_LONG_K== 100303ll )))||is_error_pending()){
if(qbevent){evnt(25769,18350,"ide_methods.bas");if(r)goto S_60112;}
S_60113:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,18351,"ide_methods.bas");if(r)goto S_60113;}
do{
*__LONG_KSHIFT= 0 ;
if(!qbevent)break;evnt(25769,18351,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KSHIFT= -1 ;
if(!qbevent)break;evnt(25769,18351,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18352,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(25769,18352,"ide_methods.bas");}while(r);
}
S_60121:;
if (((-(*_SUB_GETINPUT_LONG_K== 100308ll ))|(-(*_SUB_GETINPUT_LONG_K== 100307ll )))||is_error_pending()){
if(qbevent){evnt(25769,18354,"ide_methods.bas");if(r)goto S_60121;}
S_60122:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,18355,"ide_methods.bas");if(r)goto S_60122;}
do{
*__LONG_KALT= 0 ;
if(!qbevent)break;evnt(25769,18356,"ide_methods.bas");}while(r);
do{
*__LONG_KALTRELEASE= -1 ;
if(!qbevent)break;evnt(25769,18356,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KALT= -1 ;
if(!qbevent)break;evnt(25769,18358,"ide_methods.bas");}while(r);
do{
*__LONG_KALTPRESS= -1 ;
if(!qbevent)break;evnt(25769,18358,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18360,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(25769,18360,"ide_methods.bas");}while(r);
}
S_60132:;
if (((-(*_SUB_GETINPUT_LONG_K== 100306ll ))|(-(*_SUB_GETINPUT_LONG_K== 100305ll )))||is_error_pending()){
if(qbevent){evnt(25769,18362,"ide_methods.bas");if(r)goto S_60132;}
S_60133:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,18363,"ide_methods.bas");if(r)goto S_60133;}
do{
*__LONG_KCTRL= 0 ;
if(!qbevent)break;evnt(25769,18363,"ide_methods.bas");}while(r);
do{
*__LONG_KCONTROL= 0 ;
if(!qbevent)break;evnt(25769,18363,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KCTRL= -1 ;
if(!qbevent)break;evnt(25769,18363,"ide_methods.bas");}while(r);
do{
*__LONG_KCONTROL= -1 ;
if(!qbevent)break;evnt(25769,18363,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18364,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(25769,18364,"ide_methods.bas");}while(r);
}
S_60143:;
if (((-(*_SUB_GETINPUT_LONG_K== 100310ll ))|(-(*_SUB_GETINPUT_LONG_K== 100309ll )))||is_error_pending()){
if(qbevent){evnt(25769,18366,"ide_methods.bas");if(r)goto S_60143;}
S_60144:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,18367,"ide_methods.bas");if(r)goto S_60144;}
do{
*__LONG_KCONTROL= 0 ;
if(!qbevent)break;evnt(25769,18367,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_KCONTROL= -1 ;
if(!qbevent)break;evnt(25769,18367,"ide_methods.bas");}while(r);
}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18368,"ide_methods.bas");}while(r);
do{
*__LONG_KSTATECHANGED= -1 ;
if(!qbevent)break;evnt(25769,18368,"ide_methods.bas");}while(r);
}
S_60152:;
if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,18371,"ide_methods.bas");if(r)goto S_60152;}
do{
*__LONG_ICHANGED= -1 ;
if(!qbevent)break;evnt(25769,18372,"ide_methods.bas");}while(r);
S_60154:;
if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||is_error_pending()){
if(qbevent){evnt(25769,18373,"ide_methods.bas");if(r)goto S_60154;}
do{
qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,18373,"ide_methods.bas");}while(r);
}
S_60157:;
if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,18374,"ide_methods.bas");if(r)goto S_60157;}
do{
qbs_set(__STRING_K,qbs_add(func_chr( 0 ),func_chr(*_SUB_GETINPUT_LONG_K/  256 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,18374,"ide_methods.bas");}while(r);
}
do{
*__LONG_KB=*_SUB_GETINPUT_LONG_K;
if(!qbevent)break;evnt(25769,18375,"ide_methods.bas");}while(r);
}
S_60162:;
if ((*__LONG_ICHANGED)||is_error_pending()){
if(qbevent){evnt(25769,18377,"ide_methods.bas");if(r)goto S_60162;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18377,"ide_methods.bas");}while(r);
}
}
S_60166:;
while((func__mouseinput())||is_error_pending()){
if(qbevent){evnt(25769,18379,"ide_methods.bas");if(r)goto S_60166;}
do{
*__LONG_ICHANGED= 1 ;
if(!qbevent)break;evnt(25769,18380,"ide_methods.bas");}while(r);
S_60168:;
if ((*__BYTE_MOUSEBUTTONSWAPPED)||is_error_pending()){
if(qbevent){evnt(25769,18381,"ide_methods.bas");if(r)goto S_60168;}
do{
*__LONG_MB=func__mousebutton( 2 );
if(!qbevent)break;evnt(25769,18382,"ide_methods.bas");}while(r);
do{
*__LONG_MB2=func__mousebutton( 1 );
if(!qbevent)break;evnt(25769,18382,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_MB=func__mousebutton( 1 );
if(!qbevent)break;evnt(25769,18384,"ide_methods.bas");}while(r);
do{
*__LONG_MB2=func__mousebutton( 2 );
if(!qbevent)break;evnt(25769,18384,"ide_methods.bas");}while(r);
}
do{
*__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel();
if(!qbevent)break;evnt(25769,18386,"ide_methods.bas");}while(r);
do{
*__LONG_MX=qbr(func__mousex());
if(!qbevent)break;evnt(25769,18387,"ide_methods.bas");}while(r);
do{
*__LONG_MY=qbr(func__mousey());
if(!qbevent)break;evnt(25769,18387,"ide_methods.bas");}while(r);
S_60178:;
if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,18388,"ide_methods.bas");if(r)goto S_60178;}
do{
*__LONG_MCLICK= -1 ;
if(!qbevent)break;evnt(25769,18388,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18388,"ide_methods.bas");}while(r);
}
S_60182:;
if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,18389,"ide_methods.bas");if(r)goto S_60182;}
do{
*__LONG_MCLICK2= -1 ;
if(!qbevent)break;evnt(25769,18389,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18389,"ide_methods.bas");}while(r);
}
S_60186:;
if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||is_error_pending()){
if(qbevent){evnt(25769,18390,"ide_methods.bas");if(r)goto S_60186;}
do{
*__LONG_MRELEASE= -1 ;
if(!qbevent)break;evnt(25769,18390,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18390,"ide_methods.bas");}while(r);
}
S_60190:;
if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||is_error_pending()){
if(qbevent){evnt(25769,18391,"ide_methods.bas");if(r)goto S_60190;}
do{
*__LONG_MRELEASE2= -1 ;
if(!qbevent)break;evnt(25769,18391,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,18391,"ide_methods.bas");}while(r);
}
dl_continue_6826:;
}
dl_exit_6826:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free345.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;
}
